diff --git a/Makefile b/Makefile index 6d72b2077..99edf91d5 100644 --- a/Makefile +++ b/Makefile @@ -1,10 +1,7 @@ -# Parse -j from MAKEFLAGS for parallelism. -GERBIL_BUILD_CORES := $(or $(patsubst -j%,%,$(filter -j%,$(MAKEFLAGS))),1) - all: build build: - GERBIL_BUILD_CORES=$(GERBIL_BUILD_CORES) ./build.sh + GERBIL_BUILD_FLAGS="$(MAKEFLAGS)" ./build.sh install: ./install.sh diff --git a/doc/guide/README.md b/doc/guide/README.md index 65546d711..23e7208b7 100644 --- a/doc/guide/README.md +++ b/doc/guide/README.md @@ -46,9 +46,13 @@ cd into the `gerbil` directory. Gerbil takes quite a while to compile, if you wish it to build faster by utilizing multiple cores, you can: ``` -make -j +make -j ``` +Alternatively, you can set the `GERBIL_BUILD_CORES` environment +variable to the number of cores you want to use. + + If you are using the default configuration, you can build Gerbil simply with: ```bash $ ./configure && make && sudo make install diff --git a/docker/Dockerfile b/docker/Dockerfile index 8dc5986dc..374adae2a 100644 --- a/docker/Dockerfile +++ b/docker/Dockerfile @@ -51,7 +51,7 @@ ENV GERBIL_GCC=g++ RUN cd /opt && eval git clone -b "${branch}" "https://github.com/${repo}" gerbil-src \ && cd /opt/gerbil-src && eval ./configure --prefix=/opt/gerbil --enable-shared=no ${configure_args} -RUN cd /opt/gerbil-src && make -j ${GERBIL_BUILD_CORES} && make install +RUN cd /opt/gerbil-src && make && make install FROM gerbil as final RUN rm -rf /opt/gerbil-src /src/leveldb /src/lmdb diff --git a/src/bootstrap/gerbil/compiler/base.ssxi.ss b/src/bootstrap/gerbil/compiler/base.ssxi.ss index 0b2a77e39..e6dd50fd2 100644 --- a/src/bootstrap/gerbil/compiler/base.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/base.ssxi.ss @@ -20,7 +20,6 @@ package: gerbil/compiler gxc#symbol-table-bindings-set! (@struct-setf gxc#symbol-table::t 1 #f)) (declare-type gxc#symbol-table:::init! (@lambda 1 #f)) - (declare-method gxc#symbol-table::t :init! gxc#symbol-table:::init! #f) (declare-type gxc#raise-compile-error (@lambda (2) #f)) (declare-type gxc#verbose (@lambda (0) #f)) (declare-type gxc#module-id->path-string (@lambda 1 #f))) diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index 84f3ed723..054df6c80 100644 --- a/src/bootstrap/gerbil/compiler/base__0.scm +++ b/src/bootstrap/gerbil/compiler/base__0.scm @@ -1,58 +1,89 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/base::timestamp 1695199291) + (define gerbil/compiler/base::timestamp 1695292405) (begin - (define gxc#current-compile-symbol-table (make-parameter '#f)) - (define gxc#current-compile-runtime-sections (make-parameter '#f)) - (define gxc#current-compile-runtime-names (make-parameter '#f)) - (define gxc#current-compile-output-dir (make-parameter '#f)) - (define gxc#current-compile-invoke-gsc (make-parameter '#f)) - (define gxc#current-compile-gsc-options (make-parameter '#f)) - (define gxc#current-compile-keep-scm (make-parameter '#f)) - (define gxc#current-compile-verbose (make-parameter '#f)) - (define gxc#current-compile-optimize (make-parameter '#f)) - (define gxc#current-compile-debug (make-parameter '#f)) - (define gxc#current-compile-generate-ssxi (make-parameter '#f)) - (define gxc#current-compile-static (make-parameter '#f)) - (define gxc#current-compile-timestamp (make-parameter '#f)) - (define gxc#current-compile-decls (make-parameter '#f)) + (define gxc#current-compile-symbol-table + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-runtime-sections + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-runtime-names + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-output-dir + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-invoke-gsc + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-gsc-options + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-keep-scm + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-verbose + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-optimize + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-debug + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-generate-ssxi + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-static + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-timestamp + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-decls + (let () (declare (not safe)) (make-parameter '#f))) (define gxc#symbol-table::t - (make-struct-type - 'gxc#symbol-table::t - '#f - '2 - 'symbol-table - '() - ':init! - '(gensyms bindings))) - (define gxc#symbol-table? (make-struct-predicate gxc#symbol-table::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#symbol-table::t + '#f + '2 + 'symbol-table + '() + ':init! + '(gensyms bindings)))) + (define gxc#symbol-table? + (let () + (declare (not safe)) + (make-struct-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table (lambda _$args534_ (apply make-struct-instance gxc#symbol-table::t _$args534_))) (define gxc#symbol-table-gensyms - (make-struct-field-accessor gxc#symbol-table::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#symbol-table::t '0))) (define gxc#symbol-table-bindings - (make-struct-field-accessor gxc#symbol-table::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#symbol-table::t '1))) (define gxc#symbol-table-gensyms-set! - (make-struct-field-mutator gxc#symbol-table::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#symbol-table::t '0))) (define gxc#symbol-table-bindings-set! - (make-struct-field-mutator gxc#symbol-table::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#symbol-table::t '1))) (define gxc#symbol-table:::init! (lambda (_self532_) - (if (let ((__tmp4751 + (if (let ((__tmp4753 (let () (declare (not safe)) (##vector-length _self532_)))) (declare (not safe)) - (##fx< '2 __tmp4751)) + (##fx< '2 __tmp4753)) (begin - (let ((__tmp4752 (make-table 'test: eq?))) + (let ((__tmp4751 + (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##vector-set! _self532_ '1 __tmp4752)) - (let ((__tmp4753 (make-table 'test: eq?))) + (##vector-set! _self532_ '1 __tmp4751)) + (let ((__tmp4752 + (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##vector-set! _self532_ '2 __tmp4753))) + (##vector-set! _self532_ '2 __tmp4752))) (error '"struct-instance-init!: too many arguments for struct" _self532_)))) - (bind-method! gxc#symbol-table::t ':init! gxc#symbol-table:::init! '#f) + (let () + (declare (not safe)) + (bind-method! gxc#symbol-table::t ':init! gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error (lambda (_message406_ _stx407_ . _details408_) (apply gx#raise-syntax-error @@ -69,18 +100,31 @@ (define gxc#module-id->path-string (lambda (_id386_) (let* ((_str388_ - (if (symbol? _id386_) (symbol->string _id386_) _id386_)) - (_len390_ (string-length _str388_)) - (_res392_ (make-string _len390_))) + (if (let () (declare (not safe)) (symbol? _id386_)) + (let () (declare (not safe)) (symbol->string _id386_)) + _id386_)) + (_len390_ + (let () (declare (not safe)) (string-length _str388_))) + (_res392_ (let () (declare (not safe)) (make-string _len390_)))) (let _lp395_ ((_i397_ '0)) (if (fx< _i397_ _len390_) - (let* ((_char399_ (string-ref _str388_ _i397_)) + (let* ((_char399_ + (let () + (declare (not safe)) + (string-ref _str388_ _i397_))) (_xchar401_ - (if (string-index - gxc#module-path-reserved-chars - _char399_) + (if (let () + (declare (not safe)) + (string-index + gxc#module-path-reserved-chars + _char399_)) '#\_ _char399_))) - (string-set! _res392_ _i397_ _xchar401_) - (_lp395_ (fx+ _i397_ '1))) + (let () + (declare (not safe)) + (string-set! _res392_ _i397_ _xchar401_)) + (let ((__tmp4754 + (let () (declare (not safe)) (fx+ _i397_ '1)))) + (declare (not safe)) + (_lp395_ __tmp4754))) _res392_))))))) diff --git a/src/bootstrap/gerbil/compiler/base__1.scm b/src/bootstrap/gerbil/compiler/base__1.scm index 5bf3b4063..7d5a9c934 100644 --- a/src/bootstrap/gerbil/compiler/base__1.scm +++ b/src/bootstrap/gerbil/compiler/base__1.scm @@ -1,112 +1,134 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g4758_| + (define |gxc[1]#_g4783_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g4759_| + (define |gxc[1]#_g4792_| (##structure gx#syntax-quote::t - 'make-symbol-table + 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g4760_| + (define |gxc[1]#_g4794_| (##structure gx#syntax-quote::t - 'symbol-table? + 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g4761_| + (define |gxc[1]#_g4798_| (##structure gx#syntax-quote::t - 'symbol-table-gensyms + 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g4762_| + (define |gxc[1]#_g4800_| (##structure gx#syntax-quote::t - 'symbol-table-bindings + 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g4763_| + (define |gxc[1]#_g4802_| (##structure gx#syntax-quote::t - 'symbol-table-gensyms-set! + 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g4764_| + (define |gxc[1]#_g4804_| (##structure gx#syntax-quote::t - 'symbol-table-bindings-set! + 'make-symbol-table #f (gx#current-expander-context) '())) (begin (define |gxc[:0:]#ast-case| (lambda (_stx46_) - (gx#macro-expand-syntax-case__% _stx46_ 'stx-eq? 'stx-e 'quote))) + (let () + (declare (not safe)) + (gx#macro-expand-syntax-case__% _stx46_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| (lambda (_stx49_) (let* ((_g5276_ (lambda (_g5372_) - (gx#raise-syntax-error '#f '"Bad syntax" _g5372_))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g5372_)))) (_g51380_ (lambda (_g5380_) - (if (gx#stx-pair? _g5380_) - (let ((_e5683_ (gx#syntax-e _g5380_))) + (if (let () (declare (not safe)) (gx#stx-pair? _g5380_)) + (let ((_e5883_ (let () + (declare (not safe)) + (gx#syntax-e _g5380_)))) (let ((_hd5787_ - (let () (declare (not safe)) (##car _e5683_))) - (_tl5890_ - (let () (declare (not safe)) (##cdr _e5683_)))) - (if (gx#stx-pair? _tl5890_) - (let ((_e5993_ (gx#syntax-e _tl5890_))) + (let () (declare (not safe)) (##car _e5883_))) + (_tl5690_ + (let () (declare (not safe)) (##cdr _e5883_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5690_)) + (let ((_e6193_ (let () + (declare (not safe)) + (gx#syntax-e _tl5690_)))) (let ((_hd6097_ (let () (declare (not safe)) - (##car _e5993_))) - (_tl61100_ + (##car _e6193_))) + (_tl59100_ (let () (declare (not safe)) - (##cdr _e5993_)))) - (if (gx#stx-pair/null? _tl61100_) - (let ((_g4754_ (gx#syntax-split-splice - _tl61100_ - '0))) + (##cdr _e6193_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl59100_)) + (let ((_g4755_ (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl59100_ + '0)))) (begin - (let ((_g4755_ (let () + (let ((_g4756_ (let () (declare (not safe)) (if (##values? - _g4754_) + _g4755_) (##vector-length - _g4754_) + _g4755_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g4755_ 2))) + (##fx= _g4756_ 2))) (error "Context expects 2 values" - _g4755_))) + _g4756_))) (let ((_target62103_ (let () (declare (not safe)) - (##vector-ref _g4754_ 0))) + (##vector-ref _g4755_ 0))) (_tl64106_ (let () (declare (not safe)) - (##vector-ref _g4754_ 1)))) - (if (gx#stx-null? _tl64106_) + (##vector-ref _g4755_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl64106_)) (letrec ((_loop65109_ (lambda (_hd63113_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _clause69116_) - (if (gx#stx-pair? _hd63113_) - (let ((_e66119_ (gx#syntax-e _hd63113_))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd63113_)) + (let ((_e66119_ + (let () + (declare (not safe)) + (gx#syntax-e _hd63113_)))) (let ((_lp-hd67123_ (let () (declare (not safe)) @@ -117,58 +139,79 @@ (##cdr _e66119_)))) (_loop65109_ _lp-tl68126_ - (cons _lp-hd67123_ _clause69116_)))) - (let ((_clause70129_ (reverse _clause69116_))) + (let () + (declare (not safe)) + (cons _lp-hd67123_ _clause69116_))))) + (let ((_clause70129_ + (let () + (declare (not safe)) + (reverse _clause69116_)))) ((lambda (_L133_ _L135_) - (if (gx#identifier-list? _L135_) + (if (let () + (declare (not safe)) + (gx#identifier-list? _L135_)) (let* ((_g155172_ (lambda (_g156168_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g156168_))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g156168_)))) (_g154233_ (lambda (_g156176_) - (if (gx#stx-pair/null? _g156176_) - (let ((_g4756_ (gx#syntax-split-splice - _g156176_ - '0))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _g156176_)) + (let ((_g4757_ (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#syntax-split-splice _g156176_ '0)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g4757_ (let () + (let ((_g4758_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g4756_) - (##vector-length _g4756_) + (if (##values? _g4757_) + (##vector-length _g4757_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g4757_ 2))) - (error "Context expects 2 values" _g4757_))) + (##fx= _g4758_ 2))) + (error "Context expects 2 values" _g4758_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target158179_ (let () (declare (not safe)) (##vector-ref - _g4756_ + _g4757_ 0))) (_tl160182_ (let () (declare (not safe)) (##vector-ref - _g4756_ + _g4757_ 1)))) - (if (gx#stx-null? - _tl160182_) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl160182_)) (letrec ((_loop161185_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_hd159189_ _clause165192_) - (if (gx#stx-pair? _hd159189_) - (let ((_e162195_ (gx#syntax-e _hd159189_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd159189_)) + (let ((_e162195_ + (let () + (declare (not safe)) + (gx#syntax-e _hd159189_)))) (let ((_lp-hd163199_ (let () (declare (not safe)) @@ -179,114 +222,205 @@ (##cdr _e162195_)))) (_loop161185_ _lp-tl164202_ - (cons _lp-hd163199_ _clause165192_)))) + (let () + (declare (not safe)) + (cons _lp-hd163199_ _clause165192_))))) (let ((_clause166205_ - (reverse _clause165192_))) + (let () + (declare (not safe)) + (reverse _clause165192_)))) ((lambda (_L209_) (let () - (cons (gx#datum->syntax__0 '#f 'lambda) - (cons (cons (gx#datum->syntax__0 - '#f - '$stx) - '()) - (cons (cons (gx#datum->syntax__0 + (let ((__tmp4770 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'lambda))) + (__tmp4759 + (let ((__tmp4768 + (let ((__tmp4769 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'ast-case) - (cons (gx#datum->syntax__0 '#f '$stx) - (cons _L135_ - (foldr1 (lambda (_g224227_ _g225230_) - (cons _g224227_ _g225230_)) - '() - _L209_)))) - '()))))) + (not safe)) + (gx#datum->syntax__0 '#f '$stx)))) + (declare (not safe)) + (cons __tmp4769 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp4760 + (let ((__tmp4761 + (let ((__tmp4767 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'ast-case))) + (__tmp4762 + (let ((__tmp4766 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '$stx))) + (__tmp4763 + (let ((__tmp4764 + (let ((__tmp4765 + (lambda (_g224227_ _g225230_) + (let () + (declare (not safe)) + (cons _g224227_ + _g225230_))))) + (declare (not safe)) + (foldr1 __tmp4765 '() _L209_)))) + (declare (not safe)) + (cons _L135_ __tmp4764)))) + (declare (not safe)) + (cons __tmp4766 __tmp4763)))) + (declare (not safe)) + (cons __tmp4767 __tmp4762)))) + (declare (not safe)) + (cons __tmp4761 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp4768 __tmp4760)))) + (declare (not safe)) + (cons __tmp4770 __tmp4759)))) _clause166205_)))))) (_loop161185_ _target158179_ '())) (_g155172_ _g156176_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g155172_ _g156176_))))) (_g154233_ - (gx#stx-map1 - (lambda (_clause237_) - (let* ((___stx47084709_ _clause237_) - (_g241268_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx47084709_)))) - (let ((___kont47114712_ - (lambda (_L353_ _L355_) - (cons _L355_ - (cons (cons (gx#datum->syntax__0 + (let ((__tmp4773 + (lambda (_clause237_) + (let* ((___stx47084709_ + _clause237_) + (_g241268_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx47084709_))))) + (let ((___kont47114712_ + (lambda (_L353_ _L355_) + (let ((__tmp4774 + (let ((__tmp4775 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'syntax) - (cons _L353_ '())) - '())))) + (let ((__tmp4777 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'syntax))) + (__tmp4776 + (let () + (declare (not safe)) + (cons _L353_ '())))) + (declare (not safe)) + (cons __tmp4777 __tmp4776)))) + (declare (not safe)) + (cons __tmp4775 '())))) + (declare (not safe)) + (cons _L355_ __tmp4774)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont47134714_ - (lambda (_L305_ _L307_ _L308_) - (cons _L308_ - (cons _L307_ - (cons (cons (gx#datum->syntax__0 + (___kont47134714_ + (lambda (_L305_ + _L307_ + _L308_) + (let ((__tmp4778 + (let ((__tmp4779 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'syntax) - (cons _L305_ '())) - '())))))) + (let ((__tmp4780 + (let ((__tmp4782 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'syntax))) + (__tmp4781 + (let () + (declare (not safe)) + (cons _L305_ '())))) + (declare (not safe)) + (cons __tmp4782 __tmp4781)))) + (declare (not safe)) + (cons __tmp4780 '())))) + (declare (not safe)) + (cons _L307_ __tmp4779)))) + (declare (not safe)) + (cons _L308_ __tmp4778))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? ___stx47084709_) - (let ((_e245333_ - (gx#syntax-e - ___stx47084709_))) - (let ((_tl247340_ - (let () - (declare (not safe)) - (##cdr _e245333_))) - (_hd246337_ - (let () - (declare (not safe)) - (##car _e245333_)))) - (if (gx#stx-pair? - _tl247340_) - (let ((_e248343_ + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx47084709_)) + (let ((_e247333_ + (let () + (declare + (not safe)) (gx#syntax-e - _tl247340_))) - (let ((_tl250350_ - (let () + ___stx47084709_)))) + (let ((_tl245340_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e248343_))) - (_hd249347_ - (let () (declare (not safe)) (##car _e248343_)))) - (if (gx#stx-null? _tl250350_) - (___kont47114712_ _hd249347_ _hd246337_) - (if (gx#stx-pair? _tl250350_) - (let ((_e260295_ (gx#syntax-e _tl250350_))) - (let ((_tl262302_ - (let () - (declare (not safe)) - (##cdr _e260295_))) - (_hd261299_ - (let () - (declare (not safe)) - (##car _e260295_)))) - (if (gx#stx-null? _tl262302_) - (___kont47134714_ - _hd261299_ - _hd249347_ - _hd246337_) - (_g241268_)))) - (_g241268_))))) - (_g241268_)))) + (not safe)) + (##cdr _e247333_))) + (_hd246337_ + (let () (declare (not safe)) (##car _e247333_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl245340_)) + (let ((_e250343_ + (let () + (declare (not safe)) + (gx#syntax-e _tl245340_)))) + (let ((_tl248350_ + (let () (declare (not safe)) (##cdr _e250343_))) + (_hd249347_ + (let () (declare (not safe)) (##car _e250343_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl248350_)) + (___kont47114712_ _hd249347_ _hd246337_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl248350_)) + (let ((_e262295_ + (let () + (declare (not safe)) + (gx#syntax-e _tl248350_)))) + (let ((_tl260302_ + (let () + (declare (not safe)) + (##cdr _e262295_))) + (_hd261299_ + (let () + (declare (not safe)) + (##car _e262295_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl260302_)) + (___kont47134714_ + _hd261299_ + _hd249347_ + _hd246337_) + (let () + (declare (not safe)) + (_g241268_))))) + (let () (declare (not safe)) (_g241268_)))))) + (let () (declare (not safe)) (_g241268_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g241268_))))) - (foldr1 (lambda (_g371374_ _g372377_) - (cons _g371374_ _g372377_)) - '() - _L133_)))) + (let () + (declare (not safe)) + (_g241268_))))))) + (__tmp4771 + (let ((__tmp4772 + (lambda (_g371374_ _g372377_) + (let () + (declare (not safe)) + (cons _g371374_ + _g372377_))))) + (declare (not safe)) + (foldr1 __tmp4772 '() _L133_)))) + (declare (not safe)) + (gx#stx-map1 __tmp4773 __tmp4771)))) (_g5276_ _g5380_))) _clause70129_ _hd6097_)))))) @@ -302,17 +436,49 @@ (define |gxc[:0:]#symbol-table| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g4758_| + |gxc[1]#_g4783_| 'expander-identifiers: - (cons '#f - (cons |gxc[1]#_g4758_| - (cons |gxc[1]#_g4759_| - (cons |gxc[1]#_g4760_| - (cons (cons |gxc[1]#_g4761_| - (cons |gxc[1]#_g4762_| '())) - (cons (cons |gxc[1]#_g4763_| - (cons |gxc[1]#_g4764_| '())) - '())))))) + (let ((__tmp4784 + (let ((__tmp4805 |gxc[1]#_g4783_|) + (__tmp4785 + (let ((__tmp4803 |gxc[1]#_g4804_|) + (__tmp4786 + (let ((__tmp4801 |gxc[1]#_g4802_|) + (__tmp4787 + (let ((__tmp4795 + (let ((__tmp4799 |gxc[1]#_g4800_|) + (__tmp4796 + (let ((__tmp4797 + |gxc[1]#_g4798_|)) + (declare (not safe)) + (cons __tmp4797 '())))) + (declare (not safe)) + (cons __tmp4799 __tmp4796))) + (__tmp4788 + (let ((__tmp4789 + (let ((__tmp4793 + |gxc[1]#_g4794_|) + (__tmp4790 + (let ((__tmp4791 + |gxc[1]#_g4792_|)) + (declare (not safe)) + (cons __tmp4791 + '())))) + (declare (not safe)) + (cons __tmp4793 + __tmp4790)))) + (declare (not safe)) + (cons __tmp4789 '())))) + (declare (not safe)) + (cons __tmp4795 __tmp4788)))) + (declare (not safe)) + (cons __tmp4801 __tmp4787)))) + (declare (not safe)) + (cons __tmp4803 __tmp4786)))) + (declare (not safe)) + (cons __tmp4805 __tmp4785)))) + (declare (not safe)) + (cons '#f __tmp4784)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gxc#symbol-table::t diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index 9ceee2756..5852ddc8d 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 u32vector? 0 u32vector?) (0 u16vector? 0 u16vector?) (0 f64vector? 0 f64vector?) - (0 s16vector? 0 s16vector?) - (0 s8vector? 0 s8vector?) - (0 s32vector? 0 s32vector?) (0 s64vector? 0 s64vector?) + (0 s32vector? 0 s32vector?) + (0 s8vector? 0 s8vector?) + (0 u8vector? 0 u8vector?) (0 f32vector? 0 f32vector?) - (0 u8vector? 0 u8vector?))) + (0 s16vector? 0 s16vector?) + (0 u64vector? 0 u64vector?))) (%#export #t) (%#define-runtime current-compile-methods gxc#current-compile-methods) (%#define-runtime current-compile-lift gxc#current-compile-lift) @@ -211,6 +211,9 @@ namespace: gxc gxc#generate-runtime-simple-let) (%#define-runtime generate-runtime-quote% gxc#generate-runtime-quote%) (%#define-runtime generate-runtime-call% gxc#generate-runtime-call%) + (%#define-runtime + generate-runtime-call-unchecked% + gxc#generate-runtime-call-unchecked%) (%#define-runtime generate-runtime-if% gxc#generate-runtime-if%) (%#define-runtime generate-runtime-ref% gxc#generate-runtime-ref%) (%#define-runtime generate-runtime-setq% gxc#generate-runtime-setq%) diff --git a/src/bootstrap/gerbil/compiler/compile.ssxi.ss b/src/bootstrap/gerbil/compiler/compile.ssxi.ss index f98d33f1c..4f9eb3025 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/compile.ssxi.ss @@ -84,6 +84,7 @@ package: gerbil/compiler (declare-type gxc#generate-runtime-simple-let (@lambda 4 #f)) (declare-type gxc#generate-runtime-quote% (@lambda 1 #f)) (declare-type gxc#generate-runtime-call% (@lambda 1 #f)) + (declare-type gxc#generate-runtime-call-unchecked% (@lambda 1 #f)) (declare-type gxc#generate-runtime-if% (@lambda 1 #f)) (declare-type gxc#generate-runtime-ref% (@lambda 1 #f)) (declare-type gxc#generate-runtime-setq% (@lambda 1 #f)) @@ -128,7 +129,6 @@ package: gerbil/compiler gxc#meta-state-blocks-set! (@struct-setf gxc#meta-state::t 3 #f)) (declare-type gxc#meta-state:::init! (@lambda 2 #f)) - (declare-method gxc#meta-state::t :init! gxc#meta-state:::init! #f) (declare-type gxc#meta-state-block::t (@struct-type gxc#meta-state-block::t #f 4 #f ())) diff --git a/src/bootstrap/gerbil/compiler/compile__0.scm b/src/bootstrap/gerbil/compiler/compile__0.scm index 54ec5f759..2b3cd0e12 100644 --- a/src/bootstrap/gerbil/compiler/compile__0.scm +++ b/src/bootstrap/gerbil/compiler/compile__0.scm @@ -1,11107 +1,17951 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/compile::timestamp 1695199291) + (define gerbil/compiler/compile::timestamp 1695292405) (begin - (define gxc#current-compile-methods (make-parameter '#f)) - (define gxc#current-compile-lift (make-parameter '#f)) - (define gxc#current-compile-marks (make-parameter '#f)) - (define gxc#current-compile-identifiers (make-parameter '#f)) - (define gxc#current-compile-boolean-context (make-parameter '#f)) + (define gxc#current-compile-methods + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-lift + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-marks + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-identifiers + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-boolean-context + (let () (declare (not safe)) (make-parameter '#f))) (define gxc#make-bound-identifier-table (lambda () - (letrec ((_hash-e15356_ - (lambda (_id15358_) (symbol-hash (gx#stx-e _id15358_))))) - (make-table 'test: gx#bound-identifier=? 'hash: _hash-e15356_)))) + (letrec ((_hash-e15609_ + (lambda (_id15611_) + (let ((__tmp17006 + (let () (declare (not safe)) (gx#stx-e _id15611_)))) + (declare (not safe)) + (symbol-hash __tmp17006))))) + (let () + (declare (not safe)) + (make-table 'test: gx#bound-identifier=? 'hash: _hash-e15609_))))) (define gxc#compile-e - (lambda (_stx15311_ . _args15312_) - (let* ((_g1531415324_ - (lambda (_g1531515321_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1531515321_))) - (_g1531315352_ - (lambda (_g1531515327_) - (if (gx#stx-pair? _g1531515327_) - (let ((_e1531715329_ (gx#stx-e _g1531515327_))) - (let ((_hd1531815332_ - (let () - (declare (not safe)) - (##car _e1531715329_))) - (_tl1531915334_ - (let () - (declare (not safe)) - (##cdr _e1531715329_)))) - ((lambda (_L15337_) - (let ((_$e15347_ - (table-ref - (gxc#current-compile-methods) - (gx#stx-e _L15337_) - '#f))) - (if _$e15347_ - ((lambda (_method15350_) - (apply _method15350_ - _stx15311_ - _args15312_)) - _$e15347_) - (gxc#raise-compile-error - '"Cannot compile; missing method" - _stx15311_ - _L15337_)))) - _hd1531815332_))) - (_g1531415324_ _g1531515327_))))) - (_g1531315352_ _stx15311_)))) + (lambda (_stx15564_ . _args15565_) + (let* ((_g1556715577_ + (lambda (_g1556815574_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1556815574_)))) + (_g1556615605_ + (lambda (_g1556815580_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1556815580_)) + (let ((_e1557215582_ + (let () + (declare (not safe)) + (gx#stx-e _g1556815580_)))) + (let ((_hd1557115585_ + (let () + (declare (not safe)) + (##car _e1557215582_))) + (_tl1557015587_ + (let () + (declare (not safe)) + (##cdr _e1557215582_)))) + ((lambda (_L15590_) + (let ((_$e15600_ + (let ((__tmp17008 + (gxc#current-compile-methods)) + (__tmp17007 + (let () + (declare (not safe)) + (gx#stx-e _L15590_)))) + (declare (not safe)) + (table-ref __tmp17008 __tmp17007 '#f)))) + (if _$e15600_ + ((lambda (_method15603_) + (apply _method15603_ + _stx15564_ + _args15565_)) + _$e15600_) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Cannot compile; missing method" + _stx15564_ + _L15590_))))) + _hd1557115585_))) + (let () + (declare (not safe)) + (_g1556715577_ _g1556815580_)))))) + (declare (not safe)) + (_g1556615605_ _stx15564_)))) (define gxc#&void-expression - (make-promise - (lambda () - (let ((_tbl15308_ (make-table 'test: eq?))) - (table-set! _tbl15308_ '%#begin-annotation void) - (table-set! _tbl15308_ '%#lambda void) - (table-set! _tbl15308_ '%#case-lambda void) - (table-set! _tbl15308_ '%#let-values void) - (table-set! _tbl15308_ '%#letrec-values void) - (table-set! _tbl15308_ '%#letrec*-values void) - (table-set! _tbl15308_ '%#quote void) - (table-set! _tbl15308_ '%#quote-syntax void) - (table-set! _tbl15308_ '%#call void) - (table-set! _tbl15308_ '%#if void) - (table-set! _tbl15308_ '%#ref void) - (table-set! _tbl15308_ '%#set! void) - (table-set! _tbl15308_ '%#struct-instance? void) - (table-set! _tbl15308_ '%#struct-direct-instance? void) - (table-set! _tbl15308_ '%#struct-ref void) - (table-set! _tbl15308_ '%#struct-set! void) - (table-set! _tbl15308_ '%#struct-direct-ref void) - (table-set! _tbl15308_ '%#struct-direct-set! void) - (table-set! _tbl15308_ '%#struct-unchecked-ref void) - (table-set! _tbl15308_ '%#struct-unchecked-set! void) - _tbl15308_)))) + (let ((__tmp17009 + (lambda () + (let ((_tbl15561_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#begin-annotation void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#lambda void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#case-lambda void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#let-values void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#letrec-values void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#letrec*-values void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#quote void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#quote-syntax void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#call void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#call-unchecked void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#if void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#ref void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#set! void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#struct-instance? void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#struct-direct-instance? void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#struct-ref void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#struct-set! void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#struct-direct-ref void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#struct-direct-set! void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#struct-unchecked-ref void)) + (let () + (declare (not safe)) + (table-set! _tbl15561_ '%#struct-unchecked-set! void)) + _tbl15561_)))) + (declare (not safe)) + (make-promise __tmp17009))) (define gxc#&void-special-form - (make-promise - (lambda () - (let ((_tbl15304_ (make-table 'test: eq?))) - (table-set! _tbl15304_ '%#begin void) - (table-set! _tbl15304_ '%#begin-syntax void) - (table-set! _tbl15304_ '%#begin-foreign void) - (table-set! _tbl15304_ '%#module void) - (table-set! _tbl15304_ '%#import void) - (table-set! _tbl15304_ '%#export void) - (table-set! _tbl15304_ '%#provide void) - (table-set! _tbl15304_ '%#extern void) - (table-set! _tbl15304_ '%#define-values void) - (table-set! _tbl15304_ '%#define-syntax void) - (table-set! _tbl15304_ '%#define-alias void) - (table-set! _tbl15304_ '%#declare void) - _tbl15304_)))) + (let ((__tmp17010 + (lambda () + (let ((_tbl15557_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#begin void)) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#begin-syntax void)) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#begin-foreign void)) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#module void)) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#import void)) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#export void)) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#provide void)) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#extern void)) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#define-values void)) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#define-syntax void)) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#define-alias void)) + (let () + (declare (not safe)) + (table-set! _tbl15557_ '%#declare void)) + _tbl15557_)))) + (declare (not safe)) + (make-promise __tmp17010))) (define gxc#&void - (make-promise - (lambda () - (let ((_tbl15300_ (make-table 'test: eq?))) - (hash-copy! _tbl15300_ (force gxc#&void-special-form)) - (hash-copy! _tbl15300_ (force gxc#&void-expression)) - _tbl15300_)))) + (let ((__tmp17011 + (lambda () + (let ((_tbl15553_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp17012 + (let () + (declare (not safe)) + (force gxc#&void-special-form)))) + (declare (not safe)) + (hash-copy! _tbl15553_ __tmp17012)) + (let ((__tmp17013 + (let () + (declare (not safe)) + (force gxc#&void-expression)))) + (declare (not safe)) + (hash-copy! _tbl15553_ __tmp17013)) + _tbl15553_)))) + (declare (not safe)) + (make-promise __tmp17011))) (define gxc#&false-expression - (make-promise - (lambda () - (let ((_tbl15296_ (make-table 'test: eq?))) - (table-set! _tbl15296_ '%#begin-annotation false) - (table-set! _tbl15296_ '%#lambda false) - (table-set! _tbl15296_ '%#case-lambda false) - (table-set! _tbl15296_ '%#let-values false) - (table-set! _tbl15296_ '%#letrec-values false) - (table-set! _tbl15296_ '%#letrec*-values false) - (table-set! _tbl15296_ '%#quote false) - (table-set! _tbl15296_ '%#quote-syntax false) - (table-set! _tbl15296_ '%#call false) - (table-set! _tbl15296_ '%#if false) - (table-set! _tbl15296_ '%#ref false) - (table-set! _tbl15296_ '%#set! false) - (table-set! _tbl15296_ '%#struct-instance? false) - (table-set! _tbl15296_ '%#struct-direct-instance? false) - (table-set! _tbl15296_ '%#struct-ref false) - (table-set! _tbl15296_ '%#struct-set! false) - (table-set! _tbl15296_ '%#struct-direct-ref false) - (table-set! _tbl15296_ '%#struct-direct-set! false) - (table-set! _tbl15296_ '%#struct-unchecked-ref false) - (table-set! _tbl15296_ '%#struct-unchecked-set! false) - _tbl15296_)))) + (let ((__tmp17014 + (lambda () + (let ((_tbl15549_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#begin-annotation false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#lambda false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#case-lambda false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#let-values false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#letrec-values false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#letrec*-values false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#quote false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#quote-syntax false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#call false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#call-unchecked false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#if false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#ref false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#set! false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#struct-instance? false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#struct-direct-instance? false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#struct-ref false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#struct-set! false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#struct-direct-ref false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#struct-direct-set! false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#struct-unchecked-ref false)) + (let () + (declare (not safe)) + (table-set! _tbl15549_ '%#struct-unchecked-set! false)) + _tbl15549_)))) + (declare (not safe)) + (make-promise __tmp17014))) (define gxc#&false-special-form - (make-promise - (lambda () - (let ((_tbl15292_ (make-table 'test: eq?))) - (table-set! _tbl15292_ '%#begin false) - (table-set! _tbl15292_ '%#begin-syntax false) - (table-set! _tbl15292_ '%#begin-foreign false) - (table-set! _tbl15292_ '%#module false) - (table-set! _tbl15292_ '%#import false) - (table-set! _tbl15292_ '%#export false) - (table-set! _tbl15292_ '%#provide false) - (table-set! _tbl15292_ '%#extern false) - (table-set! _tbl15292_ '%#define-values false) - (table-set! _tbl15292_ '%#define-syntax false) - (table-set! _tbl15292_ '%#define-alias false) - (table-set! _tbl15292_ '%#declare false) - _tbl15292_)))) + (let ((__tmp17015 + (lambda () + (let ((_tbl15545_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#begin false)) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#begin-syntax false)) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#begin-foreign false)) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#module false)) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#import false)) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#export false)) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#provide false)) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#extern false)) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#define-values false)) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#define-syntax false)) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#define-alias false)) + (let () + (declare (not safe)) + (table-set! _tbl15545_ '%#declare false)) + _tbl15545_)))) + (declare (not safe)) + (make-promise __tmp17015))) (define gxc#&false - (make-promise - (lambda () - (let ((_tbl15288_ (make-table 'test: eq?))) - (hash-copy! _tbl15288_ (force gxc#&false-special-form)) - (hash-copy! _tbl15288_ (force gxc#&false-expression)) - _tbl15288_)))) + (let ((__tmp17016 + (lambda () + (let ((_tbl15541_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp17017 + (let () + (declare (not safe)) + (force gxc#&false-special-form)))) + (declare (not safe)) + (hash-copy! _tbl15541_ __tmp17017)) + (let ((__tmp17018 + (let () + (declare (not safe)) + (force gxc#&false-expression)))) + (declare (not safe)) + (hash-copy! _tbl15541_ __tmp17018)) + _tbl15541_)))) + (declare (not safe)) + (make-promise __tmp17016))) (define gxc#&collect-bindings - (make-promise - (lambda () - (let ((_tbl15284_ (make-table 'test: eq?))) - (hash-copy! _tbl15284_ (force gxc#&void-expression)) - (hash-copy! _tbl15284_ (force gxc#&void-special-form)) - (table-set! _tbl15284_ '%#begin gxc#collect-begin%) - (table-set! _tbl15284_ '%#begin-syntax gxc#collect-begin-syntax%) - (table-set! _tbl15284_ '%#module gxc#collect-module%) - (table-set! - _tbl15284_ - '%#define-values - gxc#collect-bindings-define-values%) - (table-set! - _tbl15284_ - '%#define-syntax - gxc#collect-bindings-define-syntax%) - _tbl15284_)))) + (let ((__tmp17019 + (lambda () + (let ((_tbl15537_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp17020 + (let () + (declare (not safe)) + (force gxc#&void-expression)))) + (declare (not safe)) + (hash-copy! _tbl15537_ __tmp17020)) + (let ((__tmp17021 + (let () + (declare (not safe)) + (force gxc#&void-special-form)))) + (declare (not safe)) + (hash-copy! _tbl15537_ __tmp17021)) + (let () + (declare (not safe)) + (table-set! _tbl15537_ '%#begin gxc#collect-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl15537_ + '%#begin-syntax + gxc#collect-begin-syntax%)) + (let () + (declare (not safe)) + (table-set! _tbl15537_ '%#module gxc#collect-module%)) + (let () + (declare (not safe)) + (table-set! + _tbl15537_ + '%#define-values + gxc#collect-bindings-define-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15537_ + '%#define-syntax + gxc#collect-bindings-define-syntax%)) + _tbl15537_)))) + (declare (not safe)) + (make-promise __tmp17019))) (define gxc#apply-collect-bindings - (lambda (_stx15277_ . _args15279_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx15277_ _args15279_)) - gxc#current-compile-methods - (force gxc#&collect-bindings)))) + (lambda (_stx15530_ . _args15532_) + (let ((__tmp17023 + (lambda () (apply gxc#compile-e _stx15530_ _args15532_))) + (__tmp17022 + (let () (declare (not safe)) (force gxc#&collect-bindings)))) + (declare (not safe)) + (call-with-parameters + __tmp17023 + gxc#current-compile-methods + __tmp17022)))) (define gxc#&lift-modules - (make-promise - (lambda () - (let ((_tbl15274_ (make-table 'test: eq?))) - (hash-copy! _tbl15274_ (force gxc#&void)) - (table-set! _tbl15274_ '%#begin gxc#collect-begin%) - (table-set! _tbl15274_ '%#module gxc#lift-modules-module%) - _tbl15274_)))) + (let ((__tmp17024 + (lambda () + (let ((_tbl15527_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp17025 + (let () (declare (not safe)) (force gxc#&void)))) + (declare (not safe)) + (hash-copy! _tbl15527_ __tmp17025)) + (let () + (declare (not safe)) + (table-set! _tbl15527_ '%#begin gxc#collect-begin%)) + (let () + (declare (not safe)) + (table-set! _tbl15527_ '%#module gxc#lift-modules-module%)) + _tbl15527_)))) + (declare (not safe)) + (make-promise __tmp17024))) (define gxc#apply-lift-modules - (lambda (_stx15267_ . _args15269_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx15267_ _args15269_)) - gxc#current-compile-methods - (force gxc#&lift-modules)))) + (lambda (_stx15520_ . _args15522_) + (let ((__tmp17027 + (lambda () (apply gxc#compile-e _stx15520_ _args15522_))) + (__tmp17026 + (let () (declare (not safe)) (force gxc#&lift-modules)))) + (declare (not safe)) + (call-with-parameters + __tmp17027 + gxc#current-compile-methods + __tmp17026)))) (define gxc#&find-runtime-code - (make-promise - (lambda () - (let ((_tbl15264_ (make-table 'test: eq?))) - (table-set! _tbl15264_ '%#begin gxc#find-runtime-begin%) - (table-set! _tbl15264_ '%#begin-syntax false) - (table-set! _tbl15264_ '%#begin-foreign true) - (table-set! _tbl15264_ '%#begin-annotation true) - (table-set! _tbl15264_ '%#module false) - (table-set! _tbl15264_ '%#import false) - (table-set! _tbl15264_ '%#export false) - (table-set! _tbl15264_ '%#provide false) - (table-set! _tbl15264_ '%#extern false) - (table-set! _tbl15264_ '%#define-values true) - (table-set! _tbl15264_ '%#define-syntax false) - (table-set! _tbl15264_ '%#define-alias false) - (table-set! _tbl15264_ '%#declare false) - (table-set! _tbl15264_ '%#lambda true) - (table-set! _tbl15264_ '%#case-lambda true) - (table-set! _tbl15264_ '%#let-values true) - (table-set! _tbl15264_ '%#letrec-values true) - (table-set! _tbl15264_ '%#letrec*-values true) - (table-set! _tbl15264_ '%#quote true) - (table-set! _tbl15264_ '%#call true) - (table-set! _tbl15264_ '%#if true) - (table-set! _tbl15264_ '%#ref true) - (table-set! _tbl15264_ '%#set! true) - (table-set! _tbl15264_ '%#struct-instance? true) - (table-set! _tbl15264_ '%#struct-direct-instance? true) - (table-set! _tbl15264_ '%#struct-ref true) - (table-set! _tbl15264_ '%#struct-set! true) - (table-set! _tbl15264_ '%#struct-direct-ref true) - (table-set! _tbl15264_ '%#struct-direct-set! true) - (table-set! _tbl15264_ '%#struct-unchecked-ref true) - (table-set! _tbl15264_ '%#struct-unchecked-set! true) - _tbl15264_)))) + (let ((__tmp17028 + (lambda () + (let ((_tbl15517_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#begin gxc#find-runtime-begin%)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#begin-syntax false)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#begin-foreign true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#begin-annotation true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#module false)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#import false)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#export false)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#provide false)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#extern false)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#define-values true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#define-syntax false)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#define-alias false)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#declare false)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#lambda true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#case-lambda true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#let-values true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#letrec-values true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#letrec*-values true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#quote true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#call true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#call-unchecked true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#if true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#ref true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#set! true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#struct-instance? true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#struct-direct-instance? true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#struct-ref true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#struct-set! true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#struct-direct-ref true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#struct-direct-set! true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#struct-unchecked-ref true)) + (let () + (declare (not safe)) + (table-set! _tbl15517_ '%#struct-unchecked-set! true)) + _tbl15517_)))) + (declare (not safe)) + (make-promise __tmp17028))) (define gxc#apply-find-runtime-code - (lambda (_stx15257_ . _args15259_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx15257_ _args15259_)) - gxc#current-compile-methods - (force gxc#&find-runtime-code)))) + (lambda (_stx15510_ . _args15512_) + (let ((__tmp17030 + (lambda () (apply gxc#compile-e _stx15510_ _args15512_))) + (__tmp17029 + (let () (declare (not safe)) (force gxc#&find-runtime-code)))) + (declare (not safe)) + (call-with-parameters + __tmp17030 + gxc#current-compile-methods + __tmp17029)))) (define gxc#&find-lambda-expression - (make-promise - (lambda () - (let ((_tbl15254_ (make-table 'test: eq?))) - (hash-copy! _tbl15254_ (force gxc#&false)) - (table-set! _tbl15254_ '%#begin gxc#find-lambda-expression-begin%) - (table-set! - _tbl15254_ - '%#begin-annotation - gxc#find-lambda-expression-begin-annotation%) - (table-set! _tbl15254_ '%#lambda values) - (table-set! _tbl15254_ '%#case-lambda values) - (table-set! - _tbl15254_ - '%#let-values - gxc#find-lambda-expression-let-values%) - (table-set! - _tbl15254_ - '%#letrec-values - gxc#find-lambda-expression-let-values%) - (table-set! - _tbl15254_ - '%#letrec*-values - gxc#find-lambda-expression-let-values%) - _tbl15254_)))) + (let ((__tmp17031 + (lambda () + (let ((_tbl15507_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp17032 + (let () (declare (not safe)) (force gxc#&false)))) + (declare (not safe)) + (hash-copy! _tbl15507_ __tmp17032)) + (let () + (declare (not safe)) + (table-set! + _tbl15507_ + '%#begin + gxc#find-lambda-expression-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl15507_ + '%#begin-annotation + gxc#find-lambda-expression-begin-annotation%)) + (let () + (declare (not safe)) + (table-set! _tbl15507_ '%#lambda values)) + (let () + (declare (not safe)) + (table-set! _tbl15507_ '%#case-lambda values)) + (let () + (declare (not safe)) + (table-set! + _tbl15507_ + '%#let-values + gxc#find-lambda-expression-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15507_ + '%#letrec-values + gxc#find-lambda-expression-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15507_ + '%#letrec*-values + gxc#find-lambda-expression-let-values%)) + _tbl15507_)))) + (declare (not safe)) + (make-promise __tmp17031))) (define gxc#apply-find-lambda-expression - (lambda (_stx15247_ . _args15249_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx15247_ _args15249_)) - gxc#current-compile-methods - (force gxc#&find-lambda-expression)))) + (lambda (_stx15500_ . _args15502_) + (let ((__tmp17034 + (lambda () (apply gxc#compile-e _stx15500_ _args15502_))) + (__tmp17033 + (let () + (declare (not safe)) + (force gxc#&find-lambda-expression)))) + (declare (not safe)) + (call-with-parameters + __tmp17034 + gxc#current-compile-methods + __tmp17033)))) (define gxc#&count-values - (make-promise - (lambda () - (let ((_tbl15244_ (make-table 'test: eq?))) - (hash-copy! _tbl15244_ (force gxc#&false-expression)) - (table-set! _tbl15244_ '%#begin gxc#count-values-begin%) - (table-set! - _tbl15244_ - '%#begin-annotation - gxc#count-values-begin-annotation%) - (table-set! _tbl15244_ '%#lambda gxc#count-values-single%) - (table-set! _tbl15244_ '%#case-lambda gxc#count-values-single%) - (table-set! _tbl15244_ '%#let-values gxc#count-values-let-values%) - (table-set! - _tbl15244_ - '%#letrec-values - gxc#count-values-let-values%) - (table-set! - _tbl15244_ - '%#letrec*-values - gxc#count-values-let-values%) - (table-set! _tbl15244_ '%#quote gxc#count-values-single%) - (table-set! _tbl15244_ '%#call gxc#count-values-call%) - (table-set! _tbl15244_ '%#if gxc#count-values-if%) - _tbl15244_)))) + (let ((__tmp17035 + (lambda () + (let ((_tbl15497_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp17036 + (let () + (declare (not safe)) + (force gxc#&false-expression)))) + (declare (not safe)) + (hash-copy! _tbl15497_ __tmp17036)) + (let () + (declare (not safe)) + (table-set! _tbl15497_ '%#begin gxc#count-values-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl15497_ + '%#begin-annotation + gxc#count-values-begin-annotation%)) + (let () + (declare (not safe)) + (table-set! _tbl15497_ '%#lambda gxc#count-values-single%)) + (let () + (declare (not safe)) + (table-set! + _tbl15497_ + '%#case-lambda + gxc#count-values-single%)) + (let () + (declare (not safe)) + (table-set! + _tbl15497_ + '%#let-values + gxc#count-values-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15497_ + '%#letrec-values + gxc#count-values-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15497_ + '%#letrec*-values + gxc#count-values-let-values%)) + (let () + (declare (not safe)) + (table-set! _tbl15497_ '%#quote gxc#count-values-single%)) + (let () + (declare (not safe)) + (table-set! _tbl15497_ '%#call gxc#count-values-call%)) + (let () + (declare (not safe)) + (table-set! + _tbl15497_ + '%#call-unchecked + gxc#count-values-call%)) + (let () + (declare (not safe)) + (table-set! _tbl15497_ '%#if gxc#count-values-if%)) + _tbl15497_)))) + (declare (not safe)) + (make-promise __tmp17035))) (define gxc#apply-count-values - (lambda (_stx15237_ . _args15239_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx15237_ _args15239_)) - gxc#current-compile-methods - (force gxc#&count-values)))) + (lambda (_stx15490_ . _args15492_) + (let ((__tmp17038 + (lambda () (apply gxc#compile-e _stx15490_ _args15492_))) + (__tmp17037 + (let () (declare (not safe)) (force gxc#&count-values)))) + (declare (not safe)) + (call-with-parameters + __tmp17038 + gxc#current-compile-methods + __tmp17037)))) (define gxc#&generate-runtime-empty - (make-promise - (lambda () - (let ((_tbl15234_ (make-table 'test: eq?))) - (table-set! _tbl15234_ '%#begin gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#begin-syntax gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#begin-foreign gxc#generate-runtime-empty) - (table-set! - _tbl15234_ - '%#begin-annotation - gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#module gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#import gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#export gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#provide gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#extern gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#define-values gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#define-syntax gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#define-alias gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#declare gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#lambda gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#case-lambda gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#let-values gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#letrec-values gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#letrec*-values gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#quote gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#call gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#if gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#ref gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#set! gxc#generate-runtime-empty) - (table-set! - _tbl15234_ - '%#struct-instance? - gxc#generate-runtime-empty) - (table-set! - _tbl15234_ - '%#struct-direct-instance? - gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#struct-ref gxc#generate-runtime-empty) - (table-set! _tbl15234_ '%#struct-set! gxc#generate-runtime-empty) - (table-set! - _tbl15234_ - '%#struct-direct-ref - gxc#generate-runtime-empty) - (table-set! - _tbl15234_ - '%#struct-direct-set! - gxc#generate-runtime-empty) - (table-set! - _tbl15234_ - '%#struct-unchecked-ref - gxc#generate-runtime-empty) - (table-set! - _tbl15234_ - '%#struct-unchecked-set! - gxc#generate-runtime-empty) - _tbl15234_)))) + (let ((__tmp17039 + (lambda () + (let ((_tbl15487_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! _tbl15487_ '%#begin gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#begin-syntax + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#begin-foreign + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#begin-annotation + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#module + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#import + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#export + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#provide + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#extern + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#define-values + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#define-syntax + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#define-alias + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#declare + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#lambda + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#case-lambda + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#let-values + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#letrec-values + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#letrec*-values + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! _tbl15487_ '%#quote gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! _tbl15487_ '%#call gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#call-unchecked + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! _tbl15487_ '%#if gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! _tbl15487_ '%#ref gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! _tbl15487_ '%#set! gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#struct-instance? + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#struct-direct-instance? + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#struct-ref + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#struct-set! + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#struct-direct-ref + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#struct-direct-set! + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#struct-unchecked-ref + gxc#generate-runtime-empty)) + (let () + (declare (not safe)) + (table-set! + _tbl15487_ + '%#struct-unchecked-set! + gxc#generate-runtime-empty)) + _tbl15487_)))) + (declare (not safe)) + (make-promise __tmp17039))) (define gxc#&generate-loader - (make-promise - (lambda () - (let ((_tbl15230_ (make-table 'test: eq?))) - (hash-copy! _tbl15230_ (force gxc#&generate-runtime-empty)) - (table-set! _tbl15230_ '%#begin gxc#generate-runtime-begin%) - (table-set! - _tbl15230_ - '%#import - gxc#generate-runtime-loader-import%) - _tbl15230_)))) + (let ((__tmp17040 + (lambda () + (let ((_tbl15483_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp17041 + (let () + (declare (not safe)) + (force gxc#&generate-runtime-empty)))) + (declare (not safe)) + (hash-copy! _tbl15483_ __tmp17041)) + (let () + (declare (not safe)) + (table-set! + _tbl15483_ + '%#begin + gxc#generate-runtime-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl15483_ + '%#import + gxc#generate-runtime-loader-import%)) + _tbl15483_)))) + (declare (not safe)) + (make-promise __tmp17040))) (define gxc#apply-generate-loader - (lambda (_stx15223_ . _args15225_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx15223_ _args15225_)) - gxc#current-compile-methods - (force gxc#&generate-loader)))) + (lambda (_stx15476_ . _args15478_) + (let ((__tmp17043 + (lambda () (apply gxc#compile-e _stx15476_ _args15478_))) + (__tmp17042 + (let () (declare (not safe)) (force gxc#&generate-loader)))) + (declare (not safe)) + (call-with-parameters + __tmp17043 + gxc#current-compile-methods + __tmp17042)))) (define gxc#&generate-runtime - (make-promise - (lambda () - (let ((_tbl15220_ (make-table 'test: eq?))) - (hash-copy! _tbl15220_ (force gxc#&generate-runtime-empty)) - (table-set! _tbl15220_ '%#begin gxc#generate-runtime-begin%) - (table-set! - _tbl15220_ - '%#begin-foreign - gxc#generate-runtime-begin-foreign%) - (table-set! - _tbl15220_ - '%#begin-annotation - gxc#generate-runtime-begin-annotation%) - (table-set! - _tbl15220_ - '%#define-values - gxc#generate-runtime-define-values%) - (table-set! _tbl15220_ '%#declare gxc#generate-runtime-declare%) - (table-set! _tbl15220_ '%#lambda gxc#generate-runtime-lambda%) - (table-set! - _tbl15220_ - '%#case-lambda - gxc#generate-runtime-case-lambda%) - (table-set! - _tbl15220_ - '%#let-values - gxc#generate-runtime-let-values%) - (table-set! - _tbl15220_ - '%#letrec-values - gxc#generate-runtime-letrec-values%) - (table-set! - _tbl15220_ - '%#letrec*-values - gxc#generate-runtime-letrec*-values%) - (table-set! _tbl15220_ '%#quote gxc#generate-runtime-quote%) - (table-set! - _tbl15220_ - '%#quote-syntax - gxc#generate-runtime-quote-syntax%) - (table-set! _tbl15220_ '%#call gxc#generate-runtime-call%) - (table-set! _tbl15220_ '%#if gxc#generate-runtime-if%) - (table-set! _tbl15220_ '%#ref gxc#generate-runtime-ref%) - (table-set! _tbl15220_ '%#set! gxc#generate-runtime-setq%) - (table-set! - _tbl15220_ - '%#struct-instance? - gxc#generate-runtime-struct-instancep%) - (table-set! - _tbl15220_ - '%#struct-direct-instance? - gxc#generate-runtime-struct-direct-instancep%) - (table-set! - _tbl15220_ - '%#struct-ref - gxc#generate-runtime-struct-ref%) - (table-set! - _tbl15220_ - '%#struct-set! - gxc#generate-runtime-struct-setq%) - (table-set! - _tbl15220_ - '%#struct-direct-ref - gxc#generate-runtime-struct-direct-ref%) - (table-set! - _tbl15220_ - '%#struct-direct-set! - gxc#generate-runtime-struct-direct-setq%) - (table-set! - _tbl15220_ - '%#struct-unchecked-ref - gxc#generate-runtime-struct-unchecked-ref%) - (table-set! - _tbl15220_ - '%#struct-unchecked-set! - gxc#generate-runtime-struct-unchecked-setq%) - _tbl15220_)))) + (let ((__tmp17044 + (lambda () + (let ((_tbl15473_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp17045 + (let () + (declare (not safe)) + (force gxc#&generate-runtime-empty)))) + (declare (not safe)) + (hash-copy! _tbl15473_ __tmp17045)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#begin + gxc#generate-runtime-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#begin-foreign + gxc#generate-runtime-begin-foreign%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#begin-annotation + gxc#generate-runtime-begin-annotation%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#define-values + gxc#generate-runtime-define-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#declare + gxc#generate-runtime-declare%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#lambda + gxc#generate-runtime-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#case-lambda + gxc#generate-runtime-case-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#let-values + gxc#generate-runtime-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#letrec-values + gxc#generate-runtime-letrec-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#letrec*-values + gxc#generate-runtime-letrec*-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#quote + gxc#generate-runtime-quote%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#quote-syntax + gxc#generate-runtime-quote-syntax%)) + (let () + (declare (not safe)) + (table-set! _tbl15473_ '%#call gxc#generate-runtime-call%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#call-unchecked + gxc#generate-runtime-call-unchecked%)) + (let () + (declare (not safe)) + (table-set! _tbl15473_ '%#if gxc#generate-runtime-if%)) + (let () + (declare (not safe)) + (table-set! _tbl15473_ '%#ref gxc#generate-runtime-ref%)) + (let () + (declare (not safe)) + (table-set! _tbl15473_ '%#set! gxc#generate-runtime-setq%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#struct-instance? + gxc#generate-runtime-struct-instancep%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#struct-direct-instance? + gxc#generate-runtime-struct-direct-instancep%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#struct-ref + gxc#generate-runtime-struct-ref%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#struct-set! + gxc#generate-runtime-struct-setq%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#struct-direct-ref + gxc#generate-runtime-struct-direct-ref%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#struct-direct-set! + gxc#generate-runtime-struct-direct-setq%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#struct-unchecked-ref + gxc#generate-runtime-struct-unchecked-ref%)) + (let () + (declare (not safe)) + (table-set! + _tbl15473_ + '%#struct-unchecked-set! + gxc#generate-runtime-struct-unchecked-setq%)) + _tbl15473_)))) + (declare (not safe)) + (make-promise __tmp17044))) (define gxc#apply-generate-runtime - (lambda (_stx15213_ . _args15215_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx15213_ _args15215_)) - gxc#current-compile-methods - (force gxc#&generate-runtime)))) + (lambda (_stx15466_ . _args15468_) + (let ((__tmp17047 + (lambda () (apply gxc#compile-e _stx15466_ _args15468_))) + (__tmp17046 + (let () (declare (not safe)) (force gxc#&generate-runtime)))) + (declare (not safe)) + (call-with-parameters + __tmp17047 + gxc#current-compile-methods + __tmp17046)))) (define gxc#&generate-runtime-phi - (make-promise - (lambda () - (let ((_tbl15210_ (make-table 'test: eq?))) - (hash-copy! _tbl15210_ (force gxc#&generate-runtime)) - (table-set! - _tbl15210_ - '%#define-runtime - gxc#generate-runtime-phi-define-runtime%) - _tbl15210_)))) + (let ((__tmp17048 + (lambda () + (let ((_tbl15463_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp17049 + (let () + (declare (not safe)) + (force gxc#&generate-runtime)))) + (declare (not safe)) + (hash-copy! _tbl15463_ __tmp17049)) + (let () + (declare (not safe)) + (table-set! + _tbl15463_ + '%#define-runtime + gxc#generate-runtime-phi-define-runtime%)) + _tbl15463_)))) + (declare (not safe)) + (make-promise __tmp17048))) (define gxc#apply-generate-runtime-phi - (lambda (_stx15203_ . _args15205_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx15203_ _args15205_)) - gxc#current-compile-methods - (force gxc#&generate-runtime-phi)))) + (lambda (_stx15456_ . _args15458_) + (let ((__tmp17051 + (lambda () (apply gxc#compile-e _stx15456_ _args15458_))) + (__tmp17050 + (let () + (declare (not safe)) + (force gxc#&generate-runtime-phi)))) + (declare (not safe)) + (call-with-parameters + __tmp17051 + gxc#current-compile-methods + __tmp17050)))) (define gxc#&collect-expression-refs - (make-promise - (lambda () - (let ((_tbl15200_ (make-table 'test: eq?))) - (table-set! _tbl15200_ '%#begin gxc#collect-begin%) - (table-set! - _tbl15200_ - '%#begin-annotation - gxc#collect-begin-annotation%) - (table-set! _tbl15200_ '%#lambda gxc#collect-body-lambda%) - (table-set! _tbl15200_ '%#case-lambda gxc#collect-body-case-lambda%) - (table-set! _tbl15200_ '%#let-values gxc#collect-body-let-values%) - (table-set! - _tbl15200_ - '%#letrec-values - gxc#collect-body-let-values%) - (table-set! - _tbl15200_ - '%#letrec*-values - gxc#collect-body-let-values%) - (table-set! _tbl15200_ '%#quote void) - (table-set! _tbl15200_ '%#quote-syntax void) - (table-set! _tbl15200_ '%#call gxc#collect-operands) - (table-set! _tbl15200_ '%#if gxc#collect-operands) - (table-set! _tbl15200_ '%#ref gxc#collect-refs-ref%) - (table-set! _tbl15200_ '%#set! gxc#collect-refs-setq%) - (table-set! _tbl15200_ '%#struct-instance? gxc#collect-operands) - (table-set! - _tbl15200_ - '%#struct-direct-instance? - gxc#collect-operands) - (table-set! _tbl15200_ '%#struct-ref gxc#collect-operands) - (table-set! _tbl15200_ '%#struct-set! gxc#collect-operands) - (table-set! _tbl15200_ '%#struct-direct-ref gxc#collect-operands) - (table-set! _tbl15200_ '%#struct-direct-set! gxc#collect-operands) - (table-set! _tbl15200_ '%#struct-unchecked-ref gxc#collect-operands) - (table-set! - _tbl15200_ - '%#struct-unchecked-set! - gxc#collect-operands) - _tbl15200_)))) + (let ((__tmp17052 + (lambda () + (let ((_tbl15453_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! _tbl15453_ '%#begin gxc#collect-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#begin-annotation + gxc#collect-begin-annotation%)) + (let () + (declare (not safe)) + (table-set! _tbl15453_ '%#lambda gxc#collect-body-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#case-lambda + gxc#collect-body-case-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#let-values + gxc#collect-body-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#letrec-values + gxc#collect-body-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#letrec*-values + gxc#collect-body-let-values%)) + (let () + (declare (not safe)) + (table-set! _tbl15453_ '%#quote void)) + (let () + (declare (not safe)) + (table-set! _tbl15453_ '%#quote-syntax void)) + (let () + (declare (not safe)) + (table-set! _tbl15453_ '%#call gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#call-unchecked + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! _tbl15453_ '%#if gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! _tbl15453_ '%#ref gxc#collect-refs-ref%)) + (let () + (declare (not safe)) + (table-set! _tbl15453_ '%#set! gxc#collect-refs-setq%)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#struct-instance? + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#struct-direct-instance? + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! _tbl15453_ '%#struct-ref gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! _tbl15453_ '%#struct-set! gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#struct-direct-ref + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#struct-direct-set! + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#struct-unchecked-ref + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl15453_ + '%#struct-unchecked-set! + gxc#collect-operands)) + _tbl15453_)))) + (declare (not safe)) + (make-promise __tmp17052))) (define gxc#apply-collect-expression-refs - (lambda (_stx15193_ . _args15195_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx15193_ _args15195_)) - gxc#current-compile-methods - (force gxc#&collect-expression-refs)))) + (lambda (_stx15446_ . _args15448_) + (let ((__tmp17054 + (lambda () (apply gxc#compile-e _stx15446_ _args15448_))) + (__tmp17053 + (let () + (declare (not safe)) + (force gxc#&collect-expression-refs)))) + (declare (not safe)) + (call-with-parameters + __tmp17054 + gxc#current-compile-methods + __tmp17053)))) (define gxc#&generate-meta - (make-promise - (lambda () - (let ((_tbl15190_ (make-table 'test: eq?))) - (hash-copy! _tbl15190_ (force gxc#&void-expression)) - (table-set! _tbl15190_ '%#begin gxc#generate-meta-begin%) - (table-set! - _tbl15190_ - '%#begin-syntax - gxc#generate-meta-begin-syntax%) - (table-set! _tbl15190_ '%#module gxc#generate-meta-module%) - (table-set! _tbl15190_ '%#import gxc#generate-meta-import%) - (table-set! _tbl15190_ '%#export gxc#generate-meta-export%) - (table-set! _tbl15190_ '%#provide gxc#generate-meta-provide%) - (table-set! _tbl15190_ '%#extern gxc#generate-meta-extern%) - (table-set! - _tbl15190_ - '%#define-values - gxc#generate-meta-define-values%) - (table-set! - _tbl15190_ - '%#define-syntax - gxc#generate-meta-define-syntax%) - (table-set! - _tbl15190_ - '%#define-alias - gxc#generate-meta-define-alias%) - (table-set! _tbl15190_ '%#begin-foreign void) - (table-set! _tbl15190_ '%#declare void) - _tbl15190_)))) + (let ((__tmp17055 + (lambda () + (let ((_tbl15443_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp17056 + (let () + (declare (not safe)) + (force gxc#&void-expression)))) + (declare (not safe)) + (hash-copy! _tbl15443_ __tmp17056)) + (let () + (declare (not safe)) + (table-set! _tbl15443_ '%#begin gxc#generate-meta-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl15443_ + '%#begin-syntax + gxc#generate-meta-begin-syntax%)) + (let () + (declare (not safe)) + (table-set! _tbl15443_ '%#module gxc#generate-meta-module%)) + (let () + (declare (not safe)) + (table-set! _tbl15443_ '%#import gxc#generate-meta-import%)) + (let () + (declare (not safe)) + (table-set! _tbl15443_ '%#export gxc#generate-meta-export%)) + (let () + (declare (not safe)) + (table-set! + _tbl15443_ + '%#provide + gxc#generate-meta-provide%)) + (let () + (declare (not safe)) + (table-set! _tbl15443_ '%#extern gxc#generate-meta-extern%)) + (let () + (declare (not safe)) + (table-set! + _tbl15443_ + '%#define-values + gxc#generate-meta-define-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15443_ + '%#define-syntax + gxc#generate-meta-define-syntax%)) + (let () + (declare (not safe)) + (table-set! + _tbl15443_ + '%#define-alias + gxc#generate-meta-define-alias%)) + (let () + (declare (not safe)) + (table-set! _tbl15443_ '%#begin-foreign void)) + (let () + (declare (not safe)) + (table-set! _tbl15443_ '%#declare void)) + _tbl15443_)))) + (declare (not safe)) + (make-promise __tmp17055))) (define gxc#apply-generate-meta - (lambda (_stx15183_ . _args15185_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx15183_ _args15185_)) - gxc#current-compile-methods - (force gxc#&generate-meta)))) + (lambda (_stx15436_ . _args15438_) + (let ((__tmp17058 + (lambda () (apply gxc#compile-e _stx15436_ _args15438_))) + (__tmp17057 + (let () (declare (not safe)) (force gxc#&generate-meta)))) + (declare (not safe)) + (call-with-parameters + __tmp17058 + gxc#current-compile-methods + __tmp17057)))) (define gxc#&generate-meta-phi - (make-promise - (lambda () - (let ((_tbl15180_ (make-table 'test: eq?))) - (table-set! _tbl15180_ '%#begin gxc#generate-meta-begin%) - (table-set! - _tbl15180_ - '%#begin-syntax - gxc#generate-meta-begin-syntax%) - (table-set! - _tbl15180_ - '%#define-syntax - gxc#generate-meta-define-syntax%) - (table-set! - _tbl15180_ - '%#define-alias - gxc#generate-meta-define-alias%) - (table-set! - _tbl15180_ - '%#define-values - gxc#generate-meta-phi-define-values%) - (table-set! - _tbl15180_ - '%#begin-annotation - gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#lambda gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#case-lambda gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#let-values gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#letrec-values gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#letrec*-values gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#quote gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#quote-syntax gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#call gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#if gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#ref gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#set! gxc#generate-meta-phi-expr) - (table-set! - _tbl15180_ - '%#struct-instance? - gxc#generate-meta-phi-expr) - (table-set! - _tbl15180_ - '%#struct-direct-instance? - gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#struct-ref gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#struct-set! gxc#generate-meta-phi-expr) - (table-set! - _tbl15180_ - '%#struct-direct-ref - gxc#generate-meta-phi-expr) - (table-set! - _tbl15180_ - '%#struct-direct-set! - gxc#generate-meta-phi-expr) - (table-set! - _tbl15180_ - '%#struct-unchecked-ref - gxc#generate-meta-phi-expr) - (table-set! - _tbl15180_ - '%#struct-unchecked-set! - gxc#generate-meta-phi-expr) - (table-set! _tbl15180_ '%#declare void) - _tbl15180_)))) + (let ((__tmp17059 + (lambda () + (let ((_tbl15433_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! _tbl15433_ '%#begin gxc#generate-meta-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#begin-syntax + gxc#generate-meta-begin-syntax%)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#define-syntax + gxc#generate-meta-define-syntax%)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#define-alias + gxc#generate-meta-define-alias%)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#define-values + gxc#generate-meta-phi-define-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#begin-annotation + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#lambda + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#case-lambda + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#let-values + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#letrec-values + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#letrec*-values + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! _tbl15433_ '%#quote gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#quote-syntax + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! _tbl15433_ '%#call gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#call-unchecked + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! _tbl15433_ '%#if gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! _tbl15433_ '%#ref gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! _tbl15433_ '%#set! gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#struct-instance? + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#struct-direct-instance? + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#struct-ref + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#struct-set! + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#struct-direct-ref + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#struct-direct-set! + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#struct-unchecked-ref + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! + _tbl15433_ + '%#struct-unchecked-set! + gxc#generate-meta-phi-expr)) + (let () + (declare (not safe)) + (table-set! _tbl15433_ '%#declare void)) + _tbl15433_)))) + (declare (not safe)) + (make-promise __tmp17059))) (define gxc#apply-generate-meta-phi - (lambda (_stx15173_ . _args15175_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx15173_ _args15175_)) - gxc#current-compile-methods - (force gxc#&generate-meta-phi)))) + (lambda (_stx15426_ . _args15428_) + (let ((__tmp17061 + (lambda () (apply gxc#compile-e _stx15426_ _args15428_))) + (__tmp17060 + (let () (declare (not safe)) (force gxc#&generate-meta-phi)))) + (declare (not safe)) + (call-with-parameters + __tmp17061 + gxc#current-compile-methods + __tmp17060)))) (define gxc#collect-begin% - (lambda (_stx15130_ . _args15131_) - (let* ((_g1513315143_ - (lambda (_g1513415140_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1513415140_))) - (_g1513215170_ - (lambda (_g1513415146_) - (if (gx#stx-pair? _g1513415146_) - (let ((_e1513615148_ (gx#stx-e _g1513415146_))) - (let ((_hd1513715151_ - (let () - (declare (not safe)) - (##car _e1513615148_))) - (_tl1513815153_ - (let () - (declare (not safe)) - (##cdr _e1513615148_)))) - ((lambda (_L15156_) - (for-each - (lambda (_g1516515167_) - (apply gxc#compile-e - _g1516515167_ - _args15131_)) - (gx#stx-e _L15156_))) - _tl1513815153_))) - (_g1513315143_ _g1513415146_))))) - (_g1513215170_ _stx15130_)))) + (lambda (_stx15383_ . _args15384_) + (let* ((_g1538615396_ + (lambda (_g1538715393_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1538715393_)))) + (_g1538515423_ + (lambda (_g1538715399_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1538715399_)) + (let ((_e1539115401_ + (let () + (declare (not safe)) + (gx#stx-e _g1538715399_)))) + (let ((_hd1539015404_ + (let () + (declare (not safe)) + (##car _e1539115401_))) + (_tl1538915406_ + (let () + (declare (not safe)) + (##cdr _e1539115401_)))) + ((lambda (_L15409_) + (let ((__tmp17063 + (lambda (_g1541815420_) + (apply gxc#compile-e + _g1541815420_ + _args15384_))) + (__tmp17062 + (let () + (declare (not safe)) + (gx#stx-e _L15409_)))) + (declare (not safe)) + (for-each __tmp17063 __tmp17062))) + _tl1538915406_))) + (let () + (declare (not safe)) + (_g1538615396_ _g1538715399_)))))) + (declare (not safe)) + (_g1538515423_ _stx15383_)))) (define gxc#collect-begin-syntax% - (lambda (_stx15126_ . _args15127_) - (call-with-parameters - (lambda () (apply gxc#collect-begin% _stx15126_ _args15127_)) - gx#current-expander-phi - (fx+ (gx#current-expander-phi) '1)))) + (lambda (_stx15379_ . _args15380_) + (let ((__tmp17066 + (lambda () (apply gxc#collect-begin% _stx15379_ _args15380_))) + (__tmp17064 + (let ((__tmp17065 (gx#current-expander-phi))) + (declare (not safe)) + (fx+ __tmp17065 '1)))) + (declare (not safe)) + (call-with-parameters + __tmp17066 + gx#current-expander-phi + __tmp17064)))) (define gxc#collect-module% - (lambda (_stx15068_ . _args15069_) - (let* ((_g1507115085_ - (lambda (_g1507215082_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1507215082_))) - (_g1507015123_ - (lambda (_g1507215088_) - (if (gx#stx-pair? _g1507215088_) - (let ((_e1507515090_ (gx#stx-e _g1507215088_))) - (let ((_hd1507615093_ + (lambda (_stx15321_ . _args15322_) + (let* ((_g1532415338_ + (lambda (_g1532515335_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1532515335_)))) + (_g1532315376_ + (lambda (_g1532515341_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1532515341_)) + (let ((_e1533015343_ + (let () + (declare (not safe)) + (gx#stx-e _g1532515341_)))) + (let ((_hd1532915346_ (let () (declare (not safe)) - (##car _e1507515090_))) - (_tl1507715095_ + (##car _e1533015343_))) + (_tl1532815348_ (let () (declare (not safe)) - (##cdr _e1507515090_)))) - (if (gx#stx-pair? _tl1507715095_) - (let ((_e1507815098_ (gx#stx-e _tl1507715095_))) - (let ((_hd1507915101_ + (##cdr _e1533015343_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1532815348_)) + (let ((_e1533315351_ + (let () + (declare (not safe)) + (gx#stx-e _tl1532815348_)))) + (let ((_hd1533215354_ (let () (declare (not safe)) - (##car _e1507815098_))) - (_tl1508015103_ + (##car _e1533315351_))) + (_tl1533115356_ (let () (declare (not safe)) - (##cdr _e1507815098_)))) - ((lambda (_L15106_ _L15107_) - (let ((_ctx15120_ - (gx#syntax-local-e__0 _L15107_))) + (##cdr _e1533315351_)))) + ((lambda (_L15359_ _L15360_) + (let* ((_ctx15373_ + (let () + (declare (not safe)) + (gx#syntax-local-e__0 + _L15360_))) + (__tmp17067 + (lambda () + (apply gxc#compile-e + (##structure-ref + _ctx15373_ + '11 + gx#module-context::t + '#f) + _args15322_)))) + (declare (not safe)) (call-with-parameters - (lambda () - (apply gxc#compile-e - (##structure-ref - _ctx15120_ - '11 - gx#module-context::t - '#f) - _args15069_)) + __tmp17067 gx#current-expander-context - _ctx15120_))) - _tl1508015103_ - _hd1507915101_))) - (_g1507115085_ _g1507215088_)))) - (_g1507115085_ _g1507215088_))))) - (_g1507015123_ _stx15068_)))) + _ctx15373_))) + _tl1533115356_ + _hd1533215354_))) + (let () + (declare (not safe)) + (_g1532415338_ _g1532515341_))))) + (let () + (declare (not safe)) + (_g1532415338_ _g1532515341_)))))) + (declare (not safe)) + (_g1532315376_ _stx15321_)))) (define gxc#collect-begin-annotation% - (lambda (_stx15000_ . _args15001_) - (let* ((_g1500315020_ - (lambda (_g1500415017_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1500415017_))) - (_g1500215065_ - (lambda (_g1500415023_) - (if (gx#stx-pair? _g1500415023_) - (let ((_e1500715025_ (gx#stx-e _g1500415023_))) - (let ((_hd1500815028_ + (lambda (_stx15253_ . _args15254_) + (let* ((_g1525615273_ + (lambda (_g1525715270_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1525715270_)))) + (_g1525515318_ + (lambda (_g1525715276_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1525715276_)) + (let ((_e1526215278_ + (let () + (declare (not safe)) + (gx#stx-e _g1525715276_)))) + (let ((_hd1526115281_ (let () (declare (not safe)) - (##car _e1500715025_))) - (_tl1500915030_ + (##car _e1526215278_))) + (_tl1526015283_ (let () (declare (not safe)) - (##cdr _e1500715025_)))) - (if (gx#stx-pair? _tl1500915030_) - (let ((_e1501015033_ (gx#stx-e _tl1500915030_))) - (let ((_hd1501115036_ + (##cdr _e1526215278_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1526015283_)) + (let ((_e1526515286_ + (let () + (declare (not safe)) + (gx#stx-e _tl1526015283_)))) + (let ((_hd1526415289_ (let () (declare (not safe)) - (##car _e1501015033_))) - (_tl1501215038_ + (##car _e1526515286_))) + (_tl1526315291_ (let () (declare (not safe)) - (##cdr _e1501015033_)))) - (if (gx#stx-pair? _tl1501215038_) - (let ((_e1501315041_ - (gx#stx-e _tl1501215038_))) - (let ((_hd1501415044_ + (##cdr _e1526515286_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1526315291_)) + (let ((_e1526815294_ + (let () + (declare (not safe)) + (gx#stx-e _tl1526315291_)))) + (let ((_hd1526715297_ (let () (declare (not safe)) - (##car _e1501315041_))) - (_tl1501515046_ + (##car _e1526815294_))) + (_tl1526615299_ (let () (declare (not safe)) - (##cdr _e1501315041_)))) - (if (gx#stx-null? _tl1501515046_) - ((lambda (_L15049_ _L15050_) + (##cdr _e1526815294_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1526615299_)) + ((lambda (_L15302_ _L15303_) (apply gxc#compile-e - _L15049_ - _args15001_)) - _hd1501415044_ - _hd1501115036_) - (_g1500315020_ _g1500415023_)))) - (_g1500315020_ _g1500415023_)))) - (_g1500315020_ _g1500415023_)))) - (_g1500315020_ _g1500415023_))))) - (_g1500215065_ _stx15000_)))) + _L15302_ + _args15254_)) + _hd1526715297_ + _hd1526415289_) + (let () + (declare (not safe)) + (_g1525615273_ + _g1525715276_))))) + (let () + (declare (not safe)) + (_g1525615273_ _g1525715276_))))) + (let () + (declare (not safe)) + (_g1525615273_ _g1525715276_))))) + (let () + (declare (not safe)) + (_g1525615273_ _g1525715276_)))))) + (declare (not safe)) + (_g1525515318_ _stx15253_)))) (define gxc#collect-define-values% - (lambda (_stx14932_ . _args14933_) - (let* ((_g1493514952_ - (lambda (_g1493614949_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1493614949_))) - (_g1493414997_ - (lambda (_g1493614955_) - (if (gx#stx-pair? _g1493614955_) - (let ((_e1493914957_ (gx#stx-e _g1493614955_))) - (let ((_hd1494014960_ + (lambda (_stx15185_ . _args15186_) + (let* ((_g1518815205_ + (lambda (_g1518915202_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1518915202_)))) + (_g1518715250_ + (lambda (_g1518915208_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1518915208_)) + (let ((_e1519415210_ + (let () + (declare (not safe)) + (gx#stx-e _g1518915208_)))) + (let ((_hd1519315213_ (let () (declare (not safe)) - (##car _e1493914957_))) - (_tl1494114962_ + (##car _e1519415210_))) + (_tl1519215215_ (let () (declare (not safe)) - (##cdr _e1493914957_)))) - (if (gx#stx-pair? _tl1494114962_) - (let ((_e1494214965_ (gx#stx-e _tl1494114962_))) - (let ((_hd1494314968_ + (##cdr _e1519415210_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1519215215_)) + (let ((_e1519715218_ + (let () + (declare (not safe)) + (gx#stx-e _tl1519215215_)))) + (let ((_hd1519615221_ (let () (declare (not safe)) - (##car _e1494214965_))) - (_tl1494414970_ + (##car _e1519715218_))) + (_tl1519515223_ (let () (declare (not safe)) - (##cdr _e1494214965_)))) - (if (gx#stx-pair? _tl1494414970_) - (let ((_e1494514973_ - (gx#stx-e _tl1494414970_))) - (let ((_hd1494614976_ + (##cdr _e1519715218_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1519515223_)) + (let ((_e1520015226_ + (let () + (declare (not safe)) + (gx#stx-e _tl1519515223_)))) + (let ((_hd1519915229_ (let () (declare (not safe)) - (##car _e1494514973_))) - (_tl1494714978_ + (##car _e1520015226_))) + (_tl1519815231_ (let () (declare (not safe)) - (##cdr _e1494514973_)))) - (if (gx#stx-null? _tl1494714978_) - ((lambda (_L14981_ _L14982_) + (##cdr _e1520015226_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1519815231_)) + ((lambda (_L15234_ _L15235_) (apply gxc#compile-e - _L14981_ - _args14933_)) - _hd1494614976_ - _hd1494314968_) - (_g1493514952_ _g1493614955_)))) - (_g1493514952_ _g1493614955_)))) - (_g1493514952_ _g1493614955_)))) - (_g1493514952_ _g1493614955_))))) - (_g1493414997_ _stx14932_)))) + _L15234_ + _args15186_)) + _hd1519915229_ + _hd1519615221_) + (let () + (declare (not safe)) + (_g1518815205_ + _g1518915208_))))) + (let () + (declare (not safe)) + (_g1518815205_ _g1518915208_))))) + (let () + (declare (not safe)) + (_g1518815205_ _g1518915208_))))) + (let () + (declare (not safe)) + (_g1518815205_ _g1518915208_)))))) + (declare (not safe)) + (_g1518715250_ _stx15185_)))) (define gxc#collect-define-syntax% - (lambda (_stx14863_ . _args14864_) - (let* ((_g1486614883_ - (lambda (_g1486714880_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1486714880_))) - (_g1486514929_ - (lambda (_g1486714886_) - (if (gx#stx-pair? _g1486714886_) - (let ((_e1487014888_ (gx#stx-e _g1486714886_))) - (let ((_hd1487114891_ + (lambda (_stx15116_ . _args15117_) + (let* ((_g1511915136_ + (lambda (_g1512015133_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1512015133_)))) + (_g1511815182_ + (lambda (_g1512015139_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1512015139_)) + (let ((_e1512515141_ + (let () + (declare (not safe)) + (gx#stx-e _g1512015139_)))) + (let ((_hd1512415144_ (let () (declare (not safe)) - (##car _e1487014888_))) - (_tl1487214893_ + (##car _e1512515141_))) + (_tl1512315146_ (let () (declare (not safe)) - (##cdr _e1487014888_)))) - (if (gx#stx-pair? _tl1487214893_) - (let ((_e1487314896_ (gx#stx-e _tl1487214893_))) - (let ((_hd1487414899_ + (##cdr _e1512515141_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1512315146_)) + (let ((_e1512815149_ + (let () + (declare (not safe)) + (gx#stx-e _tl1512315146_)))) + (let ((_hd1512715152_ (let () (declare (not safe)) - (##car _e1487314896_))) - (_tl1487514901_ + (##car _e1512815149_))) + (_tl1512615154_ (let () (declare (not safe)) - (##cdr _e1487314896_)))) - (if (gx#stx-pair? _tl1487514901_) - (let ((_e1487614904_ - (gx#stx-e _tl1487514901_))) - (let ((_hd1487714907_ + (##cdr _e1512815149_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1512615154_)) + (let ((_e1513115157_ + (let () + (declare (not safe)) + (gx#stx-e _tl1512615154_)))) + (let ((_hd1513015160_ (let () (declare (not safe)) - (##car _e1487614904_))) - (_tl1487814909_ + (##car _e1513115157_))) + (_tl1512915162_ (let () (declare (not safe)) - (##cdr _e1487614904_)))) - (if (gx#stx-null? _tl1487814909_) - ((lambda (_L14912_ _L14913_) - (call-with-parameters - (lambda () - (apply gxc#compile-e - _L14912_ - _args14864_)) - gx#current-expander-phi - (fx+ (gx#current-expander-phi) - '1))) - _hd1487714907_ - _hd1487414899_) - (_g1486614883_ _g1486714886_)))) - (_g1486614883_ _g1486714886_)))) - (_g1486614883_ _g1486714886_)))) - (_g1486614883_ _g1486714886_))))) - (_g1486514929_ _stx14863_)))) + (##cdr _e1513115157_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1512915162_)) + ((lambda (_L15165_ _L15166_) + (let ((__tmp17070 + (lambda () + (apply gxc#compile-e +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L15165_ + _args15117_))) + (__tmp17068 + (let ((__tmp17069 (gx#current-expander-phi))) + (declare (not safe)) + (fx+ __tmp17069 '1)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (call-with-parameters + __tmp17070 + gx#current-expander-phi + __tmp17068))) + _hd1513015160_ + _hd1512715152_) + (let () + (declare (not safe)) + (_g1511915136_ + _g1512015139_))))) + (let () + (declare (not safe)) + (_g1511915136_ _g1512015139_))))) + (let () + (declare (not safe)) + (_g1511915136_ _g1512015139_))))) + (let () + (declare (not safe)) + (_g1511915136_ _g1512015139_)))))) + (declare (not safe)) + (_g1511815182_ _stx15116_)))) (define gxc#collect-body-lambda% - (lambda (_stx14795_ . _args14796_) - (let* ((_g1479814815_ - (lambda (_g1479914812_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1479914812_))) - (_g1479714860_ - (lambda (_g1479914818_) - (if (gx#stx-pair? _g1479914818_) - (let ((_e1480214820_ (gx#stx-e _g1479914818_))) - (let ((_hd1480314823_ + (lambda (_stx15048_ . _args15049_) + (let* ((_g1505115068_ + (lambda (_g1505215065_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1505215065_)))) + (_g1505015113_ + (lambda (_g1505215071_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1505215071_)) + (let ((_e1505715073_ + (let () + (declare (not safe)) + (gx#stx-e _g1505215071_)))) + (let ((_hd1505615076_ (let () (declare (not safe)) - (##car _e1480214820_))) - (_tl1480414825_ + (##car _e1505715073_))) + (_tl1505515078_ (let () (declare (not safe)) - (##cdr _e1480214820_)))) - (if (gx#stx-pair? _tl1480414825_) - (let ((_e1480514828_ (gx#stx-e _tl1480414825_))) - (let ((_hd1480614831_ + (##cdr _e1505715073_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1505515078_)) + (let ((_e1506015081_ + (let () + (declare (not safe)) + (gx#stx-e _tl1505515078_)))) + (let ((_hd1505915084_ (let () (declare (not safe)) - (##car _e1480514828_))) - (_tl1480714833_ + (##car _e1506015081_))) + (_tl1505815086_ (let () (declare (not safe)) - (##cdr _e1480514828_)))) - (if (gx#stx-pair? _tl1480714833_) - (let ((_e1480814836_ - (gx#stx-e _tl1480714833_))) - (let ((_hd1480914839_ + (##cdr _e1506015081_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1505815086_)) + (let ((_e1506315089_ + (let () + (declare (not safe)) + (gx#stx-e _tl1505815086_)))) + (let ((_hd1506215092_ (let () (declare (not safe)) - (##car _e1480814836_))) - (_tl1481014841_ + (##car _e1506315089_))) + (_tl1506115094_ (let () (declare (not safe)) - (##cdr _e1480814836_)))) - (if (gx#stx-null? _tl1481014841_) - ((lambda (_L14844_ _L14845_) + (##cdr _e1506315089_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1506115094_)) + ((lambda (_L15097_ _L15098_) (apply gxc#compile-e - _L14844_ - _args14796_)) - _hd1480914839_ - _hd1480614831_) - (_g1479814815_ _g1479914818_)))) - (_g1479814815_ _g1479914818_)))) - (_g1479814815_ _g1479914818_)))) - (_g1479814815_ _g1479914818_))))) - (_g1479714860_ _stx14795_)))) + _L15097_ + _args15049_)) + _hd1506215092_ + _hd1505915084_) + (let () + (declare (not safe)) + (_g1505115068_ + _g1505215071_))))) + (let () + (declare (not safe)) + (_g1505115068_ _g1505215071_))))) + (let () + (declare (not safe)) + (_g1505115068_ _g1505215071_))))) + (let () + (declare (not safe)) + (_g1505115068_ _g1505215071_)))))) + (declare (not safe)) + (_g1505015113_ _stx15048_)))) (define gxc#collect-body-case-lambda% - (lambda (_stx14677_ . _args14678_) - (let* ((_g1468014708_ - (lambda (_g1468114705_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1468114705_))) - (_g1467914792_ - (lambda (_g1468114711_) - (if (gx#stx-pair? _g1468114711_) - (let ((_e1468414713_ (gx#stx-e _g1468114711_))) - (let ((_hd1468514716_ - (let () - (declare (not safe)) - (##car _e1468414713_))) - (_tl1468614718_ - (let () - (declare (not safe)) - (##cdr _e1468414713_)))) - (if (gx#stx-pair/null? _tl1468614718_) - (let ((_g16669_ - (gx#syntax-split-splice - _tl1468614718_ - '0))) + (lambda (_stx14930_ . _args14931_) + (let* ((_g1493314961_ + (lambda (_g1493414958_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1493414958_)))) + (_g1493215045_ + (lambda (_g1493414964_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1493414964_)) + (let ((_e1493914966_ + (let () + (declare (not safe)) + (gx#stx-e _g1493414964_)))) + (let ((_hd1493814969_ + (let () + (declare (not safe)) + (##car _e1493914966_))) + (_tl1493714971_ + (let () + (declare (not safe)) + (##cdr _e1493914966_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl1493714971_)) + (let ((_g17071_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl1493714971_ + '0)))) (begin - (let ((_g16670_ + (let ((_g17072_ (let () (declare (not safe)) - (if (##values? _g16669_) - (##vector-length _g16669_) + (if (##values? _g17071_) + (##vector-length _g17071_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g16670_ 2))) + (##fx= _g17072_ 2))) (error "Context expects 2 values" - _g16670_))) - (let ((_target1468714721_ + _g17072_))) + (let ((_target1494014974_ (let () (declare (not safe)) - (##vector-ref _g16669_ 0))) - (_tl1468914723_ + (##vector-ref _g17071_ 0))) + (_tl1494214976_ (let () (declare (not safe)) - (##vector-ref _g16669_ 1)))) - (if (gx#stx-null? _tl1468914723_) - (letrec ((_loop1469014726_ - (lambda (_hd1468814729_ - _body1469414731_ - _hd1469514733_) - (if (gx#stx-pair? - _hd1468814729_) - (let ((_e1469114736_ - (gx#stx-e - _hd1468814729_))) - (let ((_lp-hd1469214739_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1469114736_))) - (_lp-tl1469314741_ - (let () (declare (not safe)) (##cdr _e1469114736_)))) - (if (gx#stx-pair? _lp-hd1469214739_) - (let ((_e1469814744_ (gx#stx-e _lp-hd1469214739_))) - (let ((_hd1469914747_ + (##vector-ref _g17071_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1494214976_)) + (letrec ((_loop1494314979_ + (lambda (_hd1494114982_ + _body1494714984_ + _hd1494814986_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1494114982_)) + (let ((_e1494414989_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd1494114982_)))) + (let ((_lp-hd1494514992_ + (let () (declare (not safe)) (##car _e1494414989_))) + (_lp-tl1494614994_ + (let () (declare (not safe)) (##cdr _e1494414989_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd1494514992_)) + (let ((_e1495314997_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd1494514992_)))) + (let ((_hd1495215000_ (let () (declare (not safe)) - (##car _e1469814744_))) - (_tl1470014749_ + (##car _e1495314997_))) + (_tl1495115002_ (let () (declare (not safe)) - (##cdr _e1469814744_)))) - (if (gx#stx-pair? _tl1470014749_) - (let ((_e1470114752_ - (gx#stx-e _tl1470014749_))) - (let ((_hd1470214755_ + (##cdr _e1495314997_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1495115002_)) + (let ((_e1495615005_ + (let () + (declare (not safe)) + (gx#stx-e _tl1495115002_)))) + (let ((_hd1495515008_ (let () (declare (not safe)) - (##car _e1470114752_))) - (_tl1470314757_ + (##car _e1495615005_))) + (_tl1495415010_ (let () (declare (not safe)) - (##cdr _e1470114752_)))) - (if (gx#stx-null? _tl1470314757_) - (_loop1469014726_ - _lp-tl1469314741_ - (cons _hd1470214755_ _body1469414731_) - (cons _hd1469914747_ _hd1469514733_)) - (_g1468014708_ _g1468114711_)))) - (_g1468014708_ _g1468114711_)))) - (_g1468014708_ _g1468114711_)))) - (let ((_body1469614760_ (reverse _body1469414731_)) - (_hd1469714762_ (reverse _hd1469514733_))) - ((lambda (_L14765_ _L14766_) - (for-each - (lambda (_g1478014782_) - (apply gxc#compile-e _g1478014782_ _args14678_)) - (foldr1 (lambda (_g1478414787_ _g1478514789_) - (cons _g1478414787_ _g1478514789_)) - '() - _L14765_))) - _body1469614760_ - _hd1469714762_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1469014726_ - _target1468714721_ - '() - '())) - (_g1468014708_ _g1468114711_))))) - (_g1468014708_ _g1468114711_)))) - (_g1468014708_ _g1468114711_))))) - (_g1467914792_ _stx14677_)))) + (##cdr _e1495615005_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1495415010_)) + (let ((__tmp17077 + (let () + (declare (not safe)) + (cons _hd1495515008_ + _body1494714984_))) + (__tmp17076 + (let () + (declare (not safe)) + (cons _hd1495215000_ + _hd1494814986_)))) + (declare (not safe)) + (_loop1494314979_ + _lp-tl1494614994_ + __tmp17077 + __tmp17076)) + (let () + (declare (not safe)) + (_g1493314961_ _g1493414964_))))) + (let () + (declare (not safe)) + (_g1493314961_ _g1493414964_))))) + (let () + (declare (not safe)) + (_g1493314961_ _g1493414964_))))) + (let ((_body1494915013_ + (let () + (declare (not safe)) + (reverse _body1494714984_))) + (_hd1495015015_ + (let () (declare (not safe)) (reverse _hd1494814986_)))) + ((lambda (_L15018_ _L15019_) + (let ((__tmp17075 + (lambda (_g1503315035_) + (apply gxc#compile-e _g1503315035_ _args14931_))) + (__tmp17073 + (let ((__tmp17074 + (lambda (_g1503715040_ _g1503815042_) + (let () + (declare (not safe)) + (cons _g1503715040_ _g1503815042_))))) + (declare (not safe)) + (foldr1 __tmp17074 '() _L15018_)))) + (declare (not safe)) + (for-each __tmp17075 __tmp17073))) + _body1494915013_ + _hd1495015015_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1494314979_ + _target1494014974_ + '() + '()))) + (let () + (declare (not safe)) + (_g1493314961_ _g1493414964_)))))) + (let () + (declare (not safe)) + (_g1493314961_ _g1493414964_))))) + (let () + (declare (not safe)) + (_g1493314961_ _g1493414964_)))))) + (declare (not safe)) + (_g1493215045_ _stx14930_)))) (define gxc#collect-body-let-values% - (lambda (_stx14530_ . _args14531_) - (let* ((_g1453314568_ - (lambda (_g1453414565_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1453414565_))) - (_g1453214674_ - (lambda (_g1453414571_) - (if (gx#stx-pair? _g1453414571_) - (let ((_e1453814573_ (gx#stx-e _g1453414571_))) - (let ((_hd1453914576_ + (lambda (_stx14783_ . _args14784_) + (let* ((_g1478614821_ + (lambda (_g1478714818_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1478714818_)))) + (_g1478514927_ + (lambda (_g1478714824_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1478714824_)) + (let ((_e1479314826_ + (let () + (declare (not safe)) + (gx#stx-e _g1478714824_)))) + (let ((_hd1479214829_ (let () (declare (not safe)) - (##car _e1453814573_))) - (_tl1454014578_ + (##car _e1479314826_))) + (_tl1479114831_ (let () (declare (not safe)) - (##cdr _e1453814573_)))) - (if (gx#stx-pair? _tl1454014578_) - (let ((_e1454114581_ (gx#stx-e _tl1454014578_))) - (let ((_hd1454214584_ + (##cdr _e1479314826_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1479114831_)) + (let ((_e1479614834_ + (let () + (declare (not safe)) + (gx#stx-e _tl1479114831_)))) + (let ((_hd1479514837_ (let () (declare (not safe)) - (##car _e1454114581_))) - (_tl1454314586_ + (##car _e1479614834_))) + (_tl1479414839_ (let () (declare (not safe)) - (##cdr _e1454114581_)))) - (if (gx#stx-pair/null? _hd1454214584_) - (let ((_g16671_ - (gx#syntax-split-splice - _hd1454214584_ - '0))) + (##cdr _e1479614834_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd1479514837_)) + (let ((_g17078_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd1479514837_ + '0)))) (begin - (let ((_g16672_ + (let ((_g17079_ (let () (declare (not safe)) - (if (##values? _g16671_) + (if (##values? _g17078_) (##vector-length - _g16671_) + _g17078_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g16672_ 2))) + (##fx= _g17079_ 2))) (error "Context expects 2 values" - _g16672_))) - (let ((_target1454414589_ + _g17079_))) + (let ((_target1479714842_ (let () (declare (not safe)) - (##vector-ref _g16671_ 0))) - (_tl1454614591_ + (##vector-ref _g17078_ 0))) + (_tl1479914844_ (let () (declare (not safe)) - (##vector-ref _g16671_ 1)))) - (if (gx#stx-null? _tl1454614591_) - (letrec ((_loop1454714594_ - (lambda (_hd1454514597_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr1455114599_ - _hd1455214601_) - (if (gx#stx-pair? _hd1454514597_) - (let ((_e1454814604_ (gx#stx-e _hd1454514597_))) - (let ((_lp-hd1454914607_ + (##vector-ref _g17078_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1479914844_)) + (letrec ((_loop1480014847_ + (lambda (_hd1479814850_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _expr1480414852_ + _hd1480514854_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1479814850_)) + (let ((_e1480114857_ + (let () + (declare (not safe)) + (gx#stx-e _hd1479814850_)))) + (let ((_lp-hd1480214860_ (let () (declare (not safe)) - (##car _e1454814604_))) - (_lp-tl1455014609_ + (##car _e1480114857_))) + (_lp-tl1480314862_ (let () (declare (not safe)) - (##cdr _e1454814604_)))) - (if (gx#stx-pair? _lp-hd1454914607_) - (let ((_e1455514612_ - (gx#stx-e _lp-hd1454914607_))) - (let ((_hd1455614615_ + (##cdr _e1480114857_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd1480214860_)) + (let ((_e1481014865_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd1480214860_)))) + (let ((_hd1480914868_ (let () (declare (not safe)) - (##car _e1455514612_))) - (_tl1455714617_ + (##car _e1481014865_))) + (_tl1480814870_ (let () (declare (not safe)) - (##cdr _e1455514612_)))) - (if (gx#stx-pair? _tl1455714617_) - (let ((_e1455814620_ - (gx#stx-e _tl1455714617_))) - (let ((_hd1455914623_ + (##cdr _e1481014865_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1480814870_)) + (let ((_e1481314873_ + (let () + (declare (not safe)) + (gx#stx-e _tl1480814870_)))) + (let ((_hd1481214876_ (let () (declare (not safe)) - (##car _e1455814620_))) - (_tl1456014625_ + (##car _e1481314873_))) + (_tl1481114878_ (let () (declare (not safe)) - (##cdr _e1455814620_)))) - (if (gx#stx-null? _tl1456014625_) - (_loop1454714594_ - _lp-tl1455014609_ - (cons _hd1455914623_ - _expr1455114599_) - (cons _hd1455614615_ - _hd1455214601_)) - (_g1453314568_ - _g1453414571_)))) - (_g1453314568_ _g1453414571_)))) - (_g1453314568_ _g1453414571_)))) - (let ((_expr1455314628_ (reverse _expr1455114599_)) - (_hd1455414630_ (reverse _hd1455214601_))) - (if (gx#stx-pair? _tl1454314586_) - (let ((_e1456114633_ (gx#stx-e _tl1454314586_))) - (let ((_hd1456214636_ - (let () - (declare (not safe)) - (##car _e1456114633_))) - (_tl1456314638_ - (let () - (declare (not safe)) - (##cdr _e1456114633_)))) - (if (gx#stx-null? _tl1456314638_) - ((lambda (_L14641_ _L14642_ _L14643_) - (for-each - (lambda (_g1466214664_) - (apply gxc#compile-e - _g1466214664_ - _args14531_)) - (foldr1 (lambda (_g1466614669_ - _g1466714671_) - (cons _g1466614669_ - _g1466714671_)) - (cons _L14641_ '()) - _L14642_))) - _hd1456214636_ - _expr1455314628_ - _hd1455414630_) - (_g1453314568_ _g1453414571_)))) - (_g1453314568_ _g1453414571_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1454714594_ - _target1454414589_ - '() - '())) - (_g1453314568_ - _g1453414571_))))) - (_g1453314568_ _g1453414571_)))) - (_g1453314568_ _g1453414571_)))) - (_g1453314568_ _g1453414571_))))) - (_g1453214674_ _stx14530_)))) - (define gxc#collect-body-setq% - (lambda (_stx14462_ . _args14463_) - (let* ((_g1446514482_ - (lambda (_g1446614479_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1446614479_))) - (_g1446414527_ - (lambda (_g1446614485_) - (if (gx#stx-pair? _g1446614485_) - (let ((_e1446914487_ (gx#stx-e _g1446614485_))) - (let ((_hd1447014490_ + (##cdr _e1481314873_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1481114878_)) + (let ((__tmp17085 + (let () + (declare (not safe)) + (cons _hd1481214876_ + _expr1480414852_))) + (__tmp17084 + (let () + (declare (not safe)) + (cons _hd1480914868_ + _hd1480514854_)))) + (declare (not safe)) + (_loop1480014847_ + _lp-tl1480314862_ + __tmp17085 + __tmp17084)) + (let () + (declare (not safe)) + (_g1478614821_ + _g1478714824_))))) + (let () + (declare (not safe)) + (_g1478614821_ _g1478714824_))))) + (let () + (declare (not safe)) + (_g1478614821_ _g1478714824_))))) + (let ((_expr1480614881_ (let () (declare (not safe)) - (##car _e1446914487_))) - (_tl1447114492_ + (reverse _expr1480414852_))) + (_hd1480714883_ (let () (declare (not safe)) - (##cdr _e1446914487_)))) - (if (gx#stx-pair? _tl1447114492_) - (let ((_e1447214495_ (gx#stx-e _tl1447114492_))) - (let ((_hd1447314498_ + (reverse _hd1480514854_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1479414839_)) + (let ((_e1481614886_ + (let () + (declare (not safe)) + (gx#stx-e _tl1479414839_)))) + (let ((_hd1481514889_ (let () (declare (not safe)) - (##car _e1447214495_))) - (_tl1447414500_ + (##car _e1481614886_))) + (_tl1481414891_ (let () (declare (not safe)) - (##cdr _e1447214495_)))) - (if (gx#stx-pair? _tl1447414500_) - (let ((_e1447514503_ - (gx#stx-e _tl1447414500_))) - (let ((_hd1447614506_ - (let () - (declare (not safe)) - (##car _e1447514503_))) - (_tl1447714508_ - (let () - (declare (not safe)) - (##cdr _e1447514503_)))) - (if (gx#stx-null? _tl1447714508_) - ((lambda (_L14511_ _L14512_) - (apply gxc#compile-e - _L14511_ - _args14463_)) - _hd1447614506_ - _hd1447314498_) - (_g1446514482_ _g1446614485_)))) - (_g1446514482_ _g1446614485_)))) - (_g1446514482_ _g1446614485_)))) - (_g1446514482_ _g1446614485_))))) - (_g1446414527_ _stx14462_)))) - (define gxc#collect-operands - (lambda (_stx14375_ . _args14376_) - (let* ((_g1437814397_ - (lambda (_g1437914394_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1437914394_))) - (_g1437714459_ - (lambda (_g1437914400_) - (if (gx#stx-pair? _g1437914400_) - (let ((_e1438114402_ (gx#stx-e _g1437914400_))) - (let ((_hd1438214405_ - (let () - (declare (not safe)) - (##car _e1438114402_))) - (_tl1438314407_ - (let () - (declare (not safe)) - (##cdr _e1438114402_)))) - (if (gx#stx-pair/null? _tl1438314407_) - (let ((_g16673_ - (gx#syntax-split-splice - _tl1438314407_ - '0))) - (begin - (let ((_g16674_ - (let () - (declare (not safe)) - (if (##values? _g16673_) - (##vector-length _g16673_) + (##cdr _e1481614886_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1481414891_)) + ((lambda (_L14894_ _L14895_ _L14896_) + (let ((__tmp17083 + (lambda (_g1491514917_) + (apply gxc#compile-e + _g1491514917_ + _args14784_))) + (__tmp17080 + (let ((__tmp17082 + (lambda (_g1491914922_ + _g1492014924_) + (let () + (declare (not safe)) + (cons _g1491914922_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1492014924_)))) + (__tmp17081 (let () (declare (not safe)) (cons _L14894_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp17082 + __tmp17081 + _L14895_)))) + (declare (not safe)) + (for-each __tmp17083 __tmp17080))) + _hd1481514889_ + _expr1480614881_ + _hd1480714883_) + (let () + (declare (not safe)) + (_g1478614821_ _g1478714824_))))) + (let () + (declare (not safe)) + (_g1478614821_ _g1478714824_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1480014847_ + _target1479714842_ + '() + '()))) + (let () + (declare (not safe)) + (_g1478614821_ + _g1478714824_)))))) + (let () + (declare (not safe)) + (_g1478614821_ _g1478714824_))))) + (let () + (declare (not safe)) + (_g1478614821_ _g1478714824_))))) + (let () + (declare (not safe)) + (_g1478614821_ _g1478714824_)))))) + (declare (not safe)) + (_g1478514927_ _stx14783_)))) + (define gxc#collect-body-setq% + (lambda (_stx14715_ . _args14716_) + (let* ((_g1471814735_ + (lambda (_g1471914732_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1471914732_)))) + (_g1471714780_ + (lambda (_g1471914738_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1471914738_)) + (let ((_e1472414740_ + (let () + (declare (not safe)) + (gx#stx-e _g1471914738_)))) + (let ((_hd1472314743_ + (let () + (declare (not safe)) + (##car _e1472414740_))) + (_tl1472214745_ + (let () + (declare (not safe)) + (##cdr _e1472414740_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1472214745_)) + (let ((_e1472714748_ + (let () + (declare (not safe)) + (gx#stx-e _tl1472214745_)))) + (let ((_hd1472614751_ + (let () + (declare (not safe)) + (##car _e1472714748_))) + (_tl1472514753_ + (let () + (declare (not safe)) + (##cdr _e1472714748_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1472514753_)) + (let ((_e1473014756_ + (let () + (declare (not safe)) + (gx#stx-e _tl1472514753_)))) + (let ((_hd1472914759_ + (let () + (declare (not safe)) + (##car _e1473014756_))) + (_tl1472814761_ + (let () + (declare (not safe)) + (##cdr _e1473014756_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1472814761_)) + ((lambda (_L14764_ _L14765_) + (apply gxc#compile-e + _L14764_ + _args14716_)) + _hd1472914759_ + _hd1472614751_) + (let () + (declare (not safe)) + (_g1471814735_ + _g1471914738_))))) + (let () + (declare (not safe)) + (_g1471814735_ _g1471914738_))))) + (let () + (declare (not safe)) + (_g1471814735_ _g1471914738_))))) + (let () + (declare (not safe)) + (_g1471814735_ _g1471914738_)))))) + (declare (not safe)) + (_g1471714780_ _stx14715_)))) + (define gxc#collect-operands + (lambda (_stx14628_ . _args14629_) + (let* ((_g1463114650_ + (lambda (_g1463214647_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1463214647_)))) + (_g1463014712_ + (lambda (_g1463214653_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1463214653_)) + (let ((_e1463614655_ + (let () + (declare (not safe)) + (gx#stx-e _g1463214653_)))) + (let ((_hd1463514658_ + (let () + (declare (not safe)) + (##car _e1463614655_))) + (_tl1463414660_ + (let () + (declare (not safe)) + (##cdr _e1463614655_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl1463414660_)) + (let ((_g17086_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl1463414660_ + '0)))) + (begin + (let ((_g17087_ + (let () + (declare (not safe)) + (if (##values? _g17086_) + (##vector-length _g17086_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g16674_ 2))) + (##fx= _g17087_ 2))) (error "Context expects 2 values" - _g16674_))) - (let ((_target1438414410_ + _g17087_))) + (let ((_target1463714663_ (let () (declare (not safe)) - (##vector-ref _g16673_ 0))) - (_tl1438614412_ + (##vector-ref _g17086_ 0))) + (_tl1463914665_ (let () (declare (not safe)) - (##vector-ref _g16673_ 1)))) - (if (gx#stx-null? _tl1438614412_) - (letrec ((_loop1438714415_ - (lambda (_hd1438514418_ - _rands1439114420_) - (if (gx#stx-pair? - _hd1438514418_) - (let ((_e1438814423_ - (gx#stx-e - _hd1438514418_))) - (let ((_lp-hd1438914426_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1438814423_))) - (_lp-tl1439014428_ - (let () (declare (not safe)) (##cdr _e1438814423_)))) - (_loop1438714415_ - _lp-tl1439014428_ - (cons _lp-hd1438914426_ _rands1439114420_)))) - (let ((_rands1439214431_ (reverse _rands1439114420_))) - ((lambda (_L14434_) - (for-each - (lambda (_g1444714449_) - (apply gxc#compile-e _g1444714449_ _args14376_)) - (foldr1 (lambda (_g1445114454_ _g1445214456_) - (cons _g1445114454_ _g1445214456_)) - '() - _L14434_))) - _rands1439214431_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1438714415_ - _target1438414410_ - '())) - (_g1437814397_ _g1437914400_))))) - (_g1437814397_ _g1437914400_)))) - (_g1437814397_ _g1437914400_))))) - (_g1437714459_ _stx14375_)))) + (##vector-ref _g17086_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1463914665_)) + (letrec ((_loop1464014668_ + (lambda (_hd1463814671_ + _rands1464414673_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1463814671_)) + (let ((_e1464114676_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd1463814671_)))) + (let ((_lp-hd1464214679_ + (let () (declare (not safe)) (##car _e1464114676_))) + (_lp-tl1464314681_ + (let () (declare (not safe)) (##cdr _e1464114676_)))) + (let ((__tmp17091 + (let () + (declare (not safe)) + (cons _lp-hd1464214679_ _rands1464414673_)))) + (declare (not safe)) + (_loop1464014668_ _lp-tl1464314681_ __tmp17091)))) + (let ((_rands1464514684_ + (let () + (declare (not safe)) + (reverse _rands1464414673_)))) + ((lambda (_L14687_) + (let ((__tmp17090 + (lambda (_g1470014702_) + (apply gxc#compile-e _g1470014702_ _args14629_))) + (__tmp17088 + (let ((__tmp17089 + (lambda (_g1470414707_ _g1470514709_) + (let () + (declare (not safe)) + (cons _g1470414707_ _g1470514709_))))) + (declare (not safe)) + (foldr1 __tmp17089 '() _L14687_)))) + (declare (not safe)) + (for-each __tmp17090 __tmp17088))) + _rands1464514684_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1464014668_ + _target1463714663_ + '()))) + (let () + (declare (not safe)) + (_g1463114650_ _g1463214653_)))))) + (let () + (declare (not safe)) + (_g1463114650_ _g1463214653_))))) + (let () + (declare (not safe)) + (_g1463114650_ _g1463214653_)))))) + (declare (not safe)) + (_g1463014712_ _stx14628_)))) (define gxc#collect-bindings-define-values% - (lambda (_stx14306_) - (let* ((_g1430814325_ - (lambda (_g1430914322_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1430914322_))) - (_g1430714372_ - (lambda (_g1430914328_) - (if (gx#stx-pair? _g1430914328_) - (let ((_e1431214330_ (gx#stx-e _g1430914328_))) - (let ((_hd1431314333_ + (lambda (_stx14559_) + (let* ((_g1456114578_ + (lambda (_g1456214575_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1456214575_)))) + (_g1456014625_ + (lambda (_g1456214581_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1456214581_)) + (let ((_e1456714583_ + (let () + (declare (not safe)) + (gx#stx-e _g1456214581_)))) + (let ((_hd1456614586_ (let () (declare (not safe)) - (##car _e1431214330_))) - (_tl1431414335_ + (##car _e1456714583_))) + (_tl1456514588_ (let () (declare (not safe)) - (##cdr _e1431214330_)))) - (if (gx#stx-pair? _tl1431414335_) - (let ((_e1431514338_ (gx#stx-e _tl1431414335_))) - (let ((_hd1431614341_ + (##cdr _e1456714583_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1456514588_)) + (let ((_e1457014591_ + (let () + (declare (not safe)) + (gx#stx-e _tl1456514588_)))) + (let ((_hd1456914594_ (let () (declare (not safe)) - (##car _e1431514338_))) - (_tl1431714343_ + (##car _e1457014591_))) + (_tl1456814596_ (let () (declare (not safe)) - (##cdr _e1431514338_)))) - (if (gx#stx-pair? _tl1431714343_) - (let ((_e1431814346_ - (gx#stx-e _tl1431714343_))) - (let ((_hd1431914349_ + (##cdr _e1457014591_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1456814596_)) + (let ((_e1457314599_ + (let () + (declare (not safe)) + (gx#stx-e _tl1456814596_)))) + (let ((_hd1457214602_ (let () (declare (not safe)) - (##car _e1431814346_))) - (_tl1432014351_ + (##car _e1457314599_))) + (_tl1457114604_ (let () (declare (not safe)) - (##cdr _e1431814346_)))) - (if (gx#stx-null? _tl1432014351_) - ((lambda (_L14354_ _L14355_) - (gx#stx-for-each1 - (lambda (_bind14370_) - (if (gx#identifier? - _bind14370_) - (gxc#add-module-binding! - _bind14370_ - '#f) - '#!void)) - _L14355_)) - _hd1431914349_ - _hd1431614341_) - (_g1430814325_ _g1430914328_)))) - (_g1430814325_ _g1430914328_)))) - (_g1430814325_ _g1430914328_)))) - (_g1430814325_ _g1430914328_))))) - (_g1430714372_ _stx14306_)))) + (##cdr _e1457314599_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1457114604_)) + ((lambda (_L14607_ _L14608_) + (let ((__tmp17092 + (lambda (_bind14623_) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#identifier? _bind14623_)) + (let () + (declare (not safe)) + (gxc#add-module-binding! _bind14623_ '#f)) + '#!void)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gx#stx-for-each1 + __tmp17092 + _L14608_))) + _hd1457214602_ + _hd1456914594_) + (let () + (declare (not safe)) + (_g1456114578_ + _g1456214581_))))) + (let () + (declare (not safe)) + (_g1456114578_ _g1456214581_))))) + (let () + (declare (not safe)) + (_g1456114578_ _g1456214581_))))) + (let () + (declare (not safe)) + (_g1456114578_ _g1456214581_)))))) + (declare (not safe)) + (_g1456014625_ _stx14559_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_stx14239_) - (let* ((_g1424114258_ - (lambda (_g1424214255_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1424214255_))) - (_g1424014303_ - (lambda (_g1424214261_) - (if (gx#stx-pair? _g1424214261_) - (let ((_e1424514263_ (gx#stx-e _g1424214261_))) - (let ((_hd1424614266_ + (lambda (_stx14492_) + (let* ((_g1449414511_ + (lambda (_g1449514508_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1449514508_)))) + (_g1449314556_ + (lambda (_g1449514514_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1449514514_)) + (let ((_e1450014516_ + (let () + (declare (not safe)) + (gx#stx-e _g1449514514_)))) + (let ((_hd1449914519_ (let () (declare (not safe)) - (##car _e1424514263_))) - (_tl1424714268_ + (##car _e1450014516_))) + (_tl1449814521_ (let () (declare (not safe)) - (##cdr _e1424514263_)))) - (if (gx#stx-pair? _tl1424714268_) - (let ((_e1424814271_ (gx#stx-e _tl1424714268_))) - (let ((_hd1424914274_ + (##cdr _e1450014516_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1449814521_)) + (let ((_e1450314524_ + (let () + (declare (not safe)) + (gx#stx-e _tl1449814521_)))) + (let ((_hd1450214527_ (let () (declare (not safe)) - (##car _e1424814271_))) - (_tl1425014276_ + (##car _e1450314524_))) + (_tl1450114529_ (let () (declare (not safe)) - (##cdr _e1424814271_)))) - (if (gx#stx-pair? _tl1425014276_) - (let ((_e1425114279_ - (gx#stx-e _tl1425014276_))) - (let ((_hd1425214282_ + (##cdr _e1450314524_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1450114529_)) + (let ((_e1450614532_ + (let () + (declare (not safe)) + (gx#stx-e _tl1450114529_)))) + (let ((_hd1450514535_ (let () (declare (not safe)) - (##car _e1425114279_))) - (_tl1425314284_ + (##car _e1450614532_))) + (_tl1450414537_ (let () (declare (not safe)) - (##cdr _e1425114279_)))) - (if (gx#stx-null? _tl1425314284_) - ((lambda (_L14287_ _L14288_) - (gxc#add-module-binding! - _L14288_ - '#t)) - _hd1425214282_ - _hd1424914274_) - (_g1424114258_ _g1424214261_)))) - (_g1424114258_ _g1424214261_)))) - (_g1424114258_ _g1424214261_)))) - (_g1424114258_ _g1424214261_))))) - (_g1424014303_ _stx14239_)))) + (##cdr _e1450614532_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1450414537_)) + ((lambda (_L14540_ _L14541_) + (let () + (declare (not safe)) + (gxc#add-module-binding! + _L14541_ + '#t))) + _hd1450514535_ + _hd1450214527_) + (let () + (declare (not safe)) + (_g1449414511_ + _g1449514514_))))) + (let () + (declare (not safe)) + (_g1449414511_ _g1449514514_))))) + (let () + (declare (not safe)) + (_g1449414511_ _g1449514514_))))) + (let () + (declare (not safe)) + (_g1449414511_ _g1449514514_)))))) + (declare (not safe)) + (_g1449314556_ _stx14492_)))) (define gxc#lift-modules-module% - (lambda (_stx14181_ _modules14182_) - (let* ((_g1418414198_ - (lambda (_g1418514195_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1418514195_))) - (_g1418314236_ - (lambda (_g1418514201_) - (if (gx#stx-pair? _g1418514201_) - (let ((_e1418814203_ (gx#stx-e _g1418514201_))) - (let ((_hd1418914206_ + (lambda (_stx14434_ _modules14435_) + (let* ((_g1443714451_ + (lambda (_g1443814448_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1443814448_)))) + (_g1443614489_ + (lambda (_g1443814454_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1443814454_)) + (let ((_e1444314456_ + (let () + (declare (not safe)) + (gx#stx-e _g1443814454_)))) + (let ((_hd1444214459_ (let () (declare (not safe)) - (##car _e1418814203_))) - (_tl1419014208_ + (##car _e1444314456_))) + (_tl1444114461_ (let () (declare (not safe)) - (##cdr _e1418814203_)))) - (if (gx#stx-pair? _tl1419014208_) - (let ((_e1419114211_ (gx#stx-e _tl1419014208_))) - (let ((_hd1419214214_ + (##cdr _e1444314456_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1444114461_)) + (let ((_e1444614464_ + (let () + (declare (not safe)) + (gx#stx-e _tl1444114461_)))) + (let ((_hd1444514467_ (let () (declare (not safe)) - (##car _e1419114211_))) - (_tl1419314216_ + (##car _e1444614464_))) + (_tl1444414469_ (let () (declare (not safe)) - (##cdr _e1419114211_)))) - ((lambda (_L14219_ _L14220_) - (let ((_ctx14233_ - (gx#syntax-local-e__0 _L14220_))) - (set-box! - _modules14182_ - (cons _ctx14233_ - (unbox _modules14182_))) - (call-with-parameters - (lambda () - (gxc#compile-e - (##structure-ref - _ctx14233_ - '11 - gx#module-context::t - '#f) - _modules14182_)) - gx#current-expander-context - _ctx14233_))) - _tl1419314216_ - _hd1419214214_))) - (_g1418414198_ _g1418514201_)))) - (_g1418414198_ _g1418514201_))))) - (_g1418314236_ _stx14181_)))) + (##cdr _e1444614464_)))) + ((lambda (_L14472_ _L14473_) + (let ((_ctx14486_ + (let () + (declare (not safe)) + (gx#syntax-local-e__0 + _L14473_)))) + (let ((__tmp17093 + (let ((__tmp17094 + (let () + (declare (not safe)) + (unbox _modules14435_)))) + (declare (not safe)) + (cons _ctx14486_ __tmp17094)))) + (declare (not safe)) + (set-box! _modules14435_ __tmp17093)) + (let ((__tmp17095 + (lambda () + (let ((__tmp17096 + (##structure-ref + _ctx14486_ + '11 + gx#module-context::t + '#f))) + (declare (not safe)) + (gxc#compile-e + __tmp17096 + _modules14435_))))) + (declare (not safe)) + (call-with-parameters + __tmp17095 + gx#current-expander-context + _ctx14486_)))) + _tl1444414469_ + _hd1444514467_))) + (let () + (declare (not safe)) + (_g1443714451_ _g1443814454_))))) + (let () + (declare (not safe)) + (_g1443714451_ _g1443814454_)))))) + (declare (not safe)) + (_g1443614489_ _stx14434_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_decls1413714139_ (gxc#current-compile-decls))) - (if _decls1413714139_ - (let ((_decls14142_ _decls1413714139_)) - (let _lp14144_ ((_rest14146_ _decls14142_)) - (let* ((_rest1414714155_ _rest14146_) - (_else1414914163_ (lambda () '#f)) - (_K1415114169_ - (lambda (_decls14166_ _decl14167_) - (if (equal? _decl14167_ '(not safe)) + (let ((_decls1439014392_ (gxc#current-compile-decls))) + (if _decls1439014392_ + (let ((_decls14395_ _decls1439014392_)) + (let _lp14397_ ((_rest14399_ _decls14395_)) + (let* ((_rest1440014408_ _rest14399_) + (_else1440214416_ (lambda () '#f)) + (_K1440414422_ + (lambda (_decls14419_ _decl14420_) + (if (let () + (declare (not safe)) + (equal? _decl14420_ '(not safe))) '#t - (if (equal? _decl14167_ '(safe)) + (if (let () + (declare (not safe)) + (equal? _decl14420_ '(safe))) '#f - (_lp14144_ _decls14166_)))))) + (let () + (declare (not safe)) + (_lp14397_ _decls14419_))))))) (if (let () (declare (not safe)) - (##pair? _rest1414714155_)) - (let ((_hd1415214172_ + (##pair? _rest1440014408_)) + (let ((_hd1440514425_ (let () (declare (not safe)) - (##car _rest1414714155_))) - (_tl1415314174_ + (##car _rest1440014408_))) + (_tl1440614427_ (let () (declare (not safe)) - (##cdr _rest1414714155_)))) - (let* ((_decl14177_ _hd1415214172_) - (_decls14179_ _tl1415314174_)) - (_K1415114169_ _decls14179_ _decl14177_))) - (_else1414914163_))))) + (##cdr _rest1440014408_)))) + (let* ((_decl14430_ _hd1440514425_) + (_decls14432_ _tl1440614427_)) + (declare (not safe)) + (_K1440414422_ _decls14432_ _decl14430_))) + (let () (declare (not safe)) (_else1440214416_)))))) '#f)))) (define gxc#add-module-binding! - (lambda (_id14131_ _syntax?14132_) - (let ((_eid14134_ + (lambda (_id14384_ _syntax?14385_) + (let ((_eid14387_ (##structure-ref - (gx#resolve-identifier__0 _id14131_) + (let () + (declare (not safe)) + (gx#resolve-identifier__0 _id14384_)) '1 gx#binding::t '#f)) - (_ht14135_ + (_ht14388_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid14134_) + (if (let () (declare (not safe)) (interned-symbol? _eid14387_)) '#!void - (table-set! - _ht14135_ - _eid14134_ - (gx#make-binding-id__1 - (gxc#generate-runtime-gensym-reference__0 _eid14134_) - _syntax?14132_)))))) + (let ((__tmp17097 + (let ((__tmp17098 + (let () + (declare (not safe)) + (gxc#generate-runtime-gensym-reference__0 + _eid14387_)))) + (declare (not safe)) + (gx#make-binding-id__1 __tmp17098 _syntax?14385_)))) + (declare (not safe)) + (table-set! _ht14388_ _eid14387_ __tmp17097)))))) (define gxc#runtime-identifier=? - (lambda (_id114124_ _id214125_) - (letrec ((_symbol-e14127_ - (lambda (_id14129_) - (if (symbol? _id14129_) - _id14129_ - (gxc#generate-runtime-binding-id _id14129_))))) - (eq? (_symbol-e14127_ _id114124_) (_symbol-e14127_ _id214125_))))) + (lambda (_id114377_ _id214378_) + (letrec ((_symbol-e14380_ + (lambda (_id14382_) + (if (let () (declare (not safe)) (symbol? _id14382_)) + _id14382_ + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id _id14382_)))))) + (let ((__tmp17100 + (let () (declare (not safe)) (_symbol-e14380_ _id114377_))) + (__tmp17099 + (let () (declare (not safe)) (_symbol-e14380_ _id214378_)))) + (declare (not safe)) + (eq? __tmp17100 __tmp17099))))) (define gxc#generate-runtime-binding-id - (lambda (_id14102_) - (let ((_$e14104_ + (lambda (_id14355_) + (let ((_$e14357_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id14102_ + _id14355_ 'gx#syntax-quote::t)) - (gx#resolve-identifier__0 _id14102_) + (let () + (declare (not safe)) + (gx#resolve-identifier__0 _id14355_)) '#f))) - (if _$e14104_ - ((lambda (_bind14107_) - (let ((_eid14109_ - (##structure-ref _bind14107_ '1 gx#binding::t '#f)) - (_ht14110_ + (if _$e14357_ + ((lambda (_bind14360_) + (let ((_eid14362_ + (##structure-ref _bind14360_ '1 gx#binding::t '#f)) + (_ht14363_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid14109_) - _eid14109_ - (let ((_$e14112_ (table-ref _ht14110_ _eid14109_ '#f))) - (if _$e14112_ - (values _$e14112_) + (if (let () + (declare (not safe)) + (interned-symbol? _eid14362_)) + _eid14362_ + (let ((_$e14365_ + (let () + (declare (not safe)) + (table-ref _ht14363_ _eid14362_ '#f)))) + (if _$e14365_ + (values _$e14365_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind14107_ + _bind14360_ 'gx#local-binding::t)) - (let ((_gid14115_ - (gxc#generate-runtime-gensym-reference__0 - _eid14109_))) - (table-set! _ht14110_ _eid14109_ _gid14115_) - _gid14115_) + (let ((_gid14368_ + (let () + (declare (not safe)) + (gxc#generate-runtime-gensym-reference__0 + _eid14362_)))) + (let () + (declare (not safe)) + (table-set! + _ht14363_ + _eid14362_ + _gid14368_)) + _gid14368_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind14107_ + _bind14360_ 'gx#module-binding::t)) - (let ((_gid14122_ - (let ((_$e14117_ + (let ((_gid14375_ + (let ((_$e14370_ (##structure-ref (##structure-ref - _bind14107_ + _bind14360_ '4 gx#module-binding::t '#f) '6 gx#module-context::t '#f))) - (if _$e14117_ - ((lambda (_ns14120_) + (if _$e14370_ + ((lambda (_ns14373_) (make-symbol - _ns14120_ + _ns14373_ '"#" - _eid14109_)) - _$e14117_) - (gxc#generate-runtime-gensym-reference__0 - _eid14109_))))) - (table-set! - _ht14110_ - _eid14109_ - _gid14122_) - _gid14122_) - (gxc#raise-compile-error - '"Cannot compile reference to uninterned binding" - _id14102_ - _eid14109_ - _bind14107_)))))))) - _$e14104_) - (if (interned-symbol? (gx#stx-e _id14102_)) - (gx#stx-e _id14102_) - (gxc#raise-compile-error - '"Cannot compile reference to uninterned identifier" - _id14102_)))))) + _eid14362_)) + _$e14370_) + (let () + (declare (not safe)) + (gxc#generate-runtime-gensym-reference__0 + _eid14362_)))))) + (let () + (declare (not safe)) + (table-set! + _ht14363_ + _eid14362_ + _gid14375_)) + _gid14375_) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Cannot compile reference to uninterned binding" + _id14355_ + _eid14362_ + _bind14360_))))))))) + _$e14357_) + (if (let ((__tmp17101 + (let () (declare (not safe)) (gx#stx-e _id14355_)))) + (declare (not safe)) + (interned-symbol? __tmp17101)) + (let () (declare (not safe)) (gx#stx-e _id14355_)) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Cannot compile reference to uninterned identifier" + _id14355_))))))) (define gxc#generate-runtime-binding-id* - (lambda (_id14100_) - (if (gx#identifier? _id14100_) - (gxc#generate-runtime-binding-id _id14100_) - (gxc#generate-runtime-temporary__0)))) + (lambda (_id14353_) + (if (let () (declare (not safe)) (gx#identifier? _id14353_)) + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id _id14353_)) + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__0))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_sym14080_ _quote?14081_) - (let* ((_ht14083_ + (lambda (_sym14333_ _quote?14334_) + (let* ((_ht14336_ (##structure-ref (gxc#current-compile-symbol-table) '1 gxc#symbol-table::t '#f)) - (_$e14085_ (table-ref _ht14083_ _sym14080_ '#f))) - (if _$e14085_ - (values _$e14085_) - (let ((_g14088_ - (if _quote?14081_ + (_$e14338_ + (let () + (declare (not safe)) + (table-ref _ht14336_ _sym14333_ '#f)))) + (if _$e14338_ + (values _$e14338_) + (let ((_g14341_ + (if _quote?14334_ (make-symbol '"__" - _sym14080_ + _sym14333_ '"__" (gxc#current-compile-timestamp)) - (make-symbol '"_" _sym14080_ '"_")))) - (table-set! _ht14083_ _sym14080_ _g14088_) - _g14088_))))) + (make-symbol '"_" _sym14333_ '"_")))) + (let () + (declare (not safe)) + (table-set! _ht14336_ _sym14333_ _g14341_)) + _g14341_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_sym14093_) - (let ((_quote?14095_ '#f)) + (lambda (_sym14346_) + (let ((_quote?14348_ '#f)) + (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym14093_ - _quote?14095_)))) + _sym14346_ + _quote?14348_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g16676_ - (let ((_g16675_ (let () (declare (not safe)) (##length _g16676_)))) - (cond ((let () (declare (not safe)) (##fx= _g16675_ 1)) - (apply gxc#generate-runtime-gensym-reference__0 _g16676_)) - ((let () (declare (not safe)) (##fx= _g16675_ 2)) - (apply gxc#generate-runtime-gensym-reference__% _g16676_)) + (lambda _g17103_ + (let ((_g17102_ (let () (declare (not safe)) (##length _g17103_)))) + (cond ((let () (declare (not safe)) (##fx= _g17102_ 1)) + (apply (lambda (_sym14346_) + (let () + (declare (not safe)) + (gxc#generate-runtime-gensym-reference__0 + _sym14346_))) + _g17103_)) + ((let () (declare (not safe)) (##fx= _g17102_ 2)) + (apply (lambda (_sym14350_ _quote?14351_) + (let () + (declare (not safe)) + (gxc#generate-runtime-gensym-reference__% + _sym14350_ + _quote?14351_))) + _g17103_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g16676_)))))) + _g17103_)))))) (define gxc#generate-runtime-identifier - (lambda (_id14077_) - (gxc#generate-runtime-identifier-key - (gx#core-identifier-key _id14077_)))) + (lambda (_id14330_) + (let ((__tmp17104 + (let () + (declare (not safe)) + (gx#core-identifier-key _id14330_)))) + (declare (not safe)) + (gxc#generate-runtime-identifier-key __tmp17104)))) (define gxc#generate-runtime-identifier-key - (lambda (_key14037_) - (if (interned-symbol? _key14037_) - _key14037_ - (if (uninterned-symbol? _key14037_) - (gxc#generate-runtime-gensym-reference__0 _key14037_) - (let* ((_key1403814045_ _key14037_) - (_E1404014049_ + (lambda (_key14290_) + (if (let () (declare (not safe)) (interned-symbol? _key14290_)) + _key14290_ + (if (let () (declare (not safe)) (uninterned-symbol? _key14290_)) + (let () + (declare (not safe)) + (gxc#generate-runtime-gensym-reference__0 _key14290_)) + (let* ((_key1429114298_ _key14290_) + (_E1429314302_ (lambda () - (error '"No clause matching" _key1403814045_))) - (_K1404114065_ - (lambda (_mark14052_ _eid14053_) - (let ((_$e14055_ + (error '"No clause matching" _key1429114298_))) + (_K1429414318_ + (lambda (_mark14305_ _eid14306_) + (let ((_$e14308_ (##structure-ref - _mark14052_ + _mark14305_ '1 gx#expander-mark::t '#f))) - (if _$e14055_ - ((lambda (_ht14058_) - (let ((_$e14060_ - (table-ref - _ht14058_ - _eid14053_ - '#f))) - (if _$e14060_ - ((lambda (_id14063_) - (if (interned-symbol? _id14063_) - _id14063_ - (gxc#generate-runtime-gensym-reference__0 - _id14063_))) - _$e14060_) - (gxc#generate-runtime-identifier-key - _eid14053_)))) - _$e14055_) - (gxc#generate-runtime-identifier-key - _eid14053_)))))) - (if (let () (declare (not safe)) (##pair? _key1403814045_)) - (let ((_hd1404214068_ + (if _$e14308_ + ((lambda (_ht14311_) + (let ((_$e14313_ + (let () + (declare (not safe)) + (table-ref + _ht14311_ + _eid14306_ + '#f)))) + (if _$e14313_ + ((lambda (_id14316_) + (if (let () + (declare (not safe)) + (interned-symbol? _id14316_)) + _id14316_ + (let () + (declare (not safe)) + (gxc#generate-runtime-gensym-reference__0 + _id14316_)))) + _$e14313_) + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier-key + _eid14306_))))) + _$e14308_) + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier-key + _eid14306_))))))) + (if (let () (declare (not safe)) (##pair? _key1429114298_)) + (let ((_hd1429514321_ (let () (declare (not safe)) - (##car _key1403814045_))) - (_tl1404314070_ + (##car _key1429114298_))) + (_tl1429614323_ (let () (declare (not safe)) - (##cdr _key1403814045_)))) - (let* ((_eid14073_ _hd1404214068_) - (_mark14075_ _tl1404314070_)) - (_K1404114065_ _mark14075_ _eid14073_))) - (_E1404014049_))))))) + (##cdr _key1429114298_)))) + (let* ((_eid14326_ _hd1429514321_) + (_mark14328_ _tl1429614323_)) + (declare (not safe)) + (_K1429414318_ _mark14328_ _eid14326_))) + (let () (declare (not safe)) (_E1429314302_)))))))) (define gxc#generate-runtime-temporary__% - (lambda (_top14024_) - (if _top14024_ - (let ((_ns14026_ + (lambda (_top14277_) + (if _top14277_ + (let ((_ns14279_ (##structure-ref - (gx#core-context-top__1 (gx#current-expander-context)) + (let ((__tmp17105 (gx#current-expander-context))) + (declare (not safe)) + (gx#core-context-top__1 __tmp17105)) '6 gx#module-context::t '#f)) - (_phi14027_ (gx#current-expander-phi))) - (if _ns14026_ - (if (fxpositive? _phi14027_) + (_phi14280_ (gx#current-expander-phi))) + (if _ns14279_ + (if (let () (declare (not safe)) (fxpositive? _phi14280_)) (make-symbol - _ns14026_ + _ns14279_ '"[" - (number->string _phi14027_) + (let () + (declare (not safe)) + (number->string _phi14280_)) '"]#_" - (gensym) + (let () (declare (not safe)) (gensym)) '"_") - (make-symbol _ns14026_ '"#_" (gensym) '"_")) - (if (fxpositive? _phi14027_) + (make-symbol + _ns14279_ + '"#_" + (let () (declare (not safe)) (gensym)) + '"_")) + (if (let () (declare (not safe)) (fxpositive? _phi14280_)) (make-symbol '"[" - (number->string _phi14027_) + (let () + (declare (not safe)) + (number->string _phi14280_)) '"]#_" - (gensym) + (let () (declare (not safe)) (gensym)) '"_") - (make-symbol '"_" (gensym) '"_")))) - (make-symbol '"_" (gensym) '"_")))) + (make-symbol + '"_" + (let () (declare (not safe)) (gensym)) + '"_")))) + (make-symbol '"_" (let () (declare (not safe)) (gensym)) '"_")))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_top14033_ '#f)) - (gxc#generate-runtime-temporary__% _top14033_)))) + (let ((_top14286_ '#f)) + (declare (not safe)) + (gxc#generate-runtime-temporary__% _top14286_)))) (define gxc#generate-runtime-temporary - (lambda _g16678_ - (let ((_g16677_ (let () (declare (not safe)) (##length _g16678_)))) - (cond ((let () (declare (not safe)) (##fx= _g16677_ 0)) - (apply gxc#generate-runtime-temporary__0 _g16678_)) - ((let () (declare (not safe)) (##fx= _g16677_ 1)) - (apply gxc#generate-runtime-temporary__% _g16678_)) + (lambda _g17107_ + (let ((_g17106_ (let () (declare (not safe)) (##length _g17107_)))) + (cond ((let () (declare (not safe)) (##fx= _g17106_ 0)) + (apply (lambda () + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__0))) + _g17107_)) + ((let () (declare (not safe)) (##fx= _g17106_ 1)) + (apply (lambda (_top14288_) + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__% _top14288_))) + _g17107_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g16678_)))))) - (define gxc#generate-runtime-empty (lambda (_stx14021_) '(begin))) + _g17107_)))))) + (define gxc#generate-runtime-empty (lambda (_stx14274_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_stx13873_) - (letrec ((_simplify13875_ - (lambda (_body13919_) - (let _lp13921_ ((_rest13923_ _body13919_) (_r13924_ '())) - (let* ((_rest1392513933_ _rest13923_) - (_else1392713941_ (lambda () (reverse _r13924_))) - (_K1392914009_ - (lambda (_rest13944_ _hd13945_) - (let* ((_hd1394613962_ _hd13945_) - (_else1395013970_ + (lambda (_stx14126_) + (letrec ((_simplify14128_ + (lambda (_body14172_) + (let _lp14174_ ((_rest14176_ _body14172_) (_r14177_ '())) + (let* ((_rest1417814186_ _rest14176_) + (_else1418014194_ + (lambda () + (let () + (declare (not safe)) + (reverse _r14177_)))) + (_K1418214262_ + (lambda (_rest14197_ _hd14198_) + (let* ((_hd1419914215_ _hd14198_) + (_else1420314223_ (lambda () - (_lp13921_ - _rest13944_ - (cons _hd13945_ _r13924_))))) - (let ((_K1395813999_ - (lambda (_exprs13997_) - (_lp13921_ - (foldr1 cons - _rest13944_ - _exprs13997_) - _r13924_))) - (_K1395313983_ + (let ((__tmp17108 + (let () + (declare (not safe)) + (cons _hd14198_ _r14177_)))) + (declare (not safe)) + (_lp14174_ + _rest14197_ + __tmp17108))))) + (let ((_K1421114252_ + (lambda (_exprs14250_) + (let ((__tmp17109 + (let () + (declare (not safe)) + (foldr1 cons + _rest14197_ + _exprs14250_)))) + (declare (not safe)) + (_lp14174_ __tmp17109 _r14177_)))) + (_K1420614236_ (lambda () - (if (null? _rest13944_) - (_lp13921_ - _rest13944_ - (cons _hd13945_ _r13924_)) - (_lp13921_ - _rest13944_ - _r13924_)))) - (_K1395213975_ + (if (let () + (declare (not safe)) + (null? _rest14197_)) + (let ((__tmp17110 + (let () + (declare (not safe)) + (cons _hd14198_ + _r14177_)))) + (declare (not safe)) + (_lp14174_ + _rest14197_ + __tmp17110)) + (let () + (declare (not safe)) + (_lp14174_ + _rest14197_ + _r14177_))))) + (_K1420514228_ (lambda () - (if (null? _rest13944_) - (_lp13921_ - _rest13944_ - (cons _hd13945_ _r13924_)) - (_lp13921_ - _rest13944_ - _r13924_))))) - (let ((_try-match1394913978_ + (if (let () + (declare (not safe)) + (null? _rest14197_)) + (let ((__tmp17111 + (let () + (declare (not safe)) + (cons _hd14198_ + _r14177_)))) + (declare (not safe)) + (_lp14174_ + _rest14197_ + __tmp17111)) + (let () + (declare (not safe)) + (_lp14174_ + _rest14197_ + _r14177_)))))) + (let ((_try-match1420214231_ (lambda () - (if (symbol? _hd1394613962_) - (_K1395213975_) - (_else1395013970_))))) + (if (let () + (declare (not safe)) + (symbol? _hd1419914215_)) + (let () + (declare (not safe)) + (_K1420514228_)) + (let () + (declare (not safe)) + (_else1420314223_)))))) (if (let () (declare (not safe)) - (##pair? _hd1394613962_)) - (let ((_tl1396014004_ + (##pair? _hd1419914215_)) + (let ((_tl1421314257_ (let () (declare (not safe)) - (##cdr _hd1394613962_))) - (_hd1395914002_ + (##cdr _hd1419914215_))) + (_hd1421214255_ (let () (declare (not safe)) - (##car _hd1394613962_)))) + (##car _hd1419914215_)))) (if (let () (declare (not safe)) - (##eq? _hd1395914002_ + (##eq? _hd1421214255_ 'begin)) - (let ((_exprs14007_ - _tl1396014004_)) - (_K1395813999_ _exprs14007_)) + (let ((_exprs14260_ + _tl1421314257_)) + (declare (not safe)) + (_K1421114252_ _exprs14260_)) (if (let () (declare (not safe)) - (##eq? _hd1395914002_ + (##eq? _hd1421214255_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl1396014004_)) - (let ((_tl1395713991_ + (##pair? _tl1421314257_)) + (let ((_tl1421014244_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _tl1396014004_)))) - (if (let () (declare (not safe)) (##null? _tl1395713991_)) - (_K1395313983_) - (_try-match1394913978_))) - (_try-match1394913978_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_try-match1394913978_)))) - (_try-match1394913978_)))))))) - (if (let () + (##cdr _tl1421314257_)))) + (if (let () (declare (not safe)) (##null? _tl1421014244_)) + (let () (declare (not safe)) (_K1420614236_)) + (let () (declare (not safe)) (_try-match1420214231_)))) + (let () (declare (not safe)) (_try-match1420214231_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_try-match1420214231_))))) + (let () + (declare (not safe)) + (_try-match1420214231_))))))))) + (if (let () (declare (not safe)) - (##pair? _rest1392513933_)) - (let ((_hd1393014012_ + (##pair? _rest1417814186_)) + (let ((_hd1418314265_ (let () (declare (not safe)) - (##car _rest1392513933_))) - (_tl1393114014_ + (##car _rest1417814186_))) + (_tl1418414267_ (let () (declare (not safe)) - (##cdr _rest1392513933_)))) - (let* ((_hd14017_ _hd1393014012_) - (_rest14019_ _tl1393114014_)) - (_K1392914009_ _rest14019_ _hd14017_))) - (_else1392713941_))))))) - (let* ((_g1387713887_ - (lambda (_g1387813884_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1387813884_))) - (_g1387613916_ - (lambda (_g1387813890_) - (if (gx#stx-pair? _g1387813890_) - (let ((_e1388013892_ (gx#stx-e _g1387813890_))) - (let ((_hd1388113895_ + (##cdr _rest1417814186_)))) + (let* ((_hd14270_ _hd1418314265_) + (_rest14272_ _tl1418414267_)) + (declare (not safe)) + (_K1418214262_ _rest14272_ _hd14270_))) + (let () + (declare (not safe)) + (_else1418014194_)))))))) + (let* ((_g1413014140_ + (lambda (_g1413114137_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1413114137_)))) + (_g1412914169_ + (lambda (_g1413114143_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1413114143_)) + (let ((_e1413514145_ + (let () + (declare (not safe)) + (gx#stx-e _g1413114143_)))) + (let ((_hd1413414148_ (let () (declare (not safe)) - (##car _e1388013892_))) - (_tl1388213897_ + (##car _e1413514145_))) + (_tl1413314150_ (let () (declare (not safe)) - (##cdr _e1388013892_)))) - ((lambda (_L13900_) - (let* ((_body13911_ - (map gxc#compile-e _L13900_)) - (_body13913_ - (_simplify13875_ _body13911_))) - (if (fx= (length _body13913_) '1) - (car _body13913_) - (cons 'begin _body13913_)))) - _tl1388213897_))) - (_g1387713887_ _g1387813890_))))) - (_g1387613916_ _stx13873_))))) + (##cdr _e1413514145_)))) + ((lambda (_L14153_) + (let* ((_body14164_ + (let () + (declare (not safe)) + (map gxc#compile-e _L14153_))) + (_body14166_ + (let () + (declare (not safe)) + (_simplify14128_ _body14164_)))) + (if (fx= (length _body14166_) '1) + (let () + (declare (not safe)) + (car _body14166_)) + (let () + (declare (not safe)) + (cons 'begin _body14166_))))) + _tl1413314150_))) + (let () + (declare (not safe)) + (_g1413014140_ _g1413114143_)))))) + (declare (not safe)) + (_g1412914169_ _stx14126_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_stx13835_) - (let* ((_g1383713847_ - (lambda (_g1383813844_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1383813844_))) - (_g1383613870_ - (lambda (_g1383813850_) - (if (gx#stx-pair? _g1383813850_) - (let ((_e1384013852_ (gx#stx-e _g1383813850_))) - (let ((_hd1384113855_ - (let () - (declare (not safe)) - (##car _e1384013852_))) - (_tl1384213857_ - (let () - (declare (not safe)) - (##cdr _e1384013852_)))) - ((lambda (_L13860_) - (cons 'begin (gx#syntax->datum _L13860_))) - _tl1384213857_))) - (_g1383713847_ _g1383813850_))))) - (_g1383613870_ _stx13835_)))) + (lambda (_stx14088_) + (let* ((_g1409014100_ + (lambda (_g1409114097_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1409114097_)))) + (_g1408914123_ + (lambda (_g1409114103_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1409114103_)) + (let ((_e1409514105_ + (let () + (declare (not safe)) + (gx#stx-e _g1409114103_)))) + (let ((_hd1409414108_ + (let () + (declare (not safe)) + (##car _e1409514105_))) + (_tl1409314110_ + (let () + (declare (not safe)) + (##cdr _e1409514105_)))) + ((lambda (_L14113_) + (let ((__tmp17112 + (let () + (declare (not safe)) + (gx#syntax->datum _L14113_)))) + (declare (not safe)) + (cons 'begin __tmp17112))) + _tl1409314110_))) + (let () + (declare (not safe)) + (_g1409014100_ _g1409114103_)))))) + (declare (not safe)) + (_g1408914123_ _stx14088_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_stx13709_) - (let* ((___stx1547715478_ _stx13709_) - (_g1371213740_ + (lambda (_stx13962_) + (let* ((___stx1573015731_ _stx13962_) + (_g1396513993_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1547715478_)))) - (let ((___kont1547915480_ - (lambda (_L13817_ _L13818_) (gxc#compile-e _L13817_))) - (___kont1548115482_ - (lambda (_L13769_ _L13770_) - (let ((_decls13785_ (map gx#syntax->datum _L13770_))) - (call-with-parameters - (lambda () - (cons 'begin - (cons (cons 'declare _decls13785_) - (cons (gxc#compile-e _L13769_) '())))) - gxc#current-compile-decls - (foldr1 cons - (gxc#current-compile-decls) - _decls13785_)))))) - (let ((___match1550215503_ - (lambda (_e1371613793_ - _hd1371713796_ - _tl1371813798_ - _e1371913801_ - _hd1372013804_ - _tl1372113806_ - _e1372213809_ - _hd1372313812_ - _tl1372413814_) - (let ((_L13817_ _hd1372313812_) (_L13818_ _hd1372013804_)) - (if (gx#identifier? _L13818_) - (___kont1547915480_ _L13817_ _L13818_) - (___kont1548115482_ - _hd1372313812_ - _hd1372013804_)))))) - (if (gx#stx-pair? ___stx1547715478_) - (let ((_e1371613793_ (gx#stx-e ___stx1547715478_))) - (let ((_tl1371813798_ - (let () (declare (not safe)) (##cdr _e1371613793_))) - (_hd1371713796_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1573015731_))))) + (let ((___kont1573215733_ + (lambda (_L14070_ _L14071_) + (let () (declare (not safe)) (gxc#compile-e _L14070_)))) + (___kont1573415735_ + (lambda (_L14022_ _L14023_) + (let ((_decls14038_ + (let () + (declare (not safe)) + (map gx#syntax->datum _L14023_)))) + (let ((__tmp17115 + (lambda () + (let ((__tmp17116 + (let ((__tmp17119 + (let () + (declare (not safe)) + (cons 'declare _decls14038_))) + (__tmp17117 + (let ((__tmp17118 + (let () + (declare (not safe)) + (gxc#compile-e + _L14022_)))) + (declare (not safe)) + (cons __tmp17118 '())))) + (declare (not safe)) + (cons __tmp17119 __tmp17117)))) + (declare (not safe)) + (cons 'begin __tmp17116)))) + (__tmp17113 + (let ((__tmp17114 (gxc#current-compile-decls))) + (declare (not safe)) + (foldr1 cons __tmp17114 _decls14038_)))) + (declare (not safe)) + (call-with-parameters + __tmp17115 + gxc#current-compile-decls + __tmp17113)))))) + (let ((___match1575515756_ + (lambda (_e1397114046_ + _hd1397014049_ + _tl1396914051_ + _e1397414054_ + _hd1397314057_ + _tl1397214059_ + _e1397714062_ + _hd1397614065_ + _tl1397514067_) + (let ((_L14070_ _hd1397614065_) (_L14071_ _hd1397314057_)) + (if (let () + (declare (not safe)) + (gx#identifier? _L14071_)) + (___kont1573215733_ _L14070_ _L14071_) + (___kont1573415735_ + _hd1397614065_ + _hd1397314057_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1573015731_)) + (let ((_e1397114046_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1573015731_)))) + (let ((_tl1396914051_ + (let () (declare (not safe)) (##cdr _e1397114046_))) + (_hd1397014049_ (let () (declare (not safe)) - (##car _e1371613793_)))) - (if (gx#stx-pair? _tl1371813798_) - (let ((_e1371913801_ (gx#stx-e _tl1371813798_))) - (let ((_tl1372113806_ + (##car _e1397114046_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1396914051_)) + (let ((_e1397414054_ + (let () + (declare (not safe)) + (gx#stx-e _tl1396914051_)))) + (let ((_tl1397214059_ (let () (declare (not safe)) - (##cdr _e1371913801_))) - (_hd1372013804_ + (##cdr _e1397414054_))) + (_hd1397314057_ (let () (declare (not safe)) - (##car _e1371913801_)))) - (if (gx#stx-pair? _tl1372113806_) - (let ((_e1372213809_ - (gx#stx-e _tl1372113806_))) - (let ((_tl1372413814_ + (##car _e1397414054_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1397214059_)) + (let ((_e1397714062_ + (let () + (declare (not safe)) + (gx#stx-e _tl1397214059_)))) + (let ((_tl1397514067_ (let () (declare (not safe)) - (##cdr _e1372213809_))) - (_hd1372313812_ + (##cdr _e1397714062_))) + (_hd1397614065_ (let () (declare (not safe)) - (##car _e1372213809_)))) - (if (gx#stx-null? _tl1372413814_) - (___match1550215503_ - _e1371613793_ - _hd1371713796_ - _tl1371813798_ - _e1371913801_ - _hd1372013804_ - _tl1372113806_ - _e1372213809_ - _hd1372313812_ - _tl1372413814_) - (_g1371213740_)))) - (_g1371213740_)))) - (_g1371213740_)))) - (_g1371213740_))))))) + (##car _e1397714062_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1397514067_)) + (___match1575515756_ + _e1397114046_ + _hd1397014049_ + _tl1396914051_ + _e1397414054_ + _hd1397314057_ + _tl1397214059_ + _e1397714062_ + _hd1397614065_ + _tl1397514067_) + (let () + (declare (not safe)) + (_g1396513993_))))) + (let () + (declare (not safe)) + (_g1396513993_))))) + (let () (declare (not safe)) (_g1396513993_))))) + (let () (declare (not safe)) (_g1396513993_)))))))) (define gxc#generate-runtime-declare% - (lambda (_stx13669_) - (let* ((_g1367113681_ - (lambda (_g1367213678_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1367213678_))) - (_g1367013706_ - (lambda (_g1367213684_) - (if (gx#stx-pair? _g1367213684_) - (let ((_e1367413686_ (gx#stx-e _g1367213684_))) - (let ((_hd1367513689_ + (lambda (_stx13922_) + (let* ((_g1392413934_ + (lambda (_g1392513931_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1392513931_)))) + (_g1392313959_ + (lambda (_g1392513937_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1392513937_)) + (let ((_e1392913939_ + (let () + (declare (not safe)) + (gx#stx-e _g1392513937_)))) + (let ((_hd1392813942_ (let () (declare (not safe)) - (##car _e1367413686_))) - (_tl1367613691_ + (##car _e1392913939_))) + (_tl1392713944_ (let () (declare (not safe)) - (##cdr _e1367413686_)))) - ((lambda (_L13694_) - (let ((_decls13704_ - (map gx#syntax->datum _L13694_))) + (##cdr _e1392913939_)))) + ((lambda (_L13947_) + (let ((_decls13957_ + (let () + (declare (not safe)) + (map gx#syntax->datum _L13947_)))) (gxc#current-compile-decls - (foldr1 cons - (gxc#current-compile-decls) - _decls13704_)) - (cons 'declare _decls13704_))) - _tl1367613691_))) - (_g1367113681_ _g1367213684_))))) - (_g1367013706_ _stx13669_)))) + (let ((__tmp17120 (gxc#current-compile-decls))) + (declare (not safe)) + (foldr1 cons __tmp17120 _decls13957_))) + (let () + (declare (not safe)) + (cons 'declare _decls13957_)))) + _tl1392713944_))) + (let () + (declare (not safe)) + (_g1392413934_ _g1392513937_)))))) + (declare (not safe)) + (_g1392313959_ _stx13922_)))) (define gxc#generate-runtime-define-values% - (lambda (_stx13416_) - (let* ((_g1341813435_ - (lambda (_g1341913432_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1341913432_))) - (_g1341713666_ - (lambda (_g1341913438_) - (if (gx#stx-pair? _g1341913438_) - (let ((_e1342213440_ (gx#stx-e _g1341913438_))) - (let ((_hd1342313443_ + (lambda (_stx13669_) + (let* ((_g1367113688_ + (lambda (_g1367213685_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1367213685_)))) + (_g1367013919_ + (lambda (_g1367213691_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1367213691_)) + (let ((_e1367713693_ + (let () + (declare (not safe)) + (gx#stx-e _g1367213691_)))) + (let ((_hd1367613696_ (let () (declare (not safe)) - (##car _e1342213440_))) - (_tl1342413445_ + (##car _e1367713693_))) + (_tl1367513698_ (let () (declare (not safe)) - (##cdr _e1342213440_)))) - (if (gx#stx-pair? _tl1342413445_) - (let ((_e1342513448_ (gx#stx-e _tl1342413445_))) - (let ((_hd1342613451_ + (##cdr _e1367713693_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1367513698_)) + (let ((_e1368013701_ + (let () + (declare (not safe)) + (gx#stx-e _tl1367513698_)))) + (let ((_hd1367913704_ (let () (declare (not safe)) - (##car _e1342513448_))) - (_tl1342713453_ + (##car _e1368013701_))) + (_tl1367813706_ (let () (declare (not safe)) - (##cdr _e1342513448_)))) - (if (gx#stx-pair? _tl1342713453_) - (let ((_e1342813456_ - (gx#stx-e _tl1342713453_))) - (let ((_hd1342913459_ + (##cdr _e1368013701_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1367813706_)) + (let ((_e1368313709_ + (let () + (declare (not safe)) + (gx#stx-e _tl1367813706_)))) + (let ((_hd1368213712_ (let () (declare (not safe)) - (##car _e1342813456_))) - (_tl1343013461_ + (##car _e1368313709_))) + (_tl1368113714_ (let () (declare (not safe)) - (##cdr _e1342813456_)))) - (if (gx#stx-null? _tl1343013461_) - ((lambda (_L13464_ _L13465_) - (let* ((___stx1555515556_ - _L13465_) - (_g1348213496_ + (##cdr _e1368313709_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1368113714_)) + ((lambda (_L13717_ _L13718_) + (let* ((___stx1580815809_ + _L13718_) + (_g1373513749_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1555515556_)))) - (let ((___kont1555715558_ + (let () + (declare + (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1580815809_))))) + (let ((___kont1581015811_ (lambda () - (gxc#compile-e - _L13464_))) - (___kont1555915560_ - (lambda (_L13628_) - (let ((_eid13637_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#generate-runtime-binding-id _L13628_))) - (let ((_lambda-expr1363813640_ - (gxc#apply-find-lambda-expression _L13464_))) - (if _lambda-expr1363813640_ - (let ((_lambda-expr13643_ _lambda-expr1363813640_)) + (let () + (declare + (not safe)) + (gxc#compile-e + _L13717_)))) + (___kont1581215813_ + (lambda (_L13881_) + (let ((_eid13890_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id _L13881_)))) + (let ((_lambda-expr1389113893_ + (let () + (declare (not safe)) + (gxc#apply-find-lambda-expression _L13717_)))) + (if _lambda-expr1389113893_ + (let* ((_lambda-expr13896_ _lambda-expr1389113893_) + (__tmp17121 + (gxc#current-compile-runtime-names))) + (declare (not safe)) (table-set! - (gxc#current-compile-runtime-names) - _lambda-expr13643_ - _eid13637_)) + __tmp17121 + _lambda-expr13896_ + _eid13890_)) '#f)) - (cons 'define - (cons _eid13637_ - (cons (gxc#compile-e _L13464_) '())))))) - (___kont1556115562_ + (let ((__tmp17122 + (let ((__tmp17123 + (let ((__tmp17124 + (let () + (declare (not safe)) + (gxc#compile-e _L13717_)))) + (declare (not safe)) + (cons __tmp17124 '())))) + (declare (not safe)) + (cons _eid13890_ __tmp17123)))) + (declare (not safe)) + (cons 'define __tmp17122))))) + (___kont1581415815_ (lambda () - (let* ((_tmp13503_ (gxc#generate-runtime-temporary__% '#t)) - (_body13612_ - (let _lp13505_ ((_rest13507_ _L13465_) - (_k13508_ '0) - (_r13509_ '())) - (let* ((___stx1552515526_ _rest13507_) - (_g1351413531_ + (let* ((_tmp13756_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__% '#t))) + (_body13865_ + (let _lp13758_ ((_rest13760_ _L13718_) + (_k13761_ '0) + (_r13762_ '())) + (let* ((___stx1577815779_ _rest13760_) + (_g1376713784_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1552515526_)))) - (let ((___kont1552715528_ - (lambda (_L13599_) - (_lp13505_ - _L13599_ - (fx+ _k13508_ '1) - _r13509_))) - (___kont1552915530_ - (lambda (_L13572_ _L13573_) - (_lp13505_ - _L13572_ - (fx+ _k13508_ '1) - (cons (cons 'define - (cons (gxc#generate-runtime-binding-id - _L13573_) - (cons (gxc#generate-runtime-values-ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tmp13503_ - _k13508_ - _L13572_) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r13509_)))) - (___kont1553115532_ - (lambda (_L13543_) - (foldl1 cons - (cons (cons 'define - (cons (gxc#generate-runtime-binding-id -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L13543_) - (cons (gxc#generate-runtime-values->list - _tmp13503_ - _k13508_) - '()))) - '()) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r13509_))) - (___kont1553315534_ - (lambda () (reverse _r13509_)))) - (let ((_g1351213559_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1577815779_))))) + (let ((___kont1578015781_ + (lambda (_L13852_) + (let ((__tmp17125 + (let () + (declare (not safe)) + (fx+ _k13761_ '1)))) + (declare (not safe)) + (_lp13758_ + _L13852_ + __tmp17125 + _r13762_)))) + (___kont1578215783_ + (lambda (_L13825_ _L13826_) + (let ((__tmp17132 + (let () + (declare (not safe)) + (fx+ _k13761_ '1))) + (__tmp17126 + (let ((__tmp17127 + (let ((__tmp17128 + (let ((__tmp17131 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id _L13826_))) + (__tmp17129 + (let ((__tmp17130 + (let () + (declare (not safe)) + (gxc#generate-runtime-values-ref + _tmp13756_ + _k13761_ + _L13825_)))) + (declare (not safe)) + (cons __tmp17130 '())))) + (declare (not safe)) + (cons __tmp17131 __tmp17129)))) + (declare (not safe)) + (cons 'define __tmp17128)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17127 _r13762_)))) + (declare (not safe)) + (_lp13758_ + _L13825_ + __tmp17132 + __tmp17126)))) + (___kont1578415785_ + (lambda (_L13796_) + (let ((__tmp17133 + (let ((__tmp17134 + (let ((__tmp17135 + (let ((__tmp17138 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id _L13796_))) + (__tmp17136 + (let ((__tmp17137 + (let () + (declare (not safe)) + (gxc#generate-runtime-values->list + _tmp13756_ + _k13761_)))) + (declare (not safe)) + (cons __tmp17137 '())))) + (declare (not safe)) + (cons __tmp17138 __tmp17136)))) + (declare (not safe)) + (cons 'define __tmp17135)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17134 '())))) + (declare (not safe)) + (foldl1 cons __tmp17133 _r13762_)))) + (___kont1578615787_ + (lambda () + (let () + (declare (not safe)) + (reverse _r13762_))))) + (let ((_g1376513812_ (lambda () - (let ((_L13543_ ___stx1552515526_)) - (if (gx#identifier? _L13543_) - (___kont1553115532_ _L13543_) - (___kont1553315534_)))))) - (if (gx#stx-pair? ___stx1552515526_) - (let ((_e1351713588_ - (gx#stx-e ___stx1552515526_))) - (let ((_tl1351913593_ + (let ((_L13796_ ___stx1577815779_)) + (if (let () + (declare (not safe)) + (gx#identifier? _L13796_)) + (___kont1578415785_ _L13796_) + (___kont1578615787_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1577815779_)) + (let ((_e1377213841_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx1577815779_)))) + (let ((_tl1377013846_ (let () (declare (not safe)) - (##cdr _e1351713588_))) - (_hd1351813591_ + (##cdr _e1377213841_))) + (_hd1377113844_ (let () (declare (not safe)) - (##car _e1351713588_)))) - (if (gx#stx-datum? _hd1351813591_) - (let ((_e1352013596_ - (gx#stx-e - _hd1351813591_))) - (if (equal? _e1352013596_ - '#f) - (___kont1552715528_ - _tl1351913593_) - (___kont1552915530_ - _tl1351913593_ - _hd1351813591_))) - (___kont1552915530_ - _tl1351913593_ - _hd1351813591_)))) - (_g1351213559_)))))))) - (cons 'begin - (cons (cons 'define - (cons _tmp13503_ - (cons (gxc#compile-e _L13464_) - '()))) - (cons (gxc#generate-runtime-check-values - _tmp13503_ - _L13465_ - _L13464_) - _body13612_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - ___stx1555515556_) - (let ((_e1348413650_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - ___stx1555515556_))) - (let ((_tl1348613655_ - (let () (declare (not safe)) (##cdr _e1348413650_))) - (_hd1348513653_ - (let () (declare (not safe)) (##car _e1348413650_)))) - (if (gx#stx-datum? _hd1348513653_) - (let ((_e1348713658_ (gx#stx-e _hd1348513653_))) - (if (equal? _e1348713658_ '#f) - (if (gx#stx-null? _tl1348613655_) - (___kont1555715558_) - (___kont1556115562_)) - (if (gx#stx-null? _tl1348613655_) - (___kont1555915560_ _hd1348513653_) - (___kont1556115562_)))) - (if (gx#stx-null? _tl1348613655_) - (___kont1555915560_ _hd1348513653_) - (___kont1556115562_))))) - (___kont1556115562_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1342913459_ - _hd1342613451_) - (_g1341813435_ _g1341913438_)))) - (_g1341813435_ _g1341913438_)))) - (_g1341813435_ _g1341913438_)))) - (_g1341813435_ _g1341913438_))))) - (_g1341713666_ _stx13416_)))) + (##car _e1377213841_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? + _hd1377113844_)) + (let ((_e1377313849_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1377113844_)))) + (if (let () + (declare (not safe)) + (equal? _e1377313849_ + '#f)) + (___kont1578015781_ + _tl1377013846_) + (___kont1578215783_ + _tl1377013846_ + _hd1377113844_))) + (___kont1578215783_ + _tl1377013846_ + _hd1377113844_)))) + (let () + (declare (not safe)) + (_g1376513812_))))))))) + (let ((__tmp17139 + (let ((__tmp17142 + (let ((__tmp17143 + (let ((__tmp17144 + (let ((__tmp17145 + (let () + (declare (not safe)) + (gxc#compile-e + _L13717_)))) + (declare (not safe)) + (cons __tmp17145 '())))) + (declare (not safe)) + (cons _tmp13756_ __tmp17144)))) + (declare (not safe)) + (cons 'define __tmp17143))) + (__tmp17140 + (let ((__tmp17141 + (let () + (declare (not safe)) + (gxc#generate-runtime-check-values + _tmp13756_ + _L13718_ + _L13717_)))) + (declare (not safe)) + (cons __tmp17141 _body13865_)))) + (declare (not safe)) + (cons __tmp17142 __tmp17140)))) + (declare (not safe)) + (cons 'begin __tmp17139)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx1580815809_)) + (let ((_e1373913903_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e ___stx1580815809_)))) + (let ((_tl1373713908_ + (let () (declare (not safe)) (##cdr _e1373913903_))) + (_hd1373813906_ + (let () (declare (not safe)) (##car _e1373913903_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _hd1373813906_)) + (let ((_e1374013911_ + (let () + (declare (not safe)) + (gx#stx-e _hd1373813906_)))) + (if (let () + (declare (not safe)) + (equal? _e1374013911_ '#f)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1373713908_)) + (___kont1581015811_) + (___kont1581415815_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1373713908_)) + (___kont1581215813_ _hd1373813906_) + (___kont1581415815_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1373713908_)) + (___kont1581215813_ _hd1373813906_) + (___kont1581415815_))))) + (___kont1581415815_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd1368213712_ + _hd1367913704_) + (let () + (declare (not safe)) + (_g1367113688_ + _g1367213691_))))) + (let () + (declare (not safe)) + (_g1367113688_ _g1367213691_))))) + (let () + (declare (not safe)) + (_g1367113688_ _g1367213691_))))) + (let () + (declare (not safe)) + (_g1367113688_ _g1367213691_)))))) + (declare (not safe)) + (_g1367013919_ _stx13669_)))) (define gxc#generate-runtime-check-values - (lambda (_vals13392_ _hd13393_ _expr13394_) - (let ((_$e13396_ (gxc#apply-count-values _expr13394_))) - (if _$e13396_ - ((lambda (_count13399_) - (let ((_len13401_ (gx#stx-length _hd13393_)) - (_cmp13402_ (if (gx#stx-list? _hd13393_) fx= fx>=))) - (if (or (fx= _len13401_ '0) - (_cmp13402_ _count13399_ _len13401_)) + (lambda (_vals13645_ _hd13646_ _expr13647_) + (let ((_$e13649_ + (let () + (declare (not safe)) + (gxc#apply-count-values _expr13647_)))) + (if _$e13649_ + ((lambda (_count13652_) + (let ((_len13654_ + (let () + (declare (not safe)) + (gx#stx-length _hd13646_))) + (_cmp13655_ + (if (let () + (declare (not safe)) + (gx#stx-list? _hd13646_)) + fx= + fx>=))) + (if (or (fx= _len13654_ '0) + (_cmp13655_ _count13652_ _len13654_)) '#!void - (gxc#raise-compile-error - '"Value count mismatch" - _expr13394_ - _hd13393_)))) - _$e13396_) - (let* ((_len13407_ (gx#stx-length _hd13393_)) - (_cmp13409_ (if (gx#stx-list? _hd13393_) '##fx= '##fx>=)) - (_errmsg13411_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Value count mismatch" + _expr13647_ + _hd13646_))))) + _$e13649_) + (let* ((_len13660_ + (let () (declare (not safe)) (gx#stx-length _hd13646_))) + (_cmp13662_ + (if (let () + (declare (not safe)) + (gx#stx-list? _hd13646_)) + '##fx= + '##fx>=)) + (_errmsg13664_ (string-append - (if (gx#stx-list? _hd13393_) + (if (let () + (declare (not safe)) + (gx#stx-list? _hd13646_)) '"Context expects " '"Context expects at least ") - (number->string _len13407_) + (let () + (declare (not safe)) + (number->string _len13660_)) '" values")) - (_count13413_ (gxc#generate-runtime-temporary__0))) - (if (and (not (gx#stx-list? _hd13393_)) (fx= _len13407_ '0)) + (_count13666_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__0)))) + (if (and (let ((__tmp17169 + (let () + (declare (not safe)) + (gx#stx-list? _hd13646_)))) + (declare (not safe)) + (not __tmp17169)) + (fx= _len13660_ '0)) '#!void - (cons 'let - (cons (cons (cons _count13413_ - (cons (gxc#generate-runtime-values-count - _vals13392_) - '())) - '()) - (cons (cons 'if - (cons (cons 'not - (cons (if (gxc#current-compile-decls-unsafe?) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _cmp13409_ - (cons _count13413_ (cons _len13407_ '()))) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (cons _cmp13409_ - (cons _count13413_ - (cons _len13407_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons 'error - (cons _errmsg13411_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _count13413_ '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))))))) - (define gxc#generate-runtime-values-count - (lambda (_var13387_) - (letrec ((_generate-inline13389_ - (lambda () - (cons 'if - (cons (cons '##values? (cons _var13387_ '())) - (cons (cons '##vector-length - (cons _var13387_ '())) - (cons '1 '()))))))) - (if (gxc#current-compile-decls-unsafe?) - (_generate-inline13389_) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (_generate-inline13389_) '())))))))) - (define gxc#generate-runtime-values-ref - (lambda (_var13380_ _i13381_ _rest13382_) - (letrec ((_generate-inline13384_ - (lambda () - (if (and (fx= _i13381_ '0) - (not (gx#stx-pair? _rest13382_))) - (cons 'if - (cons (cons '##values? (cons _var13380_ '())) - (cons (cons '##vector-ref - (cons _var13380_ - (cons '0 '()))) - (cons _var13380_ '())))) - (cons '##vector-ref - (cons _var13380_ (cons _i13381_ '()))))))) - (if (gxc#current-compile-decls-unsafe?) - (_generate-inline13384_) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (_generate-inline13384_) '())))))))) - (define gxc#generate-runtime-values->list - (lambda (_var13377_ _i13378_) - (if (fx= _i13378_ '0) - (if (gxc#current-compile-decls-unsafe?) - (cons 'if - (cons (cons '##values? (cons _var13377_ '())) - (cons (cons '##vector->list (cons _var13377_ '())) - (cons (cons 'list (cons _var13377_ '())) - '())))) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (cons 'if - (cons (cons '##values? - (cons _var13377_ - '())) - (cons (cons '##vector->list - (cons _var13377_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons 'list (cons _var13377_ '())) '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (if (fx= _i13378_ '1) - (if (gxc#current-compile-decls-unsafe?) - (cons 'if - (cons (cons '##values? (cons _var13377_ '())) - (cons (cons '##cdr - (cons (cons '##vector->list - (cons _var13377_ '())) - '())) - (cons ''() '())))) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (cons 'if - (cons (cons '##values? - (cons _var13377_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '##cdr - (cons (cons '##vector->list (cons _var13377_ '())) - '())) - (cons ''() '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (if (gxc#current-compile-decls-unsafe?) - (cons '##list-tail - (cons (cons '##vector->list (cons _var13377_ '())) - (cons _i13378_ '()))) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (cons '##list-tail - (cons (cons '##vector->list - (cons _var13377_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons _i13378_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))))))) - (define gxc#generate-runtime-lambda% - (lambda (_stx13310_) - (let* ((_g1331213329_ - (lambda (_g1331313326_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1331313326_))) - (_g1331113374_ - (lambda (_g1331313332_) - (if (gx#stx-pair? _g1331313332_) - (let ((_e1331613334_ (gx#stx-e _g1331313332_))) - (let ((_hd1331713337_ - (let () - (declare (not safe)) - (##car _e1331613334_))) - (_tl1331813339_ - (let () - (declare (not safe)) - (##cdr _e1331613334_)))) - (if (gx#stx-pair? _tl1331813339_) - (let ((_e1331913342_ (gx#stx-e _tl1331813339_))) - (let ((_hd1332013345_ - (let () - (declare (not safe)) - (##car _e1331913342_))) - (_tl1332113347_ - (let () - (declare (not safe)) - (##cdr _e1331913342_)))) - (if (gx#stx-pair? _tl1332113347_) - (let ((_e1332213350_ - (gx#stx-e _tl1332113347_))) - (let ((_hd1332313353_ - (let () - (declare (not safe)) - (##car _e1332213350_))) - (_tl1332413355_ + (let ((__tmp17146 + (let ((__tmp17165 + (let ((__tmp17166 + (let ((__tmp17167 + (let ((__tmp17168 + (let () + (declare (not safe)) + (gxc#generate-runtime-values-count + _vals13645_)))) + (declare (not safe)) + (cons __tmp17168 '())))) + (declare (not safe)) + (cons _count13666_ __tmp17167)))) + (declare (not safe)) + (cons __tmp17166 '()))) + (__tmp17147 + (let ((__tmp17148 + (let ((__tmp17149 + (let ((__tmp17154 + (let ((__tmp17155 + (let ((__tmp17156 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let ((__tmp17163 + (let ((__tmp17164 (let () (declare (not safe)) - (##cdr _e1332213350_)))) - (if (gx#stx-null? _tl1332413355_) - ((lambda (_L13358_ _L13359_) - (gxc#generate-runtime-lambda-form - _L13359_ - _L13358_)) - _hd1332313353_ - _hd1332013345_) - (_g1331213329_ _g1331313332_)))) - (_g1331213329_ _g1331313332_)))) - (_g1331213329_ _g1331313332_)))) - (_g1331213329_ _g1331313332_))))) - (_g1331113374_ _stx13310_)))) - (define gxc#generate-runtime-lambda-form - (lambda (_hd13270_ _body13271_) - (let* ((_hd13273_ (gxc#generate-runtime-lambda-head _hd13270_)) - (_body13275_ (gxc#compile-e _body13271_)) - (_body13307_ - (let* ((_body1327613284_ _body13275_) - (_else1327813292_ (lambda () (cons _body13275_ '()))) - (_K1328013297_ (lambda (_exprs13295_) _exprs13295_))) - (if (let () (declare (not safe)) (##pair? _body1327613284_)) - (let ((_hd1328113300_ - (let () - (declare (not safe)) - (##car _body1327613284_))) - (_tl1328213302_ - (let () - (declare (not safe)) - (##cdr _body1327613284_)))) - (if (let () + (cons _len13660_ '())))) + (declare (not safe)) + (cons _count13666_ __tmp17164)))) + (declare (not safe)) + (cons _cmp13662_ __tmp17163)) + (let ((__tmp17157 + (let ((__tmp17158 + (let ((__tmp17159 + (let ((__tmp17160 + (let ((__tmp17161 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17162 + (let () + (declare (not safe)) + (cons _len13660_ '())))) (declare (not safe)) - (##eq? _hd1328113300_ 'begin)) - (let ((_exprs13305_ _tl1328213302_)) - (_K1328013297_ _exprs13305_)) - (_else1327813292_))) - (_else1327813292_))))) - (cons 'lambda (cons _hd13273_ _body13307_))))) - (define gxc#generate-runtime-lambda-head - (lambda (_hd13268_) - (gx#stx-map1 gxc#generate-runtime-binding-id* _hd13268_))) - (define gxc#generate-runtime-case-lambda% - (lambda (_stx11811_) - (letrec ((_dispatch-case?11813_ - (lambda (_hd12498_ _body12499_) - (let* ((_form12501_ - (cons _hd12498_ (cons _body12499_ '()))) - (___stx1558715588_ _form12501_) - (_g1250612663_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1558715588_)))) - (let ((___kont1558915590_ - (lambda (_L13188_ _L13189_ _L13190_) '#t)) - (___kont1559515596_ - (lambda (_L12976_ - _L12977_ - _L12978_ - _L12979_ - _L12980_ - _L12981_) - '#t)) - (___kont1560115602_ - (lambda (_L12771_ _L12772_ _L12773_ _L12774_) - '#t)) - (___kont1560315604_ (lambda () '#f))) - (let* ((___match1572815729_ - (lambda (_e1262312675_ - _hd1262412678_ - _tl1262512680_ - _e1262612683_ - _hd1262712686_ - _tl1262812688_ - _e1262912691_ - _hd1263012694_ - _tl1263112696_ - _e1263212699_ - _hd1263312702_ - _tl1263412704_ - _e1263512707_ - _hd1263612710_ - _tl1263712712_ - _e1263812715_ - _hd1263912718_ - _tl1264012720_ - _e1264112723_ - _hd1264212726_ - _tl1264312728_ - _e1264412731_ - _hd1264512734_ - _tl1264612736_ - _e1264712739_ - _hd1264812742_ - _tl1264912744_ - _e1265012747_ - _hd1265112750_ - _tl1265212752_ - _e1265312755_ - _hd1265412758_ - _tl1265512760_ - _e1265612763_ - _hd1265712766_ - _tl1265812768_) - (let ((_L12771_ _hd1265712766_) - (_L12772_ _hd1264812742_) - (_L12773_ _hd1263912718_) - (_L12774_ _hd1262412678_)) - (if (and (gx#identifier? _L12774_) - (gxc#runtime-identifier=? - _L12773_ - 'apply) - (gx#free-identifier=? - _L12774_ - _L12771_) - (not (gx#free-identifier=? - _L12772_ - _L12774_))) - (___kont1560115602_ - _L12771_ - _L12772_ - _L12773_ - _L12774_) - (___kont1560315604_))))) - (___match1570015701_ - (lambda (_e1262312675_ - _hd1262412678_ - _tl1262512680_ - _e1262612683_ - _hd1262712686_ - _tl1262812688_ - _e1262912691_ - _hd1263012694_ - _tl1263112696_ - _e1263212699_ - _hd1263312702_ - _tl1263412704_ - _e1263512707_ - _hd1263612710_ - _tl1263712712_ - _e1263812715_ - _hd1263912718_ - _tl1264012720_ - _e1264112723_ - _hd1264212726_ - _tl1264312728_ - _e1264412731_ - _hd1264512734_ - _tl1264612736_ - _e1264712739_ - _hd1264812742_ - _tl1264912744_) - (if (gx#stx-pair? _tl1264312728_) - (let ((_e1265012747_ - (gx#stx-e _tl1264312728_))) - (let ((_tl1265212752_ - (let () - (declare (not safe)) - (##cdr _e1265012747_))) - (_hd1265112750_ - (let () + (cons _count13666_ __tmp17162)))) + (declare (not safe)) + (cons _cmp13662_ __tmp17161)))) + (declare (not safe)) + (cons __tmp17160 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##car _e1265012747_)))) - (if (gx#stx-pair? _hd1265112750_) - (let ((_e1265312755_ - (gx#stx-e - _hd1265112750_))) - (let ((_tl1265512760_ - (let () - (declare (not safe)) - (##cdr _e1265312755_))) - (_hd1265412758_ - (let () - (declare (not safe)) - (##car _e1265312755_)))) - (if (gx#identifier? - _hd1265412758_) - (if (gx#stx-eq? - '%#ref - _hd1265412758_) - (if (gx#stx-pair? - _tl1265512760_) - (let ((_e1265612763_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1265512760_))) - (let ((_tl1265812768_ - (let () - (declare (not safe)) - (##cdr _e1265612763_))) - (_hd1265712766_ - (let () - (declare (not safe)) - (##car _e1265612763_)))) - (if (gx#stx-null? _tl1265812768_) - (if (gx#stx-null? _tl1265212752_) - (if (gx#stx-null? _tl1262812688_) - (___match1572815729_ - _e1262312675_ - _hd1262412678_ - _tl1262512680_ - _e1262612683_ - _hd1262712686_ - _tl1262812688_ - _e1262912691_ - _hd1263012694_ - _tl1263112696_ - _e1263212699_ - _hd1263312702_ - _tl1263412704_ - _e1263512707_ - _hd1263612710_ - _tl1263712712_ - _e1263812715_ - _hd1263912718_ - _tl1264012720_ - _e1264112723_ - _hd1264212726_ - _tl1264312728_ - _e1264412731_ - _hd1264512734_ - _tl1264612736_ - _e1264712739_ - _hd1264812742_ - _tl1264912744_ - _e1265012747_ - _hd1265112750_ - _tl1265212752_ - _e1265312755_ - _hd1265412758_ - _tl1265512760_ - _e1265612763_ - _hd1265712766_ - _tl1265812768_) - (___kont1560315604_)) - (___kont1560315604_)) - (___kont1560315604_)))) - (___kont1560315604_)) - (___kont1560315604_)) - (___kont1560315604_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1560315604_)))) - (___kont1560315604_)))) - (___match1563015631_ - (lambda (_e1255912816_ - _hd1256012819_ - _tl1256112821_ - ___splice1559715598_ - _target1256212824_ - _tl1256412826_) - (letrec ((_loop1256512829_ - (lambda (_hd1256312832_ - _arg1256912834_) - (if (gx#stx-pair? _hd1256312832_) - (let ((_e1256612837_ - (gx#stx-e - _hd1256312832_))) - (let ((_lp-tl1256812842_ + (cons '(declare (not safe)) + __tmp17159)))) + (declare (not safe)) + (cons '() __tmp17158)))) + (declare (not safe)) + (cons 'let __tmp17157))))) + (declare (not safe)) + (cons __tmp17156 '())))) + (declare (not safe)) + (cons 'not __tmp17155))) + (__tmp17150 + (let ((__tmp17151 + (let ((__tmp17152 + (let ((__tmp17153 + (let () + (declare (not safe)) + (cons _count13666_ '())))) + (declare (not safe)) + (cons _errmsg13664_ __tmp17153)))) + (declare (not safe)) + (cons 'error __tmp17152)))) + (declare (not safe)) + (cons __tmp17151 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17154 + __tmp17150)))) + (declare (not safe)) + (cons 'if __tmp17149)))) + (declare (not safe)) + (cons __tmp17148 '())))) + (declare (not safe)) + (cons __tmp17165 __tmp17147)))) + (declare (not safe)) + (cons 'let __tmp17146)))))))) + (define gxc#generate-runtime-values-count + (lambda (_var13640_) + (letrec ((_generate-inline13642_ + (lambda () + (let ((__tmp17170 + (let ((__tmp17175 + (let ((__tmp17176 + (let () + (declare (not safe)) + (cons _var13640_ '())))) + (declare (not safe)) + (cons '##values? __tmp17176))) + (__tmp17171 + (let ((__tmp17173 + (let ((__tmp17174 + (let () + (declare (not safe)) + (cons _var13640_ '())))) + (declare (not safe)) + (cons '##vector-length __tmp17174))) + (__tmp17172 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp17173 __tmp17172)))) + (declare (not safe)) + (cons __tmp17175 __tmp17171)))) + (declare (not safe)) + (cons 'if __tmp17170))))) + (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) + (let () (declare (not safe)) (_generate-inline13642_)) + (let ((__tmp17177 + (let ((__tmp17178 + (let ((__tmp17179 + (let ((__tmp17180 + (let () + (declare (not safe)) + (_generate-inline13642_)))) + (declare (not safe)) + (cons __tmp17180 '())))) + (declare (not safe)) + (cons '(declare (not safe)) __tmp17179)))) + (declare (not safe)) + (cons '() __tmp17178)))) + (declare (not safe)) + (cons 'let __tmp17177)))))) + (define gxc#generate-runtime-values-ref + (lambda (_var13633_ _i13634_ _rest13635_) + (letrec ((_generate-inline13637_ + (lambda () + (if (and (fx= _i13634_ '0) + (let ((__tmp17191 + (let () + (declare (not safe)) + (gx#stx-pair? _rest13635_)))) + (declare (not safe)) + (not __tmp17191))) + (let ((__tmp17183 + (let ((__tmp17189 + (let ((__tmp17190 + (let () + (declare (not safe)) + (cons _var13633_ '())))) + (declare (not safe)) + (cons '##values? __tmp17190))) + (__tmp17184 + (let ((__tmp17186 + (let ((__tmp17187 + (let ((__tmp17188 + (let () + (declare + (not safe)) + (cons '0 '())))) + (declare (not safe)) + (cons _var13633_ + __tmp17188)))) + (declare (not safe)) + (cons '##vector-ref + __tmp17187))) + (__tmp17185 + (let () + (declare (not safe)) + (cons _var13633_ '())))) + (declare (not safe)) + (cons __tmp17186 __tmp17185)))) + (declare (not safe)) + (cons __tmp17189 __tmp17184)))) + (declare (not safe)) + (cons 'if __tmp17183)) + (let ((__tmp17181 + (let ((__tmp17182 + (let () + (declare (not safe)) + (cons _i13634_ '())))) + (declare (not safe)) + (cons _var13633_ __tmp17182)))) + (declare (not safe)) + (cons '##vector-ref __tmp17181)))))) + (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) + (let () (declare (not safe)) (_generate-inline13637_)) + (let ((__tmp17192 + (let ((__tmp17193 + (let ((__tmp17194 + (let ((__tmp17195 + (let () + (declare (not safe)) + (_generate-inline13637_)))) + (declare (not safe)) + (cons __tmp17195 '())))) + (declare (not safe)) + (cons '(declare (not safe)) __tmp17194)))) + (declare (not safe)) + (cons '() __tmp17193)))) + (declare (not safe)) + (cons 'let __tmp17192)))))) + (define gxc#generate-runtime-values->list + (lambda (_var13630_ _i13631_) + (if (fx= _i13631_ '0) + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let ((__tmp17243 + (let ((__tmp17250 + (let ((__tmp17251 + (let () + (declare (not safe)) + (cons _var13630_ '())))) + (declare (not safe)) + (cons '##values? __tmp17251))) + (__tmp17244 + (let ((__tmp17248 + (let ((__tmp17249 + (let () + (declare (not safe)) + (cons _var13630_ '())))) + (declare (not safe)) + (cons '##vector->list __tmp17249))) + (__tmp17245 + (let ((__tmp17246 + (let ((__tmp17247 + (let () + (declare (not safe)) + (cons _var13630_ '())))) + (declare (not safe)) + (cons 'list __tmp17247)))) + (declare (not safe)) + (cons __tmp17246 '())))) + (declare (not safe)) + (cons __tmp17248 __tmp17245)))) + (declare (not safe)) + (cons __tmp17250 __tmp17244)))) + (declare (not safe)) + (cons 'if __tmp17243)) + (let ((__tmp17230 + (let ((__tmp17231 + (let ((__tmp17232 + (let ((__tmp17233 + (let ((__tmp17234 + (let ((__tmp17241 + (let ((__tmp17242 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _var13630_ '())))) + (declare (not safe)) + (cons '##values? __tmp17242))) + (__tmp17235 + (let ((__tmp17239 + (let ((__tmp17240 + (let () + (declare (not safe)) + (cons _var13630_ '())))) + (declare (not safe)) + (cons '##vector->list __tmp17240))) + (__tmp17236 + (let ((__tmp17237 + (let ((__tmp17238 + (let () + (declare (not safe)) + (cons _var13630_ '())))) + (declare (not safe)) + (cons 'list __tmp17238)))) + (declare (not safe)) + (cons __tmp17237 '())))) + (declare (not safe)) + (cons __tmp17239 __tmp17236)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17241 + __tmp17235)))) + (declare (not safe)) + (cons 'if __tmp17234)))) + (declare (not safe)) + (cons __tmp17233 '())))) + (declare (not safe)) + (cons '(declare (not safe)) __tmp17232)))) + (declare (not safe)) + (cons '() __tmp17231)))) + (declare (not safe)) + (cons 'let __tmp17230))) + (if (fx= _i13631_ '1) + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let ((__tmp17221 + (let ((__tmp17228 + (let ((__tmp17229 + (let () + (declare (not safe)) + (cons _var13630_ '())))) + (declare (not safe)) + (cons '##values? __tmp17229))) + (__tmp17222 + (let ((__tmp17224 + (let ((__tmp17225 + (let ((__tmp17226 + (let ((__tmp17227 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _var13630_ '())))) + (declare (not safe)) + (cons '##vector->list __tmp17227)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17226 '())))) + (declare (not safe)) + (cons '##cdr __tmp17225))) + (__tmp17223 + (let () + (declare (not safe)) + (cons ''() '())))) + (declare (not safe)) + (cons __tmp17224 __tmp17223)))) + (declare (not safe)) + (cons __tmp17228 __tmp17222)))) + (declare (not safe)) + (cons 'if __tmp17221)) + (let ((__tmp17208 + (let ((__tmp17209 + (let ((__tmp17210 + (let ((__tmp17211 + (let ((__tmp17212 + (let ((__tmp17219 + (let ((__tmp17220 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _var13630_ '())))) + (declare (not safe)) + (cons '##values? __tmp17220))) + (__tmp17213 + (let ((__tmp17215 + (let ((__tmp17216 + (let ((__tmp17217 + (let ((__tmp17218 + (let () + (declare (not safe)) + (cons _var13630_ '())))) + (declare (not safe)) + (cons '##vector->list + __tmp17218)))) + (declare (not safe)) + (cons __tmp17217 '())))) + (declare (not safe)) + (cons '##cdr __tmp17216))) + (__tmp17214 + (let () (declare (not safe)) (cons ''() '())))) + (declare (not safe)) + (cons __tmp17215 __tmp17214)))) + (declare (not safe)) + (cons __tmp17219 __tmp17213)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'if __tmp17212)))) + (declare (not safe)) + (cons __tmp17211 '())))) + (declare (not safe)) + (cons '(declare (not safe)) __tmp17210)))) + (declare (not safe)) + (cons '() __tmp17209)))) + (declare (not safe)) + (cons 'let __tmp17208))) + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let ((__tmp17204 + (let ((__tmp17206 + (let ((__tmp17207 + (let () + (declare (not safe)) + (cons _var13630_ '())))) + (declare (not safe)) + (cons '##vector->list __tmp17207))) + (__tmp17205 + (let () + (declare (not safe)) + (cons _i13631_ '())))) + (declare (not safe)) + (cons __tmp17206 __tmp17205)))) + (declare (not safe)) + (cons '##list-tail __tmp17204)) + (let ((__tmp17196 + (let ((__tmp17197 + (let ((__tmp17198 + (let ((__tmp17199 + (let ((__tmp17200 + (let ((__tmp17202 + (let ((__tmp17203 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _var13630_ '())))) + (declare (not safe)) + (cons '##vector->list __tmp17203))) + (__tmp17201 + (let () (declare (not safe)) (cons _i13631_ '())))) + (declare (not safe)) + (cons __tmp17202 __tmp17201)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '##list-tail + __tmp17200)))) + (declare (not safe)) + (cons __tmp17199 '())))) + (declare (not safe)) + (cons '(declare (not safe)) __tmp17198)))) + (declare (not safe)) + (cons '() __tmp17197)))) + (declare (not safe)) + (cons 'let __tmp17196))))))) + (define gxc#generate-runtime-lambda% + (lambda (_stx13563_) + (let* ((_g1356513582_ + (lambda (_g1356613579_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1356613579_)))) + (_g1356413627_ + (lambda (_g1356613585_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1356613585_)) + (let ((_e1357113587_ + (let () + (declare (not safe)) + (gx#stx-e _g1356613585_)))) + (let ((_hd1357013590_ + (let () + (declare (not safe)) + (##car _e1357113587_))) + (_tl1356913592_ + (let () + (declare (not safe)) + (##cdr _e1357113587_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1356913592_)) + (let ((_e1357413595_ + (let () + (declare (not safe)) + (gx#stx-e _tl1356913592_)))) + (let ((_hd1357313598_ + (let () + (declare (not safe)) + (##car _e1357413595_))) + (_tl1357213600_ + (let () + (declare (not safe)) + (##cdr _e1357413595_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1357213600_)) + (let ((_e1357713603_ + (let () + (declare (not safe)) + (gx#stx-e _tl1357213600_)))) + (let ((_hd1357613606_ + (let () + (declare (not safe)) + (##car _e1357713603_))) + (_tl1357513608_ + (let () + (declare (not safe)) + (##cdr _e1357713603_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1357513608_)) + ((lambda (_L13611_ _L13612_) + (let () + (declare (not safe)) + (gxc#generate-runtime-lambda-form + _L13612_ + _L13611_))) + _hd1357613606_ + _hd1357313598_) + (let () + (declare (not safe)) + (_g1356513582_ + _g1356613585_))))) + (let () + (declare (not safe)) + (_g1356513582_ _g1356613585_))))) + (let () + (declare (not safe)) + (_g1356513582_ _g1356613585_))))) + (let () + (declare (not safe)) + (_g1356513582_ _g1356613585_)))))) + (declare (not safe)) + (_g1356413627_ _stx13563_)))) + (define gxc#generate-runtime-lambda-form + (lambda (_hd13523_ _body13524_) + (let* ((_hd13526_ + (let () + (declare (not safe)) + (gxc#generate-runtime-lambda-head _hd13523_))) + (_body13528_ + (let () (declare (not safe)) (gxc#compile-e _body13524_))) + (_body13560_ + (let* ((_body1352913537_ _body13528_) + (_else1353113545_ + (lambda () + (let () + (declare (not safe)) + (cons _body13528_ '())))) + (_K1353313550_ (lambda (_exprs13548_) _exprs13548_))) + (if (let () (declare (not safe)) (##pair? _body1352913537_)) + (let ((_hd1353413553_ + (let () + (declare (not safe)) + (##car _body1352913537_))) + (_tl1353513555_ + (let () + (declare (not safe)) + (##cdr _body1352913537_)))) + (if (let () + (declare (not safe)) + (##eq? _hd1353413553_ 'begin)) + (let ((_exprs13558_ _tl1353513555_)) + (declare (not safe)) + (_K1353313550_ _exprs13558_)) + (let () (declare (not safe)) (_else1353113545_)))) + (let () (declare (not safe)) (_else1353113545_)))))) + (let ((__tmp17252 + (let () (declare (not safe)) (cons _hd13526_ _body13560_)))) + (declare (not safe)) + (cons 'lambda __tmp17252))))) + (define gxc#generate-runtime-lambda-head + (lambda (_hd13521_) + (let () + (declare (not safe)) + (gx#stx-map1 gxc#generate-runtime-binding-id* _hd13521_)))) + (define gxc#generate-runtime-case-lambda% + (lambda (_stx12064_) + (letrec ((_dispatch-case?12066_ + (lambda (_hd12751_ _body12752_) + (let* ((_form12754_ + (let ((__tmp17253 + (let () + (declare (not safe)) + (cons _body12752_ '())))) + (declare (not safe)) + (cons _hd12751_ __tmp17253))) + (___stx1584015841_ _form12754_) + (_g1275912916_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1584015841_))))) + (let ((___kont1584215843_ + (lambda (_L13441_ _L13442_ _L13443_) '#t)) + (___kont1584815849_ + (lambda (_L13229_ + _L13230_ + _L13231_ + _L13232_ + _L13233_ + _L13234_) + '#t)) + (___kont1585415855_ + (lambda (_L13024_ _L13025_ _L13026_ _L13027_) + '#t)) + (___kont1585615857_ (lambda () '#f))) + (let* ((___match1598115982_ + (lambda (_e1287812928_ + _hd1287712931_ + _tl1287612933_ + _e1288112936_ + _hd1288012939_ + _tl1287912941_ + _e1288412944_ + _hd1288312947_ + _tl1288212949_ + _e1288712952_ + _hd1288612955_ + _tl1288512957_ + _e1289012960_ + _hd1288912963_ + _tl1288812965_ + _e1289312968_ + _hd1289212971_ + _tl1289112973_ + _e1289612976_ + _hd1289512979_ + _tl1289412981_ + _e1289912984_ + _hd1289812987_ + _tl1289712989_ + _e1290212992_ + _hd1290112995_ + _tl1290012997_ + _e1290513000_ + _hd1290413003_ + _tl1290313005_ + _e1290813008_ + _hd1290713011_ + _tl1290613013_ + _e1291113016_ + _hd1291013019_ + _tl1290913021_) + (let ((_L13024_ _hd1291013019_) + (_L13025_ _hd1290112995_) + (_L13026_ _hd1289212971_) + (_L13027_ _hd1287712931_)) + (if (and (let () + (declare (not safe)) + (gx#identifier? _L13027_)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L13026_ + 'apply)) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L13027_ + _L13024_)) + (let ((__tmp17254 + (let () + (declare (not safe)) + (gx#free-identifier=? + _L13025_ + _L13027_)))) + (declare (not safe)) + (not __tmp17254))) + (___kont1585415855_ + _L13024_ + _L13025_ + _L13026_ + _L13027_) + (___kont1585615857_))))) + (___match1595315954_ + (lambda (_e1287812928_ + _hd1287712931_ + _tl1287612933_ + _e1288112936_ + _hd1288012939_ + _tl1287912941_ + _e1288412944_ + _hd1288312947_ + _tl1288212949_ + _e1288712952_ + _hd1288612955_ + _tl1288512957_ + _e1289012960_ + _hd1288912963_ + _tl1288812965_ + _e1289312968_ + _hd1289212971_ + _tl1289112973_ + _e1289612976_ + _hd1289512979_ + _tl1289412981_ + _e1289912984_ + _hd1289812987_ + _tl1289712989_ + _e1290212992_ + _hd1290112995_ + _tl1290012997_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1289412981_)) + (let ((_e1290513000_ + (let () + (declare (not safe)) + (gx#stx-e _tl1289412981_)))) + (let ((_tl1290313005_ + (let () + (declare (not safe)) + (##cdr _e1290513000_))) + (_hd1290413003_ + (let () + (declare (not safe)) + (##car _e1290513000_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1290413003_)) + (let ((_e1290813008_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1290413003_)))) + (let ((_tl1290613013_ + (let () + (declare (not safe)) + (##cdr _e1290813008_))) + (_hd1290713011_ + (let () + (declare (not safe)) + (##car _e1290813008_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd1290713011_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#ref + _hd1290713011_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl1290613013_)) + (let ((_e1291113016_ + (let () + (declare (not safe)) + (gx#stx-e _tl1290613013_)))) + (let ((_tl1290913021_ + (let () + (declare (not safe)) + (##cdr _e1291113016_))) + (_hd1291013019_ + (let () + (declare (not safe)) + (##car _e1291113016_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1290913021_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1290313005_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1287912941_)) + (___match1598115982_ + _e1287812928_ + _hd1287712931_ + _tl1287612933_ + _e1288112936_ + _hd1288012939_ + _tl1287912941_ + _e1288412944_ + _hd1288312947_ + _tl1288212949_ + _e1288712952_ + _hd1288612955_ + _tl1288512957_ + _e1289012960_ + _hd1288912963_ + _tl1288812965_ + _e1289312968_ + _hd1289212971_ + _tl1289112973_ + _e1289612976_ + _hd1289512979_ + _tl1289412981_ + _e1289912984_ + _hd1289812987_ + _tl1289712989_ + _e1290212992_ + _hd1290112995_ + _tl1290012997_ + _e1290513000_ + _hd1290413003_ + _tl1290313005_ + _e1290813008_ + _hd1290713011_ + _tl1290613013_ + _e1291113016_ + _hd1291013019_ + _tl1290913021_) + (___kont1585615857_)) + (___kont1585615857_)) + (___kont1585615857_)))) + (___kont1585615857_)) + (___kont1585615857_)) + (___kont1585615857_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1585615857_)))) + (___kont1585615857_)))) + (___match1588315884_ + (lambda (_e1281413069_ + _hd1281313072_ + _tl1281213074_ + ___splice1585015851_ + _target1281513077_ + _tl1281713079_) + (letrec ((_loop1281813082_ + (lambda (_hd1281613085_ + _arg1282213087_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1281613085_)) + (let ((_e1281913090_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1281613085_)))) + (let ((_lp-tl1282113095_ (let () (declare (not safe)) - (##cdr _e1256612837_))) - (_lp-hd1256712840_ + (##cdr _e1281913090_))) + (_lp-hd1282013093_ (let () (declare (not safe)) - (##car _e1256612837_)))) - (_loop1256512829_ - _lp-tl1256812842_ - (cons _lp-hd1256712840_ - _arg1256912834_)))) - (let ((_arg1257012845_ - (reverse _arg1256912834_))) - (if (gx#stx-pair? - _tl1256112821_) - (let ((_e1257112848_ - (gx#stx-e - _tl1256112821_))) - (let ((_tl1257312853_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e1257112848_))) - (_hd1257212851_ - (let () (declare (not safe)) (##car _e1257112848_)))) - (if (gx#stx-pair? _hd1257212851_) - (let ((_e1257412856_ (gx#stx-e _hd1257212851_))) - (let ((_tl1257612861_ + (##car _e1281913090_)))) + (let ((__tmp17269 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _lp-hd1282013093_ _arg1282213087_)))) + (declare (not safe)) + (_loop1281813082_ _lp-tl1282113095_ __tmp17269)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_arg1282313098_ + (let () + (declare (not safe)) + (reverse _arg1282213087_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1281213074_)) + (let ((_e1282613101_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl1281213074_)))) + (let ((_tl1282413106_ + (let () (declare (not safe)) (##cdr _e1282613101_))) + (_hd1282513104_ + (let () (declare (not safe)) (##car _e1282613101_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1282513104_)) + (let ((_e1282913109_ + (let () + (declare (not safe)) + (gx#stx-e _hd1282513104_)))) + (let ((_tl1282713114_ (let () (declare (not safe)) - (##cdr _e1257412856_))) - (_hd1257512859_ + (##cdr _e1282913109_))) + (_hd1282813112_ (let () (declare (not safe)) - (##car _e1257412856_)))) - (if (gx#identifier? _hd1257512859_) - (if (gx#stx-eq? '%#call _hd1257512859_) - (if (gx#stx-pair? _tl1257612861_) - (let ((_e1257712864_ - (gx#stx-e _tl1257612861_))) - (let ((_tl1257912869_ + (##car _e1282913109_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1282813112_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd1282813112_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1282713114_)) + (let ((_e1283213117_ + (let () + (declare (not safe)) + (gx#stx-e _tl1282713114_)))) + (let ((_tl1283013122_ (let () (declare (not safe)) - (##cdr _e1257712864_))) - (_hd1257812867_ + (##cdr _e1283213117_))) + (_hd1283113120_ (let () (declare (not safe)) - (##car _e1257712864_)))) - (if (gx#stx-pair? _hd1257812867_) - (let ((_e1258012872_ - (gx#stx-e - _hd1257812867_))) - (let ((_tl1258212877_ + (##car _e1283213117_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1283113120_)) + (let ((_e1283513125_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1283113120_)))) + (let ((_tl1283313130_ (let () (declare (not safe)) - (##cdr _e1258012872_))) - (_hd1258112875_ + (##cdr _e1283513125_))) + (_hd1283413128_ (let () (declare (not safe)) - (##car _e1258012872_)))) - (if (gx#identifier? - _hd1258112875_) - (if (gx#stx-eq? - '%#ref - _hd1258112875_) - (if (gx#stx-pair? + (##car _e1283513125_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd1283413128_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#ref + _hd1283413128_)) + (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1258212877_) - (let ((_e1258312880_ (gx#stx-e _tl1258212877_))) - (let ((_tl1258512885_ + (declare (not safe)) + (gx#stx-pair? _tl1283313130_)) + (let ((_e1283813133_ + (let () + (declare (not safe)) + (gx#stx-e _tl1283313130_)))) + (let ((_tl1283613138_ (let () (declare (not safe)) - (##cdr _e1258312880_))) - (_hd1258412883_ + (##cdr _e1283813133_))) + (_hd1283713136_ (let () (declare (not safe)) - (##car _e1258312880_)))) - (if (gx#stx-null? _tl1258512885_) - (if (gx#stx-pair? _tl1257912869_) - (let ((_e1258612888_ - (gx#stx-e _tl1257912869_))) - (let ((_tl1258812893_ + (##car _e1283813133_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1283613138_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1283013122_)) + (let ((_e1284113141_ + (let () + (declare (not safe)) + (gx#stx-e _tl1283013122_)))) + (let ((_tl1283913146_ (let () (declare (not safe)) - (##cdr _e1258612888_))) - (_hd1258712891_ + (##cdr _e1284113141_))) + (_hd1284013144_ (let () (declare (not safe)) - (##car _e1258612888_)))) - (if (gx#stx-pair? _hd1258712891_) - (let ((_e1258912896_ - (gx#stx-e _hd1258712891_))) - (let ((_tl1259112901_ + (##car _e1284113141_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1284013144_)) + (let ((_e1284413149_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1284013144_)))) + (let ((_tl1284213154_ (let () (declare (not safe)) - (##cdr _e1258912896_))) - (_hd1259012899_ + (##cdr _e1284413149_))) + (_hd1284313152_ (let () (declare (not safe)) - (##car _e1258912896_)))) - (if (gx#identifier? - _hd1259012899_) - (if (gx#stx-eq? - '%#ref - _hd1259012899_) - (if (gx#stx-pair? - _tl1259112901_) - (let ((_e1259212904_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1259112901_))) - (let ((_tl1259412909_ + (##car _e1284413149_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd1284313152_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd1284313152_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl1284213154_)) + (let ((_e1284713157_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl1284213154_)))) + (let ((_tl1284513162_ (let () (declare (not safe)) - (##cdr _e1259212904_))) - (_hd1259312907_ + (##cdr _e1284713157_))) + (_hd1284613160_ (let () (declare (not safe)) - (##car _e1259212904_)))) - (if (gx#stx-null? _tl1259412909_) - (if (gx#stx-pair/null? _tl1258812893_) - (if (fx>= (gx#stx-length _tl1258812893_) '1) - (let ((___splice1559915600_ - (gx#syntax-split-splice - _tl1258812893_ - '1))) - (let ((_tl1259712914_ + (##car _e1284713157_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1284513162_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl1283913146_)) + (if (fx>= (let () + (declare (not safe)) + (gx#stx-length _tl1283913146_)) + '1) + (let ((___splice1585215853_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl1283913146_ + '1)))) + (let ((_tl1285013167_ (let () (declare (not safe)) (##vector-ref - ___splice1559915600_ + ___splice1585215853_ '1))) - (_target1259512912_ + (_target1284813165_ (let () (declare (not safe)) (##vector-ref - ___splice1559915600_ + ___splice1585215853_ '0)))) - (if (gx#stx-pair? _tl1259712914_) - (let ((_e1260412917_ - (gx#stx-e _tl1259712914_))) - (let ((_tl1260612922_ + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1285013167_)) + (let ((_e1285913170_ + (let () + (declare (not safe)) + (gx#stx-e + _tl1285013167_)))) + (let ((_tl1285713175_ (let () (declare (not safe)) - (##cdr _e1260412917_))) - (_hd1260512920_ + (##cdr _e1285913170_))) + (_hd1285813173_ (let () (declare (not safe)) - (##car _e1260412917_)))) - (if (gx#stx-pair? - _hd1260512920_) - (let ((_e1260712925_ - (gx#stx-e - _hd1260512920_))) - (let ((_tl1260912930_ + (##car _e1285913170_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1285813173_)) + (let ((_e1286213178_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd1285813173_)))) + (let ((_tl1286013183_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e1260712925_))) - (_hd1260812928_ - (let () (declare (not safe)) (##car _e1260712925_)))) - (if (gx#identifier? _hd1260812928_) - (if (gx#stx-eq? '%#ref _hd1260812928_) - (if (gx#stx-pair? _tl1260912930_) - (let ((_e1261012933_ (gx#stx-e _tl1260912930_))) - (let ((_tl1261212938_ + (##cdr _e1286213178_))) + (_hd1286113181_ + (let () (declare (not safe)) (##car _e1286213178_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1286113181_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd1286113181_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1286013183_)) + (let ((_e1286513186_ + (let () + (declare (not safe)) + (gx#stx-e _tl1286013183_)))) + (let ((_tl1286313191_ (let () (declare (not safe)) - (##cdr _e1261012933_))) - (_hd1261112936_ + (##cdr _e1286513186_))) + (_hd1286413189_ (let () (declare (not safe)) - (##car _e1261012933_)))) - (if (gx#stx-null? _tl1261212938_) - (if (gx#stx-null? _tl1260612922_) - (letrec ((_loop1259812941_ - (lambda (_hd1259612944_ - _xarg1260212946_) - (if (gx#stx-pair? - _hd1259612944_) - (let ((_e1259912949_ - (gx#stx-e - _hd1259612944_))) - (let ((_lp-tl1260112954_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e1259912949_))) - (_lp-hd1260012952_ - (let () (declare (not safe)) (##car _e1259912949_)))) - (if (gx#stx-pair? _lp-hd1260012952_) - (let ((_e1261312957_ (gx#stx-e _lp-hd1260012952_))) - (let ((_tl1261512962_ + (##car _e1286513186_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1286313191_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1285713175_)) + (letrec ((_loop1285113194_ + (lambda (_hd1284913197_ + _xarg1285513199_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1284913197_)) + (let ((_e1285213202_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd1284913197_)))) + (let ((_lp-tl1285413207_ + (let () (declare (not safe)) (##cdr _e1285213202_))) + (_lp-hd1285313205_ + (let () (declare (not safe)) (##car _e1285213202_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd1285313205_)) + (let ((_e1286813210_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd1285313205_)))) + (let ((_tl1286613215_ (let () (declare (not safe)) - (##cdr _e1261312957_))) - (_hd1261412960_ + (##cdr _e1286813210_))) + (_hd1286713213_ (let () (declare (not safe)) - (##car _e1261312957_)))) - (if (gx#identifier? _hd1261412960_) - (if (gx#stx-eq? '%#ref _hd1261412960_) - (if (gx#stx-pair? _tl1261512962_) - (let ((_e1261612965_ - (gx#stx-e _tl1261512962_))) - (let ((_tl1261812970_ + (##car _e1286813210_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1286713213_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd1286713213_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1286613215_)) + (let ((_e1287113218_ + (let () + (declare (not safe)) + (gx#stx-e _tl1286613215_)))) + (let ((_tl1286913223_ (let () (declare (not safe)) - (##cdr _e1261612965_))) - (_hd1261712968_ + (##cdr _e1287113218_))) + (_hd1287013221_ (let () (declare (not safe)) - (##car _e1261612965_)))) - (if (gx#stx-null? _tl1261812970_) - (_loop1259812941_ - _lp-tl1260112954_ - (cons _hd1261712968_ - _xarg1260212946_)) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)))) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)))) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)))) - (let ((_xarg1260312973_ (reverse _xarg1260212946_))) - (if (gx#stx-null? _tl1257312853_) - (let ((_L12976_ _hd1261112936_) - (_L12977_ _xarg1260312973_) - (_L12978_ _hd1259312907_) - (_L12979_ _hd1258412883_) - (_L12980_ _tl1256412826_) - (_L12981_ _arg1257012845_)) - (if (and (gx#identifier-list? - (foldr1 (lambda (_g1302413027_ _g1302513029_) - (cons _g1302413027_ _g1302513029_)) - '() - _L12981_)) - (gx#identifier? _L12980_) - (gxc#runtime-identifier=? _L12979_ 'apply) - (fx= (length (foldr1 (lambda (_g1303113034_ - _g1303213036_) - (cons _g1303113034_ - _g1303213036_)) - '() - _L12981_)) - (length (foldr1 (lambda (_g1303813041_ - _g1303913043_) - (cons _g1303813041_ - _g1303913043_)) - '() - _L12977_))) - (andmap2 gx#free-identifier=? - (foldr1 (lambda (_g1304513048_ - _g1304613050_) - (cons _g1304513048_ - _g1304613050_)) - '() - _L12981_) - (foldr1 (lambda (_g1305213055_ - _g1305313057_) - (cons _g1305213055_ - _g1305313057_)) - '() - _L12977_)) - (gx#free-identifier=? _L12980_ _L12976_) - (not (find (lambda (_g1305913061_) - (gx#free-identifier=? - _g1305913061_ - _L12978_)) - (foldr1 (lambda (_g1306313066_ - _g1306413068_) - (cons _g1306313066_ - _g1306413068_)) - (cons _L12980_ '()) - _L12981_)))) - (___kont1559515596_ - _L12976_ - _L12977_ - _L12978_ - _L12979_ - _L12980_ - _L12981_) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_))) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1259812941_ - _target1259512912_ - '())) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)))) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)))) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)))) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)) - (___match1570015701_ - _e1255912816_ - _hd1256012819_ - _tl1256112821_ - _e1257112848_ - _hd1257212851_ - _tl1257312853_ - _e1257412856_ - _hd1257512859_ - _tl1257612861_ - _e1257712864_ - _hd1257812867_ - _tl1257912869_ - _e1258012872_ - _hd1258112875_ - _tl1258212877_ - _e1258312880_ - _hd1258412883_ - _tl1258512885_ - _e1258612888_ - _hd1258712891_ - _tl1258812893_ - _e1258912896_ - _hd1259012899_ - _tl1259112901_ - _e1259212904_ - _hd1259312907_ - _tl1259412909_)) - (___kont1560315604_)))) - (___kont1560315604_)) - (___kont1560315604_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1560315604_)))) - (___kont1560315604_)))) - (___kont1560315604_)) - (___kont1560315604_)))) - (___kont1560315604_)) - (___kont1560315604_)) - (___kont1560315604_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1560315604_)))) - (___kont1560315604_)) - (___kont1560315604_)) - (___kont1560315604_)))) - (___kont1560315604_)))) - (___kont1560315604_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1256512829_ - _target1256212824_ - '())))) - (___match1561815619_ - (lambda (_e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_) - (letrec ((_loop1251713089_ - (lambda (_hd1251513092_ - _arg1252113094_) - (if (gx#stx-pair? _hd1251513092_) - (let ((_e1251813097_ - (gx#stx-e - _hd1251513092_))) - (let ((_lp-tl1252013102_ + (##car _e1287113218_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1286913223_)) + (let ((__tmp17268 + (let () + (declare (not safe)) + (cons _hd1287013221_ + _xarg1285513199_)))) + (declare (not safe)) + (_loop1285113194_ + _lp-tl1285413207_ + __tmp17268)) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)))) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)))) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)))) + (let ((_xarg1285613226_ + (let () + (declare (not safe)) + (reverse _xarg1285513199_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1282413106_)) + (let ((_L13229_ _hd1286413189_) + (_L13230_ _xarg1285613226_) + (_L13231_ _hd1284613160_) + (_L13232_ _hd1283713136_) + (_L13233_ _tl1281713079_) + (_L13234_ _arg1282313098_)) + (if (and (let ((__tmp17266 + (let ((__tmp17267 + (lambda (_g1327713280_ + _g1327813282_) + (let () + (declare (not safe)) + (cons _g1327713280_ + _g1327813282_))))) + (declare (not safe)) + (foldr1 __tmp17267 '() _L13234_)))) + (declare (not safe)) + (gx#identifier-list? __tmp17266)) + (let () + (declare (not safe)) + (gx#identifier? _L13233_)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? _L13232_ 'apply)) + (fx= (length (let ((__tmp17264 + (lambda (_g1328413287_ + _g1328513289_) + (let () + (declare (not safe)) + (cons _g1328413287_ + _g1328513289_))))) + (declare (not safe)) + (foldr1 __tmp17264 + '() + _L13234_))) + (length (let ((__tmp17265 + (lambda (_g1329113294_ + _g1329213296_) + (let () + (declare (not safe)) + (cons _g1329113294_ + _g1329213296_))))) + (declare (not safe)) + (foldr1 __tmp17265 + '() + _L13230_)))) + (let ((__tmp17262 + (let ((__tmp17263 + (lambda (_g1329813301_ + _g1329913303_) + (let () + (declare (not safe)) + (cons _g1329813301_ + _g1329913303_))))) + (declare (not safe)) + (foldr1 __tmp17263 '() _L13234_))) + (__tmp17260 + (let ((__tmp17261 + (lambda (_g1330513308_ + _g1330613310_) + (let () + (declare (not safe)) + (cons _g1330513308_ + _g1330613310_))))) + (declare (not safe)) + (foldr1 __tmp17261 '() _L13230_)))) + (declare (not safe)) + (andmap2 gx#free-identifier=? + __tmp17262 + __tmp17260)) + (let () + (declare (not safe)) + (gx#free-identifier=? _L13233_ _L13229_)) + (let ((__tmp17255 + (let ((__tmp17259 + (lambda (_g1331213314_) + (let () + (declare (not safe)) + (gx#free-identifier=? + _g1331213314_ + _L13231_)))) + (__tmp17256 + (let ((__tmp17258 + (lambda (_g1331613319_ + _g1331713321_) + (let () + (declare (not safe)) + (cons _g1331613319_ + _g1331713321_)))) + (__tmp17257 + (let () + (declare (not safe)) + (cons _L13233_ '())))) + (declare (not safe)) + (foldr1 __tmp17258 + __tmp17257 + _L13234_)))) + (declare (not safe)) + (find __tmp17259 __tmp17256)))) + (declare (not safe)) + (not __tmp17255))) + (___kont1584815849_ + _L13229_ + _L13230_ + _L13231_ + _L13232_ + _L13233_ + _L13234_) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_))) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1285113194_ + _target1284813165_ + '()))) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)))) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)))) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)))) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)) + (___match1595315954_ + _e1281413069_ + _hd1281313072_ + _tl1281213074_ + _e1282613101_ + _hd1282513104_ + _tl1282413106_ + _e1282913109_ + _hd1282813112_ + _tl1282713114_ + _e1283213117_ + _hd1283113120_ + _tl1283013122_ + _e1283513125_ + _hd1283413128_ + _tl1283313130_ + _e1283813133_ + _hd1283713136_ + _tl1283613138_ + _e1284113141_ + _hd1284013144_ + _tl1283913146_ + _e1284413149_ + _hd1284313152_ + _tl1284213154_ + _e1284713157_ + _hd1284613160_ + _tl1284513162_)) + (___kont1585615857_)))) + (___kont1585615857_)) + (___kont1585615857_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1585615857_)))) + (___kont1585615857_)))) + (___kont1585615857_)) + (___kont1585615857_)))) + (___kont1585615857_)) + (___kont1585615857_)) + (___kont1585615857_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1585615857_)))) + (___kont1585615857_)) + (___kont1585615857_)) + (___kont1585615857_)))) + (___kont1585615857_)))) + (___kont1585615857_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1281813082_ + _target1281513077_ + '()))))) + (___match1587115872_ + (lambda (_e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_) + (letrec ((_loop1277013342_ + (lambda (_hd1276813345_ + _arg1277413347_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1276813345_)) + (let ((_e1277113350_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1276813345_)))) + (let ((_lp-tl1277313355_ (let () (declare (not safe)) - (##cdr _e1251813097_))) - (_lp-hd1251913100_ + (##cdr _e1277113350_))) + (_lp-hd1277213353_ (let () (declare (not safe)) - (##car _e1251813097_)))) - (_loop1251713089_ - _lp-tl1252013102_ - (cons _lp-hd1251913100_ - _arg1252113094_)))) - (let ((_arg1252213105_ - (reverse _arg1252113094_))) - (if (gx#stx-pair? - _tl1251313081_) - (let ((_e1252313108_ - (gx#stx-e - _tl1251313081_))) - (let ((_tl1252513113_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e1252313108_))) - (_hd1252413111_ - (let () (declare (not safe)) (##car _e1252313108_)))) - (if (gx#stx-pair? _hd1252413111_) - (let ((_e1252613116_ (gx#stx-e _hd1252413111_))) - (let ((_tl1252813121_ + (##car _e1277113350_)))) + (let ((__tmp17283 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _lp-hd1277213353_ _arg1277413347_)))) + (declare (not safe)) + (_loop1277013342_ _lp-tl1277313355_ __tmp17283)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_arg1277513358_ + (let () + (declare (not safe)) + (reverse _arg1277413347_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1276413334_)) + (let ((_e1277813361_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl1276413334_)))) + (let ((_tl1277613366_ + (let () (declare (not safe)) (##cdr _e1277813361_))) + (_hd1277713364_ + (let () (declare (not safe)) (##car _e1277813361_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1277713364_)) + (let ((_e1278113369_ + (let () + (declare (not safe)) + (gx#stx-e _hd1277713364_)))) + (let ((_tl1277913374_ (let () (declare (not safe)) - (##cdr _e1252613116_))) - (_hd1252713119_ + (##cdr _e1278113369_))) + (_hd1278013372_ (let () (declare (not safe)) - (##car _e1252613116_)))) - (if (gx#identifier? _hd1252713119_) - (if (gx#stx-eq? '%#call _hd1252713119_) - (if (gx#stx-pair? _tl1252813121_) - (let ((_e1252913124_ - (gx#stx-e _tl1252813121_))) - (let ((_tl1253113129_ + (##car _e1278113369_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1278013372_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd1278013372_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1277913374_)) + (let ((_e1278413377_ + (let () + (declare (not safe)) + (gx#stx-e _tl1277913374_)))) + (let ((_tl1278213382_ (let () (declare (not safe)) - (##cdr _e1252913124_))) - (_hd1253013127_ + (##cdr _e1278413377_))) + (_hd1278313380_ (let () (declare (not safe)) - (##car _e1252913124_)))) - (if (gx#stx-pair? _hd1253013127_) - (let ((_e1253213132_ - (gx#stx-e - _hd1253013127_))) - (let ((_tl1253413137_ + (##car _e1278413377_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1278313380_)) + (let ((_e1278713385_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1278313380_)))) + (let ((_tl1278513390_ (let () (declare (not safe)) - (##cdr _e1253213132_))) - (_hd1253313135_ + (##cdr _e1278713385_))) + (_hd1278613388_ (let () (declare (not safe)) - (##car _e1253213132_)))) - (if (gx#identifier? - _hd1253313135_) - (if (gx#stx-eq? - '%#ref - _hd1253313135_) - (if (gx#stx-pair? + (##car _e1278713385_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd1278613388_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#ref + _hd1278613388_)) + (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1253413137_) - (let ((_e1253513140_ (gx#stx-e _tl1253413137_))) - (let ((_tl1253713145_ + (declare (not safe)) + (gx#stx-pair? _tl1278513390_)) + (let ((_e1279013393_ + (let () + (declare (not safe)) + (gx#stx-e _tl1278513390_)))) + (let ((_tl1278813398_ (let () (declare (not safe)) - (##cdr _e1253513140_))) - (_hd1253613143_ + (##cdr _e1279013393_))) + (_hd1278913396_ (let () (declare (not safe)) - (##car _e1253513140_)))) - (if (gx#stx-null? _tl1253713145_) - (if (gx#stx-pair/null? _tl1253113129_) - (let ((___splice1559315594_ - (gx#syntax-split-splice - _tl1253113129_ - '0))) - (let ((_tl1254013150_ + (##car _e1279013393_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1278813398_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl1278213382_)) + (let ((___splice1584615847_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl1278213382_ + '0)))) + (let ((_tl1279313403_ (let () (declare (not safe)) (##vector-ref - ___splice1559315594_ + ___splice1584615847_ '1))) - (_target1253813148_ + (_target1279113401_ (let () (declare (not safe)) (##vector-ref - ___splice1559315594_ + ___splice1584615847_ '0)))) - (if (gx#stx-null? _tl1254013150_) - (letrec ((_loop1254113153_ - (lambda (_hd1253913156_ - _xarg1254513158_) - (if (gx#stx-pair? - _hd1253913156_) - (let ((_e1254213161_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1253913156_))) - (let ((_lp-tl1254413166_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1279313403_)) + (letrec ((_loop1279413406_ + (lambda (_hd1279213409_ + _xarg1279813411_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd1279213409_)) + (let ((_e1279513414_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd1279213409_)))) + (let ((_lp-tl1279713419_ (let () (declare (not safe)) - (##cdr _e1254213161_))) - (_lp-hd1254313164_ + (##cdr _e1279513414_))) + (_lp-hd1279613417_ (let () (declare (not safe)) - (##car _e1254213161_)))) - (if (gx#stx-pair? _lp-hd1254313164_) - (let ((_e1254713169_ (gx#stx-e _lp-hd1254313164_))) - (let ((_tl1254913174_ + (##car _e1279513414_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd1279613417_)) + (let ((_e1280213422_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd1279613417_)))) + (let ((_tl1280013427_ (let () (declare (not safe)) - (##cdr _e1254713169_))) - (_hd1254813172_ + (##cdr _e1280213422_))) + (_hd1280113425_ (let () (declare (not safe)) - (##car _e1254713169_)))) - (if (gx#identifier? _hd1254813172_) - (if (gx#stx-eq? '%#ref _hd1254813172_) - (if (gx#stx-pair? _tl1254913174_) - (let ((_e1255013177_ - (gx#stx-e _tl1254913174_))) - (let ((_tl1255213182_ + (##car _e1280213422_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1280113425_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd1280113425_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1280013427_)) + (let ((_e1280513430_ + (let () + (declare (not safe)) + (gx#stx-e + _tl1280013427_)))) + (let ((_tl1280313435_ + (let () + (declare (not safe)) + (##cdr _e1280513430_))) + (_hd1280413433_ + (let () + (declare (not safe)) + (##car _e1280513430_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1280313435_)) + (let ((__tmp17282 + (let () + (declare + (not safe)) + (cons _hd1280413433_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _xarg1279813411_)))) + (declare (not safe)) + (_loop1279413406_ _lp-tl1279713419_ __tmp17282)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)))) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)))) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)))) + (let ((_xarg1279913438_ + (let () + (declare (not safe)) + (reverse _xarg1279813411_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1277613366_)) + (let ((_L13441_ _xarg1279913438_) + (_L13442_ _hd1278913396_) + (_L13443_ _arg1277513358_)) + (if (and (let ((__tmp17280 + (let ((__tmp17281 + (lambda (_g1347113474_ + _g1347213476_) (let () (declare (not safe)) - (##cdr _e1255013177_))) - (_hd1255113180_ + (cons _g1347113474_ + _g1347213476_))))) + (declare (not safe)) + (foldr1 __tmp17281 + '() + _L13443_)))) + (declare (not safe)) + (gx#identifier-list? __tmp17280)) + (fx= (length (let ((__tmp17278 + (lambda (_g1347813481_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1347913483_) + (let () + (declare (not safe)) + (cons _g1347813481_ _g1347913483_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp17278 + '() + _L13443_))) + (length (let ((__tmp17279 + (lambda (_g1348513488_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1348613490_) + (let () + (declare (not safe)) + (cons _g1348513488_ _g1348613490_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp17279 + '() + _L13441_)))) + (let ((__tmp17276 + (let ((__tmp17277 + (lambda (_g1349213495_ + _g1349313497_) (let () (declare (not safe)) - (##car _e1255013177_)))) - (if (gx#stx-null? - _tl1255213182_) - (_loop1254113153_ - _lp-tl1254413166_ - (cons _hd1255113180_ - _xarg1254513158_)) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)))) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)))) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)))) - (let ((_xarg1254613185_ (reverse _xarg1254513158_))) - (if (gx#stx-null? _tl1252513113_) - (let ((_L13188_ _xarg1254613185_) - (_L13189_ _hd1253613143_) - (_L13190_ _arg1252213105_)) - (if (and (gx#identifier-list? - (foldr1 (lambda (_g1321813221_ - _g1321913223_) - (cons _g1321813221_ - _g1321913223_)) - '() - _L13190_)) - (fx= (length (foldr1 (lambda (_g1322513228_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1322613230_) - (cons _g1322513228_ _g1322613230_)) - '() - _L13190_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (length (foldr1 (lambda (_g1323213235_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1323313237_) - (cons _g1323213235_ _g1323313237_)) - '() - _L13188_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (andmap2 gx#free-identifier=? - (foldr1 (lambda (_g1323913242_ - _g1324013244_) - (cons _g1323913242_ - _g1324013244_)) + (cons _g1349213495_ + _g1349313497_))))) + (declare (not safe)) + (foldr1 __tmp17277 '() - _L13190_) - (foldr1 (lambda (_g1324613249_ - _g1324713251_) - (cons _g1324613249_ - _g1324713251_)) + _L13443_))) + (__tmp17274 + (let ((__tmp17275 + (lambda (_g1349913502_ + _g1350013504_) + (let () + (declare (not safe)) + (cons _g1349913502_ + _g1350013504_))))) + (declare (not safe)) + (foldr1 __tmp17275 '() - _L13188_)) - (not (find (lambda (_g1325313255_) - (gx#free-identifier=? - _g1325313255_ - _L13189_)) - (foldr1 (lambda (_g1325713260_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1325813262_) - (cons _g1325713260_ _g1325813262_)) - '() - _L13190_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1558915590_ _L13188_ _L13189_ _L13190_) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_))) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1254113153_ - _target1253813148_ - '())) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)))) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)))) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)))) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)))) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)))) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1251713089_ - _target1251413084_ - '()))))) - (if (gx#stx-pair? ___stx1558715588_) - (let ((_e1251113076_ - (gx#stx-e ___stx1558715588_))) - (let ((_tl1251313081_ + _L13441_)))) + (declare (not safe)) + (andmap2 gx#free-identifier=? + __tmp17276 + __tmp17274)) + (let ((__tmp17270 + (let ((__tmp17273 + (lambda (_g1350613508_) + (let () + (declare (not safe)) + (gx#free-identifier=? + _g1350613508_ + _L13442_)))) + (__tmp17271 + (let ((__tmp17272 + (lambda (_g1351013513_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1351113515_) + (let () + (declare (not safe)) + (cons _g1351013513_ _g1351113515_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp17272 + '() + _L13443_)))) + (declare (not safe)) + (find __tmp17273 __tmp17271)))) + (declare (not safe)) + (not __tmp17270))) + (___kont1584215843_ _L13441_ _L13442_ _L13443_) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_))) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1279413406_ + _target1279113401_ + '()))) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)))) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)))) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)))) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)))) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)))) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1277013342_ + _target1276713337_ + '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1584015841_)) + (let ((_e1276613329_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1584015841_)))) + (let ((_tl1276413334_ (let () (declare (not safe)) - (##cdr _e1251113076_))) - (_hd1251213079_ + (##cdr _e1276613329_))) + (_hd1276513332_ (let () (declare (not safe)) - (##car _e1251113076_)))) - (if (gx#stx-pair/null? _hd1251213079_) - (let ((___splice1559115592_ - (gx#syntax-split-splice - _hd1251213079_ - '0))) - (let ((_tl1251613086_ + (##car _e1276613329_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd1276513332_)) + (let ((___splice1584415845_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd1276513332_ + '0)))) + (let ((_tl1276913339_ (let () (declare (not safe)) (##vector-ref - ___splice1559115592_ + ___splice1584415845_ '1))) - (_target1251413084_ + (_target1276713337_ (let () (declare (not safe)) (##vector-ref - ___splice1559115592_ + ___splice1584415845_ '0)))) - (if (gx#stx-null? _tl1251613086_) - (___match1561815619_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_) - (___match1563015631_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - ___splice1559115592_ - _target1251413084_ - _tl1251613086_)))) - (if (gx#stx-pair? _tl1251313081_) - (let ((_e1262612683_ - (gx#stx-e _tl1251313081_))) - (let ((_tl1262812688_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1276913339_)) + (___match1587115872_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_) + (___match1588315884_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + ___splice1584415845_ + _target1276713337_ + _tl1276913339_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1276413334_)) + (let ((_e1288112936_ + (let () + (declare (not safe)) + (gx#stx-e _tl1276413334_)))) + (let ((_tl1287912941_ (let () (declare (not safe)) - (##cdr _e1262612683_))) - (_hd1262712686_ + (##cdr _e1288112936_))) + (_hd1288012939_ (let () (declare (not safe)) - (##car _e1262612683_)))) - (if (gx#stx-pair? _hd1262712686_) - (let ((_e1262912691_ - (gx#stx-e - _hd1262712686_))) - (let ((_tl1263112696_ + (##car _e1288112936_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1288012939_)) + (let ((_e1288412944_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1288012939_)))) + (let ((_tl1288212949_ (let () (declare (not safe)) - (##cdr _e1262912691_))) - (_hd1263012694_ + (##cdr _e1288412944_))) + (_hd1288312947_ (let () (declare (not safe)) - (##car _e1262912691_)))) - (if (gx#identifier? - _hd1263012694_) - (if (gx#stx-eq? - '%#call - _hd1263012694_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1263112696_) - (let ((_e1263212699_ (gx#stx-e _tl1263112696_))) - (let ((_tl1263412704_ + (##car _e1288412944_)))) + (if (let () + (declare + (not safe)) + (gx#identifier? + _hd1288312947_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-eq? '%#call _hd1288312947_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1288212949_)) + (let ((_e1288712952_ + (let () + (declare (not safe)) + (gx#stx-e _tl1288212949_)))) + (let ((_tl1288512957_ (let () (declare (not safe)) - (##cdr _e1263212699_))) - (_hd1263312702_ + (##cdr _e1288712952_))) + (_hd1288612955_ (let () (declare (not safe)) - (##car _e1263212699_)))) - (if (gx#stx-pair? _hd1263312702_) - (let ((_e1263512707_ - (gx#stx-e _hd1263312702_))) - (let ((_tl1263712712_ + (##car _e1288712952_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1288612955_)) + (let ((_e1289012960_ + (let () + (declare (not safe)) + (gx#stx-e _hd1288612955_)))) + (let ((_tl1288812965_ (let () (declare (not safe)) - (##cdr _e1263512707_))) - (_hd1263612710_ + (##cdr _e1289012960_))) + (_hd1288912963_ (let () (declare (not safe)) - (##car _e1263512707_)))) - (if (gx#identifier? _hd1263612710_) - (if (gx#stx-eq? - '%#ref - _hd1263612710_) - (if (gx#stx-pair? _tl1263712712_) - (let ((_e1263812715_ - (gx#stx-e - _tl1263712712_))) - (let ((_tl1264012720_ + (##car _e1289012960_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1288912963_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd1288912963_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1288812965_)) + (let ((_e1289312968_ + (let () + (declare (not safe)) + (gx#stx-e + _tl1288812965_)))) + (let ((_tl1289112973_ (let () (declare (not safe)) - (##cdr _e1263812715_))) - (_hd1263912718_ + (##cdr _e1289312968_))) + (_hd1289212971_ (let () (declare (not safe)) - (##car _e1263812715_)))) - (if (gx#stx-null? - _tl1264012720_) - (if (gx#stx-pair? - _tl1263412704_) - (let ((_e1264112723_ + (##car _e1289312968_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl1289112973_)) + (if (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1263412704_))) - (let ((_tl1264312728_ + (not safe)) + (gx#stx-pair? _tl1288512957_)) + (let ((_e1289612976_ + (let () + (declare (not safe)) + (gx#stx-e _tl1288512957_)))) + (let ((_tl1289412981_ (let () (declare (not safe)) - (##cdr _e1264112723_))) - (_hd1264212726_ + (##cdr _e1289612976_))) + (_hd1289512979_ (let () (declare (not safe)) - (##car _e1264112723_)))) - (if (gx#stx-pair? _hd1264212726_) - (let ((_e1264412731_ (gx#stx-e _hd1264212726_))) - (let ((_tl1264612736_ + (##car _e1289612976_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1289512979_)) + (let ((_e1289912984_ + (let () + (declare (not safe)) + (gx#stx-e _hd1289512979_)))) + (let ((_tl1289712989_ (let () (declare (not safe)) - (##cdr _e1264412731_))) - (_hd1264512734_ + (##cdr _e1289912984_))) + (_hd1289812987_ (let () (declare (not safe)) - (##car _e1264412731_)))) - (if (gx#identifier? _hd1264512734_) - (if (gx#stx-eq? '%#ref _hd1264512734_) - (if (gx#stx-pair? _tl1264612736_) - (let ((_e1264712739_ - (gx#stx-e - _tl1264612736_))) - (let ((_tl1264912744_ + (##car _e1289912984_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1289812987_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd1289812987_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1289712989_)) + (let ((_e1290212992_ + (let () + (declare (not safe)) + (gx#stx-e + _tl1289712989_)))) + (let ((_tl1290012997_ (let () (declare (not safe)) - (##cdr _e1264712739_))) - (_hd1264812742_ + (##cdr _e1290212992_))) + (_hd1290112995_ (let () (declare (not safe)) - (##car _e1264712739_)))) - (if (gx#stx-null? - _tl1264912744_) - (if (gx#stx-pair? - _tl1264312728_) - (let ((_e1265012747_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1264312728_))) - (let ((_tl1265212752_ - (let () (declare (not safe)) (##cdr _e1265012747_))) - (_hd1265112750_ + (##car _e1290212992_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1290012997_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl1289412981_)) + (let ((_e1290513000_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl1289412981_)))) + (let ((_tl1290313005_ + (let () (declare (not safe)) (##cdr _e1290513000_))) + (_hd1290413003_ (let () (declare (not safe)) - (##car _e1265012747_)))) - (if (gx#stx-pair? _hd1265112750_) - (let ((_e1265312755_ (gx#stx-e _hd1265112750_))) - (let ((_tl1265512760_ + (##car _e1290513000_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1290413003_)) + (let ((_e1290813008_ + (let () + (declare (not safe)) + (gx#stx-e _hd1290413003_)))) + (let ((_tl1290613013_ (let () (declare (not safe)) - (##cdr _e1265312755_))) - (_hd1265412758_ + (##cdr _e1290813008_))) + (_hd1290713011_ (let () (declare (not safe)) - (##car _e1265312755_)))) - (if (gx#identifier? _hd1265412758_) - (if (gx#stx-eq? '%#ref _hd1265412758_) - (if (gx#stx-pair? _tl1265512760_) - (let ((_e1265612763_ - (gx#stx-e _tl1265512760_))) - (let ((_tl1265812768_ + (##car _e1290813008_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1290713011_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd1290713011_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1290613013_)) + (let ((_e1291113016_ + (let () + (declare (not safe)) + (gx#stx-e _tl1290613013_)))) + (let ((_tl1290913021_ (let () (declare (not safe)) - (##cdr _e1265612763_))) - (_hd1265712766_ + (##cdr _e1291113016_))) + (_hd1291013019_ (let () (declare (not safe)) - (##car _e1265612763_)))) - (if (gx#stx-null? _tl1265812768_) - (if (gx#stx-null? - _tl1265212752_) - (if (gx#stx-null? - _tl1262812688_) - (___match1572815729_ - _e1251113076_ - _hd1251213079_ - _tl1251313081_ - _e1262612683_ - _hd1262712686_ - _tl1262812688_ - _e1262912691_ - _hd1263012694_ - _tl1263112696_ - _e1263212699_ - _hd1263312702_ - _tl1263412704_ - _e1263512707_ - _hd1263612710_ - _tl1263712712_ - _e1263812715_ - _hd1263912718_ - _tl1264012720_ - _e1264112723_ - _hd1264212726_ - _tl1264312728_ - _e1264412731_ - _hd1264512734_ - _tl1264612736_ - _e1264712739_ - _hd1264812742_ - _tl1264912744_ - _e1265012747_ - _hd1265112750_ - _tl1265212752_ - _e1265312755_ - _hd1265412758_ - _tl1265512760_ - _e1265612763_ - _hd1265712766_ - _tl1265812768_) - (___kont1560315604_)) - (___kont1560315604_)) - (___kont1560315604_)))) - (___kont1560315604_)) - (___kont1560315604_)) - (___kont1560315604_)))) - (___kont1560315604_)))) - (___kont1560315604_)) - (___kont1560315604_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1560315604_)) - (___kont1560315604_)) - (___kont1560315604_)))) - (___kont1560315604_)))) - (___kont1560315604_)) - (___kont1560315604_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1560315604_)) - (___kont1560315604_)) - (___kont1560315604_)))) - (___kont1560315604_)))) - (___kont1560315604_)) - (___kont1560315604_)) - (___kont1560315604_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1560315604_)))) - (___kont1560315604_))))) - (___kont1560315604_))))))) - (_dispatch-case-e11814_ - (lambda (_hd11962_ _body11963_) - (let* ((_form11965_ - (cons _hd11962_ (cons _body11963_ '()))) - (___stx1573115732_ _form11965_) - (_g1196912093_ + (##car _e1291113016_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1290913021_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1290313005_)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl1287912941_)) + (___match1598115982_ + _e1276613329_ + _hd1276513332_ + _tl1276413334_ + _e1288112936_ + _hd1288012939_ + _tl1287912941_ + _e1288412944_ + _hd1288312947_ + _tl1288212949_ + _e1288712952_ + _hd1288612955_ + _tl1288512957_ + _e1289012960_ + _hd1288912963_ + _tl1288812965_ + _e1289312968_ + _hd1289212971_ + _tl1289112973_ + _e1289612976_ + _hd1289512979_ + _tl1289412981_ + _e1289912984_ + _hd1289812987_ + _tl1289712989_ + _e1290212992_ + _hd1290112995_ + _tl1290012997_ + _e1290513000_ + _hd1290413003_ + _tl1290313005_ + _e1290813008_ + _hd1290713011_ + _tl1290613013_ + _e1291113016_ + _hd1291013019_ + _tl1290913021_) + (___kont1585615857_)) + (___kont1585615857_)) + (___kont1585615857_)))) + (___kont1585615857_)) + (___kont1585615857_)) + (___kont1585615857_)))) + (___kont1585615857_)))) + (___kont1585615857_)) + (___kont1585615857_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1585615857_)) + (___kont1585615857_)) + (___kont1585615857_)))) + (___kont1585615857_)))) + (___kont1585615857_)) + (___kont1585615857_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1585615857_)) + (___kont1585615857_)) + (___kont1585615857_)))) + (___kont1585615857_)))) + (___kont1585615857_)) + (___kont1585615857_)) + (___kont1585615857_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1585615857_)))) + (___kont1585615857_))))) + (___kont1585615857_))))))) + (_dispatch-case-e12067_ + (lambda (_hd12215_ _body12216_) + (let* ((_form12218_ + (let ((__tmp17284 + (let () + (declare (not safe)) + (cons _body12216_ '())))) + (declare (not safe)) + (cons _hd12215_ __tmp17284))) + (___stx1598415985_ _form12218_) + (_g1222212346_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1573115732_)))) - (let ((___kont1573315734_ - (lambda (_L12464_ _L12465_ _L12466_) - (gxc#compile-e - (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _L12465_ '()))))) - (___kont1573915740_ - (lambda (_L12312_ _L12313_ _L12314_ _L12315_) - (gxc#compile-e - (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _L12312_ '()))))) - (___kont1574315744_ - (lambda (_L12178_ _L12179_ _L12180_) - (gxc#compile-e - (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _L12178_ '())))))) - (let* ((___match1584015841_ - (lambda (_e1205912098_ - _hd1206012101_ - _tl1206112103_ - _e1206212106_ - _hd1206312109_ - _tl1206412111_ - _e1206512114_ - _hd1206612117_ - _tl1206712119_ - _e1206812122_ - _hd1206912125_ - _tl1207012127_ - _e1207112130_ - _hd1207212133_ - _tl1207312135_ - _e1207412138_ - _hd1207512141_ - _tl1207612143_ - _e1207712146_ - _hd1207812149_ - _tl1207912151_ - _e1208012154_ - _hd1208112157_ - _tl1208212159_ - _e1208312162_ - _hd1208412165_ - _tl1208512167_) - (if (gx#stx-pair? _tl1207912151_) - (let ((_e1208612170_ - (gx#stx-e _tl1207912151_))) - (let ((_tl1208812175_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1598415985_))))) + (let ((___kont1598615987_ + (lambda (_L12717_ _L12718_ _L12719_) + (let ((__tmp17285 + (let ((__tmp17287 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp17286 + (let () + (declare (not safe)) + (cons _L12718_ '())))) + (declare (not safe)) + (cons __tmp17287 __tmp17286)))) + (declare (not safe)) + (gxc#compile-e __tmp17285)))) + (___kont1599215993_ + (lambda (_L12565_ _L12566_ _L12567_ _L12568_) + (let ((__tmp17288 + (let ((__tmp17290 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp17289 + (let () + (declare (not safe)) + (cons _L12565_ '())))) + (declare (not safe)) + (cons __tmp17290 __tmp17289)))) + (declare (not safe)) + (gxc#compile-e __tmp17288)))) + (___kont1599615997_ + (lambda (_L12431_ _L12432_ _L12433_) + (let ((__tmp17291 + (let ((__tmp17293 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp17292 + (let () + (declare (not safe)) + (cons _L12431_ '())))) + (declare (not safe)) + (cons __tmp17293 __tmp17292)))) + (declare (not safe)) + (gxc#compile-e __tmp17291))))) + (let* ((___match1609316094_ + (lambda (_e1231412351_ + _hd1231312354_ + _tl1231212356_ + _e1231712359_ + _hd1231612362_ + _tl1231512364_ + _e1232012367_ + _hd1231912370_ + _tl1231812372_ + _e1232312375_ + _hd1232212378_ + _tl1232112380_ + _e1232612383_ + _hd1232512386_ + _tl1232412388_ + _e1232912391_ + _hd1232812394_ + _tl1232712396_ + _e1233212399_ + _hd1233112402_ + _tl1233012404_ + _e1233512407_ + _hd1233412410_ + _tl1233312412_ + _e1233812415_ + _hd1233712418_ + _tl1233612420_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1233012404_)) + (let ((_e1234112423_ + (let () + (declare (not safe)) + (gx#stx-e _tl1233012404_)))) + (let ((_tl1233912428_ (let () (declare (not safe)) - (##cdr _e1208612170_))) - (_hd1208712173_ + (##cdr _e1234112423_))) + (_hd1234012426_ (let () (declare (not safe)) - (##car _e1208612170_)))) - (if (gx#stx-null? _tl1208812175_) - (if (gx#stx-null? _tl1206412111_) - (___kont1574315744_ - _hd1208412165_ - _hd1207512141_ - _hd1206012101_) - (_g1196912093_)) - (_g1196912093_)))) - (_g1196912093_)))) - (___match1577015771_ - (lambda (_e1202012216_ - _hd1202112219_ - _tl1202212221_ - ___splice1574115742_ - _target1202312224_ - _tl1202512226_) - (letrec ((_loop1202612229_ - (lambda (_hd1202412232_ - _arg1203012234_) - (if (gx#stx-pair? _hd1202412232_) - (let ((_e1202712237_ - (gx#stx-e - _hd1202412232_))) - (let ((_lp-tl1202912242_ + (##car _e1234112423_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1233912428_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1231512364_)) + (___kont1599615997_ + _hd1233712418_ + _hd1232812394_ + _hd1231312354_) + (let () + (declare (not safe)) + (_g1222212346_))) + (let () + (declare (not safe)) + (_g1222212346_))))) + (let () + (declare (not safe)) + (_g1222212346_))))) + (___match1602316024_ + (lambda (_e1227512469_ + _hd1227412472_ + _tl1227312474_ + ___splice1599415995_ + _target1227612477_ + _tl1227812479_) + (letrec ((_loop1227912482_ + (lambda (_hd1227712485_ + _arg1228312487_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1227712485_)) + (let ((_e1228012490_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1227712485_)))) + (let ((_lp-tl1228212495_ (let () (declare (not safe)) - (##cdr _e1202712237_))) - (_lp-hd1202812240_ + (##cdr _e1228012490_))) + (_lp-hd1228112493_ (let () (declare (not safe)) - (##car _e1202712237_)))) - (_loop1202612229_ - _lp-tl1202912242_ - (cons _lp-hd1202812240_ - _arg1203012234_)))) - (let ((_arg1203112245_ - (reverse _arg1203012234_))) - (if (gx#stx-pair? - _tl1202212221_) - (let ((_e1203212248_ - (gx#stx-e - _tl1202212221_))) - (let ((_tl1203412253_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e1203212248_))) - (_hd1203312251_ - (let () (declare (not safe)) (##car _e1203212248_)))) - (if (gx#stx-pair? _hd1203312251_) - (let ((_e1203512256_ (gx#stx-e _hd1203312251_))) - (let ((_tl1203712261_ + (##car _e1228012490_)))) + (let ((__tmp17294 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _lp-hd1228112493_ _arg1228312487_)))) + (declare (not safe)) + (_loop1227912482_ _lp-tl1228212495_ __tmp17294)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_arg1228412498_ + (let () + (declare (not safe)) + (reverse _arg1228312487_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1227312474_)) + (let ((_e1228712501_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl1227312474_)))) + (let ((_tl1228512506_ + (let () (declare (not safe)) (##cdr _e1228712501_))) + (_hd1228612504_ + (let () (declare (not safe)) (##car _e1228712501_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1228612504_)) + (let ((_e1229012509_ + (let () + (declare (not safe)) + (gx#stx-e _hd1228612504_)))) + (let ((_tl1228812514_ (let () (declare (not safe)) - (##cdr _e1203512256_))) - (_hd1203612259_ + (##cdr _e1229012509_))) + (_hd1228912512_ (let () (declare (not safe)) - (##car _e1203512256_)))) - (if (gx#identifier? _hd1203612259_) - (if (gx#stx-eq? '%#call _hd1203612259_) - (if (gx#stx-pair? _tl1203712261_) - (let ((_e1203812264_ - (gx#stx-e _tl1203712261_))) - (let ((_tl1204012269_ + (##car _e1229012509_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1228912512_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd1228912512_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1228812514_)) + (let ((_e1229312517_ + (let () + (declare (not safe)) + (gx#stx-e _tl1228812514_)))) + (let ((_tl1229112522_ (let () (declare (not safe)) - (##cdr _e1203812264_))) - (_hd1203912267_ + (##cdr _e1229312517_))) + (_hd1229212520_ (let () (declare (not safe)) - (##car _e1203812264_)))) - (if (gx#stx-pair? _hd1203912267_) - (let ((_e1204112272_ - (gx#stx-e - _hd1203912267_))) - (let ((_tl1204312277_ + (##car _e1229312517_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1229212520_)) + (let ((_e1229612525_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1229212520_)))) + (let ((_tl1229412530_ (let () (declare (not safe)) - (##cdr _e1204112272_))) - (_hd1204212275_ + (##cdr _e1229612525_))) + (_hd1229512528_ (let () (declare (not safe)) - (##car _e1204112272_)))) - (if (gx#identifier? - _hd1204212275_) - (if (gx#stx-eq? - '%#ref - _hd1204212275_) - (if (gx#stx-pair? + (##car _e1229612525_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd1229512528_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#ref + _hd1229512528_)) + (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1204312277_) - (let ((_e1204412280_ (gx#stx-e _tl1204312277_))) - (let ((_tl1204612285_ + (declare (not safe)) + (gx#stx-pair? _tl1229412530_)) + (let ((_e1229912533_ + (let () + (declare (not safe)) + (gx#stx-e _tl1229412530_)))) + (let ((_tl1229712538_ (let () (declare (not safe)) - (##cdr _e1204412280_))) - (_hd1204512283_ + (##cdr _e1229912533_))) + (_hd1229812536_ (let () (declare (not safe)) - (##car _e1204412280_)))) - (if (gx#stx-null? _tl1204612285_) - (if (gx#stx-pair? _tl1204012269_) - (let ((_e1204712288_ - (gx#stx-e _tl1204012269_))) - (let ((_tl1204912293_ + (##car _e1229912533_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1229712538_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1229112522_)) + (let ((_e1230212541_ + (let () + (declare (not safe)) + (gx#stx-e _tl1229112522_)))) + (let ((_tl1230012546_ (let () (declare (not safe)) - (##cdr _e1204712288_))) - (_hd1204812291_ + (##cdr _e1230212541_))) + (_hd1230112544_ (let () (declare (not safe)) - (##car _e1204712288_)))) - (if (gx#stx-pair? _hd1204812291_) - (let ((_e1205012296_ - (gx#stx-e _hd1204812291_))) - (let ((_tl1205212301_ + (##car _e1230212541_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1230112544_)) + (let ((_e1230512549_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1230112544_)))) + (let ((_tl1230312554_ (let () (declare (not safe)) - (##cdr _e1205012296_))) - (_hd1205112299_ + (##cdr _e1230512549_))) + (_hd1230412552_ (let () (declare (not safe)) - (##car _e1205012296_)))) - (if (gx#identifier? - _hd1205112299_) - (if (gx#stx-eq? - '%#ref - _hd1205112299_) - (if (gx#stx-pair? - _tl1205212301_) - (let ((_e1205312304_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1205212301_))) - (let ((_tl1205512309_ + (##car _e1230512549_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd1230412552_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd1230412552_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl1230312554_)) + (let ((_e1230812557_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl1230312554_)))) + (let ((_tl1230612562_ (let () (declare (not safe)) - (##cdr _e1205312304_))) - (_hd1205412307_ + (##cdr _e1230812557_))) + (_hd1230712560_ (let () (declare (not safe)) - (##car _e1205312304_)))) - (if (gx#stx-null? _tl1205512309_) - (if (gx#stx-null? _tl1203412253_) - (___kont1573915740_ - _hd1205412307_ - _hd1204512283_ - _tl1202512226_ - _arg1203112245_) - (___match1584015841_ - _e1202012216_ - _hd1202112219_ - _tl1202212221_ - _e1203212248_ - _hd1203312251_ - _tl1203412253_ - _e1203512256_ - _hd1203612259_ - _tl1203712261_ - _e1203812264_ - _hd1203912267_ - _tl1204012269_ - _e1204112272_ - _hd1204212275_ - _tl1204312277_ - _e1204412280_ - _hd1204512283_ - _tl1204612285_ - _e1204712288_ - _hd1204812291_ - _tl1204912293_ - _e1205012296_ - _hd1205112299_ - _tl1205212301_ - _e1205312304_ - _hd1205412307_ - _tl1205512309_)) - (_g1196912093_)))) - (_g1196912093_)) - (_g1196912093_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1196912093_)))) - (_g1196912093_)))) - (_g1196912093_)) - (_g1196912093_)))) - (_g1196912093_)) - (_g1196912093_)) - (_g1196912093_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1196912093_)))) - (_g1196912093_)) - (_g1196912093_)) - (_g1196912093_)))) - (_g1196912093_)))) - (_g1196912093_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1202612229_ - _target1202312224_ - '())))) - (___match1575815759_ - (lambda (_e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_) - (letrec ((_loop1198012365_ - (lambda (_hd1197812368_ - _arg1198412370_) - (if (gx#stx-pair? _hd1197812368_) - (let ((_e1198112373_ - (gx#stx-e - _hd1197812368_))) - (let ((_lp-tl1198312378_ + (##car _e1230812557_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1230612562_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1228512506_)) + (___kont1599215993_ + _hd1230712560_ + _hd1229812536_ + _tl1227812479_ + _arg1228412498_) + (___match1609316094_ + _e1227512469_ + _hd1227412472_ + _tl1227312474_ + _e1228712501_ + _hd1228612504_ + _tl1228512506_ + _e1229012509_ + _hd1228912512_ + _tl1228812514_ + _e1229312517_ + _hd1229212520_ + _tl1229112522_ + _e1229612525_ + _hd1229512528_ + _tl1229412530_ + _e1229912533_ + _hd1229812536_ + _tl1229712538_ + _e1230212541_ + _hd1230112544_ + _tl1230012546_ + _e1230512549_ + _hd1230412552_ + _tl1230312554_ + _e1230812557_ + _hd1230712560_ + _tl1230612562_)) + (let () (declare (not safe)) (_g1222212346_))))) + (let () (declare (not safe)) (_g1222212346_))) + (let () (declare (not safe)) (_g1222212346_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g1222212346_))))) + (let () + (declare (not safe)) + (_g1222212346_))))) + (let () + (declare (not safe)) + (_g1222212346_))) + (let () + (declare (not safe)) + (_g1222212346_))))) + (let () (declare (not safe)) (_g1222212346_))) + (let () (declare (not safe)) (_g1222212346_))) + (let () (declare (not safe)) (_g1222212346_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g1222212346_))))) + (let () + (declare (not safe)) + (_g1222212346_))) + (let () + (declare (not safe)) + (_g1222212346_))) + (let () + (declare (not safe)) + (_g1222212346_))))) + (let () (declare (not safe)) (_g1222212346_))))) + (let () (declare (not safe)) (_g1222212346_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1227912482_ + _target1227612477_ + '()))))) + (___match1601116012_ + (lambda (_e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_) + (letrec ((_loop1223312618_ + (lambda (_hd1223112621_ + _arg1223712623_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1223112621_)) + (let ((_e1223412626_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1223112621_)))) + (let ((_lp-tl1223612631_ (let () (declare (not safe)) - (##cdr _e1198112373_))) - (_lp-hd1198212376_ + (##cdr _e1223412626_))) + (_lp-hd1223512629_ (let () (declare (not safe)) - (##car _e1198112373_)))) - (_loop1198012365_ - _lp-tl1198312378_ - (cons _lp-hd1198212376_ - _arg1198412370_)))) - (let ((_arg1198512381_ - (reverse _arg1198412370_))) - (if (gx#stx-pair? - _tl1197612357_) - (let ((_e1198612384_ - (gx#stx-e - _tl1197612357_))) - (let ((_tl1198812389_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e1198612384_))) - (_hd1198712387_ - (let () (declare (not safe)) (##car _e1198612384_)))) - (if (gx#stx-pair? _hd1198712387_) - (let ((_e1198912392_ (gx#stx-e _hd1198712387_))) - (let ((_tl1199112397_ + (##car _e1223412626_)))) + (let ((__tmp17296 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _lp-hd1223512629_ _arg1223712623_)))) + (declare (not safe)) + (_loop1223312618_ _lp-tl1223612631_ __tmp17296)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_arg1223812634_ + (let () + (declare (not safe)) + (reverse _arg1223712623_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1222712610_)) + (let ((_e1224112637_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl1222712610_)))) + (let ((_tl1223912642_ + (let () (declare (not safe)) (##cdr _e1224112637_))) + (_hd1224012640_ + (let () (declare (not safe)) (##car _e1224112637_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1224012640_)) + (let ((_e1224412645_ + (let () + (declare (not safe)) + (gx#stx-e _hd1224012640_)))) + (let ((_tl1224212650_ (let () (declare (not safe)) - (##cdr _e1198912392_))) - (_hd1199012395_ + (##cdr _e1224412645_))) + (_hd1224312648_ (let () (declare (not safe)) - (##car _e1198912392_)))) - (if (gx#identifier? _hd1199012395_) - (if (gx#stx-eq? '%#call _hd1199012395_) - (if (gx#stx-pair? _tl1199112397_) - (let ((_e1199212400_ - (gx#stx-e _tl1199112397_))) - (let ((_tl1199412405_ + (##car _e1224412645_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1224312648_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd1224312648_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1224212650_)) + (let ((_e1224712653_ + (let () + (declare (not safe)) + (gx#stx-e _tl1224212650_)))) + (let ((_tl1224512658_ (let () (declare (not safe)) - (##cdr _e1199212400_))) - (_hd1199312403_ + (##cdr _e1224712653_))) + (_hd1224612656_ (let () (declare (not safe)) - (##car _e1199212400_)))) - (if (gx#stx-pair? _hd1199312403_) - (let ((_e1199512408_ - (gx#stx-e - _hd1199312403_))) - (let ((_tl1199712413_ + (##car _e1224712653_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1224612656_)) + (let ((_e1225012661_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1224612656_)))) + (let ((_tl1224812666_ (let () (declare (not safe)) - (##cdr _e1199512408_))) - (_hd1199612411_ + (##cdr _e1225012661_))) + (_hd1224912664_ (let () (declare (not safe)) - (##car _e1199512408_)))) - (if (gx#identifier? - _hd1199612411_) - (if (gx#stx-eq? - '%#ref - _hd1199612411_) - (if (gx#stx-pair? + (##car _e1225012661_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd1224912664_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#ref + _hd1224912664_)) + (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1199712413_) - (let ((_e1199812416_ (gx#stx-e _tl1199712413_))) - (let ((_tl1200012421_ + (declare (not safe)) + (gx#stx-pair? _tl1224812666_)) + (let ((_e1225312669_ + (let () + (declare (not safe)) + (gx#stx-e _tl1224812666_)))) + (let ((_tl1225112674_ (let () (declare (not safe)) - (##cdr _e1199812416_))) - (_hd1199912419_ + (##cdr _e1225312669_))) + (_hd1225212672_ (let () (declare (not safe)) - (##car _e1199812416_)))) - (if (gx#stx-null? _tl1200012421_) - (if (gx#stx-pair/null? _tl1199412405_) - (let ((___splice1573715738_ - (gx#syntax-split-splice - _tl1199412405_ - '0))) - (let ((_tl1200312426_ + (##car _e1225312669_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1225112674_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl1224512658_)) + (let ((___splice1599015991_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl1224512658_ + '0)))) + (let ((_tl1225612679_ (let () (declare (not safe)) (##vector-ref - ___splice1573715738_ + ___splice1599015991_ '1))) - (_target1200112424_ + (_target1225412677_ (let () (declare (not safe)) (##vector-ref - ___splice1573715738_ + ___splice1599015991_ '0)))) - (if (gx#stx-null? _tl1200312426_) - (letrec ((_loop1200412429_ - (lambda (_hd1200212432_ - _xarg1200812434_) - (if (gx#stx-pair? - _hd1200212432_) - (let ((_e1200512437_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1200212432_))) - (let ((_lp-tl1200712442_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1225612679_)) + (letrec ((_loop1225712682_ + (lambda (_hd1225512685_ + _xarg1226112687_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd1225512685_)) + (let ((_e1225812690_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd1225512685_)))) + (let ((_lp-tl1226012695_ (let () (declare (not safe)) - (##cdr _e1200512437_))) - (_lp-hd1200612440_ + (##cdr _e1225812690_))) + (_lp-hd1225912693_ (let () (declare (not safe)) - (##car _e1200512437_)))) - (if (gx#stx-pair? _lp-hd1200612440_) - (let ((_e1201012445_ (gx#stx-e _lp-hd1200612440_))) - (let ((_tl1201212450_ + (##car _e1225812690_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd1225912693_)) + (let ((_e1226512698_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd1225912693_)))) + (let ((_tl1226312703_ (let () (declare (not safe)) - (##cdr _e1201012445_))) - (_hd1201112448_ + (##cdr _e1226512698_))) + (_hd1226412701_ (let () (declare (not safe)) - (##car _e1201012445_)))) - (if (gx#identifier? _hd1201112448_) - (if (gx#stx-eq? '%#ref _hd1201112448_) - (if (gx#stx-pair? _tl1201212450_) - (let ((_e1201312453_ - (gx#stx-e _tl1201212450_))) - (let ((_tl1201512458_ + (##car _e1226512698_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1226412701_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd1226412701_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1226312703_)) + (let ((_e1226812706_ + (let () + (declare (not safe)) + (gx#stx-e + _tl1226312703_)))) + (let ((_tl1226612711_ (let () (declare (not safe)) - (##cdr _e1201312453_))) - (_hd1201412456_ + (##cdr _e1226812706_))) + (_hd1226712709_ (let () (declare (not safe)) - (##car _e1201312453_)))) - (if (gx#stx-null? - _tl1201512458_) - (_loop1200412429_ - _lp-tl1200712442_ - (cons _hd1201412456_ - _xarg1200812434_)) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)))) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)))) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)))) - (let ((_xarg1200912461_ (reverse _xarg1200812434_))) - (if (gx#stx-null? _tl1198812389_) - (___kont1573315734_ - _xarg1200912461_ - _hd1199912419_ - _arg1198512381_) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1200412429_ - _target1200112424_ - '())) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)))) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)))) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)))) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)))) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)))) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1198012365_ - _target1197712360_ - '()))))) - (if (gx#stx-pair? ___stx1573115732_) - (let ((_e1197412352_ - (gx#stx-e ___stx1573115732_))) - (let ((_tl1197612357_ + (##car _e1226812706_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1226612711_)) + (let ((__tmp17295 + (let () + (declare + (not safe)) + (cons _hd1226712709_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _xarg1226112687_)))) + (declare (not safe)) + (_loop1225712682_ _lp-tl1226012695_ __tmp17295)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)))) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)))) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)))) + (let ((_xarg1226212714_ + (let () + (declare (not safe)) + (reverse _xarg1226112687_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1223912642_)) + (___kont1598615987_ + _xarg1226212714_ + _hd1225212672_ + _arg1223812634_) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1225712682_ + _target1225412677_ + '()))) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)))) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)))) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)))) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)))) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)))) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1223312618_ + _target1223012613_ + '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1598415985_)) + (let ((_e1222912605_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1598415985_)))) + (let ((_tl1222712610_ (let () (declare (not safe)) - (##cdr _e1197412352_))) - (_hd1197512355_ + (##cdr _e1222912605_))) + (_hd1222812608_ (let () (declare (not safe)) - (##car _e1197412352_)))) - (if (gx#stx-pair/null? _hd1197512355_) - (let ((___splice1573515736_ - (gx#syntax-split-splice - _hd1197512355_ - '0))) - (let ((_tl1197912362_ + (##car _e1222912605_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd1222812608_)) + (let ((___splice1598815989_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd1222812608_ + '0)))) + (let ((_tl1223212615_ (let () (declare (not safe)) (##vector-ref - ___splice1573515736_ + ___splice1598815989_ '1))) - (_target1197712360_ + (_target1223012613_ (let () (declare (not safe)) (##vector-ref - ___splice1573515736_ + ___splice1598815989_ '0)))) - (if (gx#stx-null? _tl1197912362_) - (___match1575815759_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_) - (___match1577015771_ - _e1197412352_ - _hd1197512355_ - _tl1197612357_ - ___splice1573515736_ - _target1197712360_ - _tl1197912362_)))) - (if (gx#stx-pair? _tl1197612357_) - (let ((_e1206212106_ - (gx#stx-e _tl1197612357_))) - (let ((_tl1206412111_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1223212615_)) + (___match1601116012_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_) + (___match1602316024_ + _e1222912605_ + _hd1222812608_ + _tl1222712610_ + ___splice1598815989_ + _target1223012613_ + _tl1223212615_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1222712610_)) + (let ((_e1231712359_ + (let () + (declare (not safe)) + (gx#stx-e _tl1222712610_)))) + (let ((_tl1231512364_ (let () (declare (not safe)) - (##cdr _e1206212106_))) - (_hd1206312109_ + (##cdr _e1231712359_))) + (_hd1231612362_ (let () (declare (not safe)) - (##car _e1206212106_)))) - (if (gx#stx-pair? _hd1206312109_) - (let ((_e1206512114_ - (gx#stx-e - _hd1206312109_))) - (let ((_tl1206712119_ + (##car _e1231712359_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1231612362_)) + (let ((_e1232012367_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1231612362_)))) + (let ((_tl1231812372_ (let () (declare (not safe)) - (##cdr _e1206512114_))) - (_hd1206612117_ + (##cdr _e1232012367_))) + (_hd1231912370_ (let () (declare (not safe)) - (##car _e1206512114_)))) - (if (gx#identifier? - _hd1206612117_) - (if (gx#stx-eq? - '%#call - _hd1206612117_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1206712119_) - (let ((_e1206812122_ (gx#stx-e _tl1206712119_))) - (let ((_tl1207012127_ + (##car _e1232012367_)))) + (if (let () + (declare + (not safe)) + (gx#identifier? + _hd1231912370_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-eq? '%#call _hd1231912370_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1231812372_)) + (let ((_e1232312375_ + (let () + (declare (not safe)) + (gx#stx-e _tl1231812372_)))) + (let ((_tl1232112380_ (let () (declare (not safe)) - (##cdr _e1206812122_))) - (_hd1206912125_ + (##cdr _e1232312375_))) + (_hd1232212378_ (let () (declare (not safe)) - (##car _e1206812122_)))) - (if (gx#stx-pair? _hd1206912125_) - (let ((_e1207112130_ - (gx#stx-e _hd1206912125_))) - (let ((_tl1207312135_ + (##car _e1232312375_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1232212378_)) + (let ((_e1232612383_ + (let () + (declare (not safe)) + (gx#stx-e _hd1232212378_)))) + (let ((_tl1232412388_ (let () (declare (not safe)) - (##cdr _e1207112130_))) - (_hd1207212133_ + (##cdr _e1232612383_))) + (_hd1232512386_ (let () (declare (not safe)) - (##car _e1207112130_)))) - (if (gx#identifier? _hd1207212133_) - (if (gx#stx-eq? - '%#ref - _hd1207212133_) - (if (gx#stx-pair? _tl1207312135_) - (let ((_e1207412138_ - (gx#stx-e - _tl1207312135_))) - (let ((_tl1207612143_ - (let () - (declare - (not safe)) - (##cdr _e1207412138_))) - (_hd1207512141_ - (let () - (declare - (not safe)) - (##car _e1207412138_)))) - (if (gx#stx-null? - _tl1207612143_) - (if (gx#stx-pair? - _tl1207012127_) - (let ((_e1207712146_ + (##car _e1232612383_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1232512386_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd1232512386_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1232412388_)) + (let ((_e1232912391_ + (let () + (declare (not safe)) + (gx#stx-e + _tl1232412388_)))) + (let ((_tl1232712396_ + (let () + (declare + (not safe)) + (##cdr _e1232912391_))) + (_hd1232812394_ + (let () + (declare + (not safe)) + (##car _e1232912391_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl1232712396_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl1232112380_)) + (let ((_e1233212399_ + (let () + (declare (not safe)) + (gx#stx-e _tl1232112380_)))) + (let ((_tl1233012404_ + (let () + (declare (not safe)) + (##cdr _e1233212399_))) + (_hd1233112402_ + (let () + (declare (not safe)) + (##car _e1233212399_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1233112402_)) + (let ((_e1233512407_ + (let () + (declare (not safe)) + (gx#stx-e _hd1233112402_)))) + (let ((_tl1233312412_ + (let () + (declare (not safe)) + (##cdr _e1233512407_))) + (_hd1233412410_ + (let () + (declare (not safe)) + (##car _e1233512407_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1233412410_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd1233412410_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1233312412_)) + (let ((_e1233812415_ + (let () + (declare (not safe)) + (gx#stx-e + _tl1233312412_)))) + (let ((_tl1233612420_ + (let () + (declare (not safe)) + (##cdr _e1233812415_))) + (_hd1233712418_ + (let () + (declare (not safe)) + (##car _e1233812415_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1233612420_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl1233012404_)) + (let ((_e1234112423_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl1233012404_)))) + (let ((_tl1233912428_ + (let () (declare (not safe)) (##cdr _e1234112423_))) + (_hd1234012426_ + (let () + (declare (not safe)) + (##car _e1234112423_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1233912428_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1231512364_)) + (___kont1599615997_ + _hd1233712418_ + _hd1232812394_ + _hd1222812608_) + (let () (declare (not safe)) (_g1222212346_))) + (let () (declare (not safe)) (_g1222212346_))))) + (let () (declare (not safe)) (_g1222212346_))) + (let () (declare (not safe)) (_g1222212346_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g1222212346_))) + (let () + (declare (not safe)) + (_g1222212346_))) + (let () + (declare (not safe)) + (_g1222212346_))))) + (let () (declare (not safe)) (_g1222212346_))))) + (let () (declare (not safe)) (_g1222212346_))) + (let () (declare (not safe)) (_g1222212346_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g1222212346_))) + (let () + (declare (not safe)) + (_g1222212346_))) + (let () + (declare (not safe)) + (_g1222212346_))))) + (let () + (declare (not safe)) + (_g1222212346_))))) + (let () (declare (not safe)) (_g1222212346_))) + (let () (declare (not safe)) (_g1222212346_))) + (let () (declare (not safe)) (_g1222212346_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g1222212346_))))) + (let () + (declare (not safe)) + (_g1222212346_)))))) + (let () + (declare (not safe)) + (_g1222212346_)))))))) + (_generate112068_ + (lambda (_args12203_ _arglen12204_ _hd12205_ _body12206_) + (let* ((_len12208_ + (let () + (declare (not safe)) + (gx#stx-length _hd12205_))) + (_condition12210_ + (if (let () + (declare (not safe)) + (gx#stx-list? _hd12205_)) + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let ((__tmp17311 + (let ((__tmp17312 + (let () + (declare (not safe)) + (cons _len12208_ '())))) + (declare (not safe)) + (cons _arglen12204_ __tmp17312)))) + (declare (not safe)) + (cons '##fx= __tmp17311)) + (let ((__tmp17305 + (let ((__tmp17306 + (let ((__tmp17307 + (let ((__tmp17308 + (let ((__tmp17309 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1207012127_))) - (let ((_tl1207912151_ - (let () - (declare (not safe)) - (##cdr _e1207712146_))) - (_hd1207812149_ - (let () + (let ((__tmp17310 + (let () + (declare (not safe)) + (cons _len12208_ '())))) (declare (not safe)) - (##car _e1207712146_)))) - (if (gx#stx-pair? _hd1207812149_) - (let ((_e1208012154_ (gx#stx-e _hd1207812149_))) - (let ((_tl1208212159_ - (let () - (declare (not safe)) - (##cdr _e1208012154_))) - (_hd1208112157_ - (let () - (declare (not safe)) - (##car _e1208012154_)))) - (if (gx#identifier? _hd1208112157_) - (if (gx#stx-eq? '%#ref _hd1208112157_) - (if (gx#stx-pair? _tl1208212159_) - (let ((_e1208312162_ - (gx#stx-e - _tl1208212159_))) - (let ((_tl1208512167_ - (let () - (declare (not safe)) - (##cdr _e1208312162_))) - (_hd1208412165_ - (let () - (declare (not safe)) - (##car _e1208312162_)))) - (if (gx#stx-null? - _tl1208512167_) - (if (gx#stx-pair? - _tl1207912151_) - (let ((_e1208612170_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1207912151_))) - (let ((_tl1208812175_ - (let () (declare (not safe)) (##cdr _e1208612170_))) - (_hd1208712173_ - (let () - (declare (not safe)) - (##car _e1208612170_)))) - (if (gx#stx-null? _tl1208812175_) - (if (gx#stx-null? _tl1206412111_) - (___kont1574315744_ - _hd1208412165_ - _hd1207512141_ - _hd1197512355_) - (_g1196912093_)) - (_g1196912093_)))) - (_g1196912093_)) - (_g1196912093_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1196912093_)) - (_g1196912093_)) - (_g1196912093_)))) - (_g1196912093_)))) - (_g1196912093_)) - (_g1196912093_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1196912093_)) - (_g1196912093_)) - (_g1196912093_)))) - (_g1196912093_)))) - (_g1196912093_)) - (_g1196912093_)) - (_g1196912093_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1196912093_)))) - (_g1196912093_))))) - (_g1196912093_))))))) - (_generate111815_ - (lambda (_args11950_ _arglen11951_ _hd11952_ _body11953_) - (let* ((_len11955_ (gx#stx-length _hd11952_)) - (_condition11957_ - (if (gx#stx-list? _hd11952_) - (if (gxc#current-compile-decls-unsafe?) - (cons '##fx= - (cons _arglen11951_ - (cons _len11955_ '()))) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (cons '##fx= -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _arglen11951_ (cons _len11955_ '()))) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (> _len11955_ '0) - (if (gxc#current-compile-decls-unsafe?) - (cons '##fx>= - (cons _arglen11951_ - (cons _len11955_ '()))) - (cons 'let - (cons '() + (cons _arglen12204_ __tmp17310)))) + (declare (not safe)) + (cons '##fx= __tmp17309)))) + (declare (not safe)) + (cons __tmp17308 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) (cons '(declare (not safe)) - (cons (cons '##fx>= + __tmp17307)))) + (declare (not safe)) + (cons '() __tmp17306)))) + (declare (not safe)) + (cons 'let __tmp17305))) + (if (> _len12208_ '0) + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let ((__tmp17303 + (let ((__tmp17304 + (let () + (declare (not safe)) + (cons _len12208_ + '())))) + (declare (not safe)) + (cons _arglen12204_ + __tmp17304)))) + (declare (not safe)) + (cons '##fx>= __tmp17303)) + (let ((__tmp17297 + (let ((__tmp17298 + (let ((__tmp17299 + (let ((__tmp17300 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _arglen11951_ (cons _len11955_ '()))) - '()))))) + (let ((__tmp17301 + (let ((__tmp17302 + (let () + (declare (not safe)) + (cons _len12208_ '())))) + (declare (not safe)) + (cons _arglen12204_ __tmp17302)))) + (declare (not safe)) + (cons '##fx>= __tmp17301)))) + (declare (not safe)) + (cons __tmp17300 '())))) + (declare (not safe)) + (cons '(declare (not safe)) __tmp17299)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '() __tmp17298)))) + (declare (not safe)) + (cons 'let __tmp17297))) '#t))) - (_dispatch11959_ - (if (_dispatch-case?11813_ _hd11952_ _body11953_) - (_dispatch-case-e11814_ _hd11952_ _body11953_) - (gxc#generate-runtime-lambda-form - _hd11952_ - _body11953_)))) - (cons _condition11957_ - (cons (cons 'apply - (cons _dispatch11959_ - (cons _args11950_ '()))) - '())))))) - (let* ((_g1181711845_ - (lambda (_g1181811842_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1181811842_))) - (_g1181611947_ - (lambda (_g1181811848_) - (if (gx#stx-pair? _g1181811848_) - (let ((_e1182111850_ (gx#stx-e _g1181811848_))) - (let ((_hd1182211853_ + (_dispatch12212_ + (if (let () + (declare (not safe)) + (_dispatch-case?12066_ + _hd12205_ + _body12206_)) + (let () + (declare (not safe)) + (_dispatch-case-e12067_ + _hd12205_ + _body12206_)) + (let () + (declare (not safe)) + (gxc#generate-runtime-lambda-form + _hd12205_ + _body12206_))))) + (let ((__tmp17313 + (let ((__tmp17314 + (let ((__tmp17315 + (let ((__tmp17316 + (let () + (declare (not safe)) + (cons _args12203_ '())))) + (declare (not safe)) + (cons _dispatch12212_ + __tmp17316)))) + (declare (not safe)) + (cons 'apply __tmp17315)))) + (declare (not safe)) + (cons __tmp17314 '())))) + (declare (not safe)) + (cons _condition12210_ __tmp17313)))))) + (let* ((_g1207012098_ + (lambda (_g1207112095_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1207112095_)))) + (_g1206912200_ + (lambda (_g1207112101_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1207112101_)) + (let ((_e1207612103_ + (let () + (declare (not safe)) + (gx#stx-e _g1207112101_)))) + (let ((_hd1207512106_ (let () (declare (not safe)) - (##car _e1182111850_))) - (_tl1182311855_ + (##car _e1207612103_))) + (_tl1207412108_ (let () (declare (not safe)) - (##cdr _e1182111850_)))) - (if (gx#stx-pair/null? _tl1182311855_) - (let ((_g16679_ - (gx#syntax-split-splice - _tl1182311855_ - '0))) + (##cdr _e1207612103_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl1207412108_)) + (let ((_g17317_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl1207412108_ + '0)))) (begin - (let ((_g16680_ + (let ((_g17318_ (let () (declare (not safe)) - (if (##values? _g16679_) - (##vector-length _g16679_) + (if (##values? _g17317_) + (##vector-length _g17317_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g16680_ 2))) + (##fx= _g17318_ 2))) (error "Context expects 2 values" - _g16680_))) - (let ((_target1182411858_ + _g17318_))) + (let ((_target1207712111_ (let () (declare (not safe)) - (##vector-ref _g16679_ 0))) - (_tl1182611860_ + (##vector-ref _g17317_ 0))) + (_tl1207912113_ (let () (declare (not safe)) - (##vector-ref _g16679_ 1)))) - (if (gx#stx-null? _tl1182611860_) - (letrec ((_loop1182711863_ - (lambda (_hd1182511866_ - _body1183111868_ - _hd1183211870_) - (if (gx#stx-pair? - _hd1182511866_) - (let ((_e1182811873_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1182511866_))) - (let ((_lp-hd1182911876_ - (let () (declare (not safe)) (##car _e1182811873_))) - (_lp-tl1183011878_ + (##vector-ref _g17317_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1207912113_)) + (letrec ((_loop1208012116_ + (lambda (_hd1207812119_ + _body1208412121_ + _hd1208512123_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd1207812119_)) + (let ((_e1208112126_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd1207812119_)))) + (let ((_lp-hd1208212129_ + (let () (declare (not safe)) (##car _e1208112126_))) + (_lp-tl1208312131_ (let () (declare (not safe)) - (##cdr _e1182811873_)))) - (if (gx#stx-pair? _lp-hd1182911876_) - (let ((_e1183511881_ (gx#stx-e _lp-hd1182911876_))) - (let ((_hd1183611884_ + (##cdr _e1208112126_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd1208212129_)) + (let ((_e1209012134_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd1208212129_)))) + (let ((_hd1208912137_ (let () (declare (not safe)) - (##car _e1183511881_))) - (_tl1183711886_ + (##car _e1209012134_))) + (_tl1208812139_ (let () (declare (not safe)) - (##cdr _e1183511881_)))) - (if (gx#stx-pair? _tl1183711886_) - (let ((_e1183811889_ - (gx#stx-e _tl1183711886_))) - (let ((_hd1183911892_ + (##cdr _e1209012134_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1208812139_)) + (let ((_e1209312142_ + (let () + (declare (not safe)) + (gx#stx-e _tl1208812139_)))) + (let ((_hd1209212145_ (let () (declare (not safe)) - (##car _e1183811889_))) - (_tl1184011894_ + (##car _e1209312142_))) + (_tl1209112147_ (let () (declare (not safe)) - (##cdr _e1183811889_)))) - (if (gx#stx-null? _tl1184011894_) - (_loop1182711863_ - _lp-tl1183011878_ - (cons _hd1183911892_ - _body1183111868_) - (cons _hd1183611884_ - _hd1183211870_)) - (_g1181711845_ _g1181811848_)))) - (_g1181711845_ _g1181811848_)))) - (_g1181711845_ _g1181811848_)))) - (let ((_body1183311897_ (reverse _body1183111868_)) - (_hd1183411899_ (reverse _hd1183211870_))) - ((lambda (_L11902_ _L11903_) - (let ((_args11922_ (gxc#generate-runtime-temporary__0)) - (_arglen11923_ - (gxc#generate-runtime-temporary__0)) - (_name11924_ - (let ((_$e11919_ - (table-ref - (gxc#current-compile-runtime-names) - _stx11811_ - '#f))) - (if _$e11919_ - _$e11919_ + (##cdr _e1209312142_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1209112147_)) + (let ((__tmp17350 + (let () + (declare (not safe)) + (cons _hd1209212145_ + _body1208412121_))) + (__tmp17349 + (let () + (declare (not safe)) + (cons _hd1208912137_ + _hd1208512123_)))) + (declare (not safe)) + (_loop1208012116_ + _lp-tl1208312131_ + __tmp17350 + __tmp17349)) + (let () + (declare (not safe)) + (_g1207012098_ _g1207112101_))))) + (let () + (declare (not safe)) + (_g1207012098_ _g1207112101_))))) + (let () + (declare (not safe)) + (_g1207012098_ _g1207112101_))))) + (let ((_body1208612150_ + (let () + (declare (not safe)) + (reverse _body1208412121_))) + (_hd1208712152_ + (let () + (declare (not safe)) + (reverse _hd1208512123_)))) + ((lambda (_L12155_ _L12156_) + (let ((_args12175_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__0))) + (_arglen12176_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__0))) + (_name12177_ + (let ((_$e12172_ + (let ((__tmp17319 + (gxc#current-compile-runtime-names))) + (declare (not safe)) + (table-ref __tmp17319 _stx12064_ '#f)))) + (if _$e12172_ + _$e12172_ ''case-lambda-dispatch)))) - (cons 'lambda - (cons _args11922_ - (cons (cons 'let - (cons (cons (cons _arglen11923_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (if (gxc#current-compile-decls-unsafe?) - (cons '##length (cons _args11922_ '())) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (cons '##length -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _args11922_ '())) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '()) - (cons (cons 'cond - (foldr1 cons - (cons (cons 'else - (cons (cons '##raise-wrong-number-of-arguments-exception - (cons _name11924_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _args11922_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '()) - (map (lambda (_g1192511928_ _g1192611930_) - (_generate111815_ - _args11922_ - _arglen11923_ - _g1192511928_ - _g1192611930_)) - (foldr1 (lambda (_g1193211935_ - _g1193311937_) - (cons _g1193211935_ - _g1193311937_)) - '() - _L11903_) - (foldr1 (lambda (_g1193911942_ - _g1194011944_) - (cons _g1193911942_ - _g1194011944_)) - '() - _L11902_)))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _body1183311897_ - _hd1183411899_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1182711863_ - _target1182411858_ - '() - '())) - (_g1181711845_ _g1181811848_))))) - (_g1181711845_ _g1181811848_)))) - (_g1181711845_ _g1181811848_))))) - (_g1181611947_ _stx11811_))))) + (let ((__tmp17320 + (let ((__tmp17321 + (let ((__tmp17322 + (let ((__tmp17323 + (let ((__tmp17339 + (let ((__tmp17340 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17341 + (let ((__tmp17342 + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let ((__tmp17348 + (let () + (declare (not safe)) + (cons _args12175_ '())))) + (declare (not safe)) + (cons '##length __tmp17348)) + (let ((__tmp17343 + (let ((__tmp17344 + (let ((__tmp17345 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17346 + (let ((__tmp17347 + (let () + (declare (not safe)) + (cons _args12175_ '())))) + (declare (not safe)) + (cons '##length __tmp17347)))) + (declare (not safe)) + (cons __tmp17346 '())))) + (declare (not safe)) + (cons '(declare (not safe)) __tmp17345)))) + (declare (not safe)) + (cons '() __tmp17344)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'let __tmp17343))))) + (declare (not safe)) + (cons __tmp17342 '())))) + (declare (not safe)) + (cons _arglen12176_ __tmp17341)))) + (declare (not safe)) + (cons __tmp17340 '()))) + (__tmp17324 + (let ((__tmp17325 + (let ((__tmp17326 + (let ((__tmp17333 + (let ((__tmp17334 + (let ((__tmp17335 + (let ((__tmp17336 + (let ((__tmp17337 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17338 + (let () + (declare (not safe)) + (cons _args12175_ '())))) + (declare (not safe)) + (cons _name12177_ __tmp17338)))) + (declare (not safe)) + (cons '##raise-wrong-number-of-arguments-exception + __tmp17337)))) + (declare (not safe)) + (cons __tmp17336 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'else __tmp17335)))) + (declare (not safe)) + (cons __tmp17334 '()))) + (__tmp17327 + (let ((__tmp17332 + (lambda (_g1217812181_ + _g1217912183_) + (let () + (declare (not safe)) + (_generate112068_ + _args12175_ + _arglen12176_ + _g1217812181_ + _g1217912183_)))) + (__tmp17330 + (let ((__tmp17331 + (lambda (_g1218512188_ + _g1218612190_) + (let () + (declare (not safe)) + (cons _g1218512188_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1218612190_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp17331 + '() + _L12156_))) + (__tmp17328 + (let ((__tmp17329 + (lambda (_g1219212195_ + _g1219312197_) + (let () + (declare (not safe)) + (cons _g1219212195_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1219312197_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp17329 + '() + _L12155_)))) + (declare (not safe)) + (map __tmp17332 + __tmp17330 + __tmp17328)))) + (declare (not safe)) + (foldr1 cons __tmp17333 __tmp17327)))) + (declare (not safe)) + (cons 'cond __tmp17326)))) + (declare (not safe)) + (cons __tmp17325 '())))) + (declare (not safe)) + (cons __tmp17339 __tmp17324)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'let __tmp17323)))) + (declare (not safe)) + (cons __tmp17322 '())))) + (declare (not safe)) + (cons _args12175_ __tmp17321)))) + (declare (not safe)) + (cons 'lambda __tmp17320)))) + _body1208612150_ + _hd1208712152_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1208012116_ + _target1207712111_ + '() + '()))) + (let () + (declare (not safe)) + (_g1207012098_ _g1207112101_)))))) + (let () + (declare (not safe)) + (_g1207012098_ _g1207112101_))))) + (let () + (declare (not safe)) + (_g1207012098_ _g1207112101_)))))) + (declare (not safe)) + (_g1206912200_ _stx12064_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_stx11085_ _compiled-body?11086_) - (letrec ((_generate-simple11088_ - (lambda (_hd11798_ _body11799_) - (_coalesce-boolean11089_ - (_coalesce-let*11090_ - (gxc#generate-runtime-simple-let - 'let - _hd11798_ - _body11799_ - _compiled-body?11086_))))) - (_coalesce-boolean11089_ - (lambda (_code11659_) + (lambda (_stx11338_ _compiled-body?11339_) + (letrec ((_generate-simple11341_ + (lambda (_hd12051_ _body12052_) + (let ((__tmp17351 + (let ((__tmp17352 + (let () + (declare (not safe)) + (gxc#generate-runtime-simple-let + 'let + _hd12051_ + _body12052_ + _compiled-body?11339_)))) + (declare (not safe)) + (_coalesce-let*11343_ __tmp17352)))) + (declare (not safe)) + (_coalesce-boolean11342_ __tmp17351)))) + (_coalesce-boolean11342_ + (lambda (_code11912_) (if (gxc#current-compile-boolean-context) - (let* ((_code1166011686_ _code11659_) - (_else1166211694_ (lambda () _code11659_)) - (_K1166411731_ - (lambda (_expr211697_ _expr111698_ _id11699_) - (let* ((_expr21170011708_ _expr211697_) - (_else1170211716_ + (let* ((_code1191311939_ _code11912_) + (_else1191511947_ (lambda () _code11912_)) + (_K1191711984_ + (lambda (_expr211950_ _expr111951_ _id11952_) + (let* ((_expr21195311961_ _expr211950_) + (_else1195511969_ (lambda () - (cons 'or - (cons _expr111698_ - (cons _expr211697_ - '()))))) - (_K1170411721_ - (lambda (_exprs11719_) - (cons 'or - (cons _expr111698_ - _exprs11719_))))) + (let ((__tmp17353 + (let ((__tmp17354 + (let () + (declare + (not safe)) + (cons _expr211950_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _expr111951_ + __tmp17354)))) + (declare (not safe)) + (cons 'or __tmp17353)))) + (_K1195711974_ + (lambda (_exprs11972_) + (let ((__tmp17355 + (let () + (declare (not safe)) + (cons _expr111951_ + _exprs11972_)))) + (declare (not safe)) + (cons 'or __tmp17355))))) (if (let () (declare (not safe)) - (##pair? _expr21170011708_)) - (let ((_hd1170511724_ + (##pair? _expr21195311961_)) + (let ((_hd1195811977_ (let () (declare (not safe)) - (##car _expr21170011708_))) - (_tl1170611726_ + (##car _expr21195311961_))) + (_tl1195911979_ (let () (declare (not safe)) - (##cdr _expr21170011708_)))) + (##cdr _expr21195311961_)))) (if (let () (declare (not safe)) - (##eq? _hd1170511724_ 'or)) - (let ((_exprs11729_ - _tl1170611726_)) - (_K1170411721_ _exprs11729_)) - (_else1170211716_))) - (_else1170211716_)))))) + (##eq? _hd1195811977_ 'or)) + (let ((_exprs11982_ + _tl1195911979_)) + (declare (not safe)) + (_K1195711974_ _exprs11982_)) + (let () + (declare (not safe)) + (_else1195511969_)))) + (let () + (declare (not safe)) + (_else1195511969_))))))) (if (let () (declare (not safe)) - (##pair? _code1166011686_)) - (let ((_hd1166511734_ + (##pair? _code1191311939_)) + (let ((_hd1191811987_ (let () (declare (not safe)) - (##car _code1166011686_))) - (_tl1166611736_ + (##car _code1191311939_))) + (_tl1191911989_ (let () (declare (not safe)) - (##cdr _code1166011686_)))) + (##cdr _code1191311939_)))) (if (let () (declare (not safe)) - (##eq? _hd1166511734_ 'let)) + (##eq? _hd1191811987_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl1166611736_)) - (let ((_hd1166711739_ + (##pair? _tl1191911989_)) + (let ((_hd1192011992_ (let () (declare (not safe)) - (##car _tl1166611736_))) - (_tl1166811741_ + (##car _tl1191911989_))) + (_tl1192111994_ (let () (declare (not safe)) - (##cdr _tl1166611736_)))) + (##cdr _tl1191911989_)))) (if (let () (declare (not safe)) - (##pair? _hd1166711739_)) - (let ((_hd1167911744_ + (##pair? _hd1192011992_)) + (let ((_hd1193211997_ (let () (declare (not safe)) - (##car _hd1166711739_))) - (_tl1168011746_ + (##car _hd1192011992_))) + (_tl1193311999_ (let () (declare (not safe)) - (##cdr _hd1166711739_)))) + (##cdr _hd1192011992_)))) (if (let () (declare (not safe)) - (##pair? _hd1167911744_)) - (let ((_hd1168111749_ + (##pair? _hd1193211997_)) + (let ((_hd1193412002_ (let () (declare (not safe)) - (##car _hd1167911744_))) - (_tl1168211751_ + (##car _hd1193211997_))) + (_tl1193512004_ (let () (declare (not safe)) - (##cdr _hd1167911744_)))) - (let ((_id11754_ - _hd1168111749_)) + (##cdr _hd1193211997_)))) + (let ((_id12007_ + _hd1193412002_)) (if (let () (declare (not safe)) - (##pair? _tl1168211751_)) - (let ((_hd1168311756_ + (##pair? _tl1193512004_)) + (let ((_hd1193612009_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _tl1168211751_))) - (_tl1168411758_ + (##car _tl1193512004_))) + (_tl1193712011_ (let () (declare (not safe)) - (##cdr _tl1168211751_)))) - (let ((_expr111761_ _hd1168311756_)) + (##cdr _tl1193512004_)))) + (let ((_expr112014_ _hd1193612009_)) (if (let () (declare (not safe)) - (##null? _tl1168411758_)) + (##null? _tl1193712011_)) (if (let () (declare (not safe)) - (##null? _tl1168011746_)) + (##null? _tl1193311999_)) (if (let () (declare (not safe)) - (##pair? _tl1166811741_)) - (let ((_hd1166911763_ + (##pair? _tl1192111994_)) + (let ((_hd1192212016_ (let () (declare (not safe)) - (##car _tl1166811741_))) - (_tl1167011765_ + (##car _tl1192111994_))) + (_tl1192312018_ (let () (declare (not safe)) - (##cdr _tl1166811741_)))) + (##cdr _tl1192111994_)))) (if (let () (declare (not safe)) - (##pair? _hd1166911763_)) - (let ((_hd1167111768_ + (##pair? _hd1192212016_)) + (let ((_hd1192412021_ (let () (declare (not safe)) - (##car _hd1166911763_))) - (_tl1167211770_ + (##car _hd1192212016_))) + (_tl1192512023_ (let () (declare (not safe)) - (##cdr _hd1166911763_)))) + (##cdr _hd1192212016_)))) (if (let () (declare (not safe)) - (##eq? _hd1167111768_ 'if)) + (##eq? _hd1192412021_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl1167211770_)) - (let ((_hd1167311773_ + (##pair? _tl1192512023_)) + (let ((_hd1192612026_ (let () (declare (not safe)) - (##car _tl1167211770_))) - (_tl1167411775_ + (##car _tl1192512023_))) + (_tl1192712028_ + (let () + (declare + (not safe)) + (##cdr _tl1192512023_)))) + (if ((lambda (_g1203012032_) + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (eq? _g1203012032_ _id12007_))) + _hd1192612026_) + (if (let () (declare (not safe)) (##pair? _tl1192712028_)) + (let ((_hd1192812035_ + (let () + (declare (not safe)) + (##car _tl1192712028_))) + (_tl1192912037_ + (let () + (declare (not safe)) + (##cdr _tl1192712028_)))) + (if ((lambda (_g1203912041_) + (let () + (declare (not safe)) + (eq? _g1203912041_ _id12007_))) + _hd1192812035_) + (if (let () + (declare (not safe)) + (##pair? _tl1192912037_)) + (let ((_hd1193012044_ + (let () + (declare (not safe)) + (##car _tl1192912037_))) + (_tl1193112046_ + (let () + (declare (not safe)) + (##cdr _tl1192912037_)))) + (let ((_expr212049_ _hd1193012044_)) + (if (let () + (declare (not safe)) + (##null? _tl1193112046_)) + (if (let () + (declare (not safe)) + (##null? _tl1192312018_)) + (let () + (declare (not safe)) + (_K1191711984_ + _expr212049_ + _expr112014_ + _id12007_)) + (let () + (declare (not safe)) + (_else1191511947_))) + (let () + (declare (not safe)) + (_else1191511947_))))) + (let () + (declare (not safe)) + (_else1191511947_))) + (let () (declare (not safe)) (_else1191511947_)))) + (let () (declare (not safe)) (_else1191511947_))) + (let () (declare (not safe)) (_else1191511947_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_else1191511947_))) + (let () + (declare (not safe)) + (_else1191511947_)))) + (let () + (declare (not safe)) + (_else1191511947_)))) + (let () + (declare (not safe)) + (_else1191511947_))) + (let () + (declare (not safe)) + (_else1191511947_))) + (let () (declare (not safe)) (_else1191511947_))))) + (let () (declare (not safe)) (_else1191511947_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_else1191511947_)))) + (let () + (declare (not safe)) + (_else1191511947_)))) + (let () + (declare (not safe)) + (_else1191511947_))) + (let () + (declare (not safe)) + (_else1191511947_)))) + (let () + (declare (not safe)) + (_else1191511947_)))) + _code11912_))) + (_coalesce-let*11343_ + (lambda (_code11645_) + (let* ((_code1164611710_ _code11645_) + (_else1165011718_ (lambda () _code11645_))) + (let ((_K1169211863_ + (lambda (_body11859_ _expr11860_ _id11861_) + (let ((__tmp17356 + (let ((__tmp17357 + (let ((__tmp17358 + (let ((__tmp17359 + (let () + (declare + (not safe)) + (cons _expr11860_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons _id11861_ __tmp17359)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17358 '())))) + (declare (not safe)) + (cons __tmp17357 _body11859_)))) + (declare (not safe)) + (cons 'let __tmp17356)))) + (_K1166911788_ + (lambda (_body11782_ + _expr211783_ + _id211784_ + _expr111785_ + _id111786_) + (let ((__tmp17360 + (let ((__tmp17361 + (let ((__tmp17365 + (let ((__tmp17366 + (let () + (declare + (not safe)) + (cons _expr111785_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons _id111786_ __tmp17366))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17362 + (let ((__tmp17363 + (let ((__tmp17364 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _expr211783_ '())))) + (declare (not safe)) + (cons _id211784_ __tmp17364)))) + (declare (not safe)) + (cons __tmp17363 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17365 __tmp17362)))) + (declare (not safe)) + (cons __tmp17361 _body11782_)))) + (declare (not safe)) + (cons 'let* __tmp17360)))) + (_K1165211727_ + (lambda (_body11722_ + _bind11723_ + _expr111724_ + _id111725_) + (let ((__tmp17367 + (let ((__tmp17368 + (let ((__tmp17369 + (let ((__tmp17370 (let () (declare (not safe)) - (##cdr _tl1167211770_)))) - (if ((lambda (_g1177711779_) - (eq? _g1177711779_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id11754_)) - _hd1167311773_) - (if (let () (declare (not safe)) (##pair? _tl1167411775_)) - (let ((_hd1167511782_ - (let () - (declare (not safe)) - (##car _tl1167411775_))) - (_tl1167611784_ - (let () - (declare (not safe)) - (##cdr _tl1167411775_)))) - (if ((lambda (_g1178611788_) - (eq? _g1178611788_ _id11754_)) - _hd1167511782_) - (if (let () - (declare (not safe)) - (##pair? _tl1167611784_)) - (let ((_hd1167711791_ - (let () - (declare (not safe)) - (##car _tl1167611784_))) - (_tl1167811793_ - (let () - (declare (not safe)) - (##cdr _tl1167611784_)))) - (let ((_expr211796_ _hd1167711791_)) - (if (let () - (declare (not safe)) - (##null? _tl1167811793_)) - (if (let () - (declare (not safe)) - (##null? _tl1167011765_)) - (_K1166411731_ - _expr211796_ - _expr111761_ - _id11754_) - (_else1166211694_)) - (_else1166211694_)))) - (_else1166211694_)) - (_else1166211694_))) - (_else1166211694_)) - (_else1166211694_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else1166211694_)) - (_else1166211694_))) - (_else1166211694_))) - (_else1166211694_)) - (_else1166211694_)) - (_else1166211694_)))) - (_else1166211694_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else1166211694_))) - (_else1166211694_))) - (_else1166211694_)) - (_else1166211694_))) - (_else1166211694_))) - _code11659_))) - (_coalesce-let*11090_ - (lambda (_code11392_) - (let* ((_code1139311457_ _code11392_) - (_else1139711465_ (lambda () _code11392_))) - (let ((_K1143911610_ - (lambda (_body11606_ _expr11607_ _id11608_) - (cons 'let - (cons (cons (cons _id11608_ - (cons _expr11607_ '())) - '()) - _body11606_)))) - (_K1141611535_ - (lambda (_body11529_ - _expr211530_ - _id211531_ - _expr111532_ - _id111533_) - (cons 'let* - (cons (cons (cons _id111533_ - (cons _expr111532_ '())) - (cons (cons _id211531_ - (cons _expr211530_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _body11529_)))) - (_K1139911474_ - (lambda (_body11469_ - _bind11470_ - _expr111471_ - _id111472_) - (cons 'let* - (cons (cons (cons _id111472_ - (cons _expr111471_ '())) - _bind11470_) - _body11469_))))) + (cons _expr111724_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons _id111725_ __tmp17370)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17369 _bind11723_)))) + (declare (not safe)) + (cons __tmp17368 _body11722_)))) + (declare (not safe)) + (cons 'let* __tmp17367))))) (if (let () (declare (not safe)) - (##pair? _code1139311457_)) - (let ((_tl1144111615_ + (##pair? _code1164611710_)) + (let ((_tl1169411868_ (let () (declare (not safe)) - (##cdr _code1139311457_))) - (_hd1144011613_ + (##cdr _code1164611710_))) + (_hd1169311866_ (let () (declare (not safe)) - (##car _code1139311457_)))) + (##car _code1164611710_)))) (if (let () (declare (not safe)) - (##eq? _hd1144011613_ 'let)) + (##eq? _hd1169311866_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl1144111615_)) - (let ((_tl1144311620_ + (##pair? _tl1169411868_)) + (let ((_tl1169611873_ (let () (declare (not safe)) - (##cdr _tl1144111615_))) - (_hd1144211618_ + (##cdr _tl1169411868_))) + (_hd1169511871_ (let () (declare (not safe)) - (##car _tl1144111615_)))) + (##car _tl1169411868_)))) (if (let () (declare (not safe)) - (##pair? _hd1144211618_)) - (let ((_tl1145111625_ + (##pair? _hd1169511871_)) + (let ((_tl1170411878_ (let () (declare (not safe)) - (##cdr _hd1144211618_))) - (_hd1145011623_ + (##cdr _hd1169511871_))) + (_hd1170311876_ (let () (declare (not safe)) - (##car _hd1144211618_)))) + (##car _hd1169511871_)))) (if (let () (declare (not safe)) - (##pair? _hd1145011623_)) - (let ((_tl1145311630_ + (##pair? _hd1170311876_)) + (let ((_tl1170611883_ (let () (declare (not safe)) - (##cdr _hd1145011623_))) - (_hd1145211628_ + (##cdr _hd1170311876_))) + (_hd1170511881_ (let () (declare (not safe)) - (##car _hd1145011623_)))) + (##car _hd1170311876_)))) (if (let () (declare (not safe)) - (##pair? _tl1145311630_)) - (let ((_tl1145511637_ + (##pair? _tl1170611883_)) + (let ((_tl1170811890_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _tl1145311630_))) - (_hd1145411635_ - (let () (declare (not safe)) (##car _tl1145311630_)))) - (if (let () (declare (not safe)) (##null? _tl1145511637_)) + (##cdr _tl1170611883_))) + (_hd1170711888_ + (let () (declare (not safe)) (##car _tl1170611883_)))) + (if (let () (declare (not safe)) (##null? _tl1170811890_)) (if (let () (declare (not safe)) - (##null? _tl1145111625_)) + (##null? _tl1170411878_)) (if (let () (declare (not safe)) - (##pair? _tl1144311620_)) - (let ((_tl1144511644_ + (##pair? _tl1169611873_)) + (let ((_tl1169811897_ (let () (declare (not safe)) - (##cdr _tl1144311620_))) - (_hd1144411642_ + (##cdr _tl1169611873_))) + (_hd1169711895_ (let () (declare (not safe)) - (##car _tl1144311620_)))) + (##car _tl1169611873_)))) (if (let () (declare (not safe)) - (##pair? _hd1144411642_)) - (let ((_tl1144711649_ + (##pair? _hd1169711895_)) + (let ((_tl1170011902_ (let () (declare (not safe)) - (##cdr _hd1144411642_))) - (_hd1144611647_ + (##cdr _hd1169711895_))) + (_hd1169911900_ (let () (declare (not safe)) - (##car _hd1144411642_)))) + (##car _hd1169711895_)))) (if (let () (declare (not safe)) - (##eq? _hd1144611647_ 'let)) + (##eq? _hd1169911900_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl1144711649_)) - (let ((_tl1144911654_ + (##pair? _tl1170011902_)) + (let ((_tl1170211907_ (let () (declare (not safe)) - (##cdr _tl1144711649_))) - (_hd1144811652_ + (##cdr _tl1170011902_))) + (_hd1170111905_ (let () (declare (not safe)) - (##car _tl1144711649_)))) + (##car _tl1170011902_)))) (if (let () (declare (not safe)) - (##null? _hd1144811652_)) + (##null? _hd1170111905_)) (if (let () (declare (not safe)) - (##null? _tl1144511644_)) - (let ((_id11633_ - _hd1145211628_) - (_expr11640_ - _hd1145411635_) - (_body11657_ - _tl1144911654_)) - (_K1143911610_ - _body11657_ - _expr11640_ - _id11633_)) - (_else1139711465_)) + (##null? _tl1169811897_)) + (let ((_id11886_ + _hd1170511881_) + (_expr11893_ + _hd1170711888_) + (_body11910_ + _tl1170211907_)) + (let () + (declare + (not safe)) + (_K1169211863_ + _body11910_ + _expr11893_ + _id11886_))) + (let () + (declare (not safe)) + (_else1165011718_))) (if (let () (declare (not safe)) - (##pair? _hd1144811652_)) - (let ((_tl1142811584_ + (##pair? _hd1170111905_)) + (let ((_tl1168111837_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _hd1144811652_))) - (_hd1142711582_ - (let () (declare (not safe)) (##car _hd1144811652_)))) - (if (let () (declare (not safe)) (##pair? _hd1142711582_)) - (let ((_tl1143011589_ + (##cdr _hd1170111905_))) + (_hd1168011835_ + (let () (declare (not safe)) (##car _hd1170111905_)))) + (if (let () (declare (not safe)) (##pair? _hd1168011835_)) + (let ((_tl1168311842_ (let () (declare (not safe)) - (##cdr _hd1142711582_))) - (_hd1142911587_ + (##cdr _hd1168011835_))) + (_hd1168211840_ (let () (declare (not safe)) - (##car _hd1142711582_)))) + (##car _hd1168011835_)))) (if (let () (declare (not safe)) - (##pair? _tl1143011589_)) - (let ((_tl1143211596_ + (##pair? _tl1168311842_)) + (let ((_tl1168511849_ (let () (declare (not safe)) - (##cdr _tl1143011589_))) - (_hd1143111594_ + (##cdr _tl1168311842_))) + (_hd1168411847_ (let () (declare (not safe)) - (##car _tl1143011589_)))) + (##car _tl1168311842_)))) (if (let () (declare (not safe)) - (##null? _tl1143211596_)) + (##null? _tl1168511849_)) (if (let () (declare (not safe)) - (##null? _tl1142811584_)) + (##null? _tl1168111837_)) (if (let () (declare (not safe)) - (##null? _tl1144511644_)) - (let ((_id111558_ _hd1145211628_) - (_expr111565_ _hd1145411635_) - (_id211592_ _hd1142911587_) - (_expr211599_ _hd1143111594_) - (_body11601_ _tl1144911654_)) - (_K1141611535_ - _body11601_ - _expr211599_ - _id211592_ - _expr111565_ - _id111558_)) - (_else1139711465_)) - (_else1139711465_)) - (_else1139711465_))) - (_else1139711465_))) - (_else1139711465_))) - (_else1139711465_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else1139711465_)) + (##null? _tl1169811897_)) + (let ((_id111811_ _hd1170511881_) + (_expr111818_ _hd1170711888_) + (_id211845_ _hd1168211840_) + (_expr211852_ _hd1168411847_) + (_body11854_ _tl1170211907_)) + (let () + (declare (not safe)) + (_K1166911788_ + _body11854_ + _expr211852_ + _id211845_ + _expr111818_ + _id111811_))) + (let () + (declare (not safe)) + (_else1165011718_))) + (let () + (declare (not safe)) + (_else1165011718_))) + (let () + (declare (not safe)) + (_else1165011718_)))) + (let () (declare (not safe)) (_else1165011718_)))) + (let () (declare (not safe)) (_else1165011718_)))) + (let () (declare (not safe)) (_else1165011718_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_else1165011718_))) (if (let () (declare (not safe)) - (##eq? _hd1144611647_ 'let*)) + (##eq? _hd1169911900_ 'let*)) (if (let () (declare (not safe)) - (##pair? _tl1144711649_)) - (let ((_tl1140911518_ + (##pair? _tl1170011902_)) + (let ((_tl1166211771_ (let () (declare (not safe)) - (##cdr _tl1144711649_))) - (_hd1140811516_ + (##cdr _tl1170011902_))) + (_hd1166111769_ (let () (declare (not safe)) - (##car _tl1144711649_)))) + (##car _tl1170011902_)))) (if (let () (declare (not safe)) - (##null? _tl1144511644_)) - (let ((_id111497_ - _hd1145211628_) - (_expr111504_ - _hd1145411635_) - (_bind11521_ - _hd1140811516_) - (_body11523_ - _tl1140911518_)) - (_K1139911474_ - _body11523_ - _bind11521_ - _expr111504_ - _id111497_)) - (_else1139711465_))) - (_else1139711465_)) - (_else1139711465_)))) - (_else1139711465_))) - (_else1139711465_)) - (_else1139711465_)) - (_else1139711465_))) - (_else1139711465_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else1139711465_))) - (_else1139711465_))) - (_else1139711465_)) - (_else1139711465_))) - (_else1139711465_)))))) - (_generate-values11091_ - (lambda (_hd11205_ _body11206_) - (let _lp11208_ ((_rest11210_ _hd11205_) - (_bind11211_ '()) - (_check11212_ '()) - (_post11213_ '())) - (let* ((___stx1604216043_ _rest11210_) - (_g1121611227_ + (##null? _tl1169811897_)) + (let ((_id111750_ + _hd1170511881_) + (_expr111757_ + _hd1170711888_) + (_bind11774_ + _hd1166111769_) + (_body11776_ + _tl1166211771_)) + (let () + (declare + (not safe)) + (_K1165211727_ + _body11776_ + _bind11774_ + _expr111757_ + _id111750_))) + (let () + (declare (not safe)) + (_else1165011718_)))) + (let () + (declare (not safe)) + (_else1165011718_))) + (let () + (declare (not safe)) + (_else1165011718_))))) + (let () + (declare (not safe)) + (_else1165011718_)))) + (let () (declare (not safe)) (_else1165011718_))) + (let () (declare (not safe)) (_else1165011718_))) + (let () (declare (not safe)) (_else1165011718_)))) + (let () (declare (not safe)) (_else1165011718_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_else1165011718_)))) + (let () + (declare (not safe)) + (_else1165011718_)))) + (let () + (declare (not safe)) + (_else1165011718_))) + (let () + (declare (not safe)) + (_else1165011718_)))) + (let () + (declare (not safe)) + (_else1165011718_))))))) + (_generate-values11344_ + (lambda (_hd11458_ _body11459_) + (let _lp11461_ ((_rest11463_ _hd11458_) + (_bind11464_ '()) + (_check11465_ '()) + (_post11466_ '())) + (let* ((___stx1629516296_ _rest11463_) + (_g1146911480_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1604216043_)))) - (let ((___kont1604416045_ - (lambda (_L11254_ _L11255_) - (let* ((___stx1599815999_ _L11255_) - (_g1127011295_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1629516296_))))) + (let ((___kont1629716298_ + (lambda (_L11507_ _L11508_) + (let* ((___stx1625116252_ _L11508_) + (_g1152311548_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1599815999_)))) - (let ((___kont1600016001_ - (lambda (_L11368_ _L11369_) - (let ((_eid11383_ - (gxc#generate-runtime-binding-id* - _L11369_)) - (_expr11384_ - (gxc#compile-e _L11368_))) - (_lp11208_ - _L11254_ - (cons (cons _eid11383_ - (cons _expr11384_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _bind11211_) - _check11212_ - _post11213_)))) - (___kont1600216003_ - (lambda (_L11316_ _L11317_) - (let* ((_vals11330_ - (gxc#generate-runtime-temporary__0)) - (_check-values11332_ - (gxc#generate-runtime-check-values - _vals11330_ - _L11317_ - _L11316_)) - (_refs11334_ - (gxc#generate-runtime-let-values-bind - _vals11330_ - _L11317_)) - (_expr11336_ - (gxc#compile-e _L11316_))) - (_lp11208_ - _L11254_ - (cons (cons _vals11330_ - (cons _expr11336_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _bind11211_) - (cons _check-values11332_ - _check11212_) - (cons _refs11334_ - _post11213_)))))) - (if (gx#stx-pair? ___stx1599815999_) - (let ((_e1127411344_ - (gx#stx-e ___stx1599815999_))) - (let ((_tl1127611349_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1625116252_))))) + (let ((___kont1625316254_ + (lambda (_L11621_ _L11622_) + (let ((_eid11636_ + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id* + _L11622_))) + (_expr11637_ + (let () + (declare (not safe)) + (gxc#compile-e + _L11621_)))) + (let ((__tmp17371 + (let ((__tmp17372 + (let ((__tmp17373 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _expr11637_ '())))) + (declare (not safe)) + (cons _eid11636_ __tmp17373)))) + (declare (not safe)) + (cons __tmp17372 _bind11464_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp11461_ + _L11507_ + __tmp17371 + _check11465_ + _post11466_))))) + (___kont1625516256_ + (lambda (_L11569_ _L11570_) + (let* ((_vals11583_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__0))) + (_check-values11585_ + (let () + (declare (not safe)) + (gxc#generate-runtime-check-values + _vals11583_ + _L11570_ + _L11569_))) + (_refs11587_ + (let () + (declare (not safe)) + (gxc#generate-runtime-let-values-bind + _vals11583_ + _L11570_))) + (_expr11589_ + (let () + (declare (not safe)) + (gxc#compile-e + _L11569_)))) + (let ((__tmp17376 + (let ((__tmp17377 + (let ((__tmp17378 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _expr11589_ '())))) + (declare (not safe)) + (cons _vals11583_ __tmp17378)))) + (declare (not safe)) + (cons __tmp17377 _bind11464_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17375 + (let () + (declare (not safe)) + (cons _check-values11585_ + _check11465_))) + (__tmp17374 + (let () + (declare (not safe)) + (cons _refs11587_ + _post11466_)))) + (declare (not safe)) + (_lp11461_ + _L11507_ + __tmp17376 + __tmp17375 + __tmp17374)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1625116252_)) + (let ((_e1152911597_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx1625116252_)))) + (let ((_tl1152711602_ (let () (declare (not safe)) - (##cdr _e1127411344_))) - (_hd1127511347_ + (##cdr _e1152911597_))) + (_hd1152811600_ (let () (declare (not safe)) - (##car _e1127411344_)))) - (if (gx#stx-pair? _hd1127511347_) - (let ((_e1127711352_ - (gx#stx-e - _hd1127511347_))) - (let ((_tl1127911357_ + (##car _e1152911597_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1152811600_)) + (let ((_e1153211605_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1152811600_)))) + (let ((_tl1153011610_ (let () (declare (not safe)) - (##cdr _e1127711352_))) - (_hd1127811355_ + (##cdr _e1153211605_))) + (_hd1153111608_ (let () (declare (not safe)) - (##car _e1127711352_)))) - (if (gx#stx-null? - _tl1127911357_) - (if (gx#stx-pair? - _tl1127611349_) - (let ((_e1128011360_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1127611349_))) - (let ((_tl1128211365_ + (##car _e1153211605_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1153011610_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl1152711602_)) + (let ((_e1153511613_ + (let () + (declare (not safe)) + (gx#stx-e _tl1152711602_)))) + (let ((_tl1153311618_ (let () (declare (not safe)) - (##cdr _e1128011360_))) - (_hd1128111363_ + (##cdr _e1153511613_))) + (_hd1153411616_ (let () (declare (not safe)) - (##car _e1128011360_)))) - (if (gx#stx-null? _tl1128211365_) - (___kont1600016001_ _hd1128111363_ _hd1127811355_) - (_g1127011295_)))) - (_g1127011295_)) - (if (gx#stx-pair? _tl1127611349_) - (let ((_e1128811308_ (gx#stx-e _tl1127611349_))) - (let ((_tl1129011313_ + (##car _e1153511613_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1153311618_)) + (___kont1625316254_ _hd1153411616_ _hd1153111608_) + (let () (declare (not safe)) (_g1152311548_))))) + (let () (declare (not safe)) (_g1152311548_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1152711602_)) + (let ((_e1154311561_ + (let () + (declare (not safe)) + (gx#stx-e _tl1152711602_)))) + (let ((_tl1154111566_ (let () (declare (not safe)) - (##cdr _e1128811308_))) - (_hd1128911311_ + (##cdr _e1154311561_))) + (_hd1154211564_ (let () (declare (not safe)) - (##car _e1128811308_)))) - (if (gx#stx-null? _tl1129011313_) - (___kont1600216003_ _hd1128911311_ _hd1127511347_) - (_g1127011295_)))) - (_g1127011295_))))) + (##car _e1154311561_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1154111566_)) + (___kont1625516256_ _hd1154211564_ _hd1152811600_) + (let () (declare (not safe)) (_g1152311548_))))) + (let () (declare (not safe)) (_g1152311548_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _tl1127611349_) - (let ((_e1128811308_ - (gx#stx-e - _tl1127611349_))) - (let ((_tl1129011313_ + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1152711602_)) + (let ((_e1154311561_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl1152711602_)))) + (let ((_tl1154111566_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e1128811308_))) - (_hd1128911311_ - (let () (declare (not safe)) (##car _e1128811308_)))) - (if (gx#stx-null? _tl1129011313_) - (___kont1600216003_ _hd1128911311_ _hd1127511347_) - (_g1127011295_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1127011295_))))) - (_g1127011295_)))))) - (___kont1604616047_ + (##cdr _e1154311561_))) + (_hd1154211564_ + (let () (declare (not safe)) (##car _e1154311561_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1154111566_)) + (___kont1625516256_ _hd1154211564_ _hd1152811600_) + (let () (declare (not safe)) (_g1152311548_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g1152311548_)))))) + (let () + (declare (not safe)) + (_g1152311548_))))))) + (___kont1629916300_ (lambda () - (let* ((_body11234_ - (if _compiled-body?11086_ - _body11206_ - (gxc#compile-e _body11206_))) - (_body11236_ - (_generate-values-post11092_ - _post11213_ - _body11234_)) - (_body11238_ - (_generate-values-check11093_ - _check11212_ - _body11236_))) - (cons 'let - (cons (reverse _bind11211_) - (cons _body11238_ '()))))))) - (if (gx#stx-pair? ___stx1604216043_) - (let ((_e1122011246_ - (gx#stx-e ___stx1604216043_))) - (let ((_tl1122211251_ + (let* ((_body11487_ + (if _compiled-body?11339_ + _body11459_ + (let () + (declare (not safe)) + (gxc#compile-e _body11459_)))) + (_body11489_ + (let () + (declare (not safe)) + (_generate-values-post11345_ + _post11466_ + _body11487_))) + (_body11491_ + (let () + (declare (not safe)) + (_generate-values-check11346_ + _check11465_ + _body11489_)))) + (let ((__tmp17379 + (let ((__tmp17381 + (let () + (declare (not safe)) + (reverse _bind11464_))) + (__tmp17380 + (let () + (declare (not safe)) + (cons _body11491_ '())))) + (declare (not safe)) + (cons __tmp17381 __tmp17380)))) + (declare (not safe)) + (cons 'let __tmp17379)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1629516296_)) + (let ((_e1147511499_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1629516296_)))) + (let ((_tl1147311504_ (let () (declare (not safe)) - (##cdr _e1122011246_))) - (_hd1122111249_ + (##cdr _e1147511499_))) + (_hd1147411502_ (let () (declare (not safe)) - (##car _e1122011246_)))) - (___kont1604416045_ - _tl1122211251_ - _hd1122111249_))) - (___kont1604616047_))))))) - (_generate-values-post11092_ - (lambda (_post11164_ _body11165_) - (let _lp11167_ ((_rest11169_ _post11164_) - (_body11170_ _body11165_)) - (let* ((_rest1117111179_ _rest11169_) - (_else1117311187_ (lambda () _body11170_)) - (_K1117511193_ - (lambda (_rest11190_ _bind11191_) - (_lp11167_ - _rest11190_ - (cons 'let - (cons _bind11191_ - (cons _body11170_ '()))))))) + (##car _e1147511499_)))) + (___kont1629716298_ + _tl1147311504_ + _hd1147411502_))) + (___kont1629916300_))))))) + (_generate-values-post11345_ + (lambda (_post11417_ _body11418_) + (let _lp11420_ ((_rest11422_ _post11417_) + (_body11423_ _body11418_)) + (let* ((_rest1142411432_ _rest11422_) + (_else1142611440_ (lambda () _body11423_)) + (_K1142811446_ + (lambda (_rest11443_ _bind11444_) + (let ((__tmp17382 + (let ((__tmp17383 + (let ((__tmp17384 + (let () + (declare (not safe)) + (cons _body11423_ + '())))) + (declare (not safe)) + (cons _bind11444_ + __tmp17384)))) + (declare (not safe)) + (cons 'let __tmp17383)))) + (declare (not safe)) + (_lp11420_ _rest11443_ __tmp17382))))) (if (let () (declare (not safe)) - (##pair? _rest1117111179_)) - (let ((_hd1117611196_ + (##pair? _rest1142411432_)) + (let ((_hd1142911449_ (let () (declare (not safe)) - (##car _rest1117111179_))) - (_tl1117711198_ + (##car _rest1142411432_))) + (_tl1143011451_ (let () (declare (not safe)) - (##cdr _rest1117111179_)))) - (let* ((_bind11201_ _hd1117611196_) - (_rest11203_ _tl1117711198_)) - (_K1117511193_ _rest11203_ _bind11201_))) - (_else1117311187_)))))) - (_generate-values-check11093_ - (lambda (_check11161_ _body11162_) - (cons 'begin - (foldr1 cons - (cons _body11162_ '()) - (reverse _check11161_)))))) - (let* ((_g1109511112_ - (lambda (_g1109611109_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1109611109_))) - (_g1109411158_ - (lambda (_g1109611115_) - (if (gx#stx-pair? _g1109611115_) - (let ((_e1109911117_ (gx#stx-e _g1109611115_))) - (let ((_hd1110011120_ + (##cdr _rest1142411432_)))) + (let* ((_bind11454_ _hd1142911449_) + (_rest11456_ _tl1143011451_)) + (declare (not safe)) + (_K1142811446_ _rest11456_ _bind11454_))) + (let () + (declare (not safe)) + (_else1142611440_))))))) + (_generate-values-check11346_ + (lambda (_check11414_ _body11415_) + (let ((__tmp17385 + (let ((__tmp17387 + (let () + (declare (not safe)) + (cons _body11415_ '()))) + (__tmp17386 + (let () + (declare (not safe)) + (reverse _check11414_)))) + (declare (not safe)) + (foldr1 cons __tmp17387 __tmp17386)))) + (declare (not safe)) + (cons 'begin __tmp17385))))) + (let* ((_g1134811365_ + (lambda (_g1134911362_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1134911362_)))) + (_g1134711411_ + (lambda (_g1134911368_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1134911368_)) + (let ((_e1135411370_ + (let () + (declare (not safe)) + (gx#stx-e _g1134911368_)))) + (let ((_hd1135311373_ (let () (declare (not safe)) - (##car _e1109911117_))) - (_tl1110111122_ + (##car _e1135411370_))) + (_tl1135211375_ (let () (declare (not safe)) - (##cdr _e1109911117_)))) - (if (gx#stx-pair? _tl1110111122_) - (let ((_e1110211125_ - (gx#stx-e _tl1110111122_))) - (let ((_hd1110311128_ + (##cdr _e1135411370_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1135211375_)) + (let ((_e1135711378_ + (let () + (declare (not safe)) + (gx#stx-e _tl1135211375_)))) + (let ((_hd1135611381_ (let () (declare (not safe)) - (##car _e1110211125_))) - (_tl1110411130_ + (##car _e1135711378_))) + (_tl1135511383_ (let () (declare (not safe)) - (##cdr _e1110211125_)))) - (if (gx#stx-pair? _tl1110411130_) - (let ((_e1110511133_ - (gx#stx-e _tl1110411130_))) - (let ((_hd1110611136_ + (##cdr _e1135711378_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1135511383_)) + (let ((_e1136011386_ + (let () + (declare (not safe)) + (gx#stx-e _tl1135511383_)))) + (let ((_hd1135911389_ (let () (declare (not safe)) - (##car _e1110511133_))) - (_tl1110711138_ + (##car _e1136011386_))) + (_tl1135811391_ (let () (declare (not safe)) - (##cdr _e1110511133_)))) - (if (gx#stx-null? _tl1110711138_) - ((lambda (_L11141_ _L11142_) - (if (gxc#generate-runtime-simple-let? - _L11142_) - (_generate-simple11088_ - _L11142_ - _L11141_) - (_generate-values11091_ - _L11142_ - _L11141_))) - _hd1110611136_ - _hd1110311128_) - (_g1109511112_ - _g1109611115_)))) - (_g1109511112_ _g1109611115_)))) - (_g1109511112_ _g1109611115_)))) - (_g1109511112_ _g1109611115_))))) - (_g1109411158_ _stx11085_))))) + (##cdr _e1136011386_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1135811391_)) + ((lambda (_L11394_ _L11395_) + (if (let () + (declare (not safe)) + (gxc#generate-runtime-simple-let? + _L11395_)) + (let () + (declare (not safe)) + (_generate-simple11341_ + _L11395_ + _L11394_)) + (let () + (declare (not safe)) + (_generate-values11344_ + _L11395_ + _L11394_)))) + _hd1135911389_ + _hd1135611381_) + (let () + (declare (not safe)) + (_g1134811365_ + _g1134911368_))))) + (let () + (declare (not safe)) + (_g1134811365_ _g1134911368_))))) + (let () + (declare (not safe)) + (_g1134811365_ _g1134911368_))))) + (let () + (declare (not safe)) + (_g1134811365_ _g1134911368_)))))) + (declare (not safe)) + (_g1134711411_ _stx11338_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_stx11804_) - (let ((_compiled-body?11806_ '#f)) + (lambda (_stx12057_) + (let ((_compiled-body?12059_ '#f)) + (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx11804_ - _compiled-body?11806_)))) + _stx12057_ + _compiled-body?12059_)))) (define gxc#generate-runtime-let-values% - (lambda _g16682_ - (let ((_g16681_ (let () (declare (not safe)) (##length _g16682_)))) - (cond ((let () (declare (not safe)) (##fx= _g16681_ 1)) - (apply gxc#generate-runtime-let-values%__0 _g16682_)) - ((let () (declare (not safe)) (##fx= _g16681_ 2)) - (apply gxc#generate-runtime-let-values%__% _g16682_)) + (lambda _g17389_ + (let ((_g17388_ (let () (declare (not safe)) (##length _g17389_)))) + (cond ((let () (declare (not safe)) (##fx= _g17388_ 1)) + (apply (lambda (_stx12057_) + (let () + (declare (not safe)) + (gxc#generate-runtime-let-values%__0 _stx12057_))) + _g17389_)) + ((let () (declare (not safe)) (##fx= _g17388_ 2)) + (apply (lambda (_stx12061_ _compiled-body?12062_) + (let () + (declare (not safe)) + (gxc#generate-runtime-let-values%__% + _stx12061_ + _compiled-body?12062_))) + _g17389_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g16682_)))))) + _g17389_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_vals10979_ _hd10980_) - (let _lp10982_ ((_rest10984_ _hd10980_) (_k10985_ '0) (_r10986_ '())) - (let* ((___stx1605616057_ _rest10984_) - (_g1099111008_ + (lambda (_vals11232_ _hd11233_) + (let _lp11235_ ((_rest11237_ _hd11233_) (_k11238_ '0) (_r11239_ '())) + (let* ((___stx1630916310_ _rest11237_) + (_g1124411261_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1605616057_)))) - (let ((___kont1605816059_ - (lambda (_L11071_) - (_lp10982_ _L11071_ (fx+ _k10985_ '1) _r10986_))) - (___kont1606016061_ - (lambda (_L11044_ _L11045_) - (_lp10982_ - _L11044_ - (fx+ _k10985_ '1) - (cons (cons (gxc#generate-runtime-binding-id _L11045_) - (cons (gxc#generate-runtime-values-ref - _vals10979_ - _k10985_ - _L11044_) - '())) - _r10986_)))) - (___kont1606216063_ - (lambda (_L11020_) - (foldl1 cons - (cons (cons (gxc#generate-runtime-binding-id - _L11020_) - (cons (gxc#generate-runtime-values->list - _vals10979_ - _k10985_) - '())) - '()) - _r10986_))) - (___kont1606416065_ (lambda () (reverse _r10986_)))) - (let ((_g1098911031_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1630916310_))))) + (let ((___kont1631116312_ + (lambda (_L11324_) + (let ((__tmp17390 + (let () (declare (not safe)) (fx+ _k11238_ '1)))) + (declare (not safe)) + (_lp11235_ _L11324_ __tmp17390 _r11239_)))) + (___kont1631316314_ + (lambda (_L11297_ _L11298_) + (let ((__tmp17396 + (let () (declare (not safe)) (fx+ _k11238_ '1))) + (__tmp17391 + (let ((__tmp17392 + (let ((__tmp17395 + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id + _L11298_))) + (__tmp17393 + (let ((__tmp17394 + (let () + (declare (not safe)) + (gxc#generate-runtime-values-ref + _vals11232_ + _k11238_ + _L11297_)))) + (declare (not safe)) + (cons __tmp17394 '())))) + (declare (not safe)) + (cons __tmp17395 __tmp17393)))) + (declare (not safe)) + (cons __tmp17392 _r11239_)))) + (declare (not safe)) + (_lp11235_ _L11297_ __tmp17396 __tmp17391)))) + (___kont1631516316_ + (lambda (_L11273_) + (let ((__tmp17397 + (let ((__tmp17398 + (let ((__tmp17401 + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id + _L11273_))) + (__tmp17399 + (let ((__tmp17400 + (let () + (declare (not safe)) + (gxc#generate-runtime-values->list + _vals11232_ + _k11238_)))) + (declare (not safe)) + (cons __tmp17400 '())))) + (declare (not safe)) + (cons __tmp17401 __tmp17399)))) + (declare (not safe)) + (cons __tmp17398 '())))) + (declare (not safe)) + (foldl1 cons __tmp17397 _r11239_)))) + (___kont1631716318_ + (lambda () + (let () (declare (not safe)) (reverse _r11239_))))) + (let ((_g1124211284_ (lambda () - (let ((_L11020_ ___stx1605616057_)) - (if (gx#identifier? _L11020_) - (___kont1606216063_ _L11020_) - (___kont1606416065_)))))) - (if (gx#stx-pair? ___stx1605616057_) - (let ((_e1099411060_ (gx#stx-e ___stx1605616057_))) - (let ((_tl1099611065_ + (let ((_L11273_ ___stx1630916310_)) + (if (let () + (declare (not safe)) + (gx#identifier? _L11273_)) + (___kont1631516316_ _L11273_) + (___kont1631716318_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1630916310_)) + (let ((_e1124911313_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1630916310_)))) + (let ((_tl1124711318_ (let () (declare (not safe)) - (##cdr _e1099411060_))) - (_hd1099511063_ + (##cdr _e1124911313_))) + (_hd1124811316_ (let () (declare (not safe)) - (##car _e1099411060_)))) - (if (gx#stx-datum? _hd1099511063_) - (let ((_e1099711068_ (gx#stx-e _hd1099511063_))) - (if (equal? _e1099711068_ '#f) - (___kont1605816059_ _tl1099611065_) - (___kont1606016061_ - _tl1099611065_ - _hd1099511063_))) - (___kont1606016061_ - _tl1099611065_ - _hd1099511063_)))) - (_g1098911031_)))))))) - (define gxc#generate-runtime-letrec-values%__% - (lambda (_stx10661_ _compiled-body?10662_) - (letrec ((_generate-simple10664_ - (lambda (_hd10966_ _body10967_) - (gxc#generate-runtime-simple-let - 'letrec - _hd10966_ - _body10967_ - _compiled-body?10662_))) - (_generate-values10665_ - (lambda (_hd10745_ _body10746_) - (let _lp10748_ ((_rest10750_ _hd10745_) - (_bind10751_ '()) - (_check10752_ '()) - (_post10753_ '())) - (let* ((___stx1613016131_ _rest10750_) - (_g1075610767_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1613016131_)))) - (let ((___kont1613216133_ - (lambda (_L10794_ _L10795_) - (let* ((___stx1608616087_ _L10795_) - (_g1081010835_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1608616087_)))) - (let ((___kont1608816089_ - (lambda (_L10942_ _L10943_) - (let ((_eid10957_ - (gxc#generate-runtime-binding-id* - _L10943_)) - (_expr10958_ - (gxc#compile-e _L10942_))) - (_lp10748_ - _L10794_ - (cons (cons _eid10957_ - (cons _expr10958_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _bind10751_) - _check10752_ - _post10753_)))) - (___kont1609016091_ - (lambda (_L10856_ _L10857_) - (let* ((_vals10870_ - (gxc#generate-runtime-temporary__0)) - (_check-values10872_ - (gxc#generate-runtime-check-values - _vals10870_ - _L10857_ - _L10856_)) - (_refs10874_ - (gxc#generate-runtime-let-values-bind - _vals10870_ - _L10857_)) - (_expr10876_ - (gxc#compile-e _L10856_))) - (_lp10748_ - _L10794_ - (foldl1 cons - (cons (cons _vals10870_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _expr10876_ '())) - _bind10751_) - (map (lambda (_e1087810880_) - (let* ((_g1088210891_ _e1087810880_) - (_E1088410895_ - (lambda () - (error '"No clause matching" _g1088210891_))) - (_K1088510900_ - (lambda (_eid10898_) - (cons _eid10898_ (cons '#!void '()))))) + (##car _e1124911313_)))) (if (let () (declare (not safe)) - (##pair? _g1088210891_)) - (let ((_hd1088610903_ + (gx#stx-datum? _hd1124811316_)) + (let ((_e1125011321_ (let () (declare (not safe)) - (##car _g1088210891_))) - (_tl1088710905_ - (let () + (gx#stx-e _hd1124811316_)))) + (if (let () + (declare (not safe)) + (equal? _e1125011321_ '#f)) + (___kont1631116312_ _tl1124711318_) + (___kont1631316314_ + _tl1124711318_ + _hd1124811316_))) + (___kont1631316314_ + _tl1124711318_ + _hd1124811316_)))) + (let () (declare (not safe)) (_g1124211284_))))))))) + (define gxc#generate-runtime-letrec-values%__% + (lambda (_stx10914_ _compiled-body?10915_) + (letrec ((_generate-simple10917_ + (lambda (_hd11219_ _body11220_) + (let () + (declare (not safe)) + (gxc#generate-runtime-simple-let + 'letrec + _hd11219_ + _body11220_ + _compiled-body?10915_)))) + (_generate-values10918_ + (lambda (_hd10998_ _body10999_) + (let _lp11001_ ((_rest11003_ _hd10998_) + (_bind11004_ '()) + (_check11005_ '()) + (_post11006_ '())) + (let* ((___stx1638316384_ _rest11003_) + (_g1100911020_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1638316384_))))) + (let ((___kont1638516386_ + (lambda (_L11047_ _L11048_) + (let* ((___stx1633916340_ _L11048_) + (_g1106311088_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1633916340_))))) + (let ((___kont1634116342_ + (lambda (_L11195_ _L11196_) + (let ((_eid11210_ + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id* + _L11196_))) + (_expr11211_ + (let () + (declare (not safe)) + (gxc#compile-e + _L11195_)))) + (let ((__tmp17402 + (let ((__tmp17403 + (let ((__tmp17404 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _expr11211_ '())))) + (declare (not safe)) + (cons _eid11210_ __tmp17404)))) + (declare (not safe)) + (cons __tmp17403 _bind11004_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp11001_ + _L11047_ + __tmp17402 + _check11005_ + _post11006_))))) + (___kont1634316344_ + (lambda (_L11109_ _L11110_) + (let* ((_vals11123_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__0))) + (_check-values11125_ + (let () + (declare (not safe)) + (gxc#generate-runtime-check-values + _vals11123_ + _L11110_ + _L11109_))) + (_refs11127_ + (let () + (declare (not safe)) + (gxc#generate-runtime-let-values-bind + _vals11123_ + _L11110_))) + (_expr11129_ + (let () + (declare (not safe)) + (gxc#compile-e + _L11109_)))) + (let ((__tmp17407 + (let ((__tmp17411 + (let ((__tmp17412 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17413 + (let () + (declare (not safe)) + (cons _expr11129_ '())))) + (declare (not safe)) + (cons _vals11123_ __tmp17413)))) + (declare (not safe)) + (cons __tmp17412 _bind11004_))) + (__tmp17408 + (let ((__tmp17409 + (lambda (_e1113111133_) + (let* ((_g1113511144_ _e1113111133_) + (_E1113711148_ + (lambda () + (error '"No clause matching" + _g1113511144_))) + (_K1113811153_ + (lambda (_eid11151_) + (let ((__tmp17410 + (let () + (declare (not safe)) + (cons '#!void '())))) + (declare (not safe)) + (cons _eid11151_ __tmp17410))))) + (if (let () (declare (not safe)) - (##cdr _g1088210891_)))) - (let ((_eid10908_ _hd1088610903_)) - (if (let () - (declare (not safe)) - (##pair? _tl1088710905_)) - (let ((_tl1088910910_ + (##pair? _g1113511144_)) + (let ((_hd1113911156_ + (let () + (declare (not safe)) + (##car _g1113511144_))) + (_tl1114011158_ + (let () + (declare (not safe)) + (##cdr _g1113511144_)))) + (let ((_eid11161_ _hd1113911156_)) + (if (let () + (declare (not safe)) + (##pair? _tl1114011158_)) + (let ((_tl1114211163_ + (let () + (declare (not safe)) + (##cdr _tl1114011158_)))) + (if (let () + (declare (not safe)) + (##null? _tl1114211163_)) + (let () + (declare (not safe)) + (_K1113811153_ _eid11161_)) + (let () + (declare (not safe)) + (_E1113711148_)))) (let () (declare (not safe)) - (##cdr _tl1088710905_)))) - (if (let () - (declare (not safe)) - (##null? _tl1088910910_)) - (_K1088510900_ _eid10908_) - (_E1088410895_))) - (_E1088410895_)))) - (_E1088410895_)))) - _refs10874_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _check-values10872_ - _check10752_) - (foldl1 cons - _refs10874_ - _post10753_)))))) - (if (gx#stx-pair? ___stx1608616087_) - (let ((_e1081410918_ - (gx#stx-e ___stx1608616087_))) - (let ((_tl1081610923_ + (_E1113711148_))))) + (let () + (declare (not safe)) + (_E1113711148_))))))) + (declare (not safe)) + (map __tmp17409 _refs11127_)))) + (declare (not safe)) + (foldl1 cons __tmp17411 __tmp17408))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17406 + (let () + (declare (not safe)) + (cons _check-values11125_ + _check11005_))) + (__tmp17405 + (let () + (declare (not safe)) + (foldl1 cons + _refs11127_ + _post11006_)))) + (declare (not safe)) + (_lp11001_ + _L11047_ + __tmp17407 + __tmp17406 + __tmp17405)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1633916340_)) + (let ((_e1106911171_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx1633916340_)))) + (let ((_tl1106711176_ (let () (declare (not safe)) - (##cdr _e1081410918_))) - (_hd1081510921_ + (##cdr _e1106911171_))) + (_hd1106811174_ (let () (declare (not safe)) - (##car _e1081410918_)))) - (if (gx#stx-pair? _hd1081510921_) - (let ((_e1081710926_ - (gx#stx-e - _hd1081510921_))) - (let ((_tl1081910931_ + (##car _e1106911171_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1106811174_)) + (let ((_e1107211179_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1106811174_)))) + (let ((_tl1107011184_ (let () (declare (not safe)) - (##cdr _e1081710926_))) - (_hd1081810929_ + (##cdr _e1107211179_))) + (_hd1107111182_ (let () (declare (not safe)) - (##car _e1081710926_)))) - (if (gx#stx-null? - _tl1081910931_) - (if (gx#stx-pair? - _tl1081610923_) - (let ((_e1082010934_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1081610923_))) - (let ((_tl1082210939_ + (##car _e1107211179_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1107011184_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl1106711176_)) + (let ((_e1107511187_ + (let () + (declare (not safe)) + (gx#stx-e _tl1106711176_)))) + (let ((_tl1107311192_ (let () (declare (not safe)) - (##cdr _e1082010934_))) - (_hd1082110937_ + (##cdr _e1107511187_))) + (_hd1107411190_ (let () (declare (not safe)) - (##car _e1082010934_)))) - (if (gx#stx-null? _tl1082210939_) - (___kont1608816089_ _hd1082110937_ _hd1081810929_) - (_g1081010835_)))) - (_g1081010835_)) - (if (gx#stx-pair? _tl1081610923_) - (let ((_e1082810848_ (gx#stx-e _tl1081610923_))) - (let ((_tl1083010853_ + (##car _e1107511187_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1107311192_)) + (___kont1634116342_ _hd1107411190_ _hd1107111182_) + (let () (declare (not safe)) (_g1106311088_))))) + (let () (declare (not safe)) (_g1106311088_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1106711176_)) + (let ((_e1108311101_ + (let () + (declare (not safe)) + (gx#stx-e _tl1106711176_)))) + (let ((_tl1108111106_ (let () (declare (not safe)) - (##cdr _e1082810848_))) - (_hd1082910851_ + (##cdr _e1108311101_))) + (_hd1108211104_ (let () (declare (not safe)) - (##car _e1082810848_)))) - (if (gx#stx-null? _tl1083010853_) - (___kont1609016091_ _hd1082910851_ _hd1081510921_) - (_g1081010835_)))) - (_g1081010835_))))) + (##car _e1108311101_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1108111106_)) + (___kont1634316344_ _hd1108211104_ _hd1106811174_) + (let () (declare (not safe)) (_g1106311088_))))) + (let () (declare (not safe)) (_g1106311088_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _tl1081610923_) - (let ((_e1082810848_ - (gx#stx-e - _tl1081610923_))) - (let ((_tl1083010853_ + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1106711176_)) + (let ((_e1108311101_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl1106711176_)))) + (let ((_tl1108111106_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e1082810848_))) - (_hd1082910851_ - (let () (declare (not safe)) (##car _e1082810848_)))) - (if (gx#stx-null? _tl1083010853_) - (___kont1609016091_ _hd1082910851_ _hd1081510921_) - (_g1081010835_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1081010835_))))) - (_g1081010835_)))))) - (___kont1613416135_ + (##cdr _e1108311101_))) + (_hd1108211104_ + (let () (declare (not safe)) (##car _e1108311101_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1108111106_)) + (___kont1634316344_ _hd1108211104_ _hd1106811174_) + (let () (declare (not safe)) (_g1106311088_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g1106311088_)))))) + (let () + (declare (not safe)) + (_g1106311088_))))))) + (___kont1638716388_ (lambda () - (let* ((_body10774_ - (if _compiled-body?10662_ - _body10746_ - (gxc#compile-e _body10746_))) - (_body10776_ - (_generate-values-post10667_ - _post10753_ - _body10774_)) - (_body10778_ - (_generate-values-check10666_ - _check10752_ - _body10776_))) - (cons 'letrec - (cons (reverse _bind10751_) - (cons _body10778_ '()))))))) - (if (gx#stx-pair? ___stx1613016131_) - (let ((_e1076010786_ - (gx#stx-e ___stx1613016131_))) - (let ((_tl1076210791_ + (let* ((_body11027_ + (if _compiled-body?10915_ + _body10999_ + (let () + (declare (not safe)) + (gxc#compile-e _body10999_)))) + (_body11029_ + (let () + (declare (not safe)) + (_generate-values-post10920_ + _post11006_ + _body11027_))) + (_body11031_ + (let () + (declare (not safe)) + (_generate-values-check10919_ + _check11005_ + _body11029_)))) + (let ((__tmp17414 + (let ((__tmp17416 + (let () + (declare (not safe)) + (reverse _bind11004_))) + (__tmp17415 + (let () + (declare (not safe)) + (cons _body11031_ '())))) + (declare (not safe)) + (cons __tmp17416 __tmp17415)))) + (declare (not safe)) + (cons 'letrec __tmp17414)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1638316384_)) + (let ((_e1101511039_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1638316384_)))) + (let ((_tl1101311044_ (let () (declare (not safe)) - (##cdr _e1076010786_))) - (_hd1076110789_ + (##cdr _e1101511039_))) + (_hd1101411042_ (let () (declare (not safe)) - (##car _e1076010786_)))) - (___kont1613216133_ - _tl1076210791_ - _hd1076110789_))) - (___kont1613416135_))))))) - (_generate-values-check10666_ - (lambda (_check10742_ _body10743_) - (cons 'begin - (foldr1 cons - (cons _body10743_ '()) - (reverse _check10742_))))) - (_generate-values-post10667_ - (lambda (_post10735_ _body10736_) - (cons 'begin - (foldr1 cons - (cons _body10736_ '()) - (map (lambda (_g1073710739_) - (cons 'set! _g1073710739_)) - (reverse _post10735_))))))) - (let* ((_g1066910686_ - (lambda (_g1067010683_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1067010683_))) - (_g1066810732_ - (lambda (_g1067010689_) - (if (gx#stx-pair? _g1067010689_) - (let ((_e1067310691_ (gx#stx-e _g1067010689_))) - (let ((_hd1067410694_ + (##car _e1101511039_)))) + (___kont1638516386_ + _tl1101311044_ + _hd1101411042_))) + (___kont1638716388_))))))) + (_generate-values-check10919_ + (lambda (_check10995_ _body10996_) + (let ((__tmp17417 + (let ((__tmp17419 + (let () + (declare (not safe)) + (cons _body10996_ '()))) + (__tmp17418 + (let () + (declare (not safe)) + (reverse _check10995_)))) + (declare (not safe)) + (foldr1 cons __tmp17419 __tmp17418)))) + (declare (not safe)) + (cons 'begin __tmp17417)))) + (_generate-values-post10920_ + (lambda (_post10988_ _body10989_) + (let ((__tmp17420 + (let ((__tmp17424 + (let () + (declare (not safe)) + (cons _body10989_ '()))) + (__tmp17421 + (let ((__tmp17423 + (lambda (_g1099010992_) + (let () + (declare (not safe)) + (cons 'set! _g1099010992_)))) + (__tmp17422 + (let () + (declare (not safe)) + (reverse _post10988_)))) + (declare (not safe)) + (map __tmp17423 __tmp17422)))) + (declare (not safe)) + (foldr1 cons __tmp17424 __tmp17421)))) + (declare (not safe)) + (cons 'begin __tmp17420))))) + (let* ((_g1092210939_ + (lambda (_g1092310936_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1092310936_)))) + (_g1092110985_ + (lambda (_g1092310942_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1092310942_)) + (let ((_e1092810944_ + (let () + (declare (not safe)) + (gx#stx-e _g1092310942_)))) + (let ((_hd1092710947_ (let () (declare (not safe)) - (##car _e1067310691_))) - (_tl1067510696_ + (##car _e1092810944_))) + (_tl1092610949_ (let () (declare (not safe)) - (##cdr _e1067310691_)))) - (if (gx#stx-pair? _tl1067510696_) - (let ((_e1067610699_ - (gx#stx-e _tl1067510696_))) - (let ((_hd1067710702_ + (##cdr _e1092810944_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1092610949_)) + (let ((_e1093110952_ + (let () + (declare (not safe)) + (gx#stx-e _tl1092610949_)))) + (let ((_hd1093010955_ (let () (declare (not safe)) - (##car _e1067610699_))) - (_tl1067810704_ + (##car _e1093110952_))) + (_tl1092910957_ (let () (declare (not safe)) - (##cdr _e1067610699_)))) - (if (gx#stx-pair? _tl1067810704_) - (let ((_e1067910707_ - (gx#stx-e _tl1067810704_))) - (let ((_hd1068010710_ + (##cdr _e1093110952_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1092910957_)) + (let ((_e1093410960_ + (let () + (declare (not safe)) + (gx#stx-e _tl1092910957_)))) + (let ((_hd1093310963_ (let () (declare (not safe)) - (##car _e1067910707_))) - (_tl1068110712_ + (##car _e1093410960_))) + (_tl1093210965_ (let () (declare (not safe)) - (##cdr _e1067910707_)))) - (if (gx#stx-null? _tl1068110712_) - ((lambda (_L10715_ _L10716_) - (if (gxc#generate-runtime-simple-let? - _L10716_) - (_generate-simple10664_ - _L10716_ - _L10715_) - (_generate-values10665_ - _L10716_ - _L10715_))) - _hd1068010710_ - _hd1067710702_) - (_g1066910686_ - _g1067010689_)))) - (_g1066910686_ _g1067010689_)))) - (_g1066910686_ _g1067010689_)))) - (_g1066910686_ _g1067010689_))))) - (_g1066810732_ _stx10661_))))) + (##cdr _e1093410960_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1093210965_)) + ((lambda (_L10968_ _L10969_) + (if (let () + (declare (not safe)) + (gxc#generate-runtime-simple-let? + _L10969_)) + (let () + (declare (not safe)) + (_generate-simple10917_ + _L10969_ + _L10968_)) + (let () + (declare (not safe)) + (_generate-values10918_ + _L10969_ + _L10968_)))) + _hd1093310963_ + _hd1093010955_) + (let () + (declare (not safe)) + (_g1092210939_ + _g1092310942_))))) + (let () + (declare (not safe)) + (_g1092210939_ _g1092310942_))))) + (let () + (declare (not safe)) + (_g1092210939_ _g1092310942_))))) + (let () + (declare (not safe)) + (_g1092210939_ _g1092310942_)))))) + (declare (not safe)) + (_g1092110985_ _stx10914_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_stx10972_) - (let ((_compiled-body?10974_ '#f)) + (lambda (_stx11225_) + (let ((_compiled-body?11227_ '#f)) + (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx10972_ - _compiled-body?10974_)))) + _stx11225_ + _compiled-body?11227_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g16684_ - (let ((_g16683_ (let () (declare (not safe)) (##length _g16684_)))) - (cond ((let () (declare (not safe)) (##fx= _g16683_ 1)) - (apply gxc#generate-runtime-letrec-values%__0 _g16684_)) - ((let () (declare (not safe)) (##fx= _g16683_ 2)) - (apply gxc#generate-runtime-letrec-values%__% _g16684_)) + (lambda _g17426_ + (let ((_g17425_ (let () (declare (not safe)) (##length _g17426_)))) + (cond ((let () (declare (not safe)) (##fx= _g17425_ 1)) + (apply (lambda (_stx11225_) + (let () + (declare (not safe)) + (gxc#generate-runtime-letrec-values%__0 + _stx11225_))) + _g17426_)) + ((let () (declare (not safe)) (##fx= _g17425_ 2)) + (apply (lambda (_stx11229_ _compiled-body?11230_) + (let () + (declare (not safe)) + (gxc#generate-runtime-letrec-values%__% + _stx11229_ + _compiled-body?11230_))) + _g17426_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g16684_)))))) + _g17426_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_stx10243_) - (letrec ((_generate-values10245_ - (lambda (_hd10488_ _body10489_) - (let _lp10491_ ((_rest10493_ _hd10488_) (_bind10494_ '())) - (let* ((_rest1049510503_ _rest10493_) - (_else1049710514_ + (lambda (_stx10496_) + (letrec ((_generate-values10498_ + (lambda (_hd10741_ _body10742_) + (let _lp10744_ ((_rest10746_ _hd10741_) (_bind10747_ '())) + (let* ((_rest1074810756_ _rest10746_) + (_else1075010767_ (lambda () - (let ((_bind10511_ (reverse _bind10494_)) - (_body10512_ - (gxc#compile-e _body10489_))) - (cons 'letrec* - (cons _bind10511_ - (cons _body10512_ '())))))) - (_K1049910648_ - (lambda (_rest10517_ _hd-bind10518_) - (let* ((___stx1614416145_ _hd-bind10518_) - (_g1052110546_ + (let ((_bind10764_ + (let () + (declare (not safe)) + (reverse _bind10747_))) + (_body10765_ + (let () + (declare (not safe)) + (gxc#compile-e _body10742_)))) + (let ((__tmp17427 + (let ((__tmp17428 + (let () + (declare (not safe)) + (cons _body10765_ '())))) + (declare (not safe)) + (cons _bind10764_ __tmp17428)))) + (declare (not safe)) + (cons 'letrec* __tmp17427))))) + (_K1075210901_ + (lambda (_rest10770_ _hd-bind10771_) + (let* ((___stx1639716398_ _hd-bind10771_) + (_g1077410799_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1614416145_)))) - (let ((___kont1614616147_ - (lambda (_L10627_ _L10628_) - (let ((_eid10642_ - (gxc#generate-runtime-binding-id* - _L10628_)) - (_expr10643_ - (gxc#compile-e _L10627_))) - (_lp10491_ - _rest10517_ - (cons (cons _eid10642_ - (cons _expr10643_ - '())) - _bind10494_))))) - (___kont1614816149_ - (lambda (_L10567_ _L10568_) - (let* ((_vals10587_ - (gxc#generate-runtime-temporary__0)) - (_tmp10589_ - (gxc#generate-runtime-temporary__0)) - (_check-values10591_ - (gxc#generate-runtime-check-values - _tmp10589_ - _L10568_ - _L10567_)) - (_refs10593_ - (gxc#generate-runtime-let-values-bind - _vals10587_ - _L10568_)) - (_expr10595_ - (gxc#compile-e _L10567_))) - (_lp10491_ - _rest10517_ - (foldl1 cons - (cons (cons _vals10587_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons 'let - (cons (cons (cons _tmp10589_ - (cons _expr10595_ '())) - '()) - (cons _check-values10591_ - (cons _tmp10589_ '())))) - '())) - _bind10494_) - _refs10593_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? ___stx1614416145_) - (let ((_e1052510603_ - (gx#stx-e ___stx1614416145_))) - (let ((_tl1052710608_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1639716398_))))) + (let ((___kont1639916400_ + (lambda (_L10880_ _L10881_) + (let ((_eid10895_ + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id* + _L10881_))) + (_expr10896_ + (let () + (declare (not safe)) + (gxc#compile-e _L10880_)))) + (let ((__tmp17429 + (let ((__tmp17430 + (let ((__tmp17431 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _expr10896_ '())))) + (declare (not safe)) + (cons _eid10895_ __tmp17431)))) + (declare (not safe)) + (cons __tmp17430 _bind10747_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp10744_ + _rest10770_ + __tmp17429))))) + (___kont1640116402_ + (lambda (_L10820_ _L10821_) + (let* ((_vals10840_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__0))) + (_tmp10842_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__0))) + (_check-values10844_ + (let () + (declare (not safe)) + (gxc#generate-runtime-check-values + _tmp10842_ + _L10821_ + _L10820_))) + (_refs10846_ + (let () + (declare (not safe)) + (gxc#generate-runtime-let-values-bind + _vals10840_ + _L10821_))) + (_expr10848_ + (let () + (declare (not safe)) + (gxc#compile-e + _L10820_)))) + (let ((__tmp17432 + (let ((__tmp17433 + (let ((__tmp17434 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17435 + (let ((__tmp17436 + (let ((__tmp17437 + (let ((__tmp17440 + (let ((__tmp17441 + (let ((__tmp17442 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _expr10848_ '())))) + (declare (not safe)) + (cons _tmp10842_ __tmp17442)))) + (declare (not safe)) + (cons __tmp17441 '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17438 + (let ((__tmp17439 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _tmp10842_ '())))) + (declare (not safe)) + (cons _check-values10844_ __tmp17439)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17440 + __tmp17438)))) + (declare (not safe)) + (cons 'let __tmp17437)))) + (declare (not safe)) + (cons __tmp17436 '())))) + (declare (not safe)) + (cons _vals10840_ __tmp17435)))) + (declare (not safe)) + (cons __tmp17434 _bind10747_)))) + (declare (not safe)) + (foldl1 cons __tmp17433 _refs10846_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp10744_ + _rest10770_ + __tmp17432)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1639716398_)) + (let ((_e1078010856_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx1639716398_)))) + (let ((_tl1077810861_ (let () (declare (not safe)) - (##cdr _e1052510603_))) - (_hd1052610606_ + (##cdr _e1078010856_))) + (_hd1077910859_ (let () (declare (not safe)) - (##car _e1052510603_)))) - (if (gx#stx-pair? _hd1052610606_) - (let ((_e1052810611_ - (gx#stx-e - _hd1052610606_))) - (let ((_tl1053010616_ + (##car _e1078010856_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1077910859_)) + (let ((_e1078310864_ + (let () + (declare (not safe)) + (gx#stx-e + _hd1077910859_)))) + (let ((_tl1078110869_ (let () (declare (not safe)) - (##cdr _e1052810611_))) - (_hd1052910614_ + (##cdr _e1078310864_))) + (_hd1078210867_ (let () (declare (not safe)) - (##car _e1052810611_)))) - (if (gx#stx-null? - _tl1053010616_) - (if (gx#stx-pair? - _tl1052710608_) - (let ((_e1053110619_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1052710608_))) - (let ((_tl1053310624_ + (##car _e1078310864_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1078110869_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl1077810861_)) + (let ((_e1078610872_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl1077810861_)))) + (let ((_tl1078410877_ (let () (declare (not safe)) - (##cdr _e1053110619_))) - (_hd1053210622_ + (##cdr _e1078610872_))) + (_hd1078510875_ (let () (declare (not safe)) - (##car _e1053110619_)))) - (if (gx#stx-null? _tl1053310624_) - (___kont1614616147_ _hd1053210622_ _hd1052910614_) - (_g1052110546_)))) - (_g1052110546_)) - (if (gx#stx-pair? _tl1052710608_) - (let ((_e1053910559_ (gx#stx-e _tl1052710608_))) - (let ((_tl1054110564_ + (##car _e1078610872_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1078410877_)) + (___kont1639916400_ _hd1078510875_ _hd1078210867_) + (let () (declare (not safe)) (_g1077410799_))))) + (let () (declare (not safe)) (_g1077410799_))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl1077810861_)) + (let ((_e1079410812_ + (let () + (declare (not safe)) + (gx#stx-e _tl1077810861_)))) + (let ((_tl1079210817_ (let () (declare (not safe)) - (##cdr _e1053910559_))) - (_hd1054010562_ + (##cdr _e1079410812_))) + (_hd1079310815_ (let () (declare (not safe)) - (##car _e1053910559_)))) - (if (gx#stx-null? _tl1054110564_) - (___kont1614816149_ _hd1054010562_ _hd1052610606_) - (_g1052110546_)))) - (_g1052110546_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _tl1052710608_) - (let ((_e1053910559_ - (gx#stx-e - _tl1052710608_))) - (let ((_tl1054110564_ + (##car _e1079410812_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1079210817_)) + (___kont1640116402_ _hd1079310815_ _hd1077910859_) + (let () (declare (not safe)) (_g1077410799_))))) + (let () (declare (not safe)) (_g1077410799_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1077810861_)) + (let ((_e1079410812_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl1077810861_)))) + (let ((_tl1079210817_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e1053910559_))) - (_hd1054010562_ - (let () (declare (not safe)) (##car _e1053910559_)))) - (if (gx#stx-null? _tl1054110564_) - (___kont1614816149_ _hd1054010562_ _hd1052610606_) - (_g1052110546_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1052110546_))))) - (_g1052110546_))))))) + (##cdr _e1079410812_))) + (_hd1079310815_ + (let () (declare (not safe)) (##car _e1079410812_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl1079210817_)) + (___kont1640116402_ _hd1079310815_ _hd1077910859_) + (let () (declare (not safe)) (_g1077410799_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g1077410799_)))))) + (let () + (declare (not safe)) + (_g1077410799_)))))))) (if (let () (declare (not safe)) - (##pair? _rest1049510503_)) - (let ((_hd1050010651_ + (##pair? _rest1074810756_)) + (let ((_hd1075310904_ (let () (declare (not safe)) - (##car _rest1049510503_))) - (_tl1050110653_ + (##car _rest1074810756_))) + (_tl1075410906_ (let () (declare (not safe)) - (##cdr _rest1049510503_)))) - (let* ((_hd-bind10656_ _hd1050010651_) - (_rest10658_ _tl1050110653_)) - (_K1049910648_ _rest10658_ _hd-bind10656_))) - (_else1049710514_)))))) - (_generate-letrec?10246_ - (lambda (_hd10378_) - (let _lp10380_ ((_rest10382_ _hd10378_)) - (let* ((_rest1038310391_ _rest10382_) - (_else1038510399_ (lambda () '#t)) - (_K1038710476_ - (lambda (_rest10402_ _hd-bind10403_) - (let* ((_g1040510422_ - (lambda (_g1040610419_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g1040610419_))) - (_g1040410473_ - (lambda (_g1040610425_) - (if (gx#stx-pair? _g1040610425_) - (let ((_e1040910427_ - (gx#stx-e _g1040610425_))) - (let ((_hd1041010430_ + (##cdr _rest1074810756_)))) + (let* ((_hd-bind10909_ _hd1075310904_) + (_rest10911_ _tl1075410906_)) + (declare (not safe)) + (_K1075210901_ _rest10911_ _hd-bind10909_))) + (let () + (declare (not safe)) + (_else1075010767_))))))) + (_generate-letrec?10499_ + (lambda (_hd10631_) + (let _lp10633_ ((_rest10635_ _hd10631_)) + (let* ((_rest1063610644_ _rest10635_) + (_else1063810652_ (lambda () '#t)) + (_K1064010729_ + (lambda (_rest10655_ _hd-bind10656_) + (let* ((_g1065810675_ + (lambda (_g1065910672_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1065910672_)))) + (_g1065710726_ + (lambda (_g1065910678_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1065910678_)) + (let ((_e1066410680_ + (let () + (declare (not safe)) + (gx#stx-e + _g1065910678_)))) + (let ((_hd1066310683_ (let () (declare (not safe)) - (##car _e1040910427_))) - (_tl1041110432_ + (##car _e1066410680_))) + (_tl1066210685_ (let () (declare (not safe)) - (##cdr _e1040910427_)))) - (if (gx#stx-pair? - _hd1041010430_) - (let ((_e1041210435_ - (gx#stx-e - _hd1041010430_))) - (let ((_hd1041310438_ - (let () + (##cdr _e1066410680_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1066310683_)) + (let ((_e1066710688_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e1041210435_))) - (_tl1041410440_ - (let () (declare (not safe)) (##cdr _e1041210435_)))) - (if (gx#stx-null? _tl1041410440_) - (if (gx#stx-pair? _tl1041110432_) - (let ((_e1041510443_ (gx#stx-e _tl1041110432_))) - (let ((_hd1041610446_ + (not safe)) + (gx#stx-e _hd1066310683_)))) + (let ((_hd1066610691_ + (let () (declare (not safe)) (##car _e1066710688_))) + (_tl1066510693_ + (let () (declare (not safe)) (##cdr _e1066710688_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1066510693_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1066210685_)) + (let ((_e1067010696_ + (let () + (declare (not safe)) + (gx#stx-e _tl1066210685_)))) + (let ((_hd1066910699_ + (let () + (declare (not safe)) + (##car _e1067010696_))) + (_tl1066810701_ + (let () + (declare (not safe)) + (##cdr _e1067010696_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1066810701_)) + ((lambda (_L10704_ _L10705_) + (if (let () + (declare (not safe)) + (_is-lambda-expr?10500_ _L10704_)) + (let () + (declare (not safe)) + (_lp10633_ _rest10655_)) + '#f)) + _hd1066910699_ + _hd1066610691_) + (let () + (declare (not safe)) + (_g1065810675_ _g1065910678_))))) + (let () + (declare (not safe)) + (_g1065810675_ _g1065910678_))) + (let () + (declare (not safe)) + (_g1065810675_ _g1065910678_))))) + (let () (declare (not safe)) (_g1065810675_ _g1065910678_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g1065810675_ + _g1065910678_)))))) + (declare (not safe)) + (_g1065710726_ _hd-bind10656_))))) + (if (let () + (declare (not safe)) + (##pair? _rest1063610644_)) + (let ((_hd1064110732_ (let () (declare (not safe)) - (##car _e1041510443_))) - (_tl1041710448_ + (##car _rest1063610644_))) + (_tl1064210734_ (let () (declare (not safe)) - (##cdr _e1041510443_)))) - (if (gx#stx-null? _tl1041710448_) - ((lambda (_L10451_ _L10452_) - (if (_is-lambda-expr?10247_ _L10451_) - (_lp10380_ _rest10402_) - '#f)) - _hd1041610446_ - _hd1041310438_) - (_g1040510422_ _g1040610425_)))) - (_g1040510422_ _g1040610425_)) - (_g1040510422_ _g1040610425_)))) - (_g1040510422_ _g1040610425_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1040510422_ _g1040610425_))))) - (_g1040410473_ _hd-bind10403_))))) + (##cdr _rest1063610644_)))) + (let* ((_hd-bind10737_ _hd1064110732_) + (_rest10739_ _tl1064210734_)) + (declare (not safe)) + (_K1064010729_ _rest10739_ _hd-bind10737_))) + (let () + (declare (not safe)) + (_else1063810652_))))))) + (_is-lambda-expr?10500_ + (lambda (_expr10568_) + (let* ((___stx1644116442_ _expr10568_) + (_g1057110585_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1644116442_))))) + (let ((___kont1644316444_ + (lambda (_L10613_ _L10614_) '#t)) + (___kont1644516446_ (lambda () '#f))) (if (let () (declare (not safe)) - (##pair? _rest1038310391_)) - (let ((_hd1038810479_ - (let () - (declare (not safe)) - (##car _rest1038310391_))) - (_tl1038910481_ + (gx#stx-pair? ___stx1644116442_)) + (let ((_e1057710597_ (let () (declare (not safe)) - (##cdr _rest1038310391_)))) - (let* ((_hd-bind10484_ _hd1038810479_) - (_rest10486_ _tl1038910481_)) - (_K1038710476_ _rest10486_ _hd-bind10484_))) - (_else1038510399_)))))) - (_is-lambda-expr?10247_ - (lambda (_expr10315_) - (let* ((___stx1618816189_ _expr10315_) - (_g1031810332_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1618816189_)))) - (let ((___kont1619016191_ - (lambda (_L10360_ _L10361_) '#t)) - (___kont1619216193_ (lambda () '#f))) - (if (gx#stx-pair? ___stx1618816189_) - (let ((_e1032210344_ (gx#stx-e ___stx1618816189_))) - (let ((_tl1032410349_ + (gx#stx-e ___stx1644116442_)))) + (let ((_tl1057510602_ (let () (declare (not safe)) - (##cdr _e1032210344_))) - (_hd1032310347_ + (##cdr _e1057710597_))) + (_hd1057610600_ (let () (declare (not safe)) - (##car _e1032210344_)))) - (if (gx#identifier? _hd1032310347_) - (if (gx#stx-eq? '%#lambda _hd1032310347_) - (if (gx#stx-pair? _tl1032410349_) - (let ((_e1032510352_ - (gx#stx-e _tl1032410349_))) - (let ((_tl1032710357_ + (##car _e1057710597_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1057610600_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd1057610600_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1057510602_)) + (let ((_e1058010605_ + (let () + (declare (not safe)) + (gx#stx-e + _tl1057510602_)))) + (let ((_tl1057810610_ (let () (declare (not safe)) - (##cdr _e1032510352_))) - (_hd1032610355_ + (##cdr _e1058010605_))) + (_hd1057910608_ (let () (declare (not safe)) - (##car _e1032510352_)))) - (___kont1619016191_ - _tl1032710357_ - _hd1032610355_))) - (___kont1619216193_)) - (___kont1619216193_)) - (___kont1619216193_)))) - (___kont1619216193_))))))) - (let* ((_g1024910266_ - (lambda (_g1025010263_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1025010263_))) - (_g1024810312_ - (lambda (_g1025010269_) - (if (gx#stx-pair? _g1025010269_) - (let ((_e1025310271_ (gx#stx-e _g1025010269_))) - (let ((_hd1025410274_ + (##car _e1058010605_)))) + (___kont1644316444_ + _tl1057810610_ + _hd1057910608_))) + (___kont1644516446_)) + (___kont1644516446_)) + (___kont1644516446_)))) + (___kont1644516446_))))))) + (let* ((_g1050210519_ + (lambda (_g1050310516_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1050310516_)))) + (_g1050110565_ + (lambda (_g1050310522_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1050310522_)) + (let ((_e1050810524_ + (let () + (declare (not safe)) + (gx#stx-e _g1050310522_)))) + (let ((_hd1050710527_ (let () (declare (not safe)) - (##car _e1025310271_))) - (_tl1025510276_ + (##car _e1050810524_))) + (_tl1050610529_ (let () (declare (not safe)) - (##cdr _e1025310271_)))) - (if (gx#stx-pair? _tl1025510276_) - (let ((_e1025610279_ - (gx#stx-e _tl1025510276_))) - (let ((_hd1025710282_ + (##cdr _e1050810524_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1050610529_)) + (let ((_e1051110532_ + (let () + (declare (not safe)) + (gx#stx-e _tl1050610529_)))) + (let ((_hd1051010535_ (let () (declare (not safe)) - (##car _e1025610279_))) - (_tl1025810284_ + (##car _e1051110532_))) + (_tl1050910537_ (let () (declare (not safe)) - (##cdr _e1025610279_)))) - (if (gx#stx-pair? _tl1025810284_) - (let ((_e1025910287_ - (gx#stx-e _tl1025810284_))) - (let ((_hd1026010290_ + (##cdr _e1051110532_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1050910537_)) + (let ((_e1051410540_ + (let () + (declare (not safe)) + (gx#stx-e _tl1050910537_)))) + (let ((_hd1051310543_ (let () (declare (not safe)) - (##car _e1025910287_))) - (_tl1026110292_ + (##car _e1051410540_))) + (_tl1051210545_ (let () (declare (not safe)) - (##cdr _e1025910287_)))) - (if (gx#stx-null? _tl1026110292_) - ((lambda (_L10295_ _L10296_) - (if (gxc#generate-runtime-simple-let? - _L10296_) - (if (_generate-letrec?10246_ - _L10296_) - (gxc#generate-runtime-simple-let - 'letrec - _L10296_ - _L10295_ - '#f) - (gxc#generate-runtime-simple-let - 'letrec* - _L10296_ - _L10295_ - '#f)) - (_generate-values10245_ - _L10296_ - _L10295_))) - _hd1026010290_ - _hd1025710282_) - (_g1024910266_ - _g1025010269_)))) - (_g1024910266_ _g1025010269_)))) - (_g1024910266_ _g1025010269_)))) - (_g1024910266_ _g1025010269_))))) - (_g1024810312_ _stx10243_))))) + (##cdr _e1051410540_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1051210545_)) + ((lambda (_L10548_ _L10549_) + (if (let () + (declare (not safe)) + (gxc#generate-runtime-simple-let? + _L10549_)) + (if (let () + (declare + (not safe)) + (_generate-letrec?10499_ + _L10549_)) + (let () + (declare + (not safe)) + (gxc#generate-runtime-simple-let + 'letrec + _L10549_ + _L10548_ + '#f)) + (let () + (declare + (not safe)) + (gxc#generate-runtime-simple-let + 'letrec* + _L10549_ + _L10548_ + '#f))) + (let () + (declare (not safe)) + (_generate-values10498_ + _L10549_ + _L10548_)))) + _hd1051310543_ + _hd1051010535_) + (let () + (declare (not safe)) + (_g1050210519_ + _g1050310522_))))) + (let () + (declare (not safe)) + (_g1050210519_ _g1050310522_))))) + (let () + (declare (not safe)) + (_g1050210519_ _g1050310522_))))) + (let () + (declare (not safe)) + (_g1050210519_ _g1050310522_)))))) + (declare (not safe)) + (_g1050110565_ _stx10496_))))) (define gxc#generate-runtime-simple-let? - (lambda (_hd10180_) - (let _lp10182_ ((_rest10184_ _hd10180_)) - (let* ((_rest1018510201_ _rest10184_) - (_else1018810209_ (lambda () '#f))) - (let ((_K1019110222_ - (lambda (_rest10220_) (_lp10182_ _rest10220_))) - (_K1019010214_ (lambda () '#t))) - (let ((_try-match1018710217_ + (lambda (_hd10433_) + (let _lp10435_ ((_rest10437_ _hd10433_)) + (let* ((_rest1043810454_ _rest10437_) + (_else1044110462_ (lambda () '#f))) + (let ((_K1044410475_ + (lambda (_rest10473_) + (let () (declare (not safe)) (_lp10435_ _rest10473_)))) + (_K1044310467_ (lambda () '#t))) + (let ((_try-match1044010470_ (lambda () (if (let () (declare (not safe)) - (##null? _rest1018510201_)) - (_K1019010214_) - (_else1018810209_))))) - (if (let () (declare (not safe)) (##pair? _rest1018510201_)) - (let ((_tl1019310227_ + (##null? _rest1043810454_)) + (let () (declare (not safe)) (_K1044310467_)) + (let () (declare (not safe)) (_else1044110462_)))))) + (if (let () (declare (not safe)) (##pair? _rest1043810454_)) + (let ((_tl1044610480_ (let () (declare (not safe)) - (##cdr _rest1018510201_))) - (_hd1019210225_ + (##cdr _rest1043810454_))) + (_hd1044510478_ (let () (declare (not safe)) - (##car _rest1018510201_)))) + (##car _rest1043810454_)))) (if (let () (declare (not safe)) - (##pair? _hd1019210225_)) - (let ((_tl1019510232_ + (##pair? _hd1044510478_)) + (let ((_tl1044810485_ (let () (declare (not safe)) - (##cdr _hd1019210225_))) - (_hd1019410230_ + (##cdr _hd1044510478_))) + (_hd1044710483_ (let () (declare (not safe)) - (##car _hd1019210225_)))) + (##car _hd1044510478_)))) (if (let () (declare (not safe)) - (##pair? _hd1019410230_)) - (let ((_tl1019910235_ + (##pair? _hd1044710483_)) + (let ((_tl1045210488_ (let () (declare (not safe)) - (##cdr _hd1019410230_)))) + (##cdr _hd1044710483_)))) (if (let () (declare (not safe)) - (##null? _tl1019910235_)) + (##null? _tl1045210488_)) (if (let () (declare (not safe)) - (##pair? _tl1019510232_)) - (let ((_tl1019710238_ + (##pair? _tl1044810485_)) + (let ((_tl1045010491_ (let () (declare (not safe)) - (##cdr _tl1019510232_)))) + (##cdr _tl1044810485_)))) (if (let () (declare (not safe)) - (##null? _tl1019710238_)) - (let ((_rest10241_ - _tl1019310227_)) - (_lp10182_ _rest10241_)) - (_else1018810209_))) - (_else1018810209_)) - (_else1018810209_))) - (_else1018810209_))) - (_else1018810209_))) - (_try-match1018710217_)))))))) + (##null? _tl1045010491_)) + (let ((_rest10494_ + _tl1044610480_)) + (declare (not safe)) + (_lp10435_ _rest10494_)) + (let () + (declare (not safe)) + (_else1044110462_)))) + (let () + (declare (not safe)) + (_else1044110462_))) + (let () + (declare (not safe)) + (_else1044110462_)))) + (let () + (declare (not safe)) + (_else1044110462_)))) + (let () (declare (not safe)) (_else1044110462_)))) + (let () + (declare (not safe)) + (_try-match1044010470_))))))))) (define gxc#generate-runtime-simple-let - (lambda (_form10092_ _hd10093_ _body10094_ _compiled-body?10095_) - (letrec ((_generate110097_ - (lambda (_bind10136_) - (let* ((_bind1013710148_ _bind10136_) - (_E1013910152_ + (lambda (_form10345_ _hd10346_ _body10347_ _compiled-body?10348_) + (letrec ((_generate110350_ + (lambda (_bind10389_) + (let* ((_bind1039010401_ _bind10389_) + (_E1039210405_ (lambda () - (error '"No clause matching" _bind1013710148_))) - (_K1014010158_ - (lambda (_expr10155_ _id10156_) - (cons (gxc#generate-runtime-binding-id* - _id10156_) - (cons (gxc#compile-e _expr10155_) '()))))) + (error '"No clause matching" _bind1039010401_))) + (_K1039310411_ + (lambda (_expr10408_ _id10409_) + (let ((__tmp17445 + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id* + _id10409_))) + (__tmp17443 + (let ((__tmp17444 + (let () + (declare (not safe)) + (gxc#compile-e _expr10408_)))) + (declare (not safe)) + (cons __tmp17444 '())))) + (declare (not safe)) + (cons __tmp17445 __tmp17443))))) (if (let () (declare (not safe)) - (##pair? _bind1013710148_)) - (let ((_hd1014110161_ + (##pair? _bind1039010401_)) + (let ((_hd1039410414_ (let () (declare (not safe)) - (##car _bind1013710148_))) - (_tl1014210163_ + (##car _bind1039010401_))) + (_tl1039510416_ (let () (declare (not safe)) - (##cdr _bind1013710148_)))) + (##cdr _bind1039010401_)))) (if (let () (declare (not safe)) - (##pair? _hd1014110161_)) - (let ((_hd1014510166_ + (##pair? _hd1039410414_)) + (let ((_hd1039810419_ (let () (declare (not safe)) - (##car _hd1014110161_))) - (_tl1014610168_ + (##car _hd1039410414_))) + (_tl1039910421_ (let () (declare (not safe)) - (##cdr _hd1014110161_)))) - (let ((_id10171_ _hd1014510166_)) + (##cdr _hd1039410414_)))) + (let ((_id10424_ _hd1039810419_)) (if (let () (declare (not safe)) - (##null? _tl1014610168_)) + (##null? _tl1039910421_)) (if (let () (declare (not safe)) - (##pair? _tl1014210163_)) - (let ((_hd1014310173_ + (##pair? _tl1039510416_)) + (let ((_hd1039610426_ (let () (declare (not safe)) - (##car _tl1014210163_))) - (_tl1014410175_ + (##car _tl1039510416_))) + (_tl1039710428_ (let () (declare (not safe)) - (##cdr _tl1014210163_)))) - (let ((_expr10178_ - _hd1014310173_)) + (##cdr _tl1039510416_)))) + (let ((_expr10431_ + _hd1039610426_)) (if (let () (declare (not safe)) - (##null? _tl1014410175_)) - (_K1014010158_ - _expr10178_ - _id10171_) - (_E1013910152_)))) - (_E1013910152_)) - (_E1013910152_)))) - (_E1013910152_))) - (_E1013910152_)))))) - (let* ((_bind10099_ (map _generate110097_ _hd10093_)) - (_body10101_ - (if _compiled-body?10095_ - _body10094_ - (gxc#compile-e _body10094_))) - (_body10133_ - (let* ((_body1010210110_ _body10101_) - (_else1010410118_ (lambda () (cons _body10101_ '()))) - (_K1010610123_ (lambda (_exprs10121_) _exprs10121_))) + (##null? _tl1039710428_)) + (let () + (declare (not safe)) + (_K1039310411_ + _expr10431_ + _id10424_)) + (let () + (declare (not safe)) + (_E1039210405_))))) + (let () + (declare (not safe)) + (_E1039210405_))) + (let () + (declare (not safe)) + (_E1039210405_))))) + (let () (declare (not safe)) (_E1039210405_)))) + (let () (declare (not safe)) (_E1039210405_))))))) + (let* ((_bind10352_ + (let () + (declare (not safe)) + (map _generate110350_ _hd10346_))) + (_body10354_ + (if _compiled-body?10348_ + _body10347_ + (let () + (declare (not safe)) + (gxc#compile-e _body10347_)))) + (_body10386_ + (let* ((_body1035510363_ _body10354_) + (_else1035710371_ + (lambda () + (let () + (declare (not safe)) + (cons _body10354_ '())))) + (_K1035910376_ (lambda (_exprs10374_) _exprs10374_))) (if (let () (declare (not safe)) - (##pair? _body1010210110_)) - (let ((_hd1010710126_ + (##pair? _body1035510363_)) + (let ((_hd1036010379_ (let () (declare (not safe)) - (##car _body1010210110_))) - (_tl1010810128_ + (##car _body1035510363_))) + (_tl1036110381_ (let () (declare (not safe)) - (##cdr _body1010210110_)))) + (##cdr _body1035510363_)))) (if (let () (declare (not safe)) - (##eq? _hd1010710126_ 'begin)) - (let ((_exprs10131_ _tl1010810128_)) - (_K1010610123_ _exprs10131_)) - (_else1010410118_))) - (_else1010410118_))))) - (cons _form10092_ (cons _bind10099_ _body10133_)))))) + (##eq? _hd1036010379_ 'begin)) + (let ((_exprs10384_ _tl1036110381_)) + (declare (not safe)) + (_K1035910376_ _exprs10384_)) + (let () + (declare (not safe)) + (_else1035710371_)))) + (let () (declare (not safe)) (_else1035710371_)))))) + (let ((__tmp17446 + (let () + (declare (not safe)) + (cons _bind10352_ _body10386_)))) + (declare (not safe)) + (cons _form10345_ __tmp17446)))))) (define gxc#generate-runtime-quote% - (lambda (_stx10000_) - (letrec ((_generate110002_ - (lambda (_datum10054_) - (if (or (null? _datum10054_) - (interned-symbol? _datum10054_) - (gx#self-quoting? _datum10054_) - (eof-object? _datum10054_)) - _datum10054_ - (if (uninterned-symbol? _datum10054_) - (gxc#generate-runtime-gensym-reference__% - _datum10054_ - '#t) - (if (pair? _datum10054_) - (cons (_generate110002_ (car _datum10054_)) - (_generate110002_ (cdr _datum10054_))) - (if (box? _datum10054_) - (box (_generate110002_ - (unbox _datum10054_))) - (if (vector? _datum10054_) - (vector-map - _generate110002_ - _datum10054_) - (if (or (s8vector? _datum10054_) - (u8vector? _datum10054_) - (s16vector? _datum10054_) - (u16vector? _datum10054_) - (s32vector? _datum10054_) - (u32vector? _datum10054_) - (s64vector? _datum10054_) - (u64vector? _datum10054_) - (f32vector? _datum10054_) - (f64vector? _datum10054_)) - _datum10054_ - (gxc#raise-compile-error - '"Cannot compile non-primitive quote" - _stx10000_)))))))))) - (let* ((_g1000410017_ - (lambda (_g1000510014_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1000510014_))) - (_g1000310051_ - (lambda (_g1000510020_) - (if (gx#stx-pair? _g1000510020_) - (let ((_e1000710022_ (gx#stx-e _g1000510020_))) - (let ((_hd1000810025_ + (lambda (_stx10253_) + (letrec ((_generate110255_ + (lambda (_datum10307_) + (if (or (let () (declare (not safe)) (null? _datum10307_)) + (let () + (declare (not safe)) + (interned-symbol? _datum10307_)) + (let () + (declare (not safe)) + (gx#self-quoting? _datum10307_)) + (let () + (declare (not safe)) + (eof-object? _datum10307_))) + _datum10307_ + (if (let () + (declare (not safe)) + (uninterned-symbol? _datum10307_)) + (let () + (declare (not safe)) + (gxc#generate-runtime-gensym-reference__% + _datum10307_ + '#t)) + (if (let () + (declare (not safe)) + (pair? _datum10307_)) + (let ((__tmp17451 + (let ((__tmp17452 + (let () + (declare (not safe)) + (car _datum10307_)))) + (declare (not safe)) + (_generate110255_ __tmp17452))) + (__tmp17449 + (let ((__tmp17450 + (let () + (declare (not safe)) + (cdr _datum10307_)))) + (declare (not safe)) + (_generate110255_ __tmp17450)))) + (declare (not safe)) + (cons __tmp17451 __tmp17449)) + (if (let () + (declare (not safe)) + (box? _datum10307_)) + (let ((__tmp17447 + (let ((__tmp17448 + (let () + (declare (not safe)) + (unbox _datum10307_)))) + (declare (not safe)) + (_generate110255_ __tmp17448)))) + (declare (not safe)) + (box __tmp17447)) + (if (let () + (declare (not safe)) + (vector? _datum10307_)) + (let () + (declare (not safe)) + (vector-map + _generate110255_ + _datum10307_)) + (if (or (let () + (declare (not safe)) + (s8vector? _datum10307_)) + (let () + (declare (not safe)) + (u8vector? _datum10307_)) + (let () + (declare (not safe)) + (s16vector? _datum10307_)) + (let () + (declare (not safe)) + (u16vector? _datum10307_)) + (let () + (declare (not safe)) + (s32vector? _datum10307_)) + (let () + (declare (not safe)) + (u32vector? _datum10307_)) + (let () + (declare (not safe)) + (s64vector? _datum10307_)) + (let () + (declare (not safe)) + (u64vector? _datum10307_)) + (let () + (declare (not safe)) + (f32vector? _datum10307_)) + (let () + (declare (not safe)) + (f64vector? _datum10307_))) + _datum10307_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Cannot compile non-primitive quote" + _stx10253_))))))))))) + (let* ((_g1025710270_ + (lambda (_g1025810267_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1025810267_)))) + (_g1025610304_ + (lambda (_g1025810273_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1025810273_)) + (let ((_e1026210275_ + (let () + (declare (not safe)) + (gx#stx-e _g1025810273_)))) + (let ((_hd1026110278_ (let () (declare (not safe)) - (##car _e1000710022_))) - (_tl1000910027_ + (##car _e1026210275_))) + (_tl1026010280_ (let () (declare (not safe)) - (##cdr _e1000710022_)))) - (if (gx#stx-pair? _tl1000910027_) - (let ((_e1001010030_ - (gx#stx-e _tl1000910027_))) - (let ((_hd1001110033_ + (##cdr _e1026210275_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1026010280_)) + (let ((_e1026510283_ + (let () + (declare (not safe)) + (gx#stx-e _tl1026010280_)))) + (let ((_hd1026410286_ (let () (declare (not safe)) - (##car _e1001010030_))) - (_tl1001210035_ + (##car _e1026510283_))) + (_tl1026310288_ (let () (declare (not safe)) - (##cdr _e1001010030_)))) - (if (gx#stx-null? _tl1001210035_) - ((lambda (_L10038_) - (cons 'quote - (cons (_generate110002_ - (gx#stx-e _L10038_)) - '()))) - _hd1001110033_) - (_g1000410017_ _g1000510020_)))) - (_g1000410017_ _g1000510020_)))) - (_g1000410017_ _g1000510020_))))) - (_g1000310051_ _stx10000_))))) + (##cdr _e1026510283_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1026310288_)) + ((lambda (_L10291_) + (let ((__tmp17453 + (let ((__tmp17454 + (let ((__tmp17455 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _L10291_)))) + (declare (not safe)) + (_generate110255_ __tmp17455)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17454 '())))) + (declare (not safe)) + (cons 'quote __tmp17453))) + _hd1026410286_) + (let () + (declare (not safe)) + (_g1025710270_ _g1025810273_))))) + (let () + (declare (not safe)) + (_g1025710270_ _g1025810273_))))) + (let () + (declare (not safe)) + (_g1025710270_ _g1025810273_)))))) + (declare (not safe)) + (_g1025610304_ _stx10253_))))) (define gxc#generate-runtime-call% - (lambda (_stx9518_) - (letrec ((_compile-call9520_ - (lambda (_rator9744_ _rands9745_) - (let ((_rator9747_ (gxc#compile-e _rator9744_)) - (_rands9748_ (map gxc#compile-e _rands9745_))) - (let* ((___stx1623516236_ _rator9747_) - (_g97519803_ + (lambda (_stx9771_) + (letrec ((_compile-call9773_ + (lambda (_rator9997_ _rands9998_) + (let ((_rator10000_ + (let () + (declare (not safe)) + (gxc#compile-e _rator9997_))) + (_rands10001_ + (let () + (declare (not safe)) + (map gxc#compile-e _rands9998_)))) + (let* ((___stx1648816489_ _rator10000_) + (_g1000410056_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1623516236_)))) - (let ((___kont1623716238_ - (lambda (_L9927_ _L9928_ _L9929_ _L9930_) - (if (fx= (length _rands9748_) - (length (foldr1 (lambda (_g99669969_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g99679971_) - (cons _g99669969_ _g99679971_)) - '() - _L9929_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_id9974_ _L9930_) - (_args9983_ - (foldr1 (lambda (_g99759978_ - _g99769980_) - (cons _g99759978_ - _g99769980_)) - '() - _L9929_)) - (_body9992_ - (foldr1 (lambda (_g99849987_ - _g99859989_) - (cons _g99849987_ - _g99859989_)) - '() - _L9928_)) - (_init9994_ - (map list - _args9983_ - _rands9748_))) - (cons 'let - (cons _id9974_ - (cons _init9994_ - _body9992_)))) - (gxc#raise-compile-error - '"Illegal loop application; arity mismatch" - _stx9518_)))) - (___kont1624316244_ - (lambda () (cons _rator9747_ _rands9748_)))) - (let ((___match1630216303_ - (lambda (_e97579815_ - _hd97589818_ - _tl97599820_ - _e97609823_ - _hd97619826_ - _tl97629828_ - _e97639831_ - _hd97649834_ - _tl97659836_ - _e97669839_ - _hd97679842_ - _tl97689844_ - _e97699847_ - _hd97709850_ - _tl97719852_ - _e97729855_ - _hd97739858_ - _tl97749860_ - _e97759863_ - _hd97769866_ - _tl97779868_ - ___splice1623916240_ - _target97789871_ - _tl97809873_) - (letrec ((_loop97819876_ - (lambda (_hd97799879_ - _arg97859881_) - (if (gx#stx-pair? _hd97799879_) - (let ((_e97829884_ - (gx#stx-e - _hd97799879_))) - (let ((_lp-tl97849889_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1648816489_))))) + (let ((___kont1649016491_ + (lambda (_L10180_ _L10181_ _L10182_ _L10183_) + (if (fx= (length _rands10001_) + (length (let ((__tmp17460 + (lambda (_g1021910222_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1022010224_) + (let () + (declare (not safe)) + (cons _g1021910222_ _g1022010224_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp17460 + '() + _L10182_)))) + (let* ((_id10227_ _L10183_) + (_args10236_ + (let ((__tmp17456 + (lambda (_g1022810231_ + _g1022910233_) + (let () + (declare (not safe)) + (cons _g1022810231_ + _g1022910233_))))) + (declare (not safe)) + (foldr1 __tmp17456 + '() + _L10182_))) + (_body10245_ + (let ((__tmp17457 + (lambda (_g1023710240_ + _g1023810242_) + (let () + (declare (not safe)) + (cons _g1023710240_ + _g1023810242_))))) + (declare (not safe)) + (foldr1 __tmp17457 + '() + _L10181_))) + (_init10247_ + (let () + (declare (not safe)) + (map list + _args10236_ + _rands10001_)))) + (let ((__tmp17458 + (let ((__tmp17459 + (let () + (declare (not safe)) + (cons _init10247_ + _body10245_)))) + (declare (not safe)) + (cons _id10227_ __tmp17459)))) + (declare (not safe)) + (cons 'let __tmp17458))) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal loop application; arity mismatch" + _stx9771_))))) + (___kont1649616497_ + (lambda () + (let () + (declare (not safe)) + (cons _rator10000_ _rands10001_))))) + (let ((___match1655516556_ + (lambda (_e1001210068_ + _hd1001110071_ + _tl1001010073_ + _e1001510076_ + _hd1001410079_ + _tl1001310081_ + _e1001810084_ + _hd1001710087_ + _tl1001610089_ + _e1002110092_ + _hd1002010095_ + _tl1001910097_ + _e1002410100_ + _hd1002310103_ + _tl1002210105_ + _e1002710108_ + _hd1002610111_ + _tl1002510113_ + _e1003010116_ + _hd1002910119_ + _tl1002810121_ + ___splice1649216493_ + _target1003110124_ + _tl1003310126_) + (letrec ((_loop1003410129_ + (lambda (_hd1003210132_ + _arg1003810134_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1003210132_)) + (let ((_e1003510137_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd1003210132_)))) + (let ((_lp-tl1003710142_ (let () (declare (not safe)) - (##cdr _e97829884_))) - (_lp-hd97839887_ + (##cdr _e1003510137_))) + (_lp-hd1003610140_ (let () (declare (not safe)) - (##car _e97829884_)))) - (_loop97819876_ - _lp-tl97849889_ - (cons _lp-hd97839887_ - _arg97859881_)))) - (let ((_arg97869892_ - (reverse _arg97859881_))) - (if (gx#stx-pair/null? - _tl97779868_) - (let ((___splice1624116242_ - (gx#syntax-split-splice -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl97779868_ - '0))) - (let ((_tl97899897_ + (##car _e1003510137_)))) + (let ((__tmp17462 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _lp-hd1003610140_ _arg1003810134_)))) + (declare (not safe)) + (_loop1003410129_ _lp-tl1003710142_ __tmp17462)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_arg1003910145_ + (let () + (declare + (not safe)) + (reverse _arg1003810134_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl1002810121_)) + (let ((___splice1649416495_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#syntax-split-splice _tl1002810121_ '0)))) + (let ((_tl1004210150_ (let () (declare (not safe)) - (##vector-ref ___splice1624116242_ '1))) - (_target97879895_ + (##vector-ref ___splice1649416495_ '1))) + (_target1004010148_ (let () (declare (not safe)) - (##vector-ref ___splice1624116242_ '0)))) - (if (gx#stx-null? _tl97899897_) - (letrec ((_loop97909900_ - (lambda (_hd97889903_ _body97949905_) - (if (gx#stx-pair? _hd97889903_) - (let ((_e97919908_ - (gx#stx-e _hd97889903_))) - (let ((_lp-tl97939913_ + (##vector-ref ___splice1649416495_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1004210150_)) + (letrec ((_loop1004310153_ + (lambda (_hd1004110156_ _body1004710158_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1004110156_)) + (let ((_e1004410161_ + (let () + (declare (not safe)) + (gx#stx-e _hd1004110156_)))) + (let ((_lp-tl1004610166_ (let () (declare (not safe)) - (##cdr _e97919908_))) - (_lp-hd97929911_ + (##cdr _e1004410161_))) + (_lp-hd1004510164_ (let () (declare (not safe)) - (##car _e97919908_)))) - (_loop97909900_ - _lp-tl97939913_ - (cons _lp-hd97929911_ - _body97949905_)))) - (let ((_body97959916_ - (reverse _body97949905_))) - (if (gx#stx-null? _tl97719852_) - (if (gx#stx-null? _tl97659836_) - (if (gx#stx-pair? - _tl97629828_) - (let ((_e97969919_ - (gx#stx-e - _tl97629828_))) - (let ((_tl97989924_ - (let () + (##car _e1004410161_)))) + (let ((__tmp17461 + (let () + (declare (not safe)) + (cons _lp-hd1004510164_ + _body1004710158_)))) + (declare (not safe)) + (_loop1004310153_ + _lp-tl1004610166_ + __tmp17461)))) + (let ((_body1004810169_ + (let () + (declare (not safe)) + (reverse _body1004710158_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1002210105_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1001610089_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1001310081_)) + (let ((_e1005110172_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e97969919_))) - (_hd97979922_ - (let () (declare (not safe)) (##car _e97969919_)))) - (if (gx#stx-null? _tl97989924_) - (let ((_L9927_ _hd97979922_) - (_L9928_ _body97959916_) - (_L9929_ _arg97869892_) - (_L9930_ _hd97679842_)) - (if (eq? _L9930_ _L9927_) - (___kont1623716238_ - _L9927_ - _L9928_ - _L9929_ - _L9930_) - (___kont1624316244_))) - (___kont1624316244_)))) - (___kont1624316244_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1624316244_)) - (___kont1624316244_))))))) - (_loop97909900_ _target97879895_ '())) - (___kont1624316244_)))) - (___kont1624316244_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop97819876_ _target97789871_ '()))))) - (if (gx#stx-pair? ___stx1623516236_) - (let ((_e97579815_ - (gx#stx-e ___stx1623516236_))) - (let ((_tl97599820_ + (not safe)) + (gx#stx-e _tl1001310081_)))) + (let ((_tl1004910177_ + (let () (declare (not safe)) (##cdr _e1005110172_))) + (_hd1005010175_ + (let () (declare (not safe)) (##car _e1005110172_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1004910177_)) + (let ((_L10180_ _hd1005010175_) + (_L10181_ _body1004810169_) + (_L10182_ _arg1003910145_) + (_L10183_ _hd1002010095_)) + (if (let () + (declare (not safe)) + (eq? _L10183_ _L10180_)) + (___kont1649016491_ + _L10180_ + _L10181_ + _L10182_ + _L10183_) + (___kont1649616497_))) + (___kont1649616497_)))) + (___kont1649616497_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1649616497_)) + (___kont1649616497_))))))) + (let () + (declare (not safe)) + (_loop1004310153_ _target1004010148_ '()))) + (___kont1649616497_)))) + (___kont1649616497_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1003410129_ + _target1003110124_ + '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1648816489_)) + (let ((_e1001210068_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1648816489_)))) + (let ((_tl1001010073_ (let () (declare (not safe)) - (##cdr _e97579815_))) - (_hd97589818_ + (##cdr _e1001210068_))) + (_hd1001110071_ (let () (declare (not safe)) - (##car _e97579815_)))) - (if (gx#identifier? _hd97589818_) - (if (gx#stx-eq? 'letrec _hd97589818_) - (if (gx#stx-pair? _tl97599820_) - (let ((_e97609823_ - (gx#stx-e - _tl97599820_))) - (let ((_tl97629828_ + (##car _e1001210068_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd1001110071_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + 'letrec + _hd1001110071_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1001010073_)) + (let ((_e1001510076_ + (let () + (declare (not safe)) + (gx#stx-e + _tl1001010073_)))) + (let ((_tl1001310081_ (let () (declare (not safe)) - (##cdr _e97609823_))) - (_hd97619826_ + (##cdr _e1001510076_))) + (_hd1001410079_ (let () (declare (not safe)) - (##car _e97609823_)))) - (if (gx#stx-pair? - _hd97619826_) - (let ((_e97639831_ - (gx#stx-e - _hd97619826_))) - (let ((_tl97659836_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e97639831_))) - (_hd97649834_ - (let () (declare (not safe)) (##car _e97639831_)))) - (if (gx#stx-pair? _hd97649834_) - (let ((_e97669839_ (gx#stx-e _hd97649834_))) - (let ((_tl97689844_ + (##car _e1001510076_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1001410079_)) + (let ((_e1001810084_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd1001410079_)))) + (let ((_tl1001610089_ + (let () (declare (not safe)) (##cdr _e1001810084_))) + (_hd1001710087_ + (let () (declare (not safe)) (##car _e1001810084_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1001710087_)) + (let ((_e1002110092_ + (let () + (declare (not safe)) + (gx#stx-e _hd1001710087_)))) + (let ((_tl1001910097_ (let () (declare (not safe)) - (##cdr _e97669839_))) - (_hd97679842_ + (##cdr _e1002110092_))) + (_hd1002010095_ (let () (declare (not safe)) - (##car _e97669839_)))) - (if (gx#stx-pair? _tl97689844_) - (let ((_e97699847_ (gx#stx-e _tl97689844_))) - (let ((_tl97719852_ + (##car _e1002110092_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1001910097_)) + (let ((_e1002410100_ + (let () + (declare (not safe)) + (gx#stx-e _tl1001910097_)))) + (let ((_tl1002210105_ (let () (declare (not safe)) - (##cdr _e97699847_))) - (_hd97709850_ + (##cdr _e1002410100_))) + (_hd1002310103_ (let () (declare (not safe)) - (##car _e97699847_)))) - (if (gx#stx-pair? _hd97709850_) - (let ((_e97729855_ - (gx#stx-e _hd97709850_))) - (let ((_tl97749860_ + (##car _e1002410100_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1002310103_)) + (let ((_e1002710108_ + (let () + (declare (not safe)) + (gx#stx-e _hd1002310103_)))) + (let ((_tl1002510113_ (let () (declare (not safe)) - (##cdr _e97729855_))) - (_hd97739858_ + (##cdr _e1002710108_))) + (_hd1002610111_ (let () (declare (not safe)) - (##car _e97729855_)))) - (if (gx#identifier? _hd97739858_) - (if (gx#stx-eq? - 'lambda - _hd97739858_) - (if (gx#stx-pair? - _tl97749860_) - (let ((_e97759863_ - (gx#stx-e - _tl97749860_))) - (let ((_tl97779868_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e97759863_))) - (_hd97769866_ - (let () (declare (not safe)) (##car _e97759863_)))) - (if (gx#stx-pair/null? _hd97769866_) - (let ((___splice1623916240_ - (gx#syntax-split-splice _hd97769866_ '0))) - (let ((_tl97809873_ + (##car _e1002710108_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd1002610111_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + 'lambda + _hd1002610111_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1002510113_)) + (let ((_e1003010116_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl1002510113_)))) + (let ((_tl1002810121_ + (let () (declare (not safe)) (##cdr _e1003010116_))) + (_hd1002910119_ + (let () (declare (not safe)) (##car _e1003010116_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd1002910119_)) + (let ((___splice1649216493_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _hd1002910119_ '0)))) + (let ((_tl1003310126_ (let () (declare (not safe)) - (##vector-ref ___splice1623916240_ '1))) - (_target97789871_ + (##vector-ref ___splice1649216493_ '1))) + (_target1003110124_ (let () (declare (not safe)) - (##vector-ref ___splice1623916240_ '0)))) - (if (gx#stx-null? _tl97809873_) - (___match1630216303_ - _e97579815_ - _hd97589818_ - _tl97599820_ - _e97609823_ - _hd97619826_ - _tl97629828_ - _e97639831_ - _hd97649834_ - _tl97659836_ - _e97669839_ - _hd97679842_ - _tl97689844_ - _e97699847_ - _hd97709850_ - _tl97719852_ - _e97729855_ - _hd97739858_ - _tl97749860_ - _e97759863_ - _hd97769866_ - _tl97779868_ - ___splice1623916240_ - _target97789871_ - _tl97809873_) - (___kont1624316244_)))) - (___kont1624316244_)))) - (___kont1624316244_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1624316244_)) - (___kont1624316244_)))) - (___kont1624316244_)))) - (___kont1624316244_)))) - (___kont1624316244_)))) - (___kont1624316244_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1624316244_)) - (___kont1624316244_)) - (___kont1624316244_)))) - (___kont1624316244_))))))))) - (let* ((_g95229536_ - (lambda (_g95239533_) - (gx#raise-syntax-error '#f '"Bad syntax" _g95239533_))) - (_g95219741_ - (lambda (_g95239539_) - (if (gx#stx-pair? _g95239539_) - (let ((_e95269541_ (gx#stx-e _g95239539_))) - (let ((_hd95279544_ + (##vector-ref ___splice1649216493_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1003310126_)) + (___match1655516556_ + _e1001210068_ + _hd1001110071_ + _tl1001010073_ + _e1001510076_ + _hd1001410079_ + _tl1001310081_ + _e1001810084_ + _hd1001710087_ + _tl1001610089_ + _e1002110092_ + _hd1002010095_ + _tl1001910097_ + _e1002410100_ + _hd1002310103_ + _tl1002210105_ + _e1002710108_ + _hd1002610111_ + _tl1002510113_ + _e1003010116_ + _hd1002910119_ + _tl1002810121_ + ___splice1649216493_ + _target1003110124_ + _tl1003310126_) + (___kont1649616497_)))) + (___kont1649616497_)))) + (___kont1649616497_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1649616497_)) + (___kont1649616497_)))) + (___kont1649616497_)))) + (___kont1649616497_)))) + (___kont1649616497_)))) + (___kont1649616497_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1649616497_)) + (___kont1649616497_)) + (___kont1649616497_)))) + (___kont1649616497_))))))))) + (let* ((_g97759789_ + (lambda (_g97769786_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g97769786_)))) + (_g97749994_ + (lambda (_g97769792_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g97769792_)) + (let ((_e97819794_ + (let () + (declare (not safe)) + (gx#stx-e _g97769792_)))) + (let ((_hd97809797_ (let () (declare (not safe)) - (##car _e95269541_))) - (_tl95289546_ + (##car _e97819794_))) + (_tl97799799_ (let () (declare (not safe)) - (##cdr _e95269541_)))) - (if (gx#stx-pair? _tl95289546_) - (let ((_e95299549_ (gx#stx-e _tl95289546_))) - (let ((_hd95309552_ + (##cdr _e97819794_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl97799799_)) + (let ((_e97849802_ + (let () + (declare (not safe)) + (gx#stx-e _tl97799799_)))) + (let ((_hd97839805_ (let () (declare (not safe)) - (##car _e95299549_))) - (_tl95319554_ + (##car _e97849802_))) + (_tl97829807_ (let () (declare (not safe)) - (##cdr _e95299549_)))) - ((lambda (_L9557_ _L9558_) - (if (gxc#current-compile-decls-unsafe?) - (_compile-call9520_ _L9558_ _L9557_) - (let* ((___stx1635116352_ _L9558_) - (_g95739585_ + (##cdr _e97849802_)))) + ((lambda (_L9810_ _L9811_) + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let () + (declare (not safe)) + (_compile-call9773_ + _L9811_ + _L9810_)) + (let* ((___stx1660416605_ _L9811_) + (_g98269838_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1635116352_)))) - (let ((___kont1635316354_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1660416605_))))) + (let ((___kont1660616607_ (lambda () - (let ((_f9615_ (gxc#compile-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L9558_))) - (if (string-prefix? '"##" (symbol->string _f9615_)) - (let _lp9617_ ((_rest9620_ (reverse _L9557_)) - (_bind9622_ '()) - (_args9623_ '())) - (let* ((_rest96249632_ _rest9620_) - (_else96269640_ + (let ((_f9868_ (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gxc#compile-e _L9811_)))) + (if (let ((__tmp17476 + (let () + (declare (not safe)) + (symbol->string _f9868_)))) + (declare (not safe)) + (string-prefix? '"##" __tmp17476)) + (let _lp9870_ ((_rest9873_ + (let () + (declare (not safe)) + (reverse _L9810_))) + (_bind9875_ '()) + (_args9876_ '())) + (let* ((_rest98779885_ _rest9873_) + (_else98799893_ (lambda () - (cons 'let - (cons _bind9622_ - (cons '(declare (not safe)) - (cons (cons _f9615_ - _args9623_) - '())))))) - (_K96289726_ - (lambda (_rest9643_ _e9644_) - (let* ((___stx1630516306_ _e9644_) - (_g96499667_ + (let ((__tmp17463 + (let ((__tmp17464 + (let ((__tmp17465 + (let ((__tmp17466 + (let () + (declare + (not safe)) + (cons _f9868_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _args9876_)))) + (declare (not safe)) + (cons __tmp17466 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '(declare (not safe)) + __tmp17465)))) + (declare (not safe)) + (cons _bind9875_ __tmp17464)))) + (declare (not safe)) + (cons 'let __tmp17463)))) + (_K98819979_ + (lambda (_rest9896_ _e9897_) + (let* ((___stx1655816559_ _e9897_) + (_g99029920_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1630516306_)))) - (let ((___kont1630716308_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1655816559_))))) + (let ((___kont1656016561_ (lambda () - (_lp9617_ - _rest9643_ - _bind9622_ - (cons (gxc#compile-e _e9644_) - _args9623_)))) - (___kont1630916310_ + (let ((__tmp17467 + (let ((__tmp17468 + (let () + (declare (not safe)) + (gxc#compile-e + _e9897_)))) + (declare (not safe)) + (cons __tmp17468 + _args9876_)))) + (declare (not safe)) + (_lp9870_ + _rest9896_ + _bind9875_ + __tmp17467)))) + (___kont1656216563_ (lambda () - (_lp9617_ - _rest9643_ - _bind9622_ - (cons (gxc#compile-e _e9644_) - _args9623_)))) - (___kont1631116312_ + (let ((__tmp17469 + (let ((__tmp17470 + (let () + (declare (not safe)) + (gxc#compile-e + _e9897_)))) + (declare (not safe)) + (cons __tmp17470 + _args9876_)))) + (declare (not safe)) + (_lp9870_ + _rest9896_ + _bind9875_ + __tmp17469)))) + (___kont1656416565_ (lambda () - (let ((_tmp9674_ + (let ((_tmp9927_ (make-symbol - (gensym '__tmp)))) - (_lp9617_ - _rest9643_ - (cons (cons _tmp9674_ - (cons (gxc#compile-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e9644_) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _bind9622_) - (cons _tmp9674_ _args9623_)))))) - (if (gx#stx-pair? ___stx1630516306_) - (let ((_e96519705_ - (gx#stx-e ___stx1630516306_))) - (let ((_tl96539710_ + (let () + (declare (not safe)) + (gensym '__tmp))))) + (let ((__tmp17472 + (let ((__tmp17473 + (let ((__tmp17474 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17475 + (let () + (declare (not safe)) + (gxc#compile-e _e9897_)))) + (declare (not safe)) + (cons __tmp17475 '())))) + (declare (not safe)) + (cons _tmp9927_ __tmp17474)))) + (declare (not safe)) + (cons __tmp17473 _bind9875_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17471 + (let () + (declare (not safe)) + (cons _tmp9927_ + _args9876_)))) + (declare (not safe)) + (_lp9870_ + _rest9896_ + __tmp17472 + __tmp17471)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1655816559_)) + (let ((_e99069958_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx1655816559_)))) + (let ((_tl99049963_ (let () (declare (not safe)) - (##cdr _e96519705_))) - (_hd96529708_ + (##cdr _e99069958_))) + (_hd99059961_ (let () (declare (not safe)) - (##car _e96519705_)))) - (if (gx#identifier? _hd96529708_) - (if (gx#stx-eq? - '%#ref - _hd96529708_) - (if (gx#stx-pair? - _tl96539710_) - (let ((_e96549713_ - (gx#stx-e - _tl96539710_))) - (let ((_tl96569718_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e96549713_))) - (_hd96559716_ - (let () (declare (not safe)) (##car _e96549713_)))) - (if (gx#stx-null? _tl96569718_) - (___kont1630716308_) - (___kont1631116312_)))) - (___kont1631116312_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#quote - _hd96529708_) - (if (gx#stx-pair? - _tl96539710_) - (let ((_e96609690_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl96539710_))) - (let ((_tl96629695_ - (let () (declare (not safe)) (##cdr _e96609690_))) - (_hd96619693_ + (##car _e99069958_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd99059961_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd99059961_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl99049963_)) + (let ((_e99099966_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl99049963_)))) + (let ((_tl99079971_ + (let () (declare (not safe)) (##cdr _e99099966_))) + (_hd99089969_ + (let () (declare (not safe)) (##car _e99099966_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl99079971_)) + (___kont1656016561_) + (___kont1656416565_)))) + (___kont1656416565_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd99059961_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl99049963_)) + (let ((_e99159943_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl99049963_)))) + (let ((_tl99139948_ + (let () (declare (not safe)) (##cdr _e99159943_))) + (_hd99149946_ (let () (declare (not safe)) - (##car _e96609690_)))) - (if (gx#stx-null? _tl96629695_) - (___kont1630916310_) - (___kont1631116312_)))) - (___kont1631116312_)) - (___kont1631116312_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1631116312_)))) - (___kont1631116312_))))))) + (##car _e99159943_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl99139948_)) + (___kont1656216563_) + (___kont1656416565_)))) + (___kont1656416565_)) + (___kont1656416565_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1656416565_)))) + (___kont1656416565_))))))) (if (let () (declare (not safe)) - (##pair? _rest96249632_)) - (let ((_hd96299729_ + (##pair? _rest98779885_)) + (let ((_hd98829982_ (let () (declare (not safe)) - (##car _rest96249632_))) - (_tl96309731_ + (##car _rest98779885_))) + (_tl98839984_ (let () (declare (not safe)) - (##cdr _rest96249632_)))) - (let* ((_e9734_ _hd96299729_) - (_rest9736_ _tl96309731_)) - (_K96289726_ _rest9736_ _e9734_))) - (_else96269640_)))) - (_compile-call9520_ _L9558_ _L9557_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1635516356_ + (##cdr _rest98779885_)))) + (let* ((_e9987_ _hd98829982_) + (_rest9989_ _tl98839984_)) + (declare (not safe)) + (_K98819979_ _rest9989_ _e9987_))) + (let () (declare (not safe)) (_else98799893_))))) + (let () + (declare (not safe)) + (_compile-call9773_ _L9811_ _L9810_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1660816609_ (lambda () - (_compile-call9520_ - _L9558_ - _L9557_)))) - (if (gx#stx-pair? - ___stx1635116352_) - (let ((_e95759597_ - (gx#stx-e - ___stx1635116352_))) - (let ((_tl95779602_ + (let () + (declare (not safe)) + (_compile-call9773_ + _L9811_ + _L9810_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx1660416605_)) + (let ((_e98309850_ + (let () + (declare + (not safe)) + (gx#stx-e + ___stx1660416605_)))) + (let ((_tl98289855_ (let () (declare (not safe)) - (##cdr _e95759597_))) - (_hd95769600_ + (##cdr _e98309850_))) + (_hd98299853_ (let () (declare (not safe)) - (##car _e95759597_)))) - (if (gx#identifier? - _hd95769600_) - (if (gx#stx-eq? - '%#ref - _hd95769600_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl95779602_) - (let ((_e95789605_ (gx#stx-e _tl95779602_))) - (let ((_tl95809610_ + (##car _e98309850_)))) + (if (let () + (declare + (not safe)) + (gx#identifier? + _hd98299853_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-eq? '%#ref _hd98299853_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl98289855_)) + (let ((_e98339858_ + (let () + (declare (not safe)) + (gx#stx-e _tl98289855_)))) + (let ((_tl98319863_ (let () (declare (not safe)) - (##cdr _e95789605_))) - (_hd95799608_ + (##cdr _e98339858_))) + (_hd98329861_ (let () (declare (not safe)) - (##car _e95789605_)))) - (if (gx#stx-null? _tl95809610_) - (___kont1635316354_) - (___kont1635516356_)))) - (___kont1635516356_)) - (___kont1635516356_)) - (___kont1635516356_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1635516356_)))))) - _tl95319554_ - _hd95309552_))) - (_g95229536_ _g95239539_)))) - (_g95229536_ _g95239539_))))) - (_g95219741_ _stx9518_))))) + (##car _e98339858_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl98319863_)) + (___kont1660616607_) + (___kont1660816609_)))) + (___kont1660816609_)) + (___kont1660816609_)) + (___kont1660816609_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1660816609_)))))) + _tl97829807_ + _hd97839805_))) + (let () + (declare (not safe)) + (_g97759789_ _g97769792_))))) + (let () + (declare (not safe)) + (_g97759789_ _g97769792_)))))) + (declare (not safe)) + (_g97749994_ _stx9771_))))) + (define gxc#generate-runtime-call-unchecked% + (lambda (_stx9559_) + (let* ((___stx1667616677_ _stx9559_) + (_g95629582_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1667616677_))))) + (let ((___kont1667816679_ + (lambda (_L9626_ _L9627_) + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let () + (declare (not safe)) + (gxc#generate-runtime-call% _stx9559_)) + (let ((_f9645_ (let ((__tmp17477 + (let ((__tmp17479 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp17478 + (let () + (declare (not safe)) + (cons _L9627_ '())))) + (declare (not safe)) + (cons __tmp17479 __tmp17478)))) + (declare (not safe)) + (gxc#compile-e __tmp17477)))) + (let _lp9647_ ((_rest9650_ + (let () + (declare (not safe)) + (reverse _L9626_))) + (_bind9652_ '()) + (_args9653_ '())) + (let* ((_rest96549662_ _rest9650_) + (_else96569670_ + (lambda () + (let ((__tmp17480 + (let ((__tmp17481 + (let ((__tmp17482 + (let ((__tmp17483 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _f9645_ _args9653_)))) + (declare (not safe)) + (cons __tmp17483 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '(declare + (not safe)) + __tmp17482)))) + (declare (not safe)) + (cons _bind9652_ __tmp17481)))) + (declare (not safe)) + (cons 'let __tmp17480)))) + (_K96589756_ + (lambda (_rest9673_ _e9674_) + (let* ((___stx1663016631_ _e9674_) + (_g96799697_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1663016631_))))) + (let ((___kont1663216633_ + (lambda () + (let ((__tmp17484 + (let ((__tmp17485 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gxc#compile-e _e9674_)))) + (declare (not safe)) + (cons __tmp17485 _args9653_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp9647_ + _rest9673_ + _bind9652_ + __tmp17484)))) + (___kont1663416635_ + (lambda () + (let ((__tmp17486 + (let ((__tmp17487 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gxc#compile-e _e9674_)))) + (declare (not safe)) + (cons __tmp17487 _args9653_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp9647_ + _rest9673_ + _bind9652_ + __tmp17486)))) + (___kont1663616637_ + (lambda () + (let ((_tmp9704_ + (make-symbol + (let () + (declare (not safe)) + (gensym '__tmp))))) + (let ((__tmp17489 + (let ((__tmp17490 + (let ((__tmp17491 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17492 + (let () + (declare (not safe)) + (gxc#compile-e _e9674_)))) + (declare (not safe)) + (cons __tmp17492 '())))) + (declare (not safe)) + (cons _tmp9704_ __tmp17491)))) + (declare (not safe)) + (cons __tmp17490 _bind9652_))) + (__tmp17488 + (let () (declare (not safe)) (cons _tmp9704_ _args9653_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp9647_ + _rest9673_ + __tmp17489 + __tmp17488)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx1663016631_)) + (let ((_e96839735_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx1663016631_)))) + (let ((_tl96819740_ + (let () + (declare (not safe)) + (##cdr _e96839735_))) + (_hd96829738_ + (let () + (declare (not safe)) + (##car _e96839735_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd96829738_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd96829738_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl96819740_)) + (let ((_e96869743_ + (let () + (declare (not safe)) + (gx#stx-e _tl96819740_)))) + (let ((_tl96849748_ + (let () + (declare (not safe)) + (##cdr _e96869743_))) + (_hd96859746_ + (let () + (declare (not safe)) + (##car _e96869743_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl96849748_)) + (___kont1663216633_) + (___kont1663616637_)))) + (___kont1663616637_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd96829738_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl96819740_)) + (let ((_e96929720_ + (let () + (declare (not safe)) + (gx#stx-e _tl96819740_)))) + (let ((_tl96909725_ + (let () + (declare (not safe)) + (##cdr _e96929720_))) + (_hd96919723_ + (let () + (declare (not safe)) + (##car _e96929720_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl96909725_)) + (___kont1663416635_) + (___kont1663616637_)))) + (___kont1663616637_)) + (___kont1663616637_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1663616637_)))) + (___kont1663616637_))))))) + (if (let () + (declare (not safe)) + (##pair? _rest96549662_)) + (let ((_hd96599759_ + (let () + (declare (not safe)) + (##car _rest96549662_))) + (_tl96609761_ + (let () + (declare (not safe)) + (##cdr _rest96549662_)))) + (let* ((_e9764_ _hd96599759_) + (_rest9766_ _tl96609761_)) + (declare (not safe)) + (_K96589756_ _rest9766_ _e9764_))) + (let () + (declare (not safe)) + (_else96569670_))))))))) + (___kont1668016681_ + (lambda () + (let () + (declare (not safe)) + (gxc#generate-runtime-call% _stx9559_))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx1667616677_)) + (let ((_e95689594_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1667616677_)))) + (let ((_tl95669599_ + (let () (declare (not safe)) (##cdr _e95689594_))) + (_hd95679597_ + (let () (declare (not safe)) (##car _e95689594_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl95669599_)) + (let ((_e95719602_ + (let () + (declare (not safe)) + (gx#stx-e _tl95669599_)))) + (let ((_tl95699607_ + (let () + (declare (not safe)) + (##cdr _e95719602_))) + (_hd95709605_ + (let () + (declare (not safe)) + (##car _e95719602_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd95709605_)) + (let ((_e95749610_ + (let () + (declare (not safe)) + (gx#stx-e _hd95709605_)))) + (let ((_tl95729615_ + (let () + (declare (not safe)) + (##cdr _e95749610_))) + (_hd95739613_ + (let () + (declare (not safe)) + (##car _e95749610_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd95739613_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd95739613_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl95729615_)) + (let ((_e95779618_ + (let () + (declare (not safe)) + (gx#stx-e + _tl95729615_)))) + (let ((_tl95759623_ + (let () + (declare (not safe)) + (##cdr _e95779618_))) + (_hd95769621_ + (let () + (declare (not safe)) + (##car _e95779618_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl95759623_)) + (___kont1667816679_ + _tl95699607_ + _hd95769621_) + (___kont1668016681_)))) + (___kont1668016681_)) + (___kont1668016681_)) + (___kont1668016681_)))) + (___kont1668016681_)))) + (___kont1668016681_)))) + (___kont1668016681_)))))) (define gxc#generate-runtime-if% - (lambda (_stx9331_) - (letrec ((_simplify9333_ - (lambda (_code9418_) - (let* ((_code94199437_ _code9418_) - (_else94219445_ (lambda () _code9418_)) - (_K94239481_ - (lambda (_expr9448_ _test9449_) - (let* ((_expr94509458_ _expr9448_) - (_else94529466_ + (lambda (_stx9372_) + (letrec ((_simplify9374_ + (lambda (_code9459_) + (let* ((_code94609478_ _code9459_) + (_else94629486_ (lambda () _code9459_)) + (_K94649522_ + (lambda (_expr9489_ _test9490_) + (let* ((_expr94919499_ _expr9489_) + (_else94939507_ (lambda () - (cons 'and - (cons _test9449_ - (cons _expr9448_ '()))))) - (_K94549471_ - (lambda (_exprs9469_) - (cons 'and - (cons _test9449_ _exprs9469_))))) + (let ((__tmp17493 + (let ((__tmp17494 + (let () + (declare (not safe)) + (cons _expr9489_ + '())))) + (declare (not safe)) + (cons _test9490_ + __tmp17494)))) + (declare (not safe)) + (cons 'and __tmp17493)))) + (_K94959512_ + (lambda (_exprs9510_) + (let ((__tmp17495 + (let () + (declare (not safe)) + (cons _test9490_ + _exprs9510_)))) + (declare (not safe)) + (cons 'and __tmp17495))))) (if (let () (declare (not safe)) - (##pair? _expr94509458_)) - (let ((_hd94559474_ + (##pair? _expr94919499_)) + (let ((_hd94969515_ (let () (declare (not safe)) - (##car _expr94509458_))) - (_tl94569476_ + (##car _expr94919499_))) + (_tl94979517_ (let () (declare (not safe)) - (##cdr _expr94509458_)))) + (##cdr _expr94919499_)))) (if (let () (declare (not safe)) - (##eq? _hd94559474_ 'and)) - (let ((_exprs9479_ _tl94569476_)) - (_K94549471_ _exprs9479_)) - (_else94529466_))) - (_else94529466_)))))) + (##eq? _hd94969515_ 'and)) + (let ((_exprs9520_ _tl94979517_)) + (declare (not safe)) + (_K94959512_ _exprs9520_)) + (let () + (declare (not safe)) + (_else94939507_)))) + (let () + (declare (not safe)) + (_else94939507_))))))) (if (let () (declare (not safe)) - (##pair? _code94199437_)) - (let ((_hd94249484_ + (##pair? _code94609478_)) + (let ((_hd94659525_ (let () (declare (not safe)) - (##car _code94199437_))) - (_tl94259486_ + (##car _code94609478_))) + (_tl94669527_ (let () (declare (not safe)) - (##cdr _code94199437_)))) + (##cdr _code94609478_)))) (if (let () (declare (not safe)) - (##eq? _hd94249484_ 'if)) + (##eq? _hd94659525_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl94259486_)) - (let ((_hd94269489_ + (##pair? _tl94669527_)) + (let ((_hd94679530_ (let () (declare (not safe)) - (##car _tl94259486_))) - (_tl94279491_ + (##car _tl94669527_))) + (_tl94689532_ (let () (declare (not safe)) - (##cdr _tl94259486_)))) - (let ((_test9494_ _hd94269489_)) + (##cdr _tl94669527_)))) + (let ((_test9535_ _hd94679530_)) (if (let () (declare (not safe)) - (##pair? _tl94279491_)) - (let ((_hd94289496_ + (##pair? _tl94689532_)) + (let ((_hd94699537_ (let () (declare (not safe)) - (##car _tl94279491_))) - (_tl94299498_ + (##car _tl94689532_))) + (_tl94709539_ (let () (declare (not safe)) - (##cdr _tl94279491_)))) - (let ((_expr9501_ _hd94289496_)) + (##cdr _tl94689532_)))) + (let ((_expr9542_ _hd94699537_)) (if (let () (declare (not safe)) - (##pair? _tl94299498_)) - (let ((_hd94309503_ + (##pair? _tl94709539_)) + (let ((_hd94719544_ (let () (declare (not safe)) - (##car _tl94299498_))) - (_tl94319505_ + (##car _tl94709539_))) + (_tl94729546_ (let () (declare (not safe)) - (##cdr _tl94299498_)))) + (##cdr _tl94709539_)))) (if (let () (declare (not safe)) - (##pair? _hd94309503_)) - (let ((_hd94329508_ + (##pair? _hd94719544_)) + (let ((_hd94739549_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _hd94309503_))) - (_tl94339510_ - (let () (declare (not safe)) (##cdr _hd94309503_)))) + (let () (declare (not safe)) (##car _hd94719544_))) + (_tl94749551_ + (let () (declare (not safe)) (##cdr _hd94719544_)))) (if (let () (declare (not safe)) - (##eq? _hd94329508_ 'quote)) + (##eq? _hd94739549_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl94339510_)) - (let ((_hd94349513_ + (##pair? _tl94749551_)) + (let ((_hd94759554_ (let () (declare (not safe)) - (##car _tl94339510_))) - (_tl94359515_ + (##car _tl94749551_))) + (_tl94769556_ (let () (declare (not safe)) - (##cdr _tl94339510_)))) + (##cdr _tl94749551_)))) (if (let () (declare (not safe)) - (##eq? _hd94349513_ '#f)) + (##eq? _hd94759554_ '#f)) (if (let () (declare (not safe)) - (##null? _tl94359515_)) + (##null? _tl94769556_)) (if (let () (declare (not safe)) - (##null? _tl94319505_)) - (_K94239481_ _expr9501_ _test9494_) - (_else94219445_)) - (_else94219445_)) - (_else94219445_))) - (_else94219445_)) - (_else94219445_))) - (_else94219445_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else94219445_)))) - (_else94219445_)))) - (_else94219445_)) - (_else94219445_))) - (_else94219445_)))))) - (let* ((_g93359356_ - (lambda (_g93369353_) - (gx#raise-syntax-error '#f '"Bad syntax" _g93369353_))) - (_g93349415_ - (lambda (_g93369359_) - (if (gx#stx-pair? _g93369359_) - (let ((_e93409361_ (gx#stx-e _g93369359_))) - (let ((_hd93419364_ + (##null? _tl94729546_)) + (let () + (declare (not safe)) + (_K94649522_ + _expr9542_ + _test9535_)) + (let () + (declare (not safe)) + (_else94629486_))) + (let () + (declare (not safe)) + (_else94629486_))) + (let () + (declare (not safe)) + (_else94629486_)))) + (let () (declare (not safe)) (_else94629486_))) + (let () (declare (not safe)) (_else94629486_)))) + (let () (declare (not safe)) (_else94629486_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_else94629486_))))) + (let () + (declare (not safe)) + (_else94629486_))))) + (let () + (declare (not safe)) + (_else94629486_))) + (let () + (declare (not safe)) + (_else94629486_)))) + (let () (declare (not safe)) (_else94629486_))))))) + (let* ((_g93769397_ + (lambda (_g93779394_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g93779394_)))) + (_g93759456_ + (lambda (_g93779400_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g93779400_)) + (let ((_e93839402_ + (let () + (declare (not safe)) + (gx#stx-e _g93779400_)))) + (let ((_hd93829405_ (let () (declare (not safe)) - (##car _e93409361_))) - (_tl93429366_ + (##car _e93839402_))) + (_tl93819407_ (let () (declare (not safe)) - (##cdr _e93409361_)))) - (if (gx#stx-pair? _tl93429366_) - (let ((_e93439369_ (gx#stx-e _tl93429366_))) - (let ((_hd93449372_ + (##cdr _e93839402_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl93819407_)) + (let ((_e93869410_ + (let () + (declare (not safe)) + (gx#stx-e _tl93819407_)))) + (let ((_hd93859413_ (let () (declare (not safe)) - (##car _e93439369_))) - (_tl93459374_ + (##car _e93869410_))) + (_tl93849415_ (let () (declare (not safe)) - (##cdr _e93439369_)))) - (if (gx#stx-pair? _tl93459374_) - (let ((_e93469377_ - (gx#stx-e _tl93459374_))) - (let ((_hd93479380_ + (##cdr _e93869410_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl93849415_)) + (let ((_e93899418_ + (let () + (declare (not safe)) + (gx#stx-e _tl93849415_)))) + (let ((_hd93889421_ (let () (declare (not safe)) - (##car _e93469377_))) - (_tl93489382_ + (##car _e93899418_))) + (_tl93879423_ (let () (declare (not safe)) - (##cdr _e93469377_)))) - (if (gx#stx-pair? _tl93489382_) - (let ((_e93499385_ - (gx#stx-e - _tl93489382_))) - (let ((_hd93509388_ + (##cdr _e93899418_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl93879423_)) + (let ((_e93929426_ + (let () + (declare (not safe)) + (gx#stx-e + _tl93879423_)))) + (let ((_hd93919429_ (let () (declare (not safe)) - (##car _e93499385_))) - (_tl93519390_ + (##car _e93929426_))) + (_tl93909431_ (let () (declare (not safe)) - (##cdr _e93499385_)))) - (if (gx#stx-null? - _tl93519390_) - ((lambda (_L9393_ + (##cdr _e93929426_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl93909431_)) + ((lambda (_L9434_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L9394_ - _L9395_) + _L9435_ + _L9436_) (if (gxc#current-compile-boolean-context) - (_simplify9333_ - (cons 'if - (cons (gxc#compile-e _L9395_) - (cons (gxc#compile-e _L9394_) - (cons (gxc#compile-e _L9393_) - '()))))) - (cons 'if - (cons (call-with-parameters - (lambda () (gxc#compile-e _L9395_)) - gxc#current-compile-boolean-context - '#t) - (cons (gxc#compile-e _L9394_) - (cons (gxc#compile-e _L9393_) - '())))))) - _hd93509388_ - _hd93479380_ - _hd93449372_) - (_g93359356_ _g93369359_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g93359356_ _g93369359_)))) - (_g93359356_ _g93369359_)))) - (_g93359356_ _g93369359_)))) - (_g93359356_ _g93369359_))))) - (_g93349415_ _stx9331_))))) + (let ((__tmp17503 + (let ((__tmp17504 + (let ((__tmp17509 + (let () + (declare (not safe)) + (gxc#compile-e _L9436_))) + (__tmp17505 + (let ((__tmp17508 + (let () + (declare (not safe)) + (gxc#compile-e _L9435_))) + (__tmp17506 + (let ((__tmp17507 + (let () + (declare + (not safe)) + (gxc#compile-e + _L9434_)))) + (declare (not safe)) + (cons __tmp17507 '())))) + (declare (not safe)) + (cons __tmp17508 __tmp17506)))) + (declare (not safe)) + (cons __tmp17509 __tmp17505)))) + (declare (not safe)) + (cons 'if __tmp17504)))) + (declare (not safe)) + (_simplify9374_ __tmp17503)) + (let ((__tmp17496 + (let ((__tmp17501 + (let ((__tmp17502 + (lambda () + (let () + (declare (not safe)) + (gxc#compile-e _L9436_))))) + (declare (not safe)) + (call-with-parameters + __tmp17502 + gxc#current-compile-boolean-context + '#t))) + (__tmp17497 + (let ((__tmp17500 + (let () + (declare (not safe)) + (gxc#compile-e _L9435_))) + (__tmp17498 + (let ((__tmp17499 + (let () + (declare (not safe)) + (gxc#compile-e _L9434_)))) + (declare (not safe)) + (cons __tmp17499 '())))) + (declare (not safe)) + (cons __tmp17500 __tmp17498)))) + (declare (not safe)) + (cons __tmp17501 __tmp17497)))) + (declare (not safe)) + (cons 'if __tmp17496)))) + _hd93919429_ + _hd93889421_ + _hd93859413_) + (let () (declare (not safe)) (_g93769397_ _g93779400_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g93769397_ _g93779400_))))) + (let () + (declare (not safe)) + (_g93769397_ _g93779400_))))) + (let () + (declare (not safe)) + (_g93769397_ _g93779400_))))) + (let () + (declare (not safe)) + (_g93769397_ _g93779400_)))))) + (declare (not safe)) + (_g93759456_ _stx9372_))))) (define gxc#generate-runtime-ref% - (lambda (_stx9280_) - (let* ((_g92829295_ - (lambda (_g92839292_) - (gx#raise-syntax-error '#f '"Bad syntax" _g92839292_))) - (_g92819328_ - (lambda (_g92839298_) - (if (gx#stx-pair? _g92839298_) - (let ((_e92859300_ (gx#stx-e _g92839298_))) - (let ((_hd92869303_ + (lambda (_stx9321_) + (let* ((_g93239336_ + (lambda (_g93249333_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g93249333_)))) + (_g93229369_ + (lambda (_g93249339_) + (if (let () (declare (not safe)) (gx#stx-pair? _g93249339_)) + (let ((_e93289341_ + (let () + (declare (not safe)) + (gx#stx-e _g93249339_)))) + (let ((_hd93279344_ (let () (declare (not safe)) - (##car _e92859300_))) - (_tl92879305_ + (##car _e93289341_))) + (_tl93269346_ (let () (declare (not safe)) - (##cdr _e92859300_)))) - (if (gx#stx-pair? _tl92879305_) - (let ((_e92889308_ (gx#stx-e _tl92879305_))) - (let ((_hd92899311_ + (##cdr _e93289341_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl93269346_)) + (let ((_e93319349_ + (let () + (declare (not safe)) + (gx#stx-e _tl93269346_)))) + (let ((_hd93309352_ (let () (declare (not safe)) - (##car _e92889308_))) - (_tl92909313_ + (##car _e93319349_))) + (_tl93299354_ (let () (declare (not safe)) - (##cdr _e92889308_)))) - (if (gx#stx-null? _tl92909313_) - ((lambda (_L9316_) - (gxc#generate-runtime-binding-id - _L9316_)) - _hd92899311_) - (_g92829295_ _g92839298_)))) - (_g92829295_ _g92839298_)))) - (_g92829295_ _g92839298_))))) - (_g92819328_ _stx9280_)))) + (##cdr _e93319349_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl93299354_)) + ((lambda (_L9357_) + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id + _L9357_))) + _hd93309352_) + (let () + (declare (not safe)) + (_g93239336_ _g93249339_))))) + (let () + (declare (not safe)) + (_g93239336_ _g93249339_))))) + (let () + (declare (not safe)) + (_g93239336_ _g93249339_)))))) + (declare (not safe)) + (_g93229369_ _stx9321_)))) (define gxc#generate-runtime-setq% - (lambda (_stx9213_) - (let* ((_g92159232_ - (lambda (_g92169229_) - (gx#raise-syntax-error '#f '"Bad syntax" _g92169229_))) - (_g92149277_ - (lambda (_g92169235_) - (if (gx#stx-pair? _g92169235_) - (let ((_e92199237_ (gx#stx-e _g92169235_))) - (let ((_hd92209240_ + (lambda (_stx9254_) + (let* ((_g92569273_ + (lambda (_g92579270_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g92579270_)))) + (_g92559318_ + (lambda (_g92579276_) + (if (let () (declare (not safe)) (gx#stx-pair? _g92579276_)) + (let ((_e92629278_ + (let () + (declare (not safe)) + (gx#stx-e _g92579276_)))) + (let ((_hd92619281_ (let () (declare (not safe)) - (##car _e92199237_))) - (_tl92219242_ + (##car _e92629278_))) + (_tl92609283_ (let () (declare (not safe)) - (##cdr _e92199237_)))) - (if (gx#stx-pair? _tl92219242_) - (let ((_e92229245_ (gx#stx-e _tl92219242_))) - (let ((_hd92239248_ + (##cdr _e92629278_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl92609283_)) + (let ((_e92659286_ + (let () + (declare (not safe)) + (gx#stx-e _tl92609283_)))) + (let ((_hd92649289_ (let () (declare (not safe)) - (##car _e92229245_))) - (_tl92249250_ + (##car _e92659286_))) + (_tl92639291_ (let () (declare (not safe)) - (##cdr _e92229245_)))) - (if (gx#stx-pair? _tl92249250_) - (let ((_e92259253_ - (gx#stx-e _tl92249250_))) - (let ((_hd92269256_ + (##cdr _e92659286_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl92639291_)) + (let ((_e92689294_ + (let () + (declare (not safe)) + (gx#stx-e _tl92639291_)))) + (let ((_hd92679297_ (let () (declare (not safe)) - (##car _e92259253_))) - (_tl92279258_ + (##car _e92689294_))) + (_tl92669299_ (let () (declare (not safe)) - (##cdr _e92259253_)))) - (if (gx#stx-null? _tl92279258_) - ((lambda (_L9261_ _L9262_) - (cons 'set! - (cons (gxc#generate-runtime-binding-id - _L9262_) - (cons (gxc#compile-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L9261_) - '())))) + (##cdr _e92689294_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl92669299_)) + ((lambda (_L9302_ _L9303_) + (let ((__tmp17510 + (let ((__tmp17513 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gxc#generate-runtime-binding-id _L9303_))) + (__tmp17511 + (let ((__tmp17512 + (let () + (declare (not safe)) + (gxc#compile-e _L9302_)))) + (declare (not safe)) + (cons __tmp17512 '())))) + (declare (not safe)) + (cons __tmp17513 __tmp17511)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd92269256_ - _hd92239248_) - (_g92159232_ _g92169235_)))) - (_g92159232_ _g92169235_)))) - (_g92159232_ _g92169235_)))) - (_g92159232_ _g92169235_))))) - (_g92149277_ _stx9213_)))) + (declare (not safe)) + (cons 'set! __tmp17510))) + _hd92679297_ + _hd92649289_) + (let () + (declare (not safe)) + (_g92569273_ _g92579276_))))) + (let () + (declare (not safe)) + (_g92569273_ _g92579276_))))) + (let () + (declare (not safe)) + (_g92569273_ _g92579276_))))) + (let () + (declare (not safe)) + (_g92569273_ _g92579276_)))))) + (declare (not safe)) + (_g92559318_ _stx9254_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_stx9025_) - (let* ((_g90279044_ - (lambda (_g90289041_) - (gx#raise-syntax-error '#f '"Bad syntax" _g90289041_))) - (_g90269210_ - (lambda (_g90289047_) - (if (gx#stx-pair? _g90289047_) - (let ((_e90319049_ (gx#stx-e _g90289047_))) - (let ((_hd90329052_ + (lambda (_stx9066_) + (let* ((_g90689085_ + (lambda (_g90699082_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g90699082_)))) + (_g90679251_ + (lambda (_g90699088_) + (if (let () (declare (not safe)) (gx#stx-pair? _g90699088_)) + (let ((_e90749090_ + (let () + (declare (not safe)) + (gx#stx-e _g90699088_)))) + (let ((_hd90739093_ (let () (declare (not safe)) - (##car _e90319049_))) - (_tl90339054_ + (##car _e90749090_))) + (_tl90729095_ (let () (declare (not safe)) - (##cdr _e90319049_)))) - (if (gx#stx-pair? _tl90339054_) - (let ((_e90349057_ (gx#stx-e _tl90339054_))) - (let ((_hd90359060_ + (##cdr _e90749090_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl90729095_)) + (let ((_e90779098_ + (let () + (declare (not safe)) + (gx#stx-e _tl90729095_)))) + (let ((_hd90769101_ (let () (declare (not safe)) - (##car _e90349057_))) - (_tl90369062_ + (##car _e90779098_))) + (_tl90759103_ (let () (declare (not safe)) - (##cdr _e90349057_)))) - (if (gx#stx-pair? _tl90369062_) - (let ((_e90379065_ - (gx#stx-e _tl90369062_))) - (let ((_hd90389068_ + (##cdr _e90779098_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl90759103_)) + (let ((_e90809106_ + (let () + (declare (not safe)) + (gx#stx-e _tl90759103_)))) + (let ((_hd90799109_ (let () (declare (not safe)) - (##car _e90379065_))) - (_tl90399070_ + (##car _e90809106_))) + (_tl90789111_ (let () (declare (not safe)) - (##cdr _e90379065_)))) - (if (gx#stx-null? _tl90399070_) - ((lambda (_L9073_ _L9074_) - (if (gxc#current-compile-decls-unsafe?) - (cons '##structure-instance-of? - (cons (gxc#compile-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L9073_) - (cons (gxc#compile-e _L9074_) '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _lp9089_ ((_rest9092_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L9074_ (cons _L9073_ '()))) - (_bind9094_ '()) - (_args9095_ '())) - (let* ((_rest90969104_ _rest9092_) - (_else90989112_ + (##cdr _e90809106_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl90789111_)) + ((lambda (_L9114_ _L9115_) + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let ((__tmp17528 + (let ((__tmp17531 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#compile-e _L9114_))) + (__tmp17529 + (let ((__tmp17530 + (let () + (declare (not safe)) + (gxc#compile-e _L9115_)))) + (declare (not safe)) + (cons __tmp17530 '())))) + (declare (not safe)) + (cons __tmp17531 __tmp17529)))) + (declare (not safe)) + (cons '##structure-instance-of? __tmp17528)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let _lp9130_ ((_rest9133_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17527 + (let () + (declare (not safe)) + (cons _L9114_ '())))) + (declare (not safe)) + (cons _L9115_ __tmp17527))) + (_bind9135_ '()) + (_args9136_ '())) + (let* ((_rest91379145_ _rest9133_) + (_else91399153_ (lambda () - (cons 'let - (cons _bind9094_ - (cons '(declare (not safe)) - (cons (cons '##structure-instance-of? - _args9095_) - '())))))) - (_K91009198_ - (lambda (_rest9115_ _e9116_) - (let* ((___stx1637716378_ _e9116_) - (_g91219139_ + (let ((__tmp17514 + (let ((__tmp17515 + (let ((__tmp17516 + (let ((__tmp17517 + (let () + (declare (not safe)) + (cons '##structure-instance-of? + _args9136_)))) + (declare (not safe)) + (cons __tmp17517 '())))) + (declare (not safe)) + (cons '(declare (not safe)) + __tmp17516)))) + (declare (not safe)) + (cons _bind9135_ __tmp17515)))) + (declare (not safe)) + (cons 'let __tmp17514)))) + (_K91419239_ + (lambda (_rest9156_ _e9157_) + (let* ((___stx1671416715_ _e9157_) + (_g91629180_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1637716378_)))) - (let ((___kont1637916380_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1671416715_))))) + (let ((___kont1671616717_ (lambda () - (_lp9089_ - _rest9115_ - _bind9094_ - (cons (gxc#compile-e _e9116_) - _args9095_)))) - (___kont1638116382_ + (let ((__tmp17518 + (let ((__tmp17519 + (let () + (declare (not safe)) + (gxc#compile-e _e9157_)))) + (declare (not safe)) + (cons __tmp17519 _args9136_)))) + (declare (not safe)) + (_lp9130_ + _rest9156_ + _bind9135_ + __tmp17518)))) + (___kont1671816719_ (lambda () - (_lp9089_ - _rest9115_ - _bind9094_ - (cons (gxc#compile-e _e9116_) - _args9095_)))) - (___kont1638316384_ + (let ((__tmp17520 + (let ((__tmp17521 + (let () + (declare (not safe)) + (gxc#compile-e _e9157_)))) + (declare (not safe)) + (cons __tmp17521 _args9136_)))) + (declare (not safe)) + (_lp9130_ + _rest9156_ + _bind9135_ + __tmp17520)))) + (___kont1672016721_ (lambda () - (let ((_tmp9146_ - (make-symbol (gensym '__tmp)))) - (_lp9089_ - _rest9115_ - (cons (cons _tmp9146_ - (cons (gxc#compile-e - _e9116_) - '())) - _bind9094_) - (cons _tmp9146_ _args9095_)))))) - (if (gx#stx-pair? ___stx1637716378_) - (let ((_e91239177_ - (gx#stx-e ___stx1637716378_))) - (let ((_tl91259182_ + (let ((_tmp9187_ + (make-symbol + (let () + (declare (not safe)) + (gensym '__tmp))))) + (let ((__tmp17523 + (let ((__tmp17524 + (let ((__tmp17525 + (let ((__tmp17526 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#compile-e _e9157_)))) + (declare (not safe)) + (cons __tmp17526 '())))) + (declare (not safe)) + (cons _tmp9187_ __tmp17525)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17524 _bind9135_))) + (__tmp17522 + (let () + (declare (not safe)) + (cons _tmp9187_ _args9136_)))) + (declare (not safe)) + (_lp9130_ + _rest9156_ + __tmp17523 + __tmp17522)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1671416715_)) + (let ((_e91669218_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1671416715_)))) + (let ((_tl91649223_ (let () (declare (not safe)) - (##cdr _e91239177_))) - (_hd91249180_ + (##cdr _e91669218_))) + (_hd91659221_ (let () (declare (not safe)) - (##car _e91239177_)))) - (if (gx#identifier? _hd91249180_) - (if (gx#stx-eq? '%#ref _hd91249180_) - (if (gx#stx-pair? _tl91259182_) - (let ((_e91269185_ - (gx#stx-e - _tl91259182_))) - (let ((_tl91289190_ + (##car _e91669218_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd91659221_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd91659221_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl91649223_)) + (let ((_e91699226_ + (let () + (declare (not safe)) + (gx#stx-e + _tl91649223_)))) + (let ((_tl91679231_ (let () (declare (not safe)) - (##cdr _e91269185_))) - (_hd91279188_ + (##cdr _e91699226_))) + (_hd91689229_ (let () (declare (not safe)) - (##car _e91269185_)))) - (if (gx#stx-null? - _tl91289190_) - (___kont1637916380_) - (___kont1638316384_)))) - (___kont1638316384_)) - (if (gx#stx-eq? - '%#quote - _hd91249180_) - (if (gx#stx-pair? - _tl91259182_) - (let ((_e91329162_ - (gx#stx-e - _tl91259182_))) - (let ((_tl91349167_ + (##car _e91699226_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl91679231_)) + (___kont1671616717_) + (___kont1672016721_)))) + (___kont1672016721_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd91659221_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl91649223_)) + (let ((_e91759203_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl91649223_)))) + (let ((_tl91739208_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e91329162_))) - (_hd91339165_ - (let () (declare (not safe)) (##car _e91329162_)))) - (if (gx#stx-null? _tl91349167_) - (___kont1638116382_) - (___kont1638316384_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1638316384_)) - (___kont1638316384_))) - (___kont1638316384_)))) - (___kont1638316384_))))))) - (if (let () (declare (not safe)) (##pair? _rest90969104_)) - (let ((_hd91019201_ + (##cdr _e91759203_))) + (_hd91749206_ + (let () (declare (not safe)) (##car _e91759203_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl91739208_)) + (___kont1671816719_) + (___kont1672016721_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1672016721_)) + (___kont1672016721_))) + (___kont1672016721_)))) + (___kont1672016721_))))))) + (if (let () (declare (not safe)) (##pair? _rest91379145_)) + (let ((_hd91429242_ (let () (declare (not safe)) - (##car _rest90969104_))) - (_tl91029203_ + (##car _rest91379145_))) + (_tl91439244_ (let () (declare (not safe)) - (##cdr _rest90969104_)))) - (let* ((_e9206_ _hd91019201_) (_rest9208_ _tl91029203_)) - (_K91009198_ _rest9208_ _e9206_))) - (_else90989112_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd90389068_ - _hd90359060_) - (_g90279044_ _g90289047_)))) - (_g90279044_ _g90289047_)))) - (_g90279044_ _g90289047_)))) - (_g90279044_ _g90289047_))))) - (_g90269210_ _stx9025_)))) + (##cdr _rest91379145_)))) + (let* ((_e9247_ _hd91429242_) (_rest9249_ _tl91439244_)) + (declare (not safe)) + (_K91419239_ _rest9249_ _e9247_))) + (let () (declare (not safe)) (_else91399153_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd90799109_ + _hd90769101_) + (let () + (declare (not safe)) + (_g90689085_ _g90699088_))))) + (let () + (declare (not safe)) + (_g90689085_ _g90699088_))))) + (let () + (declare (not safe)) + (_g90689085_ _g90699088_))))) + (let () + (declare (not safe)) + (_g90689085_ _g90699088_)))))) + (declare (not safe)) + (_g90679251_ _stx9066_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_stx8837_) - (let* ((_g88398856_ - (lambda (_g88408853_) - (gx#raise-syntax-error '#f '"Bad syntax" _g88408853_))) - (_g88389022_ - (lambda (_g88408859_) - (if (gx#stx-pair? _g88408859_) - (let ((_e88438861_ (gx#stx-e _g88408859_))) - (let ((_hd88448864_ + (lambda (_stx8878_) + (let* ((_g88808897_ + (lambda (_g88818894_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g88818894_)))) + (_g88799063_ + (lambda (_g88818900_) + (if (let () (declare (not safe)) (gx#stx-pair? _g88818900_)) + (let ((_e88868902_ + (let () + (declare (not safe)) + (gx#stx-e _g88818900_)))) + (let ((_hd88858905_ (let () (declare (not safe)) - (##car _e88438861_))) - (_tl88458866_ + (##car _e88868902_))) + (_tl88848907_ (let () (declare (not safe)) - (##cdr _e88438861_)))) - (if (gx#stx-pair? _tl88458866_) - (let ((_e88468869_ (gx#stx-e _tl88458866_))) - (let ((_hd88478872_ + (##cdr _e88868902_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl88848907_)) + (let ((_e88898910_ + (let () + (declare (not safe)) + (gx#stx-e _tl88848907_)))) + (let ((_hd88888913_ (let () (declare (not safe)) - (##car _e88468869_))) - (_tl88488874_ + (##car _e88898910_))) + (_tl88878915_ (let () (declare (not safe)) - (##cdr _e88468869_)))) - (if (gx#stx-pair? _tl88488874_) - (let ((_e88498877_ - (gx#stx-e _tl88488874_))) - (let ((_hd88508880_ + (##cdr _e88898910_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl88878915_)) + (let ((_e88928918_ + (let () + (declare (not safe)) + (gx#stx-e _tl88878915_)))) + (let ((_hd88918921_ (let () (declare (not safe)) - (##car _e88498877_))) - (_tl88518882_ + (##car _e88928918_))) + (_tl88908923_ (let () (declare (not safe)) - (##cdr _e88498877_)))) - (if (gx#stx-null? _tl88518882_) - ((lambda (_L8885_ _L8886_) - (if (gxc#current-compile-decls-unsafe?) - (cons '##structure-direct-instance-of? - (cons (gxc#compile-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L8885_) - (cons (gxc#compile-e _L8886_) '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _lp8901_ ((_rest8904_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L8886_ (cons _L8885_ '()))) - (_bind8906_ '()) - (_args8907_ '())) - (let* ((_rest89088916_ _rest8904_) - (_else89108924_ + (##cdr _e88928918_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl88908923_)) + ((lambda (_L8926_ _L8927_) + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let ((__tmp17546 + (let ((__tmp17549 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#compile-e _L8926_))) + (__tmp17547 + (let ((__tmp17548 + (let () + (declare (not safe)) + (gxc#compile-e _L8927_)))) + (declare (not safe)) + (cons __tmp17548 '())))) + (declare (not safe)) + (cons __tmp17549 __tmp17547)))) + (declare (not safe)) + (cons '##structure-direct-instance-of? __tmp17546)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let _lp8942_ ((_rest8945_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17545 + (let () + (declare (not safe)) + (cons _L8926_ '())))) + (declare (not safe)) + (cons _L8927_ __tmp17545))) + (_bind8947_ '()) + (_args8948_ '())) + (let* ((_rest89498957_ _rest8945_) + (_else89518965_ (lambda () - (cons 'let - (cons _bind8906_ - (cons '(declare (not safe)) - (cons (cons '##structure-direct-instance-of? - _args8907_) - '())))))) - (_K89129010_ - (lambda (_rest8927_ _e8928_) - (let* ((___stx1642316424_ _e8928_) - (_g89338951_ + (let ((__tmp17532 + (let ((__tmp17533 + (let ((__tmp17534 + (let ((__tmp17535 + (let () + (declare (not safe)) + (cons '##structure-direct-instance-of? + _args8948_)))) + (declare (not safe)) + (cons __tmp17535 '())))) + (declare (not safe)) + (cons '(declare (not safe)) + __tmp17534)))) + (declare (not safe)) + (cons _bind8947_ __tmp17533)))) + (declare (not safe)) + (cons 'let __tmp17532)))) + (_K89539051_ + (lambda (_rest8968_ _e8969_) + (let* ((___stx1676016761_ _e8969_) + (_g89748992_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1642316424_)))) - (let ((___kont1642516426_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1676016761_))))) + (let ((___kont1676216763_ (lambda () - (_lp8901_ - _rest8927_ - _bind8906_ - (cons (gxc#compile-e _e8928_) - _args8907_)))) - (___kont1642716428_ + (let ((__tmp17536 + (let ((__tmp17537 + (let () + (declare (not safe)) + (gxc#compile-e _e8969_)))) + (declare (not safe)) + (cons __tmp17537 _args8948_)))) + (declare (not safe)) + (_lp8942_ + _rest8968_ + _bind8947_ + __tmp17536)))) + (___kont1676416765_ (lambda () - (_lp8901_ - _rest8927_ - _bind8906_ - (cons (gxc#compile-e _e8928_) - _args8907_)))) - (___kont1642916430_ + (let ((__tmp17538 + (let ((__tmp17539 + (let () + (declare (not safe)) + (gxc#compile-e _e8969_)))) + (declare (not safe)) + (cons __tmp17539 _args8948_)))) + (declare (not safe)) + (_lp8942_ + _rest8968_ + _bind8947_ + __tmp17538)))) + (___kont1676616767_ (lambda () - (let ((_tmp8958_ - (make-symbol (gensym '__tmp)))) - (_lp8901_ - _rest8927_ - (cons (cons _tmp8958_ - (cons (gxc#compile-e - _e8928_) - '())) - _bind8906_) - (cons _tmp8958_ _args8907_)))))) - (if (gx#stx-pair? ___stx1642316424_) - (let ((_e89358989_ - (gx#stx-e ___stx1642316424_))) - (let ((_tl89378994_ + (let ((_tmp8999_ + (make-symbol + (let () + (declare (not safe)) + (gensym '__tmp))))) + (let ((__tmp17541 + (let ((__tmp17542 + (let ((__tmp17543 + (let ((__tmp17544 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#compile-e _e8969_)))) + (declare (not safe)) + (cons __tmp17544 '())))) + (declare (not safe)) + (cons _tmp8999_ __tmp17543)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17542 _bind8947_))) + (__tmp17540 + (let () + (declare (not safe)) + (cons _tmp8999_ _args8948_)))) + (declare (not safe)) + (_lp8942_ + _rest8968_ + __tmp17541 + __tmp17540)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1676016761_)) + (let ((_e89789030_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1676016761_)))) + (let ((_tl89769035_ (let () (declare (not safe)) - (##cdr _e89358989_))) - (_hd89368992_ + (##cdr _e89789030_))) + (_hd89779033_ (let () (declare (not safe)) - (##car _e89358989_)))) - (if (gx#identifier? _hd89368992_) - (if (gx#stx-eq? '%#ref _hd89368992_) - (if (gx#stx-pair? _tl89378994_) - (let ((_e89388997_ - (gx#stx-e - _tl89378994_))) - (let ((_tl89409002_ + (##car _e89789030_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd89779033_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd89779033_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl89769035_)) + (let ((_e89819038_ + (let () + (declare (not safe)) + (gx#stx-e + _tl89769035_)))) + (let ((_tl89799043_ (let () (declare (not safe)) - (##cdr _e89388997_))) - (_hd89399000_ + (##cdr _e89819038_))) + (_hd89809041_ (let () (declare (not safe)) - (##car _e89388997_)))) - (if (gx#stx-null? - _tl89409002_) - (___kont1642516426_) - (___kont1642916430_)))) - (___kont1642916430_)) - (if (gx#stx-eq? - '%#quote - _hd89368992_) - (if (gx#stx-pair? - _tl89378994_) - (let ((_e89448974_ - (gx#stx-e - _tl89378994_))) - (let ((_tl89468979_ + (##car _e89819038_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl89799043_)) + (___kont1676216763_) + (___kont1676616767_)))) + (___kont1676616767_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd89779033_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl89769035_)) + (let ((_e89879015_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl89769035_)))) + (let ((_tl89859020_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e89448974_))) - (_hd89458977_ - (let () (declare (not safe)) (##car _e89448974_)))) - (if (gx#stx-null? _tl89468979_) - (___kont1642716428_) - (___kont1642916430_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1642916430_)) - (___kont1642916430_))) - (___kont1642916430_)))) - (___kont1642916430_))))))) - (if (let () (declare (not safe)) (##pair? _rest89088916_)) - (let ((_hd89139013_ + (##cdr _e89879015_))) + (_hd89869018_ + (let () (declare (not safe)) (##car _e89879015_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl89859020_)) + (___kont1676416765_) + (___kont1676616767_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1676616767_)) + (___kont1676616767_))) + (___kont1676616767_)))) + (___kont1676616767_))))))) + (if (let () (declare (not safe)) (##pair? _rest89498957_)) + (let ((_hd89549054_ (let () (declare (not safe)) - (##car _rest89088916_))) - (_tl89149015_ + (##car _rest89498957_))) + (_tl89559056_ (let () (declare (not safe)) - (##cdr _rest89088916_)))) - (let* ((_e9018_ _hd89139013_) (_rest9020_ _tl89149015_)) - (_K89129010_ _rest9020_ _e9018_))) - (_else89108924_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd88508880_ - _hd88478872_) - (_g88398856_ _g88408859_)))) - (_g88398856_ _g88408859_)))) - (_g88398856_ _g88408859_)))) - (_g88398856_ _g88408859_))))) - (_g88389022_ _stx8837_)))) + (##cdr _rest89498957_)))) + (let* ((_e9059_ _hd89549054_) (_rest9061_ _tl89559056_)) + (declare (not safe)) + (_K89539051_ _rest9061_ _e9059_))) + (let () (declare (not safe)) (_else89518965_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd88918921_ + _hd88888913_) + (let () + (declare (not safe)) + (_g88808897_ _g88818900_))))) + (let () + (declare (not safe)) + (_g88808897_ _g88818900_))))) + (let () + (declare (not safe)) + (_g88808897_ _g88818900_))))) + (let () + (declare (not safe)) + (_g88808897_ _g88818900_)))))) + (declare (not safe)) + (_g88799063_ _stx8878_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_stx8754_) - (let* ((_g87568777_ - (lambda (_g87578774_) - (gx#raise-syntax-error '#f '"Bad syntax" _g87578774_))) - (_g87558834_ - (lambda (_g87578780_) - (if (gx#stx-pair? _g87578780_) - (let ((_e87618782_ (gx#stx-e _g87578780_))) - (let ((_hd87628785_ + (lambda (_stx8795_) + (let* ((_g87978818_ + (lambda (_g87988815_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g87988815_)))) + (_g87968875_ + (lambda (_g87988821_) + (if (let () (declare (not safe)) (gx#stx-pair? _g87988821_)) + (let ((_e88048823_ + (let () + (declare (not safe)) + (gx#stx-e _g87988821_)))) + (let ((_hd88038826_ (let () (declare (not safe)) - (##car _e87618782_))) - (_tl87638787_ + (##car _e88048823_))) + (_tl88028828_ (let () (declare (not safe)) - (##cdr _e87618782_)))) - (if (gx#stx-pair? _tl87638787_) - (let ((_e87648790_ (gx#stx-e _tl87638787_))) - (let ((_hd87658793_ + (##cdr _e88048823_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl88028828_)) + (let ((_e88078831_ + (let () + (declare (not safe)) + (gx#stx-e _tl88028828_)))) + (let ((_hd88068834_ (let () (declare (not safe)) - (##car _e87648790_))) - (_tl87668795_ + (##car _e88078831_))) + (_tl88058836_ (let () (declare (not safe)) - (##cdr _e87648790_)))) - (if (gx#stx-pair? _tl87668795_) - (let ((_e87678798_ - (gx#stx-e _tl87668795_))) - (let ((_hd87688801_ + (##cdr _e88078831_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl88058836_)) + (let ((_e88108839_ + (let () + (declare (not safe)) + (gx#stx-e _tl88058836_)))) + (let ((_hd88098842_ (let () (declare (not safe)) - (##car _e87678798_))) - (_tl87698803_ + (##car _e88108839_))) + (_tl88088844_ (let () (declare (not safe)) - (##cdr _e87678798_)))) - (if (gx#stx-pair? _tl87698803_) - (let ((_e87708806_ - (gx#stx-e _tl87698803_))) - (let ((_hd87718809_ + (##cdr _e88108839_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl88088844_)) + (let ((_e88138847_ + (let () + (declare (not safe)) + (gx#stx-e + _tl88088844_)))) + (let ((_hd88128850_ (let () (declare (not safe)) - (##car _e87708806_))) - (_tl87728811_ + (##car _e88138847_))) + (_tl88118852_ (let () (declare (not safe)) - (##cdr _e87708806_)))) - (if (gx#stx-null? - _tl87728811_) - ((lambda (_L8814_ - _L8815_ - _L8816_) - (cons '##structure-ref - (cons (gxc#compile-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L8814_) - (cons (gxc#compile-e _L8815_) - (cons (gxc#compile-e _L8816_) - (cons ''#f '())))))) - _hd87718809_ - _hd87688801_ - _hd87658793_) - (_g87568777_ _g87578780_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g87568777_ _g87578780_)))) - (_g87568777_ _g87578780_)))) - (_g87568777_ _g87578780_)))) - (_g87568777_ _g87578780_))))) - (_g87558834_ _stx8754_)))) + (##cdr _e88138847_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl88118852_)) + ((lambda (_L8855_ + _L8856_ + _L8857_) + (let ((__tmp17550 + (let ((__tmp17556 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#compile-e _L8855_))) + (__tmp17551 + (let ((__tmp17555 + (let () + (declare (not safe)) + (gxc#compile-e _L8856_))) + (__tmp17552 + (let ((__tmp17554 + (let () + (declare (not safe)) + (gxc#compile-e _L8857_))) + (__tmp17553 + (let () + (declare (not safe)) + (cons ''#f '())))) + (declare (not safe)) + (cons __tmp17554 __tmp17553)))) + (declare (not safe)) + (cons __tmp17555 __tmp17552)))) + (declare (not safe)) + (cons __tmp17556 __tmp17551)))) + (declare (not safe)) + (cons '##structure-ref __tmp17550))) + _hd88128850_ + _hd88098842_ + _hd88068834_) + (let () (declare (not safe)) (_g87978818_ _g87988821_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g87978818_ _g87988821_))))) + (let () + (declare (not safe)) + (_g87978818_ _g87988821_))))) + (let () + (declare (not safe)) + (_g87978818_ _g87988821_))))) + (let () + (declare (not safe)) + (_g87978818_ _g87988821_)))))) + (declare (not safe)) + (_g87968875_ _stx8795_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_stx8655_) - (let* ((_g86578682_ - (lambda (_g86588679_) - (gx#raise-syntax-error '#f '"Bad syntax" _g86588679_))) - (_g86568751_ - (lambda (_g86588685_) - (if (gx#stx-pair? _g86588685_) - (let ((_e86638687_ (gx#stx-e _g86588685_))) - (let ((_hd86648690_ + (lambda (_stx8696_) + (let* ((_g86988723_ + (lambda (_g86998720_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g86998720_)))) + (_g86978792_ + (lambda (_g86998726_) + (if (let () (declare (not safe)) (gx#stx-pair? _g86998726_)) + (let ((_e87068728_ + (let () + (declare (not safe)) + (gx#stx-e _g86998726_)))) + (let ((_hd87058731_ (let () (declare (not safe)) - (##car _e86638687_))) - (_tl86658692_ + (##car _e87068728_))) + (_tl87048733_ (let () (declare (not safe)) - (##cdr _e86638687_)))) - (if (gx#stx-pair? _tl86658692_) - (let ((_e86668695_ (gx#stx-e _tl86658692_))) - (let ((_hd86678698_ + (##cdr _e87068728_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl87048733_)) + (let ((_e87098736_ + (let () + (declare (not safe)) + (gx#stx-e _tl87048733_)))) + (let ((_hd87088739_ (let () (declare (not safe)) - (##car _e86668695_))) - (_tl86688700_ + (##car _e87098736_))) + (_tl87078741_ (let () (declare (not safe)) - (##cdr _e86668695_)))) - (if (gx#stx-pair? _tl86688700_) - (let ((_e86698703_ - (gx#stx-e _tl86688700_))) - (let ((_hd86708706_ + (##cdr _e87098736_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl87078741_)) + (let ((_e87128744_ + (let () + (declare (not safe)) + (gx#stx-e _tl87078741_)))) + (let ((_hd87118747_ (let () (declare (not safe)) - (##car _e86698703_))) - (_tl86718708_ + (##car _e87128744_))) + (_tl87108749_ (let () (declare (not safe)) - (##cdr _e86698703_)))) - (if (gx#stx-pair? _tl86718708_) - (let ((_e86728711_ - (gx#stx-e _tl86718708_))) - (let ((_hd86738714_ + (##cdr _e87128744_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl87108749_)) + (let ((_e87158752_ + (let () + (declare (not safe)) + (gx#stx-e + _tl87108749_)))) + (let ((_hd87148755_ (let () (declare (not safe)) - (##car _e86728711_))) - (_tl86748716_ + (##car _e87158752_))) + (_tl87138757_ (let () (declare (not safe)) - (##cdr _e86728711_)))) - (if (gx#stx-pair? - _tl86748716_) - (let ((_e86758719_ - (gx#stx-e - _tl86748716_))) - (let ((_hd86768722_ - (let () + (##cdr _e87158752_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl87138757_)) + (let ((_e87188760_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e86758719_))) - (_tl86778724_ - (let () (declare (not safe)) (##cdr _e86758719_)))) - (if (gx#stx-null? _tl86778724_) - ((lambda (_L8727_ _L8728_ _L8729_ _L8730_) - (cons '##structure-set! - (cons (gxc#compile-e _L8728_) - (cons (gxc#compile-e _L8727_) - (cons (gxc#compile-e _L8729_) - (cons (gxc#compile-e _L8730_) - (cons ''#f '()))))))) - _hd86768722_ - _hd86738714_ - _hd86708706_ - _hd86678698_) - (_g86578682_ _g86588685_)))) - (_g86578682_ _g86588685_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g86578682_ _g86588685_)))) - (_g86578682_ _g86588685_)))) - (_g86578682_ _g86588685_)))) - (_g86578682_ _g86588685_))))) - (_g86568751_ _stx8655_)))) + (not safe)) + (gx#stx-e _tl87138757_)))) + (let ((_hd87178763_ + (let () (declare (not safe)) (##car _e87188760_))) + (_tl87168765_ + (let () (declare (not safe)) (##cdr _e87188760_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl87168765_)) + ((lambda (_L8768_ _L8769_ _L8770_ _L8771_) + (let ((__tmp17557 + (let ((__tmp17565 + (let () + (declare (not safe)) + (gxc#compile-e _L8769_))) + (__tmp17558 + (let ((__tmp17564 + (let () + (declare (not safe)) + (gxc#compile-e _L8768_))) + (__tmp17559 + (let ((__tmp17563 + (let () + (declare (not safe)) + (gxc#compile-e + _L8770_))) + (__tmp17560 + (let ((__tmp17562 + (let () + (declare + (not safe)) + (gxc#compile-e + _L8771_))) + (__tmp17561 + (let () + (declare + (not safe)) + (cons ''#f +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons __tmp17562 __tmp17561)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17563 __tmp17560)))) + (declare (not safe)) + (cons __tmp17564 __tmp17559)))) + (declare (not safe)) + (cons __tmp17565 __tmp17558)))) + (declare (not safe)) + (cons '##structure-set! __tmp17557))) + _hd87178763_ + _hd87148755_ + _hd87118747_ + _hd87088739_) + (let () + (declare (not safe)) + (_g86988723_ _g86998726_))))) + (let () (declare (not safe)) (_g86988723_ _g86998726_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g86988723_ _g86998726_))))) + (let () + (declare (not safe)) + (_g86988723_ _g86998726_))))) + (let () + (declare (not safe)) + (_g86988723_ _g86998726_))))) + (let () + (declare (not safe)) + (_g86988723_ _g86998726_)))))) + (declare (not safe)) + (_g86978792_ _stx8696_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_stx8572_) - (let* ((_g85748595_ - (lambda (_g85758592_) - (gx#raise-syntax-error '#f '"Bad syntax" _g85758592_))) - (_g85738652_ - (lambda (_g85758598_) - (if (gx#stx-pair? _g85758598_) - (let ((_e85798600_ (gx#stx-e _g85758598_))) - (let ((_hd85808603_ + (lambda (_stx8613_) + (let* ((_g86158636_ + (lambda (_g86168633_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g86168633_)))) + (_g86148693_ + (lambda (_g86168639_) + (if (let () (declare (not safe)) (gx#stx-pair? _g86168639_)) + (let ((_e86228641_ + (let () + (declare (not safe)) + (gx#stx-e _g86168639_)))) + (let ((_hd86218644_ (let () (declare (not safe)) - (##car _e85798600_))) - (_tl85818605_ + (##car _e86228641_))) + (_tl86208646_ (let () (declare (not safe)) - (##cdr _e85798600_)))) - (if (gx#stx-pair? _tl85818605_) - (let ((_e85828608_ (gx#stx-e _tl85818605_))) - (let ((_hd85838611_ + (##cdr _e86228641_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl86208646_)) + (let ((_e86258649_ + (let () + (declare (not safe)) + (gx#stx-e _tl86208646_)))) + (let ((_hd86248652_ (let () (declare (not safe)) - (##car _e85828608_))) - (_tl85848613_ + (##car _e86258649_))) + (_tl86238654_ (let () (declare (not safe)) - (##cdr _e85828608_)))) - (if (gx#stx-pair? _tl85848613_) - (let ((_e85858616_ - (gx#stx-e _tl85848613_))) - (let ((_hd85868619_ + (##cdr _e86258649_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl86238654_)) + (let ((_e86288657_ + (let () + (declare (not safe)) + (gx#stx-e _tl86238654_)))) + (let ((_hd86278660_ (let () (declare (not safe)) - (##car _e85858616_))) - (_tl85878621_ + (##car _e86288657_))) + (_tl86268662_ (let () (declare (not safe)) - (##cdr _e85858616_)))) - (if (gx#stx-pair? _tl85878621_) - (let ((_e85888624_ - (gx#stx-e _tl85878621_))) - (let ((_hd85898627_ + (##cdr _e86288657_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl86268662_)) + (let ((_e86318665_ + (let () + (declare (not safe)) + (gx#stx-e + _tl86268662_)))) + (let ((_hd86308668_ (let () (declare (not safe)) - (##car _e85888624_))) - (_tl85908629_ + (##car _e86318665_))) + (_tl86298670_ (let () (declare (not safe)) - (##cdr _e85888624_)))) - (if (gx#stx-null? - _tl85908629_) - ((lambda (_L8632_ - _L8633_ - _L8634_) - (cons '##direct-structure-ref - (cons (gxc#compile-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L8632_) - (cons (gxc#compile-e _L8633_) - (cons (gxc#compile-e _L8634_) - (cons ''#f '())))))) - _hd85898627_ - _hd85868619_ - _hd85838611_) - (_g85748595_ _g85758598_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g85748595_ _g85758598_)))) - (_g85748595_ _g85758598_)))) - (_g85748595_ _g85758598_)))) - (_g85748595_ _g85758598_))))) - (_g85738652_ _stx8572_)))) + (##cdr _e86318665_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl86298670_)) + ((lambda (_L8673_ + _L8674_ + _L8675_) + (let ((__tmp17566 + (let ((__tmp17572 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#compile-e _L8673_))) + (__tmp17567 + (let ((__tmp17571 + (let () + (declare (not safe)) + (gxc#compile-e _L8674_))) + (__tmp17568 + (let ((__tmp17570 + (let () + (declare (not safe)) + (gxc#compile-e _L8675_))) + (__tmp17569 + (let () + (declare (not safe)) + (cons ''#f '())))) + (declare (not safe)) + (cons __tmp17570 __tmp17569)))) + (declare (not safe)) + (cons __tmp17571 __tmp17568)))) + (declare (not safe)) + (cons __tmp17572 __tmp17567)))) + (declare (not safe)) + (cons '##direct-structure-ref __tmp17566))) + _hd86308668_ + _hd86278660_ + _hd86248652_) + (let () (declare (not safe)) (_g86158636_ _g86168639_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g86158636_ _g86168639_))))) + (let () + (declare (not safe)) + (_g86158636_ _g86168639_))))) + (let () + (declare (not safe)) + (_g86158636_ _g86168639_))))) + (let () + (declare (not safe)) + (_g86158636_ _g86168639_)))))) + (declare (not safe)) + (_g86148693_ _stx8613_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_stx8473_) - (let* ((_g84758500_ - (lambda (_g84768497_) - (gx#raise-syntax-error '#f '"Bad syntax" _g84768497_))) - (_g84748569_ - (lambda (_g84768503_) - (if (gx#stx-pair? _g84768503_) - (let ((_e84818505_ (gx#stx-e _g84768503_))) - (let ((_hd84828508_ + (lambda (_stx8514_) + (let* ((_g85168541_ + (lambda (_g85178538_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g85178538_)))) + (_g85158610_ + (lambda (_g85178544_) + (if (let () (declare (not safe)) (gx#stx-pair? _g85178544_)) + (let ((_e85248546_ + (let () + (declare (not safe)) + (gx#stx-e _g85178544_)))) + (let ((_hd85238549_ (let () (declare (not safe)) - (##car _e84818505_))) - (_tl84838510_ + (##car _e85248546_))) + (_tl85228551_ (let () (declare (not safe)) - (##cdr _e84818505_)))) - (if (gx#stx-pair? _tl84838510_) - (let ((_e84848513_ (gx#stx-e _tl84838510_))) - (let ((_hd84858516_ + (##cdr _e85248546_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl85228551_)) + (let ((_e85278554_ + (let () + (declare (not safe)) + (gx#stx-e _tl85228551_)))) + (let ((_hd85268557_ (let () (declare (not safe)) - (##car _e84848513_))) - (_tl84868518_ + (##car _e85278554_))) + (_tl85258559_ (let () (declare (not safe)) - (##cdr _e84848513_)))) - (if (gx#stx-pair? _tl84868518_) - (let ((_e84878521_ - (gx#stx-e _tl84868518_))) - (let ((_hd84888524_ + (##cdr _e85278554_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl85258559_)) + (let ((_e85308562_ + (let () + (declare (not safe)) + (gx#stx-e _tl85258559_)))) + (let ((_hd85298565_ (let () (declare (not safe)) - (##car _e84878521_))) - (_tl84898526_ + (##car _e85308562_))) + (_tl85288567_ (let () (declare (not safe)) - (##cdr _e84878521_)))) - (if (gx#stx-pair? _tl84898526_) - (let ((_e84908529_ - (gx#stx-e _tl84898526_))) - (let ((_hd84918532_ + (##cdr _e85308562_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl85288567_)) + (let ((_e85338570_ + (let () + (declare (not safe)) + (gx#stx-e + _tl85288567_)))) + (let ((_hd85328573_ (let () (declare (not safe)) - (##car _e84908529_))) - (_tl84928534_ + (##car _e85338570_))) + (_tl85318575_ (let () (declare (not safe)) - (##cdr _e84908529_)))) - (if (gx#stx-pair? - _tl84928534_) - (let ((_e84938537_ - (gx#stx-e - _tl84928534_))) - (let ((_hd84948540_ - (let () + (##cdr _e85338570_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl85318575_)) + (let ((_e85368578_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e84938537_))) - (_tl84958542_ - (let () (declare (not safe)) (##cdr _e84938537_)))) - (if (gx#stx-null? _tl84958542_) - ((lambda (_L8545_ _L8546_ _L8547_ _L8548_) - (cons '##direct-structure-set! - (cons (gxc#compile-e _L8546_) - (cons (gxc#compile-e _L8545_) - (cons (gxc#compile-e _L8547_) - (cons (gxc#compile-e _L8548_) - (cons ''#f '()))))))) - _hd84948540_ - _hd84918532_ - _hd84888524_ - _hd84858516_) - (_g84758500_ _g84768503_)))) - (_g84758500_ _g84768503_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g84758500_ _g84768503_)))) - (_g84758500_ _g84768503_)))) - (_g84758500_ _g84768503_)))) - (_g84758500_ _g84768503_))))) - (_g84748569_ _stx8473_)))) + (not safe)) + (gx#stx-e _tl85318575_)))) + (let ((_hd85358581_ + (let () (declare (not safe)) (##car _e85368578_))) + (_tl85348583_ + (let () (declare (not safe)) (##cdr _e85368578_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl85348583_)) + ((lambda (_L8586_ _L8587_ _L8588_ _L8589_) + (let ((__tmp17573 + (let ((__tmp17581 + (let () + (declare (not safe)) + (gxc#compile-e _L8587_))) + (__tmp17574 + (let ((__tmp17580 + (let () + (declare (not safe)) + (gxc#compile-e _L8586_))) + (__tmp17575 + (let ((__tmp17579 + (let () + (declare (not safe)) + (gxc#compile-e + _L8588_))) + (__tmp17576 + (let ((__tmp17578 + (let () + (declare + (not safe)) + (gxc#compile-e + _L8589_))) + (__tmp17577 + (let () + (declare + (not safe)) + (cons ''#f +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons __tmp17578 __tmp17577)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17579 __tmp17576)))) + (declare (not safe)) + (cons __tmp17580 __tmp17575)))) + (declare (not safe)) + (cons __tmp17581 __tmp17574)))) + (declare (not safe)) + (cons '##direct-structure-set! __tmp17573))) + _hd85358581_ + _hd85328573_ + _hd85298565_ + _hd85268557_) + (let () + (declare (not safe)) + (_g85168541_ _g85178544_))))) + (let () (declare (not safe)) (_g85168541_ _g85178544_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g85168541_ _g85178544_))))) + (let () + (declare (not safe)) + (_g85168541_ _g85178544_))))) + (let () + (declare (not safe)) + (_g85168541_ _g85178544_))))) + (let () + (declare (not safe)) + (_g85168541_ _g85178544_)))))) + (declare (not safe)) + (_g85158610_ _stx8514_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_stx8269_) - (let* ((_g82718292_ - (lambda (_g82728289_) - (gx#raise-syntax-error '#f '"Bad syntax" _g82728289_))) - (_g82708470_ - (lambda (_g82728295_) - (if (gx#stx-pair? _g82728295_) - (let ((_e82768297_ (gx#stx-e _g82728295_))) - (let ((_hd82778300_ + (lambda (_stx8310_) + (let* ((_g83128333_ + (lambda (_g83138330_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g83138330_)))) + (_g83118511_ + (lambda (_g83138336_) + (if (let () (declare (not safe)) (gx#stx-pair? _g83138336_)) + (let ((_e83198338_ + (let () + (declare (not safe)) + (gx#stx-e _g83138336_)))) + (let ((_hd83188341_ (let () (declare (not safe)) - (##car _e82768297_))) - (_tl82788302_ + (##car _e83198338_))) + (_tl83178343_ (let () (declare (not safe)) - (##cdr _e82768297_)))) - (if (gx#stx-pair? _tl82788302_) - (let ((_e82798305_ (gx#stx-e _tl82788302_))) - (let ((_hd82808308_ + (##cdr _e83198338_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl83178343_)) + (let ((_e83228346_ + (let () + (declare (not safe)) + (gx#stx-e _tl83178343_)))) + (let ((_hd83218349_ (let () (declare (not safe)) - (##car _e82798305_))) - (_tl82818310_ + (##car _e83228346_))) + (_tl83208351_ (let () (declare (not safe)) - (##cdr _e82798305_)))) - (if (gx#stx-pair? _tl82818310_) - (let ((_e82828313_ - (gx#stx-e _tl82818310_))) - (let ((_hd82838316_ + (##cdr _e83228346_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl83208351_)) + (let ((_e83258354_ + (let () + (declare (not safe)) + (gx#stx-e _tl83208351_)))) + (let ((_hd83248357_ (let () (declare (not safe)) - (##car _e82828313_))) - (_tl82848318_ + (##car _e83258354_))) + (_tl83238359_ (let () (declare (not safe)) - (##cdr _e82828313_)))) - (if (gx#stx-pair? _tl82848318_) - (let ((_e82858321_ - (gx#stx-e _tl82848318_))) - (let ((_hd82868324_ + (##cdr _e83258354_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl83238359_)) + (let ((_e83288362_ + (let () + (declare (not safe)) + (gx#stx-e + _tl83238359_)))) + (let ((_hd83278365_ (let () (declare (not safe)) - (##car _e82858321_))) - (_tl82878326_ + (##car _e83288362_))) + (_tl83268367_ (let () (declare (not safe)) - (##cdr _e82858321_)))) - (if (gx#stx-null? - _tl82878326_) - ((lambda (_L8329_ - _L8330_ - _L8331_) - (if (gxc#current-compile-decls-unsafe?) - (cons '##unchecked-structure-ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gxc#compile-e _L8329_) - (cons (gxc#compile-e _L8330_) - (cons (gxc#compile-e _L8331_) - (cons ''#f '()))))) - (let _lp8349_ ((_rest8352_ - (cons _L8331_ - (cons _L8330_ (cons _L8329_ '())))) - (_bind8354_ '()) - (_args8355_ '())) - (let* ((_rest83568364_ _rest8352_) - (_else83588372_ + (##cdr _e83288362_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl83268367_)) + ((lambda (_L8370_ + _L8371_ + _L8372_) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let ((__tmp17599 + (let ((__tmp17605 + (let () + (declare (not safe)) + (gxc#compile-e _L8370_))) + (__tmp17600 + (let ((__tmp17604 + (let () + (declare (not safe)) + (gxc#compile-e _L8371_))) + (__tmp17601 + (let ((__tmp17603 + (let () + (declare (not safe)) + (gxc#compile-e _L8372_))) + (__tmp17602 + (let () + (declare (not safe)) + (cons ''#f '())))) + (declare (not safe)) + (cons __tmp17603 __tmp17602)))) + (declare (not safe)) + (cons __tmp17604 __tmp17601)))) + (declare (not safe)) + (cons __tmp17605 __tmp17600)))) + (declare (not safe)) + (cons '##unchecked-structure-ref __tmp17599)) + (let _lp8390_ ((_rest8393_ + (let ((__tmp17597 + (let ((__tmp17598 + (let () + (declare (not safe)) + (cons _L8370_ '())))) + (declare (not safe)) + (cons _L8371_ __tmp17598)))) + (declare (not safe)) + (cons _L8372_ __tmp17597))) + (_bind8395_ '()) + (_args8396_ '())) + (let* ((_rest83978405_ _rest8393_) + (_else83998413_ (lambda () - (cons 'let - (cons _bind8354_ - (cons '(declare (not safe)) - (cons (cons '##unchecked-structure-ref - (foldr1 cons -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons ''#f '()) - _args8355_)) - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K83608458_ - (lambda (_rest8375_ _e8376_) - (let* ((___stx1646916470_ _e8376_) - (_g83818399_ + (let ((__tmp17582 + (let ((__tmp17583 + (let ((__tmp17584 + (let ((__tmp17585 + (let ((__tmp17586 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17587 + (let () + (declare (not safe)) + (cons ''#f '())))) + (declare (not safe)) + (foldr1 cons __tmp17587 _args8396_)))) + (declare (not safe)) + (cons '##unchecked-structure-ref __tmp17586)))) + (declare (not safe)) + (cons __tmp17585 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '(declare (not safe)) + __tmp17584)))) + (declare (not safe)) + (cons _bind8395_ __tmp17583)))) + (declare (not safe)) + (cons 'let __tmp17582)))) + (_K84018499_ + (lambda (_rest8416_ _e8417_) + (let* ((___stx1680616807_ _e8417_) + (_g84228440_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1646916470_)))) - (let ((___kont1647116472_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1680616807_))))) + (let ((___kont1680816809_ (lambda () - (_lp8349_ - _rest8375_ - _bind8354_ - (cons (gxc#compile-e _e8376_) - _args8355_)))) - (___kont1647316474_ + (let ((__tmp17588 + (let ((__tmp17589 + (let () + (declare + (not safe)) + (gxc#compile-e + _e8417_)))) + (declare (not safe)) + (cons __tmp17589 + _args8396_)))) + (declare (not safe)) + (_lp8390_ + _rest8416_ + _bind8395_ + __tmp17588)))) + (___kont1681016811_ (lambda () - (_lp8349_ - _rest8375_ - _bind8354_ - (cons (gxc#compile-e _e8376_) - _args8355_)))) - (___kont1647516476_ + (let ((__tmp17590 + (let ((__tmp17591 + (let () + (declare + (not safe)) + (gxc#compile-e + _e8417_)))) + (declare (not safe)) + (cons __tmp17591 + _args8396_)))) + (declare (not safe)) + (_lp8390_ + _rest8416_ + _bind8395_ + __tmp17590)))) + (___kont1681216813_ (lambda () - (let ((_tmp8406_ + (let ((_tmp8447_ (make-symbol - (gensym '__tmp)))) - (_lp8349_ - _rest8375_ - (cons (cons _tmp8406_ - (cons (gxc#compile-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e8376_) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _bind8354_) - (cons _tmp8406_ _args8355_)))))) - (if (gx#stx-pair? ___stx1646916470_) - (let ((_e83838437_ - (gx#stx-e ___stx1646916470_))) - (let ((_tl83858442_ + (let () + (declare (not safe)) + (gensym '__tmp))))) + (let ((__tmp17593 + (let ((__tmp17594 + (let ((__tmp17595 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17596 + (let () + (declare (not safe)) + (gxc#compile-e _e8417_)))) + (declare (not safe)) + (cons __tmp17596 '())))) + (declare (not safe)) + (cons _tmp8447_ __tmp17595)))) + (declare (not safe)) + (cons __tmp17594 _bind8395_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17592 + (let () + (declare (not safe)) + (cons _tmp8447_ + _args8396_)))) + (declare (not safe)) + (_lp8390_ + _rest8416_ + __tmp17593 + __tmp17592)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1680616807_)) + (let ((_e84268478_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx1680616807_)))) + (let ((_tl84248483_ (let () (declare (not safe)) - (##cdr _e83838437_))) - (_hd83848440_ + (##cdr _e84268478_))) + (_hd84258481_ (let () (declare (not safe)) - (##car _e83838437_)))) - (if (gx#identifier? _hd83848440_) - (if (gx#stx-eq? - '%#ref - _hd83848440_) - (if (gx#stx-pair? - _tl83858442_) - (let ((_e83868445_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl83858442_))) - (let ((_tl83888450_ - (let () (declare (not safe)) (##cdr _e83868445_))) - (_hd83878448_ - (let () (declare (not safe)) (##car _e83868445_)))) - (if (gx#stx-null? _tl83888450_) - (___kont1647116472_) - (___kont1647516476_)))) - (___kont1647516476_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#quote - _hd83848440_) - (if (gx#stx-pair? - _tl83858442_) - (let ((_e83928422_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl83858442_))) - (let ((_tl83948427_ + (##car _e84268478_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd84258481_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd84258481_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl84248483_)) + (let ((_e84298486_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl84248483_)))) + (let ((_tl84278491_ + (let () (declare (not safe)) (##cdr _e84298486_))) + (_hd84288489_ + (let () (declare (not safe)) (##car _e84298486_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl84278491_)) + (___kont1680816809_) + (___kont1681216813_)))) + (___kont1681216813_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd84258481_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl84248483_)) + (let ((_e84358463_ + (let () + (declare (not safe)) + (gx#stx-e _tl84248483_)))) + (let ((_tl84338468_ (let () (declare (not safe)) - (##cdr _e83928422_))) - (_hd83938425_ + (##cdr _e84358463_))) + (_hd84348466_ (let () (declare (not safe)) - (##car _e83928422_)))) - (if (gx#stx-null? _tl83948427_) - (___kont1647316474_) - (___kont1647516476_)))) - (___kont1647516476_)) - (___kont1647516476_))) + (##car _e84358463_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl84338468_)) + (___kont1681016811_) + (___kont1681216813_)))) + (___kont1681216813_)) + (___kont1681216813_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1647516476_)))) - (___kont1647516476_))))))) + (___kont1681216813_)))) + (___kont1681216813_))))))) (if (let () (declare (not safe)) - (##pair? _rest83568364_)) - (let ((_hd83618461_ + (##pair? _rest83978405_)) + (let ((_hd84028502_ (let () (declare (not safe)) - (##car _rest83568364_))) - (_tl83628463_ + (##car _rest83978405_))) + (_tl84038504_ (let () (declare (not safe)) - (##cdr _rest83568364_)))) - (let* ((_e8466_ _hd83618461_) - (_rest8468_ _tl83628463_)) - (_K83608458_ _rest8468_ _e8466_))) - (_else83588372_)))))) - _hd82868324_ - _hd82838316_ - _hd82808308_) - (_g82718292_ _g82728295_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g82718292_ _g82728295_)))) - (_g82718292_ _g82728295_)))) - (_g82718292_ _g82728295_)))) - (_g82718292_ _g82728295_))))) - (_g82708470_ _stx8269_)))) + (##cdr _rest83978405_)))) + (let* ((_e8507_ _hd84028502_) + (_rest8509_ _tl84038504_)) + (declare (not safe)) + (_K84018499_ _rest8509_ _e8507_))) + (let () + (declare (not safe)) + (_else83998413_))))))) + _hd83278365_ + _hd83248357_ + _hd83218349_) + (let () (declare (not safe)) (_g83128333_ _g83138336_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g83128333_ _g83138336_))))) + (let () + (declare (not safe)) + (_g83128333_ _g83138336_))))) + (let () + (declare (not safe)) + (_g83128333_ _g83138336_))))) + (let () + (declare (not safe)) + (_g83128333_ _g83138336_)))))) + (declare (not safe)) + (_g83118511_ _stx8310_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_stx8049_) - (let* ((_g80518076_ - (lambda (_g80528073_) - (gx#raise-syntax-error '#f '"Bad syntax" _g80528073_))) - (_g80508266_ - (lambda (_g80528079_) - (if (gx#stx-pair? _g80528079_) - (let ((_e80578081_ (gx#stx-e _g80528079_))) - (let ((_hd80588084_ + (lambda (_stx8090_) + (let* ((_g80928117_ + (lambda (_g80938114_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g80938114_)))) + (_g80918307_ + (lambda (_g80938120_) + (if (let () (declare (not safe)) (gx#stx-pair? _g80938120_)) + (let ((_e81008122_ + (let () + (declare (not safe)) + (gx#stx-e _g80938120_)))) + (let ((_hd80998125_ (let () (declare (not safe)) - (##car _e80578081_))) - (_tl80598086_ + (##car _e81008122_))) + (_tl80988127_ (let () (declare (not safe)) - (##cdr _e80578081_)))) - (if (gx#stx-pair? _tl80598086_) - (let ((_e80608089_ (gx#stx-e _tl80598086_))) - (let ((_hd80618092_ + (##cdr _e81008122_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl80988127_)) + (let ((_e81038130_ + (let () + (declare (not safe)) + (gx#stx-e _tl80988127_)))) + (let ((_hd81028133_ (let () (declare (not safe)) - (##car _e80608089_))) - (_tl80628094_ + (##car _e81038130_))) + (_tl81018135_ (let () (declare (not safe)) - (##cdr _e80608089_)))) - (if (gx#stx-pair? _tl80628094_) - (let ((_e80638097_ - (gx#stx-e _tl80628094_))) - (let ((_hd80648100_ + (##cdr _e81038130_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl81018135_)) + (let ((_e81068138_ + (let () + (declare (not safe)) + (gx#stx-e _tl81018135_)))) + (let ((_hd81058141_ (let () (declare (not safe)) - (##car _e80638097_))) - (_tl80658102_ + (##car _e81068138_))) + (_tl81048143_ (let () (declare (not safe)) - (##cdr _e80638097_)))) - (if (gx#stx-pair? _tl80658102_) - (let ((_e80668105_ - (gx#stx-e _tl80658102_))) - (let ((_hd80678108_ + (##cdr _e81068138_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl81048143_)) + (let ((_e81098146_ + (let () + (declare (not safe)) + (gx#stx-e + _tl81048143_)))) + (let ((_hd81088149_ (let () (declare (not safe)) - (##car _e80668105_))) - (_tl80688110_ + (##car _e81098146_))) + (_tl81078151_ (let () (declare (not safe)) - (##cdr _e80668105_)))) - (if (gx#stx-pair? - _tl80688110_) - (let ((_e80698113_ - (gx#stx-e - _tl80688110_))) - (let ((_hd80708116_ - (let () + (##cdr _e81098146_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl81078151_)) + (let ((_e81128154_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e80698113_))) - (_tl80718118_ - (let () (declare (not safe)) (##cdr _e80698113_)))) - (if (gx#stx-null? _tl80718118_) - ((lambda (_L8121_ _L8122_ _L8123_ _L8124_) - (if (gxc#current-compile-decls-unsafe?) - (cons '##unchecked-structure-set! - (cons (gxc#compile-e _L8122_) - (cons (gxc#compile-e _L8121_) - (cons (gxc#compile-e _L8123_) - (cons (gxc#compile-e - _L8124_) - (cons ''#f '())))))) - (let _lp8145_ ((_rest8148_ - (cons _L8124_ - (cons _L8123_ - (cons _L8121_ - (cons _L8122_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_bind8150_ '()) - (_args8151_ '())) - (let* ((_rest81528160_ _rest8148_) - (_else81548168_ + (not safe)) + (gx#stx-e _tl81078151_)))) + (let ((_hd81118157_ + (let () (declare (not safe)) (##car _e81128154_))) + (_tl81108159_ + (let () (declare (not safe)) (##cdr _e81128154_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl81108159_)) + ((lambda (_L8162_ _L8163_ _L8164_ _L8165_) + (if (let () + (declare (not safe)) + (gxc#current-compile-decls-unsafe?)) + (let ((__tmp17624 + (let ((__tmp17632 + (let () + (declare (not safe)) + (gxc#compile-e _L8163_))) + (__tmp17625 + (let ((__tmp17631 + (let () + (declare (not safe)) + (gxc#compile-e _L8162_))) + (__tmp17626 + (let ((__tmp17630 + (let () + (declare (not safe)) + (gxc#compile-e + _L8164_))) + (__tmp17627 + (let ((__tmp17629 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gxc#compile-e _L8165_))) + (__tmp17628 + (let () (declare (not safe)) (cons ''#f '())))) + (declare (not safe)) + (cons __tmp17629 __tmp17628)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17630 + __tmp17627)))) + (declare (not safe)) + (cons __tmp17631 __tmp17626)))) + (declare (not safe)) + (cons __tmp17632 __tmp17625)))) + (declare (not safe)) + (cons '##unchecked-structure-set! __tmp17624)) + (let _lp8186_ ((_rest8189_ + (let ((__tmp17621 + (let ((__tmp17622 + (let ((__tmp17623 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L8163_ '())))) + (declare (not safe)) + (cons _L8162_ __tmp17623)))) + (declare (not safe)) + (cons _L8164_ __tmp17622)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L8165_ __tmp17621))) + (_bind8191_ '()) + (_args8192_ '())) + (let* ((_rest81938201_ _rest8189_) + (_else81958209_ (lambda () - (cons 'let - (cons _bind8150_ - (cons '(declare - (not safe)) - (cons (cons '##unchecked-structure-set! + (let ((__tmp17606 + (let ((__tmp17607 + (let ((__tmp17608 + (let ((__tmp17609 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr1 cons (cons ''#f '()) _args8151_)) - '())))))) + (let ((__tmp17610 + (let ((__tmp17611 + (let () + (declare (not safe)) + (cons ''#f '())))) + (declare (not safe)) + (foldr1 cons __tmp17611 _args8192_)))) + (declare (not safe)) + (cons '##unchecked-structure-set! __tmp17610)))) + (declare (not safe)) + (cons __tmp17609 '())))) + (declare (not safe)) + (cons '(declare (not safe)) __tmp17608)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K81568254_ - (lambda (_rest8171_ _e8172_) - (let* ((___stx1651516516_ _e8172_) - (_g81778195_ + (declare (not safe)) + (cons _bind8191_ + __tmp17607)))) + (declare (not safe)) + (cons 'let __tmp17606)))) + (_K81978295_ + (lambda (_rest8212_ _e8213_) + (let* ((___stx1685216853_ _e8213_) + (_g82188236_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1651516516_)))) - (let ((___kont1651716518_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1685216853_))))) + (let ((___kont1685416855_ (lambda () - (_lp8145_ - _rest8171_ - _bind8150_ - (cons (gxc#compile-e - _e8172_) - _args8151_)))) - (___kont1651916520_ + (let ((__tmp17612 + (let ((__tmp17613 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#compile-e _e8213_)))) + (declare (not safe)) + (cons __tmp17613 _args8192_)))) + (declare (not safe)) + (_lp8186_ _rest8212_ _bind8191_ __tmp17612)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1685616857_ (lambda () - (_lp8145_ - _rest8171_ - _bind8150_ - (cons (gxc#compile-e - _e8172_) - _args8151_)))) - (___kont1652116522_ + (let ((__tmp17614 + (let ((__tmp17615 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#compile-e _e8213_)))) + (declare (not safe)) + (cons __tmp17615 _args8192_)))) + (declare (not safe)) + (_lp8186_ _rest8212_ _bind8191_ __tmp17614)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1685816859_ (lambda () - (let ((_tmp8202_ + (let ((_tmp8243_ (make-symbol - (gensym '__tmp)))) - (_lp8145_ - _rest8171_ - (cons (cons _tmp8202_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gxc#compile-e _e8172_) '())) - _bind8150_) - (cons _tmp8202_ _args8151_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - ___stx1651516516_) - (let ((_e81798233_ - (gx#stx-e - ___stx1651516516_))) - (let ((_tl81818238_ + (let () + (declare + (not safe)) + (gensym '__tmp))))) + (let ((__tmp17617 + (let ((__tmp17618 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17619 + (let ((__tmp17620 + (let () + (declare (not safe)) + (gxc#compile-e _e8213_)))) + (declare (not safe)) + (cons __tmp17620 '())))) + (declare (not safe)) + (cons _tmp8243_ __tmp17619)))) + (declare (not safe)) + (cons __tmp17618 _bind8191_))) + (__tmp17616 + (let () + (declare (not safe)) + (cons _tmp8243_ _args8192_)))) + (declare (not safe)) + (_lp8186_ _rest8212_ __tmp17617 __tmp17616)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx1685216853_)) + (let ((_e82228274_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx1685216853_)))) + (let ((_tl82208279_ (let () (declare (not safe)) - (##cdr _e81798233_))) - (_hd81808236_ + (##cdr _e82228274_))) + (_hd82218277_ (let () (declare (not safe)) - (##car _e81798233_)))) - (if (gx#identifier? - _hd81808236_) - (if (gx#stx-eq? - '%#ref - _hd81808236_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl81818238_) - (let ((_e81828241_ (gx#stx-e _tl81818238_))) - (let ((_tl81848246_ + (##car _e82228274_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd82218277_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-eq? '%#ref _hd82218277_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl82208279_)) + (let ((_e82258282_ + (let () + (declare (not safe)) + (gx#stx-e _tl82208279_)))) + (let ((_tl82238287_ (let () (declare (not safe)) - (##cdr _e81828241_))) - (_hd81838244_ + (##cdr _e82258282_))) + (_hd82248285_ (let () (declare (not safe)) - (##car _e81828241_)))) - (if (gx#stx-null? _tl81848246_) - (___kont1651716518_) - (___kont1652116522_)))) - (___kont1652116522_)) - (if (gx#stx-eq? '%#quote _hd81808236_) - (if (gx#stx-pair? _tl81818238_) - (let ((_e81888218_ (gx#stx-e _tl81818238_))) - (let ((_tl81908223_ + (##car _e82258282_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl82238287_)) + (___kont1685416855_) + (___kont1685816859_)))) + (___kont1685816859_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd82218277_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl82208279_)) + (let ((_e82318259_ + (let () + (declare (not safe)) + (gx#stx-e _tl82208279_)))) + (let ((_tl82298264_ (let () (declare (not safe)) - (##cdr _e81888218_))) - (_hd81898221_ + (##cdr _e82318259_))) + (_hd82308262_ (let () (declare (not safe)) - (##car _e81888218_)))) - (if (gx#stx-null? _tl81908223_) - (___kont1651916520_) - (___kont1652116522_)))) - (___kont1652116522_)) - (___kont1652116522_))) - (___kont1652116522_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1652116522_))))))) + (##car _e82318259_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl82298264_)) + (___kont1685616857_) + (___kont1685816859_)))) + (___kont1685816859_)) + (___kont1685816859_))) + (___kont1685816859_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1685816859_))))))) (if (let () (declare (not safe)) - (##pair? _rest81528160_)) - (let ((_hd81578257_ + (##pair? _rest81938201_)) + (let ((_hd81988298_ (let () (declare (not safe)) - (##car _rest81528160_))) - (_tl81588259_ + (##car _rest81938201_))) + (_tl81998300_ (let () (declare (not safe)) - (##cdr _rest81528160_)))) - (let* ((_e8262_ _hd81578257_) - (_rest8264_ _tl81588259_)) - (_K81568254_ _rest8264_ _e8262_))) - (_else81548168_)))))) - _hd80708116_ - _hd80678108_ - _hd80648100_ - _hd80618092_) - (_g80518076_ _g80528079_)))) - (_g80518076_ _g80528079_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g80518076_ _g80528079_)))) - (_g80518076_ _g80528079_)))) - (_g80518076_ _g80528079_)))) - (_g80518076_ _g80528079_))))) - (_g80508266_ _stx8049_)))) + (##cdr _rest81938201_)))) + (let* ((_e8303_ _hd81988298_) + (_rest8305_ _tl81998300_)) + (declare (not safe)) + (_K81978295_ _rest8305_ _e8303_))) + (let () + (declare (not safe)) + (_else81958209_))))))) + _hd81118157_ + _hd81088149_ + _hd81058141_ + _hd81028133_) + (let () + (declare (not safe)) + (_g80928117_ _g80938120_))))) + (let () (declare (not safe)) (_g80928117_ _g80938120_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g80928117_ _g80938120_))))) + (let () + (declare (not safe)) + (_g80928117_ _g80938120_))))) + (let () + (declare (not safe)) + (_g80928117_ _g80938120_))))) + (let () + (declare (not safe)) + (_g80928117_ _g80938120_)))))) + (declare (not safe)) + (_g80918307_ _stx8090_)))) (define gxc#generate-runtime-loader-import% - (lambda (_stx7903_) - (letrec ((_import-set-template7905_ - (lambda (_in8001_ _phi8002_) - (let ((_iphi8004_ - (fx+ _phi8002_ + (lambda (_stx7944_) + (letrec ((_import-set-template7946_ + (lambda (_in8042_ _phi8043_) + (let ((_iphi8045_ + (fx+ _phi8043_ (##direct-structure-ref - _in8001_ + _in8042_ '2 gx#import-set::t '#f))) - (_imports8005_ + (_imports8046_ (##structure-ref (##direct-structure-ref - _in8001_ + _in8042_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp8007_ ((_rest8009_ _imports8005_) (_r8010_ '())) - (let* ((_rest80118019_ _rest8009_) - (_else80138027_ (lambda () _r8010_)) - (_K80158037_ - (lambda (_rest8030_ _in8031_) + (let _lp8048_ ((_rest8050_ _imports8046_) (_r8051_ '())) + (let* ((_rest80528060_ _rest8050_) + (_else80548068_ (lambda () _r8051_)) + (_K80568078_ + (lambda (_rest8071_ _in8072_) (if (let () (declare (not safe)) (##structure-instance-of? - _in8031_ + _in8072_ 'gx#module-context::t)) - (if (fxzero? _iphi8004_) - (_lp8007_ - _rest8030_ - (cons _in8031_ _r8010_)) - (_lp8007_ _rest8030_ _r8010_)) + (if (let () + (declare (not safe)) + (fxzero? _iphi8045_)) + (let ((__tmp17639 + (let () + (declare (not safe)) + (cons _in8072_ _r8051_)))) + (declare (not safe)) + (_lp8048_ _rest8071_ __tmp17639)) + (let () + (declare (not safe)) + (_lp8048_ _rest8071_ _r8051_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in8031_ + _in8072_ 'gx#module-import::t)) - (let ((_iphi8033_ - (fx+ _phi8002_ + (let ((_iphi8074_ + (fx+ _phi8043_ (##direct-structure-ref - _in8031_ + _in8072_ '3 gx#module-import::t '#f)))) - (if (fxzero? _iphi8033_) - (_lp8007_ - _rest8030_ - (cons (##direct-structure-ref - (##direct-structure-ref - _in8031_ - '1 - gx#module-import::t - '#f) - '1 - gx#module-export::t - '#f) - _r8010_)) - (_lp8007_ _rest8030_ _r8010_))) + (if (let () + (declare (not safe)) + (fxzero? _iphi8074_)) + (let ((__tmp17637 + (let ((__tmp17638 + (##direct-structure-ref + (##direct-structure-ref + _in8072_ + '1 + gx#module-import::t + '#f) + '1 + gx#module-export::t + '#f))) + (declare (not safe)) + (cons __tmp17638 + _r8051_)))) + (declare (not safe)) + (_lp8048_ + _rest8071_ + __tmp17637)) + (let () + (declare (not safe)) + (_lp8048_ + _rest8071_ + _r8051_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in8031_ + _in8072_ 'gx#import-set::t)) - (let ((_xphi8035_ - (fx+ _iphi8004_ + (let ((_xphi8076_ + (fx+ _iphi8045_ (##direct-structure-ref - _in8031_ + _in8072_ '2 gx#import-set::t '#f)))) - (if (fxzero? _xphi8035_) - (_lp8007_ - _rest8030_ - (cons (##direct-structure-ref - _in8031_ - '1 - gx#import-set::t - '#f) - _r8010_)) - (if (fxpositive? - _xphi8035_) - (_lp8007_ - _rest8030_ - (foldl1 cons -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r8010_ - (_import-set-template7905_ _in8031_ _iphi8004_))) - (_lp8007_ _rest8030_ _r8010_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp8007_ - _rest8030_ - _r8010_))))))) + (if (let () + (declare (not safe)) + (fxzero? _xphi8076_)) + (let ((__tmp17635 + (let ((__tmp17636 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (##direct-structure-ref + _in8072_ + '1 + gx#import-set::t + '#f))) + (declare (not safe)) + (cons __tmp17636 _r8051_)))) + (declare (not safe)) + (_lp8048_ _rest8071_ __tmp17635)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (fxpositive? + _xphi8076_)) + (let ((__tmp17633 + (let ((__tmp17634 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (_import-set-template7946_ + _in8072_ + _iphi8045_)))) + (declare (not safe)) + (foldl1 cons _r8051_ __tmp17634)))) + (declare (not safe)) + (_lp8048_ _rest8071_ __tmp17633)) + (let () (declare (not safe)) (_lp8048_ _rest8071_ _r8051_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_lp8048_ + _rest8071_ + _r8051_)))))))) (if (let () (declare (not safe)) - (##pair? _rest80118019_)) - (let ((_hd80168040_ + (##pair? _rest80528060_)) + (let ((_hd80578081_ (let () (declare (not safe)) - (##car _rest80118019_))) - (_tl80178042_ + (##car _rest80528060_))) + (_tl80588083_ (let () (declare (not safe)) - (##cdr _rest80118019_)))) - (let* ((_in8045_ _hd80168040_) - (_rest8047_ _tl80178042_)) - (_K80158037_ _rest8047_ _in8045_))) - (_else80138027_)))))))) - (let* ((_g79077917_ - (lambda (_g79087914_) - (gx#raise-syntax-error '#f '"Bad syntax" _g79087914_))) - (_g79067998_ - (lambda (_g79087920_) - (if (gx#stx-pair? _g79087920_) - (let ((_e79107922_ (gx#stx-e _g79087920_))) - (let ((_hd79117925_ + (##cdr _rest80528060_)))) + (let* ((_in8086_ _hd80578081_) + (_rest8088_ _tl80588083_)) + (declare (not safe)) + (_K80568078_ _rest8088_ _in8086_))) + (let () + (declare (not safe)) + (_else80548068_))))))))) + (let* ((_g79487958_ + (lambda (_g79497955_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g79497955_)))) + (_g79478039_ + (lambda (_g79497961_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g79497961_)) + (let ((_e79537963_ + (let () + (declare (not safe)) + (gx#stx-e _g79497961_)))) + (let ((_hd79527966_ (let () (declare (not safe)) - (##car _e79107922_))) - (_tl79127927_ + (##car _e79537963_))) + (_tl79517968_ (let () (declare (not safe)) - (##cdr _e79107922_)))) - ((lambda (_L7930_) - (let ((_ht7941_ (make-table 'test: eq?))) - (let _lp7943_ ((_rest7945_ _L7930_) - (_loads7946_ '())) - (letrec ((_K7948_ (lambda (_ctx7991_ - _rest7992_) - (let ((_id7994_ + (##cdr _e79537963_)))) + ((lambda (_L7971_) + (let ((_ht7982_ + (let () + (declare (not safe)) + (make-table 'test: eq?)))) + (let _lp7984_ ((_rest7986_ _L7971_) + (_loads7987_ '())) + (letrec ((_K7989_ (lambda (_ctx8032_ + _rest8033_) + (let ((_id8035_ (##structure-ref - _ctx7991_ + _ctx8032_ '1 gx#expander-context::t '#f))) - (if (table-ref - _ht7941_ - _id7994_ - '#f) - (_lp7943_ - _rest7992_ - _loads7946_) - (let ((_rt7996_ + (if (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (table-ref _ht7982_ _id8035_ '#f)) + (let () + (declare (not safe)) + (_lp7984_ _rest8033_ _loads7987_)) + (let ((_rt8037_ (string-append - (gxc#module-id->path-string _id7994_) + (let () + (declare (not safe)) + (gxc#module-id->path-string _id8035_)) '"__rt"))) - (table-set! _ht7941_ _id7994_ _rt7996_) - (_lp7943_ _rest7992_ (cons _rt7996_ _loads7946_)))))))) + (let () + (declare (not safe)) + (table-set! _ht7982_ _id8035_ _rt8037_)) + (let ((__tmp17640 + (let () + (declare (not safe)) + (cons _rt8037_ _loads7987_)))) + (declare (not safe)) + (_lp7984_ _rest8033_ __tmp17640)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest79497957_ _rest7945_) - (_else79517969_ + (let* ((_rest79907998_ _rest7986_) + (_else79928010_ (lambda () - (cons 'begin - (map (lambda (_g79647966_) - (list 'load-module + (let ((__tmp17641 + (let ((__tmp17643 + (lambda (_g80058007_) + (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g79647966_)) - (reverse _loads7946_))))) + _g80058007_))) + (__tmp17642 + (let () (declare (not safe)) (reverse _loads7987_)))) + (declare (not safe)) + (map __tmp17643 __tmp17642)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K79537979_ - (lambda (_rest7972_ _in7973_) + (declare (not safe)) + (cons 'begin __tmp17641)))) + (_K79948020_ + (lambda (_rest8013_ _in8014_) (if (let () (declare (not safe)) (##structure-instance-of? - _in7973_ + _in8014_ 'gx#module-context::t)) - (_K7948_ _in7973_ - _rest7972_) + (let () + (declare (not safe)) + (_K7989_ _in8014_ + _rest8013_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in7973_ + _in8014_ 'gx#module-import::t)) - (if (fxzero? (##direct-structure-ref + (if (let ((__tmp17647 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in7973_ - '3 - gx#module-import::t - '#f)) - (_K7948_ (##direct-structure-ref - (##direct-structure-ref - _in7973_ - '1 - gx#module-import::t - '#f) - '1 - gx#module-export::t - '#f) - _rest7972_) - (_lp7943_ _rest7972_ _loads7946_)) + (##direct-structure-ref + _in8014_ + '3 + gx#module-import::t + '#f))) + (declare (not safe)) + (fxzero? __tmp17647)) + (let ((__tmp17646 + (##direct-structure-ref + (##direct-structure-ref + _in8014_ + '1 + gx#module-import::t + '#f) + '1 + gx#module-export::t + '#f))) + (declare (not safe)) + (_K7989_ __tmp17646 _rest8013_)) + (let () + (declare (not safe)) + (_lp7984_ _rest8013_ _loads7987_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in7973_ + _in8014_ 'gx#import-set::t)) - (let ((_phi7975_ + (let ((_phi8016_ (##direct-structure-ref - _in7973_ + _in8014_ '2 gx#import-set::t '#f))) - (if (fxzero? _phi7975_) - (_K7948_ (##direct-structure-ref - _in7973_ - '1 - gx#import-set::t - '#f) - _rest7972_) - (if (fxpositive? _phi7975_) - (let ((_deps7977_ - (_import-set-template7905_ _in7973_ '0))) - (_lp7943_ - (foldl1 cons _rest7972_ _deps7977_) - _loads7946_)) - (_lp7943_ _rest7972_ _loads7946_)))) - (gxc#raise-compile-error - '"Unexpected import" - _stx7903_ - _in7973_))))))) + (if (let () (declare (not safe)) (fxzero? _phi8016_)) + (let ((__tmp17645 + (##direct-structure-ref + _in8014_ + '1 + gx#import-set::t + '#f))) + (declare (not safe)) + (_K7989_ __tmp17645 _rest8013_)) + (if (let () + (declare (not safe)) + (fxpositive? _phi8016_)) + (let* ((_deps8018_ + (let () + (declare (not safe)) + (_import-set-template7946_ + _in8014_ + '0))) + (__tmp17644 + (let () + (declare (not safe)) + (foldl1 cons _rest8013_ _deps8018_)))) + (declare (not safe)) + (_lp7984_ __tmp17644 _loads7987_)) + (let () + (declare (not safe)) + (_lp7984_ _rest8013_ _loads7987_))))) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Unexpected import" + _stx7944_ + _in8014_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest79497957_)) - (let ((_hd79547982_ + (##pair? _rest79907998_)) + (let ((_hd79958023_ (let () (declare (not safe)) - (##car _rest79497957_))) - (_tl79557984_ + (##car _rest79907998_))) + (_tl79968025_ (let () (declare (not safe)) - (##cdr _rest79497957_)))) - (let* ((_in7987_ _hd79547982_) - (_rest7989_ _tl79557984_)) - (_K79537979_ - _rest7989_ - _in7987_))) - (_else79517969_))))))) - _tl79127927_))) - (_g79077917_ _g79087920_))))) - (_g79067998_ _stx7903_))))) + (##cdr _rest79907998_)))) + (let* ((_in8028_ _hd79958023_) + (_rest8030_ _tl79968025_)) + (declare (not safe)) + (_K79948020_ + _rest8030_ + _in8028_))) + (let () + (declare (not safe)) + (_else79928010_)))))))) + _tl79517968_))) + (let () + (declare (not safe)) + (_g79487958_ _g79497961_)))))) + (declare (not safe)) + (_g79478039_ _stx7944_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_stx7719_) - (letrec ((_add-lift!7721_ - (lambda (_expr7901_) - (set-box! - (gxc#current-compile-lift) - (cons _expr7901_ (unbox (gxc#current-compile-lift)))))) - (_generate-syntax-quote7722_ - (lambda (_id7898_ _marks7899_) - (cons '##structure - (cons 'gx#syntax-quote::t - (cons (cons 'quote (cons _id7898_ '())) - (cons '#f - (cons '(gx#current-expander-context) - (cons _marks7899_ '())))))))) - (_generate-simple7723_ - (lambda (_stxq7893_) - (let ((_gid7895_ (gxc#generate-runtime-temporary__% '#t)) - (_qid7896_ - (gxc#generate-runtime-identifier _stxq7893_))) - (_add-lift!7721_ - (cons 'define - (cons _gid7895_ - (cons (_generate-syntax-quote7722_ - _qid7896_ - ''()) - '())))) - (table-set! - (gxc#current-compile-identifiers) - _stxq7893_ - _gid7895_) - _gid7895_))) - (_generate-serialized7724_ - (lambda (_stxq7883_ _marks7884_) - (let* ((_mark-refs7886_ - (map _generate-mark7725_ _marks7884_)) - (_gid7888_ (gxc#generate-runtime-temporary__% '#t)) - (_qid7890_ - (gxc#generate-runtime-identifier _stxq7883_))) - (_add-lift!7721_ - (cons 'define - (cons _gid7888_ - (cons (_generate-syntax-quote7722_ - _qid7890_ - (cons 'list _mark-refs7886_)) - '())))) - (table-set! - (gxc#current-compile-identifiers) - _stxq7883_ - _gid7888_) - _gid7888_))) - (_generate-mark7725_ - (lambda (_mark7869_) - (let ((_$e7871_ - (table-ref - (gxc#current-compile-marks) - _mark7869_ - '#f))) - (if _$e7871_ - (values _$e7871_) - (let* ((_gid7874_ - (gxc#generate-runtime-temporary__% '#t)) - (_repr7876_ (_serialize-mark7726_ _mark7869_)) - (_ctx7878_ - (gx#core-context-top__1 - (##structure-ref - _mark7869_ - '2 - gx#expander-mark::t - '#f))) - (_ctx-ref7880_ - (if (eq? _ctx7878_ - (gx#current-expander-context)) + (lambda (_stx7760_) + (letrec ((_add-lift!7762_ + (lambda (_expr7942_) + (let ((__tmp17651 (gxc#current-compile-lift)) + (__tmp17648 + (let ((__tmp17649 + (let ((__tmp17650 + (gxc#current-compile-lift))) + (declare (not safe)) + (unbox __tmp17650)))) + (declare (not safe)) + (cons _expr7942_ __tmp17649)))) + (declare (not safe)) + (set-box! __tmp17651 __tmp17648)))) + (_generate-syntax-quote7763_ + (lambda (_id7939_ _marks7940_) + (let ((__tmp17652 + (let ((__tmp17653 + (let ((__tmp17657 + (let ((__tmp17658 + (let () + (declare (not safe)) + (cons _id7939_ '())))) + (declare (not safe)) + (cons 'quote __tmp17658))) + (__tmp17654 + (let ((__tmp17655 + (let ((__tmp17656 + (let () + (declare (not safe)) + (cons _marks7940_ + '())))) + (declare (not safe)) + (cons '(gx#current-expander-context) + __tmp17656)))) + (declare (not safe)) + (cons '#f __tmp17655)))) + (declare (not safe)) + (cons __tmp17657 __tmp17654)))) + (declare (not safe)) + (cons 'gx#syntax-quote::t __tmp17653)))) + (declare (not safe)) + (cons '##structure __tmp17652)))) + (_generate-simple7764_ + (lambda (_stxq7934_) + (let ((_gid7936_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__% '#t))) + (_qid7937_ + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier _stxq7934_)))) + (let ((__tmp17659 + (let ((__tmp17660 + (let ((__tmp17661 + (let ((__tmp17662 + (let () + (declare (not safe)) + (_generate-syntax-quote7763_ + _qid7937_ + ''())))) + (declare (not safe)) + (cons __tmp17662 '())))) + (declare (not safe)) + (cons _gid7936_ __tmp17661)))) + (declare (not safe)) + (cons 'define __tmp17660)))) + (declare (not safe)) + (_add-lift!7762_ __tmp17659)) + (let ((__tmp17663 (gxc#current-compile-identifiers))) + (declare (not safe)) + (table-set! __tmp17663 _stxq7934_ _gid7936_)) + _gid7936_))) + (_generate-serialized7765_ + (lambda (_stxq7924_ _marks7925_) + (let* ((_mark-refs7927_ + (let () + (declare (not safe)) + (map _generate-mark7766_ _marks7925_))) + (_gid7929_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__% '#t))) + (_qid7931_ + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier _stxq7924_)))) + (let ((__tmp17664 + (let ((__tmp17665 + (let ((__tmp17666 + (let ((__tmp17667 + (let ((__tmp17668 + (let () + (declare (not safe)) + (cons 'list +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _mark-refs7927_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_generate-syntax-quote7763_ + _qid7931_ + __tmp17668)))) + (declare (not safe)) + (cons __tmp17667 '())))) + (declare (not safe)) + (cons _gid7929_ __tmp17666)))) + (declare (not safe)) + (cons 'define __tmp17665)))) + (declare (not safe)) + (_add-lift!7762_ __tmp17664)) + (let ((__tmp17669 (gxc#current-compile-identifiers))) + (declare (not safe)) + (table-set! __tmp17669 _stxq7924_ _gid7929_)) + _gid7929_))) + (_generate-mark7766_ + (lambda (_mark7910_) + (let ((_$e7912_ + (let ((__tmp17670 (gxc#current-compile-marks))) + (declare (not safe)) + (table-ref __tmp17670 _mark7910_ '#f)))) + (if _$e7912_ + (values _$e7912_) + (let* ((_gid7915_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__% '#t))) + (_repr7917_ + (let () + (declare (not safe)) + (_serialize-mark7767_ _mark7910_))) + (_ctx7919_ + (let ((__tmp17671 + (##structure-ref + _mark7910_ + '2 + gx#expander-mark::t + '#f))) + (declare (not safe)) + (gx#core-context-top__1 __tmp17671))) + (_ctx-ref7921_ + (if (let ((__tmp17676 + (gx#current-expander-context))) + (declare (not safe)) + (eq? _ctx7919_ __tmp17676)) '(gx#current-expander-context) - (cons 'gx#import-module - (cons (cons 'quote - (cons (_context-ref7727_ - _ctx7878_) - '())) - '()))))) - (table-set! - (gxc#current-compile-marks) - _mark7869_ - _gid7874_) - (_add-lift!7721_ - (cons 'define - (cons _gid7874_ - (cons (cons 'gx#core-deserialize-mark - (cons (cons 'quote -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _repr7876_ '())) - (cons _ctx-ref7880_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - _gid7874_))))) - (_serialize-mark7726_ - (lambda (_mark7816_) - (letrec ((_quote-e7818_ - (lambda (_sym7867_) - (if (interned-symbol? _sym7867_) - _sym7867_ - (gxc#generate-runtime-gensym-reference__0 - _sym7867_))))) - (let* ((_mark78197828_ _mark7816_) - (_E78217832_ + (let ((__tmp17672 + (let ((__tmp17673 + (let ((__tmp17674 + (let ((__tmp17675 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (_context-ref7768_ _ctx7919_)))) + (declare (not safe)) + (cons __tmp17675 '())))) + (declare (not safe)) + (cons 'quote __tmp17674)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17673 '())))) + (declare (not safe)) + (cons 'gx#import-module __tmp17672))))) + (let ((__tmp17677 (gxc#current-compile-marks))) + (declare (not safe)) + (table-set! __tmp17677 _mark7910_ _gid7915_)) + (let ((__tmp17678 + (let ((__tmp17679 + (let ((__tmp17680 + (let ((__tmp17681 + (let ((__tmp17682 + (let ((__tmp17684 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17685 + (let () + (declare (not safe)) + (cons _repr7917_ '())))) + (declare (not safe)) + (cons 'quote __tmp17685))) + (__tmp17683 + (let () + (declare (not safe)) + (cons _ctx-ref7921_ '())))) + (declare (not safe)) + (cons __tmp17684 __tmp17683)))) + (declare (not safe)) + (cons 'gx#core-deserialize-mark __tmp17682)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17681 '())))) + (declare (not safe)) + (cons _gid7915_ __tmp17680)))) + (declare (not safe)) + (cons 'define __tmp17679)))) + (declare (not safe)) + (_add-lift!7762_ __tmp17678)) + _gid7915_))))) + (_serialize-mark7767_ + (lambda (_mark7857_) + (letrec ((_quote-e7859_ + (lambda (_sym7908_) + (if (let () + (declare (not safe)) + (interned-symbol? _sym7908_)) + _sym7908_ + (let () + (declare (not safe)) + (gxc#generate-runtime-gensym-reference__0 + _sym7908_)))))) + (let* ((_mark78607869_ _mark7857_) + (_E78627873_ (lambda () - (error '"No clause matching" _mark78197828_))) - (_K78227844_ - (lambda (_trace7835_ - _phi7836_ - _ctx7837_ - _subst7838_) - (let ((_subs7840_ - (if _subst7838_ - (table->list _subst7838_) - '()))) - (cons _phi7836_ - (map (lambda (_pair7842_) - (cons (_quote-e7818_ - (car _pair7842_)) - (_quote-e7818_ - (cdr _pair7842_)))) - _subs7840_)))))) + (error '"No clause matching" _mark78607869_))) + (_K78637885_ + (lambda (_trace7876_ + _phi7877_ + _ctx7878_ + _subst7879_) + (let* ((_subs7881_ + (if _subst7879_ + (let () + (declare (not safe)) + (table->list _subst7879_)) + '())) + (__tmp17686 + (let ((__tmp17687 + (lambda (_pair7883_) + (let ((__tmp17690 + (let ((__tmp17691 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (car _pair7883_)))) + (declare (not safe)) + (_quote-e7859_ __tmp17691))) + (__tmp17688 + (let ((__tmp17689 + (let () (declare (not safe)) (cdr _pair7883_)))) + (declare (not safe)) + (_quote-e7859_ __tmp17689)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17690 + __tmp17688))))) + (declare (not safe)) + (map __tmp17687 _subs7881_)))) + (declare (not safe)) + (cons _phi7877_ __tmp17686))))) (if (let () (declare (not safe)) (##structure-instance-of? - _mark78197828_ + _mark78607869_ 'gx#expander-mark::t)) - (let* ((_e78237847_ + (let* ((_e78647888_ (let () (declare (not safe)) - (##vector-ref _mark78197828_ '1))) - (_subst7850_ _e78237847_) - (_e78247852_ + (##vector-ref _mark78607869_ '1))) + (_subst7891_ _e78647888_) + (_e78657893_ (let () (declare (not safe)) - (##vector-ref _mark78197828_ '2))) - (_ctx7855_ _e78247852_) - (_e78257857_ + (##vector-ref _mark78607869_ '2))) + (_ctx7896_ _e78657893_) + (_e78667898_ (let () (declare (not safe)) - (##vector-ref _mark78197828_ '3))) - (_phi7860_ _e78257857_) - (_e78267862_ + (##vector-ref _mark78607869_ '3))) + (_phi7901_ _e78667898_) + (_e78677903_ (let () (declare (not safe)) - (##vector-ref _mark78197828_ '4))) - (_trace7865_ _e78267862_)) - (_K78227844_ - _trace7865_ - _phi7860_ - _ctx7855_ - _subst7850_)) - (_E78217832_)))))) - (_context-ref7727_ - (lambda (_ctx7803_) - (if (let ((__tmp16685 + (##vector-ref _mark78607869_ '4))) + (_trace7906_ _e78677903_)) + (declare (not safe)) + (_K78637885_ + _trace7906_ + _phi7901_ + _ctx7896_ + _subst7891_)) + (let () (declare (not safe)) (_E78627873_))))))) + (_context-ref7768_ + (lambda (_ctx7844_) + (if (let ((__tmp17698 (##structure-ref - _ctx7803_ + _ctx7844_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp16685 + __tmp17698 'gx#module-context::t)) - (let ((_ctx-ref7805_ - (_context-ref-nested7729_ _ctx7803_)) - (_ctx-origin7806_ - (_context-ref-origin7728_ _ctx7803_)) - (_origin7807_ - (_context-ref-origin7728_ - (gx#current-expander-context)))) - (if (eq? _origin7807_ _ctx-origin7806_) - (let ((_ref7809_ - (_context-ref-nested7729_ - (gx#current-expander-context)))) - (let _lp7811_ ((_ref7813_ (cdr _ref7809_)) - (_ctx-ref7814_ - (cdr _ctx-ref7805_))) - (if (and (pair? _ref7813_) - (eq? (car _ref7813_) - (car _ctx-ref7814_))) - (_lp7811_ - (cdr _ref7813_) - (cdr _ctx-ref7814_)) - (cons '#f _ctx-ref7814_)))) - _ctx-ref7805_)) + (let ((_ctx-ref7846_ + (let () + (declare (not safe)) + (_context-ref-nested7770_ _ctx7844_))) + (_ctx-origin7847_ + (let () + (declare (not safe)) + (_context-ref-origin7769_ _ctx7844_))) + (_origin7848_ + (let ((__tmp17692 + (gx#current-expander-context))) + (declare (not safe)) + (_context-ref-origin7769_ __tmp17692)))) + (if (let () + (declare (not safe)) + (eq? _origin7848_ _ctx-origin7847_)) + (let ((_ref7850_ + (let ((__tmp17693 + (gx#current-expander-context))) + (declare (not safe)) + (_context-ref-nested7770_ __tmp17693)))) + (let _lp7852_ ((_ref7854_ + (let () + (declare (not safe)) + (cdr _ref7850_))) + (_ctx-ref7855_ + (let () + (declare (not safe)) + (cdr _ctx-ref7846_)))) + (if (and (let () + (declare (not safe)) + (pair? _ref7854_)) + (let ((__tmp17697 + (let () + (declare (not safe)) + (car _ref7854_))) + (__tmp17696 + (let () + (declare (not safe)) + (car _ctx-ref7855_)))) + (declare (not safe)) + (eq? __tmp17697 __tmp17696))) + (let ((__tmp17695 + (let () + (declare (not safe)) + (cdr _ref7854_))) + (__tmp17694 + (let () + (declare (not safe)) + (cdr _ctx-ref7855_)))) + (declare (not safe)) + (_lp7852_ __tmp17695 __tmp17694)) + (let () + (declare (not safe)) + (cons '#f _ctx-ref7855_))))) + _ctx-ref7846_)) (make-symbol '":" (##structure-ref - _ctx7803_ + _ctx7844_ '1 gx#expander-context::t '#f))))) - (_context-ref-origin7728_ - (lambda (_ctx7795_) - (let _lp7797_ ((_ctx7799_ _ctx7795_)) - (let ((_super7801_ + (_context-ref-origin7769_ + (lambda (_ctx7836_) + (let _lp7838_ ((_ctx7840_ _ctx7836_)) + (let ((_super7842_ (##structure-ref - _ctx7799_ + _ctx7840_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super7801_ + _super7842_ 'gx#module-context::t)) - (_lp7797_ _super7801_) - _ctx7799_))))) - (_context-ref-nested7729_ - (lambda (_ctx7786_) - (let _lp7788_ ((_ctx7790_ _ctx7786_) (_r7791_ '())) - (let ((_super7793_ + (let () + (declare (not safe)) + (_lp7838_ _super7842_)) + _ctx7840_))))) + (_context-ref-nested7770_ + (lambda (_ctx7827_) + (let _lp7829_ ((_ctx7831_ _ctx7827_) (_r7832_ '())) + (let ((_super7834_ (##structure-ref - _ctx7790_ + _ctx7831_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super7793_ + _super7834_ 'gx#module-context::t)) - (_lp7788_ - _super7793_ - (cons (car (##structure-ref - _ctx7790_ - '7 - gx#module-context::t - '#f)) - _r7791_)) - (cons (make-symbol - '":" - (##structure-ref - _ctx7790_ - '1 - gx#expander-context::t - '#f)) - _r7791_))))))) - (let* ((_g77317744_ - (lambda (_g77327741_) - (gx#raise-syntax-error '#f '"Bad syntax" _g77327741_))) - (_g77307783_ - (lambda (_g77327747_) - (if (gx#stx-pair? _g77327747_) - (let ((_e77347749_ (gx#stx-e _g77327747_))) - (let ((_hd77357752_ + (let ((__tmp17700 + (let ((__tmp17701 + (let ((__tmp17702 + (##structure-ref + _ctx7831_ + '7 + gx#module-context::t + '#f))) + (declare (not safe)) + (car __tmp17702)))) + (declare (not safe)) + (cons __tmp17701 _r7832_)))) + (declare (not safe)) + (_lp7829_ _super7834_ __tmp17700)) + (let ((__tmp17699 + (make-symbol + '":" + (##structure-ref + _ctx7831_ + '1 + gx#expander-context::t + '#f)))) + (declare (not safe)) + (cons __tmp17699 _r7832_)))))))) + (let* ((_g77727785_ + (lambda (_g77737782_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g77737782_)))) + (_g77717824_ + (lambda (_g77737788_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g77737788_)) + (let ((_e77777790_ + (let () + (declare (not safe)) + (gx#stx-e _g77737788_)))) + (let ((_hd77767793_ (let () (declare (not safe)) - (##car _e77347749_))) - (_tl77367754_ + (##car _e77777790_))) + (_tl77757795_ (let () (declare (not safe)) - (##cdr _e77347749_)))) - (if (gx#stx-pair? _tl77367754_) - (let ((_e77377757_ (gx#stx-e _tl77367754_))) - (let ((_hd77387760_ + (##cdr _e77777790_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl77757795_)) + (let ((_e77807798_ + (let () + (declare (not safe)) + (gx#stx-e _tl77757795_)))) + (let ((_hd77797801_ (let () (declare (not safe)) - (##car _e77377757_))) - (_tl77397762_ + (##car _e77807798_))) + (_tl77787803_ (let () (declare (not safe)) - (##cdr _e77377757_)))) - (if (gx#stx-null? _tl77397762_) - ((lambda (_L7765_) - (if (gx#identifier? _L7765_) - (let ((_$e7778_ - (table-ref - (gxc#current-compile-identifiers) - _L7765_ - '#f))) - (if _$e7778_ - (values _$e7778_) - (let ((_marks7781_ + (##cdr _e77807798_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl77787803_)) + ((lambda (_L7806_) + (if (let () + (declare (not safe)) + (gx#identifier? _L7806_)) + (let ((_$e7819_ + (let ((__tmp17703 + (gxc#current-compile-identifiers))) + (declare (not safe)) + (table-ref + __tmp17703 + _L7806_ + '#f)))) + (if _$e7819_ + (values _$e7819_) + (let ((_marks7822_ (##direct-structure-ref - _L7765_ + _L7806_ '4 gx#syntax-quote::t '#f))) - (if (null? _marks7781_) - (_generate-simple7723_ - _L7765_) - (_generate-serialized7724_ - _L7765_ - _marks7781_))))) - (gxc#raise-compile-error - '"Cannot quote non-identifier syntax" - _L7765_))) - _hd77387760_) - (_g77317744_ _g77327747_)))) - (_g77317744_ _g77327747_)))) - (_g77317744_ _g77327747_))))) - (_g77307783_ _stx7719_))))) + (if (let () + (declare + (not safe)) + (null? _marks7822_)) + (let () + (declare + (not safe)) + (_generate-simple7764_ + _L7806_)) + (let () + (declare + (not safe)) + (_generate-serialized7765_ + _L7806_ + _marks7822_)))))) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Cannot quote non-identifier syntax" + _L7806_)))) + _hd77797801_) + (let () + (declare (not safe)) + (_g77727785_ _g77737788_))))) + (let () + (declare (not safe)) + (_g77727785_ _g77737788_))))) + (let () + (declare (not safe)) + (_g77727785_ _g77737788_)))))) + (declare (not safe)) + (_g77717824_ _stx7760_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_stx7652_) - (let* ((_g76547671_ - (lambda (_g76557668_) - (gx#raise-syntax-error '#f '"Bad syntax" _g76557668_))) - (_g76537716_ - (lambda (_g76557674_) - (if (gx#stx-pair? _g76557674_) - (let ((_e76587676_ (gx#stx-e _g76557674_))) - (let ((_hd76597679_ + (lambda (_stx7693_) + (let* ((_g76957712_ + (lambda (_g76967709_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g76967709_)))) + (_g76947757_ + (lambda (_g76967715_) + (if (let () (declare (not safe)) (gx#stx-pair? _g76967715_)) + (let ((_e77017717_ + (let () + (declare (not safe)) + (gx#stx-e _g76967715_)))) + (let ((_hd77007720_ + (let () + (declare (not safe)) + (##car _e77017717_))) + (_tl76997722_ + (let () + (declare (not safe)) + (##cdr _e77017717_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl76997722_)) + (let ((_e77047725_ + (let () + (declare (not safe)) + (gx#stx-e _tl76997722_)))) + (let ((_hd77037728_ + (let () + (declare (not safe)) + (##car _e77047725_))) + (_tl77027730_ + (let () + (declare (not safe)) + (##cdr _e77047725_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl77027730_)) + (let ((_e77077733_ + (let () + (declare (not safe)) + (gx#stx-e _tl77027730_)))) + (let ((_hd77067736_ + (let () + (declare (not safe)) + (##car _e77077733_))) + (_tl77057738_ + (let () + (declare (not safe)) + (##cdr _e77077733_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl77057738_)) + ((lambda (_L7741_ _L7742_) + (let ((__tmp17704 + (let ((__tmp17707 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _L7742_))) + (__tmp17705 + (let ((__tmp17706 + (let () + (declare (not safe)) + (gxc#compile-e _L7741_)))) + (declare (not safe)) + (cons __tmp17706 '())))) + (declare (not safe)) + (cons __tmp17707 __tmp17705)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'define __tmp17704))) + _hd77067736_ + _hd77037728_) + (let () + (declare (not safe)) + (_g76957712_ _g76967715_))))) + (let () + (declare (not safe)) + (_g76957712_ _g76967715_))))) + (let () + (declare (not safe)) + (_g76957712_ _g76967715_))))) + (let () + (declare (not safe)) + (_g76957712_ _g76967715_)))))) + (declare (not safe)) + (_g76947757_ _stx7693_)))) + (define gxc#generate-meta-begin% + (lambda (_stx7642_ _state7643_) + (let* ((_g76457655_ + (lambda (_g76467652_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g76467652_)))) + (_g76447690_ + (lambda (_g76467658_) + (if (let () (declare (not safe)) (gx#stx-pair? _g76467658_)) + (let ((_e76507660_ + (let () + (declare (not safe)) + (gx#stx-e _g76467658_)))) + (let ((_hd76497663_ + (let () + (declare (not safe)) + (##car _e76507660_))) + (_tl76487665_ + (let () + (declare (not safe)) + (##cdr _e76507660_)))) + ((lambda (_L7668_) + (let* ((_c-body7682_ + (let ((__tmp17708 + (lambda (_g76777679_) + (let () + (declare (not safe)) + (gxc#compile-e + _g76777679_ + _state7643_))))) + (declare (not safe)) + (map __tmp17708 _L7668_))) + (_c-body7687_ + (filter (lambda (_$obj7684_) + (let ((__tmp17709 + (let () + (declare (not safe)) + (eq? _$obj7684_ + '#!void)))) + (declare (not safe)) + (not __tmp17709))) + _c-body7682_))) + (let () + (declare (not safe)) + (cons '%#begin _c-body7687_)))) + _tl76487665_))) + (let () + (declare (not safe)) + (_g76457655_ _g76467658_)))))) + (declare (not safe)) + (_g76447690_ _stx7642_)))) + (define gxc#generate-meta-begin-syntax% + (lambda (_stx7550_ _state7551_) + (let* ((_g75537563_ + (lambda (_g75547560_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g75547560_)))) + (_g75527639_ + (lambda (_g75547566_) + (if (let () (declare (not safe)) (gx#stx-pair? _g75547566_)) + (let ((_e75587568_ + (let () + (declare (not safe)) + (gx#stx-e _g75547566_)))) + (let ((_hd75577571_ + (let () + (declare (not safe)) + (##car _e75587568_))) + (_tl75567573_ + (let () + (declare (not safe)) + (##cdr _e75587568_)))) + ((lambda (_L7576_) + (let* ((_phi7586_ + (let ((__tmp17710 + (gx#current-expander-phi))) + (declare (not safe)) + (fx+ __tmp17710 '1))) + (_block7588_ + (let () + (declare (not safe)) + (gxc#meta-state-begin-phi! + _state7551_ + _phi7586_))) + (_compiled7591_ + (let ((__tmp17711 + (lambda () + (let ((__tmp17712 + (let ((__tmp17713 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + '%#begin)))) + (declare (not safe)) + (cons __tmp17713 + _L7576_)))) + (declare (not safe)) + (gxc#apply-generate-meta-phi + __tmp17712 + _state7551_))))) + (declare (not safe)) + (call-with-parameters + __tmp17711 + gx#current-expander-phi + _phi7586_)))) + (let* ((_g75947604_ + (lambda (_g75957601_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g75957601_)))) + (_g75937636_ + (lambda (_g75957607_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g75957607_)) + (let ((_e75997609_ + (let () + (declare (not safe)) + (gx#stx-e _g75957607_)))) + (let ((_hd75987612_ + (let () + (declare (not safe)) + (##car _e75997609_))) + (_tl75977614_ + (let () + (declare (not safe)) + (##cdr _e75997609_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd75987612_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#begin + _hd75987612_)) + ((lambda (_L7617_) + (let ((_c-body7634_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (filter (lambda (_$obj7631_) + (let ((__tmp17714 + (let () + (declare (not safe)) + (eq? _$obj7631_ '#!void)))) + (declare (not safe)) + (not __tmp17714))) + _L7617_))) + (if _block7588_ + (let ((__tmp17715 + (let ((__tmp17716 + (let ((__tmp17717 + (let ((__tmp17721 + (let ((__tmp17722 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons 'load-module '())))) + (declare (not safe)) + (cons '%#ref __tmp17722))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17718 + (let ((__tmp17719 + (let ((__tmp17720 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _block7588_ '())))) + (declare (not safe)) + (cons '%#quote __tmp17720)))) + (declare (not safe)) + (cons __tmp17719 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17721 + __tmp17718)))) + (declare (not safe)) + (cons '%#call __tmp17717)))) + (declare (not safe)) + (cons __tmp17716 _c-body7634_)))) + (declare (not safe)) + (cons '%#begin-syntax __tmp17715)) + (if (let () + (declare (not safe)) + (null? _c-body7634_)) + '#!void + (let () + (declare (not safe)) + (cons '%#begin-syntax _c-body7634_)))))) + _tl75977614_) + (let () (declare (not safe)) (_g75947604_ _g75957607_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g75947604_ + _g75957607_))))) + (let () + (declare (not safe)) + (_g75947604_ _g75957607_)))))) + (declare (not safe)) + (_g75937636_ _compiled7591_)))) + _tl75567573_))) + (let () + (declare (not safe)) + (_g75537563_ _g75547566_)))))) + (declare (not safe)) + (_g75527639_ _stx7550_)))) + (define gxc#generate-meta-module% + (lambda (_stx7481_ _state7482_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state7482_)) + (let* ((_g74847498_ + (lambda (_g74857495_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g74857495_)))) + (_g74837547_ + (lambda (_g74857501_) + (if (let () (declare (not safe)) (gx#stx-pair? _g74857501_)) + (let ((_e74907503_ + (let () + (declare (not safe)) + (gx#stx-e _g74857501_)))) + (let ((_hd74897506_ (let () (declare (not safe)) - (##car _e76587676_))) - (_tl76607681_ + (##car _e74907503_))) + (_tl74887508_ (let () (declare (not safe)) - (##cdr _e76587676_)))) - (if (gx#stx-pair? _tl76607681_) - (let ((_e76617684_ (gx#stx-e _tl76607681_))) - (let ((_hd76627687_ + (##cdr _e74907503_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl74887508_)) + (let ((_e74937511_ + (let () + (declare (not safe)) + (gx#stx-e _tl74887508_)))) + (let ((_hd74927514_ (let () (declare (not safe)) - (##car _e76617684_))) - (_tl76637689_ + (##car _e74937511_))) + (_tl74917516_ (let () (declare (not safe)) - (##cdr _e76617684_)))) - (if (gx#stx-pair? _tl76637689_) - (let ((_e76647692_ - (gx#stx-e _tl76637689_))) - (let ((_hd76657695_ + (##cdr _e74937511_)))) + ((lambda (_L7519_ _L7520_) + (let ((_key7533_ + (let () + (declare (not safe)) + (gx#core-identifier-key + _L7520_)))) + (if (let () + (declare (not safe)) + (interned-symbol? _key7533_)) + '#!void + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Cannot compile module with uninterned id" + _stx7481_ + _L7520_ + _key7533_))) + (let* ((_ctx7535_ (let () (declare (not safe)) - (##car _e76647692_))) - (_tl76667697_ - (let () + (gx#syntax-local-e__0 + _L7520_))) + (_code7538_ + (let ((__tmp17723 + (lambda () + (let ((__tmp17724 + (##structure-ref + _ctx7535_ + '11 + gx#module-context::t + '#f))) + (declare (not safe)) + (gxc#compile-e + __tmp17724 + _state7482_))))) (declare (not safe)) - (##cdr _e76647692_)))) - (if (gx#stx-null? _tl76667697_) - ((lambda (_L7700_ _L7701_) - (cons 'define - (cons (gx#stx-e _L7701_) - (cons (gxc#compile-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L7700_) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd76657695_ - _hd76627687_) - (_g76547671_ _g76557674_)))) - (_g76547671_ _g76557674_)))) - (_g76547671_ _g76557674_)))) - (_g76547671_ _g76557674_))))) - (_g76537716_ _stx7652_)))) - (define gxc#generate-meta-begin% - (lambda (_stx7601_ _state7602_) - (let* ((_g76047614_ - (lambda (_g76057611_) - (gx#raise-syntax-error '#f '"Bad syntax" _g76057611_))) - (_g76037649_ - (lambda (_g76057617_) - (if (gx#stx-pair? _g76057617_) - (let ((_e76077619_ (gx#stx-e _g76057617_))) - (let ((_hd76087622_ - (let () - (declare (not safe)) - (##car _e76077619_))) - (_tl76097624_ - (let () - (declare (not safe)) - (##cdr _e76077619_)))) - ((lambda (_L7627_) - (let* ((_c-body7641_ - (map (lambda (_g76367638_) - (gxc#compile-e - _g76367638_ - _state7602_)) - _L7627_)) - (_c-body7646_ - (filter (lambda (_$obj7643_) - (not (eq? _$obj7643_ '#!void))) - _c-body7641_))) - (cons '%#begin _c-body7646_))) - _tl76097624_))) - (_g76047614_ _g76057617_))))) - (_g76037649_ _stx7601_)))) - (define gxc#generate-meta-begin-syntax% - (lambda (_stx7509_ _state7510_) - (let* ((_g75127522_ - (lambda (_g75137519_) - (gx#raise-syntax-error '#f '"Bad syntax" _g75137519_))) - (_g75117598_ - (lambda (_g75137525_) - (if (gx#stx-pair? _g75137525_) - (let ((_e75157527_ (gx#stx-e _g75137525_))) - (let ((_hd75167530_ - (let () - (declare (not safe)) - (##car _e75157527_))) - (_tl75177532_ - (let () - (declare (not safe)) - (##cdr _e75157527_)))) - ((lambda (_L7535_) - (let* ((_phi7545_ - (fx+ (gx#current-expander-phi) '1)) - (_block7547_ - (gxc#meta-state-begin-phi! - _state7510_ - _phi7545_)) - (_compiled7550_ - (call-with-parameters - (lambda () - (gxc#apply-generate-meta-phi - (cons (gx#datum->syntax__0 - '#f - '%#begin) - _L7535_) - _state7510_)) - gx#current-expander-phi - _phi7545_))) - (let* ((_g75537563_ - (lambda (_g75547560_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g75547560_))) - (_g75527595_ - (lambda (_g75547566_) - (if (gx#stx-pair? _g75547566_) - (let ((_e75567568_ - (gx#stx-e _g75547566_))) - (let ((_hd75577571_ - (let () - (declare (not safe)) - (##car _e75567568_))) - (_tl75587573_ - (let () - (declare (not safe)) - (##cdr _e75567568_)))) - (if (gx#identifier? - _hd75577571_) - (if (gx#stx-eq? - '%#begin - _hd75577571_) - ((lambda (_L7576_) - (let ((_c-body7593_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_$obj7590_) - (not (eq? _$obj7590_ '#!void))) - _L7576_))) - (if _block7547_ - (cons '%#begin-syntax - (cons (cons '%#call - (cons (cons '%#ref - (cons 'load-module - '())) - (cons (cons '%#quote - (cons _block7547_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _c-body7593_)) - (if (null? _c-body7593_) - '#!void - (cons '%#begin-syntax _c-body7593_))))) - _tl75587573_) - (_g75537563_ _g75547566_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g75537563_ - _g75547566_)))) - (_g75537563_ _g75547566_))))) - (_g75527595_ _compiled7550_)))) - _tl75177532_))) - (_g75127522_ _g75137525_))))) - (_g75117598_ _stx7509_)))) - (define gxc#generate-meta-module% - (lambda (_stx7440_ _state7441_) - (gxc#meta-state-end-phi! _state7441_) - (let* ((_g74437457_ - (lambda (_g74447454_) - (gx#raise-syntax-error '#f '"Bad syntax" _g74447454_))) - (_g74427506_ - (lambda (_g74447460_) - (if (gx#stx-pair? _g74447460_) - (let ((_e74477462_ (gx#stx-e _g74447460_))) - (let ((_hd74487465_ - (let () - (declare (not safe)) - (##car _e74477462_))) - (_tl74497467_ - (let () - (declare (not safe)) - (##cdr _e74477462_)))) - (if (gx#stx-pair? _tl74497467_) - (let ((_e74507470_ (gx#stx-e _tl74497467_))) - (let ((_hd74517473_ + (call-with-parameters + __tmp17723 + gx#current-expander-context + _ctx7535_))) + (_rt7540_ + (let ((__tmp17725 + (gxc#current-compile-runtime-sections))) + (declare (not safe)) + (table-ref + __tmp17725 + _ctx7535_ + '#f))) + (_loader7542_ + (if _rt7540_ + (let ((__tmp17726 + (let ((__tmp17727 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17731 + (let ((__tmp17732 (let () (declare (not safe)) - (##car _e74507470_))) - (_tl74527475_ - (let () + (cons 'load-module '())))) + (declare (not safe)) + (cons '%#ref __tmp17732))) + (__tmp17728 + (let ((__tmp17729 + (let ((__tmp17730 + (let () + (declare (not safe)) + (cons _rt7540_ '())))) (declare (not safe)) - (##cdr _e74507470_)))) - ((lambda (_L7478_ _L7479_) - (let ((_key7492_ - (gx#core-identifier-key _L7479_))) - (if (interned-symbol? _key7492_) - '#!void - (gxc#raise-compile-error - '"Cannot compile module with uninterned id" - _stx7440_ - _L7479_ - _key7492_)) - (let* ((_ctx7494_ - (gx#syntax-local-e__0 _L7479_)) - (_code7497_ - (call-with-parameters - (lambda () - (gxc#compile-e - (##structure-ref - _ctx7494_ - '11 - gx#module-context::t - '#f) - _state7441_)) - gx#current-expander-context - _ctx7494_)) - (_rt7499_ - (table-ref - (gxc#current-compile-runtime-sections) - _ctx7494_ - '#f)) - (_loader7501_ - (if _rt7499_ - (cons (cons '%#call - (cons (cons '%#ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'load-module '())) - (cons (cons '%#quote (cons _rt7499_ '())) '()))) - '()) + (cons '%#quote __tmp17730)))) + (declare (not safe)) + (cons __tmp17729 '())))) + (declare (not safe)) + (cons __tmp17731 __tmp17728)))) + (declare (not safe)) + (cons '%#call __tmp17727)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17726 '())) '())) - (_modid7503_ (gx#stx-e _L7479_))) - (gxc#meta-state-end-phi! _state7441_) - (cons '%#module - (cons _modid7503_ - (cons _code7497_ - _loader7501_)))))) - _tl74527475_ - _hd74517473_))) - (_g74437457_ _g74447460_)))) - (_g74437457_ _g74447460_))))) - (_g74427506_ _stx7440_)))) + (_modid7544_ + (let () + (declare (not safe)) + (gx#stx-e _L7520_)))) + (let () + (declare (not safe)) + (gxc#meta-state-end-phi! + _state7482_)) + (let ((__tmp17733 + (let ((__tmp17734 + (let () + (declare (not safe)) + (cons _code7538_ + _loader7542_)))) + (declare (not safe)) + (cons _modid7544_ + __tmp17734)))) + (declare (not safe)) + (cons '%#module __tmp17733))))) + _tl74917516_ + _hd74927514_))) + (let () + (declare (not safe)) + (_g74847498_ _g74857501_))))) + (let () + (declare (not safe)) + (_g74847498_ _g74857501_)))))) + (declare (not safe)) + (_g74837547_ _stx7481_)))) (define gxc#generate-meta-import-path - (lambda (_ctx7430_ _context-chain7431_) - (let _lp7433_ ((_ctx7435_ _ctx7430_) (_path7436_ '())) - (let ((_super7438_ - (##structure-ref _ctx7435_ '3 gx#phi-context::t '#f))) - (if (memq _super7438_ _context-chain7431_) - (cons '#f - (cons (car (##structure-ref - _ctx7435_ - '7 - gx#module-context::t - '#f)) - _path7436_)) + (lambda (_ctx7471_ _context-chain7472_) + (let _lp7474_ ((_ctx7476_ _ctx7471_) (_path7477_ '())) + (let ((_super7479_ + (##structure-ref _ctx7476_ '3 gx#phi-context::t '#f))) + (if (let () + (declare (not safe)) + (memq _super7479_ _context-chain7472_)) + (let ((__tmp17739 + (let ((__tmp17740 + (let ((__tmp17741 + (##structure-ref + _ctx7476_ + '7 + gx#module-context::t + '#f))) + (declare (not safe)) + (car __tmp17741)))) + (declare (not safe)) + (cons __tmp17740 _path7477_)))) + (declare (not safe)) + (cons '#f __tmp17739)) (if (let () (declare (not safe)) (##structure-instance-of? - _super7438_ + _super7479_ 'gx#module-context::t)) - (_lp7433_ - _super7438_ - (cons (car (##structure-ref - _ctx7435_ - '7 - gx#module-context::t - '#f)) - _path7436_)) - (cons (make-symbol - '":" - (##structure-ref - _ctx7435_ - '1 - gx#expander-context::t - '#f)) - _path7436_))))))) + (let ((__tmp17736 + (let ((__tmp17737 + (let ((__tmp17738 + (##structure-ref + _ctx7476_ + '7 + gx#module-context::t + '#f))) + (declare (not safe)) + (car __tmp17738)))) + (declare (not safe)) + (cons __tmp17737 _path7477_)))) + (declare (not safe)) + (_lp7474_ _super7479_ __tmp17736)) + (let ((__tmp17735 + (make-symbol + '":" + (##structure-ref + _ctx7476_ + '1 + gx#expander-context::t + '#f)))) + (declare (not safe)) + (cons __tmp17735 _path7477_)))))))) (define gxc#current-context-chain (lambda () - (let _lp7425_ ((_ctx7427_ (gx#current-expander-context)) (_r7428_ '())) + (let _lp7466_ ((_ctx7468_ (gx#current-expander-context)) (_r7469_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _ctx7427_ 'gx#module-context::t)) - (_lp7425_ - (##structure-ref _ctx7427_ '3 gx#phi-context::t '#f) - (cons _ctx7427_ _r7428_)) - _r7428_)))) + (##structure-instance-of? _ctx7468_ 'gx#module-context::t)) + (let ((__tmp17743 + (##structure-ref _ctx7468_ '3 gx#phi-context::t '#f)) + (__tmp17742 + (let () (declare (not safe)) (cons _ctx7468_ _r7469_)))) + (declare (not safe)) + (_lp7466_ __tmp17743 __tmp17742)) + _r7469_)))) (define gxc#generate-meta-import% - (lambda (_stx7194_ _state7195_) - (letrec* ((_context-chain7197_ (gxc#current-context-chain)) - (_make-import-spec7198_ - (lambda (_in7361_) - (let* ((_in73627374_ _in7361_) - (_E73647378_ + (lambda (_stx7235_ _state7236_) + (letrec* ((_context-chain7238_ + (let () (declare (not safe)) (gxc#current-context-chain))) + (_make-import-spec7239_ + (lambda (_in7402_) + (let* ((_in74037415_ _in7402_) + (_E74057419_ (lambda () - (error '"No clause matching" _in73627374_))) - (_K73657388_ - (lambda (_phi7381_ - _name7382_ - _src-name7383_ - _src-phi7384_ - _src-key7385_ - _src-ctx7386_) - (cons _phi7381_ - (cons (gxc#generate-runtime-identifier-key - _name7382_) - (cons _src-phi7384_ - (cons (gxc#generate-runtime-identifier-key - _src-name7383_) - '()))))))) + (error '"No clause matching" _in74037415_))) + (_K74067429_ + (lambda (_phi7422_ + _name7423_ + _src-name7424_ + _src-phi7425_ + _src-key7426_ + _src-ctx7427_) + (let ((__tmp17744 + (let ((__tmp17748 + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier-key + _name7423_))) + (__tmp17745 + (let ((__tmp17746 + (let ((__tmp17747 + (let () + (declare + (not safe)) + (gxc#generate-runtime-identifier-key + _src-name7424_)))) + (declare (not safe)) + (cons __tmp17747 '())))) + (declare (not safe)) + (cons _src-phi7425_ + __tmp17746)))) + (declare (not safe)) + (cons __tmp17748 __tmp17745)))) + (declare (not safe)) + (cons _phi7422_ __tmp17744))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in73627374_ + _in74037415_ 'gx#module-import::t)) - (let ((_e73667391_ + (let ((_e74077432_ (let () (declare (not safe)) - (##vector-ref _in73627374_ '1)))) + (##vector-ref _in74037415_ '1)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e73667391_ + _e74077432_ 'gx#module-export::t)) - (let* ((_e73697394_ + (let* ((_e74107435_ (let () (declare (not safe)) - (##vector-ref _e73667391_ '1))) - (_src-ctx7397_ _e73697394_) - (_e73707399_ + (##vector-ref _e74077432_ '1))) + (_src-ctx7438_ _e74107435_) + (_e74117440_ (let () (declare (not safe)) - (##vector-ref _e73667391_ '2))) - (_src-key7402_ _e73707399_) - (_e73717404_ + (##vector-ref _e74077432_ '2))) + (_src-key7443_ _e74117440_) + (_e74127445_ (let () (declare (not safe)) - (##vector-ref _e73667391_ '3))) - (_src-phi7407_ _e73717404_) - (_e73727409_ + (##vector-ref _e74077432_ '3))) + (_src-phi7448_ _e74127445_) + (_e74137450_ (let () (declare (not safe)) - (##vector-ref _e73667391_ '4))) - (_src-name7412_ _e73727409_) - (_e73677414_ + (##vector-ref _e74077432_ '4))) + (_src-name7453_ _e74137450_) + (_e74087455_ (let () (declare (not safe)) - (##vector-ref _in73627374_ '2))) - (_name7417_ _e73677414_) - (_e73687419_ + (##vector-ref _in74037415_ '2))) + (_name7458_ _e74087455_) + (_e74097460_ (let () (declare (not safe)) - (##vector-ref _in73627374_ '3))) - (_phi7422_ _e73687419_)) - (_K73657388_ - _phi7422_ - _name7417_ - _src-name7412_ - _src-phi7407_ - _src-key7402_ - _src-ctx7397_)) - (_E73647378_))) - (_E73647378_))))) - (_make-import-path7199_ - (lambda (_ctx7359_) - (gxc#generate-meta-import-path - _ctx7359_ - _context-chain7197_))) - (_make-import-spec-in7200_ - (lambda (_ctx7356_ _in7357_) - (cons 'spec: - (cons (_make-import-path7199_ _ctx7356_) - (reverse _in7357_)))))) - (gxc#meta-state-end-phi! _state7195_) - (let* ((_g72027212_ - (lambda (_g72037209_) - (gx#raise-syntax-error '#f '"Bad syntax" _g72037209_))) - (_g72017353_ - (lambda (_g72037215_) - (if (gx#stx-pair? _g72037215_) - (let ((_e72057217_ (gx#stx-e _g72037215_))) - (let ((_hd72067220_ + (##vector-ref _in74037415_ '3))) + (_phi7463_ _e74097460_)) + (declare (not safe)) + (_K74067429_ + _phi7463_ + _name7458_ + _src-name7453_ + _src-phi7448_ + _src-key7443_ + _src-ctx7438_)) + (let () (declare (not safe)) (_E74057419_)))) + (let () (declare (not safe)) (_E74057419_)))))) + (_make-import-path7240_ + (lambda (_ctx7400_) + (let () + (declare (not safe)) + (gxc#generate-meta-import-path + _ctx7400_ + _context-chain7238_)))) + (_make-import-spec-in7241_ + (lambda (_ctx7397_ _in7398_) + (let ((__tmp17749 + (let ((__tmp17751 + (let () + (declare (not safe)) + (_make-import-path7240_ _ctx7397_))) + (__tmp17750 + (let () + (declare (not safe)) + (reverse _in7398_)))) + (declare (not safe)) + (cons __tmp17751 __tmp17750)))) + (declare (not safe)) + (cons 'spec: __tmp17749))))) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state7236_)) + (let* ((_g72437253_ + (lambda (_g72447250_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g72447250_)))) + (_g72427394_ + (lambda (_g72447256_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g72447256_)) + (let ((_e72487258_ + (let () + (declare (not safe)) + (gx#stx-e _g72447256_)))) + (let ((_hd72477261_ (let () (declare (not safe)) - (##car _e72057217_))) - (_tl72077222_ + (##car _e72487258_))) + (_tl72467263_ (let () (declare (not safe)) - (##cdr _e72057217_)))) - ((lambda (_L7225_) - (let _lp7236_ ((_rest7238_ _L7225_) - (_current-src7239_ '#f) - (_current-in7240_ '()) - (_r7241_ '())) - (let* ((_rest72427250_ _rest7238_) - (_else72447260_ + (##cdr _e72487258_)))) + ((lambda (_L7266_) + (let _lp7277_ ((_rest7279_ _L7266_) + (_current-src7280_ '#f) + (_current-in7281_ '()) + (_r7282_ '())) + (let* ((_rest72837291_ _rest7279_) + (_else72857301_ (lambda () - (let ((_r7258_ (if _current-src7239_ - (cons (_make-import-spec-in7200_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _current-src7239_ - _current-in7240_) - _r7241_) - _r7241_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons '%#import - (reverse _r7258_))))) - (_K72467341_ - (lambda (_rest7263_ _in7264_) + (let* ((_r7299_ (if _current-src7280_ + (let ((__tmp17752 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (_make-import-spec-in7241_ + _current-src7280_ + _current-in7281_)))) + (declare (not safe)) + (cons __tmp17752 _r7282_)) + _r7282_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17753 + (let () + (declare (not safe)) + (reverse _r7299_)))) + (declare (not safe)) + (cons '%#import __tmp17753)))) + (_K72877382_ + (lambda (_rest7304_ _in7305_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in7264_ + _in7305_ 'gx#module-import::t)) - (let* ((_in72657272_ _in7264_) - (_E72677276_ + (let* ((_in73067313_ _in7305_) + (_E73087317_ (lambda () (error '"No clause matching" - _in72657272_))) - (_K72687281_ - (lambda (_src-ctx7279_) - (if (eq? _current-src7239_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _src-ctx7279_) - (_lp7236_ - _rest7263_ - _current-src7239_ - (cons (_make-import-spec7198_ _in7264_) _current-in7240_) - _r7241_) - (if _current-src7239_ - (_lp7236_ - _rest7263_ - _src-ctx7279_ - (cons (_make-import-spec7198_ _in7264_) '()) - (cons (_make-import-spec-in7200_ - _current-src7239_ - _current-in7240_) - _r7241_)) - (_lp7236_ - _rest7263_ - _src-ctx7279_ - (cons (_make-import-spec7198_ _in7264_) '()) - _r7241_)))))) + _in73067313_))) + (_K73097322_ + (lambda (_src-ctx7320_) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (eq? _current-src7280_ _src-ctx7320_)) + (let ((__tmp17769 + (let ((__tmp17770 + (let () + (declare (not safe)) + (_make-import-spec7239_ _in7305_)))) + (declare (not safe)) + (cons __tmp17770 _current-in7281_)))) + (declare (not safe)) + (_lp7277_ + _rest7304_ + _current-src7280_ + __tmp17769 + _r7282_)) + (if _current-src7280_ + (let ((__tmp17767 + (let ((__tmp17768 + (let () + (declare (not safe)) + (_make-import-spec7239_ _in7305_)))) + (declare (not safe)) + (cons __tmp17768 '()))) + (__tmp17765 + (let ((__tmp17766 + (let () + (declare (not safe)) + (_make-import-spec-in7241_ + _current-src7280_ + _current-in7281_)))) + (declare (not safe)) + (cons __tmp17766 _r7282_)))) + (declare (not safe)) + (_lp7277_ + _rest7304_ + _src-ctx7320_ + __tmp17767 + __tmp17765)) + (let ((__tmp17763 + (let ((__tmp17764 + (let () + (declare (not safe)) + (_make-import-spec7239_ _in7305_)))) + (declare (not safe)) + (cons __tmp17764 '())))) + (declare (not safe)) + (_lp7277_ + _rest7304_ + _src-ctx7320_ + __tmp17763 + _r7282_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in72657272_ + _in73067313_ 'gx#module-import::t)) - (let ((_e72697284_ + (let ((_e73107325_ (let () (declare (not safe)) (##vector-ref - _in72657272_ + _in73067313_ '1)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e72697284_ + _e73107325_ 'gx#module-export::t)) - (let* ((_e72707287_ + (let* ((_e73117328_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _e72697284_ '1))) - (_src-ctx7290_ _e72707287_)) - (_K72687281_ _src-ctx7290_)) - (_E72677276_))) + (##vector-ref _e73107325_ '1))) + (_src-ctx7331_ _e73117328_)) + (declare (not safe)) + (_K73097322_ _src-ctx7331_)) + (let () (declare (not safe)) (_E73087317_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E72677276_))) + (let () + (declare (not safe)) + (_E73087317_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in7264_ + _in7305_ 'gx#import-set::t)) - (let* ((_phi7292_ + (let* ((_phi7333_ (##direct-structure-ref - _in7264_ + _in7305_ '2 gx#import-set::t '#f)) - (_src7294_ + (_src7335_ (##direct-structure-ref - _in7264_ + _in7305_ '1 gx#import-set::t '#f)) - (_src-in7334_ - (let* ((_g72957304_ + (_src-in7375_ + (let* ((_g73367345_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_make-import-path7199_ _src7294_)) - (_E72987308_ + (let () + (declare (not safe)) + (_make-import-path7240_ _src7335_))) + (_E73397349_ (lambda () - (error '"No clause matching" _g72957304_)))) - (let ((_K73007324_ (lambda (_path7322_) _path7322_)) - (_K72997314_ - (lambda (_path7312_) (cons 'in: _path7312_)))) - (if (let () (declare (not safe)) (##pair? _g72957304_)) - (let ((_tl73027329_ + (error '"No clause matching" _g73367345_)))) + (let ((_K73417365_ (lambda (_path7363_) _path7363_)) + (_K73407355_ + (lambda (_path7353_) + (let () + (declare (not safe)) + (cons 'in: _path7353_))))) + (if (let () (declare (not safe)) (##pair? _g73367345_)) + (let ((_tl73437370_ (let () (declare (not safe)) - (##cdr _g72957304_))) - (_hd73017327_ + (##cdr _g73367345_))) + (_hd73427368_ (let () (declare (not safe)) - (##car _g72957304_)))) + (##car _g73367345_)))) (if (let () (declare (not safe)) - (##null? _tl73027329_)) - (let ((_path7332_ _hd73017327_)) - (_K73007324_ _path7332_)) - (let ((_path7317_ _g72957304_)) - (_K72997314_ _path7317_)))) - (let ((_path7317_ _g72957304_)) - (_K72997314_ _path7317_)))))) - (_r7336_ (if _current-src7239_ - (cons (_make-import-spec-in7200_ - _current-src7239_ - _current-in7240_) - _r7241_) - _r7241_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp7236_ - _rest7263_ - '#f - '() - (cons (if (fxzero? _phi7292_) - _src-in7334_ - (cons 'phi: + (##null? _tl73437370_)) + (let ((_path7373_ _hd73427368_)) + (declare (not safe)) + (_K73417365_ _path7373_)) + (let ((_path7358_ _g73367345_)) + (declare (not safe)) + (_K73407355_ _path7358_)))) + (let ((_path7358_ _g73367345_)) + (declare (not safe)) + (_K73407355_ _path7358_)))))) + (_r7377_ (if _current-src7280_ + (let ((__tmp17758 + (let () + (declare (not safe)) + (_make-import-spec-in7241_ + _current-src7280_ + _current-in7281_)))) + (declare (not safe)) + (cons __tmp17758 _r7282_)) + _r7282_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp17759 + (let ((__tmp17760 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _phi7292_ (cons _src-in7334_ '())))) - _r7336_))) + (if (let () + (declare (not safe)) + (fxzero? _phi7333_)) + _src-in7375_ + (let ((__tmp17761 + (let ((__tmp17762 + (let () + (declare (not safe)) + (cons _src-in7375_ '())))) + (declare (not safe)) + (cons _phi7333_ __tmp17762)))) + (declare (not safe)) + (cons 'phi: __tmp17761))))) + (declare (not safe)) + (cons __tmp17760 _r7377_)))) + (declare (not safe)) + (_lp7277_ _rest7304_ '#f '() __tmp17759))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _in7264_ + _in7305_ 'gx#module-context::t)) - (let ((_r7339_ (if _current-src7239_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (_make-import-spec-in7200_ - _current-src7239_ - _current-in7240_) - _r7241_) - _r7241_))) - (_lp7236_ - _rest7263_ - '#f - '() - (cons (cons 'runtime: (_make-import-path7199_ _in7264_)) - _r7339_))) + (let* ((_r7380_ (if _current-src7280_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17754 + (let () + (declare (not safe)) + (_make-import-spec-in7241_ + _current-src7280_ + _current-in7281_)))) + (declare (not safe)) + (cons __tmp17754 _r7282_)) + _r7282_)) + (__tmp17755 + (let ((__tmp17756 + (let ((__tmp17757 + (let () + (declare (not safe)) + (_make-import-path7240_ _in7305_)))) + (declare (not safe)) + (cons 'runtime: __tmp17757)))) + (declare (not safe)) + (cons __tmp17756 _r7380_)))) + (declare (not safe)) + (_lp7277_ _rest7304_ '#f '() __tmp17755)) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest72427250_)) - (let ((_hd72477344_ + (##pair? _rest72837291_)) + (let ((_hd72887385_ (let () (declare (not safe)) - (##car _rest72427250_))) - (_tl72487346_ + (##car _rest72837291_))) + (_tl72897387_ (let () (declare (not safe)) - (##cdr _rest72427250_)))) - (let* ((_in7349_ _hd72477344_) - (_rest7351_ _tl72487346_)) - (_K72467341_ _rest7351_ _in7349_))) - (_else72447260_))))) - _tl72077222_))) - (_g72027212_ _g72037215_))))) - (_g72017353_ _stx7194_))))) + (##cdr _rest72837291_)))) + (let* ((_in7390_ _hd72887385_) + (_rest7392_ _tl72897387_)) + (declare (not safe)) + (_K72877382_ _rest7392_ _in7390_))) + (let () + (declare (not safe)) + (_else72857301_)))))) + _tl72467263_))) + (let () + (declare (not safe)) + (_g72437253_ _g72447256_)))))) + (declare (not safe)) + (_g72427394_ _stx7235_))))) (define gxc#generate-meta-export% - (lambda (_stx7004_ _state7005_) - (letrec* ((_context-chain7007_ (gxc#current-context-chain)) - (_make-import-path7008_ - (lambda (_ctx7192_) - (gxc#generate-meta-import-path - _ctx7192_ - _context-chain7007_)))) - (let* ((_g70107020_ - (lambda (_g70117017_) - (gx#raise-syntax-error '#f '"Bad syntax" _g70117017_))) - (_g70097189_ - (lambda (_g70117023_) - (if (gx#stx-pair? _g70117023_) - (let ((_e70137025_ (gx#stx-e _g70117023_))) - (let ((_hd70147028_ + (lambda (_stx7045_ _state7046_) + (letrec* ((_context-chain7048_ + (let () (declare (not safe)) (gxc#current-context-chain))) + (_make-import-path7049_ + (lambda (_ctx7233_) + (let () + (declare (not safe)) + (gxc#generate-meta-import-path + _ctx7233_ + _context-chain7048_))))) + (let* ((_g70517061_ + (lambda (_g70527058_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g70527058_)))) + (_g70507230_ + (lambda (_g70527064_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g70527064_)) + (let ((_e70567066_ + (let () + (declare (not safe)) + (gx#stx-e _g70527064_)))) + (let ((_hd70557069_ (let () (declare (not safe)) - (##car _e70137025_))) - (_tl70157030_ + (##car _e70567066_))) + (_tl70547071_ (let () (declare (not safe)) - (##cdr _e70137025_)))) - ((lambda (_L7033_) - (let _lp7044_ ((_rest7046_ _L7033_) - (_r7047_ '())) - (let* ((_rest70487056_ _rest7046_) - (_else70507064_ + (##cdr _e70567066_)))) + ((lambda (_L7074_) + (let _lp7085_ ((_rest7087_ _L7074_) + (_r7088_ '())) + (let* ((_rest70897097_ _rest7087_) + (_else70917105_ (lambda () - (cons '%#export (reverse _r7047_)))) - (_K70527177_ - (lambda (_rest7067_ _out7068_) - (let* ((_out70697082_ _out7068_) - (_E70727086_ + (let ((__tmp17771 + (let () + (declare (not safe)) + (reverse _r7088_)))) + (declare (not safe)) + (cons '%#export __tmp17771)))) + (_K70937218_ + (lambda (_rest7108_ _out7109_) + (let* ((_out71107123_ _out7109_) + (_E71137127_ (lambda () (error '"No clause matching" - _out70697082_)))) - (let ((_K70767156_ - (lambda (_name7152_ - _phi7153_ - _key7154_) - (_lp7044_ - _rest7067_ - (cons (cons 'spec: -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _phi7153_ - (cons (gxc#generate-runtime-identifier-key - _key7154_) - (cons (gxc#generate-runtime-identifier-key - _name7152_) - '())))) - _r7047_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K70737136_ - (lambda (_phi7090_ - _src7091_) - (let* ((_out7131_ - (if _src7091_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'import: - (cons (let* ((_g70927101_ - (_make-import-path7008_ - _src7091_)) - (_E70957105_ - (lambda () - (error '"No clause matching" - _g70927101_)))) - (let ((_K70977121_ - (lambda (_path7119_) - _path7119_)) - (_K70967111_ - (lambda (_path7109_) - (cons 'in: _path7109_)))) - (if (let () - (declare (not safe)) - (##pair? _g70927101_)) - (let ((_tl70997126_ - (let () - (declare (not safe)) - (##cdr _g70927101_))) - (_hd70987124_ - (let () - (declare (not safe)) - (##car _g70927101_)))) - (if (let () - (declare (not safe)) - (##null? _tl70997126_)) - (let ((_path7129_ - _hd70987124_)) - (_K70977121_ _path7129_)) - (let ((_path7114_ - _g70927101_)) - (_K70967111_ - _path7114_)))) - (let ((_path7114_ _g70927101_)) - (_K70967111_ _path7114_))))) - '())) + _out71107123_)))) + (let ((_K71177197_ + (lambda (_name7193_ + _phi7194_ + _key7195_) + (let ((__tmp17772 + (let ((__tmp17773 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17774 + (let ((__tmp17775 + (let ((__tmp17778 + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier-key + _key7195_))) + (__tmp17776 + (let ((__tmp17777 + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier-key + _name7193_)))) + (declare (not safe)) + (cons __tmp17777 '())))) + (declare (not safe)) + (cons __tmp17778 __tmp17776)))) + (declare (not safe)) + (cons _phi7194_ __tmp17775)))) + (declare (not safe)) + (cons 'spec: __tmp17774)))) + (declare (not safe)) + (cons __tmp17773 _r7088_)))) + (declare (not safe)) + (_lp7085_ _rest7108_ __tmp17772)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_K71147177_ + (lambda (_phi7131_ + _src7132_) + (let* ((_out7172_ + (if _src7132_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17779 + (let ((__tmp17780 + (let* ((_g71337142_ + (let () + (declare (not safe)) + (_make-import-path7049_ + _src7132_))) + (_E71367146_ + (lambda () + (error '"No clause matching" + _g71337142_)))) + (let ((_K71387162_ + (lambda (_path7160_) + _path7160_)) + (_K71377152_ + (lambda (_path7150_) + (let () + (declare (not safe)) + (cons 'in: _path7150_))))) + (if (let () + (declare (not safe)) + (##pair? _g71337142_)) + (let ((_tl71407167_ + (let () + (declare (not safe)) + (##cdr _g71337142_))) + (_hd71397165_ + (let () + (declare (not safe)) + (##car _g71337142_)))) + (if (let () + (declare (not safe)) + (##null? _tl71407167_)) + (let ((_path7170_ + _hd71397165_)) + (declare (not safe)) + (_K71387162_ + _path7170_)) + (let ((_path7155_ + _g71337142_)) + (declare (not safe)) + (_K71377152_ + _path7155_)))) + (let ((_path7155_ _g71337142_)) + (declare (not safe)) + (_K71377152_ + _path7155_))))))) + (declare (not safe)) + (cons __tmp17780 '())))) + (declare (not safe)) + (cons 'import: __tmp17779)) '#t)) - (_out7133_ - (if (fxzero? _phi7090_) - _out7131_ - (cons 'phi: (cons _phi7090_ (cons _out7131_ '())))))) - (_lp7044_ _rest7067_ (cons _out7133_ _r7047_)))))) + (_out7174_ + (if (let () (declare (not safe)) (fxzero? _phi7131_)) + _out7172_ + (let ((__tmp17781 + (let ((__tmp17782 + (let () + (declare (not safe)) + (cons _out7172_ '())))) + (declare (not safe)) + (cons _phi7131_ __tmp17782)))) + (declare (not safe)) + (cons 'phi: __tmp17781))))) + (let ((__tmp17783 + (let () (declare (not safe)) (cons _out7174_ _r7088_)))) + (declare (not safe)) + (_lp7085_ _rest7108_ __tmp17783)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match70717149_ + (let ((_try-match71127190_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out70697082_ + _out71107123_ 'gx#export-set::t)) - (let* ((_e70747139_ + (let* ((_e71157180_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _out70697082_ '1))) - (_e70757144_ + (##vector-ref _out71107123_ '1))) + (_e71167185_ (let () (declare (not safe)) - (##vector-ref _out70697082_ '2)))) - (let ((_src7142_ _e70747139_) (_phi7147_ _e70757144_)) - (_K70737136_ _phi7147_ _src7142_))) - (_E70727086_))))) + (##vector-ref _out71107123_ '2)))) + (let ((_src7183_ _e71157180_) (_phi7188_ _e71167185_)) + (let () + (declare (not safe)) + (_K71147177_ _phi7188_ _src7183_)))) + (let () (declare (not safe)) (_E71137127_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out70697082_ + _out71107123_ 'gx#module-export::t)) - (let* ((_e70777159_ + (let* ((_e71187200_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _out70697082_ '1))) - (_e70787162_ + (##vector-ref _out71107123_ '1))) + (_e71197203_ (let () (declare (not safe)) - (##vector-ref _out70697082_ '2))) - (_e70797167_ + (##vector-ref _out71107123_ '2))) + (_e71207208_ (let () (declare (not safe)) - (##vector-ref _out70697082_ '3))) - (_e70807172_ + (##vector-ref _out71107123_ '3))) + (_e71217213_ (let () (declare (not safe)) - (##vector-ref _out70697082_ '4)))) - (let ((_key7165_ _e70787162_) - (_phi7170_ _e70797167_) - (_name7175_ _e70807172_)) - (_K70767156_ _name7175_ _phi7170_ _key7165_))) + (##vector-ref _out71107123_ '4)))) + (let ((_key7206_ _e71197203_) + (_phi7211_ _e71207208_) + (_name7216_ _e71217213_)) + (let () + (declare (not safe)) + (_K71177197_ _name7216_ _phi7211_ _key7206_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_try-match70717149_)))))))) + (let () + (declare (not safe)) + (_try-match71127190_))))))))) (if (let () (declare (not safe)) - (##pair? _rest70487056_)) - (let ((_hd70537180_ + (##pair? _rest70897097_)) + (let ((_hd70947221_ (let () (declare (not safe)) - (##car _rest70487056_))) - (_tl70547182_ + (##car _rest70897097_))) + (_tl70957223_ (let () (declare (not safe)) - (##cdr _rest70487056_)))) - (let* ((_out7185_ _hd70537180_) - (_rest7187_ _tl70547182_)) - (_K70527177_ _rest7187_ _out7185_))) - (_else70507064_))))) - _tl70157030_))) - (_g70107020_ _g70117023_))))) - (_g70097189_ _stx7004_))))) + (##cdr _rest70897097_)))) + (let* ((_out7226_ _hd70947221_) + (_rest7228_ _tl70957223_)) + (declare (not safe)) + (_K70937218_ _rest7228_ _out7226_))) + (let () + (declare (not safe)) + (_else70917105_)))))) + _tl70547071_))) + (let () + (declare (not safe)) + (_g70517061_ _g70527064_)))))) + (declare (not safe)) + (_g70507230_ _stx7045_))))) (define gxc#generate-meta-provide% - (lambda (_stx6965_ _state6966_) - (gxc#meta-state-end-phi! _state6966_) - (let* ((_g69686978_ - (lambda (_g69696975_) - (gx#raise-syntax-error '#f '"Bad syntax" _g69696975_))) - (_g69677001_ - (lambda (_g69696981_) - (if (gx#stx-pair? _g69696981_) - (let ((_e69716983_ (gx#stx-e _g69696981_))) - (let ((_hd69726986_ - (let () - (declare (not safe)) - (##car _e69716983_))) - (_tl69736988_ - (let () - (declare (not safe)) - (##cdr _e69716983_)))) - ((lambda (_L6991_) - (cons '%#provide - (map gxc#generate-runtime-identifier - _L6991_))) - _tl69736988_))) - (_g69686978_ _g69696981_))))) - (_g69677001_ _stx6965_)))) + (lambda (_stx7006_ _state7007_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state7007_)) + (let* ((_g70097019_ + (lambda (_g70107016_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g70107016_)))) + (_g70087042_ + (lambda (_g70107022_) + (if (let () (declare (not safe)) (gx#stx-pair? _g70107022_)) + (let ((_e70147024_ + (let () + (declare (not safe)) + (gx#stx-e _g70107022_)))) + (let ((_hd70137027_ + (let () + (declare (not safe)) + (##car _e70147024_))) + (_tl70127029_ + (let () + (declare (not safe)) + (##cdr _e70147024_)))) + ((lambda (_L7032_) + (let ((__tmp17784 + (let () + (declare (not safe)) + (map gxc#generate-runtime-identifier + _L7032_)))) + (declare (not safe)) + (cons '%#provide __tmp17784))) + _tl70127029_))) + (let () + (declare (not safe)) + (_g70097019_ _g70107022_)))))) + (declare (not safe)) + (_g70087042_ _stx7006_)))) (define gxc#generate-meta-extern% - (lambda (_stx6836_ _state6837_) - (letrec ((_generate16839_ - (lambda (_id6960_ _eid6961_) - (let ((_eid6963_ (gx#stx-e _eid6961_))) - (if (interned-symbol? _eid6963_) + (lambda (_stx6877_ _state6878_) + (letrec ((_generate16880_ + (lambda (_id7001_ _eid7002_) + (let ((_eid7004_ + (let () (declare (not safe)) (gx#stx-e _eid7002_)))) + (if (let () + (declare (not safe)) + (interned-symbol? _eid7004_)) '#!void - (gxc#raise-compile-error - '"Cannot compile extern reference" - _stx6836_ - _eid6963_)) - (cons (gxc#generate-runtime-identifier _id6960_) - (cons _eid6963_ '())))))) - (let* ((_g68416869_ - (lambda (_g68426866_) - (gx#raise-syntax-error '#f '"Bad syntax" _g68426866_))) - (_g68406957_ - (lambda (_g68426872_) - (if (gx#stx-pair? _g68426872_) - (let ((_e68456874_ (gx#stx-e _g68426872_))) - (let ((_hd68466877_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Cannot compile extern reference" + _stx6877_ + _eid7004_))) + (let ((__tmp17786 + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier _id7001_))) + (__tmp17785 + (let () + (declare (not safe)) + (cons _eid7004_ '())))) + (declare (not safe)) + (cons __tmp17786 __tmp17785)))))) + (let* ((_g68826910_ + (lambda (_g68836907_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g68836907_)))) + (_g68816998_ + (lambda (_g68836913_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g68836913_)) + (let ((_e68886915_ + (let () + (declare (not safe)) + (gx#stx-e _g68836913_)))) + (let ((_hd68876918_ (let () (declare (not safe)) - (##car _e68456874_))) - (_tl68476879_ + (##car _e68886915_))) + (_tl68866920_ (let () (declare (not safe)) - (##cdr _e68456874_)))) - (if (gx#stx-pair/null? _tl68476879_) - (let ((_g16686_ - (gx#syntax-split-splice - _tl68476879_ - '0))) + (##cdr _e68886915_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl68866920_)) + (let ((_g17787_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl68866920_ + '0)))) (begin - (let ((_g16687_ + (let ((_g17788_ (let () (declare (not safe)) - (if (##values? _g16686_) - (##vector-length _g16686_) + (if (##values? _g17787_) + (##vector-length _g17787_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g16687_ 2))) + (##fx= _g17788_ 2))) (error "Context expects 2 values" - _g16687_))) - (let ((_target68486882_ + _g17788_))) + (let ((_target68896923_ (let () (declare (not safe)) - (##vector-ref _g16686_ 0))) - (_tl68506884_ + (##vector-ref _g17787_ 0))) + (_tl68916925_ (let () (declare (not safe)) - (##vector-ref _g16686_ 1)))) - (if (gx#stx-null? _tl68506884_) - (letrec ((_loop68516887_ - (lambda (_hd68496890_ - _eid68556892_ - _id68566894_) - (if (gx#stx-pair? - _hd68496890_) - (let ((_e68526897_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd68496890_))) - (let ((_lp-hd68536900_ - (let () (declare (not safe)) (##car _e68526897_))) - (_lp-tl68546902_ - (let () (declare (not safe)) (##cdr _e68526897_)))) - (if (gx#stx-pair? _lp-hd68536900_) - (let ((_e68596905_ (gx#stx-e _lp-hd68536900_))) - (let ((_hd68606908_ + (##vector-ref _g17787_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl68916925_)) + (letrec ((_loop68926928_ + (lambda (_hd68906931_ + _eid68966933_ + _id68976935_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd68906931_)) + (let ((_e68936938_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd68906931_)))) + (let ((_lp-hd68946941_ + (let () (declare (not safe)) (##car _e68936938_))) + (_lp-tl68956943_ + (let () (declare (not safe)) (##cdr _e68936938_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd68946941_)) + (let ((_e69026946_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd68946941_)))) + (let ((_hd69016949_ (let () (declare (not safe)) - (##car _e68596905_))) - (_tl68616910_ + (##car _e69026946_))) + (_tl69006951_ (let () (declare (not safe)) - (##cdr _e68596905_)))) - (if (gx#stx-pair? _tl68616910_) - (let ((_e68626913_ (gx#stx-e _tl68616910_))) - (let ((_hd68636916_ + (##cdr _e69026946_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl69006951_)) + (let ((_e69056954_ + (let () + (declare (not safe)) + (gx#stx-e _tl69006951_)))) + (let ((_hd69046957_ (let () (declare (not safe)) - (##car _e68626913_))) - (_tl68646918_ + (##car _e69056954_))) + (_tl69036959_ (let () (declare (not safe)) - (##cdr _e68626913_)))) - (if (gx#stx-null? _tl68646918_) - (_loop68516887_ - _lp-tl68546902_ - (cons _hd68636916_ _eid68556892_) - (cons _hd68606908_ _id68566894_)) - (_g68416869_ _g68426872_)))) - (_g68416869_ _g68426872_)))) - (_g68416869_ _g68426872_)))) - (let ((_eid68576921_ (reverse _eid68556892_)) - (_id68586923_ (reverse _id68566894_))) - ((lambda (_L6926_ _L6927_) - (cons '%#extern - (map _generate16839_ - (foldr1 (lambda (_g69426945_ _g69436947_) - (cons _g69426945_ _g69436947_)) - '() - _L6927_) - (foldr1 (lambda (_g69496952_ _g69506954_) - (cons _g69496952_ _g69506954_)) - '() - _L6926_)))) - _eid68576921_ - _id68586923_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop68516887_ - _target68486882_ - '() - '())) - (_g68416869_ _g68426872_))))) - (_g68416869_ _g68426872_)))) - (_g68416869_ _g68426872_))))) - (_g68406957_ _stx6836_))))) + (##cdr _e69056954_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl69036959_)) + (let ((__tmp17795 + (let () + (declare (not safe)) + (cons _hd69046957_ + _eid68966933_))) + (__tmp17794 + (let () + (declare (not safe)) + (cons _hd69016949_ + _id68976935_)))) + (declare (not safe)) + (_loop68926928_ + _lp-tl68956943_ + __tmp17795 + __tmp17794)) + (let () + (declare (not safe)) + (_g68826910_ _g68836913_))))) + (let () + (declare (not safe)) + (_g68826910_ _g68836913_))))) + (let () + (declare (not safe)) + (_g68826910_ _g68836913_))))) + (let ((_eid68986962_ + (let () (declare (not safe)) (reverse _eid68966933_))) + (_id68996964_ + (let () (declare (not safe)) (reverse _id68976935_)))) + ((lambda (_L6967_ _L6968_) + (let ((__tmp17789 + (let ((__tmp17792 + (let ((__tmp17793 + (lambda (_g69836986_ _g69846988_) + (let () + (declare (not safe)) + (cons _g69836986_ + _g69846988_))))) + (declare (not safe)) + (foldr1 __tmp17793 '() _L6968_))) + (__tmp17790 + (let ((__tmp17791 + (lambda (_g69906993_ _g69916995_) + (let () + (declare (not safe)) + (cons _g69906993_ + _g69916995_))))) + (declare (not safe)) + (foldr1 __tmp17791 '() _L6967_)))) + (declare (not safe)) + (map _generate16880_ __tmp17792 __tmp17790)))) + (declare (not safe)) + (cons '%#extern __tmp17789))) + _eid68986962_ + _id68996964_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop68926928_ + _target68896923_ + '() + '()))) + (let () + (declare (not safe)) + (_g68826910_ _g68836913_)))))) + (let () + (declare (not safe)) + (_g68826910_ _g68836913_))))) + (let () + (declare (not safe)) + (_g68826910_ _g68836913_)))))) + (declare (not safe)) + (_g68816998_ _stx6877_))))) (define gxc#generate-meta-define-values% - (lambda (_stx6626_ _state6627_) - (letrec ((_generate16629_ - (lambda (_id6831_) - (let ((_eid6833_ - (gxc#generate-runtime-binding-id _id6831_)) - (_ident6834_ - (gxc#generate-runtime-identifier _id6831_))) - (cons '%#define-runtime - (cons _ident6834_ (cons _eid6833_ '())))))) - (_generate*6630_ - (lambda (_all6799_) - (let* ((_all68006808_ _all6799_) - (_else68026816_ - (lambda () (cons '%#begin _all6799_))) - (_K68046821_ (lambda (_one6819_) _one6819_))) - (if (let () (declare (not safe)) (##pair? _all68006808_)) - (let ((_hd68056824_ + (lambda (_stx6667_ _state6668_) + (letrec ((_generate16670_ + (lambda (_id6872_) + (let ((_eid6874_ + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id _id6872_))) + (_ident6875_ + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier _id6872_)))) + (let ((__tmp17796 + (let ((__tmp17797 + (let () + (declare (not safe)) + (cons _eid6874_ '())))) + (declare (not safe)) + (cons _ident6875_ __tmp17797)))) + (declare (not safe)) + (cons '%#define-runtime __tmp17796))))) + (_generate*6671_ + (lambda (_all6840_) + (let* ((_all68416849_ _all6840_) + (_else68436857_ + (lambda () + (let () + (declare (not safe)) + (cons '%#begin _all6840_)))) + (_K68456862_ (lambda (_one6860_) _one6860_))) + (if (let () (declare (not safe)) (##pair? _all68416849_)) + (let ((_hd68466865_ (let () (declare (not safe)) - (##car _all68006808_))) - (_tl68066826_ + (##car _all68416849_))) + (_tl68476867_ (let () (declare (not safe)) - (##cdr _all68006808_)))) - (let ((_one6829_ _hd68056824_)) + (##cdr _all68416849_)))) + (let ((_one6870_ _hd68466865_)) (if (let () (declare (not safe)) - (##null? _tl68066826_)) - (_K68046821_ _one6829_) - (_else68026816_)))) - (_else68026816_)))))) - (let* ((_g66326649_ - (lambda (_g66336646_) - (gx#raise-syntax-error '#f '"Bad syntax" _g66336646_))) - (_g66316796_ - (lambda (_g66336652_) - (if (gx#stx-pair? _g66336652_) - (let ((_e66366654_ (gx#stx-e _g66336652_))) - (let ((_hd66376657_ + (##null? _tl68476867_)) + (let () + (declare (not safe)) + (_K68456862_ _one6870_)) + (let () + (declare (not safe)) + (_else68436857_))))) + (let () (declare (not safe)) (_else68436857_))))))) + (let* ((_g66736690_ + (lambda (_g66746687_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g66746687_)))) + (_g66726837_ + (lambda (_g66746693_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g66746693_)) + (let ((_e66796695_ + (let () + (declare (not safe)) + (gx#stx-e _g66746693_)))) + (let ((_hd66786698_ (let () (declare (not safe)) - (##car _e66366654_))) - (_tl66386659_ + (##car _e66796695_))) + (_tl66776700_ (let () (declare (not safe)) - (##cdr _e66366654_)))) - (if (gx#stx-pair? _tl66386659_) - (let ((_e66396662_ (gx#stx-e _tl66386659_))) - (let ((_hd66406665_ + (##cdr _e66796695_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl66776700_)) + (let ((_e66826703_ + (let () + (declare (not safe)) + (gx#stx-e _tl66776700_)))) + (let ((_hd66816706_ (let () (declare (not safe)) - (##car _e66396662_))) - (_tl66416667_ + (##car _e66826703_))) + (_tl66806708_ (let () (declare (not safe)) - (##cdr _e66396662_)))) - (if (gx#stx-pair? _tl66416667_) - (let ((_e66426670_ - (gx#stx-e _tl66416667_))) - (let ((_hd66436673_ + (##cdr _e66826703_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl66806708_)) + (let ((_e66856711_ + (let () + (declare (not safe)) + (gx#stx-e _tl66806708_)))) + (let ((_hd66846714_ (let () (declare (not safe)) - (##car _e66426670_))) - (_tl66446675_ + (##car _e66856711_))) + (_tl66836716_ (let () (declare (not safe)) - (##cdr _e66426670_)))) - (if (gx#stx-null? _tl66446675_) - ((lambda (_L6678_ _L6679_) - (let _lp6695_ ((_rest6697_ + (##cdr _e66856711_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl66836716_)) + ((lambda (_L6719_ _L6720_) + (let _lp6736_ ((_rest6738_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L6679_) - (_r6698_ '())) + _L6720_) + (_r6739_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((___stx1659216593_ - _rest6697_) - (_g67036720_ + (let* ((___stx1692916930_ + _rest6738_) + (_g67446761_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1659216593_)))) - (let ((___kont1659416595_ - (lambda (_L6783_) - (_lp6695_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L6783_ - _r6698_))) - (___kont1659616597_ - (lambda (_L6756_ _L6757_) - (_lp6695_ - _L6756_ - (cons (_generate16629_ _L6757_) _r6698_)))) - (___kont1659816599_ - (lambda (_L6732_) - (_generate*6630_ - (foldl1 cons - (cons (_generate16629_ _L6732_) '()) - _r6698_)))) - (___kont1660016601_ - (lambda () (_generate*6630_ (reverse _r6698_))))) - (let ((_g67016743_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1692916930_))))) + (let ((___kont1693116932_ + (lambda (_L6824_) + (let () + (declare (not safe)) + (_lp6736_ _L6824_ _r6739_)))) + (___kont1693316934_ + (lambda (_L6797_ _L6798_) + (let ((__tmp17798 + (let ((__tmp17799 + (let () + (declare (not safe)) + (_generate16670_ _L6798_)))) + (declare (not safe)) + (cons __tmp17799 _r6739_)))) + (declare (not safe)) + (_lp6736_ _L6797_ __tmp17798)))) + (___kont1693516936_ + (lambda (_L6773_) + (let ((__tmp17800 + (let ((__tmp17801 + (let ((__tmp17802 + (let () + (declare (not safe)) + (_generate16670_ _L6773_)))) + (declare (not safe)) + (cons __tmp17802 '())))) + (declare (not safe)) + (foldl1 cons __tmp17801 _r6739_)))) + (declare (not safe)) + (_generate*6671_ __tmp17800)))) + (___kont1693716938_ + (lambda () + (let ((__tmp17803 + (let () + (declare (not safe)) + (reverse _r6739_)))) + (declare (not safe)) + (_generate*6671_ __tmp17803))))) + (let ((_g67426784_ (lambda () - (let ((_L6732_ ___stx1659216593_)) - (if (gx#identifier? _L6732_) - (___kont1659816599_ _L6732_) - (___kont1660016601_)))))) - (if (gx#stx-pair? ___stx1659216593_) - (let ((_e67066772_ (gx#stx-e ___stx1659216593_))) - (let ((_tl67086777_ + (let ((_L6773_ ___stx1692916930_)) + (if (let () + (declare (not safe)) + (gx#identifier? _L6773_)) + (___kont1693516936_ _L6773_) + (___kont1693716938_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1692916930_)) + (let ((_e67496813_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1692916930_)))) + (let ((_tl67476818_ (let () (declare (not safe)) - (##cdr _e67066772_))) - (_hd67076775_ + (##cdr _e67496813_))) + (_hd67486816_ + (let () + (declare (not safe)) + (##car _e67496813_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _hd67486816_)) + (let ((_e67506821_ + (let () + (declare (not safe)) + (gx#stx-e _hd67486816_)))) + (if (let () + (declare (not safe)) + (equal? _e67506821_ '#f)) + (___kont1693116932_ _tl67476818_) + (___kont1693316934_ + _tl67476818_ + _hd67486816_))) + (___kont1693316934_ + _tl67476818_ + _hd67486816_)))) + (let () (declare (not safe)) (_g67426784_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd66846714_ + _hd66816706_) + (let () + (declare (not safe)) + (_g66736690_ _g66746693_))))) + (let () + (declare (not safe)) + (_g66736690_ _g66746693_))))) (let () (declare (not safe)) - (##car _e67066772_)))) - (if (gx#stx-datum? _hd67076775_) - (let ((_e67096780_ (gx#stx-e _hd67076775_))) - (if (equal? _e67096780_ '#f) - (___kont1659416595_ _tl67086777_) - (___kont1659616597_ - _tl67086777_ - _hd67076775_))) - (___kont1659616597_ - _tl67086777_ - _hd67076775_)))) - (_g67016743_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd66436673_ - _hd66406665_) - (_g66326649_ _g66336652_)))) - (_g66326649_ _g66336652_)))) - (_g66326649_ _g66336652_)))) - (_g66326649_ _g66336652_))))) - (_g66316796_ _stx6626_))))) + (_g66736690_ _g66746693_))))) + (let () + (declare (not safe)) + (_g66736690_ _g66746693_)))))) + (declare (not safe)) + (_g66726837_ _stx6667_))))) (define gxc#generate-meta-define-syntax% - (lambda (_stx6523_ _state6524_) - (let* ((_g65266543_ - (lambda (_g65276540_) - (gx#raise-syntax-error '#f '"Bad syntax" _g65276540_))) - (_g65256623_ - (lambda (_g65276546_) - (if (gx#stx-pair? _g65276546_) - (let ((_e65306548_ (gx#stx-e _g65276546_))) - (let ((_hd65316551_ + (lambda (_stx6564_ _state6565_) + (let* ((_g65676584_ + (lambda (_g65686581_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g65686581_)))) + (_g65666664_ + (lambda (_g65686587_) + (if (let () (declare (not safe)) (gx#stx-pair? _g65686587_)) + (let ((_e65736589_ + (let () + (declare (not safe)) + (gx#stx-e _g65686587_)))) + (let ((_hd65726592_ (let () (declare (not safe)) - (##car _e65306548_))) - (_tl65326553_ + (##car _e65736589_))) + (_tl65716594_ (let () (declare (not safe)) - (##cdr _e65306548_)))) - (if (gx#stx-pair? _tl65326553_) - (let ((_e65336556_ (gx#stx-e _tl65326553_))) - (let ((_hd65346559_ + (##cdr _e65736589_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl65716594_)) + (let ((_e65766597_ + (let () + (declare (not safe)) + (gx#stx-e _tl65716594_)))) + (let ((_hd65756600_ (let () (declare (not safe)) - (##car _e65336556_))) - (_tl65356561_ + (##car _e65766597_))) + (_tl65746602_ (let () (declare (not safe)) - (##cdr _e65336556_)))) - (if (gx#stx-pair? _tl65356561_) - (let ((_e65366564_ - (gx#stx-e _tl65356561_))) - (let ((_hd65376567_ + (##cdr _e65766597_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl65746602_)) + (let ((_e65796605_ + (let () + (declare (not safe)) + (gx#stx-e _tl65746602_)))) + (let ((_hd65786608_ (let () (declare (not safe)) - (##car _e65366564_))) - (_tl65386569_ + (##car _e65796605_))) + (_tl65776610_ (let () (declare (not safe)) - (##cdr _e65366564_)))) - (if (gx#stx-null? _tl65386569_) - ((lambda (_L6572_ _L6573_) - (let* ((_eid6588_ - (gxc#generate-runtime-binding-id - _L6573_)) - (_phi6590_ - (fx+ (gx#current-expander-phi) - '1)) - (_block6592_ - (gxc#meta-state-begin-phi! - _state6524_ - _phi6590_))) - (let* ((_g65956602_ - (lambda (_g65966599_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g65966599_))) - (_g65946620_ - (lambda (_g65966605_) - ((lambda (_L6607_) + (##cdr _e65796605_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl65776610_)) + ((lambda (_L6613_ _L6614_) + (let* ((_eid6629_ + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id + _L6614_))) + (_phi6631_ + (let ((__tmp17804 + (gx#current-expander-phi))) + (declare (not safe)) + (fx+ __tmp17804 + '1))) + (_block6633_ + (let () + (declare (not safe)) + (gxc#meta-state-begin-phi! + _state6565_ + _phi6631_)))) + (let* ((_g66366643_ + (lambda (_g66376640_) + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g66376640_)))) + (_g66356661_ + (lambda (_g66376646_) + ((lambda (_L6648_) + (let () + (let ((__tmp17805 + (let ((__tmp17808 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#define-runtime))) + (__tmp17806 + (let ((__tmp17807 + (let () + (declare (not safe)) + (cons _L6613_ '())))) + (declare (not safe)) + (cons _L6648_ __tmp17807)))) + (declare (not safe)) + (cons __tmp17808 __tmp17806)))) + (declare (not safe)) + (gxc#meta-state-add-phi! + _state6565_ + _phi6631_ + __tmp17805)))) + _g66376646_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g66356661_ _eid6629_)) + (if _block6633_ + (let ((__tmp17812 + (let ((__tmp17818 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17819 + (let ((__tmp17820 + (let ((__tmp17821 + (let ((__tmp17825 + (let ((__tmp17826 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#meta-state-add-phi! - _state6524_ - _phi6590_ - (cons (gx#datum->syntax__0 '#f '%#define-runtime) - (cons _L6607_ (cons _L6572_ '())))))) - _g65966605_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g65946620_ _eid6588_)) - (if _block6592_ - (cons '%#begin - (cons (cons '%#begin-syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '%#call - (cons (cons '%#ref - (cons 'load-module - '())) - (cons (cons '%#quote - (cons _block6592_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons '%#define-syntax - (cons (gxc#generate-runtime-identifier - _L6573_) - (cons _eid6588_ '()))) - '()))) - (cons '%#define-syntax - (cons (gxc#generate-runtime-identifier _L6573_) - (cons _eid6588_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd65376567_ - _hd65346559_) - (_g65266543_ _g65276546_)))) - (_g65266543_ _g65276546_)))) - (_g65266543_ _g65276546_)))) - (_g65266543_ _g65276546_))))) - (_g65256623_ _stx6523_)))) + (declare (not safe)) + (cons 'load-module '())))) + (declare (not safe)) + (cons '%#ref __tmp17826))) + (__tmp17822 + (let ((__tmp17823 + (let ((__tmp17824 + (let () + (declare (not safe)) + (cons _block6633_ '())))) + (declare (not safe)) + (cons '%#quote __tmp17824)))) + (declare (not safe)) + (cons __tmp17823 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17825 + __tmp17822)))) + (declare (not safe)) + (cons '%#call __tmp17821)))) + (declare (not safe)) + (cons __tmp17820 '())))) + (declare (not safe)) + (cons '%#begin-syntax __tmp17819))) + (__tmp17813 + (let ((__tmp17814 + (let ((__tmp17815 + (let ((__tmp17817 + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier + _L6614_))) + (__tmp17816 + (let () + (declare (not safe)) + (cons _eid6629_ '())))) + (declare (not safe)) + (cons __tmp17817 __tmp17816)))) + (declare (not safe)) + (cons '%#define-syntax __tmp17815)))) + (declare (not safe)) + (cons __tmp17814 '())))) + (declare (not safe)) + (cons __tmp17818 __tmp17813)))) + (declare (not safe)) + (cons '%#begin __tmp17812)) + (let ((__tmp17809 + (let ((__tmp17811 + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier _L6614_))) + (__tmp17810 + (let () + (declare (not safe)) + (cons _eid6629_ '())))) + (declare (not safe)) + (cons __tmp17811 __tmp17810)))) + (declare (not safe)) + (cons '%#define-syntax __tmp17809))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd65786608_ + _hd65756600_) + (let () + (declare (not safe)) + (_g65676584_ _g65686587_))))) + (let () + (declare (not safe)) + (_g65676584_ _g65686587_))))) + (let () + (declare (not safe)) + (_g65676584_ _g65686587_))))) + (let () + (declare (not safe)) + (_g65676584_ _g65686587_)))))) + (declare (not safe)) + (_g65666664_ _stx6564_)))) (define gxc#generate-meta-define-alias% - (lambda (_stx6455_ _state6456_) - (let* ((_g64586475_ - (lambda (_g64596472_) - (gx#raise-syntax-error '#f '"Bad syntax" _g64596472_))) - (_g64576520_ - (lambda (_g64596478_) - (if (gx#stx-pair? _g64596478_) - (let ((_e64626480_ (gx#stx-e _g64596478_))) - (let ((_hd64636483_ + (lambda (_stx6496_ _state6497_) + (let* ((_g64996516_ + (lambda (_g65006513_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g65006513_)))) + (_g64986561_ + (lambda (_g65006519_) + (if (let () (declare (not safe)) (gx#stx-pair? _g65006519_)) + (let ((_e65056521_ + (let () + (declare (not safe)) + (gx#stx-e _g65006519_)))) + (let ((_hd65046524_ (let () (declare (not safe)) - (##car _e64626480_))) - (_tl64646485_ + (##car _e65056521_))) + (_tl65036526_ (let () (declare (not safe)) - (##cdr _e64626480_)))) - (if (gx#stx-pair? _tl64646485_) - (let ((_e64656488_ (gx#stx-e _tl64646485_))) - (let ((_hd64666491_ + (##cdr _e65056521_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl65036526_)) + (let ((_e65086529_ + (let () + (declare (not safe)) + (gx#stx-e _tl65036526_)))) + (let ((_hd65076532_ (let () (declare (not safe)) - (##car _e64656488_))) - (_tl64676493_ + (##car _e65086529_))) + (_tl65066534_ (let () (declare (not safe)) - (##cdr _e64656488_)))) - (if (gx#stx-pair? _tl64676493_) - (let ((_e64686496_ - (gx#stx-e _tl64676493_))) - (let ((_hd64696499_ + (##cdr _e65086529_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl65066534_)) + (let ((_e65116537_ + (let () + (declare (not safe)) + (gx#stx-e _tl65066534_)))) + (let ((_hd65106540_ (let () (declare (not safe)) - (##car _e64686496_))) - (_tl64706501_ + (##car _e65116537_))) + (_tl65096542_ (let () (declare (not safe)) - (##cdr _e64686496_)))) - (if (gx#stx-null? _tl64706501_) - ((lambda (_L6504_ _L6505_) - (cons '%#define-alias - (cons (gxc#generate-runtime-identifier - _L6505_) - (cons (gxc#generate-runtime-identifier -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L6504_) - '())))) + (##cdr _e65116537_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl65096542_)) + ((lambda (_L6545_ _L6546_) + (let ((__tmp17827 + (let ((__tmp17830 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gxc#generate-runtime-identifier _L6546_))) + (__tmp17828 + (let ((__tmp17829 + (let () + (declare (not safe)) + (gxc#generate-runtime-identifier _L6545_)))) + (declare (not safe)) + (cons __tmp17829 '())))) + (declare (not safe)) + (cons __tmp17830 __tmp17828)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd64696499_ - _hd64666491_) - (_g64586475_ _g64596478_)))) - (_g64586475_ _g64596478_)))) - (_g64586475_ _g64596478_)))) - (_g64586475_ _g64596478_))))) - (_g64576520_ _stx6455_)))) + (declare (not safe)) + (cons '%#define-alias + __tmp17827))) + _hd65106540_ + _hd65076532_) + (let () + (declare (not safe)) + (_g64996516_ _g65006519_))))) + (let () + (declare (not safe)) + (_g64996516_ _g65006519_))))) + (let () + (declare (not safe)) + (_g64996516_ _g65006519_))))) + (let () + (declare (not safe)) + (_g64996516_ _g65006519_)))))) + (declare (not safe)) + (_g64986561_ _stx6496_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_stx6452_ _state6453_) - (gxc#meta-state-add-phi! - _state6453_ - (gx#current-expander-phi) - _stx6452_) - (gxc#generate-meta-define-values% _stx6452_ _state6453_))) + (lambda (_stx6493_ _state6494_) + (let ((__tmp17831 (gx#current-expander-phi))) + (declare (not safe)) + (gxc#meta-state-add-phi! _state6494_ __tmp17831 _stx6493_)) + (let () + (declare (not safe)) + (gxc#generate-meta-define-values% _stx6493_ _state6494_)))) (define gxc#generate-meta-phi-expr - (lambda (_stx6449_ _state6450_) - (gxc#meta-state-add-phi! - _state6450_ - (gx#current-expander-phi) - _stx6449_) + (lambda (_stx6490_ _state6491_) + (let ((__tmp17832 (gx#current-expander-phi))) + (declare (not safe)) + (gxc#meta-state-add-phi! _state6491_ __tmp17832 _stx6490_)) '#!void)) (define gxc#meta-state::t - (make-struct-type - 'gxc#meta-state::t - '#f - '4 - 'meta-state - '() - ':init! - '(src n open blocks))) - (define gxc#meta-state? (make-struct-predicate gxc#meta-state::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#meta-state::t + '#f + '4 + 'meta-state + '() + ':init! + '(src n open blocks)))) + (define gxc#meta-state? + (let () (declare (not safe)) (make-struct-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _$args6446_ - (apply make-struct-instance gxc#meta-state::t _$args6446_))) + (lambda _$args6487_ + (apply make-struct-instance gxc#meta-state::t _$args6487_))) (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)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#meta-state::t '0))) + (define gxc#meta-state-n + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#meta-state::t '1))) (define gxc#meta-state-open - (make-struct-field-accessor gxc#meta-state::t '2)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#meta-state::t '2))) (define gxc#meta-state-blocks - (make-struct-field-accessor gxc#meta-state::t '3)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#meta-state::t '3))) (define gxc#meta-state-src-set! - (make-struct-field-mutator gxc#meta-state::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#meta-state::t '0))) (define gxc#meta-state-n-set! - (make-struct-field-mutator gxc#meta-state::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#meta-state::t '1))) (define gxc#meta-state-open-set! - (make-struct-field-mutator gxc#meta-state::t '2)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#meta-state::t '2))) (define gxc#meta-state-blocks-set! - (make-struct-field-mutator gxc#meta-state::t '3)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#meta-state::t '3))) (define gxc#meta-state:::init! - (lambda (_self6443_ _ctx6444_) - (if (let ((__tmp16688 - (let () (declare (not safe)) (##vector-length _self6443_)))) + (lambda (_self6484_ _ctx6485_) + (if (let ((__tmp17836 + (let () (declare (not safe)) (##vector-length _self6484_)))) (declare (not safe)) - (##fx< '4 __tmp16688)) + (##fx< '4 __tmp17836)) (begin - (let ((__tmp16689 - (gxc#module-id->path-string - (##structure-ref - _ctx6444_ - '1 - gx#expander-context::t - '#f)))) + (let ((__tmp17833 + (let ((__tmp17834 + (##structure-ref + _ctx6485_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (gxc#module-id->path-string __tmp17834)))) (declare (not safe)) - (##vector-set! _self6443_ '1 __tmp16689)) - (let () (declare (not safe)) (##vector-set! _self6443_ '2 '1)) - (let ((__tmp16690 (make-table 'test: eq?))) + (##vector-set! _self6484_ '1 __tmp17833)) + (let () (declare (not safe)) (##vector-set! _self6484_ '2 '1)) + (let ((__tmp17835 + (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##vector-set! _self6443_ '3 __tmp16690)) - (let () (declare (not safe)) (##vector-set! _self6443_ '4 '()))) + (##vector-set! _self6484_ '3 __tmp17835)) + (let () (declare (not safe)) (##vector-set! _self6484_ '4 '()))) (error '"struct-instance-init!: too many arguments for struct" - _self6443_)))) - (bind-method! gxc#meta-state::t ':init! gxc#meta-state:::init! '#f) + _self6484_)))) + (let () + (declare (not safe)) + (bind-method! gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (make-struct-type - 'gxc#meta-state-block::t - '#f - '4 - 'meta-state-block - '() - '#f - '(ctx phi n code))) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#meta-state-block::t + '#f + '4 + 'meta-state-block + '() + '#f + '(ctx phi n code)))) (define gxc#meta-state-block? - (make-struct-predicate gxc#meta-state-block::t)) + (let () + (declare (not safe)) + (make-struct-predicate gxc#meta-state-block::t))) (define gxc#make-meta-state-block - (lambda _$args6318_ - (apply make-struct-instance gxc#meta-state-block::t _$args6318_))) + (lambda _$args6359_ + (apply make-struct-instance gxc#meta-state-block::t _$args6359_))) (define gxc#meta-state-block-ctx - (make-struct-field-accessor gxc#meta-state-block::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#meta-state-block::t '0))) (define gxc#meta-state-block-phi - (make-struct-field-accessor gxc#meta-state-block::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#meta-state-block::t '1))) (define gxc#meta-state-block-n - (make-struct-field-accessor gxc#meta-state-block::t '2)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#meta-state-block::t '2))) (define gxc#meta-state-block-code - (make-struct-field-accessor gxc#meta-state-block::t '3)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#meta-state-block::t '3))) (define gxc#meta-state-block-ctx-set! - (make-struct-field-mutator gxc#meta-state-block::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#meta-state-block::t '0))) (define gxc#meta-state-block-phi-set! - (make-struct-field-mutator gxc#meta-state-block::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#meta-state-block::t '1))) (define gxc#meta-state-block-n-set! - (make-struct-field-mutator gxc#meta-state-block::t '2)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#meta-state-block::t '2))) (define gxc#meta-state-block-code-set! - (make-struct-field-mutator gxc#meta-state-block::t '3)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#meta-state-block::t '3))) (define gxc#meta-state-begin-phi! - (lambda (_state6277_ _phi6278_) - (let* ((_state62796287_ _state6277_) - (_E62816291_ - (lambda () (error '"No clause matching" _state62796287_))) - (_K62826300_ - (lambda (_open6294_ _n6295_ _src6296_) - (if (table-ref _open6294_ _phi6278_ '#f) + (lambda (_state6318_ _phi6319_) + (let* ((_state63206328_ _state6318_) + (_E63226332_ + (lambda () (error '"No clause matching" _state63206328_))) + (_K63236341_ + (lambda (_open6335_ _n6336_ _src6337_) + (if (let () + (declare (not safe)) + (table-ref _open6335_ _phi6319_ '#f)) '#f - (let ((_block-ref6298_ + (let ((_block-ref6339_ (string-append - _src6296_ + _src6337_ '"__" - (number->string _n6295_)))) + (let () + (declare (not safe)) + (number->string _n6336_))))) (##structure-set! - _state6277_ - (fx+ _n6295_ '1) + _state6318_ + (let () (declare (not safe)) (fx+ _n6336_ '1)) '2 gxc#meta-state::t '#f) - (table-set! - _open6294_ - _phi6278_ - (let ((__tmp16691 (gx#current-expander-context))) - (declare (not safe)) - (##structure - gxc#meta-state-block::t - __tmp16691 - _phi6278_ - _n6295_ - '()))) - _block-ref6298_))))) + (let ((__tmp17837 + (let ((__tmp17838 + (gx#current-expander-context))) + (declare (not safe)) + (##structure + gxc#meta-state-block::t + __tmp17838 + _phi6319_ + _n6336_ + '())))) + (declare (not safe)) + (table-set! _open6335_ _phi6319_ __tmp17837)) + _block-ref6339_))))) (if (let () (declare (not safe)) - (##structure-instance-of? _state62796287_ 'gxc#meta-state::t)) - (let* ((_e62836303_ + (##structure-instance-of? _state63206328_ 'gxc#meta-state::t)) + (let* ((_e63246344_ (let () (declare (not safe)) - (##vector-ref _state62796287_ '1))) - (_src6306_ _e62836303_) - (_e62846308_ + (##vector-ref _state63206328_ '1))) + (_src6347_ _e63246344_) + (_e63256349_ (let () (declare (not safe)) - (##vector-ref _state62796287_ '2))) - (_n6311_ _e62846308_) - (_e62856313_ + (##vector-ref _state63206328_ '2))) + (_n6352_ _e63256349_) + (_e63266354_ (let () (declare (not safe)) - (##vector-ref _state62796287_ '3))) - (_open6316_ _e62856313_)) - (_K62826300_ _open6316_ _n6311_ _src6306_)) - (_E62816291_))))) + (##vector-ref _state63206328_ '3))) + (_open6357_ _e63266354_)) + (declare (not safe)) + (_K63236341_ _open6357_ _n6352_ _src6347_)) + (let () (declare (not safe)) (_E63226332_)))))) (define gxc#meta-state-add-phi! - (lambda (_state6271_ _phi6272_ _stx6273_) - (let ((_block6275_ - (table-ref - (##structure-ref _state6271_ '3 gxc#meta-state::t '#f) - _phi6272_ - '#f))) + (lambda (_state6312_ _phi6313_ _stx6314_) + (let ((_block6316_ + (let ((__tmp17839 + (##structure-ref _state6312_ '3 gxc#meta-state::t '#f))) + (declare (not safe)) + (table-ref __tmp17839 _phi6313_ '#f)))) (##structure-set! - _block6275_ - (cons _stx6273_ - (##structure-ref _block6275_ '4 gxc#meta-state-block::t '#f)) + _block6316_ + (let ((__tmp17840 + (##structure-ref + _block6316_ + '4 + gxc#meta-state-block::t + '#f))) + (declare (not safe)) + (cons _stx6314_ __tmp17840)) '4 gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_state6266_) + (lambda (_state6307_) (##structure-set! - _state6266_ - (hash-fold - (lambda (_g16692_ _block6268_ _r6269_) (cons _block6268_ _r6269_)) - (##structure-ref _state6266_ '4 gxc#meta-state::t '#f) - (##structure-ref _state6266_ '3 gxc#meta-state::t '#f)) + _state6307_ + (let ((__tmp17843 + (lambda (_g17844_ _block6309_ _r6310_) + (let () (declare (not safe)) (cons _block6309_ _r6310_)))) + (__tmp17842 + (##structure-ref _state6307_ '4 gxc#meta-state::t '#f)) + (__tmp17841 + (##structure-ref _state6307_ '3 gxc#meta-state::t '#f))) + (declare (not safe)) + (hash-fold __tmp17843 __tmp17842 __tmp17841)) '4 gxc#meta-state::t '#f) (##structure-set! - _state6266_ - (make-table 'test: eq?) + _state6307_ + (let () (declare (not safe)) (make-table 'test: eq?)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_state6218_) - (gxc#meta-state-end-phi! _state6218_) - (foldl1 (lambda (_block6220_ _r6221_) - (let* ((_block62226231_ _block6220_) - (_E62246235_ - (lambda () - (error '"No clause matching" _block62226231_))) - (_K62256243_ - (lambda (_code6238_ _n6239_ _phi6240_ _ctx6241_) - (if (null? _code6238_) - _r6221_ - (cons (cons _ctx6241_ - (cons _phi6240_ - (cons _n6239_ - (cons (cons '%#begin -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _code6238_)) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r6221_))))) - (if (let () - (declare (not safe)) - (##structure-instance-of? - _block62226231_ - 'gxc#meta-state-block::t)) - (let* ((_e62266246_ - (let () - (declare (not safe)) - (##vector-ref _block62226231_ '1))) - (_ctx6249_ _e62266246_) - (_e62276251_ - (let () - (declare (not safe)) - (##vector-ref _block62226231_ '2))) - (_phi6254_ _e62276251_) - (_e62286256_ - (let () - (declare (not safe)) - (##vector-ref _block62226231_ '3))) - (_n6259_ _e62286256_) - (_e62296261_ - (let () - (declare (not safe)) - (##vector-ref _block62226231_ '4))) - (_code6264_ _e62296261_)) - (_K62256243_ _code6264_ _n6259_ _phi6254_ _ctx6249_)) - (_E62246235_)))) - '() - (##structure-ref _state6218_ '4 gxc#meta-state::t '#f)))) + (lambda (_state6259_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state6259_)) + (let ((__tmp17846 + (lambda (_block6261_ _r6262_) + (let* ((_block62636272_ _block6261_) + (_E62656276_ + (lambda () + (error '"No clause matching" _block62636272_))) + (_K62666284_ + (lambda (_code6279_ _n6280_ _phi6281_ _ctx6282_) + (if (let () (declare (not safe)) (null? _code6279_)) + _r6262_ + (let ((__tmp17847 + (let ((__tmp17848 + (let ((__tmp17849 + (let ((__tmp17850 + (let ((__tmp17851 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17852 + (let () + (declare (not safe)) + (reverse _code6279_)))) + (declare (not safe)) + (cons '%#begin __tmp17852)))) + (declare (not safe)) + (cons __tmp17851 '())))) + (declare (not safe)) + (cons _n6280_ __tmp17850)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _phi6281_ __tmp17849)))) + (declare (not safe)) + (cons _ctx6282_ __tmp17848)))) + (declare (not safe)) + (cons __tmp17847 _r6262_)))))) + (if (let () + (declare (not safe)) + (##structure-instance-of? + _block62636272_ + 'gxc#meta-state-block::t)) + (let* ((_e62676287_ + (let () + (declare (not safe)) + (##vector-ref _block62636272_ '1))) + (_ctx6290_ _e62676287_) + (_e62686292_ + (let () + (declare (not safe)) + (##vector-ref _block62636272_ '2))) + (_phi6295_ _e62686292_) + (_e62696297_ + (let () + (declare (not safe)) + (##vector-ref _block62636272_ '3))) + (_n6300_ _e62696297_) + (_e62706302_ + (let () + (declare (not safe)) + (##vector-ref _block62636272_ '4))) + (_code6305_ _e62706302_)) + (declare (not safe)) + (_K62666284_ _code6305_ _n6300_ _phi6295_ _ctx6290_)) + (let () (declare (not safe)) (_E62656276_)))))) + (__tmp17845 + (##structure-ref _state6259_ '4 gxc#meta-state::t '#f))) + (declare (not safe)) + (foldl1 __tmp17846 '() __tmp17845)))) (define gxc#collect-expression-refs - (lambda (_stx6214_) - (let ((_ht6216_ (make-table 'test: eq?))) - (gxc#apply-collect-expression-refs _stx6214_ _ht6216_) - _ht6216_))) + (lambda (_stx6255_) + (let ((_ht6257_ (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (gxc#apply-collect-expression-refs _stx6255_ _ht6257_)) + _ht6257_))) (define gxc#collect-refs-ref% - (lambda (_stx6157_ _ht6158_) - (let* ((_g61606173_ - (lambda (_g61616170_) - (gx#raise-syntax-error '#f '"Bad syntax" _g61616170_))) - (_g61596211_ - (lambda (_g61616176_) - (if (gx#stx-pair? _g61616176_) - (let ((_e61636178_ (gx#stx-e _g61616176_))) - (let ((_hd61646181_ + (lambda (_stx6198_ _ht6199_) + (let* ((_g62016214_ + (lambda (_g62026211_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g62026211_)))) + (_g62006252_ + (lambda (_g62026217_) + (if (let () (declare (not safe)) (gx#stx-pair? _g62026217_)) + (let ((_e62066219_ + (let () + (declare (not safe)) + (gx#stx-e _g62026217_)))) + (let ((_hd62056222_ (let () (declare (not safe)) - (##car _e61636178_))) - (_tl61656183_ + (##car _e62066219_))) + (_tl62046224_ (let () (declare (not safe)) - (##cdr _e61636178_)))) - (if (gx#stx-pair? _tl61656183_) - (let ((_e61666186_ (gx#stx-e _tl61656183_))) - (let ((_hd61676189_ + (##cdr _e62066219_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl62046224_)) + (let ((_e62096227_ + (let () + (declare (not safe)) + (gx#stx-e _tl62046224_)))) + (let ((_hd62086230_ (let () (declare (not safe)) - (##car _e61666186_))) - (_tl61686191_ + (##car _e62096227_))) + (_tl62076232_ (let () (declare (not safe)) - (##cdr _e61666186_)))) - (if (gx#stx-null? _tl61686191_) - ((lambda (_L6194_) - (let* ((_bind6206_ - (gx#resolve-identifier__0 - _L6194_)) - (_eid6208_ - (if _bind6206_ + (##cdr _e62096227_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl62076232_)) + ((lambda (_L6235_) + (let* ((_bind6247_ + (let () + (declare (not safe)) + (gx#resolve-identifier__0 + _L6235_))) + (_eid6249_ + (if _bind6247_ (##structure-ref - _bind6206_ + _bind6247_ '1 gx#binding::t '#f) - (gx#stx-e _L6194_)))) - (table-set! - _ht6158_ - _eid6208_ - _eid6208_))) - _hd61676189_) - (_g61606173_ _g61616176_)))) - (_g61606173_ _g61616176_)))) - (_g61606173_ _g61616176_))))) - (_g61596211_ _stx6157_)))) + (let () + (declare (not safe)) + (gx#stx-e _L6235_))))) + (let () + (declare (not safe)) + (table-set! + _ht6199_ + _eid6249_ + _eid6249_)))) + _hd62086230_) + (let () + (declare (not safe)) + (_g62016214_ _g62026217_))))) + (let () + (declare (not safe)) + (_g62016214_ _g62026217_))))) + (let () + (declare (not safe)) + (_g62016214_ _g62026217_)))))) + (declare (not safe)) + (_g62006252_ _stx6198_)))) (define gxc#collect-refs-setq% - (lambda (_stx6084_ _ht6085_) - (let* ((_g60876104_ - (lambda (_g60886101_) - (gx#raise-syntax-error '#f '"Bad syntax" _g60886101_))) - (_g60866154_ - (lambda (_g60886107_) - (if (gx#stx-pair? _g60886107_) - (let ((_e60916109_ (gx#stx-e _g60886107_))) - (let ((_hd60926112_ + (lambda (_stx6125_ _ht6126_) + (let* ((_g61286145_ + (lambda (_g61296142_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g61296142_)))) + (_g61276195_ + (lambda (_g61296148_) + (if (let () (declare (not safe)) (gx#stx-pair? _g61296148_)) + (let ((_e61346150_ + (let () + (declare (not safe)) + (gx#stx-e _g61296148_)))) + (let ((_hd61336153_ (let () (declare (not safe)) - (##car _e60916109_))) - (_tl60936114_ + (##car _e61346150_))) + (_tl61326155_ (let () (declare (not safe)) - (##cdr _e60916109_)))) - (if (gx#stx-pair? _tl60936114_) - (let ((_e60946117_ (gx#stx-e _tl60936114_))) - (let ((_hd60956120_ + (##cdr _e61346150_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl61326155_)) + (let ((_e61376158_ + (let () + (declare (not safe)) + (gx#stx-e _tl61326155_)))) + (let ((_hd61366161_ (let () (declare (not safe)) - (##car _e60946117_))) - (_tl60966122_ + (##car _e61376158_))) + (_tl61356163_ (let () (declare (not safe)) - (##cdr _e60946117_)))) - (if (gx#stx-pair? _tl60966122_) - (let ((_e60976125_ - (gx#stx-e _tl60966122_))) - (let ((_hd60986128_ + (##cdr _e61376158_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl61356163_)) + (let ((_e61406166_ + (let () + (declare (not safe)) + (gx#stx-e _tl61356163_)))) + (let ((_hd61396169_ (let () (declare (not safe)) - (##car _e60976125_))) - (_tl60996130_ + (##car _e61406166_))) + (_tl61386171_ (let () (declare (not safe)) - (##cdr _e60976125_)))) - (if (gx#stx-null? _tl60996130_) - ((lambda (_L6133_ _L6134_) - (let* ((_bind6149_ - (gx#resolve-identifier__0 - _L6134_)) - (_eid6151_ - (if _bind6149_ + (##cdr _e61406166_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl61386171_)) + ((lambda (_L6174_ _L6175_) + (let* ((_bind6190_ + (let () + (declare (not safe)) + (gx#resolve-identifier__0 + _L6175_))) + (_eid6192_ + (if _bind6190_ (##structure-ref - _bind6149_ + _bind6190_ '1 gx#binding::t '#f) - (gx#stx-e - _L6134_)))) - (table-set! - _ht6085_ - _eid6151_ - _eid6151_) - (gxc#compile-e - _L6133_ - _ht6085_))) - _hd60986128_ - _hd60956120_) - (_g60876104_ _g60886107_)))) - (_g60876104_ _g60886107_)))) - (_g60876104_ _g60886107_)))) - (_g60876104_ _g60886107_))))) - (_g60866154_ _stx6084_)))) + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _L6175_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (table-set! + _ht6126_ + _eid6192_ + _eid6192_)) + (let () + (declare (not safe)) + (gxc#compile-e + _L6174_ + _ht6126_)))) + _hd61396169_ + _hd61366161_) + (let () + (declare (not safe)) + (_g61286145_ _g61296148_))))) + (let () + (declare (not safe)) + (_g61286145_ _g61296148_))))) + (let () + (declare (not safe)) + (_g61286145_ _g61296148_))))) + (let () + (declare (not safe)) + (_g61286145_ _g61296148_)))))) + (declare (not safe)) + (_g61276195_ _stx6125_)))) (define gxc#find-runtime-begin% - (lambda (_stx6046_) - (let* ((_g60486058_ - (lambda (_g60496055_) - (gx#raise-syntax-error '#f '"Bad syntax" _g60496055_))) - (_g60476081_ - (lambda (_g60496061_) - (if (gx#stx-pair? _g60496061_) - (let ((_e60516063_ (gx#stx-e _g60496061_))) - (let ((_hd60526066_ - (let () - (declare (not safe)) - (##car _e60516063_))) - (_tl60536068_ - (let () - (declare (not safe)) - (##cdr _e60516063_)))) - ((lambda (_L6071_) (ormap1 gxc#compile-e _L6071_)) - _tl60536068_))) - (_g60486058_ _g60496061_))))) - (_g60476081_ _stx6046_)))) + (lambda (_stx6087_) + (let* ((_g60896099_ + (lambda (_g60906096_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g60906096_)))) + (_g60886122_ + (lambda (_g60906102_) + (if (let () (declare (not safe)) (gx#stx-pair? _g60906102_)) + (let ((_e60946104_ + (let () + (declare (not safe)) + (gx#stx-e _g60906102_)))) + (let ((_hd60936107_ + (let () + (declare (not safe)) + (##car _e60946104_))) + (_tl60926109_ + (let () + (declare (not safe)) + (##cdr _e60946104_)))) + ((lambda (_L6112_) + (let () + (declare (not safe)) + (ormap1 gxc#compile-e _L6112_))) + _tl60926109_))) + (let () + (declare (not safe)) + (_g60896099_ _g60906102_)))))) + (declare (not safe)) + (_g60886122_ _stx6087_)))) (define gxc#find-lambda-expression-begin% - (lambda (_stx6008_) - (let* ((_g60106020_ - (lambda (_g60116017_) - (gx#raise-syntax-error '#f '"Bad syntax" _g60116017_))) - (_g60096043_ - (lambda (_g60116023_) - (if (gx#stx-pair? _g60116023_) - (let ((_e60136025_ (gx#stx-e _g60116023_))) - (let ((_hd60146028_ - (let () - (declare (not safe)) - (##car _e60136025_))) - (_tl60156030_ - (let () - (declare (not safe)) - (##cdr _e60136025_)))) - ((lambda (_L6033_) (gxc#compile-e (last _L6033_))) - _tl60156030_))) - (_g60106020_ _g60116023_))))) - (_g60096043_ _stx6008_)))) + (lambda (_stx6049_) + (let* ((_g60516061_ + (lambda (_g60526058_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g60526058_)))) + (_g60506084_ + (lambda (_g60526064_) + (if (let () (declare (not safe)) (gx#stx-pair? _g60526064_)) + (let ((_e60566066_ + (let () + (declare (not safe)) + (gx#stx-e _g60526064_)))) + (let ((_hd60556069_ + (let () + (declare (not safe)) + (##car _e60566066_))) + (_tl60546071_ + (let () + (declare (not safe)) + (##cdr _e60566066_)))) + ((lambda (_L6074_) + (let ((__tmp17853 + (let () + (declare (not safe)) + (last _L6074_)))) + (declare (not safe)) + (gxc#compile-e __tmp17853))) + _tl60546071_))) + (let () + (declare (not safe)) + (_g60516061_ _g60526064_)))))) + (declare (not safe)) + (_g60506084_ _stx6049_)))) (define gxc#find-lambda-expression-begin-annotation% - (lambda (_stx5941_) - (let* ((_g59435960_ - (lambda (_g59445957_) - (gx#raise-syntax-error '#f '"Bad syntax" _g59445957_))) - (_g59426005_ - (lambda (_g59445963_) - (if (gx#stx-pair? _g59445963_) - (let ((_e59475965_ (gx#stx-e _g59445963_))) - (let ((_hd59485968_ + (lambda (_stx5982_) + (let* ((_g59846001_ + (lambda (_g59855998_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g59855998_)))) + (_g59836046_ + (lambda (_g59856004_) + (if (let () (declare (not safe)) (gx#stx-pair? _g59856004_)) + (let ((_e59906006_ + (let () + (declare (not safe)) + (gx#stx-e _g59856004_)))) + (let ((_hd59896009_ (let () (declare (not safe)) - (##car _e59475965_))) - (_tl59495970_ + (##car _e59906006_))) + (_tl59886011_ (let () (declare (not safe)) - (##cdr _e59475965_)))) - (if (gx#stx-pair? _tl59495970_) - (let ((_e59505973_ (gx#stx-e _tl59495970_))) - (let ((_hd59515976_ + (##cdr _e59906006_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl59886011_)) + (let ((_e59936014_ + (let () + (declare (not safe)) + (gx#stx-e _tl59886011_)))) + (let ((_hd59926017_ (let () (declare (not safe)) - (##car _e59505973_))) - (_tl59525978_ + (##car _e59936014_))) + (_tl59916019_ (let () (declare (not safe)) - (##cdr _e59505973_)))) - (if (gx#stx-pair? _tl59525978_) - (let ((_e59535981_ - (gx#stx-e _tl59525978_))) - (let ((_hd59545984_ + (##cdr _e59936014_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl59916019_)) + (let ((_e59966022_ + (let () + (declare (not safe)) + (gx#stx-e _tl59916019_)))) + (let ((_hd59956025_ (let () (declare (not safe)) - (##car _e59535981_))) - (_tl59555986_ + (##car _e59966022_))) + (_tl59946027_ (let () (declare (not safe)) - (##cdr _e59535981_)))) - (if (gx#stx-null? _tl59555986_) - ((lambda (_L5989_ _L5990_) - (gxc#compile-e _L5989_)) - _hd59545984_ - _hd59515976_) - (_g59435960_ _g59445963_)))) - (_g59435960_ _g59445963_)))) - (_g59435960_ _g59445963_)))) - (_g59435960_ _g59445963_))))) - (_g59426005_ _stx5941_)))) + (##cdr _e59966022_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl59946027_)) + ((lambda (_L6030_ _L6031_) + (let () + (declare (not safe)) + (gxc#compile-e _L6030_))) + _hd59956025_ + _hd59926017_) + (let () + (declare (not safe)) + (_g59846001_ _g59856004_))))) + (let () + (declare (not safe)) + (_g59846001_ _g59856004_))))) + (let () + (declare (not safe)) + (_g59846001_ _g59856004_))))) + (let () + (declare (not safe)) + (_g59846001_ _g59856004_)))))) + (declare (not safe)) + (_g59836046_ _stx5982_)))) (define gxc#find-lambda-expression-let-values% - (lambda (_stx5874_) - (let* ((_g58765893_ - (lambda (_g58775890_) - (gx#raise-syntax-error '#f '"Bad syntax" _g58775890_))) - (_g58755938_ - (lambda (_g58775896_) - (if (gx#stx-pair? _g58775896_) - (let ((_e58805898_ (gx#stx-e _g58775896_))) - (let ((_hd58815901_ + (lambda (_stx5915_) + (let* ((_g59175934_ + (lambda (_g59185931_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g59185931_)))) + (_g59165979_ + (lambda (_g59185937_) + (if (let () (declare (not safe)) (gx#stx-pair? _g59185937_)) + (let ((_e59235939_ + (let () + (declare (not safe)) + (gx#stx-e _g59185937_)))) + (let ((_hd59225942_ (let () (declare (not safe)) - (##car _e58805898_))) - (_tl58825903_ + (##car _e59235939_))) + (_tl59215944_ (let () (declare (not safe)) - (##cdr _e58805898_)))) - (if (gx#stx-pair? _tl58825903_) - (let ((_e58835906_ (gx#stx-e _tl58825903_))) - (let ((_hd58845909_ + (##cdr _e59235939_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl59215944_)) + (let ((_e59265947_ + (let () + (declare (not safe)) + (gx#stx-e _tl59215944_)))) + (let ((_hd59255950_ (let () (declare (not safe)) - (##car _e58835906_))) - (_tl58855911_ + (##car _e59265947_))) + (_tl59245952_ (let () (declare (not safe)) - (##cdr _e58835906_)))) - (if (gx#stx-pair? _tl58855911_) - (let ((_e58865914_ - (gx#stx-e _tl58855911_))) - (let ((_hd58875917_ + (##cdr _e59265947_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl59245952_)) + (let ((_e59295955_ + (let () + (declare (not safe)) + (gx#stx-e _tl59245952_)))) + (let ((_hd59285958_ (let () (declare (not safe)) - (##car _e58865914_))) - (_tl58885919_ + (##car _e59295955_))) + (_tl59275960_ (let () (declare (not safe)) - (##cdr _e58865914_)))) - (if (gx#stx-null? _tl58885919_) - ((lambda (_L5922_ _L5923_) - (gxc#compile-e _L5922_)) - _hd58875917_ - _hd58845909_) - (_g58765893_ _g58775896_)))) - (_g58765893_ _g58775896_)))) - (_g58765893_ _g58775896_)))) - (_g58765893_ _g58775896_))))) - (_g58755938_ _stx5874_)))) - (define gxc#count-values-single% (lambda (_stx5872_) '1)) + (##cdr _e59295955_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl59275960_)) + ((lambda (_L5963_ _L5964_) + (let () + (declare (not safe)) + (gxc#compile-e _L5963_))) + _hd59285958_ + _hd59255950_) + (let () + (declare (not safe)) + (_g59175934_ _g59185937_))))) + (let () + (declare (not safe)) + (_g59175934_ _g59185937_))))) + (let () + (declare (not safe)) + (_g59175934_ _g59185937_))))) + (let () + (declare (not safe)) + (_g59175934_ _g59185937_)))))) + (declare (not safe)) + (_g59165979_ _stx5915_)))) + (define gxc#count-values-single% (lambda (_stx5913_) '1)) (define gxc#count-values-begin% - (lambda (_stx5790_) - (let* ((_g57925811_ - (lambda (_g57935808_) - (gx#raise-syntax-error '#f '"Bad syntax" _g57935808_))) - (_g57915869_ - (lambda (_g57935814_) - (if (gx#stx-pair? _g57935814_) - (let ((_e57955816_ (gx#stx-e _g57935814_))) - (let ((_hd57965819_ + (lambda (_stx5831_) + (let* ((_g58335852_ + (lambda (_g58345849_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g58345849_)))) + (_g58325910_ + (lambda (_g58345855_) + (if (let () (declare (not safe)) (gx#stx-pair? _g58345855_)) + (let ((_e58385857_ + (let () + (declare (not safe)) + (gx#stx-e _g58345855_)))) + (let ((_hd58375860_ (let () (declare (not safe)) - (##car _e57955816_))) - (_tl57975821_ + (##car _e58385857_))) + (_tl58365862_ (let () (declare (not safe)) - (##cdr _e57955816_)))) - (if (gx#stx-pair/null? _tl57975821_) - (let ((_g16693_ - (gx#syntax-split-splice _tl57975821_ '0))) + (##cdr _e58385857_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl58365862_)) + (let ((_g17854_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl58365862_ + '0)))) (begin - (let ((_g16694_ + (let ((_g17855_ (let () (declare (not safe)) - (if (##values? _g16693_) - (##vector-length _g16693_) + (if (##values? _g17854_) + (##vector-length _g17854_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g16694_ 2))) + (##fx= _g17855_ 2))) (error "Context expects 2 values" - _g16694_))) - (let ((_target57985824_ + _g17855_))) + (let ((_target58395865_ (let () (declare (not safe)) - (##vector-ref _g16693_ 0))) - (_tl58005826_ + (##vector-ref _g17854_ 0))) + (_tl58415867_ (let () (declare (not safe)) - (##vector-ref _g16693_ 1)))) - (if (gx#stx-null? _tl58005826_) - (letrec ((_loop58015829_ - (lambda (_hd57995832_ - _expr58055834_) - (if (gx#stx-pair? - _hd57995832_) - (let ((_e58025837_ - (gx#stx-e - _hd57995832_))) - (let ((_lp-hd58035840_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e58025837_))) - (_lp-tl58045842_ - (let () (declare (not safe)) (##cdr _e58025837_)))) - (_loop58015829_ - _lp-tl58045842_ - (cons _lp-hd58035840_ _expr58055834_)))) - (let ((_expr58065845_ (reverse _expr58055834_))) - ((lambda (_L5848_) - (gxc#compile-e - (last (foldr1 (lambda (_g58615864_ _g58625866_) - (cons _g58615864_ _g58625866_)) - '() - _L5848_)))) - _expr58065845_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop58015829_ - _target57985824_ - '())) - (_g57925811_ _g57935814_))))) - (_g57925811_ _g57935814_)))) - (_g57925811_ _g57935814_))))) - (_g57915869_ _stx5790_)))) + (##vector-ref _g17854_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl58415867_)) + (letrec ((_loop58425870_ + (lambda (_hd58405873_ + _expr58465875_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd58405873_)) + (let ((_e58435878_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd58405873_)))) + (let ((_lp-hd58445881_ + (let () (declare (not safe)) (##car _e58435878_))) + (_lp-tl58455883_ + (let () (declare (not safe)) (##cdr _e58435878_)))) + (let ((__tmp17859 + (let () + (declare (not safe)) + (cons _lp-hd58445881_ _expr58465875_)))) + (declare (not safe)) + (_loop58425870_ _lp-tl58455883_ __tmp17859)))) + (let ((_expr58475886_ + (let () (declare (not safe)) (reverse _expr58465875_)))) + ((lambda (_L5889_) + (let ((__tmp17856 + (let ((__tmp17857 + (let ((__tmp17858 + (lambda (_g59025905_ _g59035907_) + (let () + (declare (not safe)) + (cons _g59025905_ + _g59035907_))))) + (declare (not safe)) + (foldr1 __tmp17858 '() _L5889_)))) + (declare (not safe)) + (last __tmp17857)))) + (declare (not safe)) + (gxc#compile-e __tmp17856))) + _expr58475886_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop58425870_ + _target58395865_ + '()))) + (let () + (declare (not safe)) + (_g58335852_ _g58345855_)))))) + (let () + (declare (not safe)) + (_g58335852_ _g58345855_))))) + (let () + (declare (not safe)) + (_g58335852_ _g58345855_)))))) + (declare (not safe)) + (_g58325910_ _stx5831_)))) (define gxc#count-values-begin-annotation% - (lambda (_stx5723_) - (let* ((_g57255742_ - (lambda (_g57265739_) - (gx#raise-syntax-error '#f '"Bad syntax" _g57265739_))) - (_g57245787_ - (lambda (_g57265745_) - (if (gx#stx-pair? _g57265745_) - (let ((_e57295747_ (gx#stx-e _g57265745_))) - (let ((_hd57305750_ + (lambda (_stx5764_) + (let* ((_g57665783_ + (lambda (_g57675780_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g57675780_)))) + (_g57655828_ + (lambda (_g57675786_) + (if (let () (declare (not safe)) (gx#stx-pair? _g57675786_)) + (let ((_e57725788_ + (let () + (declare (not safe)) + (gx#stx-e _g57675786_)))) + (let ((_hd57715791_ (let () (declare (not safe)) - (##car _e57295747_))) - (_tl57315752_ + (##car _e57725788_))) + (_tl57705793_ (let () (declare (not safe)) - (##cdr _e57295747_)))) - (if (gx#stx-pair? _tl57315752_) - (let ((_e57325755_ (gx#stx-e _tl57315752_))) - (let ((_hd57335758_ + (##cdr _e57725788_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl57705793_)) + (let ((_e57755796_ + (let () + (declare (not safe)) + (gx#stx-e _tl57705793_)))) + (let ((_hd57745799_ (let () (declare (not safe)) - (##car _e57325755_))) - (_tl57345760_ + (##car _e57755796_))) + (_tl57735801_ (let () (declare (not safe)) - (##cdr _e57325755_)))) - (if (gx#stx-pair? _tl57345760_) - (let ((_e57355763_ - (gx#stx-e _tl57345760_))) - (let ((_hd57365766_ + (##cdr _e57755796_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl57735801_)) + (let ((_e57785804_ + (let () + (declare (not safe)) + (gx#stx-e _tl57735801_)))) + (let ((_hd57775807_ (let () (declare (not safe)) - (##car _e57355763_))) - (_tl57375768_ + (##car _e57785804_))) + (_tl57765809_ (let () (declare (not safe)) - (##cdr _e57355763_)))) - (if (gx#stx-null? _tl57375768_) - ((lambda (_L5771_ _L5772_) - (gxc#compile-e _L5771_)) - _hd57365766_ - _hd57335758_) - (_g57255742_ _g57265745_)))) - (_g57255742_ _g57265745_)))) - (_g57255742_ _g57265745_)))) - (_g57255742_ _g57265745_))))) - (_g57245787_ _stx5723_)))) + (##cdr _e57785804_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl57765809_)) + ((lambda (_L5812_ _L5813_) + (let () + (declare (not safe)) + (gxc#compile-e _L5812_))) + _hd57775807_ + _hd57745799_) + (let () + (declare (not safe)) + (_g57665783_ _g57675786_))))) + (let () + (declare (not safe)) + (_g57665783_ _g57675786_))))) + (let () + (declare (not safe)) + (_g57665783_ _g57675786_))))) + (let () + (declare (not safe)) + (_g57665783_ _g57675786_)))))) + (declare (not safe)) + (_g57655828_ _stx5764_)))) (define gxc#count-values-let-values% - (lambda (_stx5656_) - (let* ((_g56585675_ - (lambda (_g56595672_) - (gx#raise-syntax-error '#f '"Bad syntax" _g56595672_))) - (_g56575720_ - (lambda (_g56595678_) - (if (gx#stx-pair? _g56595678_) - (let ((_e56625680_ (gx#stx-e _g56595678_))) - (let ((_hd56635683_ + (lambda (_stx5697_) + (let* ((_g56995716_ + (lambda (_g57005713_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g57005713_)))) + (_g56985761_ + (lambda (_g57005719_) + (if (let () (declare (not safe)) (gx#stx-pair? _g57005719_)) + (let ((_e57055721_ + (let () + (declare (not safe)) + (gx#stx-e _g57005719_)))) + (let ((_hd57045724_ (let () (declare (not safe)) - (##car _e56625680_))) - (_tl56645685_ + (##car _e57055721_))) + (_tl57035726_ (let () (declare (not safe)) - (##cdr _e56625680_)))) - (if (gx#stx-pair? _tl56645685_) - (let ((_e56655688_ (gx#stx-e _tl56645685_))) - (let ((_hd56665691_ + (##cdr _e57055721_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl57035726_)) + (let ((_e57085729_ + (let () + (declare (not safe)) + (gx#stx-e _tl57035726_)))) + (let ((_hd57075732_ (let () (declare (not safe)) - (##car _e56655688_))) - (_tl56675693_ + (##car _e57085729_))) + (_tl57065734_ (let () (declare (not safe)) - (##cdr _e56655688_)))) - (if (gx#stx-pair? _tl56675693_) - (let ((_e56685696_ - (gx#stx-e _tl56675693_))) - (let ((_hd56695699_ + (##cdr _e57085729_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl57065734_)) + (let ((_e57115737_ + (let () + (declare (not safe)) + (gx#stx-e _tl57065734_)))) + (let ((_hd57105740_ (let () (declare (not safe)) - (##car _e56685696_))) - (_tl56705701_ + (##car _e57115737_))) + (_tl57095742_ (let () (declare (not safe)) - (##cdr _e56685696_)))) - (if (gx#stx-null? _tl56705701_) - ((lambda (_L5704_ _L5705_) - (gxc#compile-e _L5704_)) - _hd56695699_ - _hd56665691_) - (_g56585675_ _g56595678_)))) - (_g56585675_ _g56595678_)))) - (_g56585675_ _g56595678_)))) - (_g56585675_ _g56595678_))))) - (_g56575720_ _stx5656_)))) + (##cdr _e57115737_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl57095742_)) + ((lambda (_L5745_ _L5746_) + (let () + (declare (not safe)) + (gxc#compile-e _L5745_))) + _hd57105740_ + _hd57075732_) + (let () + (declare (not safe)) + (_g56995716_ _g57005719_))))) + (let () + (declare (not safe)) + (_g56995716_ _g57005719_))))) + (let () + (declare (not safe)) + (_g56995716_ _g57005719_))))) + (let () + (declare (not safe)) + (_g56995716_ _g57005719_)))))) + (declare (not safe)) + (_g56985761_ _stx5697_)))) (define gxc#count-values-call% - (lambda (_stx5523_) - (let* ((___stx1662216623_ _stx5523_) - (_g55265555_ + (lambda (_stx5564_) + (let* ((___stx1695916960_ _stx5564_) + (_g55675596_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1662216623_)))) - (let ((___kont1662416625_ - (lambda (_L5623_ _L5624_) - (length (foldr1 (lambda (_g56455648_ _g56465650_) - (cons _g56455648_ _g56465650_)) - '() - _L5623_)))) - (___kont1662816629_ (lambda () '#f))) - (let ((___match1666716668_ - (lambda (_e55305567_ - _hd55315570_ - _tl55325572_ - _e55335575_ - _hd55345578_ - _tl55355580_ - _e55365583_ - _hd55375586_ - _tl55385588_ - _e55395591_ - _hd55405594_ - _tl55415596_ - ___splice1662616627_ - _target55425599_ - _tl55445601_) - (letrec ((_loop55455604_ - (lambda (_hd55435607_ _rand55495609_) - (if (gx#stx-pair? _hd55435607_) - (let ((_e55465612_ - (gx#stx-e _hd55435607_))) - (let ((_lp-tl55485617_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1695916960_))))) + (let ((___kont1696116962_ + (lambda (_L5664_ _L5665_) + (length (let ((__tmp17860 + (lambda (_g56865689_ _g56875691_) + (let () + (declare (not safe)) + (cons _g56865689_ _g56875691_))))) + (declare (not safe)) + (foldr1 __tmp17860 '() _L5664_))))) + (___kont1696516966_ (lambda () '#f))) + (let ((___match1700417005_ + (lambda (_e55735608_ + _hd55725611_ + _tl55715613_ + _e55765616_ + _hd55755619_ + _tl55745621_ + _e55795624_ + _hd55785627_ + _tl55775629_ + _e55825632_ + _hd55815635_ + _tl55805637_ + ___splice1696316964_ + _target55835640_ + _tl55855642_) + (letrec ((_loop55865645_ + (lambda (_hd55845648_ _rand55905650_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd55845648_)) + (let ((_e55875653_ + (let () + (declare (not safe)) + (gx#stx-e _hd55845648_)))) + (let ((_lp-tl55895658_ (let () (declare (not safe)) - (##cdr _e55465612_))) - (_lp-hd55475615_ + (##cdr _e55875653_))) + (_lp-hd55885656_ (let () (declare (not safe)) - (##car _e55465612_)))) - (_loop55455604_ - _lp-tl55485617_ - (cons _lp-hd55475615_ - _rand55495609_)))) - (let ((_rand55505620_ - (reverse _rand55495609_))) - (let ((_L5623_ _rand55505620_) - (_L5624_ _hd55405594_)) - (if (gx#free-identifier=? - _L5624_ - 'values) - (___kont1662416625_ - _L5623_ - _L5624_) - (___kont1662816629_)))))))) - (_loop55455604_ _target55425599_ '()))))) - (if (gx#stx-pair? ___stx1662216623_) - (let ((_e55305567_ (gx#stx-e ___stx1662216623_))) - (let ((_tl55325572_ - (let () (declare (not safe)) (##cdr _e55305567_))) - (_hd55315570_ - (let () (declare (not safe)) (##car _e55305567_)))) - (if (gx#stx-pair? _tl55325572_) - (let ((_e55335575_ (gx#stx-e _tl55325572_))) - (let ((_tl55355580_ + (##car _e55875653_)))) + (let ((__tmp17861 + (let () + (declare (not safe)) + (cons _lp-hd55885656_ + _rand55905650_)))) + (declare (not safe)) + (_loop55865645_ + _lp-tl55895658_ + __tmp17861)))) + (let ((_rand55915661_ + (let () + (declare (not safe)) + (reverse _rand55905650_)))) + (let ((_L5664_ _rand55915661_) + (_L5665_ _hd55815635_)) + (if (let () + (declare (not safe)) + (gx#free-identifier=? + _L5665_ + 'values)) + (___kont1696116962_ + _L5664_ + _L5665_) + (___kont1696516966_)))))))) + (let () + (declare (not safe)) + (_loop55865645_ _target55835640_ '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1695916960_)) + (let ((_e55735608_ + (let () + (declare (not safe)) + (gx#stx-e ___stx1695916960_)))) + (let ((_tl55715613_ + (let () (declare (not safe)) (##cdr _e55735608_))) + (_hd55725611_ + (let () (declare (not safe)) (##car _e55735608_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl55715613_)) + (let ((_e55765616_ + (let () + (declare (not safe)) + (gx#stx-e _tl55715613_)))) + (let ((_tl55745621_ (let () (declare (not safe)) - (##cdr _e55335575_))) - (_hd55345578_ + (##cdr _e55765616_))) + (_hd55755619_ (let () (declare (not safe)) - (##car _e55335575_)))) - (if (gx#stx-pair? _hd55345578_) - (let ((_e55365583_ (gx#stx-e _hd55345578_))) - (let ((_tl55385588_ + (##car _e55765616_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd55755619_)) + (let ((_e55795624_ + (let () + (declare (not safe)) + (gx#stx-e _hd55755619_)))) + (let ((_tl55775629_ (let () (declare (not safe)) - (##cdr _e55365583_))) - (_hd55375586_ + (##cdr _e55795624_))) + (_hd55785627_ (let () (declare (not safe)) - (##car _e55365583_)))) - (if (gx#identifier? _hd55375586_) - (if (gx#stx-eq? '%#ref _hd55375586_) - (if (gx#stx-pair? _tl55385588_) - (let ((_e55395591_ - (gx#stx-e - _tl55385588_))) - (let ((_tl55415596_ + (##car _e55795624_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd55785627_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd55785627_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl55775629_)) + (let ((_e55825632_ + (let () + (declare (not safe)) + (gx#stx-e + _tl55775629_)))) + (let ((_tl55805637_ (let () (declare (not safe)) - (##cdr _e55395591_))) - (_hd55405594_ + (##cdr _e55825632_))) + (_hd55815635_ (let () (declare (not safe)) - (##car _e55395591_)))) - (if (gx#stx-null? - _tl55415596_) - (if (gx#stx-pair/null? - _tl55355580_) - (let ((___splice1662616627_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl55355580_ '0))) - (let ((_tl55445601_ - (let () - (declare (not safe)) - (##vector-ref ___splice1662616627_ '1))) - (_target55425599_ - (let () - (declare (not safe)) - (##vector-ref ___splice1662616627_ '0)))) - (if (gx#stx-null? _tl55445601_) - (___match1666716668_ - _e55305567_ - _hd55315570_ - _tl55325572_ - _e55335575_ - _hd55345578_ - _tl55355580_ - _e55365583_ - _hd55375586_ - _tl55385588_ - _e55395591_ - _hd55405594_ - _tl55415596_ - ___splice1662616627_ - _target55425599_ - _tl55445601_) - (___kont1662816629_)))) - (___kont1662816629_)) - (___kont1662816629_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1662816629_)) - (___kont1662816629_)) - (___kont1662816629_)))) - (___kont1662816629_)))) - (___kont1662816629_)))) - (___kont1662816629_))))))) + (##car _e55825632_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl55805637_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair/null? _tl55745621_)) + (let ((___splice1696316964_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl55745621_ '0)))) + (let ((_tl55855642_ + (let () + (declare (not safe)) + (##vector-ref ___splice1696316964_ '1))) + (_target55835640_ + (let () + (declare (not safe)) + (##vector-ref ___splice1696316964_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl55855642_)) + (___match1700417005_ + _e55735608_ + _hd55725611_ + _tl55715613_ + _e55765616_ + _hd55755619_ + _tl55745621_ + _e55795624_ + _hd55785627_ + _tl55775629_ + _e55825632_ + _hd55815635_ + _tl55805637_ + ___splice1696316964_ + _target55835640_ + _tl55855642_) + (___kont1696516966_)))) + (___kont1696516966_)) + (___kont1696516966_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont1696516966_)) + (___kont1696516966_)) + (___kont1696516966_)))) + (___kont1696516966_)))) + (___kont1696516966_)))) + (___kont1696516966_))))))) (define gxc#count-values-if% - (lambda (_stx5427_) - (let* ((_g54295450_ - (lambda (_g54305447_) - (gx#raise-syntax-error '#f '"Bad syntax" _g54305447_))) - (_g54285520_ - (lambda (_g54305453_) - (if (gx#stx-pair? _g54305453_) - (let ((_e54345455_ (gx#stx-e _g54305453_))) - (let ((_hd54355458_ + (lambda (_stx5468_) + (let* ((_g54705491_ + (lambda (_g54715488_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g54715488_)))) + (_g54695561_ + (lambda (_g54715494_) + (if (let () (declare (not safe)) (gx#stx-pair? _g54715494_)) + (let ((_e54775496_ + (let () + (declare (not safe)) + (gx#stx-e _g54715494_)))) + (let ((_hd54765499_ (let () (declare (not safe)) - (##car _e54345455_))) - (_tl54365460_ + (##car _e54775496_))) + (_tl54755501_ (let () (declare (not safe)) - (##cdr _e54345455_)))) - (if (gx#stx-pair? _tl54365460_) - (let ((_e54375463_ (gx#stx-e _tl54365460_))) - (let ((_hd54385466_ + (##cdr _e54775496_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl54755501_)) + (let ((_e54805504_ + (let () + (declare (not safe)) + (gx#stx-e _tl54755501_)))) + (let ((_hd54795507_ (let () (declare (not safe)) - (##car _e54375463_))) - (_tl54395468_ + (##car _e54805504_))) + (_tl54785509_ (let () (declare (not safe)) - (##cdr _e54375463_)))) - (if (gx#stx-pair? _tl54395468_) - (let ((_e54405471_ - (gx#stx-e _tl54395468_))) - (let ((_hd54415474_ + (##cdr _e54805504_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl54785509_)) + (let ((_e54835512_ + (let () + (declare (not safe)) + (gx#stx-e _tl54785509_)))) + (let ((_hd54825515_ (let () (declare (not safe)) - (##car _e54405471_))) - (_tl54425476_ + (##car _e54835512_))) + (_tl54815517_ (let () (declare (not safe)) - (##cdr _e54405471_)))) - (if (gx#stx-pair? _tl54425476_) - (let ((_e54435479_ - (gx#stx-e _tl54425476_))) - (let ((_hd54445482_ + (##cdr _e54835512_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl54815517_)) + (let ((_e54865520_ + (let () + (declare (not safe)) + (gx#stx-e + _tl54815517_)))) + (let ((_hd54855523_ (let () (declare (not safe)) - (##car _e54435479_))) - (_tl54455484_ + (##car _e54865520_))) + (_tl54845525_ (let () (declare (not safe)) - (##cdr _e54435479_)))) - (if (gx#stx-null? - _tl54455484_) - ((lambda (_L5487_ - _L5488_ - _L5489_) - (let ((_c155065508_ - (gxc#compile-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L5488_))) - (if _c155065508_ - (let* ((_c15511_ _c155065508_) - (_c255125514_ (gxc#compile-e _L5487_))) - (if _c255125514_ - (let ((_c25517_ _c255125514_)) - (if (fx= _c15511_ _c25517_) _c15511_ '#f)) + (##cdr _e54865520_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl54845525_)) + ((lambda (_L5528_ + _L5529_ + _L5530_) + (let ((_c155475549_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gxc#compile-e _L5529_)))) + (if _c155475549_ + (let* ((_c15552_ _c155475549_) + (_c255535555_ + (let () + (declare (not safe)) + (gxc#compile-e _L5528_)))) + (if _c255535555_ + (let ((_c25558_ _c255535555_)) + (if (fx= _c15552_ _c25558_) _c15552_ '#f)) '#f)) '#f))) - _hd54445482_ - _hd54415474_ - _hd54385466_) - (_g54295450_ _g54305453_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g54295450_ _g54305453_)))) - (_g54295450_ _g54305453_)))) - (_g54295450_ _g54305453_)))) - (_g54295450_ _g54305453_))))) - (_g54285520_ _stx5427_)))))) + _hd54855523_ + _hd54825515_ + _hd54795507_) + (let () (declare (not safe)) (_g54705491_ _g54715494_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g54705491_ _g54715494_))))) + (let () + (declare (not safe)) + (_g54705491_ _g54715494_))))) + (let () + (declare (not safe)) + (_g54705491_ _g54715494_))))) + (let () + (declare (not safe)) + (_g54705491_ _g54715494_)))))) + (declare (not safe)) + (_g54695561_ _stx5468_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile__1.scm b/src/bootstrap/gerbil/compiler/compile__1.scm index d56fd0651..3e087f419 100644 --- a/src/bootstrap/gerbil/compiler/compile__1.scm +++ b/src/bootstrap/gerbil/compiler/compile__1.scm @@ -1,1029 +1,1873 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g16697_| + (define |gxc[1]#_g18086_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16698_| + (define |gxc[1]#_g18097_| (##structure gx#syntax-quote::t - 'make-meta-state + 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16699_| + (define |gxc[1]#_g18099_| (##structure gx#syntax-quote::t - 'meta-state? + 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16700_| + (define |gxc[1]#_g18101_| (##structure gx#syntax-quote::t - 'meta-state-src + 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16701_| + (define |gxc[1]#_g18103_| (##structure gx#syntax-quote::t - 'meta-state-n + 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16702_| + (define |gxc[1]#_g18109_| (##structure gx#syntax-quote::t - 'meta-state-open + 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16703_| + (define |gxc[1]#_g18111_| (##structure gx#syntax-quote::t - 'meta-state-blocks + 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16704_| + (define |gxc[1]#_g18113_| (##structure gx#syntax-quote::t - 'meta-state-src-set! + 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16705_| + (define |gxc[1]#_g18115_| (##structure gx#syntax-quote::t - 'meta-state-n-set! + 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16706_| + (define |gxc[1]#_g18117_| (##structure gx#syntax-quote::t - 'meta-state-open-set! + 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16707_| + (define |gxc[1]#_g18119_| (##structure gx#syntax-quote::t - 'meta-state-blocks-set! + 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16708_| + (define |gxc[1]#_g18121_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16709_| + (define |gxc[1]#_g18132_| (##structure gx#syntax-quote::t - 'make-meta-state-block + 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16710_| + (define |gxc[1]#_g18134_| (##structure gx#syntax-quote::t - 'meta-state-block? + 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16711_| + (define |gxc[1]#_g18136_| (##structure gx#syntax-quote::t - 'meta-state-block-ctx + 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16712_| + (define |gxc[1]#_g18138_| (##structure gx#syntax-quote::t - 'meta-state-block-phi + 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16713_| + (define |gxc[1]#_g18144_| (##structure gx#syntax-quote::t - 'meta-state-block-n + 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16714_| + (define |gxc[1]#_g18146_| (##structure gx#syntax-quote::t - 'meta-state-block-code + 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16715_| + (define |gxc[1]#_g18148_| (##structure gx#syntax-quote::t - 'meta-state-block-ctx-set! + 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16716_| + (define |gxc[1]#_g18150_| (##structure gx#syntax-quote::t - 'meta-state-block-phi-set! + 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16717_| + (define |gxc[1]#_g18152_| (##structure gx#syntax-quote::t - 'meta-state-block-n-set! + 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g16718_| + (define |gxc[1]#_g18154_| (##structure gx#syntax-quote::t - 'meta-state-block-code-set! + 'make-meta-state-block #f (gx#current-expander-context) '())) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_$stx4767_) - (let* ((___stx1536015361_ _$stx4767_) - (_g47734853_ + (lambda (_$stx4808_) + (let* ((___stx1561315614_ _$stx4808_) + (_g48144894_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx1536015361_)))) - (let ((___kont1536315364_ - (lambda (_L5150_ _L5152_ _L5153_ _L5154_) - (cons _L5154_ - (cons _L5153_ (cons (cons _L5152_ '()) _L5150_))))) - (___kont1536515366_ - (lambda (_L5062_ _L5064_ _L5065_ _L5066_) - (cons (gx#datum->syntax__0 '#f 'define) - (cons _L5066_ - (cons (cons (gx#datum->syntax__0 '#f 'delay) - (cons (cons (gx#datum->syntax__0 - '#f - 'let) - (cons (cons (gx#datum->syntax__0 + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx1561315614_))))) + (let ((___kont1561615617_ + (lambda (_L5191_ _L5193_ _L5194_ _L5195_) + (let ((__tmp17862 + (let ((__tmp17863 + (let ((__tmp17864 + (let () + (declare (not safe)) + (cons _L5193_ '())))) + (declare (not safe)) + (cons __tmp17864 _L5191_)))) + (declare (not safe)) + (cons _L5194_ __tmp17863)))) + (declare (not safe)) + (cons _L5195_ __tmp17862)))) + (___kont1561815619_ + (lambda (_L5103_ _L5105_ _L5106_ _L5107_) + (let ((__tmp17901 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'define))) + (__tmp17865 + (let ((__tmp17866 + (let ((__tmp17867 + (let ((__tmp17900 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'delay))) + (__tmp17868 + (let ((__tmp17869 + (let ((__tmp17899 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'tbl) - (cons (cons (gx#datum->syntax__0 - '#f - 'make-hash-table-eq) - '()) - '())) - (foldr1 (lambda (_g50935099_ _g50945102_) - (cons (cons (gx#datum->syntax__0 - '#f - 'hash-copy!) - (cons (gx#datum->syntax__0 '#f 'tbl) - (cons (cons (gx#datum->syntax__0 - '#f - 'force) - (cons _g50935099_ + (not safe)) + (gx#datum->syntax__0 '#f 'let))) + (__tmp17870 + (let ((__tmp17894 + (let ((__tmp17898 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'tbl))) + (__tmp17895 + (let ((__tmp17896 + (let ((__tmp17897 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-hash-table-eq)))) + (declare (not safe)) + (cons __tmp17897 '())))) + (declare (not safe)) + (cons __tmp17896 '())))) + (declare (not safe)) + (cons __tmp17898 __tmp17895))) + (__tmp17871 + (let ((__tmp17885 + (lambda (_g51345140_ _g51355143_) + (let ((__tmp17886 + (let ((__tmp17893 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'hash-copy!))) + (__tmp17887 + (let ((__tmp17892 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'tbl))) + (__tmp17888 + (let ((__tmp17889 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))) + (let ((__tmp17891 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'force))) + (__tmp17890 + (let () + (declare (not safe)) + (cons _g51345140_ '())))) + (declare (not safe)) + (cons __tmp17891 __tmp17890)))) + (declare (not safe)) + (cons __tmp17889 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g50945102_)) - (begin - (gx#syntax-check-splice-targets _L5062_ _L5064_) - (foldr2 (lambda (_g50955105_ - _g50965108_ - _g50975110_) - (cons (cons (gx#datum->syntax__0 - '#f - 'hash-put!) - (cons (gx#datum->syntax__0 - '#f - 'tbl) - (cons (cons (gx#datum->syntax__0 + (declare (not safe)) + (cons __tmp17892 + __tmp17888)))) + (declare (not safe)) + (cons __tmp17893 __tmp17887)))) + (declare (not safe)) + (cons __tmp17886 _g51355143_)))) + (__tmp17872 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _L5103_ + _L5105_)) + (let ((__tmp17875 + (lambda (_g51365146_ + _g51375149_ + _g51385151_) + (let ((__tmp17876 + (let ((__tmp17884 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'hash-put!))) + (__tmp17877 + (let ((__tmp17883 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _g50965108_ '())) - (cons _g50955105_ '())))) + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'tbl))) + (__tmp17878 + (let ((__tmp17880 + (let ((__tmp17882 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp17881 + (let () + (declare (not safe)) + (cons _g51375149_ '())))) + (declare (not safe)) + (cons __tmp17882 __tmp17881))) + (__tmp17879 + (let () + (declare (not safe)) + (cons _g51365146_ '())))) + (declare (not safe)) + (cons __tmp17880 __tmp17879)))) + (declare (not safe)) + (cons __tmp17883 __tmp17878)))) + (declare (not safe)) + (cons __tmp17884 __tmp17877)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g50975110_)) - (cons (gx#datum->syntax__0 '#f 'tbl) - '()) - _L5062_ - _L5064_)) - _L5065_))) + (declare (not safe)) + (cons __tmp17876 + _g51385151_)))) + (__tmp17873 + (let ((__tmp17874 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'tbl)))) + (declare (not safe)) + (cons __tmp17874 '())))) + (declare (not safe)) + (foldr2 __tmp17875 + __tmp17873 + _L5103_ + _L5105_))))) + (declare (not safe)) + (foldr1 __tmp17885 __tmp17872 _L5106_)))) + (declare (not safe)) + (cons __tmp17894 __tmp17871)))) + (declare (not safe)) + (cons __tmp17899 __tmp17870)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '()))))) - (___kont1537115372_ - (lambda (_L4900_ _L4902_ _L4903_ _L4904_ _L4905_) - (cons (gx#datum->syntax__0 '#f 'begin) - (cons (cons _L4905_ - (cons '#f - (cons (cons _L4903_ _L4902_) - _L4900_))) - (cons (cons (gx#datum->syntax__0 '#f 'define) - (cons (cons _L4904_ - (cons (gx#datum->syntax__0 - '#f - 'stx) - (gx#datum->syntax__0 - '#f - 'args))) - (cons (cons (gx#datum->syntax__0 - '#f - 'parameterize) - (cons (cons (cons (gx#datum->syntax__0 + (declare (not safe)) + (cons __tmp17869 '())))) + (declare (not safe)) + (cons __tmp17900 __tmp17868)))) + (declare (not safe)) + (cons __tmp17867 '())))) + (declare (not safe)) + (cons _L5107_ __tmp17866)))) + (declare (not safe)) + (cons __tmp17901 __tmp17865)))) + (___kont1562415625_ + (lambda (_L4941_ _L4943_ _L4944_ _L4945_ _L4946_) + (let ((__tmp17935 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'begin))) + (__tmp17902 + (let ((__tmp17931 + (let ((__tmp17932 + (let ((__tmp17933 + (let ((__tmp17934 + (let () + (declare (not safe)) + (cons _L4944_ + _L4943_)))) + (declare (not safe)) + (cons __tmp17934 _L4941_)))) + (declare (not safe)) + (cons '#f __tmp17933)))) + (declare (not safe)) + (cons _L4946_ __tmp17932))) + (__tmp17903 + (let ((__tmp17904 + (let ((__tmp17930 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'define))) + (__tmp17905 + (let ((__tmp17926 + (let ((__tmp17927 + (let ((__tmp17929 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'stx))) + (__tmp17928 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'args)))) + (declare (not safe)) + (cons __tmp17929 __tmp17928)))) + (declare (not safe)) + (cons _L4945_ __tmp17927))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17906 + (let ((__tmp17907 + (let ((__tmp17925 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'current-compile-methods) - (cons (cons (gx#datum->syntax__0 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'parameterize))) + (__tmp17908 + (let ((__tmp17918 + (let ((__tmp17919 + (let ((__tmp17924 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f - 'force) - (cons _L4903_ '())) - '())) - '()) - (cons (cons (gx#datum->syntax__0 '#f 'apply) - (cons (gx#datum->syntax__0 - '#f - 'compile-e) - (cons (gx#datum->syntax__0 + 'current-compile-methods))) + (__tmp17920 + (let ((__tmp17921 + (let ((__tmp17923 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'force))) + (__tmp17922 + (let () (declare (not safe)) (cons _L4944_ '())))) + (declare (not safe)) + (cons __tmp17923 __tmp17922)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17921 '())))) + (declare (not safe)) + (cons __tmp17924 __tmp17920)))) + (declare (not safe)) + (cons __tmp17919 '()))) + (__tmp17909 + (let ((__tmp17910 + (let ((__tmp17917 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f - 'stx) - (cons (gx#datum->syntax__0 - '#f - 'args) - '())))) - '()))) - '()))) + 'apply))) + (__tmp17911 + (let ((__tmp17916 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'compile-e))) + (__tmp17912 + (let ((__tmp17915 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'stx))) + (__tmp17913 + (let ((__tmp17914 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'args)))) + (declare (not safe)) + (cons __tmp17914 '())))) + (declare (not safe)) + (cons __tmp17915 __tmp17913)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17916 + __tmp17912)))) + (declare (not safe)) + (cons __tmp17917 __tmp17911)))) + (declare (not safe)) + (cons __tmp17910 '())))) + (declare (not safe)) + (cons __tmp17918 __tmp17909)))) + (declare (not safe)) + (cons __tmp17925 __tmp17908)))) + (declare (not safe)) + (cons __tmp17907 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - (let* ((___match1545315454_ - (lambda (_e48364860_ - _hd48374864_ - _tl48384867_ - _e48394870_ - _hd48404874_ - _tl48414877_ - _e48424880_ - _hd48434884_ - _tl48444887_ - _e48454890_ - _hd48464894_ - _tl48474897_) - (let ((_L4900_ _tl48444887_) - (_L4902_ _tl48474897_) - (_L4903_ _hd48464894_) - (_L4904_ _hd48404874_) - (_L4905_ _hd48374864_)) - (if (gx#identifier? _L4904_) - (___kont1537115372_ - _L4900_ - _L4902_ - _L4903_ - _L4904_ - _L4905_) - (_g47734853_))))) - (___match1542915430_ - (lambda (_e47924934_ - _hd47934938_ - _tl47944941_ - _e47954944_ - _hd47964948_ - _tl47974951_ - _e47984954_ - _e47994958_ - _hd48004962_ - _tl48014965_ - _e48024968_ - _hd48034972_ - _tl48044975_ - ___splice1536715368_ - _target48054978_ - _tl48074981_) - (letrec ((_loop48084984_ - (lambda (_hd48064988_ _super48124991_) - (if (gx#stx-pair? _hd48064988_) - (let ((_e48094994_ - (gx#syntax-e _hd48064988_))) - (let ((_lp-tl48115001_ + (declare (not safe)) + (cons __tmp17926 + __tmp17906)))) + (declare (not safe)) + (cons __tmp17930 __tmp17905)))) + (declare (not safe)) + (cons __tmp17904 '())))) + (declare (not safe)) + (cons __tmp17931 __tmp17903)))) + (declare (not safe)) + (cons __tmp17935 __tmp17902))))) + (let* ((___match1570615707_ + (lambda (_e48794901_ + _hd48784905_ + _tl48774908_ + _e48824911_ + _hd48814915_ + _tl48804918_ + _e48854921_ + _hd48844925_ + _tl48834928_ + _e48884931_ + _hd48874935_ + _tl48864938_) + (let ((_L4941_ _tl48834928_) + (_L4943_ _tl48864938_) + (_L4944_ _hd48874935_) + (_L4945_ _hd48814915_) + (_L4946_ _hd48784905_)) + (if (let () + (declare (not safe)) + (gx#identifier? _L4945_)) + (___kont1562415625_ + _L4941_ + _L4943_ + _L4944_ + _L4945_ + _L4946_) + (let () (declare (not safe)) (_g48144894_)))))) + (___match1568215683_ + (lambda (_e48354975_ + _hd48344979_ + _tl48334982_ + _e48384985_ + _hd48374989_ + _tl48364992_ + _e48394995_ + _e48424999_ + _hd48415003_ + _tl48405006_ + _e48455009_ + _hd48445013_ + _tl48435016_ + ___splice1562015621_ + _target48465019_ + _tl48485022_) + (letrec ((_loop48495025_ + (lambda (_hd48475029_ _super48535032_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd48475029_)) + (let ((_e48505035_ + (let () + (declare (not safe)) + (gx#syntax-e _hd48475029_)))) + (let ((_lp-tl48525042_ (let () (declare (not safe)) - (##cdr _e48094994_))) - (_lp-hd48104998_ + (##cdr _e48505035_))) + (_lp-hd48515039_ (let () (declare (not safe)) - (##car _e48094994_)))) - (_loop48084984_ - _lp-tl48115001_ - (cons _lp-hd48104998_ - _super48124991_)))) - (let ((_super48135004_ - (reverse _super48124991_))) - (if (gx#stx-pair/null? _tl48014965_) - (let ((___splice1536915370_ - (gx#syntax-split-splice - _tl48014965_ - '0))) - (let ((_tl48165011_ + (##car _e48505035_)))) + (_loop48495025_ + _lp-tl48525042_ + (let () + (declare (not safe)) + (cons _lp-hd48515039_ + _super48535032_))))) + (let ((_super48545045_ + (let () + (declare (not safe)) + (reverse _super48535032_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl48405006_)) + (let ((___splice1562215623_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl48405006_ + '0)))) + (let ((_tl48575052_ (let () (declare (not safe)) (##vector-ref - ___splice1536915370_ + ___splice1562215623_ '1))) - (_target48145008_ + (_target48555049_ (let () (declare (not safe)) (##vector-ref - ___splice1536915370_ + ___splice1562215623_ '0)))) - (if (gx#stx-null? _tl48165011_) - (letrec ((_loop48175014_ - (lambda (_hd48155018_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl48575052_)) + (letrec ((_loop48585055_ + (lambda (_hd48565059_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _method48215021_ - _symbol48225023_) - (if (gx#stx-pair? _hd48155018_) - (let ((_e48185026_ (gx#syntax-e _hd48155018_))) - (let ((_lp-tl48205033_ + _method48625062_ + _symbol48635064_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd48565059_)) + (let ((_e48595067_ + (let () + (declare (not safe)) + (gx#syntax-e _hd48565059_)))) + (let ((_lp-tl48615074_ (let () (declare (not safe)) - (##cdr _e48185026_))) - (_lp-hd48195030_ + (##cdr _e48595067_))) + (_lp-hd48605071_ (let () (declare (not safe)) - (##car _e48185026_)))) - (if (gx#stx-pair? _lp-hd48195030_) - (let ((_e48255036_ - (gx#syntax-e _lp-hd48195030_))) - (let ((_tl48275043_ + (##car _e48595067_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd48605071_)) + (let ((_e48685077_ + (let () + (declare (not safe)) + (gx#syntax-e _lp-hd48605071_)))) + (let ((_tl48665084_ (let () (declare (not safe)) - (##cdr _e48255036_))) - (_hd48265040_ + (##cdr _e48685077_))) + (_hd48675081_ (let () (declare (not safe)) - (##car _e48255036_)))) - (if (gx#stx-pair? _tl48275043_) - (let ((_e48285046_ - (gx#syntax-e _tl48275043_))) - (let ((_tl48305053_ + (##car _e48685077_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl48665084_)) + (let ((_e48715087_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl48665084_)))) + (let ((_tl48695094_ (let () (declare (not safe)) - (##cdr _e48285046_))) - (_hd48295050_ + (##cdr _e48715087_))) + (_hd48705091_ (let () (declare (not safe)) - (##car _e48285046_)))) - (if (gx#stx-null? _tl48305053_) - (_loop48175014_ - _lp-tl48205033_ - (cons _hd48295050_ - _method48215021_) - (cons _hd48265040_ - _symbol48225023_)) - (___match1545315454_ - _e47924934_ - _hd47934938_ - _tl47944941_ - _e47954944_ - _hd47964948_ - _tl47974951_ - _e47994958_ - _hd48004962_ - _tl48014965_ - _e48024968_ - _hd48034972_ - _tl48044975_)))) - (___match1545315454_ - _e47924934_ - _hd47934938_ - _tl47944941_ - _e47954944_ - _hd47964948_ - _tl47974951_ - _e47994958_ - _hd48004962_ - _tl48014965_ - _e48024968_ - _hd48034972_ - _tl48044975_)))) - (___match1545315454_ - _e47924934_ - _hd47934938_ - _tl47944941_ - _e47954944_ - _hd47964948_ - _tl47974951_ - _e47994958_ - _hd48004962_ - _tl48014965_ - _e48024968_ - _hd48034972_ - _tl48044975_)))) - (let ((_symbol48245059_ (reverse _symbol48225023_)) - (_method48235056_ - (reverse _method48215021_))) - (___kont1536515366_ - _method48235056_ - _symbol48245059_ - _super48135004_ - _hd48034972_)))))) - (_loop48175014_ _target48145008_ '() '())) + (##car _e48715087_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl48695094_)) + (_loop48585055_ + _lp-tl48615074_ + (let () + (declare (not safe)) + (cons _hd48705091_ + _method48625062_)) + (let () + (declare (not safe)) + (cons _hd48675081_ + _symbol48635064_))) + (___match1570615707_ + _e48354975_ + _hd48344979_ + _tl48334982_ + _e48384985_ + _hd48374989_ + _tl48364992_ + _e48424999_ + _hd48415003_ + _tl48405006_ + _e48455009_ + _hd48445013_ + _tl48435016_)))) + (___match1570615707_ + _e48354975_ + _hd48344979_ + _tl48334982_ + _e48384985_ + _hd48374989_ + _tl48364992_ + _e48424999_ + _hd48415003_ + _tl48405006_ + _e48455009_ + _hd48445013_ + _tl48435016_)))) + (___match1570615707_ + _e48354975_ + _hd48344979_ + _tl48334982_ + _e48384985_ + _hd48374989_ + _tl48364992_ + _e48424999_ + _hd48415003_ + _tl48405006_ + _e48455009_ + _hd48445013_ + _tl48435016_)))) + (let ((_symbol48655100_ + (let () + (declare (not safe)) + (reverse _symbol48635064_))) + (_method48645097_ + (let () + (declare (not safe)) + (reverse _method48625062_)))) + (___kont1561815619_ + _method48645097_ + _symbol48655100_ + _super48545045_ + _hd48445013_)))))) + (_loop48585055_ _target48555049_ '() '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match1545315454_ - _e47924934_ - _hd47934938_ - _tl47944941_ - _e47954944_ - _hd47964948_ - _tl47974951_ - _e47994958_ - _hd48004962_ - _tl48014965_ - _e48024968_ - _hd48034972_ - _tl48044975_)))) - (___match1545315454_ - _e47924934_ - _hd47934938_ - _tl47944941_ - _e47954944_ - _hd47964948_ - _tl47974951_ - _e47994958_ - _hd48004962_ - _tl48014965_ - _e48024968_ - _hd48034972_ - _tl48044975_))))))) - (_loop48084984_ _target48054978_ '())))) - (___match1539115392_ - (lambda (_e47795120_ - _hd47805124_ - _tl47815127_ - _e47825130_ - _hd47835134_ - _tl47845137_ - _e47855140_ - _hd47865144_ - _tl47875147_) - (let ((_L5150_ _tl47875147_) - (_L5152_ _hd47865144_) - (_L5153_ _hd47835134_) - (_L5154_ _hd47805124_)) - (if (gx#identifier? _L5152_) - (___kont1536315364_ - _L5150_ - _L5152_ - _L5153_ - _L5154_) - (if (gx#stx-datum? _hd47835134_) - (let ((_e47984954_ (gx#stx-e _hd47835134_))) - (if (equal? _e47984954_ '#f) - (if (gx#stx-pair? _hd47865144_) - (let ((_e48024968_ - (gx#syntax-e _hd47865144_))) - (let ((_tl48044975_ + (___match1570615707_ + _e48354975_ + _hd48344979_ + _tl48334982_ + _e48384985_ + _hd48374989_ + _tl48364992_ + _e48424999_ + _hd48415003_ + _tl48405006_ + _e48455009_ + _hd48445013_ + _tl48435016_)))) + (___match1570615707_ + _e48354975_ + _hd48344979_ + _tl48334982_ + _e48384985_ + _hd48374989_ + _tl48364992_ + _e48424999_ + _hd48415003_ + _tl48405006_ + _e48455009_ + _hd48445013_ + _tl48435016_))))))) + (_loop48495025_ _target48465019_ '())))) + (___match1564415645_ + (lambda (_e48225161_ + _hd48215165_ + _tl48205168_ + _e48255171_ + _hd48245175_ + _tl48235178_ + _e48285181_ + _hd48275185_ + _tl48265188_) + (let ((_L5191_ _tl48265188_) + (_L5193_ _hd48275185_) + (_L5194_ _hd48245175_) + (_L5195_ _hd48215165_)) + (if (let () + (declare (not safe)) + (gx#identifier? _L5193_)) + (___kont1561615617_ + _L5191_ + _L5193_ + _L5194_ + _L5195_) + (if (let () + (declare (not safe)) + (gx#stx-datum? _hd48245175_)) + (let ((_e48394995_ + (let () + (declare (not safe)) + (gx#stx-e _hd48245175_)))) + (if (let () + (declare (not safe)) + (equal? _e48394995_ '#f)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd48275185_)) + (let ((_e48455009_ + (let () + (declare (not safe)) + (gx#syntax-e + _hd48275185_)))) + (let ((_tl48435016_ (let () (declare (not safe)) - (##cdr _e48024968_))) - (_hd48034972_ + (##cdr _e48455009_))) + (_hd48445013_ (let () (declare (not safe)) - (##car _e48024968_)))) - (if (gx#stx-pair/null? - _tl48044975_) - (let ((___splice1536715368_ - (gx#syntax-split-splice - _tl48044975_ - '0))) - (let ((_tl48074981_ + (##car _e48455009_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl48435016_)) + (let ((___splice1562015621_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl48435016_ + '0)))) + (let ((_tl48485022_ (let () (declare (not safe)) (##vector-ref - ___splice1536715368_ + ___splice1562015621_ '1))) - (_target48054978_ + (_target48465019_ (let () (declare (not safe)) (##vector-ref - ___splice1536715368_ + ___splice1562015621_ '0)))) - (if (gx#stx-null? - _tl48074981_) - (___match1542915430_ - _e47795120_ - _hd47805124_ - _tl47815127_ - _e47825130_ - _hd47835134_ - _tl47845137_ - _e47984954_ - _e47855140_ - _hd47865144_ - _tl47875147_ - _e48024968_ - _hd48034972_ - _tl48044975_ - ___splice1536715368_ - _target48054978_ - _tl48074981_) - (___match1545315454_ - _e47795120_ - _hd47805124_ - _tl47815127_ - _e47825130_ - _hd47835134_ - _tl47845137_ - _e47855140_ - _hd47865144_ - _tl47875147_ - _e48024968_ - _hd48034972_ - _tl48044975_)))) - (___match1545315454_ - _e47795120_ - _hd47805124_ - _tl47815127_ - _e47825130_ - _hd47835134_ - _tl47845137_ - _e47855140_ - _hd47865144_ - _tl47875147_ - _e48024968_ - _hd48034972_ - _tl48044975_)))) - (_g47734853_)) - (if (gx#stx-pair? _hd47865144_) - (let ((_e48454890_ - (gx#syntax-e _hd47865144_))) - (let ((_tl48474897_ + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl48485022_)) + (___match1568215683_ + _e48225161_ + _hd48215165_ + _tl48205168_ + _e48255171_ + _hd48245175_ + _tl48235178_ + _e48394995_ + _e48285181_ + _hd48275185_ + _tl48265188_ + _e48455009_ + _hd48445013_ + _tl48435016_ + ___splice1562015621_ + _target48465019_ + _tl48485022_) + (___match1570615707_ + _e48225161_ + _hd48215165_ + _tl48205168_ + _e48255171_ + _hd48245175_ + _tl48235178_ + _e48285181_ + _hd48275185_ + _tl48265188_ + _e48455009_ + _hd48445013_ + _tl48435016_)))) + (___match1570615707_ + _e48225161_ + _hd48215165_ + _tl48205168_ + _e48255171_ + _hd48245175_ + _tl48235178_ + _e48285181_ + _hd48275185_ + _tl48265188_ + _e48455009_ + _hd48445013_ + _tl48435016_)))) + (let () + (declare (not safe)) + (_g48144894_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd48275185_)) + (let ((_e48884931_ + (let () + (declare (not safe)) + (gx#syntax-e + _hd48275185_)))) + (let ((_tl48864938_ (let () (declare (not safe)) - (##cdr _e48454890_))) - (_hd48464894_ + (##cdr _e48884931_))) + (_hd48874935_ (let () (declare (not safe)) - (##car _e48454890_)))) - (___match1545315454_ - _e47795120_ - _hd47805124_ - _tl47815127_ - _e47825130_ - _hd47835134_ - _tl47845137_ - _e47855140_ - _hd47865144_ - _tl47875147_ - _e48454890_ - _hd48464894_ - _tl48474897_))) - (_g47734853_)))) - (if (gx#stx-pair? _hd47865144_) - (let ((_e48454890_ - (gx#syntax-e _hd47865144_))) - (let ((_tl48474897_ + (##car _e48884931_)))) + (___match1570615707_ + _e48225161_ + _hd48215165_ + _tl48205168_ + _e48255171_ + _hd48245175_ + _tl48235178_ + _e48285181_ + _hd48275185_ + _tl48265188_ + _e48884931_ + _hd48874935_ + _tl48864938_))) + (let () + (declare (not safe)) + (_g48144894_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd48275185_)) + (let ((_e48884931_ + (let () + (declare (not safe)) + (gx#syntax-e _hd48275185_)))) + (let ((_tl48864938_ (let () (declare (not safe)) - (##cdr _e48454890_))) - (_hd48464894_ + (##cdr _e48884931_))) + (_hd48874935_ (let () (declare (not safe)) - (##car _e48454890_)))) - (___match1545315454_ - _e47795120_ - _hd47805124_ - _tl47815127_ - _e47825130_ - _hd47835134_ - _tl47845137_ - _e47855140_ - _hd47865144_ - _tl47875147_ - _e48454890_ - _hd48464894_ - _tl48474897_))) - (_g47734853_)))))))) - (if (gx#stx-pair? ___stx1536015361_) - (let ((_e47795120_ (gx#syntax-e ___stx1536015361_))) - (let ((_tl47815127_ - (let () (declare (not safe)) (##cdr _e47795120_))) - (_hd47805124_ - (let () (declare (not safe)) (##car _e47795120_)))) - (if (gx#stx-pair? _tl47815127_) - (let ((_e47825130_ (gx#syntax-e _tl47815127_))) - (let ((_tl47845137_ + (##car _e48884931_)))) + (___match1570615707_ + _e48225161_ + _hd48215165_ + _tl48205168_ + _e48255171_ + _hd48245175_ + _tl48235178_ + _e48285181_ + _hd48275185_ + _tl48265188_ + _e48884931_ + _hd48874935_ + _tl48864938_))) + (let () + (declare (not safe)) + (_g48144894_))))))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx1561315614_)) + (let ((_e48225161_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx1561315614_)))) + (let ((_tl48205168_ + (let () (declare (not safe)) (##cdr _e48225161_))) + (_hd48215165_ + (let () (declare (not safe)) (##car _e48225161_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl48205168_)) + (let ((_e48255171_ + (let () + (declare (not safe)) + (gx#syntax-e _tl48205168_)))) + (let ((_tl48235178_ (let () (declare (not safe)) - (##cdr _e47825130_))) - (_hd47835134_ + (##cdr _e48255171_))) + (_hd48245175_ (let () (declare (not safe)) - (##car _e47825130_)))) - (if (gx#stx-pair? _tl47845137_) - (let ((_e47855140_ - (gx#syntax-e _tl47845137_))) - (let ((_tl47875147_ + (##car _e48255171_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl48235178_)) + (let ((_e48285181_ + (let () + (declare (not safe)) + (gx#syntax-e _tl48235178_)))) + (let ((_tl48265188_ (let () (declare (not safe)) - (##cdr _e47855140_))) - (_hd47865144_ + (##cdr _e48285181_))) + (_hd48275185_ (let () (declare (not safe)) - (##car _e47855140_)))) - (___match1539115392_ - _e47795120_ - _hd47805124_ - _tl47815127_ - _e47825130_ - _hd47835134_ - _tl47845137_ - _e47855140_ - _hd47865144_ - _tl47875147_))) - (if (gx#stx-datum? _hd47835134_) - (let ((_e47984954_ - (gx#stx-e _hd47835134_))) - (_g47734853_)) - (_g47734853_))))) - (_g47734853_)))) - (_g47734853_))))))) + (##car _e48285181_)))) + (___match1564415645_ + _e48225161_ + _hd48215165_ + _tl48205168_ + _e48255171_ + _hd48245175_ + _tl48235178_ + _e48285181_ + _hd48275185_ + _tl48265188_))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _hd48245175_)) + (let ((_e48394995_ + (let () + (declare (not safe)) + (gx#stx-e _hd48245175_)))) + (declare (not safe)) + (_g48144894_)) + (let () + (declare (not safe)) + (_g48144894_)))))) + (let () (declare (not safe)) (_g48144894_))))) + (let () (declare (not safe)) (_g48144894_)))))))) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_$stx5177_) - (let* ((_g51815216_ - (lambda (_g51825212_) - (gx#raise-syntax-error '#f '"Bad syntax" _g51825212_))) - (_g51805341_ - (lambda (_g51825220_) - (if (gx#stx-pair? _g51825220_) - (let ((_e51875223_ (gx#syntax-e _g51825220_))) - (let ((_hd51885227_ + (lambda (_$stx5218_) + (let* ((_g52225257_ + (lambda (_g52235253_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g52235253_)))) + (_g52215382_ + (lambda (_g52235261_) + (if (let () (declare (not safe)) (gx#stx-pair? _g52235261_)) + (let ((_e52305264_ + (let () + (declare (not safe)) + (gx#syntax-e _g52235261_)))) + (let ((_hd52295268_ (let () (declare (not safe)) - (##car _e51875223_))) - (_tl51895230_ + (##car _e52305264_))) + (_tl52285271_ (let () (declare (not safe)) - (##cdr _e51875223_)))) - (if (gx#stx-pair? _tl51895230_) - (let ((_e51905233_ (gx#syntax-e _tl51895230_))) - (let ((_hd51915237_ + (##cdr _e52305264_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl52285271_)) + (let ((_e52335274_ + (let () + (declare (not safe)) + (gx#syntax-e _tl52285271_)))) + (let ((_hd52325278_ (let () (declare (not safe)) - (##car _e51905233_))) - (_tl51925240_ + (##car _e52335274_))) + (_tl52315281_ (let () (declare (not safe)) - (##cdr _e51905233_)))) - (if (gx#stx-pair? _hd51915237_) - (let ((_e51935243_ - (gx#syntax-e _hd51915237_))) - (let ((_hd51945247_ + (##cdr _e52335274_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd52325278_)) + (let ((_e52365284_ + (let () + (declare (not safe)) + (gx#syntax-e _hd52325278_)))) + (let ((_hd52355288_ (let () (declare (not safe)) - (##car _e51935243_))) - (_tl51955250_ + (##car _e52365284_))) + (_tl52345291_ (let () (declare (not safe)) - (##cdr _e51935243_)))) - (if (gx#stx-pair? _tl51955250_) - (let ((_e51965253_ - (gx#syntax-e - _tl51955250_))) - (let ((_hd51975257_ + (##cdr _e52365284_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl52345291_)) + (let ((_e52395294_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl52345291_)))) + (let ((_hd52385298_ (let () (declare (not safe)) - (##car _e51965253_))) - (_tl51985260_ + (##car _e52395294_))) + (_tl52375301_ (let () (declare (not safe)) - (##cdr _e51965253_)))) - (if (gx#stx-pair? - _tl51985260_) - (let ((_e51995263_ - (gx#syntax-e - _tl51985260_))) - (let ((_hd52005267_ - (let () + (##cdr _e52395294_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl52375301_)) + (let ((_e52425304_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e51995263_))) - (_tl52015270_ - (let () (declare (not safe)) (##cdr _e51995263_)))) - (if (gx#stx-null? _tl52015270_) - (if (gx#stx-pair/null? _tl51925240_) - (let ((_g16695_ - (gx#syntax-split-splice _tl51925240_ '0))) + (not safe)) + (gx#syntax-e _tl52375301_)))) + (let ((_hd52415308_ + (let () (declare (not safe)) (##car _e52425304_))) + (_tl52405311_ + (let () (declare (not safe)) (##cdr _e52425304_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl52405311_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl52315281_)) + (let ((_g17936_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl52315281_ '0)))) (begin - (let ((_g16696_ + (let ((_g17937_ (let () (declare (not safe)) - (if (##values? _g16695_) - (##vector-length _g16695_) + (if (##values? _g17936_) + (##vector-length _g17936_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g16696_ 2))) + (##fx= _g17937_ 2))) (error "Context expects 2 values" - _g16696_))) - (let ((_target52025273_ + _g17937_))) + (let ((_target52435314_ (let () (declare (not safe)) - (##vector-ref _g16695_ 0))) - (_tl52045276_ + (##vector-ref _g17936_ 0))) + (_tl52455317_ (let () (declare (not safe)) - (##vector-ref _g16695_ 1)))) - (if (gx#stx-null? _tl52045276_) - (letrec ((_loop52055279_ - (lambda (_hd52035283_ - _body52095286_) - (if (gx#stx-pair? _hd52035283_) - (let ((_e52065289_ - (gx#syntax-e - _hd52035283_))) - (let ((_lp-hd52075293_ + (##vector-ref _g17936_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl52455317_)) + (letrec ((_loop52465320_ + (lambda (_hd52445324_ + _body52505327_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd52445324_)) + (let ((_e52475330_ + (let () + (declare + (not safe)) + (gx#syntax-e + _hd52445324_)))) + (let ((_lp-hd52485334_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e52065289_))) - (_lp-tl52085296_ - (let () (declare (not safe)) (##cdr _e52065289_)))) - (_loop52055279_ - _lp-tl52085296_ - (cons _lp-hd52075293_ _body52095286_)))) + (##car _e52475330_))) + (_lp-tl52495337_ + (let () (declare (not safe)) (##cdr _e52475330_)))) + (_loop52465320_ + _lp-tl52495337_ + (let () + (declare (not safe)) + (cons _lp-hd52485334_ _body52505327_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body52105299_ - (reverse _body52095286_))) - ((lambda (_L5303_ - _L5305_ - _L5306_ - _L5307_) - (cons (gx#datum->syntax__0 - '#f - 'let) - (cons (gx#datum->syntax__0 + (let ((_body52515340_ + (let () + (declare + (not safe)) + (reverse _body52505327_)))) + ((lambda (_L5344_ + _L5346_ + _L5347_ + _L5348_) + (let ((__tmp18069 + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lp) - (cons (cons (cons (gx#datum->syntax__0 '#f 'rest) - (cons _L5305_ '())) - (cons (cons _L5307_ - (cons (cons (gx#datum->syntax__0 + (declare (not safe)) + (gx#datum->syntax__0 '#f 'let))) + (__tmp17938 + (let ((__tmp18068 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'lp))) + (__tmp17939 + (let ((__tmp18054 + (let ((__tmp18065 + (let ((__tmp18067 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'rest))) + (__tmp18066 + (let () + (declare (not safe)) + (cons _L5346_ '())))) + (declare (not safe)) + (cons __tmp18067 __tmp18066))) + (__tmp18055 + (let ((__tmp18061 + (let ((__tmp18062 + (let ((__tmp18063 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - '()) - '())) + (let ((__tmp18064 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '@list)))) + (declare (not safe)) + (cons __tmp18064 '())))) + (declare (not safe)) + (cons __tmp18063 '())))) + (declare (not safe)) + (cons _L5348_ __tmp18062))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L5306_ - (cons (cons (gx#datum->syntax__0 + (__tmp18056 + (let ((__tmp18057 + (let ((__tmp18058 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - '()) - '())) + (let ((__tmp18059 + (let ((__tmp18060 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '@list)))) + (declare (not safe)) + (cons __tmp18060 '())))) + (declare (not safe)) + (cons __tmp18059 '())))) + (declare (not safe)) + (cons _L5347_ __tmp18058)))) + (declare (not safe)) + (cons __tmp18057 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax__0 '#f 'match) - (cons (gx#datum->syntax__0 - '#f - 'rest) - (cons (cons (cons (gx#datum->syntax__0 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - (cons (gx#datum->syntax__0 '#f 'e) - (gx#datum->syntax__0 '#f 'rest))) - (cons (cons (gx#datum->syntax__0 '#f 'ast-case) - (cons (gx#datum->syntax__0 '#f 'e) - (cons (cons (gx#datum->syntax__0 - '#f - '%#quote) - (cons (gx#datum->syntax__0 + (declare (not safe)) + (cons __tmp18061 __tmp18056)))) + (declare (not safe)) + (cons __tmp18065 __tmp18055))) + (__tmp17940 + (let ((__tmp17941 + (let ((__tmp18053 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'match))) + (__tmp17942 + (let ((__tmp18052 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 '#f - '%#ref) - '())) - (cons (cons (cons (gx#datum->syntax__0 + 'rest))) + (__tmp17943 + (let ((__tmp17949 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '%#ref) - (cons (gx#datum->syntax__0 '#f '_) '())) - (cons (cons (gx#datum->syntax__0 '#f 'lp) - (cons (gx#datum->syntax__0 '#f 'rest) - (cons _L5307_ - (cons (cons (gx#datum->syntax__0 - '#f - 'cons) - (cons (cons (gx#datum->syntax__0 + (let ((__tmp18047 + (let ((__tmp18051 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '@list))) + (__tmp18048 + (let ((__tmp18050 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'e))) + (__tmp18049 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'rest)))) + (declare (not safe)) + (cons __tmp18050 __tmp18049)))) + (declare (not safe)) + (cons __tmp18051 __tmp18048))) + (__tmp17950 + (let ((__tmp17951 + (let ((__tmp18046 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'ast-case))) + (__tmp17952 + (let ((__tmp18045 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'e))) + (__tmp17953 + (let ((__tmp18041 + (let ((__tmp18044 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'compile-e) - (cons (gx#datum->syntax__0 '#f 'e) '())) - (cons _L5306_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '())) - (cons (cons (cons (gx#datum->syntax__0 '#f '%#quote) - (cons (gx#datum->syntax__0 '#f '_) '())) - (cons (cons (gx#datum->syntax__0 '#f 'lp) - (cons (gx#datum->syntax__0 '#f 'rest) - (cons _L5307_ - (cons (cons (gx#datum->syntax__0 - '#f - 'cons) - (cons (cons (gx#datum->syntax__0 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#quote))) + (__tmp18042 + (let ((__tmp18043 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#ref)))) + (declare (not safe)) + (cons __tmp18043 '())))) + (declare (not safe)) + (cons __tmp18044 __tmp18042))) + (__tmp17954 + (let ((__tmp18021 + (let ((__tmp18037 + (let ((__tmp18040 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#ref))) + (__tmp18038 + (let ((__tmp18039 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '_)))) + (declare (not safe)) + (cons __tmp18039 '())))) + (declare (not safe)) + (cons __tmp18040 __tmp18038))) + (__tmp18022 + (let ((__tmp18023 + (let ((__tmp18036 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'lp))) + (__tmp18024 + (let ((__tmp18035 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'rest))) + (__tmp18025 + (let ((__tmp18026 + (let ((__tmp18027 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'compile-e) - (cons (gx#datum->syntax__0 '#f 'e) '())) - (cons _L5306_ '()))) - '())))) + (let ((__tmp18034 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'cons))) + (__tmp18028 + (let ((__tmp18030 + (let ((__tmp18033 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'compile-e))) + (__tmp18031 + (let ((__tmp18032 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'e)))) + (declare (not safe)) + (cons __tmp18032 '())))) + (declare (not safe)) + (cons __tmp18033 __tmp18031))) + (__tmp18029 + (let () + (declare (not safe)) + (cons _L5347_ '())))) + (declare (not safe)) + (cons __tmp18030 __tmp18029)))) + (declare (not safe)) + (cons __tmp18034 __tmp18028)))) + (declare (not safe)) + (cons __tmp18027 '())))) + (declare (not safe)) + (cons _L5348_ __tmp18026)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons (gx#datum->syntax__0 '#f '_) - (cons (cons (gx#datum->syntax__0 '#f 'let) - (cons (cons (gx#datum->syntax__0 - '#f - 'tmp) - (cons (cons (gx#datum->syntax__0 + (declare (not safe)) + (cons __tmp18035 + __tmp18025)))) + (declare (not safe)) + (cons __tmp18036 __tmp18024)))) + (declare (not safe)) + (cons __tmp18023 '())))) + (declare (not safe)) + (cons __tmp18037 __tmp18022))) + (__tmp17955 + (let ((__tmp18001 + (let ((__tmp18017 + (let ((__tmp18020 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#quote))) + (__tmp18018 + (let ((__tmp18019 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '_)))) + (declare (not safe)) + (cons __tmp18019 '())))) + (declare (not safe)) + (cons __tmp18020 __tmp18018))) + (__tmp18002 + (let ((__tmp18003 + (let ((__tmp18016 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'lp))) + (__tmp18004 + (let ((__tmp18015 + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'make-symbol) - (cons (cons (gx#datum->syntax__0 '#f 'gensym) - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons (gx#datum->syntax__0 - '#f - '__tmp) - '())) - '())) - '())) - '())) + (declare (not safe)) + (gx#datum->syntax__0 '#f 'rest))) + (__tmp18005 + (let ((__tmp18006 + (let ((__tmp18007 + (let ((__tmp18014 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'cons))) + (__tmp18008 + (let ((__tmp18010 + (let ((__tmp18013 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'compile-e))) + (__tmp18011 + (let ((__tmp18012 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'e)))) + (declare (not safe)) + (cons __tmp18012 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax__0 - '#f - 'lp) - (cons (gx#datum->syntax__0 + (declare (not safe)) + (cons __tmp18013 + __tmp18011))) + (__tmp18009 + (let () + (declare (not safe)) + (cons _L5347_ '())))) + (declare (not safe)) + (cons __tmp18010 __tmp18009)))) + (declare (not safe)) + (cons __tmp18014 __tmp18008)))) + (declare (not safe)) + (cons __tmp18007 '())))) + (declare (not safe)) + (cons _L5348_ __tmp18006)))) + (declare (not safe)) + (cons __tmp18015 __tmp18005)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp18016 + __tmp18004)))) + (declare (not safe)) + (cons __tmp18003 '())))) + (declare (not safe)) + (cons __tmp18017 __tmp18002))) + (__tmp17956 + (let ((__tmp17957 + (let ((__tmp18000 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '_))) + (__tmp17958 + (let ((__tmp17959 + (let ((__tmp17999 + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'rest) - (cons (cons (gx#datum->syntax__0 '#f 'cons) - (cons (cons (gx#datum->syntax__0 + (declare (not safe)) + (gx#datum->syntax__0 '#f 'let))) + (__tmp17960 + (let ((__tmp17986 + (let ((__tmp17998 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'tmp))) + (__tmp17987 + (let ((__tmp17988 + (let ((__tmp17997 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f - '@list) - (cons (gx#datum->syntax__0 - '#f - 'tmp) - (cons (cons (gx#datum->syntax__0 + 'make-symbol))) + (__tmp17989 + (let ((__tmp17990 + (let ((__tmp17996 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'compile-e) - (cons (gx#datum->syntax__0 '#f 'e) '())) - '()))) + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'gensym))) + (__tmp17991 + (let ((__tmp17992 + (let ((__tmp17995 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp17993 + (let ((__tmp17994 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '__tmp)))) + (declare (not safe)) + (cons __tmp17994 '())))) + (declare (not safe)) + (cons __tmp17995 __tmp17993)))) + (declare (not safe)) + (cons __tmp17992 '())))) + (declare (not safe)) + (cons __tmp17996 __tmp17991)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L5307_ '()))) - (cons (cons (gx#datum->syntax__0 '#f 'cons) - (cons (gx#datum->syntax__0 + (declare (not safe)) + (cons __tmp17990 '())))) + (declare (not safe)) + (cons __tmp17997 __tmp17989)))) + (declare (not safe)) + (cons __tmp17988 '())))) + (declare (not safe)) + (cons __tmp17998 __tmp17987))) + (__tmp17961 + (let ((__tmp17962 + (let ((__tmp17985 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'lp))) + (__tmp17963 + (let ((__tmp17984 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f - 'tmp) - (cons _L5306_ '()))) - '())))) - '()))) + 'rest))) + (__tmp17964 + (let ((__tmp17971 + (let ((__tmp17983 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'cons))) + (__tmp17972 + (let ((__tmp17974 + (let ((__tmp17982 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '@list))) + (__tmp17975 + (let ((__tmp17981 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'tmp))) + (__tmp17976 + (let ((__tmp17977 + (let ((__tmp17980 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'compile-e))) + (__tmp17978 + (let ((__tmp17979 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'e)))) + (declare (not safe)) + (cons __tmp17979 '())))) + (declare (not safe)) + (cons __tmp17980 __tmp17978)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '())))))) + (declare (not safe)) + (cons __tmp17977 '())))) + (declare (not safe)) + (cons __tmp17981 __tmp17976)))) + (declare (not safe)) + (cons __tmp17982 __tmp17975))) + (__tmp17973 + (let () + (declare (not safe)) + (cons _L5348_ '())))) + (declare (not safe)) + (cons __tmp17974 __tmp17973)))) + (declare (not safe)) + (cons __tmp17983 __tmp17972))) + (__tmp17965 + (let ((__tmp17966 + (let ((__tmp17970 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'cons))) + (__tmp17967 + (let ((__tmp17969 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'tmp))) + (__tmp17968 + (let () + (declare (not safe)) + (cons _L5347_ '())))) + (declare (not safe)) + (cons __tmp17969 __tmp17968)))) + (declare (not safe)) + (cons __tmp17970 __tmp17967)))) + (declare (not safe)) + (cons __tmp17966 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons (gx#datum->syntax__0 '#f 'else) - (foldr1 (lambda (_g53325335_ _g53335338_) - (cons _g53325335_ _g53335338_)) - '() - _L5303_)) - '())))) + (declare (not safe)) + (cons __tmp17971 + __tmp17965)))) + (declare (not safe)) + (cons __tmp17984 __tmp17964)))) + (declare (not safe)) + (cons __tmp17985 __tmp17963)))) + (declare (not safe)) + (cons __tmp17962 '())))) + (declare (not safe)) + (cons __tmp17986 __tmp17961)))) + (declare (not safe)) + (cons __tmp17999 __tmp17960)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _body52105299_ - _hd52005267_ - _hd51975257_ - _hd51945247_)))))) + (declare (not safe)) + (cons __tmp17959 '())))) + (declare (not safe)) + (cons __tmp18000 __tmp17958)))) + (declare (not safe)) + (cons __tmp17957 '())))) + (declare (not safe)) + (cons __tmp18001 __tmp17956)))) + (declare (not safe)) + (cons __tmp18021 __tmp17955)))) + (declare (not safe)) + (cons __tmp18041 __tmp17954)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop52055279_ _target52025273_ '())) - (_g51815216_ _g51825220_))))) - (_g51815216_ _g51825220_)) - (_g51815216_ _g51825220_)))) - (_g51815216_ _g51825220_)))) + (declare (not safe)) + (cons __tmp18045 + __tmp17953)))) + (declare (not safe)) + (cons __tmp18046 __tmp17952)))) + (declare (not safe)) + (cons __tmp17951 '())))) + (declare (not safe)) + (cons __tmp18047 __tmp17950))) + (__tmp17944 + (let ((__tmp17945 + (let ((__tmp17948 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'else))) + (__tmp17946 + (let ((__tmp17947 + (lambda (_g53735376_ + _g53745379_) + (let () + (declare (not safe)) + (cons _g53735376_ + _g53745379_))))) + (declare (not safe)) + (foldr1 __tmp17947 '() _L5344_)))) + (declare (not safe)) + (cons __tmp17948 __tmp17946)))) + (declare (not safe)) + (cons __tmp17945 '())))) + (declare (not safe)) + (cons __tmp17949 __tmp17944)))) + (declare (not safe)) + (cons __tmp18052 __tmp17943)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g51815216_ _g51825220_)))) - (_g51815216_ _g51825220_)))) - (_g51815216_ _g51825220_)))) - (_g51815216_ _g51825220_))))) - (_g51805341_ _$stx5177_)))) + (declare (not safe)) + (cons __tmp18053 __tmp17942)))) + (declare (not safe)) + (cons __tmp17941 '())))) + (declare (not safe)) + (cons __tmp18054 __tmp17940)))) + (declare (not safe)) + (cons __tmp18068 __tmp17939)))) + (declare (not safe)) + (cons __tmp18069 __tmp17938))) + _body52515340_ + _hd52415308_ + _hd52385298_ + _hd52355288_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop52465320_ _target52435314_ '())) + (_g52225257_ _g52235261_))))) + (_g52225257_ _g52235261_)) + (_g52225257_ _g52235261_)))) + (_g52225257_ _g52235261_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g52225257_ _g52235261_)))) + (_g52225257_ _g52235261_)))) + (_g52225257_ _g52235261_)))) + (_g52225257_ _g52235261_))))) + (_g52215382_ _$stx5218_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_$stx5346_) - (let* ((_g53505368_ - (lambda (_g53515364_) - (gx#raise-syntax-error '#f '"Bad syntax" _g53515364_))) - (_g53495423_ - (lambda (_g53515372_) - (if (gx#stx-pair? _g53515372_) - (let ((_e53545375_ (gx#syntax-e _g53515372_))) - (let ((_hd53555379_ + (lambda (_$stx5387_) + (let* ((_g53915409_ + (lambda (_g53925405_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g53925405_)))) + (_g53905464_ + (lambda (_g53925413_) + (if (let () (declare (not safe)) (gx#stx-pair? _g53925413_)) + (let ((_e53975416_ + (let () + (declare (not safe)) + (gx#syntax-e _g53925413_)))) + (let ((_hd53965420_ (let () (declare (not safe)) - (##car _e53545375_))) - (_tl53565382_ + (##car _e53975416_))) + (_tl53955423_ (let () (declare (not safe)) - (##cdr _e53545375_)))) - (if (gx#stx-pair? _tl53565382_) - (let ((_e53575385_ (gx#syntax-e _tl53565382_))) - (let ((_hd53585389_ + (##cdr _e53975416_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl53955423_)) + (let ((_e54005426_ + (let () + (declare (not safe)) + (gx#syntax-e _tl53955423_)))) + (let ((_hd53995430_ (let () (declare (not safe)) - (##car _e53575385_))) - (_tl53595392_ + (##car _e54005426_))) + (_tl53985433_ (let () (declare (not safe)) - (##cdr _e53575385_)))) - (if (gx#stx-pair? _tl53595392_) - (let ((_e53605395_ - (gx#syntax-e _tl53595392_))) - (let ((_hd53615399_ + (##cdr _e54005426_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl53985433_)) + (let ((_e54035436_ + (let () + (declare (not safe)) + (gx#syntax-e _tl53985433_)))) + (let ((_hd54025440_ (let () (declare (not safe)) - (##car _e53605395_))) - (_tl53625402_ + (##car _e54035436_))) + (_tl54015443_ (let () (declare (not safe)) - (##cdr _e53605395_)))) - (if (gx#stx-null? _tl53625402_) - ((lambda (_L5405_ _L5407_) - (cons (gx#datum->syntax__0 - '#f - 'cond-expand) - (cons (cons (gx#datum->syntax__0 + (##cdr _e54035436_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl54015443_)) + ((lambda (_L5446_ _L5448_) + (let ((__tmp18085 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'cond-expand))) + (__tmp18070 + (let ((__tmp18082 + (let ((__tmp18084 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'gambit-inline-unsafe-primitives))) + (__tmp18083 + (let () + (declare (not safe)) + (cons _L5448_ '())))) + (declare (not safe)) + (cons __tmp18084 __tmp18083))) + (__tmp18071 + (let ((__tmp18072 + (let ((__tmp18081 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'else))) + (__tmp18073 + (let ((__tmp18074 + (let ((__tmp18080 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'if))) + (__tmp18075 + (let ((__tmp18078 + (let ((__tmp18079 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f - 'gambit-inline-unsafe-primitives) - (cons _L5407_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'else) - (cons (cons (gx#datum->syntax__0 '#f 'if) - (cons (cons (gx#datum->syntax__0 - '#f - 'current-compile-decls-unsafe?) - '()) - (cons _L5407_ - (cons _L5405_ '())))) - '())) - '())))) + 'current-compile-decls-unsafe?)))) + (declare (not safe)) + (cons __tmp18079 '()))) + (__tmp18076 + (let ((__tmp18077 + (let () (declare (not safe)) (cons _L5446_ '())))) + (declare (not safe)) + (cons _L5448_ __tmp18077)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd53615399_ - _hd53585389_) - (_g53505368_ _g53515372_)))) - (_g53505368_ _g53515372_)))) - (_g53505368_ _g53515372_)))) - (_g53505368_ _g53515372_))))) - (_g53495423_ _$stx5346_)))) + (declare (not safe)) + (cons __tmp18078 + __tmp18076)))) + (declare (not safe)) + (cons __tmp18080 __tmp18075)))) + (declare (not safe)) + (cons __tmp18074 '())))) + (declare (not safe)) + (cons __tmp18081 __tmp18073)))) + (declare (not safe)) + (cons __tmp18072 '())))) + (declare (not safe)) + (cons __tmp18082 __tmp18071)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp18085 + __tmp18070))) + _hd54025440_ + _hd53995430_) + (_g53915409_ _g53925413_)))) + (_g53915409_ _g53925413_)))) + (_g53915409_ _g53925413_)))) + (_g53915409_ _g53925413_))))) + (_g53905464_ _$stx5387_)))) (define |gxc[:0:]#meta-state| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g16697_| + |gxc[1]#_g18086_| 'expander-identifiers: - (cons '#f - (cons |gxc[1]#_g16697_| - (cons |gxc[1]#_g16698_| - (cons |gxc[1]#_g16699_| - (cons (cons |gxc[1]#_g16700_| - (cons |gxc[1]#_g16701_| - (cons |gxc[1]#_g16702_| - (cons |gxc[1]#_g16703_| - '())))) - (cons (cons |gxc[1]#_g16704_| - (cons |gxc[1]#_g16705_| - (cons |gxc[1]#_g16706_| - (cons |gxc[1]#_g16707_| + (let ((__tmp18087 + (let ((__tmp18120 |gxc[1]#_g18086_|) + (__tmp18088 + (let ((__tmp18118 |gxc[1]#_g18119_|) + (__tmp18089 + (let ((__tmp18116 |gxc[1]#_g18117_|) + (__tmp18090 + (let ((__tmp18104 + (let ((__tmp18114 |gxc[1]#_g18115_|) + (__tmp18105 + (let ((__tmp18112 + |gxc[1]#_g18113_|) + (__tmp18106 + (let ((__tmp18110 + |gxc[1]#_g18111_|) + (__tmp18107 + (let ((__tmp18108 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gxc[1]#_g18109_|)) + (declare (not safe)) + (cons __tmp18108 '())))) + (declare (not safe)) + (cons __tmp18110 __tmp18107)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp18112 + __tmp18106)))) + (declare (not safe)) + (cons __tmp18114 __tmp18105))) + (__tmp18091 + (let ((__tmp18092 + (let ((__tmp18102 + |gxc[1]#_g18103_|) + (__tmp18093 + (let ((__tmp18100 + |gxc[1]#_g18101_|) + (__tmp18094 + (let ((__tmp18098 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + |gxc[1]#_g18099_|) + (__tmp18095 + (let ((__tmp18096 |gxc[1]#_g18097_|)) + (declare (not safe)) + (cons __tmp18096 '())))) + (declare (not safe)) + (cons __tmp18098 __tmp18095)))) + (declare (not safe)) + (cons __tmp18100 __tmp18094)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp18102 + __tmp18093)))) + (declare (not safe)) + (cons __tmp18092 '())))) + (declare (not safe)) + (cons __tmp18104 __tmp18091)))) + (declare (not safe)) + (cons __tmp18116 __tmp18090)))) + (declare (not safe)) + (cons __tmp18118 __tmp18089)))) + (declare (not safe)) + (cons __tmp18120 __tmp18088)))) + (declare (not safe)) + (cons '#f __tmp18087)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gxc#meta-state::t @@ -1035,25 +1879,72 @@ (define |gxc[:0:]#meta-state-block| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g16708_| + |gxc[1]#_g18121_| 'expander-identifiers: - (cons '#f - (cons |gxc[1]#_g16708_| - (cons |gxc[1]#_g16709_| - (cons |gxc[1]#_g16710_| - (cons (cons |gxc[1]#_g16711_| - (cons |gxc[1]#_g16712_| - (cons |gxc[1]#_g16713_| - (cons |gxc[1]#_g16714_| - '())))) - (cons (cons |gxc[1]#_g16715_| - (cons |gxc[1]#_g16716_| - (cons |gxc[1]#_g16717_| - (cons |gxc[1]#_g16718_| + (let ((__tmp18122 + (let ((__tmp18155 |gxc[1]#_g18121_|) + (__tmp18123 + (let ((__tmp18153 |gxc[1]#_g18154_|) + (__tmp18124 + (let ((__tmp18151 |gxc[1]#_g18152_|) + (__tmp18125 + (let ((__tmp18139 + (let ((__tmp18149 |gxc[1]#_g18150_|) + (__tmp18140 + (let ((__tmp18147 + |gxc[1]#_g18148_|) + (__tmp18141 + (let ((__tmp18145 + |gxc[1]#_g18146_|) + (__tmp18142 + (let ((__tmp18143 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + |gxc[1]#_g18144_|)) + (declare (not safe)) + (cons __tmp18143 '())))) + (declare (not safe)) + (cons __tmp18145 __tmp18142)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp18147 + __tmp18141)))) + (declare (not safe)) + (cons __tmp18149 __tmp18140))) + (__tmp18126 + (let ((__tmp18127 + (let ((__tmp18137 + |gxc[1]#_g18138_|) + (__tmp18128 + (let ((__tmp18135 + |gxc[1]#_g18136_|) + (__tmp18129 + (let ((__tmp18133 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gxc[1]#_g18134_|) + (__tmp18130 + (let ((__tmp18131 |gxc[1]#_g18132_|)) + (declare (not safe)) + (cons __tmp18131 '())))) + (declare (not safe)) + (cons __tmp18133 __tmp18130)))) + (declare (not safe)) + (cons __tmp18135 __tmp18129)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp18137 + __tmp18128)))) + (declare (not safe)) + (cons __tmp18127 '())))) + (declare (not safe)) + (cons __tmp18139 __tmp18126)))) + (declare (not safe)) + (cons __tmp18151 __tmp18125)))) + (declare (not safe)) + (cons __tmp18153 __tmp18124)))) + (declare (not safe)) + (cons __tmp18155 __tmp18123)))) + (declare (not safe)) + (cons '#f __tmp18122)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gxc#meta-state-block::t diff --git a/src/bootstrap/gerbil/compiler/driver.ssi b/src/bootstrap/gerbil/compiler/driver.ssi index 14907da90..f9907a53a 100644 --- a/src/bootstrap/gerbil/compiler/driver.ssi +++ b/src/bootstrap/gerbil/compiler/driver.ssi @@ -12,13 +12,13 @@ namespace: gxc (spec: (:gerbil/gambit/ports) (0 open-process 0 open-process) - (0 process-status 0 process-status) - (0 close-port 0 close-port)) + (0 close-port 0 close-port) + (0 process-status 0 process-status)) (spec: (:gerbil/gambit/os) + (0 file-info-size 0 file-info-size) (0 current-time 0 current-time) (0 time->seconds 0 time->seconds) - (0 file-info-size 0 file-info-size) (0 file-info 0 file-info)) (spec: (:gerbil/gambit/threads) diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index f4414bba5..f57f64987 100644 --- a/src/bootstrap/gerbil/compiler/driver__0.scm +++ b/src/bootstrap/gerbil/compiler/driver__0.scm @@ -1,29 +1,51 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/driver::timestamp 1695199297) + (define gerbil/compiler/driver::timestamp 1695292411) (begin - (define gxc#default-gerbil-gsc (path-expand '"gsc" (path-expand '"~~bin"))) + (define gxc#default-gerbil-gsc + (let ((__tmp69300 (let () (declare (not safe)) (path-expand '"~~bin")))) + (declare (not safe)) + (path-expand '"gsc" __tmp69300))) (define gxc#default-gerbil-gcc '"gcc") (define gxc#default-gerbil-ar '"ar") - (define gxc#+driver-mutex+ (make-mutex 'compiler/driver)) + (define gxc#+driver-mutex+ + (let () (declare (not safe)) (make-mutex 'compiler/driver))) (define gxc#compile-timestamp - (lambda () (inexact->exact (floor (time->seconds (current-time)))))) + (lambda () + (let ((__tmp69301 + (floor (let ((__tmp69302 + (let () (declare (not safe)) (current-time)))) + (declare (not safe)) + (time->seconds __tmp69302))))) + (declare (not safe)) + (inexact->exact __tmp69301)))) (define gxc#compile-timestamp-nanos - (lambda () (time->seconds (current-time)))) + (lambda () + (let ((__tmp69303 (let () (declare (not safe)) (current-time)))) + (declare (not safe)) + (time->seconds __tmp69303)))) (define gxc#scheme-file-settings '(permissions: 420 char-encoding: UTF-8 eol-encoding: lf)) (define gxc#with-output-to-scheme-file - (lambda (_path65141_ _fun65142_) - (with-output-to-file - (cons 'path: (cons _path65141_ gxc#scheme-file-settings)) - _fun65142_))) + (lambda (_path69226_ _fun69227_) + (let ((__tmp69304 + (let ((__tmp69305 + (let () + (declare (not safe)) + (cons _path69226_ gxc#scheme-file-settings)))) + (declare (not safe)) + (cons 'path: __tmp69305)))) + (declare (not safe)) + (with-output-to-file __tmp69304 _fun69227_)))) (define gxc#+gerbil-gsc+ '#f) (define gxc#gerbil-gsc (lambda () (if gxc#+gerbil-gsc+ '#!void (set! gxc#+gerbil-gsc+ - (getenv '"GERBIL_GSC" gxc#default-gerbil-gsc))) + (let () + (declare (not safe)) + (getenv '"GERBIL_GSC" gxc#default-gerbil-gsc)))) gxc#+gerbil-gsc+)) (define gxc#+gerbil-gcc+ '#f) (define gxc#gerbil-gcc @@ -31,14 +53,19 @@ (if gxc#+gerbil-gcc+ '#!void (set! gxc#+gerbil-gcc+ - (getenv '"GERBIL_GCC" gxc#default-gerbil-gcc))) + (let () + (declare (not safe)) + (getenv '"GERBIL_GCC" gxc#default-gerbil-gcc)))) gxc#+gerbil-gcc+)) (define gxc#+gerbil-ar+ '#f) (define gxc#gerbil-ar (lambda () (if gxc#+gerbil-ar+ '#!void - (set! gxc#+gerbil-ar+ (getenv '"GERBIL_AR" gxc#default-gerbil-ar))) + (set! gxc#+gerbil-ar+ + (let () + (declare (not safe)) + (getenv '"GERBIL_AR" gxc#default-gerbil-ar)))) gxc#+gerbil-ar+)) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" @@ -54,570 +81,1031 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_dir65136_) (delete-file-or-directory _dir65136_ '#t))) + (lambda (_dir69221_) (delete-file-or-directory _dir69221_ '#t))) (define gxc#compile-module__% - (lambda (_srcpath65110_ _opts65111_) - (if (string? _srcpath65110_) + (lambda (_srcpath69195_ _opts69196_) + (if (let () (declare (not safe)) (string? _srcpath69195_)) '#!void - (gxc#raise-compile-error - '"Invalid module source path" - _srcpath65110_)) - (let ((_outdir65113_ (pgetq 'output-dir: _opts65111_)) - (_invoke-gsc?65114_ (pgetq 'invoke-gsc: _opts65111_)) - (_gsc-options65115_ (pgetq 'gsc-options: _opts65111_)) - (_keep-scm?65116_ (pgetq 'keep-scm: _opts65111_)) - (_verbosity65117_ (pgetq 'verbose: _opts65111_)) - (_optimize65118_ (pgetq 'optimize: _opts65111_)) - (_debug65119_ (pgetq 'debug: _opts65111_)) - (_gen-ssxi65120_ (pgetq 'generate-ssxi: _opts65111_))) - (if _outdir65113_ - (gerbil/gambit/threads#with-lock - gxc#+driver-mutex+ - (lambda () (create-directory* _outdir65113_))) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Invalid module source path" + _srcpath69195_))) + (let ((_outdir69198_ + (let () (declare (not safe)) (pgetq 'output-dir: _opts69196_))) + (_invoke-gsc?69199_ + (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts69196_))) + (_gsc-options69200_ + (let () (declare (not safe)) (pgetq 'gsc-options: _opts69196_))) + (_keep-scm?69201_ + (let () (declare (not safe)) (pgetq 'keep-scm: _opts69196_))) + (_verbosity69202_ + (let () (declare (not safe)) (pgetq 'verbose: _opts69196_))) + (_optimize69203_ + (let () (declare (not safe)) (pgetq 'optimize: _opts69196_))) + (_debug69204_ + (let () (declare (not safe)) (pgetq 'debug: _opts69196_))) + (_gen-ssxi69205_ + (let () + (declare (not safe)) + (pgetq 'generate-ssxi: _opts69196_)))) + (if _outdir69198_ + (let ((__tmp69306 + (lambda () + (let () + (declare (not safe)) + (create-directory* _outdir69198_))))) + (declare (not safe)) + (gerbil/gambit/threads#with-lock + gxc#+driver-mutex+ + __tmp69306)) '#!void) - (if _optimize65118_ - (gerbil/gambit/threads#with-lock - gxc#+driver-mutex+ - (lambda () (gxc#optimizer-info-init!))) + (if _optimize69203_ + (let ((__tmp69307 + (lambda () + (let () + (declare (not safe)) + (gxc#optimizer-info-init!))))) + (declare (not safe)) + (gerbil/gambit/threads#with-lock + gxc#+driver-mutex+ + __tmp69307)) '#!void) - (call-with-parameters - (lambda () - (gxc#verbose '"compile " _srcpath65110_) - (gxc#compile-top-module - (gerbil/gambit/threads#with-lock - gxc#+driver-mutex+ - (lambda () (gx#import-module__0 _srcpath65110_))))) - gxc#current-compile-output-dir - _outdir65113_ - gxc#current-compile-invoke-gsc - _invoke-gsc?65114_ - gxc#current-compile-gsc-options - _gsc-options65115_ - gxc#current-compile-keep-scm - _keep-scm?65116_ - gxc#current-compile-verbose - _verbosity65117_ - gxc#current-compile-optimize - _optimize65118_ - gxc#current-compile-debug - _debug65119_ - gxc#current-compile-generate-ssxi - _gen-ssxi65120_ - gxc#current-compile-timestamp - (gxc#compile-timestamp) - gx#current-expander-compiling? - '#t)))) + (let ((__tmp69309 + (lambda () + (let () + (declare (not safe)) + (gxc#verbose '"compile " _srcpath69195_)) + (let ((__tmp69310 + (let ((__tmp69311 + (lambda () + (let () + (declare (not safe)) + (gx#import-module__0 _srcpath69195_))))) + (declare (not safe)) + (gerbil/gambit/threads#with-lock + gxc#+driver-mutex+ + __tmp69311)))) + (declare (not safe)) + (gxc#compile-top-module __tmp69310)))) + (__tmp69308 + (let () (declare (not safe)) (gxc#compile-timestamp)))) + (declare (not safe)) + (call-with-parameters + __tmp69309 + gxc#current-compile-output-dir + _outdir69198_ + gxc#current-compile-invoke-gsc + _invoke-gsc?69199_ + gxc#current-compile-gsc-options + _gsc-options69200_ + gxc#current-compile-keep-scm + _keep-scm?69201_ + gxc#current-compile-verbose + _verbosity69202_ + gxc#current-compile-optimize + _optimize69203_ + gxc#current-compile-debug + _debug69204_ + gxc#current-compile-generate-ssxi + _gen-ssxi69205_ + gxc#current-compile-timestamp + __tmp69308 + gx#current-expander-compiling? + '#t))))) (define gxc#compile-module__0 - (lambda (_srcpath65129_) - (let ((_opts65131_ '())) - (gxc#compile-module__% _srcpath65129_ _opts65131_)))) + (lambda (_srcpath69214_) + (let ((_opts69216_ '())) + (declare (not safe)) + (gxc#compile-module__% _srcpath69214_ _opts69216_)))) (define gxc#compile-module - (lambda _g65216_ - (let ((_g65215_ (let () (declare (not safe)) (##length _g65216_)))) - (cond ((let () (declare (not safe)) (##fx= _g65215_ 1)) - (apply gxc#compile-module__0 _g65216_)) - ((let () (declare (not safe)) (##fx= _g65215_ 2)) - (apply gxc#compile-module__% _g65216_)) + (lambda _g69313_ + (let ((_g69312_ (let () (declare (not safe)) (##length _g69313_)))) + (cond ((let () (declare (not safe)) (##fx= _g69312_ 1)) + (apply (lambda (_srcpath69214_) + (let () + (declare (not safe)) + (gxc#compile-module__0 _srcpath69214_))) + _g69313_)) + ((let () (declare (not safe)) (##fx= _g69312_ 2)) + (apply (lambda (_srcpath69218_ _opts69219_) + (let () + (declare (not safe)) + (gxc#compile-module__% + _srcpath69218_ + _opts69219_))) + _g69313_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g65216_)))))) + _g69313_)))))) (define gxc#compile-exe__% - (lambda (_srcpath65087_ _opts65088_) - (if (string? _srcpath65087_) + (lambda (_srcpath69172_ _opts69173_) + (if (let () (declare (not safe)) (string? _srcpath69172_)) '#!void - (gxc#raise-compile-error - '"Invalid module source path" - _srcpath65087_)) - (let ((_outdir65090_ (pgetq 'output-dir: _opts65088_)) - (_invoke-gsc?65091_ (pgetq 'invoke-gsc: _opts65088_)) - (_gsc-options65092_ (pgetq 'gsc-options: _opts65088_)) - (_keep-scm?65093_ (pgetq 'keep-scm: _opts65088_)) - (_verbosity65094_ (pgetq 'verbose: _opts65088_))) - (if _outdir65090_ - (gerbil/gambit/threads#with-lock - gxc#+driver-mutex+ - (lambda () (create-directory* _outdir65090_))) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Invalid module source path" + _srcpath69172_))) + (let ((_outdir69175_ + (let () (declare (not safe)) (pgetq 'output-dir: _opts69173_))) + (_invoke-gsc?69176_ + (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts69173_))) + (_gsc-options69177_ + (let () (declare (not safe)) (pgetq 'gsc-options: _opts69173_))) + (_keep-scm?69178_ + (let () (declare (not safe)) (pgetq 'keep-scm: _opts69173_))) + (_verbosity69179_ + (let () (declare (not safe)) (pgetq 'verbose: _opts69173_)))) + (if _outdir69175_ + (let ((__tmp69314 + (lambda () + (let () + (declare (not safe)) + (create-directory* _outdir69175_))))) + (declare (not safe)) + (gerbil/gambit/threads#with-lock + gxc#+driver-mutex+ + __tmp69314)) '#!void) - (call-with-parameters - (lambda () - (gxc#verbose '"compile exe " _srcpath65087_) - (gxc#compile-executable-module - (gerbil/gambit/threads#with-lock - gxc#+driver-mutex+ - (lambda () (gx#import-module__0 _srcpath65087_))) - _opts65088_)) - gxc#current-compile-output-dir - _outdir65090_ - gxc#current-compile-invoke-gsc - _invoke-gsc?65091_ - gxc#current-compile-gsc-options - _gsc-options65092_ - gxc#current-compile-keep-scm - _keep-scm?65093_ - gxc#current-compile-verbose - _verbosity65094_ - gxc#current-compile-timestamp - (gxc#compile-timestamp) - gx#current-expander-compiling? - '#t)))) + (let ((__tmp69316 + (lambda () + (let () + (declare (not safe)) + (gxc#verbose '"compile exe " _srcpath69172_)) + (let ((__tmp69317 + (let ((__tmp69318 + (lambda () + (let () + (declare (not safe)) + (gx#import-module__0 _srcpath69172_))))) + (declare (not safe)) + (gerbil/gambit/threads#with-lock + gxc#+driver-mutex+ + __tmp69318)))) + (declare (not safe)) + (gxc#compile-executable-module __tmp69317 _opts69173_)))) + (__tmp69315 + (let () (declare (not safe)) (gxc#compile-timestamp)))) + (declare (not safe)) + (call-with-parameters + __tmp69316 + gxc#current-compile-output-dir + _outdir69175_ + gxc#current-compile-invoke-gsc + _invoke-gsc?69176_ + gxc#current-compile-gsc-options + _gsc-options69177_ + gxc#current-compile-keep-scm + _keep-scm?69178_ + gxc#current-compile-verbose + _verbosity69179_ + gxc#current-compile-timestamp + __tmp69315 + gx#current-expander-compiling? + '#t))))) (define gxc#compile-exe__0 - (lambda (_srcpath65102_) - (let ((_opts65104_ '())) - (gxc#compile-exe__% _srcpath65102_ _opts65104_)))) + (lambda (_srcpath69187_) + (let ((_opts69189_ '())) + (declare (not safe)) + (gxc#compile-exe__% _srcpath69187_ _opts69189_)))) (define gxc#compile-exe - (lambda _g65218_ - (let ((_g65217_ (let () (declare (not safe)) (##length _g65218_)))) - (cond ((let () (declare (not safe)) (##fx= _g65217_ 1)) - (apply gxc#compile-exe__0 _g65218_)) - ((let () (declare (not safe)) (##fx= _g65217_ 2)) - (apply gxc#compile-exe__% _g65218_)) + (lambda _g69320_ + (let ((_g69319_ (let () (declare (not safe)) (##length _g69320_)))) + (cond ((let () (declare (not safe)) (##fx= _g69319_ 1)) + (apply (lambda (_srcpath69187_) + (let () + (declare (not safe)) + (gxc#compile-exe__0 _srcpath69187_))) + _g69320_)) + ((let () (declare (not safe)) (##fx= _g69319_ 2)) + (apply (lambda (_srcpath69191_ _opts69192_) + (let () + (declare (not safe)) + (gxc#compile-exe__% _srcpath69191_ _opts69192_))) + _g69320_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g65218_)))))) + _g69320_)))))) (define gxc#compile-executable-module - (lambda (_ctx65083_ _opts65084_) - (if (pgetq 'full-program-optimization: _opts65084_) - (gxc#compile-executable-module/full-program-optimization - _ctx65083_ - _opts65084_) - (gxc#compile-executable-module/separate _ctx65083_ _opts65084_)))) + (lambda (_ctx69168_ _opts69169_) + (if (let () + (declare (not safe)) + (pgetq 'full-program-optimization: _opts69169_)) + (let () + (declare (not safe)) + (gxc#compile-executable-module/full-program-optimization + _ctx69168_ + _opts69169_)) + (let () + (declare (not safe)) + (gxc#compile-executable-module/separate + _ctx69168_ + _opts69169_))))) (define gxc#compile-executable-module/separate - (lambda (_ctx64731_ _opts64732_) - (letrec ((_generate-stub64734_ - (lambda (_builtin-modules65079_) - (let ((_mod-main65081_ - (gxc#find-runtime-symbol _ctx64731_ 'main))) - (write (cons 'define - (cons 'builtin-modules - (cons (cons 'append - (cons (cons 'quote + (lambda (_ctx68816_ _opts68817_) + (letrec ((_generate-stub68819_ + (lambda (_builtin-modules69164_) + (let ((_mod-main69166_ + (let () + (declare (not safe)) + (gxc#find-runtime-symbol _ctx68816_ 'main)))) + (let ((__tmp69321 + (let ((__tmp69322 + (let ((__tmp69323 + (let ((__tmp69324 + (let ((__tmp69325 + (let ((__tmp69327 + (let ((__tmp69328 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _builtin-modules65079_ '())) - (cons 'libgerbil-builtin-modules '()))) + (let () + (declare (not safe)) + (cons _builtin-modules69164_ '())))) + (declare (not safe)) + (cons 'quote __tmp69328))) + (__tmp69326 + (let () + (declare (not safe)) + (cons 'libgerbil-builtin-modules '())))) + (declare (not safe)) + (cons __tmp69327 __tmp69326)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - (write (cons 'define - (cons (cons 'gerbil-main '()) - (cons (cons 'gerbil-runtime-init! - (cons 'builtin-modules - '())) - (cons (cons 'apply - (cons _mod-main65081_ + (declare (not safe)) + (cons 'append + __tmp69325)))) + (declare (not safe)) + (cons __tmp69324 '())))) + (declare (not safe)) + (cons 'builtin-modules __tmp69323)))) + (declare (not safe)) + (cons 'define __tmp69322)))) + (declare (not safe)) + (write __tmp69321)) + (let ((__tmp69329 + (let ((__tmp69330 + (let ((__tmp69341 + (let () + (declare (not safe)) + (cons 'gerbil-main '()))) + (__tmp69331 + (let ((__tmp69339 + (let ((__tmp69340 + (let () + (declare (not safe)) + (cons 'builtin-modules ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons 'cdr (cons (cons 'command-line '()) '())) - '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (write '(gerbil-main)) - (newline)))) - (_get-gsc-link-opts64735_ + (declare (not safe)) + (cons 'gerbil-runtime-init! + __tmp69340))) + (__tmp69332 + (let ((__tmp69333 + (let ((__tmp69334 + (let ((__tmp69335 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp69336 + (let ((__tmp69337 + (let ((__tmp69338 + (let () + (declare (not safe)) + (cons 'command-line + '())))) + (declare (not safe)) + (cons __tmp69338 '())))) + (declare (not safe)) + (cons 'cdr __tmp69337)))) + (declare (not safe)) + (cons __tmp69336 '())))) + (declare (not safe)) + (cons _mod-main69166_ __tmp69335)))) + (declare (not safe)) + (cons 'apply __tmp69334)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp69333 '())))) + (declare (not safe)) + (cons __tmp69339 __tmp69332)))) + (declare (not safe)) + (cons __tmp69341 __tmp69331)))) + (declare (not safe)) + (cons 'define __tmp69330)))) + (declare (not safe)) + (write __tmp69329)) + (let () (declare (not safe)) (write '(gerbil-main))) + (let () (declare (not safe)) (newline))))) + (_get-gsc-link-opts68820_ (lambda () - (let ((_opts64989_ (pgetq 'gsc-options: _opts64732_))) - (let _lp64991_ ((_rest64993_ _opts64989_) - (_opts64994_ '())) - (let* ((_rest6499565015_ _rest64993_) - (_else6499965023_ - (lambda () (reverse _opts64994_)))) - (let ((_K6500965066_ - (lambda (_rest65064_) - (_lp64991_ _rest65064_ _opts64994_))) - (_K6500465048_ - (lambda (_rest65046_) - (_lp64991_ _rest65046_ _opts64994_))) - (_K6500165030_ - (lambda (_rest65027_ _hd65028_) - (_lp64991_ - _rest65027_ - (cons _hd65028_ _opts64994_))))) + (let ((_opts69074_ + (let () + (declare (not safe)) + (pgetq 'gsc-options: _opts68817_)))) + (let _lp69076_ ((_rest69078_ _opts69074_) + (_opts69079_ '())) + (let* ((_rest6908069100_ _rest69078_) + (_else6908469108_ + (lambda () + (let () + (declare (not safe)) + (reverse _opts69079_))))) + (let ((_K6909469151_ + (lambda (_rest69149_) + (let () + (declare (not safe)) + (_lp69076_ _rest69149_ _opts69079_)))) + (_K6908969133_ + (lambda (_rest69131_) + (let () + (declare (not safe)) + (_lp69076_ _rest69131_ _opts69079_)))) + (_K6908669115_ + (lambda (_rest69112_ _hd69113_) + (let ((__tmp69342 + (let () + (declare (not safe)) + (cons _hd69113_ _opts69079_)))) + (declare (not safe)) + (_lp69076_ _rest69112_ __tmp69342))))) (if (let () (declare (not safe)) - (##pair? _rest6499565015_)) - (let ((_tl6501165071_ + (##pair? _rest6908069100_)) + (let ((_tl6909669156_ (let () (declare (not safe)) - (##cdr _rest6499565015_))) - (_hd6501065069_ + (##cdr _rest6908069100_))) + (_hd6909569154_ (let () (declare (not safe)) - (##car _rest6499565015_)))) - (if (equal? _hd6501065069_ '"-cc-options") + (##car _rest6908069100_)))) + (if (let () + (declare (not safe)) + (equal? _hd6909569154_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl6501165071_)) - (let* ((_tl6501365074_ + (##pair? _tl6909669156_)) + (let* ((_tl6909869159_ (let () (declare (not safe)) - (##cdr _tl6501165071_))) - (_rest65077_ _tl6501365074_)) - (_K6500965066_ _rest65077_)) - (let ((_hd65038_ _hd6501065069_) - (_rest65040_ _tl6501165071_)) - (_K6500165030_ - _rest65040_ - _hd65038_))) - (if (equal? _hd6501065069_ - '"-ld-options") + (##cdr _tl6909669156_))) + (_rest69162_ _tl6909869159_)) + (declare (not safe)) + (_K6909469151_ _rest69162_)) + (let ((_hd69123_ _hd6909569154_) + (_rest69125_ _tl6909669156_)) + (let () + (declare (not safe)) + (_K6908669115_ + _rest69125_ + _hd69123_)))) + (if (let () + (declare (not safe)) + (equal? _hd6909569154_ + '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl6501165071_)) - (let* ((_tl6500865056_ + (##pair? _tl6909669156_)) + (let* ((_tl6909369141_ (let () (declare (not safe)) - (##cdr _tl6501165071_))) - (_rest65059_ - _tl6500865056_)) - (_K6500465048_ _rest65059_)) - (let ((_hd65038_ _hd6501065069_) - (_rest65040_ - _tl6501165071_)) - (_K6500165030_ - _rest65040_ - _hd65038_))) - (let ((_hd65038_ _hd6501065069_) - (_rest65040_ _tl6501165071_)) - (_K6500165030_ - _rest65040_ - _hd65038_))))) - (_else6499965023_)))))))) - (_get-gsc-cc-opts64736_ - (lambda (_gerbil-staticdir64914_) - (let* ((_opts64916_ (pgetq 'gsc-options: _opts64732_)) - (_base64918_ - (string-append '"-I " _gerbil-staticdir64914_)) - (_user-static-dir64920_ - (path-expand - (path-expand - '"lib/static" - (getenv '"GERBIL_PATH" '"~/.gerbil")))) - (_base64922_ + (##cdr _tl6909669156_))) + (_rest69144_ + _tl6909369141_)) + (declare (not safe)) + (_K6908969133_ _rest69144_)) + (let ((_hd69123_ _hd6909569154_) + (_rest69125_ + _tl6909669156_)) + (let () + (declare (not safe)) + (_K6908669115_ + _rest69125_ + _hd69123_)))) + (let ((_hd69123_ _hd6909569154_) + (_rest69125_ _tl6909669156_)) + (let () + (declare (not safe)) + (_K6908669115_ + _rest69125_ + _hd69123_)))))) + (let () + (declare (not safe)) + (_else6908469108_))))))))) + (_get-gsc-cc-opts68821_ + (lambda (_gerbil-staticdir68999_) + (let* ((_opts69001_ + (let () + (declare (not safe)) + (pgetq 'gsc-options: _opts68817_))) + (_base69003_ + (string-append '"-I " _gerbil-staticdir68999_)) + (_user-static-dir69005_ + (let ((__tmp69343 + (let ((__tmp69344 + (let () + (declare (not safe)) + (getenv '"GERBIL_PATH" + '"~/.gerbil")))) + (declare (not safe)) + (path-expand '"lib/static" __tmp69344)))) + (declare (not safe)) + (path-expand __tmp69343))) + (_base69007_ (string-append - _base64918_ + _base69003_ '" -I " - _user-static-dir64920_))) - (let _lp64925_ ((_rest64927_ _opts64916_) - (_ccflags64928_ _base64922_)) - (let* ((_rest6492964943_ _rest64927_) - (_else6493264951_ + _user-static-dir69005_))) + (let _lp69010_ ((_rest69012_ _opts69001_) + (_ccflags69013_ _base69007_)) + (let* ((_rest6901469028_ _rest69012_) + (_else6901769036_ (lambda () - (cons '"-cc-options" - (cons _ccflags64928_ '()))))) - (let ((_K6493764971_ - (lambda (_rest64968_ _opts64969_) - (_lp64925_ - _rest64968_ - (string-append - _ccflags64928_ - '" " - _opts64969_)))) - (_K6493464957_ - (lambda (_rest64955_) - (_lp64925_ _rest64955_ _ccflags64928_)))) + (let ((__tmp69345 + (let () + (declare (not safe)) + (cons _ccflags69013_ '())))) + (declare (not safe)) + (cons '"-cc-options" __tmp69345))))) + (let ((_K6902269056_ + (lambda (_rest69053_ _opts69054_) + (let ((__tmp69346 + (string-append + _ccflags69013_ + '" " + _opts69054_))) + (declare (not safe)) + (_lp69010_ _rest69053_ __tmp69346)))) + (_K6901969042_ + (lambda (_rest69040_) + (let () + (declare (not safe)) + (_lp69010_ _rest69040_ _ccflags69013_))))) (if (let () (declare (not safe)) - (##pair? _rest6492964943_)) - (let ((_tl6493964976_ + (##pair? _rest6901469028_)) + (let ((_tl6902469061_ (let () (declare (not safe)) - (##cdr _rest6492964943_))) - (_hd6493864974_ + (##cdr _rest6901469028_))) + (_hd6902369059_ (let () (declare (not safe)) - (##car _rest6492964943_)))) - (if (equal? _hd6493864974_ '"-cc-options") + (##car _rest6901469028_)))) + (if (let () + (declare (not safe)) + (equal? _hd6902369059_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl6493964976_)) - (let ((_tl6494164981_ + (##pair? _tl6902469061_)) + (let ((_tl6902669066_ (let () (declare (not safe)) - (##cdr _tl6493964976_))) - (_hd6494064979_ + (##cdr _tl6902469061_))) + (_hd6902569064_ (let () (declare (not safe)) - (##car _tl6493964976_)))) - (let ((_opts64984_ _hd6494064979_) - (_rest64986_ _tl6494164981_)) - (_K6493764971_ - _rest64986_ - _opts64984_))) - (let ((_rest64963_ _tl6493964976_)) - (_K6493464957_ _rest64963_))) - (let ((_rest64963_ _tl6493964976_)) - (_K6493464957_ _rest64963_)))) - (_else6493264951_)))))))) - (_get-output-ld-opts64737_ + (##car _tl6902469061_)))) + (let ((_opts69069_ _hd6902569064_) + (_rest69071_ _tl6902669066_)) + (let () + (declare (not safe)) + (_K6902269056_ + _rest69071_ + _opts69069_)))) + (let ((_rest69048_ _tl6902469061_)) + (declare (not safe)) + (_K6901969042_ _rest69048_))) + (let ((_rest69048_ _tl6902469061_)) + (declare (not safe)) + (_K6901969042_ _rest69048_)))) + (let () + (declare (not safe)) + (_else6901769036_))))))))) + (_get-output-ld-opts68822_ (lambda () - (let ((_opts64849_ (pgetq 'gsc-options: _opts64732_))) - (let _lp64851_ ((_rest64853_ _opts64849_) - (_ldflags64854_ '"")) - (let* ((_rest6485564869_ _rest64853_) - (_else6485864877_ + (let ((_opts68934_ + (let () + (declare (not safe)) + (pgetq 'gsc-options: _opts68817_)))) + (let _lp68936_ ((_rest68938_ _opts68934_) + (_ldflags68939_ '"")) + (let* ((_rest6894068954_ _rest68938_) + (_else6894368962_ (lambda () - (if (string-empty? _ldflags64854_) + (if (let () + (declare (not safe)) + (string-empty? _ldflags68939_)) '() - (filter _not-string-empty?64742_ - (string-split - _ldflags64854_ - '#\space)))))) - (let ((_K6486364897_ - (lambda (_rest64894_ _opts64895_) - (_lp64851_ - _rest64894_ - (string-append - _ldflags64854_ - (if (string-empty? _ldflags64854_) - '"" - '" ") - _opts64895_)))) - (_K6486064883_ - (lambda (_rest64881_) - (_lp64851_ _rest64881_ _ldflags64854_)))) + (filter _not-string-empty?68827_ + (let () + (declare (not safe)) + (string-split + _ldflags68939_ + '#\space))))))) + (let ((_K6894868982_ + (lambda (_rest68979_ _opts68980_) + (let ((__tmp69347 + (string-append + _ldflags68939_ + (if (let () + (declare (not safe)) + (string-empty? + _ldflags68939_)) + '"" + '" ") + _opts68980_))) + (declare (not safe)) + (_lp68936_ _rest68979_ __tmp69347)))) + (_K6894568968_ + (lambda (_rest68966_) + (let () + (declare (not safe)) + (_lp68936_ _rest68966_ _ldflags68939_))))) (if (let () (declare (not safe)) - (##pair? _rest6485564869_)) - (let ((_tl6486564902_ + (##pair? _rest6894068954_)) + (let ((_tl6895068987_ (let () (declare (not safe)) - (##cdr _rest6485564869_))) - (_hd6486464900_ + (##cdr _rest6894068954_))) + (_hd6894968985_ (let () (declare (not safe)) - (##car _rest6485564869_)))) - (if (equal? _hd6486464900_ '"-ld-options") + (##car _rest6894068954_)))) + (if (let () + (declare (not safe)) + (equal? _hd6894968985_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl6486564902_)) - (let ((_tl6486764907_ + (##pair? _tl6895068987_)) + (let ((_tl6895268992_ (let () (declare (not safe)) - (##cdr _tl6486564902_))) - (_hd6486664905_ + (##cdr _tl6895068987_))) + (_hd6895168990_ (let () (declare (not safe)) - (##car _tl6486564902_)))) - (let ((_opts64910_ _hd6486664905_) - (_rest64912_ _tl6486764907_)) - (_K6486364897_ - _rest64912_ - _opts64910_))) - (let ((_rest64889_ _tl6486564902_)) - (_K6486064883_ _rest64889_))) - (let ((_rest64889_ _tl6486564902_)) - (_K6486064883_ _rest64889_)))) - (_else6485864877_)))))))) - (_get-libgerbil-ld-opts64738_ - (lambda (_libgerbil64846_) - (call-with-input-file - (string-append _libgerbil64846_ '".ldd") - read))) - (_replace-extension64739_ - (lambda (_path64843_ _ext64844_) + (##car _tl6895068987_)))) + (let ((_opts68995_ _hd6895168990_) + (_rest68997_ _tl6895268992_)) + (let () + (declare (not safe)) + (_K6894868982_ + _rest68997_ + _opts68995_)))) + (let ((_rest68974_ _tl6895068987_)) + (declare (not safe)) + (_K6894568968_ _rest68974_))) + (let ((_rest68974_ _tl6895068987_)) + (declare (not safe)) + (_K6894568968_ _rest68974_)))) + (let () + (declare (not safe)) + (_else6894368962_))))))))) + (_get-libgerbil-ld-opts68823_ + (lambda (_libgerbil68931_) + (let ((__tmp69348 + (string-append _libgerbil68931_ '".ldd"))) + (declare (not safe)) + (call-with-input-file __tmp69348 read)))) + (_replace-extension68824_ + (lambda (_path68928_ _ext68929_) (string-append - (path-strip-extension _path64843_) - _ext64844_))) - (_not-exclude-module?64740_ - (lambda (_ctx64839_) - (let ((_id-str64841_ - (symbol->string - (##structure-ref - _ctx64839_ - '1 - gx#expander-context::t - '#f)))) - (if (not (string-prefix? '"gerbil/" _id-str64841_)) - (not (string-prefix? '"std/" _id-str64841_)) + (let () + (declare (not safe)) + (path-strip-extension _path68928_)) + _ext68929_))) + (_not-exclude-module?68825_ + (lambda (_ctx68924_) + (let ((_id-str68926_ + (let ((__tmp69349 + (##structure-ref + _ctx68924_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (symbol->string __tmp69349)))) + (if (let ((__tmp69351 + (let () + (declare (not safe)) + (string-prefix? '"gerbil/" _id-str68926_)))) + (declare (not safe)) + (not __tmp69351)) + (let ((__tmp69350 + (let () + (declare (not safe)) + (string-prefix? '"std/" _id-str68926_)))) + (declare (not safe)) + (not __tmp69350)) '#f)))) - (_not-file-empty?64741_ - (lambda (_path64837_) (not (gxc#file-empty? _path64837_)))) - (_not-string-empty?64742_ - (lambda (_str64835_) (not (string-empty? _str64835_)))) - (_compile-stub64743_ - (lambda (_output-scm64750_ _output-bin64751_) - (let* ((_gerbil-home64753_ - (getenv '"GERBIL_BUILD_PREFIX" (gerbil-home))) - (_gerbil-libdir64755_ - (path-expand '"lib" _gerbil-home64753_)) - (_gerbil-staticdir64757_ - (path-expand '"static" _gerbil-libdir64755_)) - (_gxlink64759_ - (path-expand - '"libgerbil-link" - _gerbil-libdir64755_)) - (_tmp64761_ - (path-expand - (string-append - '"gxc." - (number->string (gxc#compile-timestamp-nanos))) - '"/tmp")) - (_tmp-path64765_ - (lambda (_f64763_) + (_not-file-empty?68826_ + (lambda (_path68922_) + (let ((__tmp69352 + (let () + (declare (not safe)) + (gxc#file-empty? _path68922_)))) + (declare (not safe)) + (not __tmp69352)))) + (_not-string-empty?68827_ + (lambda (_str68920_) + (let ((__tmp69353 + (let () + (declare (not safe)) + (string-empty? _str68920_)))) + (declare (not safe)) + (not __tmp69353)))) + (_compile-stub68828_ + (lambda (_output-scm68835_ _output-bin68836_) + (let* ((_gerbil-home68838_ + (let ((__tmp69354 (gerbil-home))) + (declare (not safe)) + (getenv '"GERBIL_BUILD_PREFIX" __tmp69354))) + (_gerbil-libdir68840_ + (let () + (declare (not safe)) + (path-expand '"lib" _gerbil-home68838_))) + (_gerbil-staticdir68842_ + (let () + (declare (not safe)) + (path-expand '"static" _gerbil-libdir68840_))) + (_gxlink68844_ + (let () + (declare (not safe)) (path-expand - (path-strip-directory _f64763_) - _tmp64761_))) - (_deps64767_ - (gxc#find-runtime-module-deps _ctx64731_)) - (_deps64769_ - (filter _not-exclude-module?64740_ _deps64767_)) - (_src-deps-scm64771_ - (map gxc#find-static-module-file _deps64769_)) - (_src-deps-scm64773_ - (filter _not-file-empty?64741_ - _src-deps-scm64771_)) - (_src-deps-scm64775_ - (map path-expand _src-deps-scm64773_)) - (_deps-scm64777_ - (map _tmp-path64765_ _src-deps-scm64775_)) - (_deps-c64783_ - (map (lambda (_g6477864780_) - (_replace-extension64739_ - _g6477864780_ - '".c")) - _deps-scm64777_)) - (_deps-o64789_ - (map (lambda (_g6478464786_) - (_replace-extension64739_ - _g6478464786_ - '".o")) - _deps-scm64777_)) - (_src-bin-scm64791_ - (gxc#find-static-module-file _ctx64731_)) - (_src-bin-scm64793_ - (path-expand _src-bin-scm64791_)) - (_bin-scm64795_ - (_tmp-path64765_ _src-bin-scm64793_)) - (_bin-c64797_ - (_replace-extension64739_ _bin-scm64795_ '".c")) - (_bin-o64799_ - (_replace-extension64739_ _bin-scm64795_ '".o")) - (_output-bin64801_ (path-expand _output-bin64751_)) - (_output-scm64803_ (path-expand _output-scm64750_)) - (_output-c64805_ - (_replace-extension64739_ _output-scm64803_ '".c")) - (_output-o64807_ - (_replace-extension64739_ _output-scm64803_ '".o")) - (_output_64809_ + '"libgerbil-link" + _gerbil-libdir68840_))) + (_tmp68846_ + (let ((__tmp69355 + (string-append + '"gxc." + (let ((__tmp69356 + (let () + (declare (not safe)) + (gxc#compile-timestamp-nanos)))) + (declare (not safe)) + (number->string __tmp69356))))) + (declare (not safe)) + (path-expand __tmp69355 '"/tmp"))) + (_tmp-path68850_ + (lambda (_f68848_) + (let ((__tmp69357 + (let () + (declare (not safe)) + (path-strip-directory _f68848_)))) + (declare (not safe)) + (path-expand __tmp69357 _tmp68846_)))) + (_deps68852_ + (let () + (declare (not safe)) + (gxc#find-runtime-module-deps _ctx68816_))) + (_deps68854_ + (filter _not-exclude-module?68825_ _deps68852_)) + (_src-deps-scm68856_ + (let () + (declare (not safe)) + (map gxc#find-static-module-file _deps68854_))) + (_src-deps-scm68858_ + (filter _not-file-empty?68826_ + _src-deps-scm68856_)) + (_src-deps-scm68860_ + (let () + (declare (not safe)) + (map path-expand _src-deps-scm68858_))) + (_deps-scm68862_ + (let () + (declare (not safe)) + (map _tmp-path68850_ _src-deps-scm68860_))) + (_deps-c68868_ + (let ((__tmp69358 + (lambda (_g6886368865_) + (let () + (declare (not safe)) + (_replace-extension68824_ + _g6886368865_ + '".c"))))) + (declare (not safe)) + (map __tmp69358 _deps-scm68862_))) + (_deps-o68874_ + (let ((__tmp69359 + (lambda (_g6886968871_) + (let () + (declare (not safe)) + (_replace-extension68824_ + _g6886968871_ + '".o"))))) + (declare (not safe)) + (map __tmp69359 _deps-scm68862_))) + (_src-bin-scm68876_ + (let () + (declare (not safe)) + (gxc#find-static-module-file _ctx68816_))) + (_src-bin-scm68878_ + (let () + (declare (not safe)) + (path-expand _src-bin-scm68876_))) + (_bin-scm68880_ + (let () + (declare (not safe)) + (_tmp-path68850_ _src-bin-scm68878_))) + (_bin-c68882_ + (let () + (declare (not safe)) + (_replace-extension68824_ _bin-scm68880_ '".c"))) + (_bin-o68884_ + (let () + (declare (not safe)) + (_replace-extension68824_ _bin-scm68880_ '".o"))) + (_output-bin68886_ + (let () + (declare (not safe)) + (path-expand _output-bin68836_))) + (_output-scm68888_ + (let () + (declare (not safe)) + (path-expand _output-scm68835_))) + (_output-c68890_ + (let () + (declare (not safe)) + (_replace-extension68824_ + _output-scm68888_ + '".c"))) + (_output-o68892_ + (let () + (declare (not safe)) + (_replace-extension68824_ + _output-scm68888_ + '".o"))) + (_output_68894_ (string-append - (path-strip-extension _output-scm64803_) + (let () + (declare (not safe)) + (path-strip-extension _output-scm68888_)) '"_")) - (_output_-c64811_ - (string-append _output_64809_ '".c")) - (_output_-o64813_ - (string-append _output_64809_ '".o")) - (_gsc-opts64815_ (_get-gsc-link-opts64735_)) - (_gsc-cc-opts64817_ - (_get-gsc-cc-opts64736_ _gerbil-staticdir64757_)) - (_output-ld-opts64819_ (_get-output-ld-opts64737_)) - (_libgerbil.a64821_ - (path-expand '"libgerbil.a" _gerbil-libdir64755_)) - (_libgerbil.so64823_ - (path-expand '"libgerbil.so" _gerbil-libdir64755_)) - (_libgerbil-ld-opts64825_ - (if (file-exists? _libgerbil.so64823_) - (_get-libgerbil-ld-opts64738_ - _libgerbil.so64823_) - (if (file-exists? _libgerbil.a64821_) - (_get-libgerbil-ld-opts64738_ - _libgerbil.a64821_) - (gxc#raise-compile-error - '"libgerbil does not exist" - _libgerbil.a64821_ - _libgerbil.so64823_)))) - (_gerbil-rpath64827_ + (_output_-c68896_ + (string-append _output_68894_ '".c")) + (_output_-o68898_ + (string-append _output_68894_ '".o")) + (_gsc-opts68900_ + (let () + (declare (not safe)) + (_get-gsc-link-opts68820_))) + (_gsc-cc-opts68902_ + (let () + (declare (not safe)) + (_get-gsc-cc-opts68821_ + _gerbil-staticdir68842_))) + (_output-ld-opts68904_ + (let () + (declare (not safe)) + (_get-output-ld-opts68822_))) + (_libgerbil.a68906_ + (let () + (declare (not safe)) + (path-expand + '"libgerbil.a" + _gerbil-libdir68840_))) + (_libgerbil.so68908_ + (let () + (declare (not safe)) + (path-expand + '"libgerbil.so" + _gerbil-libdir68840_))) + (_libgerbil-ld-opts68910_ + (if (let () + (declare (not safe)) + (file-exists? _libgerbil.so68908_)) + (let () + (declare (not safe)) + (_get-libgerbil-ld-opts68823_ + _libgerbil.so68908_)) + (if (let () + (declare (not safe)) + (file-exists? _libgerbil.a68906_)) + (let () + (declare (not safe)) + (_get-libgerbil-ld-opts68823_ + _libgerbil.a68906_)) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"libgerbil does not exist" + _libgerbil.a68906_ + _libgerbil.so68908_))))) + (_gerbil-rpath68912_ (string-append '"-Wl,-rpath=" - _gerbil-libdir64755_)) - (_builtin-modules64831_ - (map (lambda (_mod64829_) - (symbol->string - (##structure-ref - _mod64829_ - '1 - gx#expander-context::t - '#f))) - (cons _ctx64731_ _deps64769_)))) - (create-directory* (path-directory _output-bin64801_)) - (gxc#with-output-to-scheme-file - _output-scm64803_ - (lambda () - (_generate-stub64734_ _builtin-modules64831_))) + _gerbil-libdir68840_)) + (_builtin-modules68916_ + (let ((__tmp69361 + (lambda (_mod68914_) + (let ((__tmp69362 + (##structure-ref + _mod68914_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (symbol->string __tmp69362)))) + (__tmp69360 + (let () + (declare (not safe)) + (cons _ctx68816_ _deps68854_)))) + (declare (not safe)) + (map __tmp69361 __tmp69360)))) + (let ((__tmp69363 + (let () + (declare (not safe)) + (path-directory _output-bin68886_)))) + (declare (not safe)) + (create-directory* __tmp69363)) + (let ((__tmp69364 + (lambda () + (let () + (declare (not safe)) + (_generate-stub68819_ + _builtin-modules68916_))))) + (declare (not safe)) + (gxc#with-output-to-scheme-file + _output-scm68888_ + __tmp69364)) (if (gxc#current-compile-invoke-gsc) (begin - (create-directory _tmp64761_) - (for-each - copy-file - _src-deps-scm64775_ - _deps-scm64777_) - (copy-file _src-bin-scm64793_ _bin-scm64795_) - (gxc#invoke - (gxc#gerbil-gsc) - (cons '"-link" - (cons '"-l" - (cons _gxlink64759_ - (foldr1 cons - (foldr1 cons - (foldr1 cons + (let () + (declare (not safe)) + (create-directory _tmp68846_)) + (let () + (declare (not safe)) + (for-each + copy-file + _src-deps-scm68860_ + _deps-scm68862_)) + (let () + (declare (not safe)) + (copy-file _src-bin-scm68878_ _bin-scm68880_)) + (let ((__tmp69374 + (let () + (declare (not safe)) + (gxc#gerbil-gsc))) + (__tmp69365 + (let ((__tmp69366 + (let ((__tmp69367 + (let ((__tmp69368 + (let ((__tmp69370 + (let ((__tmp69371 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _bin-scm64795_ - (cons _output-scm64803_ '())) - _deps-scm64777_) - _gsc-opts64815_) - (gxc#gsc-debug-options__0)))))) + (let ((__tmp69372 + (let ((__tmp69373 + (let () + (declare (not safe)) + (cons _output-scm68888_ '())))) + (declare (not safe)) + (cons _bin-scm68880_ __tmp69373)))) + (declare (not safe)) + (foldr1 cons __tmp69372 _deps-scm68862_)))) + (declare (not safe)) + (foldr1 cons __tmp69371 _gsc-opts68900_))) + (__tmp69369 + (let () + (declare (not safe)) + (gxc#gsc-debug-options__0)))) + (declare (not safe)) + (foldr1 cons __tmp69370 __tmp69369)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gxc#invoke - (gxc#gerbil-gsc) - (cons '"-obj" - (foldr1 cons - (foldr1 cons - (cons _bin-c64797_ - (cons _output-c64805_ - (cons _output_-c64811_ + (declare (not safe)) + (cons _gxlink68844_ + __tmp69368)))) + (declare (not safe)) + (cons '"-l" __tmp69367)))) + (declare (not safe)) + (cons '"-link" __tmp69366)))) + (declare (not safe)) + (gxc#invoke __tmp69374 __tmp69365)) + (let ((__tmp69381 + (let () + (declare (not safe)) + (gxc#gerbil-gsc))) + (__tmp69375 + (let ((__tmp69376 + (let ((__tmp69377 + (let ((__tmp69378 + (let ((__tmp69379 + (let ((__tmp69380 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) + (let () + (declare (not safe)) + (cons _output_-c68896_ '())))) + (declare (not safe)) + (cons _output-c68890_ __tmp69380)))) + (declare (not safe)) + (cons _bin-c68882_ __tmp69379)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _deps-c64783_) - _gsc-cc-opts64817_))) - (gxc#invoke - (gxc#gerbil-gcc) - (cons '"-o" - (cons _output-bin64801_ - (foldr1 cons - (cons _bin-o64799_ - (cons _output-o64807_ - (cons _output_-o64813_ + (declare (not safe)) + (foldr1 cons + __tmp69378 + _deps-c68868_)))) + (declare (not safe)) + (foldr1 cons + __tmp69377 + _gsc-cc-opts68902_)))) + (declare (not safe)) + (cons '"-obj" __tmp69376)))) + (declare (not safe)) + (gxc#invoke __tmp69381 __tmp69375)) + (let ((__tmp69394 + (let () + (declare (not safe)) + (gxc#gerbil-gcc))) + (__tmp69382 + (let ((__tmp69383 + (let ((__tmp69384 + (let ((__tmp69385 + (let ((__tmp69386 + (let ((__tmp69387 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr1 cons - (cons _gerbil-rpath64827_ - (cons '"-L" - (cons _gerbil-libdir64755_ - (cons '"-lgerbil" - (cons '"-lgambit" + (let ((__tmp69388 + (let ((__tmp69389 + (let ((__tmp69390 + (let ((__tmp69391 + (let ((__tmp69392 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _libgerbil-ld-opts64825_))))) + (let ((__tmp69393 + (let () + (declare (not safe)) + (cons '"-lgambit" + _libgerbil-ld-opts68910_)))) + (declare (not safe)) + (cons '"-lgerbil" __tmp69393)))) + (declare (not safe)) + (cons _gerbil-libdir68840_ __tmp69392)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _output-ld-opts64819_)))) + (declare (not safe)) + (cons '"-L" __tmp69391)))) + (declare (not safe)) + (cons _gerbil-rpath68912_ + __tmp69390)))) + (declare (not safe)) + (foldr1 cons + __tmp69389 + _output-ld-opts68904_)))) + (declare (not safe)) + (cons _output_-o68898_ __tmp69388)))) + (declare (not safe)) + (cons _output-o68892_ __tmp69387)))) + (declare (not safe)) + (cons _bin-o68884_ __tmp69386)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _deps-o64789_)))) - (for-each - delete-file - (cons _output-c64805_ - (cons _output_-c64811_ - (cons _output-o64807_ - (cons _output_-o64813_ '()))))) - (gxc#delete-directory* _tmp64761_)) + (declare (not safe)) + (foldr1 cons + __tmp69385 + _deps-o68874_)))) + (declare (not safe)) + (cons _output-bin68886_ + __tmp69384)))) + (declare (not safe)) + (cons '"-o" __tmp69383)))) + (declare (not safe)) + (gxc#invoke __tmp69394 __tmp69382)) + (let ((__tmp69395 + (let ((__tmp69396 + (let ((__tmp69397 + (let ((__tmp69398 + (let () + (declare (not safe)) + (cons _output_-o68898_ + '())))) + (declare (not safe)) + (cons _output-o68892_ + __tmp69398)))) + (declare (not safe)) + (cons _output_-c68896_ + __tmp69397)))) + (declare (not safe)) + (cons _output-c68890_ __tmp69396)))) + (declare (not safe)) + (for-each delete-file __tmp69395)) + (let () + (declare (not safe)) + (gxc#delete-directory* _tmp68846_))) '#!void))))) - (let* ((_output-bin64745_ - (gxc#compile-exe-output-file _ctx64731_ _opts64732_)) - (_output-scm64747_ - (string-append _output-bin64745_ '".scmx"))) - (_compile-stub64743_ _output-scm64747_ _output-bin64745_) + (let* ((_output-bin68830_ + (let () + (declare (not safe)) + (gxc#compile-exe-output-file _ctx68816_ _opts68817_))) + (_output-scm68832_ + (string-append _output-bin68830_ '".scmx"))) + (let () + (declare (not safe)) + (_compile-stub68828_ _output-scm68832_ _output-bin68830_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm64747_)))))) + (let () + (declare (not safe)) + (delete-file _output-scm68832_))))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_ctx64566_ _opts64567_) - (letrec ((_reset-declare64569_ + (lambda (_ctx68651_ _opts68652_) + (letrec ((_reset-declare68654_ (lambda () '(declare (gambit-scheme) @@ -639,1286 +1127,2164 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_generate-stub64570_ - (lambda (_deps64722_) - (let ((_mod-main64724_ - (gxc#find-runtime-symbol _ctx64566_ 'main)) - (_reset-decl64725_ (_reset-declare64569_)) - (_user-decl64726_ (_user-declare64572_))) - (for-each - (lambda (_dep64728_) - (write '(##namespace (""))) - (newline) - (write _reset-decl64725_) - (newline) - (if _user-decl64726_ - (begin (write _user-decl64726_) (newline)) - '#!void) - (write (cons 'include (cons _dep64728_ '()))) - (newline)) - _deps64722_) - (write (cons 'define - (cons (cons 'gerbil-main '()) - (cons (cons 'gerbil-runtime-init! - (cons (cons 'quote + (_generate-stub68655_ + (lambda (_deps68807_) + (let ((_mod-main68809_ + (let () + (declare (not safe)) + (gxc#find-runtime-symbol _ctx68651_ 'main))) + (_reset-decl68810_ + (let () + (declare (not safe)) + (_reset-declare68654_))) + (_user-decl68811_ + (let () + (declare (not safe)) + (_user-declare68657_)))) + (let ((__tmp69399 + (lambda (_dep68813_) + (let () + (declare (not safe)) + (write '(##namespace ("")))) + (let () (declare (not safe)) (newline)) + (let () + (declare (not safe)) + (write _reset-decl68810_)) + (let () (declare (not safe)) (newline)) + (if _user-decl68811_ + (begin + (let () + (declare (not safe)) + (write _user-decl68811_)) + (let () (declare (not safe)) (newline))) + '#!void) + (let ((__tmp69400 + (let ((__tmp69401 + (let () + (declare (not safe)) + (cons _dep68813_ '())))) + (declare (not safe)) + (cons 'include __tmp69401)))) + (declare (not safe)) + (write __tmp69400)) + (let () (declare (not safe)) (newline))))) + (declare (not safe)) + (for-each __tmp69399 _deps68807_)) + (let ((__tmp69402 + (let ((__tmp69403 + (let ((__tmp69416 + (let () + (declare (not safe)) + (cons 'gerbil-main '()))) + (__tmp69404 + (let ((__tmp69412 + (let ((__tmp69413 + (let ((__tmp69414 + (let ((__tmp69415 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() '())) - '())) + (let () (declare (not safe)) (cons '() '())))) + (declare (not safe)) + (cons 'quote __tmp69415)))) + (declare (not safe)) + (cons __tmp69414 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons 'apply - (cons _mod-main64724_ + (declare (not safe)) + (cons 'gerbil-runtime-init! + __tmp69413))) + (__tmp69405 + (let ((__tmp69406 + (let ((__tmp69407 + (let ((__tmp69408 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons 'cdr (cons (cons 'command-line '()) '())) - '()))) + (let ((__tmp69409 + (let ((__tmp69410 + (let ((__tmp69411 + (let () + (declare (not safe)) + (cons 'command-line + '())))) + (declare (not safe)) + (cons __tmp69411 '())))) + (declare (not safe)) + (cons 'cdr __tmp69410)))) + (declare (not safe)) + (cons __tmp69409 '())))) + (declare (not safe)) + (cons _mod-main68809_ __tmp69408)))) + (declare (not safe)) + (cons 'apply __tmp69407)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (write '(gerbil-main)) - (newline)))) - (_static-include64571_ - (lambda (_gsc-opts64715_ _home64716_) - (letrec* ((_static-dir64718_ - (path-expand '"lib/static" _home64716_)) - (_user-static-dir64719_ - (path-expand - (path-expand - '"lib/static" - (getenv '"GERBIL_PATH" '"~/.gerbil")))) - (_cppflags64720_ + (declare (not safe)) + (cons __tmp69406 '())))) + (declare (not safe)) + (cons __tmp69412 __tmp69405)))) + (declare (not safe)) + (cons __tmp69416 __tmp69404)))) + (declare (not safe)) + (cons 'define __tmp69403)))) + (declare (not safe)) + (write __tmp69402)) + (let () (declare (not safe)) (write '(gerbil-main))) + (let () (declare (not safe)) (newline))))) + (_static-include68656_ + (lambda (_gsc-opts68800_ _home68801_) + (letrec* ((_static-dir68803_ + (let () + (declare (not safe)) + (path-expand '"lib/static" _home68801_))) + (_user-static-dir68804_ + (let ((__tmp69417 + (let ((__tmp69418 + (let () + (declare (not safe)) + (getenv '"GERBIL_PATH" + '"~/.gerbil")))) + (declare (not safe)) + (path-expand + '"lib/static" + __tmp69418)))) + (declare (not safe)) + (path-expand __tmp69417))) + (_cppflags68805_ (string-append '"-I " - _static-dir64718_ + _static-dir68803_ '" -I " - _user-static-dir64719_))) - (append _gsc-opts64715_ - (cons '"-cc-options" - (cons _cppflags64720_ '())))))) - (_user-declare64572_ + _user-static-dir68804_))) + (append _gsc-opts68800_ + (let ((__tmp69419 + (let () + (declare (not safe)) + (cons _cppflags68805_ '())))) + (declare (not safe)) + (cons '"-cc-options" __tmp69419)))))) + (_user-declare68657_ (lambda () - (let* ((_gsc-opts64620_ (pgetq 'gsc-options: _opts64567_)) - (_gsc-prelude64622_ - (if _gsc-opts64620_ - (member '"-prelude" _gsc-opts64620_) + (let* ((_gsc-opts68705_ + (let () + (declare (not safe)) + (pgetq 'gsc-options: _opts68652_))) + (_gsc-prelude68707_ + (if _gsc-opts68705_ + (let () + (declare (not safe)) + (member '"-prelude" _gsc-opts68705_)) '#f)) - (_gsc-prelude64624_ - (if _gsc-prelude64622_ - (read (open-input-string - (cadr _gsc-prelude64622_))) + (_gsc-prelude68709_ + (if _gsc-prelude68707_ + (let ((__tmp69420 + (let ((__tmp69421 + (let () + (declare (not safe)) + (cadr _gsc-prelude68707_)))) + (declare (not safe)) + (open-input-string __tmp69421)))) + (declare (not safe)) + (read __tmp69420)) '#f))) - (let _lp64627_ ((_rest64629_ - (cons _gsc-prelude64624_ '())) - (_user-decls64630_ '())) - (let* ((_rest6463164639_ _rest64629_) - (_else6463364647_ + (let _lp68712_ ((_rest68714_ + (let () + (declare (not safe)) + (cons _gsc-prelude68709_ '()))) + (_user-decls68715_ '())) + (let* ((_rest6871668724_ _rest68714_) + (_else6871868732_ (lambda () - (if (null? _user-decls64630_) + (if (let () + (declare (not safe)) + (null? _user-decls68715_)) '#f - (cons 'declare - (reverse _user-decls64630_))))) - (_K6463564703_ - (lambda (_rest64650_ _expr64651_) - (let* ((_expr6465264664_ _expr64651_) - (_else6465564672_ + (let ((__tmp69422 + (let () + (declare (not safe)) + (reverse _user-decls68715_)))) + (declare (not safe)) + (cons 'declare __tmp69422))))) + (_K6872068788_ + (lambda (_rest68735_ _expr68736_) + (let* ((_expr6873768749_ _expr68736_) + (_else6874068757_ (lambda () - (_lp64627_ - _rest64650_ - _user-decls64630_)))) - (let ((_K6466064693_ - (lambda (_decls64691_) - (_lp64627_ - _rest64650_ - (foldl1 cons - _user-decls64630_ - _decls64691_)))) - (_K6465764678_ - (lambda (_exprs64676_) - (_lp64627_ - (append _exprs64676_ _rest64650_) - _user-decls64630_)))) + (let () + (declare (not safe)) + (_lp68712_ + _rest68735_ + _user-decls68715_))))) + (let ((_K6874568778_ + (lambda (_decls68776_) + (let ((__tmp69423 + (let () + (declare (not safe)) + (foldl1 cons + _user-decls68715_ + _decls68776_)))) + (declare (not safe)) + (_lp68712_ + _rest68735_ + __tmp69423)))) + (_K6874268763_ + (lambda (_exprs68761_) + (let ((__tmp69424 + (append _exprs68761_ + _rest68735_))) + (declare (not safe)) + (_lp68712_ + __tmp69424 + _user-decls68715_))))) (if (let () (declare (not safe)) - (##pair? _expr6465264664_)) - (let ((_tl6466264698_ + (##pair? _expr6873768749_)) + (let ((_tl6874768783_ (let () (declare (not safe)) - (##cdr _expr6465264664_))) - (_hd6466164696_ + (##cdr _expr6873768749_))) + (_hd6874668781_ (let () (declare (not safe)) - (##car _expr6465264664_)))) + (##car _expr6873768749_)))) (if (let () (declare (not safe)) - (##eq? _hd6466164696_ + (##eq? _hd6874668781_ 'declare)) - (let ((_decls64701_ - _tl6466264698_)) - (_K6466064693_ _decls64701_)) + (let ((_decls68786_ + _tl6874768783_)) + (declare (not safe)) + (_K6874568778_ _decls68786_)) (if (let () (declare (not safe)) - (##eq? _hd6466164696_ + (##eq? _hd6874668781_ 'begin)) - (let ((_exprs64686_ - _tl6466264698_)) - (_K6465764678_ - _exprs64686_)) - (_else6465564672_)))) - (_else6465564672_))))))) + (let ((_exprs68771_ + _tl6874768783_)) + (declare (not safe)) + (_K6874268763_ + _exprs68771_)) + (let () + (declare (not safe)) + (_else6874068757_))))) + (let () + (declare (not safe)) + (_else6874068757_)))))))) (if (let () (declare (not safe)) - (##pair? _rest6463164639_)) - (let ((_hd6463664706_ + (##pair? _rest6871668724_)) + (let ((_hd6872168791_ (let () (declare (not safe)) - (##car _rest6463164639_))) - (_tl6463764708_ + (##car _rest6871668724_))) + (_tl6872268793_ (let () (declare (not safe)) - (##cdr _rest6463164639_)))) - (let* ((_expr64711_ _hd6463664706_) - (_rest64713_ _tl6463764708_)) - (_K6463564703_ _rest64713_ _expr64711_))) - (_else6463364647_))))))) - (_compile-stub64573_ - (lambda (_output-scm64580_ _output-bin64581_) - (let* ((_gerbil-home64583_ - (getenv '"GERBIL_BUILD_PREFIX" (gerbil-home))) - (_runtime64585_ - (map gxc#find-static-module-file - gxc#gerbil-runtime-modules)) - (_gambit-sharp64587_ - (path-expand - '"lib/_gambit#.scm" - _gerbil-home64583_)) - (_include-gambit-sharp64589_ + (##cdr _rest6871668724_)))) + (let* ((_expr68796_ _hd6872168791_) + (_rest68798_ _tl6872268793_)) + (declare (not safe)) + (_K6872068788_ _rest68798_ _expr68796_))) + (let () + (declare (not safe)) + (_else6871868732_)))))))) + (_compile-stub68658_ + (lambda (_output-scm68665_ _output-bin68666_) + (let* ((_gerbil-home68668_ + (let ((__tmp69425 (gerbil-home))) + (declare (not safe)) + (getenv '"GERBIL_BUILD_PREFIX" __tmp69425))) + (_runtime68670_ + (let () + (declare (not safe)) + (map gxc#find-static-module-file + gxc#gerbil-runtime-modules))) + (_gambit-sharp68672_ + (let () + (declare (not safe)) + (path-expand + '"lib/_gambit#.scm" + _gerbil-home68668_))) + (_include-gambit-sharp68674_ (string-append '"(include \"" - _gambit-sharp64587_ + _gambit-sharp68672_ '"\")")) - (_bin-scm64591_ - (gxc#find-static-module-file _ctx64566_)) - (_deps64593_ - (gxc#find-runtime-module-deps _ctx64566_)) - (_deps64595_ - (map gxc#find-static-module-file _deps64593_)) - (_deps64600_ - (filter (lambda (_$obj64597_) - (not (gxc#file-empty? _$obj64597_))) - _deps64595_)) - (_deps64604_ - (filter (lambda (_f64602_) - (not (member _f64602_ _runtime64585_))) - _deps64600_)) - (_gsc-opts64609_ - (let ((_$e64606_ - (pgetq 'gsc-options: _opts64567_))) - (if _$e64606_ _$e64606_ '()))) - (_gsc-opts64611_ - (_static-include64571_ - _gsc-opts64609_ - _gerbil-home64583_)) - (_gsc-gx-macros64613_ + (_bin-scm68676_ + (let () + (declare (not safe)) + (gxc#find-static-module-file _ctx68651_))) + (_deps68678_ + (let () + (declare (not safe)) + (gxc#find-runtime-module-deps _ctx68651_))) + (_deps68680_ + (let () + (declare (not safe)) + (map gxc#find-static-module-file _deps68678_))) + (_deps68685_ + (filter (lambda (_$obj68682_) + (let ((__tmp69426 + (let () + (declare (not safe)) + (gxc#file-empty? _$obj68682_)))) + (declare (not safe)) + (not __tmp69426))) + _deps68680_)) + (_deps68689_ + (filter (lambda (_f68687_) + (let ((__tmp69427 + (let () + (declare (not safe)) + (member _f68687_ + _runtime68670_)))) + (declare (not safe)) + (not __tmp69427))) + _deps68685_)) + (_gsc-opts68694_ + (let ((_$e68691_ + (let () + (declare (not safe)) + (pgetq 'gsc-options: _opts68652_)))) + (if _$e68691_ _$e68691_ '()))) + (_gsc-opts68696_ + (let () + (declare (not safe)) + (_static-include68656_ + _gsc-opts68694_ + _gerbil-home68668_))) + (_gsc-gx-macros68698_ (if (gerbil-runtime-smp?) - (cons '"-e" - (cons '"(define-cond-expand-feature|enable-smp|)" - (cons '"-e" - (cons _include-gambit-sharp64589_ - '())))) - (cons '"-e" - (cons _include-gambit-sharp64589_ '())))) - (_gsc-args64615_ - (cons '"-exe" - (cons '"-o" - (cons _output-bin64581_ - (foldr1 cons - (foldr1 cons - (foldr1 cons + (let ((__tmp69429 + (let ((__tmp69430 + (let ((__tmp69431 + (let () + (declare (not safe)) + (cons _include-gambit-sharp68674_ + '())))) + (declare (not safe)) + (cons '"-e" __tmp69431)))) + (declare (not safe)) + (cons '"(define-cond-expand-feature|enable-smp|)" + __tmp69430)))) + (declare (not safe)) + (cons '"-e" __tmp69429)) + (let ((__tmp69428 + (let () + (declare (not safe)) + (cons _include-gambit-sharp68674_ + '())))) + (declare (not safe)) + (cons '"-e" __tmp69428)))) + (_gsc-args68700_ + (let ((__tmp69432 + (let ((__tmp69433 + (let ((__tmp69434 + (let ((__tmp69436 + (let ((__tmp69437 + (let ((__tmp69438 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _output-scm64580_ '()) - _gsc-gx-macros64613_) - _gsc-opts64611_) - (gxc#gsc-debug-options__0))))))) + (let () + (declare (not safe)) + (cons _output-scm68665_ '())))) + (declare (not safe)) + (foldr1 cons __tmp69438 _gsc-gx-macros68698_)))) + (declare (not safe)) + (foldr1 cons __tmp69437 _gsc-opts68696_))) + (__tmp69435 + (let () (declare (not safe)) (gxc#gsc-debug-options__0)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (create-directory* (path-directory _output-bin64581_)) - (gxc#with-output-to-scheme-file - _output-scm64580_ - (lambda () - (_generate-stub64570_ - (foldr1 cons - (foldr1 cons - (cons _bin-scm64591_ '()) - _deps64604_) - _runtime64585_)))) + (declare (not safe)) + (foldr1 cons + __tmp69436 + __tmp69435)))) + (declare (not safe)) + (cons _output-bin68666_ + __tmp69434)))) + (declare (not safe)) + (cons '"-o" __tmp69433)))) + (declare (not safe)) + (cons '"-exe" __tmp69432)))) + (let ((__tmp69439 + (let () + (declare (not safe)) + (path-directory _output-bin68666_)))) + (declare (not safe)) + (create-directory* __tmp69439)) + (let ((__tmp69440 + (lambda () + (let ((__tmp69441 + (let ((__tmp69442 + (let ((__tmp69443 + (let () + (declare (not safe)) + (cons _bin-scm68676_ + '())))) + (declare (not safe)) + (foldr1 cons + __tmp69443 + _deps68689_)))) + (declare (not safe)) + (foldr1 cons + __tmp69442 + _runtime68670_)))) + (declare (not safe)) + (_generate-stub68655_ __tmp69441))))) + (declare (not safe)) + (gxc#with-output-to-scheme-file + _output-scm68665_ + __tmp69440)) (if (gxc#current-compile-invoke-gsc) - (gxc#invoke (gxc#gerbil-gsc) _gsc-args64615_) + (let ((__tmp69444 + (let () + (declare (not safe)) + (gxc#gerbil-gsc)))) + (declare (not safe)) + (gxc#invoke __tmp69444 _gsc-args68700_)) '#!void))))) - (let* ((_output-bin64575_ - (gxc#compile-exe-output-file _ctx64566_ _opts64567_)) - (_output-scm64577_ - (string-append _output-bin64575_ '".scmx"))) - (_compile-stub64573_ _output-scm64577_ _output-bin64575_) + (let* ((_output-bin68660_ + (let () + (declare (not safe)) + (gxc#compile-exe-output-file _ctx68651_ _opts68652_))) + (_output-scm68662_ + (string-append _output-bin68660_ '".scmx"))) + (let () + (declare (not safe)) + (_compile-stub68658_ _output-scm68662_ _output-bin68660_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm64577_)))))) + (let () + (declare (not safe)) + (delete-file _output-scm68662_))))))) (define gxc#find-export-binding - (lambda (_ctx64516_ _id64517_) - (let ((_$e64563_ - (find (lambda (_e6451864520_) - (let* ((_g6452264532_ _e6451864520_) - (_else6452464540_ (lambda () '#f)) - (_K6452664544_ (lambda () '#t))) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - _g6452264532_ - 'gx#module-export::t)) - (let* ((_e6452764547_ - (let () - (declare (not safe)) - (##vector-ref _g6452264532_ '1))) - (_e6452864550_ - (let () - (declare (not safe)) - (##vector-ref _g6452264532_ '2))) - (_e6452964553_ - (let () - (declare (not safe)) - (##vector-ref _g6452264532_ '3)))) - (if (let () - (declare (not safe)) - (##eq? _e6452964553_ '0)) - (let ((_e6453064556_ + (lambda (_ctx68601_ _id68602_) + (let ((_$e68648_ + (let ((__tmp69446 + (lambda (_e6860368605_) + (let* ((_g6860768617_ _e6860368605_) + (_else6860968625_ (lambda () '#f)) + (_K6861168629_ (lambda () '#t))) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + _g6860768617_ + 'gx#module-export::t)) + (let* ((_e6861268632_ + (let () + (declare (not safe)) + (##vector-ref _g6860768617_ '1))) + (_e6861368635_ + (let () + (declare (not safe)) + (##vector-ref _g6860768617_ '2))) + (_e6861468638_ + (let () + (declare (not safe)) + (##vector-ref _g6860768617_ '3)))) + (if (let () + (declare (not safe)) + (##eq? _e6861468638_ '0)) + (let ((_e6861568641_ + (let () + (declare (not safe)) + (##vector-ref _g6860768617_ '4)))) + (if ((lambda (_g6864368645_) + (let () + (declare (not safe)) + (eq? _g6864368645_ _id68602_))) + _e6861568641_) (let () (declare (not safe)) - (##vector-ref _g6452264532_ '4)))) - (if ((lambda (_g6455864560_) - (eq? _g6455864560_ _id64517_)) - _e6453064556_) - (_K6452664544_) - (_else6452464540_))) - (_else6452464540_))) - (_else6452464540_)))) - (##structure-ref - _ctx64516_ - '9 - gx#module-context::t - '#f)))) - (if _$e64563_ (gx#core-resolve-module-export _$e64563_) '#f)))) + (_K6861168629_)) + (let () + (declare (not safe)) + (_else6860968625_)))) + (let () + (declare (not safe)) + (_else6860968625_)))) + (let () + (declare (not safe)) + (_else6860968625_)))))) + (__tmp69445 + (##structure-ref + _ctx68601_ + '9 + gx#module-context::t + '#f))) + (declare (not safe)) + (find __tmp69446 __tmp69445)))) + (if _$e68648_ + (let () + (declare (not safe)) + (gx#core-resolve-module-export _$e68648_)) + '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx64508_ _id64509_) - (let ((_$e64511_ (gxc#find-export-binding _ctx64508_ _id64509_))) - (if _$e64511_ - ((lambda (_bind64514_) + (lambda (_ctx68593_ _id68594_) + (let ((_$e68596_ + (let () + (declare (not safe)) + (gxc#find-export-binding _ctx68593_ _id68594_)))) + (if _$e68596_ + ((lambda (_bind68599_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind64514_ + _bind68599_ 'gx#runtime-binding::t)) '#!void - (gxc#raise-compile-error - '"export is not a runtime binding" - _id64509_)) - (##structure-ref _bind64514_ '1 gx#binding::t '#f)) - _$e64511_) - (gxc#raise-compile-error - '"module does not export symbol" - (##structure-ref _ctx64508_ '1 gx#expander-context::t '#f) - _id64509_))))) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"export is not a runtime binding" + _id68594_))) + (##structure-ref _bind68599_ '1 gx#binding::t '#f)) + _$e68596_) + (let ((__tmp69447 + (##structure-ref + _ctx68593_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (gxc#raise-compile-error + '"module does not export symbol" + __tmp69447 + _id68594_)))))) (define gxc#find-runtime-module-deps - (lambda (_ctx64395_) - (letrec* ((_ht64397_ (make-table 'test: eq?)) - (_import-set-template64398_ - (lambda (_in64460_ _phi64461_) - (let ((_iphi64463_ - (fx+ _phi64461_ + (lambda (_ctx68480_) + (letrec* ((_ht68482_ + (let () (declare (not safe)) (make-table 'test: eq?))) + (_import-set-template68483_ + (lambda (_in68545_ _phi68546_) + (let ((_iphi68548_ + (fx+ _phi68546_ (##direct-structure-ref - _in64460_ + _in68545_ '2 gx#import-set::t '#f))) - (_imports64464_ + (_imports68549_ (##structure-ref (##direct-structure-ref - _in64460_ + _in68545_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp64466_ ((_rest64468_ _imports64464_) - (_r64469_ '())) - (let* ((_rest6447064478_ _rest64468_) - (_else6447264486_ (lambda () _r64469_)) - (_K6447464496_ - (lambda (_rest64489_ _in64490_) + (let _lp68551_ ((_rest68553_ _imports68549_) + (_r68554_ '())) + (let* ((_rest6855568563_ _rest68553_) + (_else6855768571_ (lambda () _r68554_)) + (_K6855968581_ + (lambda (_rest68574_ _in68575_) (if (let () (declare (not safe)) (##structure-instance-of? - _in64490_ + _in68575_ 'gx#module-context::t)) - (if (fxzero? _iphi64463_) - (_lp64466_ - _rest64489_ - (cons _in64490_ _r64469_)) - (_lp64466_ _rest64489_ _r64469_)) + (if (let () + (declare (not safe)) + (fxzero? _iphi68548_)) + (let ((__tmp69454 + (let () + (declare (not safe)) + (cons _in68575_ + _r68554_)))) + (declare (not safe)) + (_lp68551_ + _rest68574_ + __tmp69454)) + (let () + (declare (not safe)) + (_lp68551_ _rest68574_ _r68554_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in64490_ + _in68575_ 'gx#module-import::t)) - (let ((_iphi64492_ - (fx+ _phi64461_ + (let ((_iphi68577_ + (fx+ _phi68546_ (##direct-structure-ref - _in64490_ + _in68575_ '3 gx#module-import::t '#f)))) - (if (fxzero? _iphi64492_) - (_lp64466_ - _rest64489_ - (cons (##direct-structure-ref - (##direct-structure-ref - _in64490_ - '1 - gx#module-import::t - '#f) - '1 - gx#module-export::t - '#f) - _r64469_)) - (_lp64466_ - _rest64489_ - _r64469_))) + (if (let () + (declare (not safe)) + (fxzero? _iphi68577_)) + (let ((__tmp69452 + (let ((__tmp69453 + (##direct-structure-ref + (##direct-structure-ref +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _in68575_ + '1 + gx#module-import::t + '#f) + '1 + gx#module-export::t + '#f))) + (declare (not safe)) + (cons __tmp69453 _r68554_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp68551_ + _rest68574_ + __tmp69452)) + (let () + (declare (not safe)) + (_lp68551_ + _rest68574_ + _r68554_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in64490_ + _in68575_ 'gx#import-set::t)) - (let ((_xphi64494_ - (fx+ _iphi64463_ + (let ((_xphi68579_ + (fx+ _iphi68548_ (##direct-structure-ref - _in64490_ + _in68575_ '2 gx#import-set::t '#f)))) - (if (fxzero? _xphi64494_) - (_lp64466_ - _rest64489_ - (cons (##direct-structure-ref - _in64490_ - '1 - gx#import-set::t - '#f) - _r64469_)) - (if (fxpositive? - _xphi64494_) - (_lp64466_ - _rest64489_ - (foldl1 cons + (if (let () + (declare (not safe)) + (fxzero? _xphi68579_)) + (let ((__tmp69450 + (let ((__tmp69451 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r64469_ - (_import-set-template64398_ _in64490_ _iphi64463_))) - (_lp64466_ _rest64489_ _r64469_)))) + (##direct-structure-ref + _in68575_ + '1 + gx#import-set::t + '#f))) + (declare (not safe)) + (cons __tmp69451 _r68554_)))) + (declare (not safe)) + (_lp68551_ _rest68574_ __tmp69450)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp64466_ - _rest64489_ - _r64469_))))))) + (if (let () + (declare (not safe)) + (fxpositive? + _xphi68579_)) + (let ((__tmp69448 + (let ((__tmp69449 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (_import-set-template68483_ + _in68575_ + _iphi68548_)))) + (declare (not safe)) + (foldl1 cons _r68554_ __tmp69449)))) + (declare (not safe)) + (_lp68551_ _rest68574_ __tmp69448)) + (let () + (declare (not safe)) + (_lp68551_ _rest68574_ _r68554_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_lp68551_ + _rest68574_ + _r68554_)))))))) (if (let () (declare (not safe)) - (##pair? _rest6447064478_)) - (let ((_hd6447564499_ + (##pair? _rest6855568563_)) + (let ((_hd6856068584_ (let () (declare (not safe)) - (##car _rest6447064478_))) - (_tl6447664501_ + (##car _rest6855568563_))) + (_tl6856168586_ (let () (declare (not safe)) - (##cdr _rest6447064478_)))) - (let* ((_in64504_ _hd6447564499_) - (_rest64506_ _tl6447664501_)) - (_K6447464496_ _rest64506_ _in64504_))) - (_else6447264486_))))))) - (_find-deps64399_ - (lambda (_rest64406_ _deps64407_) - (let* ((_rest6440864416_ _rest64406_) - (_else6441064424_ (lambda () _deps64407_)) - (_K6441264448_ - (lambda (_rest64427_ _hd64428_) + (##cdr _rest6855568563_)))) + (let* ((_in68589_ _hd6856068584_) + (_rest68591_ _tl6856168586_)) + (declare (not safe)) + (_K6855968581_ _rest68591_ _in68589_))) + (let () + (declare (not safe)) + (_else6855768571_)))))))) + (_find-deps68484_ + (lambda (_rest68491_ _deps68492_) + (let* ((_rest6849368501_ _rest68491_) + (_else6849568509_ (lambda () _deps68492_)) + (_K6849768533_ + (lambda (_rest68512_ _hd68513_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd64428_ + _hd68513_ 'gx#module-context::t)) - (let ((_id64430_ + (let ((_id68515_ (##structure-ref - _hd64428_ + _hd68513_ '1 gx#expander-context::t '#f)) - (_imports64431_ + (_imports68516_ (##structure-ref - _hd64428_ + _hd68513_ '8 gx#module-context::t '#f))) - (if (table-ref _ht64397_ _id64430_ '#f) - (_find-deps64399_ - _rest64427_ - _deps64407_) - (let ((_$e64433_ - (gx#core-context-prelude__% - _hd64428_))) - (if _$e64433_ - ((lambda (_pre64436_) - (let ((_xdeps64438_ - (_find-deps64399_ - (cons _pre64436_ - _imports64431_) - _deps64407_))) - (table-set! - _ht64397_ - _id64430_ - _hd64428_) - (_find-deps64399_ - _rest64427_ - (cons _hd64428_ - _xdeps64438_)))) - _$e64433_) - (let ((_xdeps64440_ - (_find-deps64399_ - _imports64431_ - _deps64407_))) - (table-set! - _ht64397_ - _id64430_ - _hd64428_) - (_find-deps64399_ - _rest64427_ - (cons _hd64428_ - _xdeps64440_))))))) + (if (let () + (declare (not safe)) + (table-ref _ht68482_ _id68515_ '#f)) + (let () + (declare (not safe)) + (_find-deps68484_ + _rest68512_ + _deps68492_)) + (let ((_$e68518_ + (let () + (declare (not safe)) + (gx#core-context-prelude__% + _hd68513_)))) + (if _$e68518_ + ((lambda (_pre68521_) + (let ((_xdeps68523_ + (let ((__tmp69468 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _pre68521_ _imports68516_)))) + (declare (not safe)) + (_find-deps68484_ __tmp69468 _deps68492_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (table-set! + _ht68482_ + _id68515_ + _hd68513_)) + (let ((__tmp69469 + (let () + (declare + (not safe)) + (cons _hd68513_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _xdeps68523_)))) + (declare (not safe)) + (_find-deps68484_ _rest68512_ __tmp69469)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _$e68518_) + (let ((_xdeps68525_ + (let () + (declare (not safe)) + (_find-deps68484_ + _imports68516_ + _deps68492_)))) + (let () + (declare (not safe)) + (table-set! + _ht68482_ + _id68515_ + _hd68513_)) + (let ((__tmp69467 + (let () + (declare (not safe)) + (cons _hd68513_ + _xdeps68525_)))) + (declare (not safe)) + (_find-deps68484_ + _rest68512_ + __tmp69467))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd64428_ + _hd68513_ 'gx#prelude-context::t)) - (let ((_id64442_ + (let ((_id68527_ (##structure-ref - _hd64428_ + _hd68513_ '1 gx#expander-context::t '#f))) - (if (table-ref - _ht64397_ - _id64442_ - '#f) - (_find-deps64399_ - _rest64427_ - _deps64407_) - (let ((_xdeps64444_ - (_find-deps64399_ - (##structure-ref - _hd64428_ - '7 - gx#prelude-context::t - '#f) - _deps64407_))) - (if (table-ref - _ht64397_ - _id64442_ - '#f) - (_find-deps64399_ - _rest64427_ - _xdeps64444_) + (if (let () + (declare (not safe)) + (table-ref + _ht68482_ + _id68527_ + '#f)) + (let () + (declare (not safe)) + (_find-deps68484_ + _rest68512_ + _deps68492_)) + (let ((_xdeps68529_ + (let ((__tmp69465 + (##structure-ref + _hd68513_ + '7 + gx#prelude-context::t + '#f))) + (declare (not safe)) + (_find-deps68484_ + __tmp69465 + _deps68492_)))) + (if (let () + (declare (not safe)) + (table-ref + _ht68482_ + _id68527_ + '#f)) + (let () + (declare (not safe)) + (_find-deps68484_ + _rest68512_ + _xdeps68529_)) (begin - (table-set! - _ht64397_ - _id64442_ - _hd64428_) - (_find-deps64399_ - _rest64427_ - (cons _hd64428_ - _xdeps64444_))))))) + (let () + (declare (not safe)) + (table-set! + _ht68482_ + _id68527_ + _hd68513_)) + (let ((__tmp69466 + (let () + (declare + (not safe)) + (cons _hd68513_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _xdeps68529_)))) + (declare (not safe)) + (_find-deps68484_ _rest68512_ __tmp69466))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd64428_ + _hd68513_ 'gx#module-import::t)) - (if (fxzero? (##direct-structure-ref - _hd64428_ - '3 - gx#module-import::t - '#f)) - (_find-deps64399_ - (cons (##direct-structure-ref - _hd64428_ - '1 + (if (let ((__tmp69464 + (##direct-structure-ref + _hd68513_ + '3 gx#module-import::t - '#f) - _rest64427_) - _deps64407_) - (_find-deps64399_ - _rest64427_ - _deps64407_)) + '#f))) + (declare (not safe)) + (fxzero? __tmp69464)) + (let ((__tmp69462 + (let ((__tmp69463 + (##direct-structure-ref + _hd68513_ + '1 + gx#module-import::t + '#f))) + (declare (not safe)) + (cons __tmp69463 + _rest68512_)))) + (declare (not safe)) + (_find-deps68484_ + __tmp69462 + _deps68492_)) + (let () + (declare (not safe)) + (_find-deps68484_ + _rest68512_ + _deps68492_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd64428_ + _hd68513_ 'gx#module-export::t)) - (_find-deps64399_ - (cons (##direct-structure-ref - _hd64428_ - '1 - gx#module-export::t - '#f) - _rest64427_) - _deps64407_) + (let ((__tmp69460 + (let ((__tmp69461 + (##direct-structure-ref + _hd68513_ + '1 + gx#module-export::t + '#f))) + (declare (not safe)) + (cons __tmp69461 + _rest68512_)))) + (declare (not safe)) + (_find-deps68484_ + __tmp69460 + _deps68492_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd64428_ + _hd68513_ 'gx#import-set::t)) - (if (fxzero? (##direct-structure-ref + (if (let ((__tmp69459 + (##direct-structure-ref + _hd68513_ + '2 + gx#import-set::t + '#f))) + (declare (not safe)) + (fxzero? __tmp69459)) + (let ((__tmp69457 + (let ((__tmp69458 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd64428_ - '2 - gx#import-set::t - '#f)) - (_find-deps64399_ - (cons (##direct-structure-ref - _hd64428_ - '1 - gx#import-set::t - '#f) - _rest64427_) - _deps64407_) - (if (fxpositive? - (##direct-structure-ref _hd64428_ '2 gx#import-set::t '#f)) - (let ((_xdeps64446_ - (_import-set-template64398_ _hd64428_ '0))) - (_find-deps64399_ - (foldl1 cons _rest64427_ _xdeps64446_) - _deps64407_)) - (_find-deps64399_ _rest64427_ _deps64407_))) + (##direct-structure-ref + _hd68513_ + '1 + gx#import-set::t + '#f))) + (declare (not safe)) + (cons __tmp69458 _rest68512_)))) + (declare (not safe)) + (_find-deps68484_ __tmp69457 _deps68492_)) + (if (let ((__tmp69456 + (##direct-structure-ref + _hd68513_ + '2 + gx#import-set::t + '#f))) + (declare (not safe)) + (fxpositive? __tmp69456)) + (let* ((_xdeps68531_ + (let () + (declare (not safe)) + (_import-set-template68483_ _hd68513_ '0))) + (__tmp69455 + (let () + (declare (not safe)) + (foldl1 cons _rest68512_ _xdeps68531_)))) + (declare (not safe)) + (_find-deps68484_ __tmp69455 _deps68492_)) + (let () + (declare (not safe)) + (_find-deps68484_ _rest68512_ _deps68492_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Unexpected module import" - _hd64428_))))))))) + _hd68513_))))))))) (if (let () (declare (not safe)) - (##pair? _rest6440864416_)) - (let ((_hd6441364451_ + (##pair? _rest6849368501_)) + (let ((_hd6849868536_ (let () (declare (not safe)) - (##car _rest6440864416_))) - (_tl6441464453_ + (##car _rest6849368501_))) + (_tl6849968538_ (let () (declare (not safe)) - (##cdr _rest6440864416_)))) - (let* ((_hd64456_ _hd6441364451_) - (_rest64458_ _tl6441464453_)) - (_K6441264448_ _rest64458_ _hd64456_))) - (_else6441064424_)))))) - (reverse (filter gx#expander-context-id - (_find-deps64399_ - (let ((_$e64401_ - (gx#core-context-prelude__% _ctx64395_))) - (if _$e64401_ - ((lambda (_pre64404_) - (cons _pre64404_ - (##structure-ref - _ctx64395_ - '8 - gx#module-context::t - '#f))) - _$e64401_) - (##structure-ref - _ctx64395_ - '8 - gx#module-context::t - '#f))) - '())))))) + (##cdr _rest6849368501_)))) + (let* ((_hd68541_ _hd6849868536_) + (_rest68543_ _tl6849968538_)) + (declare (not safe)) + (_K6849768533_ _rest68543_ _hd68541_))) + (let () + (declare (not safe)) + (_else6849568509_))))))) + (let ((__tmp69470 + (filter gx#expander-context-id + (let ((__tmp69471 + (let ((_$e68486_ + (let () + (declare (not safe)) + (gx#core-context-prelude__% + _ctx68480_)))) + (if _$e68486_ + ((lambda (_pre68489_) + (let ((__tmp69472 + (##structure-ref + _ctx68480_ + '8 + gx#module-context::t + '#f))) + (declare (not safe)) + (cons _pre68489_ __tmp69472))) + _$e68486_) + (##structure-ref + _ctx68480_ + '8 + gx#module-context::t + '#f))))) + (declare (not safe)) + (_find-deps68484_ __tmp69471 '()))))) + (declare (not safe)) + (reverse __tmp69470))))) (define gxc#find-static-module-file - (lambda (_ctx64332_) - (let* ((_context-id64334_ + (lambda (_ctx68417_) + (let* ((_context-id68419_ (if (let () (declare (not safe)) (##structure-instance-of? - _ctx64332_ + _ctx68417_ 'gx#module-context::t)) - (##structure-ref _ctx64332_ '1 gx#expander-context::t '#f) - (string->symbol _ctx64332_))) - (_scm64336_ + (##structure-ref _ctx68417_ '1 gx#expander-context::t '#f) + (let () (declare (not safe)) (string->symbol _ctx68417_)))) + (_scm68421_ (string-append - (gxc#static-module-name _context-id64334_) + (let () + (declare (not safe)) + (gxc#static-module-name _context-id68419_)) '".scm")) - (_dirs64338_ (gx#current-expander-module-library-path)) - (_dirs64347_ - (let ((_$e64340_ (gxc#current-compile-output-dir))) - (if _$e64340_ - ((lambda (_g6434264344_) - (cons _g6434264344_ _dirs64338_)) - _$e64340_) - _dirs64338_))) - (_dirs64353_ - (map (lambda (_g6434864350_) - (path-expand '"static" _g6434864350_)) - _dirs64347_))) - (let _lp64356_ ((_rest64358_ _dirs64353_)) - (let* ((_rest6435964367_ _rest64358_) - (_else6436164375_ + (_dirs68423_ (gx#current-expander-module-library-path)) + (_dirs68432_ + (let ((_$e68425_ (gxc#current-compile-output-dir))) + (if _$e68425_ + ((lambda (_g6842768429_) + (let () + (declare (not safe)) + (cons _g6842768429_ _dirs68423_))) + _$e68425_) + _dirs68423_))) + (_dirs68438_ + (let ((__tmp69473 + (lambda (_g6843368435_) + (let () + (declare (not safe)) + (path-expand '"static" _g6843368435_))))) + (declare (not safe)) + (map __tmp69473 _dirs68432_)))) + (let _lp68441_ ((_rest68443_ _dirs68438_)) + (let* ((_rest6844468452_ _rest68443_) + (_else6844668460_ (lambda () - (gxc#raise-compile-error - '"cannot find static module" - (##structure-ref - _ctx64332_ - '1 - gx#expander-context::t - '#f) - _scm64336_))) - (_K6436364383_ - (lambda (_rest64378_ _dir64379_) - (let ((_path64381_ (path-expand _scm64336_ _dir64379_))) - (if (file-exists? _path64381_) - _path64381_ - (_lp64356_ _rest64378_)))))) - (if (let () (declare (not safe)) (##pair? _rest6435964367_)) - (let ((_hd6436464386_ + (let ((__tmp69474 + (##structure-ref + _ctx68417_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (gxc#raise-compile-error + '"cannot find static module" + __tmp69474 + _scm68421_)))) + (_K6844868468_ + (lambda (_rest68463_ _dir68464_) + (let ((_path68466_ + (let () + (declare (not safe)) + (path-expand _scm68421_ _dir68464_)))) + (if (let () + (declare (not safe)) + (file-exists? _path68466_)) + _path68466_ + (let () + (declare (not safe)) + (_lp68441_ _rest68463_))))))) + (if (let () (declare (not safe)) (##pair? _rest6844468452_)) + (let ((_hd6844968471_ (let () (declare (not safe)) - (##car _rest6435964367_))) - (_tl6436564388_ + (##car _rest6844468452_))) + (_tl6845068473_ (let () (declare (not safe)) - (##cdr _rest6435964367_)))) - (let* ((_dir64391_ _hd6436464386_) - (_rest64393_ _tl6436564388_)) - (_K6436364383_ _rest64393_ _dir64391_))) - (_else6436164375_))))))) + (##cdr _rest6844468452_)))) + (let* ((_dir68476_ _hd6844968471_) + (_rest68478_ _tl6845068473_)) + (declare (not safe)) + (_K6844868468_ _rest68478_ _dir68476_))) + (let () (declare (not safe)) (_else6844668460_)))))))) (define gxc#file-empty? - (lambda (_path64330_) - (zero? (file-info-size (file-info _path64330_ '#t))))) + (lambda (_path68415_) + (let ((__tmp69475 + (let ((__tmp69476 + (let () + (declare (not safe)) + (file-info _path68415_ '#t)))) + (declare (not safe)) + (file-info-size __tmp69476)))) + (declare (not safe)) + (zero? __tmp69475)))) (define gxc#compile-top-module - (lambda (_ctx64326_) - (call-with-parameters - (lambda () - (gxc#verbose - '"compile " - (##structure-ref _ctx64326_ '1 gx#expander-context::t '#f)) - (if (gxc#current-compile-optimize) - (gerbil/gambit/threads#with-lock - gxc#+driver-mutex+ - (lambda () (gxc#optimize! _ctx64326_))) - '#!void) - (gxc#collect-bindings _ctx64326_) - (gxc#compile-runtime-code _ctx64326_) - (gxc#compile-meta-code _ctx64326_) - (if (and (gxc#current-compile-optimize) - (gxc#current-compile-generate-ssxi)) - (gxc#compile-ssxi-code _ctx64326_) - '#!void)) - gx#current-expander-context - _ctx64326_ - gx#current-expander-phi - '0 - gx#current-expander-marks - '() - gxc#current-compile-symbol-table - (let ((__obj65213 (make-object gxc#symbol-table::t '2))) - (gxc#symbol-table:::init! __obj65213) - __obj65213) - gxc#current-compile-runtime-sections - (make-table 'test: eq?) - gxc#current-compile-runtime-names - (make-table)))) + (lambda (_ctx68411_) + (let ((__tmp69480 + (lambda () + (let ((__tmp69481 + (##structure-ref + _ctx68411_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (gxc#verbose '"compile " __tmp69481)) + (if (gxc#current-compile-optimize) + (let ((__tmp69482 + (lambda () + (let () + (declare (not safe)) + (gxc#optimize! _ctx68411_))))) + (declare (not safe)) + (gerbil/gambit/threads#with-lock + gxc#+driver-mutex+ + __tmp69482)) + '#!void) + (let () + (declare (not safe)) + (gxc#collect-bindings _ctx68411_)) + (let () + (declare (not safe)) + (gxc#compile-runtime-code _ctx68411_)) + (let () + (declare (not safe)) + (gxc#compile-meta-code _ctx68411_)) + (if (and (gxc#current-compile-optimize) + (gxc#current-compile-generate-ssxi)) + (let () + (declare (not safe)) + (gxc#compile-ssxi-code _ctx68411_)) + '#!void))) + (__tmp69479 + (let ((__obj69298 (make-object gxc#symbol-table::t '2))) + (let () + (declare (not safe)) + (gxc#symbol-table:::init! __obj69298)) + __obj69298)) + (__tmp69478 + (let () (declare (not safe)) (make-table 'test: eq?))) + (__tmp69477 (let () (declare (not safe)) (make-table)))) + (declare (not safe)) + (call-with-parameters + __tmp69480 + gx#current-expander-context + _ctx68411_ + gx#current-expander-phi + '0 + gx#current-expander-marks + '() + gxc#current-compile-symbol-table + __tmp69479 + gxc#current-compile-runtime-sections + __tmp69478 + gxc#current-compile-runtime-names + __tmp69477)))) (define gxc#collect-bindings - (lambda (_ctx64324_) - (gxc#apply-collect-bindings - (##structure-ref _ctx64324_ '11 gx#module-context::t '#f)))) + (lambda (_ctx68409_) + (let ((__tmp69483 + (##structure-ref _ctx68409_ '11 gx#module-context::t '#f))) + (declare (not safe)) + (gxc#apply-collect-bindings __tmp69483)))) (define gxc#compile-runtime-code - (lambda (_ctx64270_) - (letrec ((_compile164272_ - (lambda (_ctx64313_) - (let* ((_code64315_ + (lambda (_ctx68355_) + (letrec ((_compile168357_ + (lambda (_ctx68398_) + (let* ((_code68400_ (##structure-ref - _ctx64313_ + _ctx68398_ '11 gx#module-context::t '#f)) - (_rt64319_ - (if (gxc#apply-find-runtime-code _code64315_) - (let ((_idstr64317_ - (gxc#module-id->path-string - (##structure-ref - _ctx64313_ - '1 - gx#expander-context::t - '#f)))) - (string-append _idstr64317_ '"__0")) + (_rt68404_ + (if (let () + (declare (not safe)) + (gxc#apply-find-runtime-code _code68400_)) + (let ((_idstr68402_ + (let ((__tmp69484 + (##structure-ref + _ctx68398_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (gxc#module-id->path-string + __tmp69484)))) + (string-append _idstr68402_ '"__0")) '#f))) - (if _rt64319_ + (if _rt68404_ (begin - (table-set! - (gxc#current-compile-runtime-sections) - _ctx64313_ - _rt64319_) - (_generate-runtime-code64274_ - _ctx64313_ - _code64315_)) - (let ((_path64322_ - (gxc#compile-static-output-file _ctx64313_))) - (gxc#with-output-to-scheme-file _path64322_ void))) - (_generate-loader-code64275_ - _ctx64313_ - _code64315_ - _rt64319_)))) - (_context-timestamp64273_ - (lambda (_ctx64311_) - (string->symbol - (string-append - (symbol->string - (##structure-ref - _ctx64311_ - '1 - gx#expander-context::t - '#f)) - '"::timestamp")))) - (_generate-runtime-code64274_ - (lambda (_ctx64293_ _code64294_) - (let* ((_lifts64296_ (box '())) - (_runtime-code64299_ - (call-with-parameters - (lambda () - (gxc#apply-generate-runtime _code64294_)) - gx#current-expander-context - _ctx64293_ - gx#current-expander-phi - '0 - gxc#current-compile-lift - _lifts64296_ - gxc#current-compile-marks - (make-table 'test: eq?) - gxc#current-compile-identifiers - (gxc#make-bound-identifier-table))) - (_runtime-code64301_ - (if (null? (unbox _lifts64296_)) - _runtime-code64299_ - (cons 'begin - (foldr1 cons - (cons _runtime-code64299_ '()) - (reverse (unbox _lifts64296_)))))) - (_runtime-code64303_ - (cons 'begin - (cons (cons 'define - (cons (_context-timestamp64273_ - _ctx64293_) - (cons (gxc#current-compile-timestamp) - '()))) - (cons _runtime-code64301_ '())))) - (_scm064305_ - (gxc#compile-output-file _ctx64293_ '0 '".scm"))) - (let ((_scms64308_ - (gxc#compile-static-output-file _ctx64293_))) - (call-with-parameters - (lambda () - (gxc#compile-scm-file__0 - _scm064305_ - _runtime-code64303_)) - gxc#current-compile-keep-scm - '#t) - (if (file-exists? _scms64308_) - (delete-file _scms64308_) + (let ((__tmp69485 + (gxc#current-compile-runtime-sections))) + (declare (not safe)) + (table-set! __tmp69485 _ctx68398_ _rt68404_)) + (let () + (declare (not safe)) + (_generate-runtime-code68359_ + _ctx68398_ + _code68400_))) + (let ((_path68407_ + (let () + (declare (not safe)) + (gxc#compile-static-output-file + _ctx68398_)))) + (declare (not safe)) + (gxc#with-output-to-scheme-file _path68407_ void))) + (let () + (declare (not safe)) + (_generate-loader-code68360_ + _ctx68398_ + _code68400_ + _rt68404_))))) + (_context-timestamp68358_ + (lambda (_ctx68396_) + (let ((__tmp69486 + (string-append + (let ((__tmp69487 + (##structure-ref + _ctx68396_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (symbol->string __tmp69487)) + '"::timestamp"))) + (declare (not safe)) + (string->symbol __tmp69486)))) + (_generate-runtime-code68359_ + (lambda (_ctx68378_ _code68379_) + (let* ((_lifts68381_ + (let () (declare (not safe)) (box '()))) + (_runtime-code68384_ + (let ((__tmp69490 + (lambda () + (let () + (declare (not safe)) + (gxc#apply-generate-runtime + _code68379_)))) + (__tmp69489 + (let () + (declare (not safe)) + (make-table 'test: eq?))) + (__tmp69488 + (let () + (declare (not safe)) + (gxc#make-bound-identifier-table)))) + (declare (not safe)) + (call-with-parameters + __tmp69490 + gx#current-expander-context + _ctx68378_ + gx#current-expander-phi + '0 + gxc#current-compile-lift + _lifts68381_ + gxc#current-compile-marks + __tmp69489 + gxc#current-compile-identifiers + __tmp69488))) + (_runtime-code68386_ + (if (let ((__tmp69495 + (let () + (declare (not safe)) + (unbox _lifts68381_)))) + (declare (not safe)) + (null? __tmp69495)) + _runtime-code68384_ + (let ((__tmp69491 + (let ((__tmp69494 + (let () + (declare (not safe)) + (cons _runtime-code68384_ + '()))) + (__tmp69492 + (let ((__tmp69493 + (let () + (declare (not safe)) + (unbox _lifts68381_)))) + (declare (not safe)) + (reverse __tmp69493)))) + (declare (not safe)) + (foldr1 cons __tmp69494 __tmp69492)))) + (declare (not safe)) + (cons 'begin __tmp69491)))) + (_runtime-code68388_ + (let ((__tmp69496 + (let ((__tmp69498 + (let ((__tmp69499 + (let ((__tmp69502 + (let () + (declare (not safe)) + (_context-timestamp68358_ + _ctx68378_))) + (__tmp69500 + (let ((__tmp69501 + (gxc#current-compile-timestamp))) + (declare (not safe)) + (cons __tmp69501 + '())))) + (declare (not safe)) + (cons __tmp69502 + __tmp69500)))) + (declare (not safe)) + (cons 'define __tmp69499))) + (__tmp69497 + (let () + (declare (not safe)) + (cons _runtime-code68386_ '())))) + (declare (not safe)) + (cons __tmp69498 __tmp69497)))) + (declare (not safe)) + (cons 'begin __tmp69496))) + (_scm068390_ + (let () + (declare (not safe)) + (gxc#compile-output-file + _ctx68378_ + '0 + '".scm")))) + (let ((_scms68393_ + (let () + (declare (not safe)) + (gxc#compile-static-output-file _ctx68378_)))) + (let ((__tmp69503 + (lambda () + (let () + (declare (not safe)) + (gxc#compile-scm-file__0 + _scm068390_ + _runtime-code68388_))))) + (declare (not safe)) + (call-with-parameters + __tmp69503 + gxc#current-compile-keep-scm + '#t)) + (if (let () + (declare (not safe)) + (file-exists? _scms68393_)) + (let () + (declare (not safe)) + (delete-file _scms68393_)) '#!void) - (gxc#verbose - '"copy static module " - _scm064305_ - '" => " - _scms64308_) - (copy-file _scm064305_ _scms64308_) + (let () + (declare (not safe)) + (gxc#verbose + '"copy static module " + _scm068390_ + '" => " + _scms68393_)) + (let () + (declare (not safe)) + (copy-file _scm068390_ _scms68393_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm064305_)))))) - (_generate-loader-code64275_ - (lambda (_ctx64282_ _code64283_ _rt64284_) - (let* ((_loader-code64287_ - (call-with-parameters + (let () + (declare (not safe)) + (delete-file _scm068390_))))))) + (_generate-loader-code68360_ + (lambda (_ctx68367_ _code68368_ _rt68369_) + (let* ((_loader-code68372_ + (let ((__tmp69504 + (lambda () + (let () + (declare (not safe)) + (gxc#apply-generate-loader + _code68368_))))) + (declare (not safe)) + (call-with-parameters + __tmp69504 + gx#current-expander-context + _ctx68367_))) + (_loader-code68374_ + (if _rt68369_ + (let ((__tmp69505 + (let ((__tmp69506 + (let ((__tmp69507 + (let ((__tmp69508 + (let () + (declare + (not safe)) + (cons _rt68369_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons 'load-module __tmp69508)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp69507 '())))) + (declare (not safe)) + (cons _loader-code68372_ + __tmp69506)))) + (declare (not safe)) + (cons 'begin __tmp69505)) + _loader-code68372_))) + (let ((__tmp69509 (lambda () - (gxc#apply-generate-loader _code64283_)) - gx#current-expander-context - _ctx64282_)) - (_loader-code64289_ - (if _rt64284_ - (cons 'begin - (cons _loader-code64287_ - (cons (cons 'load-module - (cons _rt64284_ '())) - '()))) - _loader-code64287_))) + (let ((__tmp69510 + (let () + (declare (not safe)) + (gxc#compile-output-file + _ctx68367_ + 'rt + '".scm")))) + (declare (not safe)) + (gxc#compile-scm-file__0 + __tmp69510 + _loader-code68374_))))) + (declare (not safe)) + (call-with-parameters + __tmp69509 + gxc#current-compile-gsc-options + '#f)))))) + (let* ((_all-modules68362_ + (let ((__tmp69511 + (let () + (declare (not safe)) + (gxc#lift-nested-modules _ctx68355_)))) + (declare (not safe)) + (cons _ctx68355_ __tmp69511))) + (__tmp69512 + (lambda (_ctx68364_) + (let ((__tmp69513 + (lambda () + (let () + (declare (not safe)) + (_compile168357_ _ctx68364_))))) + (declare (not safe)) (call-with-parameters - (lambda () - (gxc#compile-scm-file__0 - (gxc#compile-output-file _ctx64282_ 'rt '".scm") - _loader-code64289_)) - gxc#current-compile-gsc-options - '#f))))) - (let ((_all-modules64277_ - (cons _ctx64270_ (gxc#lift-nested-modules _ctx64270_)))) - (for-each - (lambda (_ctx64279_) - (call-with-parameters - (lambda () (_compile164272_ _ctx64279_)) - gxc#current-compile-decls - '())) - _all-modules64277_))))) + __tmp69513 + gxc#current-compile-decls + '()))))) + (declare (not safe)) + (for-each __tmp69512 _all-modules68362_))))) (define gxc#compile-meta-code - (lambda (_ctx64172_) - (letrec ((_compile-ssi64174_ - (lambda (_code64240_) - (let* ((_path64242_ - (gxc#compile-output-file _ctx64172_ '#f '".ssi")) - (_prelude64253_ - (let* ((_super64244_ + (lambda (_ctx68257_) + (letrec ((_compile-ssi68259_ + (lambda (_code68325_) + (let* ((_path68327_ + (let () + (declare (not safe)) + (gxc#compile-output-file + _ctx68257_ + '#f + '".ssi"))) + (_prelude68338_ + (let* ((_super68329_ (##structure-ref - _ctx64172_ + _ctx68257_ '3 gx#phi-context::t '#f)) - (_$e64246_ + (_$e68331_ (##structure-ref - _super64244_ + _super68329_ '1 gx#expander-context::t '#f))) - (if _$e64246_ - ((lambda (_g6424864250_) - (make-symbol '":" _g6424864250_)) - _$e64246_) + (if _$e68331_ + ((lambda (_g6833368335_) + (make-symbol '":" _g6833368335_)) + _$e68331_) ':))) - (_ns64255_ + (_ns68340_ (##structure-ref - _ctx64172_ + _ctx68257_ '6 gx#module-context::t '#f)) - (_idstr64257_ - (symbol->string - (##structure-ref - _ctx64172_ - '1 - gx#expander-context::t - '#f))) - (_pkg64264_ - (let ((_$e64259_ - (string-rindex _idstr64257_ '#\/))) - (if _$e64259_ - ((lambda (_x64262_) - (string->symbol - (substring _idstr64257_ '0 _x64262_))) - _$e64259_) + (_idstr68342_ + (let ((__tmp69514 + (##structure-ref + _ctx68257_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (symbol->string __tmp69514))) + (_pkg68349_ + (let ((_$e68344_ + (let () + (declare (not safe)) + (string-rindex _idstr68342_ '#\/)))) + (if _$e68344_ + ((lambda (_x68347_) + (let ((__tmp69515 + (let () + (declare (not safe)) + (substring + _idstr68342_ + '0 + _x68347_)))) + (declare (not safe)) + (string->symbol __tmp69515))) + _$e68344_) '#f))) - (_rt64266_ - (table-ref - (gxc#current-compile-runtime-sections) - _ctx64172_ - '#f))) - (gxc#verbose '"compile " _path64242_) - (gxc#with-output-to-scheme-file - _path64242_ - (lambda () - (displayln '"prelude:" '" " _prelude64253_) - (if _pkg64264_ - (displayln '"package:" '" " _pkg64264_) - '#!void) - (displayln '"namespace:" '" " _ns64255_) - (newline) - (pretty-print _code64240_) - (if _rt64266_ - (pretty-print - (cons '%#call - (cons (cons '%#ref (cons 'load-module '())) - (cons (cons '%#quote - (cons _rt64266_ '())) - '())))) - '#!void)))))) - (_compile-phi64175_ - (lambda (_part64180_) - (let* ((_part6418164194_ _part64180_) - (_E6418364198_ + (_rt68351_ + (let ((__tmp69516 + (gxc#current-compile-runtime-sections))) + (declare (not safe)) + (table-ref __tmp69516 _ctx68257_ '#f)))) + (let () + (declare (not safe)) + (gxc#verbose '"compile " _path68327_)) + (let ((__tmp69517 + (lambda () + (displayln '"prelude:" '" " _prelude68338_) + (if _pkg68349_ + (displayln '"package:" '" " _pkg68349_) + '#!void) + (displayln '"namespace:" '" " _ns68340_) + (let () (declare (not safe)) (newline)) + (let () + (declare (not safe)) + (pretty-print _code68325_)) + (if _rt68351_ + (let ((__tmp69518 + (let ((__tmp69519 + (let ((__tmp69523 + (let ((__tmp69524 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons 'load-module '())))) + (declare (not safe)) + (cons '%#ref __tmp69524))) + (__tmp69520 + (let ((__tmp69521 + (let ((__tmp69522 + (let () + (declare (not safe)) + (cons _rt68351_ '())))) + (declare (not safe)) + (cons '%#quote __tmp69522)))) + (declare (not safe)) + (cons __tmp69521 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp69523 + __tmp69520)))) + (declare (not safe)) + (cons '%#call __tmp69519)))) + (declare (not safe)) + (pretty-print __tmp69518)) + '#!void)))) + (declare (not safe)) + (gxc#with-output-to-scheme-file + _path68327_ + __tmp69517))))) + (_compile-phi68260_ + (lambda (_part68265_) + (let* ((_part6826668279_ _part68265_) + (_E6826868283_ (lambda () - (error '"No clause matching" _part6418164194_))) - (_K6418464209_ - (lambda (_code64201_ - _n64202_ - _phi64203_ - _phi-ctx64204_) - (let ((_code64207_ - (call-with-parameters - (lambda () - (gxc#generate-runtime-phi _code64201_)) - gx#current-expander-context - _phi-ctx64204_ - gx#current-expander-phi - _phi64203_))) + (error '"No clause matching" _part6826668279_))) + (_K6826968294_ + (lambda (_code68286_ + _n68287_ + _phi68288_ + _phi-ctx68289_) + (let* ((_code68292_ + (let ((__tmp69525 + (lambda () + (let () + (declare (not safe)) + (gxc#generate-runtime-phi + _code68286_))))) + (declare (not safe)) + (call-with-parameters + __tmp69525 + gx#current-expander-context + _phi-ctx68289_ + gx#current-expander-phi + _phi68288_))) + (__tmp69526 + (let () + (declare (not safe)) + (gxc#compile-output-file + _ctx68257_ + _n68287_ + '".scm")))) + (declare (not safe)) (gxc#compile-scm-file__% - (gxc#compile-output-file - _ctx64172_ - _n64202_ - '".scm") - _code64207_ + __tmp69526 + _code68292_ '#t))))) (if (let () (declare (not safe)) - (##pair? _part6418164194_)) - (let ((_hd6418564212_ + (##pair? _part6826668279_)) + (let ((_hd6827068297_ (let () (declare (not safe)) - (##car _part6418164194_))) - (_tl6418664214_ + (##car _part6826668279_))) + (_tl6827168299_ (let () (declare (not safe)) - (##cdr _part6418164194_)))) - (let ((_phi-ctx64217_ _hd6418564212_)) + (##cdr _part6826668279_)))) + (let ((_phi-ctx68302_ _hd6827068297_)) (if (let () (declare (not safe)) - (##pair? _tl6418664214_)) - (let ((_hd6418764219_ + (##pair? _tl6827168299_)) + (let ((_hd6827268304_ (let () (declare (not safe)) - (##car _tl6418664214_))) - (_tl6418864221_ + (##car _tl6827168299_))) + (_tl6827368306_ (let () (declare (not safe)) - (##cdr _tl6418664214_)))) - (let ((_phi64224_ _hd6418764219_)) + (##cdr _tl6827168299_)))) + (let ((_phi68309_ _hd6827268304_)) (if (let () (declare (not safe)) - (##pair? _tl6418864221_)) - (let ((_hd6418964226_ + (##pair? _tl6827368306_)) + (let ((_hd6827468311_ (let () (declare (not safe)) - (##car _tl6418864221_))) - (_tl6419064228_ + (##car _tl6827368306_))) + (_tl6827568313_ (let () (declare (not safe)) - (##cdr _tl6418864221_)))) - (let ((_n64231_ _hd6418964226_)) + (##cdr _tl6827368306_)))) + (let ((_n68316_ _hd6827468311_)) (if (let () (declare (not safe)) - (##pair? _tl6419064228_)) - (let ((_hd6419164233_ + (##pair? _tl6827568313_)) + (let ((_hd6827668318_ (let () (declare (not safe)) - (##car _tl6419064228_))) - (_tl6419264235_ + (##car _tl6827568313_))) + (_tl6827768320_ (let () (declare (not safe)) - (##cdr _tl6419064228_)))) - (let ((_code64238_ - _hd6419164233_)) + (##cdr _tl6827568313_)))) + (let ((_code68323_ + _hd6827668318_)) (if (let () (declare (not safe)) - (##null? _tl6419264235_)) - (_K6418464209_ - _code64238_ - _n64231_ - _phi64224_ - _phi-ctx64217_) - (_E6418364198_)))) - (_E6418364198_)))) - (_E6418364198_)))) - (_E6418364198_)))) - (_E6418364198_)))))) - (let ((_g65219_ (gxc#generate-meta-code _ctx64172_))) + (##null? _tl6827768320_)) + (let () + (declare + (not safe)) + (_K6826968294_ + _code68323_ + _n68316_ + _phi68309_ + _phi-ctx68302_)) + (let () + (declare + (not safe)) + (_E6826868283_))))) + (let () + (declare (not safe)) + (_E6826868283_))))) + (let () + (declare (not safe)) + (_E6826868283_))))) + (let () + (declare (not safe)) + (_E6826868283_))))) + (let () (declare (not safe)) (_E6826868283_))))))) + (let ((_g69527_ + (let () + (declare (not safe)) + (gxc#generate-meta-code _ctx68257_)))) (begin - (let ((_g65220_ + (let ((_g69528_ (let () (declare (not safe)) - (if (##values? _g65219_) - (##vector-length _g65219_) + (if (##values? _g69527_) + (##vector-length _g69527_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g65220_ 2))) - (error "Context expects 2 values" _g65220_))) - (let ((_ssi-code64177_ - (let () (declare (not safe)) (##vector-ref _g65219_ 0))) - (_phi-code64178_ - (let () (declare (not safe)) (##vector-ref _g65219_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g69528_ 2))) + (error "Context expects 2 values" _g69528_))) + (let ((_ssi-code68262_ + (let () (declare (not safe)) (##vector-ref _g69527_ 0))) + (_phi-code68263_ + (let () (declare (not safe)) (##vector-ref _g69527_ 1)))) (begin - (_compile-ssi64174_ _ssi-code64177_) - (for-each _compile-phi64175_ _phi-code64178_)))))))) + (let () + (declare (not safe)) + (_compile-ssi68259_ _ssi-code68262_)) + (let () + (declare (not safe)) + (for-each _compile-phi68260_ _phi-code68263_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx64155_) - (let* ((_path64157_ - (gxc#compile-output-file _ctx64155_ '#f '".ssxi.ss")) - (_code64159_ - (gxc#apply-generate-ssxi - (##structure-ref _ctx64155_ '11 gx#module-context::t '#f))) - (_idstr64161_ - (symbol->string - (##structure-ref _ctx64155_ '1 gx#expander-context::t '#f))) - (_pkg64168_ - (let ((_$e64163_ (string-rindex _idstr64161_ '#\/))) - (if _$e64163_ - ((lambda (_x64166_) - (string->symbol (substring _idstr64161_ '0 _x64166_))) - _$e64163_) + (lambda (_ctx68240_) + (let* ((_path68242_ + (let () + (declare (not safe)) + (gxc#compile-output-file _ctx68240_ '#f '".ssxi.ss"))) + (_code68244_ + (let ((__tmp69529 + (##structure-ref + _ctx68240_ + '11 + gx#module-context::t + '#f))) + (declare (not safe)) + (gxc#apply-generate-ssxi __tmp69529))) + (_idstr68246_ + (let ((__tmp69530 + (##structure-ref + _ctx68240_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (symbol->string __tmp69530))) + (_pkg68253_ + (let ((_$e68248_ + (let () + (declare (not safe)) + (string-rindex _idstr68246_ '#\/)))) + (if _$e68248_ + ((lambda (_x68251_) + (let ((__tmp69531 + (let () + (declare (not safe)) + (substring _idstr68246_ '0 _x68251_)))) + (declare (not safe)) + (string->symbol __tmp69531))) + _$e68248_) '#f)))) - (gxc#verbose '"compile " _path64157_) - (gxc#with-output-to-scheme-file - _path64157_ - (lambda () - (displayln '"prelude: :gerbil/compiler/ssxi") - (if _pkg64168_ (displayln '"package: " _pkg64168_) '#!void) - (newline) - (pretty-print _code64159_)))))) + (let () (declare (not safe)) (gxc#verbose '"compile " _path68242_)) + (let ((__tmp69532 + (lambda () + (displayln '"prelude: :gerbil/compiler/ssxi") + (if _pkg68253_ (displayln '"package: " _pkg68253_) '#!void) + (let () (declare (not safe)) (newline)) + (let () (declare (not safe)) (pretty-print _code68244_))))) + (declare (not safe)) + (gxc#with-output-to-scheme-file _path68242_ __tmp69532))))) (define gxc#generate-meta-code - (lambda (_ctx64148_) - (let* ((_state64150_ - (let ((__obj65214 (make-object gxc#meta-state::t '4))) - (gxc#meta-state:::init! __obj65214 _ctx64148_) - __obj65214)) - (_ssi-code64152_ - (gxc#apply-generate-meta - (##structure-ref _ctx64148_ '11 gx#module-context::t '#f) - _state64150_))) - (values _ssi-code64152_ (gxc#meta-state-end! _state64150_))))) + (lambda (_ctx68233_) + (let* ((_state68235_ + (let ((__obj69299 (make-object gxc#meta-state::t '4))) + (let () + (declare (not safe)) + (gxc#meta-state:::init! __obj69299 _ctx68233_)) + __obj69299)) + (_ssi-code68237_ + (let ((__tmp69533 + (##structure-ref + _ctx68233_ + '11 + gx#module-context::t + '#f))) + (declare (not safe)) + (gxc#apply-generate-meta __tmp69533 _state68235_)))) + (values _ssi-code68237_ + (let () + (declare (not safe)) + (gxc#meta-state-end! _state68235_)))))) (define gxc#generate-runtime-phi - (lambda (_stx64141_) - (let ((_lifts64143_ (box '()))) - (call-with-parameters - (lambda () - (let ((_code64146_ (gxc#apply-generate-runtime-phi _stx64141_))) - (if (null? (unbox _lifts64143_)) - _code64146_ - (cons 'begin - (foldr1 cons - (cons _code64146_ '()) - (reverse (unbox _lifts64143_))))))) - gxc#current-compile-lift - _lifts64143_ - gxc#current-compile-marks - (make-table 'test: eq?) - gxc#current-compile-identifiers - (gxc#make-bound-identifier-table))))) + (lambda (_stx68226_) + (let ((_lifts68228_ (let () (declare (not safe)) (box '())))) + (let ((__tmp69536 + (lambda () + (let ((_code68231_ + (let () + (declare (not safe)) + (gxc#apply-generate-runtime-phi _stx68226_)))) + (if (let ((__tmp69541 + (let () + (declare (not safe)) + (unbox _lifts68228_)))) + (declare (not safe)) + (null? __tmp69541)) + _code68231_ + (let ((__tmp69537 + (let ((__tmp69540 + (let () + (declare (not safe)) + (cons _code68231_ '()))) + (__tmp69538 + (let ((__tmp69539 + (let () + (declare (not safe)) + (unbox _lifts68228_)))) + (declare (not safe)) + (reverse __tmp69539)))) + (declare (not safe)) + (foldr1 cons __tmp69540 __tmp69538)))) + (declare (not safe)) + (cons 'begin __tmp69537)))))) + (__tmp69535 + (let () (declare (not safe)) (make-table 'test: eq?))) + (__tmp69534 + (let () + (declare (not safe)) + (gxc#make-bound-identifier-table)))) + (declare (not safe)) + (call-with-parameters + __tmp69536 + gxc#current-compile-lift + _lifts68228_ + gxc#current-compile-marks + __tmp69535 + gxc#current-compile-identifiers + __tmp69534))))) (define gxc#lift-nested-modules - (lambda (_ctx64137_) - (let ((_modules64139_ (box '()))) - (gxc#apply-lift-modules - (##structure-ref _ctx64137_ '11 gx#module-context::t '#f) - _modules64139_) - (reverse (unbox _modules64139_))))) + (lambda (_ctx68222_) + (let ((_modules68224_ (let () (declare (not safe)) (box '())))) + (let ((__tmp69542 + (##structure-ref _ctx68222_ '11 gx#module-context::t '#f))) + (declare (not safe)) + (gxc#apply-lift-modules __tmp69542 _modules68224_)) + (let ((__tmp69543 + (let () (declare (not safe)) (unbox _modules68224_)))) + (declare (not safe)) + (reverse __tmp69543))))) (define gxc#compile-scm-file__% - (lambda (_path64120_ _code64121_ _phi?64122_) - (gxc#verbose '"compile " _path64120_) - (gxc#with-output-to-scheme-file - _path64120_ - (lambda () - (pretty-print - (cons 'declare - (cons (cons 'block '()) - (cons (cons 'standard-bindings '()) - (cons (cons 'extended-bindings '()) - (foldr1 cons - '() - (if _phi?64122_ - '((inlining-limit 200)) - '()))))))) - (pretty-print _code64121_))) + (lambda (_path68205_ _code68206_ _phi?68207_) + (let () (declare (not safe)) (gxc#verbose '"compile " _path68205_)) + (let ((__tmp69544 + (lambda () + (let ((__tmp69545 + (let ((__tmp69546 + (let ((__tmp69553 + (let () + (declare (not safe)) + (cons 'block '()))) + (__tmp69547 + (let ((__tmp69552 + (let () + (declare (not safe)) + (cons 'standard-bindings '()))) + (__tmp69548 + (let ((__tmp69551 + (let () + (declare (not safe)) + (cons 'extended-bindings + '()))) + (__tmp69549 + (let ((__tmp69550 + (if _phi?68207_ + '((inlining-limit +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + 200)) + '()))) + (declare (not safe)) + (foldr1 cons '() __tmp69550)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp69551 __tmp69549)))) + (declare (not safe)) + (cons __tmp69552 __tmp69548)))) + (declare (not safe)) + (cons __tmp69553 __tmp69547)))) + (declare (not safe)) + (cons 'declare __tmp69546)))) + (declare (not safe)) + (pretty-print __tmp69545)) + (let () (declare (not safe)) (pretty-print _code68206_))))) + (declare (not safe)) + (gxc#with-output-to-scheme-file _path68205_ __tmp69544)) (if (gxc#current-compile-invoke-gsc) - (gxc#gsc-compile-file _path64120_ _phi?64122_) + (let () + (declare (not safe)) + (gxc#gsc-compile-file _path68205_ _phi?68207_)) '#!void) - (if (gxc#current-compile-keep-scm) '#!void (delete-file _path64120_)))) + (if (gxc#current-compile-keep-scm) + '#!void + (let () (declare (not safe)) (delete-file _path68205_))))) (define gxc#compile-scm-file__0 - (lambda (_path64128_ _code64129_) - (let ((_phi?64131_ '#f)) - (gxc#compile-scm-file__% _path64128_ _code64129_ _phi?64131_)))) + (lambda (_path68213_ _code68214_) + (let ((_phi?68216_ '#f)) + (declare (not safe)) + (gxc#compile-scm-file__% _path68213_ _code68214_ _phi?68216_)))) (define gxc#compile-scm-file - (lambda _g65222_ - (let ((_g65221_ (let () (declare (not safe)) (##length _g65222_)))) - (cond ((let () (declare (not safe)) (##fx= _g65221_ 2)) - (apply gxc#compile-scm-file__0 _g65222_)) - ((let () (declare (not safe)) (##fx= _g65221_ 3)) - (apply gxc#compile-scm-file__% _g65222_)) + (lambda _g69555_ + (let ((_g69554_ (let () (declare (not safe)) (##length _g69555_)))) + (cond ((let () (declare (not safe)) (##fx= _g69554_ 2)) + (apply (lambda (_path68213_ _code68214_) + (let () + (declare (not safe)) + (gxc#compile-scm-file__0 _path68213_ _code68214_))) + _g69555_)) + ((let () (declare (not safe)) (##fx= _g69554_ 3)) + (apply (lambda (_path68218_ _code68219_ _phi?68220_) + (let () + (declare (not safe)) + (gxc#compile-scm-file__% + _path68218_ + _code68219_ + _phi?68220_))) + _g69555_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g65222_)))))) + _g69555_)))))) (define gxc#gsc-debug-options__% - (lambda (_phi?64040_) + (lambda (_phi?68125_) (if (gxc#current-compile-debug) - (if _phi?64040_ + (if _phi?68125_ '() - (cons '"-debug-source" - (cons '"-track-scheme" - (cons '"-cc-options" (cons '"-g" '()))))) + (let ((__tmp69556 + (let ((__tmp69557 + (let ((__tmp69558 + (let () + (declare (not safe)) + (cons '"-g" '())))) + (declare (not safe)) + (cons '"-cc-options" __tmp69558)))) + (declare (not safe)) + (cons '"-track-scheme" __tmp69557)))) + (declare (not safe)) + (cons '"-debug-source" __tmp69556))) '()))) (define gxc#gsc-debug-options__0 (lambda () - (let ((_phi?64115_ '#f)) (gxc#gsc-debug-options__% _phi?64115_)))) + (let ((_phi?68200_ '#f)) + (declare (not safe)) + (gxc#gsc-debug-options__% _phi?68200_)))) (define gxc#gsc-debug-options - (lambda _g65224_ - (let ((_g65223_ (let () (declare (not safe)) (##length _g65224_)))) - (cond ((let () (declare (not safe)) (##fx= _g65223_ 0)) - (apply gxc#gsc-debug-options__0 _g65224_)) - ((let () (declare (not safe)) (##fx= _g65223_ 1)) - (apply gxc#gsc-debug-options__% _g65224_)) + (lambda _g69560_ + (let ((_g69559_ (let () (declare (not safe)) (##length _g69560_)))) + (cond ((let () (declare (not safe)) (##fx= _g69559_ 0)) + (apply (lambda () + (let () + (declare (not safe)) + (gxc#gsc-debug-options__0))) + _g69560_)) + ((let () (declare (not safe)) (##fx= _g69559_ 1)) + (apply (lambda (_phi?68202_) + (let () + (declare (not safe)) + (gxc#gsc-debug-options__% _phi?68202_))) + _g69560_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-debug-options - _g65224_)))))) + _g69560_)))))) (define gxc#gsc-compile-file - (lambda (_path64026_ _phi?64027_) - (let* ((_gsc-args64034_ - (let ((_$e64029_ (gxc#current-compile-gsc-options))) - (if _$e64029_ - ((lambda (_opts64032_) - (foldr1 cons (cons _path64026_ '()) _opts64032_)) - _$e64029_) - (cons _path64026_ '())))) - (_gsc-args64036_ - (foldr1 cons - _gsc-args64034_ - (gxc#gsc-debug-options__% _phi?64027_)))) - (gxc#invoke (gxc#gerbil-gsc) _gsc-args64036_)))) + (lambda (_path68111_ _phi?68112_) + (let* ((_gsc-args68119_ + (let ((_$e68114_ (gxc#current-compile-gsc-options))) + (if _$e68114_ + ((lambda (_opts68117_) + (let ((__tmp69561 + (let () + (declare (not safe)) + (cons _path68111_ '())))) + (declare (not safe)) + (foldr1 cons __tmp69561 _opts68117_))) + _$e68114_) + (let () (declare (not safe)) (cons _path68111_ '()))))) + (_gsc-args68121_ + (let ((__tmp69562 + (let () + (declare (not safe)) + (gxc#gsc-debug-options__% _phi?68112_)))) + (declare (not safe)) + (foldr1 cons _gsc-args68119_ __tmp69562)))) + (let ((__tmp69563 (let () (declare (not safe)) (gxc#gerbil-gsc)))) + (declare (not safe)) + (gxc#invoke __tmp69563 _gsc-args68121_))))) (define gxc#compile-output-file - (lambda (_ctx63998_ _n63999_ _ext64000_) - (letrec ((_module-relative-path64002_ - (lambda (_ctx64024_) - (path-strip-directory - (gxc#module-id->path-string - (##structure-ref - _ctx64024_ - '1 - gx#expander-context::t - '#f))))) - (_module-source-directory64003_ - (lambda (_ctx64020_) - (path-directory - (let ((_mpath64022_ - (##structure-ref - _ctx64020_ - '7 - gx#module-context::t - '#f))) - (if (string? _mpath64022_) - _mpath64022_ - (last _mpath64022_)))))) - (_section-string64004_ - (lambda (_n64018_) - (if (number? _n64018_) - (number->string _n64018_) - (if (symbol? _n64018_) - (symbol->string _n64018_) - (if (string? _n64018_) - _n64018_ - (gxc#raise-compile-error - '"Unexpected section" - _n64018_)))))) - (_file-name64005_ - (lambda (_path64016_) - (if _n63999_ + (lambda (_ctx68083_ _n68084_ _ext68085_) + (letrec ((_module-relative-path68087_ + (lambda (_ctx68109_) + (let ((__tmp69564 + (let ((__tmp69565 + (##structure-ref + _ctx68109_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (gxc#module-id->path-string __tmp69565)))) + (declare (not safe)) + (path-strip-directory __tmp69564)))) + (_module-source-directory68088_ + (lambda (_ctx68105_) + (let ((__tmp69566 + (let ((_mpath68107_ + (##structure-ref + _ctx68105_ + '7 + gx#module-context::t + '#f))) + (if (let () + (declare (not safe)) + (string? _mpath68107_)) + _mpath68107_ + (let () + (declare (not safe)) + (last _mpath68107_)))))) + (declare (not safe)) + (path-directory __tmp69566)))) + (_section-string68089_ + (lambda (_n68103_) + (if (let () (declare (not safe)) (number? _n68103_)) + (let () (declare (not safe)) (number->string _n68103_)) + (if (let () (declare (not safe)) (symbol? _n68103_)) + (let () + (declare (not safe)) + (symbol->string _n68103_)) + (if (let () + (declare (not safe)) + (string? _n68103_)) + _n68103_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Unexpected section" + _n68103_))))))) + (_file-name68090_ + (lambda (_path68101_) + (if _n68084_ (string-append - _path64016_ + _path68101_ '"__" - (_section-string64004_ _n63999_) - _ext64000_) - (string-append _path64016_ _ext64000_)))) - (_file-path64006_ + (let () + (declare (not safe)) + (_section-string68089_ _n68084_)) + _ext68085_) + (string-append _path68101_ _ext68085_)))) + (_file-path68091_ (lambda () - (let ((_$e64011_ (gxc#current-compile-output-dir))) - (if _$e64011_ - ((lambda (_outdir64014_) - (path-expand - (_file-name64005_ - (gxc#module-id->path-string - (##structure-ref - _ctx63998_ - '1 - gx#expander-context::t - '#f))) - _outdir64014_)) - _$e64011_) - (path-expand - (_file-name64005_ - (_module-relative-path64002_ _ctx63998_)) - (_module-source-directory64003_ _ctx63998_))))))) - (let ((_path64008_ (_file-path64006_))) - (create-directory* (path-directory _path64008_)) - _path64008_)))) + (let ((_$e68096_ (gxc#current-compile-output-dir))) + (if _$e68096_ + ((lambda (_outdir68099_) + (let ((__tmp69570 + (let ((__tmp69571 + (let ((__tmp69572 + (##structure-ref + _ctx68083_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (gxc#module-id->path-string + __tmp69572)))) + (declare (not safe)) + (_file-name68090_ __tmp69571)))) + (declare (not safe)) + (path-expand __tmp69570 _outdir68099_))) + _$e68096_) + (let ((__tmp69568 + (let ((__tmp69569 + (let () + (declare (not safe)) + (_module-relative-path68087_ + _ctx68083_)))) + (declare (not safe)) + (_file-name68090_ __tmp69569))) + (__tmp69567 + (let () + (declare (not safe)) + (_module-source-directory68088_ + _ctx68083_)))) + (declare (not safe)) + (path-expand __tmp69568 __tmp69567))))))) + (let ((_path68093_ (let () (declare (not safe)) (_file-path68091_)))) + (let ((__tmp69573 + (let () (declare (not safe)) (path-directory _path68093_)))) + (declare (not safe)) + (create-directory* __tmp69573)) + _path68093_)))) (define gxc#compile-static-output-file - (lambda (_ctx63981_) - (letrec ((_file-name63983_ - (lambda (_id63996_) + (lambda (_ctx68066_) + (letrec ((_file-name68068_ + (lambda (_id68081_) (string-append - (gxc#static-module-name _id63996_) + (let () + (declare (not safe)) + (gxc#static-module-name _id68081_)) '".scm"))) - (_file-path63984_ + (_file-path68069_ (lambda () - (let* ((_file63989_ - (_file-name63983_ + (let* ((_file68074_ + (let ((__tmp69574 + (##structure-ref + _ctx68066_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (_file-name68068_ __tmp69574))) + (_$e68076_ (gxc#current-compile-output-dir))) + (if _$e68076_ + ((lambda (_outdir68079_) + (let ((__tmp69575 + (let () + (declare (not safe)) + (path-expand '"static" _outdir68079_)))) + (declare (not safe)) + (path-expand _file68074_ __tmp69575))) + _$e68076_) + (let () + (declare (not safe)) + (path-expand _file68074_ '"static"))))))) + (let ((_path68071_ (let () (declare (not safe)) (_file-path68069_)))) + (let ((__tmp69576 + (let () (declare (not safe)) (path-directory _path68071_)))) + (declare (not safe)) + (create-directory* __tmp69576)) + _path68071_)))) + (define gxc#compile-exe-output-file + (lambda (_ctx68053_ _opts68054_) + (let ((_$e68056_ + (let () + (declare (not safe)) + (pgetq 'output-file: _opts68054_)))) + (if _$e68056_ + (values _$e68056_) + (let* ((_mod-str68059_ + (let ((__tmp69577 (##structure-ref - _ctx63981_ + _ctx68053_ '1 gx#expander-context::t '#f))) - (_$e63991_ (gxc#current-compile-output-dir))) - (if _$e63991_ - ((lambda (_outdir63994_) - (path-expand - _file63989_ - (path-expand '"static" _outdir63994_))) - _$e63991_) - (path-expand _file63989_ '"static")))))) - (let ((_path63986_ (_file-path63984_))) - (create-directory* (path-directory _path63986_)) - _path63986_)))) - (define gxc#compile-exe-output-file - (lambda (_ctx63968_ _opts63969_) - (let ((_$e63971_ (pgetq 'output-file: _opts63969_))) - (if _$e63971_ - (values _$e63971_) - (let* ((_mod-str63974_ - (symbol->string - (##structure-ref - _ctx63968_ - '1 - gx#expander-context::t - '#f))) - (_$e63976_ (string-rindex _mod-str63974_ '#\/))) - (if _$e63976_ - ((lambda (_ix63979_) - (substring - _mod-str63974_ - (fx+ _ix63979_ '1) - (string-length _mod-str63974_))) - _$e63976_) - _mod-str63974_)))))) + (declare (not safe)) + (symbol->string __tmp69577))) + (_$e68061_ + (let () + (declare (not safe)) + (string-rindex _mod-str68059_ '#\/)))) + (if _$e68061_ + ((lambda (_ix68064_) + (let ((__tmp69579 + (let () (declare (not safe)) (fx+ _ix68064_ '1))) + (__tmp69578 + (let () + (declare (not safe)) + (string-length _mod-str68059_)))) + (declare (not safe)) + (substring _mod-str68059_ __tmp69579 __tmp69578))) + _$e68061_) + _mod-str68059_)))))) (define gxc#static-module-name - (lambda (_idstr63961_) - (if (string? _idstr63961_) - (let* ((_str63963_ (gxc#module-id->path-string _idstr63961_)) - (_strs63965_ (string-split _str63963_ '#\/))) - (string-join _strs63965_ '"__")) - (if (symbol? _idstr63961_) - (gxc#static-module-name (symbol->string _idstr63961_)) - (error '"Bad module id" _idstr63961_))))) + (lambda (_idstr68046_) + (if (let () (declare (not safe)) (string? _idstr68046_)) + (let* ((_str68048_ + (let () + (declare (not safe)) + (gxc#module-id->path-string _idstr68046_))) + (_strs68050_ + (let () + (declare (not safe)) + (string-split _str68048_ '#\/)))) + (let () (declare (not safe)) (string-join _strs68050_ '"__"))) + (if (let () (declare (not safe)) (symbol? _idstr68046_)) + (let ((__tmp69580 + (let () + (declare (not safe)) + (symbol->string _idstr68046_)))) + (declare (not safe)) + (gxc#static-module-name __tmp69580)) + (error '"Bad module id" _idstr68046_))))) (define gxc#invoke - (lambda (_program63953_ _args63954_) - (gxc#verbose '"invoke " (cons _program63953_ _args63954_)) - (let* ((_proc63956_ - (open-process - (cons 'path: - (cons _program63953_ - (cons 'arguments: - (cons _args63954_ - (cons 'stdout-redirection: - (cons '#f - (cons 'stderr-redirection: - (cons '#f + (lambda (_program68038_ _args68039_) + (let ((__tmp69581 + (let () + (declare (not safe)) + (cons _program68038_ _args68039_)))) + (declare (not safe)) + (gxc#verbose '"invoke " __tmp69581)) + (let* ((_proc68041_ + (let ((__tmp69582 + (let ((__tmp69583 + (let ((__tmp69584 + (let ((__tmp69585 + (let ((__tmp69586 + (let ((__tmp69587 + (let ((__tmp69588 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))))))) + (let ((__tmp69589 + (let () (declare (not safe)) (cons '#f '())))) + (declare (not safe)) + (cons 'stderr-redirection: __tmp69589)))) + (declare (not safe)) + (cons '#f __tmp69588)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_status63958_ (process-status _proc63956_))) - (close-port _proc63956_) - (if (zero? _status63958_) + (declare (not safe)) + (cons 'stdout-redirection: + __tmp69587)))) + (declare (not safe)) + (cons _args68039_ __tmp69586)))) + (declare (not safe)) + (cons 'arguments: __tmp69585)))) + (declare (not safe)) + (cons _program68038_ __tmp69584)))) + (declare (not safe)) + (cons 'path: __tmp69583)))) + (declare (not safe)) + (open-process __tmp69582))) + (_status68043_ + (let () (declare (not safe)) (process-status _proc68041_)))) + (let () (declare (not safe)) (close-port _proc68041_)) + (if (let () (declare (not safe)) (zero? _status68043_)) '#!void - (gxc#raise-compile-error - '"Compilation error; process exit with nonzero status" - _program63953_))))))) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Compilation error; process exit with nonzero status" + _program68038_)))))))) diff --git a/src/bootstrap/gerbil/compiler/driver__1.scm b/src/bootstrap/gerbil/compiler/driver__1.scm index 801593035..cec40c46b 100644 --- a/src/bootstrap/gerbil/compiler/driver__1.scm +++ b/src/bootstrap/gerbil/compiler/driver__1.scm @@ -1,45 +1,81 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |gxc[:0:]#with-driver-mutex| - (lambda (_$stx63889_) - (let* ((_g6389363907_ - (lambda (_g6389463903_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6389463903_))) - (_g6389263949_ - (lambda (_g6389463911_) - (if (gx#stx-pair? _g6389463911_) - (let ((_e6389663914_ (gx#syntax-e _g6389463911_))) - (let ((_hd6389763918_ - (let () (declare (not safe)) (##car _e6389663914_))) - (_tl6389863921_ + (lambda (_$stx67974_) + (let* ((_g6797867992_ + (lambda (_g6797967988_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g6797967988_)))) + (_g6797768034_ + (lambda (_g6797967996_) + (if (let () (declare (not safe)) (gx#stx-pair? _g6797967996_)) + (let ((_e6798367999_ + (let () + (declare (not safe)) + (gx#syntax-e _g6797967996_)))) + (let ((_hd6798268003_ + (let () (declare (not safe)) (##car _e6798367999_))) + (_tl6798168006_ (let () (declare (not safe)) - (##cdr _e6389663914_)))) - (if (gx#stx-pair? _tl6389863921_) - (let ((_e6389963924_ (gx#syntax-e _tl6389863921_))) - (let ((_hd6390063928_ + (##cdr _e6798367999_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6798168006_)) + (let ((_e6798668009_ + (let () + (declare (not safe)) + (gx#syntax-e _tl6798168006_)))) + (let ((_hd6798568013_ (let () (declare (not safe)) - (##car _e6389963924_))) - (_tl6390163931_ + (##car _e6798668009_))) + (_tl6798468016_ (let () (declare (not safe)) - (##cdr _e6389963924_)))) - (if (gx#stx-null? _tl6390163931_) - ((lambda (_L63934_) - (cons (gx#datum->syntax__0 '#f 'with-lock) - (cons (gx#datum->syntax__0 - '#f - '+driver-mutex+) - (cons (cons (gx#datum->syntax__0 - '#f - 'lambda) - (cons '() + (##cdr _e6798668009_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6798468016_)) + ((lambda (_L68019_) + (let ((__tmp69597 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'with-lock))) + (__tmp69590 + (let ((__tmp69596 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '+driver-mutex+))) + (__tmp69591 + (let ((__tmp69592 + (let ((__tmp69595 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L63934_ '()))) - '())))) + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'lambda))) + (__tmp69593 + (let ((__tmp69594 + (let () + (declare (not safe)) + (cons _L68019_ '())))) + (declare (not safe)) + (cons '() __tmp69594)))) + (declare (not safe)) + (cons __tmp69595 __tmp69593)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd6390063928_) - (_g6389363907_ _g6389463911_)))) - (_g6389363907_ _g6389463911_)))) - (_g6389363907_ _g6389463911_))))) - (_g6389263949_ _$stx63889_)))) + (declare (not safe)) + (cons __tmp69592 '())))) + (declare (not safe)) + (cons __tmp69596 __tmp69591)))) + (declare (not safe)) + (cons __tmp69597 __tmp69590))) + _hd6798568013_) + (_g6797867992_ _g6797967996_)))) + (_g6797867992_ _g6797967996_)))) + (_g6797867992_ _g6797967996_))))) + (_g6797768034_ _$stx67974_)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index 68c34d1b3..3026e7859 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm @@ -1,2645 +1,3912 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1695199295) + (define gerbil/compiler/optimize-ann::timestamp 1695292409) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated - (make-promise - (lambda () - (let ((_tbl53705_ (make-table 'test: eq?))) - (hash-copy! _tbl53705_ (force gxc#&basic-xform)) - (table-set! _tbl53705_ '%#begin-annotation gxc#optimize-annotation%) - _tbl53705_)))) + (let ((__tmp59954 + (lambda () + (let ((_tbl56864_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp59955 + (let () + (declare (not safe)) + (force gxc#&basic-xform)))) + (declare (not safe)) + (hash-copy! _tbl56864_ __tmp59955)) + (let () + (declare (not safe)) + (table-set! + _tbl56864_ + '%#begin-annotation + gxc#optimize-annotation%)) + _tbl56864_)))) + (declare (not safe)) + (make-promise __tmp59954))) (define gxc#apply-optimize-annotated - (lambda (_stx53698_ . _args53700_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx53698_ _args53700_)) - gxc#current-compile-methods - (force gxc#&optmize-annotated)))) + (lambda (_stx56857_ . _args56859_) + (let ((__tmp59957 + (lambda () (apply gxc#compile-e _stx56857_ _args56859_))) + (__tmp59956 + (let () (declare (not safe)) (force gxc#&optmize-annotated)))) + (declare (not safe)) + (call-with-parameters + __tmp59957 + gxc#current-compile-methods + __tmp59956)))) (define gxc#&generate-runtime-repr - (make-promise - (lambda () - (let ((_tbl53695_ (make-table 'test: eq?))) - (hash-copy! _tbl53695_ (force gxc#&generate-runtime)) - (table-set! _tbl53695_ '%#quote-syntax identity) - _tbl53695_)))) + (let ((__tmp59958 + (lambda () + (let ((_tbl56854_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp59959 + (let () + (declare (not safe)) + (force gxc#&generate-runtime)))) + (declare (not safe)) + (hash-copy! _tbl56854_ __tmp59959)) + (let () + (declare (not safe)) + (table-set! _tbl56854_ '%#quote-syntax identity)) + _tbl56854_)))) + (declare (not safe)) + (make-promise __tmp59958))) (define gxc#apply-generate-runtime-repr - (lambda (_stx53688_ . _args53690_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx53688_ _args53690_)) - gxc#current-compile-methods - (force gxc#&generate-runtime-repr)))) + (lambda (_stx56847_ . _args56849_) + (let ((__tmp59961 + (lambda () (apply gxc#compile-e _stx56847_ _args56849_))) + (__tmp59960 + (let () + (declare (not safe)) + (force gxc#&generate-runtime-repr)))) + (declare (not safe)) + (call-with-parameters + __tmp59961 + gxc#current-compile-methods + __tmp59960)))) (define gxc#&push-match-vars - (make-promise - (lambda () - (let ((_tbl53685_ (make-table 'test: eq?))) - (table-set! _tbl53685_ '%#lambda gxc#xform-lambda%) - (table-set! - _tbl53685_ - '%#let-values - gxc#push-match-vars-let-values%) - (table-set! _tbl53685_ '%#letrec-values gxc#push-match-vars-stop) - (table-set! _tbl53685_ '%#if gxc#push-match-vars-if%) - (table-set! _tbl53685_ '%#call gxc#push-match-vars-call%) - _tbl53685_)))) + (let ((__tmp59962 + (lambda () + (let ((_tbl56844_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! _tbl56844_ '%#lambda gxc#xform-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl56844_ + '%#let-values + gxc#push-match-vars-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl56844_ + '%#letrec-values + gxc#push-match-vars-stop)) + (let () + (declare (not safe)) + (table-set! _tbl56844_ '%#if gxc#push-match-vars-if%)) + (let () + (declare (not safe)) + (table-set! _tbl56844_ '%#call gxc#push-match-vars-call%)) + _tbl56844_)))) + (declare (not safe)) + (make-promise __tmp59962))) (define gxc#apply-push-match-vars - (lambda (_stx53678_ . _args53680_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx53678_ _args53680_)) - gxc#current-compile-methods - (force gxc#&push-match-vars)))) - (define gxc#current-annotation-optimizer (make-parameter '())) + (lambda (_stx56837_ . _args56839_) + (let ((__tmp59964 + (lambda () (apply gxc#compile-e _stx56837_ _args56839_))) + (__tmp59963 + (let () (declare (not safe)) (force gxc#&push-match-vars)))) + (declare (not safe)) + (call-with-parameters + __tmp59964 + gxc#current-compile-methods + __tmp59963)))) + (define gxc#current-annotation-optimizer + (let () (declare (not safe)) (make-parameter '()))) (define gxc#optimize-annotation% - (lambda (_stx53596_) - (let* ((___stx5372153722_ _stx53596_) - (_g5359953616_ + (lambda (_stx56755_) + (let* ((___stx5688056881_ _stx56755_) + (_g5675856775_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5372153722_)))) - (let ((___kont5372353724_ - (lambda (_L53652_ _L53653_) - (let ((_ann53669_ (gx#stx-e _L53653_))) - (call-with-parameters - (lambda () - (let ((_$e53672_ _ann53669_)) - (if (eq? '@match _$e53672_) - (begin - (gxc#verbose '"Optimizing match expansion") - (gxc#optimize-match _L53652_)) - (if (eq? '@syntax-case _$e53672_) - (begin - (gxc#verbose - '"Optimizing syntax-case expansion") - (gxc#optimize-syntax-case _L53652_)) - (gxc#compile-e _L53652_))))) - gxc#current-annotation-optimizer - (cons _ann53669_ (gxc#current-annotation-optimizer)))))) - (___kont5372553726_ - (lambda () (gxc#xform-begin-annotation% _stx53596_)))) - (let ((___match5374653747_ - (lambda (_e5360353628_ - _hd5360453631_ - _tl5360553633_ - _e5360653636_ - _hd5360753639_ - _tl5360853641_ - _e5360953644_ - _hd5361053647_ - _tl5361153649_) - (let ((_L53652_ _hd5361053647_) (_L53653_ _hd5360753639_)) - (if (gx#identifier? _L53653_) - (___kont5372353724_ _L53652_ _L53653_) - (___kont5372553726_)))))) - (if (gx#stx-pair? ___stx5372153722_) - (let ((_e5360353628_ (gx#stx-e ___stx5372153722_))) - (let ((_tl5360553633_ - (let () (declare (not safe)) (##cdr _e5360353628_))) - (_hd5360453631_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5688056881_))))) + (let ((___kont5688256883_ + (lambda (_L56811_ _L56812_) + (let ((_ann56828_ + (let () (declare (not safe)) (gx#stx-e _L56812_)))) + (let ((__tmp59967 + (lambda () + (let ((_$e56831_ _ann56828_)) + (if (let () + (declare (not safe)) + (eq? '@match _$e56831_)) + (begin + (let () + (declare (not safe)) + (gxc#verbose + '"Optimizing match expansion")) + (let () + (declare (not safe)) + (gxc#optimize-match _L56811_))) + (if (let () + (declare (not safe)) + (eq? '@syntax-case _$e56831_)) + (begin + (let () + (declare (not safe)) + (gxc#verbose + '"Optimizing syntax-case expansion")) + (let () + (declare (not safe)) + (gxc#optimize-syntax-case + _L56811_))) + (let () + (declare (not safe)) + (gxc#compile-e _L56811_))))))) + (__tmp59965 + (let ((__tmp59966 + (gxc#current-annotation-optimizer))) + (declare (not safe)) + (cons _ann56828_ __tmp59966)))) + (declare (not safe)) + (call-with-parameters + __tmp59967 + gxc#current-annotation-optimizer + __tmp59965))))) + (___kont5688456885_ + (lambda () + (let () + (declare (not safe)) + (gxc#xform-begin-annotation% _stx56755_))))) + (let ((___match5690556906_ + (lambda (_e5676456787_ + _hd5676356790_ + _tl5676256792_ + _e5676756795_ + _hd5676656798_ + _tl5676556800_ + _e5677056803_ + _hd5676956806_ + _tl5676856808_) + (let ((_L56811_ _hd5676956806_) (_L56812_ _hd5676656798_)) + (if (let () + (declare (not safe)) + (gx#identifier? _L56812_)) + (___kont5688256883_ _L56811_ _L56812_) + (___kont5688456885_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5688056881_)) + (let ((_e5676456787_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5688056881_)))) + (let ((_tl5676256792_ + (let () (declare (not safe)) (##cdr _e5676456787_))) + (_hd5676356790_ (let () (declare (not safe)) - (##car _e5360353628_)))) - (if (gx#stx-pair? _tl5360553633_) - (let ((_e5360653636_ (gx#stx-e _tl5360553633_))) - (let ((_tl5360853641_ + (##car _e5676456787_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5676256792_)) + (let ((_e5676756795_ + (let () + (declare (not safe)) + (gx#stx-e _tl5676256792_)))) + (let ((_tl5676556800_ (let () (declare (not safe)) - (##cdr _e5360653636_))) - (_hd5360753639_ + (##cdr _e5676756795_))) + (_hd5676656798_ (let () (declare (not safe)) - (##car _e5360653636_)))) - (if (gx#stx-pair? _tl5360853641_) - (let ((_e5360953644_ - (gx#stx-e _tl5360853641_))) - (let ((_tl5361153649_ + (##car _e5676756795_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5676556800_)) + (let ((_e5677056803_ + (let () + (declare (not safe)) + (gx#stx-e _tl5676556800_)))) + (let ((_tl5676856808_ (let () (declare (not safe)) - (##cdr _e5360953644_))) - (_hd5361053647_ + (##cdr _e5677056803_))) + (_hd5676956806_ (let () (declare (not safe)) - (##car _e5360953644_)))) - (if (gx#stx-null? _tl5361153649_) - (___match5374653747_ - _e5360353628_ - _hd5360453631_ - _tl5360553633_ - _e5360653636_ - _hd5360753639_ - _tl5360853641_ - _e5360953644_ - _hd5361053647_ - _tl5361153649_) - (___kont5372553726_)))) - (___kont5372553726_)))) - (___kont5372553726_)))) - (___kont5372553726_))))))) + (##car _e5677056803_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5676856808_)) + (___match5690556906_ + _e5676456787_ + _hd5676356790_ + _tl5676256792_ + _e5676756795_ + _hd5676656798_ + _tl5676556800_ + _e5677056803_ + _hd5676956806_ + _tl5676856808_) + (___kont5688456885_)))) + (___kont5688456885_)))) + (___kont5688456885_)))) + (___kont5688456885_))))))) (define gxc#optimize-match - (lambda (_stx52895_) - (let* ((_g5289752927_ - (lambda (_g5289852924_) - (gx#raise-syntax-error '#f '"Bad syntax" _g5289852924_))) - (_g5289653593_ - (lambda (_g5289852930_) - (if (gx#stx-pair? _g5289852930_) - (let ((_e5290252932_ (gx#stx-e _g5289852930_))) - (let ((_hd5290352935_ + (lambda (_stx56054_) + (let* ((_g5605656086_ + (lambda (_g5605756083_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g5605756083_)))) + (_g5605556752_ + (lambda (_g5605756089_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g5605756089_)) + (let ((_e5606356091_ + (let () + (declare (not safe)) + (gx#stx-e _g5605756089_)))) + (let ((_hd5606256094_ (let () (declare (not safe)) - (##car _e5290252932_))) - (_tl5290452937_ + (##car _e5606356091_))) + (_tl5606156096_ (let () (declare (not safe)) - (##cdr _e5290252932_)))) - (if (gx#identifier? _hd5290352935_) - (if (gx#stx-eq? '%#let-values _hd5290352935_) - (if (gx#stx-pair? _tl5290452937_) - (let ((_e5290552940_ - (gx#stx-e _tl5290452937_))) - (let ((_hd5290652943_ + (##cdr _e5606356091_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5606256094_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#let-values _hd5606256094_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5606156096_)) + (let ((_e5606656099_ + (let () + (declare (not safe)) + (gx#stx-e _tl5606156096_)))) + (let ((_hd5606556102_ (let () (declare (not safe)) - (##car _e5290552940_))) - (_tl5290752945_ + (##car _e5606656099_))) + (_tl5606456104_ (let () (declare (not safe)) - (##cdr _e5290552940_)))) - (if (gx#stx-pair? _hd5290652943_) - (let ((_e5290852948_ - (gx#stx-e - _hd5290652943_))) - (let ((_hd5290952951_ + (##cdr _e5606656099_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5606556102_)) + (let ((_e5606956107_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5606556102_)))) + (let ((_hd5606856110_ (let () (declare (not safe)) - (##car _e5290852948_))) - (_tl5291052953_ + (##car _e5606956107_))) + (_tl5606756112_ (let () (declare (not safe)) - (##cdr _e5290852948_)))) - (if (gx#stx-pair? - _hd5290952951_) - (let ((_e5291152956_ - (gx#stx-e - _hd5290952951_))) - (let ((_hd5291252959_ - (let () + (##cdr _e5606956107_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5606856110_)) + (let ((_e5607256115_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e5291152956_))) - (_tl5291352961_ - (let () (declare (not safe)) (##cdr _e5291152956_)))) - (if (gx#stx-pair? _hd5291252959_) - (let ((_e5291452964_ (gx#stx-e _hd5291252959_))) - (let ((_hd5291552967_ + (not safe)) + (gx#stx-e _hd5606856110_)))) + (let ((_hd5607156118_ + (let () (declare (not safe)) (##car _e5607256115_))) + (_tl5607056120_ + (let () (declare (not safe)) (##cdr _e5607256115_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5607156118_)) + (let ((_e5607556123_ + (let () + (declare (not safe)) + (gx#stx-e _hd5607156118_)))) + (let ((_hd5607456126_ (let () (declare (not safe)) - (##car _e5291452964_))) - (_tl5291652969_ + (##car _e5607556123_))) + (_tl5607356128_ (let () (declare (not safe)) - (##cdr _e5291452964_)))) - (if (gx#stx-null? _tl5291652969_) - (if (gx#stx-pair? _tl5291352961_) - (let ((_e5291752972_ - (gx#stx-e _tl5291352961_))) - (let ((_hd5291852975_ + (##cdr _e5607556123_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5607356128_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5607056120_)) + (let ((_e5607856131_ + (let () + (declare (not safe)) + (gx#stx-e _tl5607056120_)))) + (let ((_hd5607756134_ (let () (declare (not safe)) - (##car _e5291752972_))) - (_tl5291952977_ + (##car _e5607856131_))) + (_tl5607656136_ (let () (declare (not safe)) - (##cdr _e5291752972_)))) - (if (gx#stx-null? _tl5291952977_) - (if (gx#stx-null? _tl5291052953_) - (if (gx#stx-pair? _tl5290752945_) - (let ((_e5292052980_ - (gx#stx-e - _tl5290752945_))) - (let ((_hd5292152983_ + (##cdr _e5607856131_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5607656136_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5606756112_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5606456104_)) + (let ((_e5608156139_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5606456104_)))) + (let ((_hd5608056142_ (let () (declare (not safe)) - (##car _e5292052980_))) - (_tl5292252985_ + (##car _e5608156139_))) + (_tl5607956144_ (let () (declare (not safe)) - (##cdr _e5292052980_)))) - (if (gx#stx-null? - _tl5292252985_) - ((lambda (_L52988_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L52989_ - _L52990_) - (let _lp53014_ ((_body53016_ _L52988_) - (_negation53017_ (cons _L52990_ _L52989_)) - (_clauses53018_ '()) - (_konts53019_ '())) - (let* ((___stx5392953930_ _body53016_) - (_g5302253062_ + (##cdr _e5608156139_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl5607956144_)) + ((lambda (_L56147_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L56148_ + _L56149_) + (let _lp56173_ ((_body56175_ _L56147_) + (_negation56176_ + (let () + (declare (not safe)) + (cons _L56149_ _L56148_))) + (_clauses56177_ '()) + (_konts56178_ '())) + (let* ((___stx5708857089_ _body56175_) + (_g5618156221_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5392953930_)))) - (let ((___kont5393153932_ - (lambda (_L53392_) - (let* ((___stx5386553866_ _L53392_) - (_g5340653436_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5708857089_))))) + (let ((___kont5709057091_ + (lambda (_L56551_) + (let* ((___stx5702457025_ _L56551_) + (_g5656556595_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5386553866_)))) - (let ((___kont5386753868_ - (lambda (_L53532_ _L53533_ _L53534_) - (if (null? _clauses53018_) - (let* ((_negation5355853565_ - _negation53017_) - (_E5356053569_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5702457025_))))) + (let ((___kont5702657027_ + (lambda (_L56691_ _L56692_ _L56693_) + (if (let () + (declare (not safe)) + (null? _clauses56177_)) + (let* ((_negation5671756724_ + _negation56176_) + (_E5671956728_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _negation5355853565_))) - (_K5356153575_ - (lambda (_negate53572_ _E53573_) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (cons (cons (cons _E53573_ '()) - (cons _negate53572_ '())) - '()) - (cons (cons '%#let-values - (cons (cons (cons (cons _L53534_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (gxc#compile-e _L53533_) '())) - '()) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L53532_ '()))) - '()))) - _stx52895_)))) + _negation5671756724_))) + (_K5672056734_ + (lambda (_negate56731_ _E56732_) + (let ((__tmp59977 + (let ((__tmp59978 + (let ((__tmp59988 + (let ((__tmp59989 + (let ((__tmp59991 + (let () + (declare (not safe)) + (cons _E56732_ '()))) + (__tmp59990 + (let () + (declare (not safe)) + (cons _negate56731_ + '())))) + (declare (not safe)) + (cons __tmp59991 + __tmp59990)))) + (declare (not safe)) + (cons __tmp59989 '()))) + (__tmp59979 + (let ((__tmp59980 + (let ((__tmp59981 + (let ((__tmp59983 + (let ((__tmp59984 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59987 + (let () + (declare (not safe)) + (cons _L56693_ '()))) + (__tmp59985 + (let ((__tmp59986 + (let () + (declare (not safe)) + (gxc#compile-e _L56692_)))) + (declare (not safe)) + (cons __tmp59986 '())))) + (declare (not safe)) + (cons __tmp59987 __tmp59985)))) + (declare (not safe)) + (cons __tmp59984 '()))) + (__tmp59982 + (let () (declare (not safe)) (cons _L56691_ '())))) + (declare (not safe)) + (cons __tmp59983 __tmp59982)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#let-values + __tmp59981)))) + (declare (not safe)) + (cons __tmp59980 '())))) + (declare (not safe)) + (cons __tmp59988 __tmp59979)))) + (declare (not safe)) + (cons '%#let-values __tmp59978)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp59977 _stx56054_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation5355853565_)) - (let ((_hd5356253578_ + (##pair? _negation5671756724_)) + (let ((_hd5672156737_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _negation5355853565_))) - (_tl5356353580_ + (##car _negation5671756724_))) + (_tl5672256739_ (let () (declare (not safe)) - (##cdr _negation5355853565_)))) - (let* ((_E53583_ _hd5356253578_) - (_negate53585_ _tl5356353580_)) - (_K5356153575_ _negate53585_ _E53583_))) - (_E5356053569_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gxc#optimize-match-body - _stx52895_ - _negation53017_ - (cons (cons '#f - (cons (gx#datum->syntax__0 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '%#lambda) - (cons '() (cons _L53532_ '())))) - _clauses53018_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L53534_ - (gxc#compile-e - _L53533_)) - _konts53019_))))) - (___kont5386953870_ + (##cdr _negation5671756724_)))) + (let* ((_E56742_ _hd5672156737_) + (_negate56744_ _tl5672256739_)) + (declare (not safe)) + (_K5672056734_ _negate56744_ _E56742_))) + (let () (declare (not safe)) (_E5671956728_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp59971 + (let ((__tmp59972 + (let ((__tmp59973 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59976 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#lambda))) + (__tmp59974 + (let ((__tmp59975 + (let () + (declare (not safe)) + (cons _L56691_ '())))) + (declare (not safe)) + (cons '() __tmp59975)))) + (declare (not safe)) + (cons __tmp59976 __tmp59974)))) + (declare (not safe)) + (cons '#f __tmp59973)))) + (declare (not safe)) + (cons __tmp59972 _clauses56177_))) + (__tmp59968 + (let ((__tmp59969 + (let ((__tmp59970 + (let () + (declare (not safe)) + (gxc#compile-e _L56692_)))) + (declare (not safe)) + (cons _L56693_ __tmp59970)))) + (declare (not safe)) + (cons __tmp59969 _konts56178_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#optimize-match-body + _stx56054_ + _negation56176_ + __tmp59971 + __tmp59968))))) + (___kont5702857029_ (lambda () - (let* ((_negation5344253449_ - _negation53017_) - (_E5344453453_ + (let* ((_negation5660156608_ + _negation56176_) + (_E5660356612_ (lambda () (error '"No clause matching" - _negation5344253449_))) - (_K5344553459_ - (lambda (_negate53456_ - _E53457_) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (cons (cons (cons _E53457_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _negate53456_ '())) - '()) - (cons _L53392_ '()))) - _stx52895_)))) + _negation5660156608_))) + (_K5660456618_ + (lambda (_negate56615_ + _E56616_) + (let ((__tmp59992 + (let ((__tmp59993 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59995 + (let ((__tmp59996 + (let ((__tmp59998 + (let () + (declare (not safe)) + (cons _E56616_ '()))) + (__tmp59997 + (let () + (declare (not safe)) + (cons _negate56615_ '())))) + (declare (not safe)) + (cons __tmp59998 __tmp59997)))) + (declare (not safe)) + (cons __tmp59996 '()))) + (__tmp59994 + (let () + (declare (not safe)) + (cons _L56551_ '())))) + (declare (not safe)) + (cons __tmp59995 __tmp59994)))) + (declare (not safe)) + (cons '%#let-values __tmp59993)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp59992 _stx56054_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation5344253449_)) - (let ((_hd5344653462_ + (##pair? _negation5660156608_)) + (let ((_hd5660556621_ (let () (declare (not safe)) - (##car _negation5344253449_))) - (_tl5344753464_ + (##car _negation5660156608_))) + (_tl5660656623_ (let () (declare (not safe)) - (##cdr _negation5344253449_)))) - (let* ((_E53467_ - _hd5344653462_) - (_negate53469_ - _tl5344753464_)) - (_K5344553459_ - _negate53469_ - _E53467_))) - (_E5344453453_)))))) - (let ((_g5340553471_ + (##cdr _negation5660156608_)))) + (let* ((_E56626_ + _hd5660556621_) + (_negate56628_ + _tl5660656623_)) + (declare (not safe)) + (_K5660456618_ + _negate56628_ + _E56626_))) + (let () + (declare (not safe)) + (_E5660356612_))))))) + (let ((_g5656456630_ (lambda () - (if (null? _clauses53018_) - (___kont5386953870_) - (_g5340653436_))))) - (if (gx#stx-pair? ___stx5386553866_) - (let ((_e5341153476_ - (gx#stx-e - ___stx5386553866_))) - (let ((_tl5341353481_ + (if (let () + (declare (not safe)) + (null? _clauses56177_)) + (___kont5702857029_) + (let () + (declare (not safe)) + (_g5656556595_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5702457025_)) + (let ((_e5657256635_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx5702457025_)))) + (let ((_tl5657056640_ (let () (declare (not safe)) - (##cdr _e5341153476_))) - (_hd5341253479_ + (##cdr _e5657256635_))) + (_hd5657156638_ (let () (declare (not safe)) - (##car _e5341153476_)))) - (if (gx#identifier? - _hd5341253479_) - (if (gx#stx-eq? - '%#let-values - _hd5341253479_) - (if (gx#stx-pair? - _tl5341353481_) - (let ((_e5341453484_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5341353481_))) - (let ((_tl5341653489_ + (##car _e5657256635_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5657156638_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _hd5657156638_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl5657056640_)) + (let ((_e5657556643_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl5657056640_)))) + (let ((_tl5657356648_ (let () (declare (not safe)) - (##cdr _e5341453484_))) - (_hd5341553487_ + (##cdr _e5657556643_))) + (_hd5657456646_ (let () (declare (not safe)) - (##car _e5341453484_)))) - (if (gx#stx-pair? _hd5341553487_) - (let ((_e5341753492_ (gx#stx-e _hd5341553487_))) - (let ((_tl5341953497_ + (##car _e5657556643_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5657456646_)) + (let ((_e5657856651_ + (let () + (declare (not safe)) + (gx#stx-e _hd5657456646_)))) + (let ((_tl5657656656_ (let () (declare (not safe)) - (##cdr _e5341753492_))) - (_hd5341853495_ + (##cdr _e5657856651_))) + (_hd5657756654_ (let () (declare (not safe)) - (##car _e5341753492_)))) - (if (gx#stx-pair? _hd5341853495_) - (let ((_e5342053500_ - (gx#stx-e _hd5341853495_))) - (let ((_tl5342253505_ + (##car _e5657856651_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5657756654_)) + (let ((_e5658156659_ + (let () + (declare (not safe)) + (gx#stx-e _hd5657756654_)))) + (let ((_tl5657956664_ (let () (declare (not safe)) - (##cdr _e5342053500_))) - (_hd5342153503_ + (##cdr _e5658156659_))) + (_hd5658056662_ (let () (declare (not safe)) - (##car _e5342053500_)))) - (if (gx#stx-pair? _hd5342153503_) - (let ((_e5342353508_ - (gx#stx-e _hd5342153503_))) - (let ((_tl5342553513_ + (##car _e5658156659_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5658056662_)) + (let ((_e5658456667_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5658056662_)))) + (let ((_tl5658256672_ (let () (declare (not safe)) - (##cdr _e5342353508_))) - (_hd5342453511_ + (##cdr _e5658456667_))) + (_hd5658356670_ (let () (declare (not safe)) - (##car _e5342353508_)))) - (if (gx#stx-null? - _tl5342553513_) - (if (gx#stx-pair? - _tl5342253505_) - (let ((_e5342653516_ - (gx#stx-e - _tl5342253505_))) - (let ((_tl5342853521_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5342653516_))) - (_hd5342753519_ - (let () (declare (not safe)) (##car _e5342653516_)))) - (if (gx#stx-null? _tl5342853521_) - (if (gx#stx-null? _tl5341953497_) - (if (gx#stx-pair? _tl5341653489_) - (let ((_e5342953524_ - (gx#stx-e _tl5341653489_))) - (let ((_tl5343153529_ + (##car _e5658456667_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5658256672_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5657956664_)) + (let ((_e5658756675_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5657956664_)))) + (let ((_tl5658556680_ + (let () (declare (not safe)) (##cdr _e5658756675_))) + (_hd5658656678_ + (let () (declare (not safe)) (##car _e5658756675_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5658556680_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5657656656_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5657356648_)) + (let ((_e5659056683_ + (let () + (declare (not safe)) + (gx#stx-e _tl5657356648_)))) + (let ((_tl5658856688_ (let () (declare (not safe)) - (##cdr _e5342953524_))) - (_hd5343053527_ + (##cdr _e5659056683_))) + (_hd5658956686_ (let () (declare (not safe)) - (##car _e5342953524_)))) - (if (gx#stx-null? _tl5343153529_) - (___kont5386753868_ - _hd5343053527_ - _hd5342753519_ - _hd5342453511_) - (_g5340553471_)))) - (_g5340553471_)) - (_g5340553471_)) - (_g5340553471_)))) - (_g5340553471_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5340553471_)))) - (_g5340553471_)))) - (_g5340553471_)))) - (_g5340553471_)))) - (_g5340553471_)) - (_g5340553471_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5340553471_)))) - (_g5340553471_))))))) - (___kont5393353934_ - (lambda (_L53123_ _L53124_ _L53125_) - (let* ((___stx5374953750_ _L53124_) - (_g5315253201_ + (##car _e5659056683_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5658856688_)) + (___kont5702657027_ + _hd5658956686_ + _hd5658656678_ + _hd5658356670_) + (let () + (declare (not safe)) + (_g5656456630_))))) + (let () (declare (not safe)) (_g5656456630_))) + (let () (declare (not safe)) (_g5656456630_))) + (let () (declare (not safe)) (_g5656456630_))))) + (let () (declare (not safe)) (_g5656456630_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5656456630_))))) + (let () + (declare (not safe)) + (_g5656456630_))))) + (let () + (declare (not safe)) + (_g5656456630_))))) + (let () (declare (not safe)) (_g5656456630_))))) + (let () (declare (not safe)) (_g5656456630_))) + (let () (declare (not safe)) (_g5656456630_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5656456630_))))) + (let () + (declare (not safe)) + (_g5656456630_)))))))) + (___kont5709257093_ + (lambda (_L56282_ _L56283_ _L56284_) + (let* ((___stx5690856909_ _L56283_) + (_g5631156360_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5374953750_)))) - (let ((___kont5375153752_ - (lambda (_L53329_ _L53330_ _L53331_) - (_lp53014_ - _L53123_ - _negation53017_ - (cons (cons _L53125_ - (cons (gx#datum->syntax__0 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '%#lambda) - (cons '() (cons _L53329_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clauses53018_) - (cons (cons _L53331_ - (gxc#compile-e - _L53330_)) - _konts53019_)))) - (___kont5375353754_ - (lambda (_L53230_) - (_lp53014_ - _L53123_ - (cons _L53125_ - (gxc#compile-e _L53230_)) - _clauses53018_ - _konts53019_)))) - (if (gx#stx-pair? ___stx5374953750_) - (let ((_e5315753249_ - (gx#stx-e ___stx5374953750_))) - (let ((_tl5315953254_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5690856909_))))) + (let ((___kont5691056911_ + (lambda (_L56488_ _L56489_ _L56490_) + (let ((__tmp60002 + (let ((__tmp60003 + (let ((__tmp60004 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60007 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#lambda))) + (__tmp60005 + (let ((__tmp60006 + (let () + (declare (not safe)) + (cons _L56488_ '())))) + (declare (not safe)) + (cons '() __tmp60006)))) + (declare (not safe)) + (cons __tmp60007 __tmp60005)))) + (declare (not safe)) + (cons _L56284_ __tmp60004)))) + (declare (not safe)) + (cons __tmp60003 _clauses56177_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp59999 + (let ((__tmp60000 + (let ((__tmp60001 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#compile-e _L56489_)))) + (declare (not safe)) + (cons _L56490_ __tmp60001)))) + (declare (not safe)) + (cons __tmp60000 _konts56178_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp56173_ + _L56282_ + _negation56176_ + __tmp60002 + __tmp59999)))) + (___kont5691256913_ + (lambda (_L56389_) + (let ((__tmp60008 + (let ((__tmp60009 + (let () + (declare + (not safe)) + (gxc#compile-e + _L56389_)))) + (declare (not safe)) + (cons _L56284_ + __tmp60009)))) + (declare (not safe)) + (_lp56173_ + _L56282_ + __tmp60008 + _clauses56177_ + _konts56178_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5690856909_)) + (let ((_e5631856408_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx5690856909_)))) + (let ((_tl5631656413_ (let () (declare (not safe)) - (##cdr _e5315753249_))) - (_hd5315853252_ + (##cdr _e5631856408_))) + (_hd5631756411_ (let () (declare (not safe)) - (##car _e5315753249_)))) - (if (gx#identifier? - _hd5315853252_) - (if (gx#stx-eq? - '%#lambda - _hd5315853252_) - (if (gx#stx-pair? - _tl5315953254_) - (let ((_e5316053257_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5315953254_))) - (let ((_tl5316253262_ - (let () (declare (not safe)) (##cdr _e5316053257_))) - (_hd5316153260_ + (##car _e5631856408_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5631756411_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd5631756411_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl5631656413_)) + (let ((_e5632156416_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl5631656413_)))) + (let ((_tl5631956421_ + (let () (declare (not safe)) (##cdr _e5632156416_))) + (_hd5632056419_ (let () (declare (not safe)) - (##car _e5316053257_)))) - (if (gx#stx-null? _hd5316153260_) - (if (gx#stx-pair? _tl5316253262_) - (let ((_e5316353265_ (gx#stx-e _tl5316253262_))) - (let ((_tl5316553270_ + (##car _e5632156416_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _hd5632056419_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5631956421_)) + (let ((_e5632456424_ + (let () + (declare (not safe)) + (gx#stx-e _tl5631956421_)))) + (let ((_tl5632256429_ (let () (declare (not safe)) - (##cdr _e5316353265_))) - (_hd5316453268_ + (##cdr _e5632456424_))) + (_hd5632356427_ (let () (declare (not safe)) - (##car _e5316353265_)))) - (if (gx#stx-pair? _hd5316453268_) - (let ((_e5316653273_ - (gx#stx-e _hd5316453268_))) - (let ((_tl5316853278_ + (##car _e5632456424_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5632356427_)) + (let ((_e5632756432_ + (let () + (declare (not safe)) + (gx#stx-e _hd5632356427_)))) + (let ((_tl5632556437_ (let () (declare (not safe)) - (##cdr _e5316653273_))) - (_hd5316753276_ + (##cdr _e5632756432_))) + (_hd5632656435_ (let () (declare (not safe)) - (##car _e5316653273_)))) - (if (gx#identifier? _hd5316753276_) - (if (gx#stx-eq? - '%#let-values - _hd5316753276_) - (if (gx#stx-pair? - _tl5316853278_) - (let ((_e5316953281_ - (gx#stx-e - _tl5316853278_))) - (let ((_tl5317153286_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e5316953281_))) - (_hd5317053284_ - (let () (declare (not safe)) (##car _e5316953281_)))) - (if (gx#stx-pair? _hd5317053284_) - (let ((_e5317253289_ (gx#stx-e _hd5317053284_))) - (let ((_tl5317453294_ + (##car _e5632756432_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5632656435_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _hd5632656435_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5632556437_)) + (let ((_e5633056440_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _tl5632556437_)))) + (let ((_tl5632856445_ + (let () (declare (not safe)) (##cdr _e5633056440_))) + (_hd5632956443_ + (let () (declare (not safe)) (##car _e5633056440_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5632956443_)) + (let ((_e5633356448_ + (let () + (declare (not safe)) + (gx#stx-e _hd5632956443_)))) + (let ((_tl5633156453_ (let () (declare (not safe)) - (##cdr _e5317253289_))) - (_hd5317353292_ + (##cdr _e5633356448_))) + (_hd5633256451_ (let () (declare (not safe)) - (##car _e5317253289_)))) - (if (gx#stx-pair? _hd5317353292_) - (let ((_e5317553297_ (gx#stx-e _hd5317353292_))) - (let ((_tl5317753302_ + (##car _e5633356448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5633256451_)) + (let ((_e5633656456_ + (let () + (declare (not safe)) + (gx#stx-e _hd5633256451_)))) + (let ((_tl5633456461_ (let () (declare (not safe)) - (##cdr _e5317553297_))) - (_hd5317653300_ + (##cdr _e5633656456_))) + (_hd5633556459_ (let () (declare (not safe)) - (##car _e5317553297_)))) - (if (gx#stx-pair? _hd5317653300_) - (let ((_e5317853305_ - (gx#stx-e _hd5317653300_))) - (let ((_tl5318053310_ + (##car _e5633656456_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5633556459_)) + (let ((_e5633956464_ + (let () + (declare (not safe)) + (gx#stx-e _hd5633556459_)))) + (let ((_tl5633756469_ (let () (declare (not safe)) - (##cdr _e5317853305_))) - (_hd5317953308_ + (##cdr _e5633956464_))) + (_hd5633856467_ (let () (declare (not safe)) - (##car _e5317853305_)))) - (if (gx#stx-null? _tl5318053310_) - (if (gx#stx-pair? _tl5317753302_) - (let ((_e5318153313_ - (gx#stx-e - _tl5317753302_))) - (let ((_tl5318353318_ + (##car _e5633956464_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5633756469_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5633456461_)) + (let ((_e5634256472_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5633456461_)))) + (let ((_tl5634056477_ (let () (declare (not safe)) - (##cdr _e5318153313_))) - (_hd5318253316_ + (##cdr _e5634256472_))) + (_hd5634156475_ (let () (declare (not safe)) - (##car _e5318153313_)))) - (if (gx#stx-null? - _tl5318353318_) - (if (gx#stx-null? - _tl5317453294_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl5317153286_) - (let ((_e5318453321_ (gx#stx-e _tl5317153286_))) - (let ((_tl5318653326_ + (##car _e5634256472_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl5634056477_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl5633156453_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5632856445_)) + (let ((_e5634556480_ + (let () + (declare (not safe)) + (gx#stx-e _tl5632856445_)))) + (let ((_tl5634356485_ (let () (declare (not safe)) - (##cdr _e5318453321_))) - (_hd5318553324_ + (##cdr _e5634556480_))) + (_hd5634456483_ (let () (declare (not safe)) - (##car _e5318453321_)))) - (if (gx#stx-null? _tl5318653326_) - (if (gx#stx-null? _tl5316553270_) - (___kont5375153752_ - _hd5318553324_ - _hd5318253316_ - _hd5317953308_) - (_g5315253201_)) - (_g5315253201_)))) - (_g5315253201_)) - (_g5315253201_)) - (_g5315253201_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5315253201_)) - (_g5315253201_)))) - (_g5315253201_)))) - (_g5315253201_)))) - (_g5315253201_)))) - (_g5315253201_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5315253201_)) - (_g5315253201_)))) - (_g5315253201_)))) - (_g5315253201_)) - (_g5315253201_)))) - (_g5315253201_)) - (if (gx#stx-eq? '%#begin-annotation _hd5315853252_) - (if (gx#stx-pair? _tl5315953254_) - (let ((_e5319153214_ (gx#stx-e _tl5315953254_))) - (let ((_tl5319353219_ + (##car _e5634556480_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5634356485_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5632256429_)) + (___kont5691056911_ + _hd5634456483_ + _hd5634156475_ + _hd5633856467_) + (let () + (declare (not safe)) + (_g5631156360_))) + (let () + (declare (not safe)) + (_g5631156360_))))) + (let () (declare (not safe)) (_g5631156360_))) + (let () (declare (not safe)) (_g5631156360_))) + (let () (declare (not safe)) (_g5631156360_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5631156360_))) + (let () + (declare (not safe)) + (_g5631156360_))))) + (let () + (declare (not safe)) + (_g5631156360_))))) + (let () (declare (not safe)) (_g5631156360_))))) + (let () (declare (not safe)) (_g5631156360_))))) + (let () (declare (not safe)) (_g5631156360_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5631156360_))) + (let () + (declare (not safe)) + (_g5631156360_))))) + (let () + (declare (not safe)) + (_g5631156360_))))) + (let () (declare (not safe)) (_g5631156360_))) + (let () (declare (not safe)) (_g5631156360_))))) + (let () (declare (not safe)) (_g5631156360_))) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#begin-annotation _hd5631756411_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5631656413_)) + (let ((_e5635256373_ + (let () + (declare (not safe)) + (gx#stx-e _tl5631656413_)))) + (let ((_tl5635056378_ (let () (declare (not safe)) - (##cdr _e5319153214_))) - (_hd5319253217_ + (##cdr _e5635256373_))) + (_hd5635156376_ (let () (declare (not safe)) - (##car _e5319153214_)))) - (if (gx#identifier? _hd5319253217_) - (if (gx#stx-eq? '@match-else _hd5319253217_) - (if (gx#stx-pair? _tl5319353219_) - (let ((_e5319453222_ - (gx#stx-e _tl5319353219_))) - (let ((_tl5319653227_ + (##car _e5635256373_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5635156376_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '@match-else _hd5635156376_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5635056378_)) + (let ((_e5635556381_ + (let () + (declare (not safe)) + (gx#stx-e _tl5635056378_)))) + (let ((_tl5635356386_ (let () (declare (not safe)) - (##cdr _e5319453222_))) - (_hd5319553225_ + (##cdr _e5635556381_))) + (_hd5635456384_ (let () (declare (not safe)) - (##car _e5319453222_)))) - (if (gx#stx-null? _tl5319653227_) - (___kont5375353754_ - _hd5319553225_) - (_g5315253201_)))) - (_g5315253201_)) - (_g5315253201_)) - (_g5315253201_)))) - (_g5315253201_)) - (_g5315253201_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5315253201_)))) - (_g5315253201_))))))) - (if (gx#stx-pair? ___stx5392953930_) - (let ((_e5302553368_ - (gx#stx-e ___stx5392953930_))) - (let ((_tl5302753373_ + (##car _e5635556381_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5635356386_)) + (___kont5691256913_ + _hd5635456384_) + (let () + (declare (not safe)) + (_g5631156360_))))) + (let () + (declare (not safe)) + (_g5631156360_))) + (let () + (declare (not safe)) + (_g5631156360_))) + (let () (declare (not safe)) (_g5631156360_))))) + (let () (declare (not safe)) (_g5631156360_))) + (let () (declare (not safe)) (_g5631156360_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5631156360_))))) + (let () + (declare (not safe)) + (_g5631156360_)))))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5708857089_)) + (let ((_e5618656527_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5708857089_)))) + (let ((_tl5618456532_ (let () (declare (not safe)) - (##cdr _e5302553368_))) - (_hd5302653371_ + (##cdr _e5618656527_))) + (_hd5618556530_ (let () (declare (not safe)) - (##car _e5302553368_)))) - (if (gx#identifier? _hd5302653371_) - (if (gx#stx-eq? - '%#begin-annotation - _hd5302653371_) - (if (gx#stx-pair? _tl5302753373_) - (let ((_e5302853376_ - (gx#stx-e - _tl5302753373_))) - (let ((_tl5303053381_ + (##car _e5618656527_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5618556530_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#begin-annotation + _hd5618556530_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5618456532_)) + (let ((_e5618956535_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5618456532_)))) + (let ((_tl5618756540_ (let () (declare (not safe)) - (##cdr _e5302853376_))) - (_hd5302953379_ + (##cdr _e5618956535_))) + (_hd5618856538_ (let () (declare (not safe)) - (##car _e5302853376_)))) - (if (gx#identifier? - _hd5302953379_) - (if (gx#stx-eq? - '@match-body - _hd5302953379_) - (if (gx#stx-pair? - _tl5303053381_) - (let ((_e5303153384_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5303053381_))) - (let ((_tl5303353389_ + (##car _e5618956535_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5618856538_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '@match-body + _hd5618856538_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _tl5618756540_)) + (let ((_e5619256543_ + (let () + (declare (not safe)) + (gx#stx-e _tl5618756540_)))) + (let ((_tl5619056548_ (let () (declare (not safe)) - (##cdr _e5303153384_))) - (_hd5303253387_ + (##cdr _e5619256543_))) + (_hd5619156546_ (let () (declare (not safe)) - (##car _e5303153384_)))) - (if (gx#stx-null? _tl5303353389_) - (___kont5393153932_ _hd5303253387_) - (_g5302253062_)))) - (_g5302253062_)) - (_g5302253062_)) - (_g5302253062_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5302253062_)) - (if (gx#stx-eq? - '%#let-values - _hd5302653371_) - (if (gx#stx-pair? - _tl5302753373_) - (let ((_e5304053075_ - (gx#stx-e - _tl5302753373_))) - (let ((_tl5304253080_ + (##car _e5619256543_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5619056548_)) + (___kont5709057091_ _hd5619156546_) + (let () (declare (not safe)) (_g5618156221_))))) + (let () (declare (not safe)) (_g5618156221_))) + (let () (declare (not safe)) (_g5618156221_))) + (let () (declare (not safe)) (_g5618156221_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5618156221_))) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _hd5618556530_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5618456532_)) + (let ((_e5620156234_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5618456532_)))) + (let ((_tl5619956239_ (let () (declare (not safe)) - (##cdr _e5304053075_))) - (_hd5304153078_ + (##cdr _e5620156234_))) + (_hd5620056237_ (let () (declare (not safe)) - (##car _e5304053075_)))) - (if (gx#stx-pair? - _hd5304153078_) - (let ((_e5304353083_ + (##car _e5620156234_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd5620056237_)) + (let ((_e5620456242_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd5304153078_))) - (let ((_tl5304553088_ + (let () + (declare (not safe)) + (gx#stx-e _hd5620056237_)))) + (let ((_tl5620256247_ (let () (declare (not safe)) - (##cdr _e5304353083_))) - (_hd5304453086_ + (##cdr _e5620456242_))) + (_hd5620356245_ (let () (declare (not safe)) - (##car _e5304353083_)))) - (if (gx#stx-pair? _hd5304453086_) - (let ((_e5304653091_ (gx#stx-e _hd5304453086_))) - (let ((_tl5304853096_ + (##car _e5620456242_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5620356245_)) + (let ((_e5620756250_ + (let () + (declare (not safe)) + (gx#stx-e _hd5620356245_)))) + (let ((_tl5620556255_ (let () (declare (not safe)) - (##cdr _e5304653091_))) - (_hd5304753094_ + (##cdr _e5620756250_))) + (_hd5620656253_ (let () (declare (not safe)) - (##car _e5304653091_)))) - (if (gx#stx-pair? _hd5304753094_) - (let ((_e5304953099_ - (gx#stx-e _hd5304753094_))) - (let ((_tl5305153104_ + (##car _e5620756250_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5620656253_)) + (let ((_e5621056258_ + (let () + (declare (not safe)) + (gx#stx-e _hd5620656253_)))) + (let ((_tl5620856263_ (let () (declare (not safe)) - (##cdr _e5304953099_))) - (_hd5305053102_ + (##cdr _e5621056258_))) + (_hd5620956261_ (let () (declare (not safe)) - (##car _e5304953099_)))) - (if (gx#stx-null? _tl5305153104_) - (if (gx#stx-pair? _tl5304853096_) - (let ((_e5305253107_ - (gx#stx-e - _tl5304853096_))) - (let ((_tl5305453112_ + (##car _e5621056258_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5620856263_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5620556255_)) + (let ((_e5621356266_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5620556255_)))) + (let ((_tl5621156271_ (let () (declare (not safe)) - (##cdr _e5305253107_))) - (_hd5305353110_ + (##cdr _e5621356266_))) + (_hd5621256269_ (let () (declare (not safe)) - (##car _e5305253107_)))) - (if (gx#stx-null? - _tl5305453112_) - (if (gx#stx-null? - _tl5304553088_) - (if (gx#stx-pair? - _tl5304253080_) - (let ((_e5305553115_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5304253080_))) - (let ((_tl5305753120_ + (##car _e5621356266_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5621156271_)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl5620256247_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _tl5619956239_)) + (let ((_e5621656274_ + (let () + (declare (not safe)) + (gx#stx-e _tl5619956239_)))) + (let ((_tl5621456279_ (let () (declare (not safe)) - (##cdr _e5305553115_))) - (_hd5305653118_ + (##cdr _e5621656274_))) + (_hd5621556277_ (let () (declare (not safe)) - (##car _e5305553115_)))) - (if (gx#stx-null? _tl5305753120_) - (___kont5393353934_ - _hd5305653118_ - _hd5305353110_ - _hd5305053102_) - (_g5302253062_)))) - (_g5302253062_)) - (_g5302253062_)) - (_g5302253062_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5302253062_)) - (_g5302253062_)))) - (_g5302253062_)))) - (_g5302253062_)))) - (_g5302253062_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5302253062_)) - (_g5302253062_))) - (_g5302253062_)))) - (_g5302253062_)))))) - _hd5292152983_ - _hd5291852975_ - _hd5291552967_) - (_g5289752927_ _g5289852930_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5289752927_ - _g5289852930_)) - (_g5289752927_ _g5289852930_)) - (_g5289752927_ _g5289852930_)))) - (_g5289752927_ _g5289852930_)) - (_g5289752927_ _g5289852930_)))) - (_g5289752927_ _g5289852930_)))) - (_g5289752927_ _g5289852930_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5289752927_ _g5289852930_)))) - (_g5289752927_ _g5289852930_)) - (_g5289752927_ _g5289852930_)) - (_g5289752927_ _g5289852930_)))) - (_g5289752927_ _g5289852930_))))) - (_g5289653593_ _stx52895_)))) + (##car _e5621656274_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5621456279_)) + (___kont5709257093_ + _hd5621556277_ + _hd5621256269_ + _hd5620956261_) + (let () (declare (not safe)) (_g5618156221_))))) + (let () (declare (not safe)) (_g5618156221_))) + (let () (declare (not safe)) (_g5618156221_))) + (let () (declare (not safe)) (_g5618156221_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5618156221_))) + (let () + (declare (not safe)) + (_g5618156221_))))) + (let () + (declare (not safe)) + (_g5618156221_))))) + (let () (declare (not safe)) (_g5618156221_))))) + (let () (declare (not safe)) (_g5618156221_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5618156221_))) + (let () + (declare (not safe)) + (_g5618156221_)))) + (let () + (declare (not safe)) + (_g5618156221_))))) + (let () + (declare (not safe)) + (_g5618156221_))))))) + _hd5608056142_ + _hd5607756134_ + _hd5607456126_) + (let () + (declare (not safe)) + (_g5605656086_ _g5605756089_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5605656086_ + _g5605756089_))) + (let () + (declare (not safe)) + (_g5605656086_ _g5605756089_))) + (let () + (declare (not safe)) + (_g5605656086_ _g5605756089_))))) + (let () + (declare (not safe)) + (_g5605656086_ _g5605756089_))) + (let () + (declare (not safe)) + (_g5605656086_ _g5605756089_))))) + (let () + (declare (not safe)) + (_g5605656086_ _g5605756089_))))) + (let () (declare (not safe)) (_g5605656086_ _g5605756089_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5605656086_ + _g5605756089_))))) + (let () + (declare (not safe)) + (_g5605656086_ _g5605756089_))) + (let () + (declare (not safe)) + (_g5605656086_ _g5605756089_))) + (let () + (declare (not safe)) + (_g5605656086_ _g5605756089_))))) + (let () + (declare (not safe)) + (_g5605656086_ _g5605756089_)))))) + (declare (not safe)) + (_g5605556752_ _stx56054_)))) (define gxc#optimize-match-body - (lambda (_stx52601_ _negation52602_ _clauses52603_ _konts52604_) - (letrec ((_push-variables52606_ - (lambda (_clause52853_ _kont52854_) - (let ((_clause5285552865_ _clause52853_) - (_kont5285652867_ _kont52854_)) - (let* ((_E5285852871_ + (lambda (_stx55760_ _negation55761_ _clauses55762_ _konts55763_) + (letrec ((_push-variables55765_ + (lambda (_clause56012_ _kont56013_) + (let ((_clause5601456024_ _clause56012_) + (_kont5601556026_ _kont56013_)) + (let* ((_E5601756030_ (lambda () (error '"No clause matching" - _clause5285552865_ - _kont5285652867_))) - (_K5285952878_ - (lambda (_clause-lambda52874_ - _clause-name52875_ - _K52876_) - (cons _clause-name52875_ - (gxc#apply-push-match-vars - _clause-lambda52874_ - '() - _K52876_))))) + _clause5601456024_ + _kont5601556026_))) + (_K5601856037_ + (lambda (_clause-lambda56033_ + _clause-name56034_ + _K56035_) + (let ((__tmp60010 + (let () + (declare (not safe)) + (gxc#apply-push-match-vars + _clause-lambda56033_ + '() + _K56035_)))) + (declare (not safe)) + (cons _clause-name56034_ __tmp60010))))) (if (let () (declare (not safe)) - (##pair? _clause5285552865_)) - (let ((_hd5286252881_ + (##pair? _clause5601456024_)) + (let ((_hd5602156040_ (let () (declare (not safe)) - (##car _clause5285552865_))) - (_tl5286352883_ + (##car _clause5601456024_))) + (_tl5602256042_ (let () (declare (not safe)) - (##cdr _clause5285552865_)))) - (let* ((_clause-name52886_ _hd5286252881_) - (_clause-lambda52888_ _tl5286352883_)) + (##cdr _clause5601456024_)))) + (let* ((_clause-name56045_ _hd5602156040_) + (_clause-lambda56047_ _tl5602256042_)) (if (let () (declare (not safe)) - (##pair? _kont5285652867_)) - (let* ((_hd5286052890_ + (##pair? _kont5601556026_)) + (let* ((_hd5601956049_ (let () (declare (not safe)) - (##car _kont5285652867_))) - (_K52893_ _hd5286052890_)) - (_K5285952878_ - _clause-lambda52888_ - _clause-name52886_ - _K52893_)) - (_E5285852871_)))) - (_E5285852871_)))))) - (_start-match52607_ - (lambda (_kont52787_) - (let* ((_g5278952805_ - (lambda (_g5279052802_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g5279052802_))) - (_g5278852850_ - (lambda (_g5279052808_) - (if (gx#stx-pair? _g5279052808_) - (let ((_e5279252810_ - (gx#stx-e _g5279052808_))) - (let ((_hd5279352813_ + (##car _kont5601556026_))) + (_K56052_ _hd5601956049_)) + (declare (not safe)) + (_K5601856037_ + _clause-lambda56047_ + _clause-name56045_ + _K56052_)) + (let () + (declare (not safe)) + (_E5601756030_))))) + (let () (declare (not safe)) (_E5601756030_))))))) + (_start-match55766_ + (lambda (_kont55946_) + (let* ((_g5594855964_ + (lambda (_g5594955961_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g5594955961_)))) + (_g5594756009_ + (lambda (_g5594955967_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g5594955967_)) + (let ((_e5595355969_ + (let () + (declare (not safe)) + (gx#stx-e _g5594955967_)))) + (let ((_hd5595255972_ (let () (declare (not safe)) - (##car _e5279252810_))) - (_tl5279452815_ + (##car _e5595355969_))) + (_tl5595155974_ (let () (declare (not safe)) - (##cdr _e5279252810_)))) - (if (gx#identifier? _hd5279352813_) - (if (gx#stx-eq? - '%#lambda - _hd5279352813_) - (if (gx#stx-pair? _tl5279452815_) - (let ((_e5279552818_ - (gx#stx-e - _tl5279452815_))) - (let ((_hd5279652821_ + (##cdr _e5595355969_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5595255972_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd5595255972_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5595155974_)) + (let ((_e5595655977_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5595155974_)))) + (let ((_hd5595555980_ (let () (declare (not safe)) - (##car _e5279552818_))) - (_tl5279752823_ + (##car _e5595655977_))) + (_tl5595455982_ (let () (declare (not safe)) - (##cdr _e5279552818_)))) - (if (gx#stx-null? - _hd5279652821_) - (if (gx#stx-pair? - _tl5279752823_) - (let ((_e5279852826_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5279752823_))) - (let ((_hd5279952829_ + (##cdr _e5595655977_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _hd5595555980_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5595455982_)) + (let ((_e5595955985_ + (let () + (declare (not safe)) + (gx#stx-e _tl5595455982_)))) + (let ((_hd5595855988_ (let () (declare (not safe)) - (##car _e5279852826_))) - (_tl5280052831_ + (##car _e5595955985_))) + (_tl5595755990_ (let () (declare (not safe)) - (##cdr _e5279852826_)))) - (if (gx#stx-null? _tl5280052831_) - ((lambda (_L52834_) _L52834_) _hd5279952829_) - (_g5278952805_ _g5279052808_)))) - (_g5278952805_ _g5279052808_)) - (_g5278952805_ _g5279052808_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5278952805_ - _g5279052808_)) - (_g5278952805_ _g5279052808_)) - (_g5278952805_ _g5279052808_)))) - (_g5278952805_ _g5279052808_))))) - (_g5278852850_ _kont52787_)))) - (_match-body52608_ - (lambda (_blocks52684_) - (let* ((_blocks5268552694_ _blocks52684_) - (_E5268752698_ + (##cdr _e5595955985_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5595755990_)) + ((lambda (_L55993_) _L55993_) _hd5595855988_) + (let () + (declare (not safe)) + (_g5594855964_ _g5594955967_))))) + (let () + (declare (not safe)) + (_g5594855964_ _g5594955967_))) + (let () + (declare (not safe)) + (_g5594855964_ _g5594955967_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5594855964_ + _g5594955967_))) + (let () + (declare (not safe)) + (_g5594855964_ _g5594955967_))) + (let () + (declare (not safe)) + (_g5594855964_ _g5594955967_))))) + (let () + (declare (not safe)) + (_g5594855964_ _g5594955967_)))))) + (declare (not safe)) + (_g5594756009_ _kont55946_)))) + (_match-body55767_ + (lambda (_blocks55843_) + (let* ((_blocks5584455853_ _blocks55843_) + (_E5584655857_ (lambda () (error '"No clause matching" - _blocks5268552694_))) - (_K5268852770_ - (lambda (_rest52701_ _start52702_) - (let _lp52704_ ((_rest52706_ _rest52701_) - (_body52707_ - (_start-match52607_ - _start52702_))) - (let* ((_rest5270852716_ _rest52706_) - (_else5271052724_ - (lambda () _body52707_)) - (_K5271252758_ - (lambda (_rest52727_ _block52728_) - (let* ((_block5272952736_ - _block52728_) - (_E5273152740_ + _blocks5584455853_))) + (_K5584755929_ + (lambda (_rest55860_ _start55861_) + (let _lp55863_ ((_rest55865_ _rest55860_) + (_body55866_ + (let () + (declare (not safe)) + (_start-match55766_ + _start55861_)))) + (let* ((_rest5586755875_ _rest55865_) + (_else5586955883_ + (lambda () _body55866_)) + (_K5587155917_ + (lambda (_rest55886_ _block55887_) + (let* ((_block5588855895_ + _block55887_) + (_E5589055899_ (lambda () (error '"No clause matching" - _block5272952736_))) - (_K5273252746_ - (lambda (_kont52743_ - _K52744_) - (_lp52704_ - _rest52727_ - (cons '%#let-values - (cons (cons (cons (cons _K52744_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _kont52743_ '())) - '()) - (cons _body52707_ '()))))))) + _block5588855895_))) + (_K5589155905_ + (lambda (_kont55902_ + _K55903_) + (let ((__tmp60011 + (let ((__tmp60012 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60014 + (let ((__tmp60015 + (let ((__tmp60017 + (let () + (declare (not safe)) + (cons _K55903_ '()))) + (__tmp60016 + (let () + (declare (not safe)) + (cons _kont55902_ '())))) + (declare (not safe)) + (cons __tmp60017 __tmp60016)))) + (declare (not safe)) + (cons __tmp60015 '()))) + (__tmp60013 + (let () + (declare (not safe)) + (cons _body55866_ '())))) + (declare (not safe)) + (cons __tmp60014 __tmp60013)))) + (declare (not safe)) + (cons '%#let-values __tmp60012)))) + (declare (not safe)) + (_lp55863_ _rest55886_ __tmp60011))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _block5272952736_)) - (let ((_hd5273352749_ + (##pair? _block5588855895_)) + (let ((_hd5589255908_ (let () (declare (not safe)) - (##car _block5272952736_))) - (_tl5273452751_ + (##car _block5588855895_))) + (_tl5589355910_ (let () (declare (not safe)) - (##cdr _block5272952736_)))) - (let* ((_K52754_ - _hd5273352749_) - (_kont52756_ - _tl5273452751_)) - (_K5273252746_ - _kont52756_ - _K52754_))) - (_E5273152740_)))))) + (##cdr _block5588855895_)))) + (let* ((_K55913_ + _hd5589255908_) + (_kont55915_ + _tl5589355910_)) + (declare (not safe)) + (_K5589155905_ + _kont55915_ + _K55913_))) + (let () + (declare (not safe)) + (_E5589055899_))))))) (if (let () (declare (not safe)) - (##pair? _rest5270852716_)) - (let ((_hd5271352761_ + (##pair? _rest5586755875_)) + (let ((_hd5587255920_ (let () (declare (not safe)) - (##car _rest5270852716_))) - (_tl5271452763_ + (##car _rest5586755875_))) + (_tl5587355922_ (let () (declare (not safe)) - (##cdr _rest5270852716_)))) - (let* ((_block52766_ _hd5271352761_) - (_rest52768_ _tl5271452763_)) - (_K5271252758_ - _rest52768_ - _block52766_))) - (_else5271052724_))))))) + (##cdr _rest5586755875_)))) + (let* ((_block55925_ _hd5587255920_) + (_rest55927_ _tl5587355922_)) + (declare (not safe)) + (_K5587155917_ + _rest55927_ + _block55925_))) + (let () + (declare (not safe)) + (_else5586955883_)))))))) (if (let () (declare (not safe)) - (##pair? _blocks5268552694_)) - (let ((_hd5268952773_ + (##pair? _blocks5584455853_)) + (let ((_hd5584855932_ (let () (declare (not safe)) - (##car _blocks5268552694_))) - (_tl5269052775_ + (##car _blocks5584455853_))) + (_tl5584955934_ (let () (declare (not safe)) - (##cdr _blocks5268552694_)))) + (##cdr _blocks5584455853_)))) (if (let () (declare (not safe)) - (##pair? _hd5268952773_)) - (let ((_hd5269152778_ + (##pair? _hd5584855932_)) + (let ((_hd5585055937_ (let () (declare (not safe)) - (##car _hd5268952773_))) - (_tl5269252780_ + (##car _hd5584855932_))) + (_tl5585155939_ (let () (declare (not safe)) - (##cdr _hd5268952773_)))) + (##cdr _hd5584855932_)))) (if (let () (declare (not safe)) - (##eq? _hd5269152778_ '#f)) - (let* ((_start52783_ _tl5269252780_) - (_rest52785_ _tl5269052775_)) - (_K5268852770_ - _rest52785_ - _start52783_)) - (_E5268752698_))) - (_E5268752698_))) - (_E5268752698_)))))) - (call-with-parameters - (lambda () - (let* ((_clauses52611_ - (map _push-variables52606_ _clauses52603_ _konts52604_)) - (_blocks52613_ - (gxc#optimize-match-basic-blocks _clauses52611_)) - (_blocks52615_ - (gxc#optimize-match-fold-basic-blocks _blocks52613_)) - (_body52617_ (_match-body52608_ _blocks52615_)) - (_bind52651_ - (map (lambda (_e5261852620_) - (let* ((_g5262252629_ _e5261852620_) - (_E5262452633_ - (lambda () - (error '"No clause matching" - _g5262252629_))) - (_K5262552639_ - (lambda (_kont52636_ _K52637_) - (cons (cons _K52637_ '()) - (cons _kont52636_ '()))))) - (if (let () - (declare (not safe)) - (##pair? _g5262252629_)) - (let ((_hd5262652642_ - (let () - (declare (not safe)) - (##car _g5262252629_))) - (_tl5262752644_ - (let () - (declare (not safe)) - (##cdr _g5262252629_)))) - (let* ((_K52647_ _hd5262652642_) - (_kont52649_ _tl5262752644_)) - (_K5262552639_ _kont52649_ _K52647_))) - (_E5262452633_)))) - _konts52604_)) - (_negate52681_ - (let* ((_negation5265252659_ _negation52602_) - (_E5265452663_ - (lambda () - (error '"No clause matching" - _negation5265252659_))) - (_K5265552669_ - (lambda (_kont52666_ _K52667_) - (cons (cons _K52667_ '()) - (cons _kont52666_ '()))))) - (if (let () + (##eq? _hd5585055937_ '#f)) + (let* ((_start55942_ _tl5585155939_) + (_rest55944_ _tl5584955934_)) + (declare (not safe)) + (_K5584755929_ + _rest55944_ + _start55942_)) + (let () + (declare (not safe)) + (_E5584655857_)))) + (let () (declare (not safe)) (_E5584655857_)))) + (let () (declare (not safe)) (_E5584655857_))))))) + (let ((__tmp60019 + (lambda () + (let* ((_clauses55770_ + (let () (declare (not safe)) - (##pair? _negation5265252659_)) - (let ((_hd5265652672_ - (let () - (declare (not safe)) - (##car _negation5265252659_))) - (_tl5265752674_ - (let () - (declare (not safe)) - (##cdr _negation5265252659_)))) - (let* ((_K52677_ _hd5265652672_) - (_kont52679_ _tl5265752674_)) - (_K5265552669_ _kont52679_ _K52677_))) - (_E5265452663_))))) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (cons _negate52681_ '()) - (cons (cons '%#let-values - (cons _bind52651_ - (cons _body52617_ '()))) - '()))) - _stx52601_))) - gx#current-expander-context - (let ((__obj56794 (make-object gx#local-context::t '5))) - (gx#local-context:::init!__0 __obj56794) - __obj56794))))) + (map _push-variables55765_ + _clauses55762_ + _konts55763_))) + (_blocks55772_ + (let () + (declare (not safe)) + (gxc#optimize-match-basic-blocks _clauses55770_))) + (_blocks55774_ + (let () + (declare (not safe)) + (gxc#optimize-match-fold-basic-blocks + _blocks55772_))) + (_body55776_ + (let () + (declare (not safe)) + (_match-body55767_ _blocks55774_))) + (_bind55810_ + (let ((__tmp60020 + (lambda (_e5577755779_) + (let* ((_g5578155788_ _e5577755779_) + (_E5578355792_ + (lambda () + (error '"No clause matching" + _g5578155788_))) + (_K5578455798_ + (lambda (_kont55795_ _K55796_) + (let ((__tmp60022 + (let () + (declare (not safe)) + (cons _K55796_ '()))) + (__tmp60021 + (let () + (declare (not safe)) + (cons _kont55795_ + '())))) + (declare (not safe)) + (cons __tmp60022 + __tmp60021))))) + (if (let () + (declare (not safe)) + (##pair? _g5578155788_)) + (let ((_hd5578555801_ + (let () + (declare (not safe)) + (##car _g5578155788_))) + (_tl5578655803_ + (let () + (declare (not safe)) + (##cdr _g5578155788_)))) + (let* ((_K55806_ _hd5578555801_) + (_kont55808_ + _tl5578655803_)) + (declare (not safe)) + (_K5578455798_ + _kont55808_ + _K55806_))) + (let () + (declare (not safe)) + (_E5578355792_))))))) + (declare (not safe)) + (map __tmp60020 _konts55763_))) + (_negate55840_ + (let* ((_negation5581155818_ _negation55761_) + (_E5581355822_ + (lambda () + (error '"No clause matching" + _negation5581155818_))) + (_K5581455828_ + (lambda (_kont55825_ _K55826_) + (let ((__tmp60024 + (let () + (declare (not safe)) + (cons _K55826_ '()))) + (__tmp60023 + (let () + (declare (not safe)) + (cons _kont55825_ '())))) + (declare (not safe)) + (cons __tmp60024 __tmp60023))))) + (if (let () + (declare (not safe)) + (##pair? _negation5581155818_)) + (let ((_hd5581555831_ + (let () + (declare (not safe)) + (##car _negation5581155818_))) + (_tl5581655833_ + (let () + (declare (not safe)) + (##cdr _negation5581155818_)))) + (let* ((_K55836_ _hd5581555831_) + (_kont55838_ _tl5581655833_)) + (declare (not safe)) + (_K5581455828_ _kont55838_ _K55836_))) + (let () + (declare (not safe)) + (_E5581355822_)))))) + (let ((__tmp60025 + (let ((__tmp60026 + (let ((__tmp60031 + (let () + (declare (not safe)) + (cons _negate55840_ '()))) + (__tmp60027 + (let ((__tmp60028 + (let ((__tmp60029 + (let ((__tmp60030 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _body55776_ '())))) + (declare (not safe)) + (cons _bind55810_ __tmp60030)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#let-values + __tmp60029)))) + (declare (not safe)) + (cons __tmp60028 '())))) + (declare (not safe)) + (cons __tmp60031 __tmp60027)))) + (declare (not safe)) + (cons '%#let-values __tmp60026)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp60025 _stx55760_))))) + (__tmp60018 + (let () + (declare (not safe)) + (make-struct-instance gx#local-context::t)))) + (declare (not safe)) + (call-with-parameters + __tmp60019 + gx#current-expander-context + __tmp60018))))) (define gxc#optimize-match-basic-blocks - (lambda (_clauses52561_) - (let _lp52563_ ((_rest52565_ _clauses52561_) (_blocks52566_ '())) - (let* ((_rest5256752575_ _rest52565_) - (_else5256952583_ (lambda () (reverse _blocks52566_))) - (_K5257152589_ - (lambda (_rest52586_ _clause52587_) - (_lp52563_ - _rest52586_ - (gxc#optimize-match-lift-basic-blocks - _clause52587_ - _blocks52566_))))) - (if (let () (declare (not safe)) (##pair? _rest5256752575_)) - (let ((_hd5257252592_ - (let () (declare (not safe)) (##car _rest5256752575_))) - (_tl5257352594_ - (let () (declare (not safe)) (##cdr _rest5256752575_)))) - (let* ((_clause52597_ _hd5257252592_) - (_rest52599_ _tl5257352594_)) - (_K5257152589_ _rest52599_ _clause52597_))) - (_else5256952583_)))))) + (lambda (_clauses55720_) + (let _lp55722_ ((_rest55724_ _clauses55720_) (_blocks55725_ '())) + (let* ((_rest5572655734_ _rest55724_) + (_else5572855742_ + (lambda () + (let () (declare (not safe)) (reverse _blocks55725_)))) + (_K5573055748_ + (lambda (_rest55745_ _clause55746_) + (let ((__tmp60032 + (let () + (declare (not safe)) + (gxc#optimize-match-lift-basic-blocks + _clause55746_ + _blocks55725_)))) + (declare (not safe)) + (_lp55722_ _rest55745_ __tmp60032))))) + (if (let () (declare (not safe)) (##pair? _rest5572655734_)) + (let ((_hd5573155751_ + (let () (declare (not safe)) (##car _rest5572655734_))) + (_tl5573255753_ + (let () (declare (not safe)) (##cdr _rest5572655734_)))) + (let* ((_clause55756_ _hd5573155751_) + (_rest55758_ _tl5573255753_)) + (declare (not safe)) + (_K5573055748_ _rest55758_ _clause55756_))) + (let () (declare (not safe)) (_else5572855742_))))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_clause51905_ _blocks51906_) - (letrec ((_bind->args51908_ - (lambda (_bind52556_) - (foldl1 (lambda (_b52558_ _r52559_) - (cons (cons '%#ref (cons (car _b52558_) '())) - _r52559_)) - '() - _bind52556_))) - (_create-block51909_ - (lambda (_body52505_ - _let-bind52506_ - _bind52507_ - _assert52508_) - (let* ((_id52510_ (make-symbol (gensym '__match))) - (_id52512_ (gx#core-quote-syntax__0 _id52510_)) - (_g56797_ (gx#core-bind-runtime!__0 _id52512_)) - (_block52515_ - (cons _id52512_ - (cons _body52505_ - (cons _bind52507_ - (cons _assert52508_ '()))))) - (_continue52517_ - (cons '%#call - (cons (cons '%#ref (cons _id52512_ '())) - (_bind->args51908_ _bind52507_)))) - (_continue52553_ - (if (null? _let-bind52506_) - _continue52517_ - (let ((_locals52551_ - (map (lambda (_e5251852520_) - (let* ((_g5252252529_ - _e5251852520_) - (_E5252452533_ - (lambda () - (error '"No clause matching" - _g5252252529_))) - (_K5252552539_ - (lambda (_expr52536_ - _id52537_) - (cons (cons _id52537_ + (lambda (_clause55064_ _blocks55065_) + (letrec ((_bind->args55067_ + (lambda (_bind55715_) + (let ((__tmp60033 + (lambda (_b55717_ _r55718_) + (let ((__tmp60034 + (let ((__tmp60035 + (let ((__tmp60036 + (let () + (declare (not safe)) + (car _b55717_)))) + (declare (not safe)) + (cons __tmp60036 '())))) + (declare (not safe)) + (cons '%#ref __tmp60035)))) + (declare (not safe)) + (cons __tmp60034 _r55718_))))) + (declare (not safe)) + (foldl1 __tmp60033 '() _bind55715_)))) + (_create-block55068_ + (lambda (_body55664_ + _let-bind55665_ + _bind55666_ + _assert55667_) + (let* ((_id55669_ + (make-symbol + (let () (declare (not safe)) (gensym '__match)))) + (_id55671_ + (let () + (declare (not safe)) + (gx#core-quote-syntax__0 _id55669_))) + (_g60037_ + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _id55671_))) + (_block55674_ + (let ((__tmp60038 + (let ((__tmp60039 + (let ((__tmp60040 + (let () + (declare (not safe)) + (cons _assert55667_ '())))) + (declare (not safe)) + (cons _bind55666_ __tmp60040)))) + (declare (not safe)) + (cons _body55664_ __tmp60039)))) + (declare (not safe)) + (cons _id55671_ __tmp60038))) + (_continue55676_ + (let ((__tmp60041 + (let ((__tmp60043 + (let ((__tmp60044 + (let () + (declare (not safe)) + (cons _id55671_ '())))) + (declare (not safe)) + (cons '%#ref __tmp60044))) + (__tmp60042 + (let () + (declare (not safe)) + (_bind->args55067_ _bind55666_)))) + (declare (not safe)) + (cons __tmp60043 __tmp60042)))) + (declare (not safe)) + (cons '%#call __tmp60041))) + (_continue55712_ + (if (let () + (declare (not safe)) + (null? _let-bind55665_)) + _continue55676_ + (let* ((_locals55710_ + (let ((__tmp60045 + (lambda (_e5567755679_) + (let* ((_g5568155688_ + _e5567755679_) + (_E5568355692_ + (lambda () + (error '"No clause matching" +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g5568155688_))) + (_K5568455698_ + (lambda (_expr55695_ _id55696_) + (let ((__tmp60047 + (let () (declare (not safe)) (cons _id55696_ '()))) + (__tmp60046 + (let () + (declare (not safe)) + (cons _expr55695_ '())))) + (declare (not safe)) + (cons __tmp60047 __tmp60046))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (##pair? _g5568155688_)) + (let ((_hd5568555701_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _expr52536_ '()))))) + (not safe)) + (##car _g5568155688_))) + (_tl5568655703_ + (let () (declare (not safe)) (##cdr _g5568155688_)))) + (let* ((_id55706_ _hd5568555701_) + (_expr55708_ _tl5568655703_)) + (declare (not safe)) + (_K5568455698_ _expr55708_ _id55706_))) + (let () (declare (not safe)) (_E5568355692_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _g5252252529_)) - (let ((_hd5252652542_ - (let () - (declare - (not safe)) - (##car _g5252252529_))) - (_tl5252752544_ - (let () - (declare - (not safe)) - (##cdr _g5252252529_)))) - (let* ((_id52547_ - _hd5252652542_) - (_expr52549_ - _tl5252752544_)) - (_K5252552539_ - _expr52549_ - _id52547_))) - (_E5252452533_)))) - _let-bind52506_))) - (cons '%#let-values - (cons _locals52551_ - (cons _continue52517_ '()))))))) - (values _continue52553_ _block52515_)))) - (_basic-block51910_ - (lambda (_body52091_ _bind52092_ _assert52093_) - (let* ((___stx5403754038_ _body52091_) - (_g5209852182_ + (declare (not safe)) + (map __tmp60045 _let-bind55665_))) + (__tmp60048 + (let ((__tmp60049 + (let () + (declare (not safe)) + (cons _continue55676_ '())))) + (declare (not safe)) + (cons _locals55710_ __tmp60049)))) + (declare (not safe)) + (cons '%#let-values __tmp60048))))) + (values _continue55712_ _block55674_)))) + (_basic-block55069_ + (lambda (_body55250_ _bind55251_ _assert55252_) + (let* ((___stx5719657197_ _body55250_) + (_g5525755341_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5403754038_)))) - (let ((___kont5403954040_ - (lambda (_L52441_ _L52442_ _L52443_) - (let ((_g56798_ - (_create-block51909_ - _L52442_ - '() - _bind52092_ - (cons (cons _L52443_ '#t) - _assert52093_)))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5719657197_))))) + (let ((___kont5719857199_ + (lambda (_L55600_ _L55601_ _L55602_) + (let ((_g60050_ + (let ((__tmp60052 + (let ((__tmp60053 + (let () + (declare (not safe)) + (cons _L55602_ '#t)))) + (declare (not safe)) + (cons __tmp60053 + _assert55252_)))) + (declare (not safe)) + (_create-block55068_ + _L55601_ + '() + _bind55251_ + __tmp60052)))) (begin - (let ((_g56799_ + (let ((_g60051_ (let () (declare (not safe)) - (if (##values? _g56798_) - (##vector-length _g56798_) + (if (##values? _g60050_) + (##vector-length _g60050_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g56799_ 2))) + (##fx= _g60051_ 2))) (error "Context expects 2 values" - _g56799_))) - (let ((_k-continue52461_ + _g60051_))) + (let ((_k-continue55620_ (let () (declare (not safe)) - (##vector-ref _g56798_ 0))) - (_k-block52462_ + (##vector-ref _g60050_ 0))) + (_k-block55621_ (let () (declare (not safe)) - (##vector-ref _g56798_ 1)))) - (let* ((___stx5401954020_ _L52441_) - (_g5246552474_ + (##vector-ref _g60050_ 1)))) + (let* ((___stx5717857179_ _L55600_) + (_g5562455633_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5401954020_)))) - (let ((___kont5402154022_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5717857179_))))) + (let ((___kont5718057181_ (lambda () - (values (cons '%#if - (cons _L52443_ + (values (let ((__tmp60054 + (let ((__tmp60055 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _k-continue52461_ (cons _L52441_ '())))) - (cons _k-block52462_ '())))) + (let ((__tmp60056 + (let () + (declare (not safe)) + (cons _L55600_ '())))) + (declare (not safe)) + (cons _k-continue55620_ __tmp60056)))) + (declare (not safe)) + (cons _L55602_ __tmp60055)))) + (declare (not safe)) + (cons '%#if __tmp60054)) + (let () (declare (not safe)) (cons _k-block55621_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5402354024_ + (___kont5718257183_ (lambda () - (let ((_g56800_ - (_create-block51909_ - _L52441_ - '() - _bind52092_ - (cons (cons _L52443_ + (let ((_g60057_ + (let ((__tmp60059 + (let ((__tmp60060 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f) - _assert52093_)))) + (let () + (declare (not safe)) + (cons _L55602_ '#f)))) + (declare (not safe)) + (cons __tmp60060 _assert55252_)))) + (declare (not safe)) + (_create-block55068_ _L55600_ '() _bind55251_ __tmp60059)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g56801_ + (let ((_g60058_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g56800_) - (##vector-length _g56800_) + _g60057_) + (##vector-length _g60057_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g56801_ 2))) - (error "Context expects 2 values" _g56801_))) + (if (not (let () (declare (not safe)) (##fx= _g60058_ 2))) + (error "Context expects 2 values" _g60058_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_e-continue52481_ + (let ((_e-continue55640_ (let () (declare (not safe)) (##vector-ref - _g56800_ + _g60057_ 0))) - (_e-block52482_ + (_e-block55641_ (let () (declare (not safe)) (##vector-ref - _g56800_ + _g60057_ 1)))) - (values (cons '%#if + (values (let ((__tmp60061 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L52443_ - (cons _k-continue52461_ - (cons _e-continue52481_ '())))) - (cons _k-block52462_ (cons _e-block52482_ '()))))))))) + (let ((__tmp60062 + (let ((__tmp60063 + (let () + (declare (not safe)) + (cons _e-continue55640_ '())))) + (declare (not safe)) + (cons _k-continue55620_ __tmp60063)))) + (declare (not safe)) + (cons _L55602_ __tmp60062)))) + (declare (not safe)) + (cons '%#if __tmp60061)) + (let ((__tmp60064 + (let () + (declare (not safe)) + (cons _e-block55641_ '())))) + (declare (not safe)) + (cons _k-block55621_ __tmp60064))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? ___stx5401954020_) - (let ((_e5246752489_ - (gx#stx-e - ___stx5401954020_))) - (let ((_tl5246952494_ + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx5717857179_)) + (let ((_e5562855648_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx5717857179_)))) + (let ((_tl5562655653_ (let () (declare (not safe)) - (##cdr _e5246752489_))) - (_hd5246852492_ + (##cdr _e5562855648_))) + (_hd5562755651_ (let () (declare (not safe)) - (##car _e5246752489_)))) - (if (gx#identifier? - _hd5246852492_) - (if (gx#stx-eq? - '%#call - _hd5246852492_) - (___kont5402154022_) - (___kont5402354024_)) - (___kont5402354024_)))) - (___kont5402354024_))))))))) - (___kont5404154042_ - (lambda () (values _body52091_ '()))) - (___kont5404554046_ - (lambda (_L52270_ _L52271_ _L52272_) - (let* ((_let-bind52307_ - (map cons - (foldr1 (lambda (_g5229252295_ - _g5229352297_) - (cons _g5229252295_ - _g5229352297_)) - '() - _L52272_) - (foldr1 (lambda (_g5229952302_ - _g5230052304_) - (cons _g5229952302_ - _g5230052304_)) - '() - _L52271_))) - (_g56802_ - (_create-block51909_ - _L52270_ - _let-bind52307_ - (foldl1 cons - _bind52092_ - _let-bind52307_) - _assert52093_))) + (##car _e5562855648_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5562755651_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd5562755651_)) + (___kont5718057181_) + (___kont5718257183_)) + (___kont5718257183_)))) + (___kont5718257183_))))))))) + (___kont5720057201_ + (lambda () (values _body55250_ '()))) + (___kont5720457205_ + (lambda (_L55429_ _L55430_ _L55431_) + (let* ((_let-bind55466_ + (let ((__tmp60067 + (let ((__tmp60068 + (lambda (_g5545155454_ + _g5545255456_) + (let () + (declare (not safe)) + (cons _g5545155454_ + _g5545255456_))))) + (declare (not safe)) + (foldr1 __tmp60068 + '() + _L55431_))) + (__tmp60065 + (let ((__tmp60066 + (lambda (_g5545855461_ + _g5545955463_) + (let () + (declare (not safe)) + (cons _g5545855461_ + _g5545955463_))))) + (declare (not safe)) + (foldr1 __tmp60066 + '() + _L55430_)))) + (declare (not safe)) + (map cons __tmp60067 __tmp60065))) + (_g60069_ + (let ((__tmp60071 + (let () + (declare (not safe)) + (foldl1 cons + _bind55251_ + _let-bind55466_)))) + (declare (not safe)) + (_create-block55068_ + _L55429_ + _let-bind55466_ + __tmp60071 + _assert55252_)))) (begin - (let ((_g56803_ + (let ((_g60070_ (let () (declare (not safe)) - (if (##values? _g56802_) - (##vector-length _g56802_) + (if (##values? _g60069_) + (##vector-length _g60069_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g56803_ 2))) + (##fx= _g60070_ 2))) (error "Context expects 2 values" - _g56803_))) - (let ((_continue52309_ + _g60070_))) + (let ((_continue55468_ (let () (declare (not safe)) - (##vector-ref _g56802_ 0))) - (_block52310_ + (##vector-ref _g60069_ 0))) + (_block55469_ (let () (declare (not safe)) - (##vector-ref _g56802_ 1)))) + (##vector-ref _g60069_ 1)))) (let () - (values _continue52309_ - (cons _block52310_ '())))))))) - (___kont5404954050_ - (lambda () (values _body52091_ '())))) - (let* ((___match5412854129_ - (lambda (_e5214952194_ - _hd5215052197_ - _tl5215152199_ - _e5215252202_ - _hd5215352205_ - _tl5215452207_ - ___splice5404754048_ - _target5215552210_ - _tl5215752212_) - (letrec ((_loop5215852215_ - (lambda (_hd5215652218_ - _expr5216252220_ - _id5216352222_) - (if (gx#stx-pair? _hd5215652218_) - (let ((_e5215952225_ - (gx#stx-e - _hd5215652218_))) - (let ((_lp-tl5216152230_ + (values _continue55468_ + (let () + (declare (not safe)) + (cons _block55469_ + '()))))))))) + (___kont5720857209_ + (lambda () (values _body55250_ '())))) + (let* ((___match5728757288_ + (lambda (_e5531055353_ + _hd5530955356_ + _tl5530855358_ + _e5531355361_ + _hd5531255364_ + _tl5531155366_ + ___splice5720657207_ + _target5531455369_ + _tl5531655371_) + (letrec ((_loop5531755374_ + (lambda (_hd5531555377_ + _expr5532155379_ + _id5532255381_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5531555377_)) + (let ((_e5531855384_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5531555377_)))) + (let ((_lp-tl5532055389_ (let () (declare (not safe)) - (##cdr _e5215952225_))) - (_lp-hd5216052228_ + (##cdr _e5531855384_))) + (_lp-hd5531955387_ (let () (declare (not safe)) - (##car _e5215952225_)))) - (if (gx#stx-pair? - _lp-hd5216052228_) - (let ((_e5216652233_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _lp-hd5216052228_))) - (let ((_tl5216852238_ - (let () (declare (not safe)) (##cdr _e5216652233_))) - (_hd5216752236_ + (##car _e5531855384_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _lp-hd5531955387_)) + (let ((_e5532755392_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _lp-hd5531955387_)))) + (let ((_tl5532555397_ + (let () (declare (not safe)) (##cdr _e5532755392_))) + (_hd5532655395_ (let () (declare (not safe)) - (##car _e5216652233_)))) - (if (gx#stx-pair? _hd5216752236_) - (let ((_e5216952241_ (gx#stx-e _hd5216752236_))) - (let ((_tl5217152246_ + (##car _e5532755392_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5532655395_)) + (let ((_e5533055400_ + (let () + (declare (not safe)) + (gx#stx-e _hd5532655395_)))) + (let ((_tl5532855405_ (let () (declare (not safe)) - (##cdr _e5216952241_))) - (_hd5217052244_ + (##cdr _e5533055400_))) + (_hd5532955403_ (let () (declare (not safe)) - (##car _e5216952241_)))) - (if (gx#stx-null? _tl5217152246_) - (if (gx#stx-pair? _tl5216852238_) - (let ((_e5217252249_ - (gx#stx-e _tl5216852238_))) - (let ((_tl5217452254_ + (##car _e5533055400_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5532855405_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5532555397_)) + (let ((_e5533355408_ + (let () + (declare (not safe)) + (gx#stx-e _tl5532555397_)))) + (let ((_tl5533155413_ (let () (declare (not safe)) - (##cdr _e5217252249_))) - (_hd5217352252_ + (##cdr _e5533355408_))) + (_hd5533255411_ (let () (declare (not safe)) - (##car _e5217252249_)))) - (if (gx#stx-null? _tl5217452254_) - (_loop5215852215_ - _lp-tl5216152230_ - (cons _hd5217352252_ - _expr5216252220_) - (cons _hd5217052244_ - _id5216352222_)) - (___kont5404954050_)))) - (___kont5404954050_)) - (___kont5404954050_)))) - (___kont5404954050_)))) - (___kont5404954050_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id5216552259_ - (reverse _id5216352222_)) - (_expr5216452257_ - (reverse _expr5216252220_))) - (if (gx#stx-pair? - _tl5215452207_) - (let ((_e5217552262_ - (gx#stx-e - _tl5215452207_))) - (let ((_tl5217752267_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5217552262_))) - (_hd5217652265_ - (let () (declare (not safe)) (##car _e5217552262_)))) - (if (gx#stx-null? _tl5217752267_) - (___kont5404554046_ - _hd5217652265_ - _expr5216452257_ - _id5216552259_) - (___kont5404954050_)))) - (___kont5404954050_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop5215852215_ - _target5215552210_ - '() - '())))) - (___match5410454105_ - (lambda (_e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_) - (letrec ((_loop5212452339_ - (lambda (_hd5212252342_) - (if (gx#stx-pair? _hd5212252342_) - (let ((_e5212552345_ - (gx#stx-e - _hd5212252342_))) - (let ((_lp-tl5212752350_ + (##car _e5533355408_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5533155413_)) + (let ((__tmp60073 + (let () + (declare (not safe)) + (cons _hd5533255411_ + _expr5532155379_))) + (__tmp60072 + (let () + (declare (not safe)) + (cons _hd5532955403_ + _id5532255381_)))) + (declare (not safe)) + (_loop5531755374_ + _lp-tl5532055389_ + __tmp60073 + __tmp60072)) + (___kont5720857209_)))) + (___kont5720857209_)) + (___kont5720857209_)))) + (___kont5720857209_)))) + (___kont5720857209_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_id5532455418_ + (let () + (declare (not safe)) + (reverse _id5532255381_))) + (_expr5532355416_ + (let () + (declare (not safe)) + (reverse _expr5532155379_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5531155366_)) + (let ((_e5533655421_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5531155366_)))) + (let ((_tl5533455426_ + (let () (declare (not safe)) (##cdr _e5533655421_))) + (_hd5533555424_ + (let () (declare (not safe)) (##car _e5533655421_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5533455426_)) + (___kont5720457205_ + _hd5533555424_ + _expr5532355416_ + _id5532455418_) + (___kont5720857209_)))) + (___kont5720857209_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop5531755374_ + _target5531455369_ + '() + '()))))) + (___match5726357264_ + (lambda (_e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_) + (letrec ((_loop5528355498_ + (lambda (_hd5528155501_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5528155501_)) + (let ((_e5528455504_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5528155501_)))) + (let ((_lp-tl5528655509_ (let () (declare (not safe)) - (##cdr _e5212552345_))) - (_lp-hd5212652348_ + (##cdr _e5528455504_))) + (_lp-hd5528555507_ (let () (declare (not safe)) - (##car _e5212552345_)))) - (if (gx#stx-pair? - _lp-hd5212652348_) - (let ((_e5212852353_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _lp-hd5212652348_))) - (let ((_tl5213052358_ - (let () (declare (not safe)) (##cdr _e5212852353_))) - (_hd5212952356_ + (##car _e5528455504_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _lp-hd5528555507_)) + (let ((_e5528955512_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _lp-hd5528555507_)))) + (let ((_tl5528755517_ + (let () (declare (not safe)) (##cdr _e5528955512_))) + (_hd5528855515_ (let () (declare (not safe)) - (##car _e5212852353_)))) - (if (gx#stx-pair? _hd5212952356_) - (let ((_e5213152361_ (gx#stx-e _hd5212952356_))) - (let ((_tl5213352366_ + (##car _e5528955512_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5528855515_)) + (let ((_e5529255520_ + (let () + (declare (not safe)) + (gx#stx-e _hd5528855515_)))) + (let ((_tl5529055525_ (let () (declare (not safe)) - (##cdr _e5213152361_))) - (_hd5213252364_ + (##cdr _e5529255520_))) + (_hd5529155523_ (let () (declare (not safe)) - (##car _e5213152361_)))) - (if (gx#stx-null? _tl5213352366_) - (if (gx#stx-pair? _tl5213052358_) - (let ((_e5213452369_ - (gx#stx-e _tl5213052358_))) - (let ((_tl5213652374_ + (##car _e5529255520_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5529055525_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5528755517_)) + (let ((_e5529555528_ + (let () + (declare (not safe)) + (gx#stx-e _tl5528755517_)))) + (let ((_tl5529355533_ (let () (declare (not safe)) - (##cdr _e5213452369_))) - (_hd5213552372_ + (##cdr _e5529555528_))) + (_hd5529455531_ (let () (declare (not safe)) - (##car _e5213452369_)))) - (if (gx#stx-pair? _hd5213552372_) - (let ((_e5213752377_ - (gx#stx-e - _hd5213552372_))) - (let ((_tl5213952382_ + (##car _e5529555528_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5529455531_)) + (let ((_e5529855536_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5529455531_)))) + (let ((_tl5529655541_ (let () (declare (not safe)) - (##cdr _e5213752377_))) - (_hd5213852380_ + (##cdr _e5529855536_))) + (_hd5529755539_ (let () (declare (not safe)) - (##car _e5213752377_)))) - (if (gx#identifier? - _hd5213852380_) - (if (gx#stx-eq? - '%#ref - _hd5213852380_) - (if (gx#stx-pair? - _tl5213952382_) - (let ((_e5214052385_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5213952382_))) - (let ((_tl5214252390_ + (##car _e5529855536_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5529755539_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#ref + _hd5529755539_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5529655541_)) + (let ((_e5530155544_ + (let () + (declare (not safe)) + (gx#stx-e _tl5529655541_)))) + (let ((_tl5529955549_ (let () (declare (not safe)) - (##cdr _e5214052385_))) - (_hd5214152388_ + (##cdr _e5530155544_))) + (_hd5530055547_ (let () (declare (not safe)) - (##car _e5214052385_)))) - (if (gx#stx-null? _tl5214252390_) - (if (gx#stx-null? _tl5213652374_) - (_loop5212452339_ _lp-tl5212752350_) - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_)) - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_)))) - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_)) - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_)) - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_)))) - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_)) - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_)))) - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_)))) - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (if (gx#stx-pair? - _tl5212052331_) - (let ((_e5214352394_ - (gx#stx-e - _tl5212052331_))) - (let ((_tl5214552399_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5214352394_))) - (_hd5214452397_ - (let () (declare (not safe)) (##car _e5214352394_)))) - (if (gx#stx-null? _tl5214552399_) - (___kont5404154042_) - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_)))) - (___match5412854129_ - _e5211552318_ - _hd5211652321_ - _tl5211752323_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop5212452339_ _target5212152334_))))) - (if (gx#stx-pair? ___stx5403754038_) - (let ((_e5210352409_ - (gx#stx-e ___stx5403754038_))) - (let ((_tl5210552414_ - (let () - (declare (not safe)) - (##cdr _e5210352409_))) - (_hd5210452412_ - (let () + (##car _e5530155544_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5529955549_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5529355533_)) + (let () + (declare (not safe)) + (_loop5528355498_ _lp-tl5528655509_)) + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_)) + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_)))) + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_)) + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_)) + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_)))) + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_)) + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_)))) + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_)))) + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5527755490_)) + (let ((_e5530455553_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5527755490_)))) + (let ((_tl5530255558_ + (let () (declare (not safe)) (##cdr _e5530455553_))) + (_hd5530355556_ + (let () (declare (not safe)) (##car _e5530455553_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5530255558_)) + (___kont5720057201_) + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_)))) + (___match5728757288_ + _e5527655477_ + _hd5527555480_ + _tl5527455482_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop5528355498_ + _target5528055493_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5719657197_)) + (let ((_e5526455568_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5719657197_)))) + (let ((_tl5526255573_ + (let () (declare (not safe)) - (##car _e5210352409_)))) - (if (gx#identifier? _hd5210452412_) - (if (gx#stx-eq? '%#if _hd5210452412_) - (if (gx#stx-pair? _tl5210552414_) - (let ((_e5210652417_ - (gx#stx-e - _tl5210552414_))) - (let ((_tl5210852422_ + (##cdr _e5526455568_))) + (_hd5526355571_ + (let () + (declare (not safe)) + (##car _e5526455568_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5526355571_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#if _hd5526355571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5526255573_)) + (let ((_e5526755576_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5526255573_)))) + (let ((_tl5526555581_ (let () (declare (not safe)) - (##cdr _e5210652417_))) - (_hd5210752420_ + (##cdr _e5526755576_))) + (_hd5526655579_ (let () (declare (not safe)) - (##car _e5210652417_)))) - (if (gx#stx-pair? - _tl5210852422_) - (let ((_e5210952425_ - (gx#stx-e - _tl5210852422_))) - (let ((_tl5211152430_ - (let () + (##car _e5526755576_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5526555581_)) + (let ((_e5527055584_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e5210952425_))) - (_hd5211052428_ - (let () (declare (not safe)) (##car _e5210952425_)))) - (if (gx#stx-pair? _tl5211152430_) - (let ((_e5211252433_ (gx#stx-e _tl5211152430_))) - (let ((_tl5211452438_ + (not safe)) + (gx#stx-e _tl5526555581_)))) + (let ((_tl5526855589_ + (let () (declare (not safe)) (##cdr _e5527055584_))) + (_hd5526955587_ + (let () (declare (not safe)) (##car _e5527055584_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5526855589_)) + (let ((_e5527355592_ + (let () + (declare (not safe)) + (gx#stx-e _tl5526855589_)))) + (let ((_tl5527155597_ (let () (declare (not safe)) - (##cdr _e5211252433_))) - (_hd5211352436_ + (##cdr _e5527355592_))) + (_hd5527255595_ (let () (declare (not safe)) - (##car _e5211252433_)))) - (if (gx#stx-null? _tl5211452438_) - (___kont5403954040_ - _hd5211352436_ - _hd5211052428_ - _hd5210752420_) - (___kont5404954050_)))) - (___kont5404954050_)))) - (___kont5404954050_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5404954050_)) - (if (gx#stx-eq? - '%#let-values - _hd5210452412_) - (if (gx#stx-pair? _tl5210552414_) - (let ((_e5211852326_ - (gx#stx-e - _tl5210552414_))) - (let ((_tl5212052331_ + (##car _e5527355592_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5527155597_)) + (___kont5719857199_ + _hd5527255595_ + _hd5526955587_ + _hd5526655579_) + (___kont5720857209_)))) + (___kont5720857209_)))) + (___kont5720857209_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5720857209_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _hd5526355571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5526255573_)) + (let ((_e5527955485_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5526255573_)))) + (let ((_tl5527755490_ (let () (declare (not safe)) - (##cdr _e5211852326_))) - (_hd5211952329_ + (##cdr _e5527955485_))) + (_hd5527855488_ (let () (declare (not safe)) - (##car _e5211852326_)))) - (if (gx#stx-pair/null? - _hd5211952329_) - (let ((___splice5404354044_ + (##car _e5527955485_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair/null? + _hd5527855488_)) + (let ((___splice5720257203_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _hd5211952329_ '0))) - (let ((_tl5212352336_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _hd5527855488_ '0)))) + (let ((_tl5528255495_ (let () (declare (not safe)) - (##vector-ref ___splice5404354044_ '1))) - (_target5212152334_ + (##vector-ref ___splice5720257203_ '1))) + (_target5528055493_ (let () (declare (not safe)) - (##vector-ref ___splice5404354044_ '0)))) - (if (gx#stx-null? _tl5212352336_) - (___match5410454105_ - _e5210352409_ - _hd5210452412_ - _tl5210552414_ - _e5211852326_ - _hd5211952329_ - _tl5212052331_ - ___splice5404354044_ - _target5212152334_ - _tl5212352336_) - (___kont5404954050_)))) - (___kont5404954050_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5404954050_)) - (___kont5404954050_))) - (___kont5404954050_)))) - (___kont5404954050_))))))) - (_fold-blocks51911_ - (lambda (_rest52010_ _blocks52011_) - (let* ((_rest5201252029_ _rest52010_) - (_E5201552033_ + (##vector-ref ___splice5720257203_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5528255495_)) + (___match5726357264_ + _e5526455568_ + _hd5526355571_ + _tl5526255573_ + _e5527955485_ + _hd5527855488_ + _tl5527755490_ + ___splice5720257203_ + _target5528055493_ + _tl5528255495_) + (___kont5720857209_)))) + (___kont5720857209_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5720857209_)) + (___kont5720857209_))) + (___kont5720857209_)))) + (___kont5720857209_))))))) + (_fold-blocks55070_ + (lambda (_rest55169_ _blocks55170_) + (let* ((_rest5517155188_ _rest55169_) + (_E5517455192_ (lambda () - (error '"No clause matching" _rest5201252029_)))) - (let ((_K5201752053_ - (lambda (_rest52044_ - _assert52045_ - _bind52046_ - _body52047_ - _name52048_) - (let ((_g56804_ - (_basic-block51910_ - _body52047_ - _bind52046_ - _assert52045_))) + (error '"No clause matching" _rest5517155188_)))) + (let ((_K5517655212_ + (lambda (_rest55203_ + _assert55204_ + _bind55205_ + _body55206_ + _name55207_) + (let ((_g60074_ + (let () + (declare (not safe)) + (_basic-block55069_ + _body55206_ + _bind55205_ + _assert55204_)))) (begin - (let ((_g56805_ + (let ((_g60075_ (let () (declare (not safe)) - (if (##values? _g56804_) - (##vector-length _g56804_) + (if (##values? _g60074_) + (##vector-length _g60074_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g56805_ 2))) + (##fx= _g60075_ 2))) (error "Context expects 2 values" - _g56805_))) - (let ((_body52050_ + _g60075_))) + (let ((_body55209_ (let () (declare (not safe)) - (##vector-ref _g56804_ 0))) - (_body-blocks52051_ + (##vector-ref _g60074_ 0))) + (_body-blocks55210_ (let () (declare (not safe)) - (##vector-ref _g56804_ 1)))) - (_fold-blocks51911_ - (foldl1 cons - _rest52044_ - _body-blocks52051_) - (cons (cons _name52048_ - (cons 'continue: - (cons (cons '%#lambda -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (reverse (map car _bind52046_)) - (cons _body52050_ '()))) - (cons _assert52045_ (cons _bind52046_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _blocks52011_))))))) - (_K5201652038_ (lambda () _blocks52011_))) - (let ((_try-match5201452041_ + (##vector-ref _g60074_ 1)))) + (let ((__tmp60087 + (let () + (declare (not safe)) + (foldl1 cons + _rest55203_ + _body-blocks55210_))) + (__tmp60076 + (let ((__tmp60077 + (let ((__tmp60078 + (let ((__tmp60079 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60082 + (let ((__tmp60083 + (let ((__tmp60085 + (let ((__tmp60086 + (let () + (declare (not safe)) + (map car _bind55205_)))) + (declare (not safe)) + (reverse __tmp60086))) + (__tmp60084 + (let () + (declare (not safe)) + (cons _body55209_ '())))) + (declare (not safe)) + (cons __tmp60085 __tmp60084)))) + (declare (not safe)) + (cons '%#lambda __tmp60083))) + (__tmp60080 + (let ((__tmp60081 + (let () + (declare (not safe)) + (cons _bind55205_ '())))) + (declare (not safe)) + (cons _assert55204_ __tmp60081)))) + (declare (not safe)) + (cons __tmp60082 __tmp60080)))) + (declare (not safe)) + (cons 'continue: __tmp60079)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _name55207_ + __tmp60078)))) + (declare (not safe)) + (cons __tmp60077 + _blocks55170_)))) + (declare (not safe)) + (_fold-blocks55070_ + __tmp60087 + __tmp60076))))))) + (_K5517555197_ (lambda () _blocks55170_))) + (let ((_try-match5517355200_ (lambda () (if (let () (declare (not safe)) - (##null? _rest5201252029_)) - (_K5201652038_) - (_E5201552033_))))) + (##null? _rest5517155188_)) + (let () + (declare (not safe)) + (_K5517555197_)) + (let () + (declare (not safe)) + (_E5517455192_)))))) (if (let () (declare (not safe)) - (##pair? _rest5201252029_)) - (let ((_tl5201952058_ + (##pair? _rest5517155188_)) + (let ((_tl5517855217_ (let () (declare (not safe)) - (##cdr _rest5201252029_))) - (_hd5201852056_ + (##cdr _rest5517155188_))) + (_hd5517755215_ (let () (declare (not safe)) - (##car _rest5201252029_)))) + (##car _rest5517155188_)))) (if (let () (declare (not safe)) - (##pair? _hd5201852056_)) - (let ((_tl5202152063_ + (##pair? _hd5517755215_)) + (let ((_tl5518055222_ (let () (declare (not safe)) - (##cdr _hd5201852056_))) - (_hd5202052061_ + (##cdr _hd5517755215_))) + (_hd5517955220_ (let () (declare (not safe)) - (##car _hd5201852056_)))) + (##car _hd5517755215_)))) (if (let () (declare (not safe)) - (##pair? _tl5202152063_)) - (let ((_tl5202352070_ + (##pair? _tl5518055222_)) + (let ((_tl5518255229_ (let () (declare (not safe)) - (##cdr _tl5202152063_))) - (_hd5202252068_ + (##cdr _tl5518055222_))) + (_hd5518155227_ (let () (declare (not safe)) - (##car _tl5202152063_)))) + (##car _tl5518055222_)))) (if (let () (declare (not safe)) - (##pair? _tl5202352070_)) - (let ((_tl5202552077_ + (##pair? _tl5518255229_)) + (let ((_tl5518455236_ (let () (declare (not safe)) - (##cdr _tl5202352070_))) - (_hd5202452075_ + (##cdr _tl5518255229_))) + (_hd5518355234_ (let () (declare (not safe)) - (##car _tl5202352070_)))) + (##car _tl5518255229_)))) (if (let () (declare (not safe)) - (##pair? _tl5202552077_)) - (let ((_tl5202752084_ + (##pair? _tl5518455236_)) + (let ((_tl5518655243_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl5202552077_))) - (_hd5202652082_ - (let () (declare (not safe)) (##car _tl5202552077_)))) - (if (let () (declare (not safe)) (##null? _tl5202752084_)) - (let ((_name52066_ _hd5202052061_) - (_body52073_ _hd5202252068_) - (_bind52080_ _hd5202452075_) - (_assert52087_ _hd5202652082_) - (_rest52089_ _tl5201952058_)) - (_K5201752053_ - _rest52089_ - _assert52087_ - _bind52080_ - _body52073_ - _name52066_)) - (_E5201552033_))) - (_E5201552033_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E5201552033_))) - (_E5201552033_))) - (_E5201552033_))) - (_try-match5201452041_)))))))) - (let* ((_clause5191251919_ _clause51905_) - (_E5191451923_ - (lambda () (error '"No clause matching" _clause5191251919_))) - (_K5191551998_ - (lambda (_body51926_ _name51927_) - (let* ((_g5192951945_ - (lambda (_g5193051942_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g5193051942_))) - (_g5192851995_ - (lambda (_g5193051948_) - (if (gx#stx-pair? _g5193051948_) - (let ((_e5193251950_ - (gx#stx-e _g5193051948_))) - (let ((_hd5193351953_ + (##cdr _tl5518455236_))) + (_hd5518555241_ + (let () (declare (not safe)) (##car _tl5518455236_)))) + (if (let () (declare (not safe)) (##null? _tl5518655243_)) + (let ((_name55225_ _hd5517955220_) + (_body55232_ _hd5518155227_) + (_bind55239_ _hd5518355234_) + (_assert55246_ _hd5518555241_) + (_rest55248_ _tl5517855217_)) + (let () + (declare (not safe)) + (_K5517655212_ + _rest55248_ + _assert55246_ + _bind55239_ + _body55232_ + _name55225_))) + (let () (declare (not safe)) (_E5517455192_)))) + (let () (declare (not safe)) (_E5517455192_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_E5517455192_)))) + (let () + (declare (not safe)) + (_E5517455192_)))) + (let () + (declare (not safe)) + (_E5517455192_)))) + (let () + (declare (not safe)) + (_try-match5517355200_))))))))) + (let* ((_clause5507155078_ _clause55064_) + (_E5507355082_ + (lambda () (error '"No clause matching" _clause5507155078_))) + (_K5507455157_ + (lambda (_body55085_ _name55086_) + (let* ((_g5508855104_ + (lambda (_g5508955101_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g5508955101_)))) + (_g5508755154_ + (lambda (_g5508955107_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g5508955107_)) + (let ((_e5509355109_ + (let () + (declare (not safe)) + (gx#stx-e _g5508955107_)))) + (let ((_hd5509255112_ (let () (declare (not safe)) - (##car _e5193251950_))) - (_tl5193451955_ + (##car _e5509355109_))) + (_tl5509155114_ (let () (declare (not safe)) - (##cdr _e5193251950_)))) - (if (gx#identifier? _hd5193351953_) - (if (gx#stx-eq? - '%#lambda - _hd5193351953_) - (if (gx#stx-pair? _tl5193451955_) - (let ((_e5193551958_ - (gx#stx-e - _tl5193451955_))) - (let ((_hd5193651961_ + (##cdr _e5509355109_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5509255112_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd5509255112_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5509155114_)) + (let ((_e5509655117_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5509155114_)))) + (let ((_hd5509555120_ (let () (declare (not safe)) - (##car _e5193551958_))) - (_tl5193751963_ + (##car _e5509655117_))) + (_tl5509455122_ (let () (declare (not safe)) - (##cdr _e5193551958_)))) - (if (gx#stx-null? - _hd5193651961_) - (if (gx#stx-pair? - _tl5193751963_) - (let ((_e5193851966_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5193751963_))) - (let ((_hd5193951969_ + (##cdr _e5509655117_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _hd5509555120_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5509455122_)) + (let ((_e5509955125_ + (let () + (declare (not safe)) + (gx#stx-e _tl5509455122_)))) + (let ((_hd5509855128_ (let () (declare (not safe)) - (##car _e5193851966_))) - (_tl5194051971_ + (##car _e5509955125_))) + (_tl5509755130_ (let () (declare (not safe)) - (##cdr _e5193851966_)))) - (if (gx#stx-null? _tl5194051971_) - ((lambda (_L51974_) - (let ((_g56806_ - (_basic-block51910_ _L51974_ '() '()))) + (##cdr _e5509955125_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5509755130_)) + ((lambda (_L55133_) + (let ((_g60088_ + (let () + (declare (not safe)) + (_basic-block55069_ + _L55133_ + '() + '())))) (begin - (let ((_g56807_ + (let ((_g60089_ (let () (declare (not safe)) - (if (##values? _g56806_) - (##vector-length _g56806_) + (if (##values? _g60088_) + (##vector-length _g60088_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g56807_ 2))) + (##fx= _g60089_ 2))) (error "Context expects 2 values" - _g56807_))) - (let ((_body51992_ + _g60089_))) + (let ((_body55151_ (let () (declare (not safe)) - (##vector-ref _g56806_ 0))) - (_body-blocks51993_ + (##vector-ref _g60088_ 0))) + (_body-blocks55152_ (let () (declare (not safe)) - (##vector-ref _g56806_ 1)))) - (_fold-blocks51911_ - _body-blocks51993_ - (cons (cons _name51927_ - (cons 'restart: - (cons (cons '%#lambda -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _body51992_ '()))) - (cons '() '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _blocks51906_)))))) - _hd5193951969_) - (_g5192951945_ _g5193051948_)))) - (_g5192951945_ _g5193051948_)) - (_g5192951945_ _g5193051948_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5192951945_ - _g5193051948_)) - (_g5192951945_ _g5193051948_)) - (_g5192951945_ _g5193051948_)))) - (_g5192951945_ _g5193051948_))))) - (_g5192851995_ _body51926_))))) - (if (let () (declare (not safe)) (##pair? _clause5191251919_)) - (let ((_hd5191652001_ + (##vector-ref _g60088_ 1)))) + (let ((__tmp60090 + (let ((__tmp60091 + (let ((__tmp60092 + (let ((__tmp60093 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60095 + (let ((__tmp60096 + (let ((__tmp60097 + (let () + (declare (not safe)) + (cons _body55151_ '())))) + (declare (not safe)) + (cons '() __tmp60097)))) + (declare (not safe)) + (cons '%#lambda __tmp60096))) + (__tmp60094 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons __tmp60095 __tmp60094)))) + (declare (not safe)) + (cons 'restart: __tmp60093)))) + (declare (not safe)) + (cons _name55086_ __tmp60092)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60091 + _blocks55065_)))) + (declare (not safe)) + (_fold-blocks55070_ + _body-blocks55152_ + __tmp60090)))))) + _hd5509855128_) + (let () + (declare (not safe)) + (_g5508855104_ _g5508955107_))))) + (let () + (declare (not safe)) + (_g5508855104_ _g5508955107_))) + (let () + (declare (not safe)) + (_g5508855104_ _g5508955107_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5508855104_ + _g5508955107_))) + (let () + (declare (not safe)) + (_g5508855104_ _g5508955107_))) + (let () + (declare (not safe)) + (_g5508855104_ _g5508955107_))))) + (let () + (declare (not safe)) + (_g5508855104_ _g5508955107_)))))) + (declare (not safe)) + (_g5508755154_ _body55085_))))) + (if (let () (declare (not safe)) (##pair? _clause5507155078_)) + (let ((_hd5507555160_ (let () (declare (not safe)) - (##car _clause5191251919_))) - (_tl5191752003_ + (##car _clause5507155078_))) + (_tl5507655162_ (let () (declare (not safe)) - (##cdr _clause5191251919_)))) - (let* ((_name52006_ _hd5191652001_) - (_body52008_ _tl5191752003_)) - (_K5191551998_ _body52008_ _name52006_))) - (_E5191451923_)))))) + (##cdr _clause5507155078_)))) + (let* ((_name55165_ _hd5507555160_) + (_body55167_ _tl5507655162_)) + (declare (not safe)) + (_K5507455157_ _body55167_ _name55165_))) + (let () (declare (not safe)) (_E5507355082_))))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_blocks51511_) - (let _lp51513_ ((_rest51515_ _blocks51511_) (_blocks51516_ '())) - (let* ((_rest5151751525_ _rest51515_) - (_else5151951574_ + (lambda (_blocks54670_) + (let _lp54672_ ((_rest54674_ _blocks54670_) (_blocks54675_ '())) + (let* ((_rest5467654684_ _rest54674_) + (_else5467854733_ (lambda () - (foldl1 (lambda (_block51533_ _r51534_) - (let* ((_block5153551546_ _block51533_) - (_E5153751550_ - (lambda () - (error '"No clause matching" - _block5153551546_))) - (_K5153851556_ - (lambda (_kont51553_ _name51554_) - (cons (cons _name51554_ _kont51553_) - _r51534_)))) - (if (let () - (declare (not safe)) - (##pair? _block5153551546_)) - (let ((_hd5153951559_ - (let () + (let ((__tmp60098 + (lambda (_block54692_ _r54693_) + (let* ((_block5469454705_ _block54692_) + (_E5469654709_ + (lambda () + (error '"No clause matching" + _block5469454705_))) + (_K5469754715_ + (lambda (_kont54712_ _name54713_) + (let ((__tmp60099 + (let () + (declare (not safe)) + (cons _name54713_ + _kont54712_)))) + (declare (not safe)) + (cons __tmp60099 _r54693_))))) + (if (let () + (declare (not safe)) + (##pair? _block5469454705_)) + (let ((_hd5469854718_ + (let () + (declare (not safe)) + (##car _block5469454705_))) + (_tl5469954720_ + (let () + (declare (not safe)) + (##cdr _block5469454705_)))) + (let ((_name54723_ _hd5469854718_)) + (if (let () (declare (not safe)) - (##car _block5153551546_))) - (_tl5154051561_ + (##pair? _tl5469954720_)) + (let ((_tl5470154725_ + (let () + (declare (not safe)) + (##cdr _tl5469954720_)))) + (if (let () + (declare (not safe)) + (##pair? _tl5470154725_)) + (let* ((_hd5470254728_ + (let () + (declare (not safe)) + (##car _tl5470154725_))) + (_kont54731_ + _hd5470254728_)) + (declare (not safe)) + (_K5469754715_ + _kont54731_ + _name54723_)) + (let () + (declare (not safe)) + (_E5469654709_)))) (let () (declare (not safe)) - (##cdr _block5153551546_)))) - (let ((_name51564_ _hd5153951559_)) - (if (let () - (declare (not safe)) - (##pair? _tl5154051561_)) - (let ((_tl5154251566_ - (let () - (declare (not safe)) - (##cdr _tl5154051561_)))) - (if (let () - (declare (not safe)) - (##pair? _tl5154251566_)) - (let* ((_hd5154351569_ - (let () - (declare - (not safe)) - (##car _tl5154251566_))) - (_kont51572_ - _hd5154351569_)) - (_K5153851556_ - _kont51572_ - _name51564_)) - (_E5153751550_))) - (_E5153751550_)))) - (_E5153751550_)))) - '() - _blocks51516_))) - (_K5152151893_ - (lambda (_rest51577_ _block51578_) - (let* ((_block5157951604_ _block51578_) - (_E5158251608_ + (_E5469654709_))))) + (let () + (declare (not safe)) + (_E5469654709_))))))) + (declare (not safe)) + (foldl1 __tmp60098 '() _blocks54675_)))) + (_K5468055052_ + (lambda (_rest54736_ _block54737_) + (let* ((_block5473854763_ _block54737_) + (_E5474154767_ (lambda () (error '"No clause matching" - _block5157951604_)))) - (let ((_K5159451864_ - (lambda (_assert51786_ _kont51787_ _name51788_) - (let* ((_g5179051806_ - (lambda (_g5179151803_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g5179151803_))) - (_g5178951861_ - (lambda (_g5179151809_) - (if (gx#stx-pair? _g5179151809_) - (let ((_e5179351811_ - (gx#stx-e _g5179151809_))) - (let ((_hd5179451814_ + _block5473854763_)))) + (let ((_K5475355023_ + (lambda (_assert54945_ _kont54946_ _name54947_) + (let* ((_g5494954965_ + (lambda (_g5495054962_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g5495054962_)))) + (_g5494855020_ + (lambda (_g5495054968_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g5495054968_)) + (let ((_e5495454970_ + (let () + (declare (not safe)) + (gx#stx-e + _g5495054968_)))) + (let ((_hd5495354973_ (let () (declare (not safe)) - (##car _e5179351811_))) - (_tl5179551816_ + (##car _e5495454970_))) + (_tl5495254975_ (let () (declare (not safe)) - (##cdr _e5179351811_)))) - (if (gx#identifier? - _hd5179451814_) - (if (gx#stx-eq? - '%#lambda - _hd5179451814_) - (if (gx#stx-pair? - _tl5179551816_) - (let ((_e5179651819_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5179551816_))) - (let ((_hd5179751822_ + (##cdr _e5495454970_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5495354973_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd5495354973_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5495254975_)) + (let ((_e5495754978_ + (let () + (declare (not safe)) + (gx#stx-e _tl5495254975_)))) + (let ((_hd5495654981_ (let () (declare (not safe)) - (##car _e5179651819_))) - (_tl5179851824_ + (##car _e5495754978_))) + (_tl5495554983_ (let () (declare (not safe)) - (##cdr _e5179651819_)))) - (if (gx#stx-null? _hd5179751822_) - (if (gx#stx-pair? _tl5179851824_) - (let ((_e5179951827_ - (gx#stx-e _tl5179851824_))) - (let ((_hd5180051830_ + (##cdr _e5495754978_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _hd5495654981_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5495554983_)) + (let ((_e5496054986_ + (let () + (declare (not safe)) + (gx#stx-e _tl5495554983_)))) + (let ((_hd5495954989_ (let () (declare (not safe)) - (##car _e5179951827_))) - (_tl5180151832_ + (##car _e5496054986_))) + (_tl5495854991_ (let () (declare (not safe)) - (##cdr _e5179951827_)))) - (if (gx#stx-null? _tl5180151832_) - ((lambda (_L51835_) - (let* ((_body51850_ - (gxc#optimize-match-block - _L51835_ - _assert51786_ - '() - _rest51577_)) - (_block51852_ - (cons _name51788_ - (cons 'restart: - (cons (cons '%#lambda -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _body51850_ '()))) - (cons _assert51786_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_blocks51854_ - (cons _block51852_ - _blocks51516_)) - (_rest51856_ - (gxc#optimize-match-prune-blocks - _rest51577_ - _blocks51854_)) - (_rest51858_ - (gxc#optimize-match-fuse-restart-blocks - _rest51856_ - _blocks51854_))) - (_lp51513_ - _rest51858_ - _blocks51854_))) - _hd5180051830_) - (_g5179051806_ _g5179151809_)))) - (_g5179051806_ _g5179151809_)) - (_g5179051806_ _g5179151809_)))) - (_g5179051806_ _g5179151809_)) - (_g5179051806_ _g5179151809_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5179051806_ - _g5179151809_)))) - (_g5179051806_ _g5179151809_))))) - (_g5178951861_ _kont51787_)))) - (_K5158351747_ - (lambda (_bind51612_ - _assert51613_ - _kont51614_ - _name51615_) - (let* ((_g5161751643_ - (lambda (_g5161851640_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g5161851640_))) - (_g5161651744_ - (lambda (_g5161851646_) - (if (gx#stx-pair? _g5161851646_) - (let ((_e5162151648_ - (gx#stx-e _g5161851646_))) - (let ((_hd5162251651_ - (let () - (declare (not safe)) - (##car _e5162151648_))) - (_tl5162351653_ - (let () - (declare (not safe)) - (##cdr _e5162151648_)))) - (if (gx#identifier? - _hd5162251651_) - (if (gx#stx-eq? - '%#lambda - _hd5162251651_) - (if (gx#stx-pair? - _tl5162351653_) - (let ((_e5162451656_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5162351653_))) - (let ((_hd5162551659_ - (let () - (declare (not safe)) - (##car _e5162451656_))) - (_tl5162651661_ - (let () - (declare (not safe)) - (##cdr _e5162451656_)))) - (if (gx#stx-pair/null? _hd5162551659_) - (let ((_g56808_ - (gx#syntax-split-splice - _hd5162551659_ - '0))) - (begin - (let ((_g56809_ - (let () - (declare (not safe)) - (if (##values? _g56808_) - (##vector-length _g56808_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g56809_ 2))) - (error "Context expects 2 values" - _g56809_))) - (let ((_target5162751664_ - (let () - (declare (not safe)) - (##vector-ref _g56808_ 0))) - (_tl5162951666_ - (let () - (declare (not safe)) - (##vector-ref _g56808_ 1)))) - (if (gx#stx-null? _tl5162951666_) - (letrec ((_loop5163051669_ - (lambda (_hd5162851672_ - _id5163451674_) - (if (gx#stx-pair? - _hd5162851672_) - (let ((_e5163151677_ - (gx#stx-e - _hd5162851672_))) - (let ((_lp-hd5163251680_ - (let () + (##cdr _e5496054986_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5495854991_)) + ((lambda (_L54994_) + (let* ((_body55009_ + (let () + (declare (not safe)) + (gxc#optimize-match-block + _L54994_ + _assert54945_ + '() + _rest54736_))) + (_block55011_ + (let ((__tmp60100 + (let ((__tmp60101 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e5163151677_))) - (_lp-tl5163351682_ - (let () (declare (not safe)) (##cdr _e5163151677_)))) - (_loop5163051669_ - _lp-tl5163351682_ - (cons _lp-hd5163251680_ _id5163451674_)))) - (let ((_id5163551685_ (reverse _id5163451674_))) - (if (gx#stx-pair? _tl5162651661_) - (let ((_e5163651688_ (gx#stx-e _tl5162651661_))) - (let ((_hd5163751691_ - (let () - (declare (not safe)) - (##car _e5163651688_))) - (_tl5163851693_ - (let () - (declare (not safe)) - (##cdr _e5163651688_)))) - (if (gx#stx-null? _tl5163851693_) - ((lambda (_L51696_ _L51697_) - (let* ((_body51726_ - (gxc#optimize-match-block - _L51696_ - _assert51613_ - _bind51612_ - _rest51577_)) - (_block51735_ - (cons _name51615_ - (cons 'continue: - (cons (cons '%#lambda - (cons (foldr1 (lambda (_g5172751730_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5172851732_) - (cons _g5172751730_ _g5172851732_)) - '() - _L51697_) - (cons _body51726_ '()))) - (cons _assert51613_ (cons _bind51612_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_blocks51737_ - (cons _block51735_ _blocks51516_)) - (_rest51739_ - (gxc#optimize-match-prune-blocks - _rest51577_ - _blocks51737_)) - (_rest51741_ - (gxc#optimize-match-fuse-restart-blocks - _rest51739_ - _blocks51737_))) - (_lp51513_ _rest51741_ _blocks51737_))) - _hd5163751691_ - _id5163551685_) - (_g5161751643_ _g5161851646_)))) - (_g5161751643_ _g5161851646_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop5163051669_ - _target5162751664_ - '())) - (_g5161751643_ _g5161851646_))))) - (_g5161751643_ _g5161851646_)))) - (_g5161751643_ _g5161851646_)) - (_g5161751643_ _g5161851646_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5161751643_ - _g5161851646_)))) - (_g5161751643_ _g5161851646_))))) - (_g5161651744_ _kont51614_))))) - (if (let () - (declare (not safe)) - (##pair? _block5157951604_)) - (let ((_tl5159651869_ - (let () + (let ((__tmp60103 + (let ((__tmp60104 + (let ((__tmp60105 + (let () + (declare (not safe)) + (cons _body55009_ '())))) + (declare (not safe)) + (cons '() __tmp60105)))) + (declare (not safe)) + (cons '%#lambda __tmp60104))) + (__tmp60102 + (let () + (declare (not safe)) + (cons _assert54945_ '())))) + (declare (not safe)) + (cons __tmp60103 __tmp60102)))) + (declare (not safe)) + (cons 'restart: __tmp60101)))) + (declare (not safe)) + (cons _name54947_ __tmp60100))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_blocks55013_ + (let () + (declare (not safe)) + (cons _block55011_ + _blocks54675_))) + (_rest55015_ + (let () + (declare (not safe)) + (gxc#optimize-match-prune-blocks + _rest54736_ + _blocks55013_))) + (_rest55017_ + (let () + (declare (not safe)) + (gxc#optimize-match-fuse-restart-blocks + _rest55015_ + _blocks55013_)))) + (let () + (declare (not safe)) + (_lp54672_ + _rest55017_ + _blocks55013_)))) + _hd5495954989_) + (let () + (declare (not safe)) + (_g5494954965_ _g5495054968_))))) + (let () + (declare (not safe)) + (_g5494954965_ _g5495054968_))) + (let () + (declare (not safe)) + (_g5494954965_ _g5495054968_))))) + (let () + (declare (not safe)) + (_g5494954965_ _g5495054968_))) + (let () (declare (not safe)) (_g5494954965_ _g5495054968_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5494954965_ + _g5495054968_))))) + (let () + (declare (not safe)) + (_g5494954965_ + _g5495054968_)))))) + (declare (not safe)) + (_g5494855020_ _kont54946_)))) + (_K5474254906_ + (lambda (_bind54771_ + _assert54772_ + _kont54773_ + _name54774_) + (let* ((_g5477654802_ + (lambda (_g5477754799_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g5477754799_)))) + (_g5477554903_ + (lambda (_g5477754805_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g5477754805_)) + (let ((_e5478254807_ + (let () + (declare (not safe)) + (gx#stx-e + _g5477754805_)))) + (let ((_hd5478154810_ + (let () + (declare (not safe)) + (##car _e5478254807_))) + (_tl5478054812_ + (let () + (declare (not safe)) + (##cdr _e5478254807_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5478154810_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd5478154810_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5478054812_)) + (let ((_e5478554815_ + (let () + (declare (not safe)) + (gx#stx-e _tl5478054812_)))) + (let ((_hd5478454818_ + (let () + (declare (not safe)) + (##car _e5478554815_))) + (_tl5478354820_ + (let () + (declare (not safe)) + (##cdr _e5478554815_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd5478454818_)) + (let ((_g60106_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd5478454818_ + '0)))) + (begin + (let ((_g60107_ + (let () + (declare (not safe)) + (if (##values? _g60106_) + (##vector-length _g60106_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g60107_ 2))) + (error "Context expects 2 values" + _g60107_))) + (let ((_target5478654823_ + (let () + (declare (not safe)) + (##vector-ref _g60106_ 0))) + (_tl5478854825_ + (let () + (declare (not safe)) + (##vector-ref _g60106_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5478854825_)) + (letrec ((_loop5478954828_ + (lambda (_hd5478754831_ + _id5479354833_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5478754831_)) + (let ((_e5479054836_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _hd5478754831_)))) + (let ((_lp-hd5479154839_ + (let () (declare (not safe)) (##car _e5479054836_))) + (_lp-tl5479254841_ + (let () (declare (not safe)) (##cdr _e5479054836_)))) + (let ((__tmp60117 + (let () + (declare (not safe)) + (cons _lp-hd5479154839_ _id5479354833_)))) + (declare (not safe)) + (_loop5478954828_ _lp-tl5479254841_ __tmp60117)))) + (let ((_id5479454844_ + (let () (declare (not safe)) (reverse _id5479354833_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5478354820_)) + (let ((_e5479754847_ + (let () + (declare (not safe)) + (gx#stx-e _tl5478354820_)))) + (let ((_hd5479654850_ + (let () + (declare (not safe)) + (##car _e5479754847_))) + (_tl5479554852_ + (let () + (declare (not safe)) + (##cdr _e5479754847_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5479554852_)) + ((lambda (_L54855_ _L54856_) + (let* ((_body54885_ + (let () + (declare (not safe)) + (gxc#optimize-match-block + _L54855_ + _assert54772_ + _bind54771_ + _rest54736_))) + (_block54894_ + (let ((__tmp60108 + (let ((__tmp60109 + (let ((__tmp60112 + (let ((__tmp60113 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60115 + (let ((__tmp60116 + (lambda (_g5488654889_ _g5488754891_) + (let () + (declare (not safe)) + (cons _g5488654889_ + _g5488754891_))))) + (declare (not safe)) + (foldr1 __tmp60116 '() _L54856_))) + (__tmp60114 + (let () + (declare (not safe)) + (cons _body54885_ '())))) + (declare (not safe)) + (cons __tmp60115 __tmp60114)))) + (declare (not safe)) + (cons '%#lambda __tmp60113))) + (__tmp60110 + (let ((__tmp60111 + (let () + (declare (not safe)) + (cons _bind54771_ '())))) + (declare (not safe)) + (cons _assert54772_ __tmp60111)))) + (declare (not safe)) + (cons __tmp60112 __tmp60110)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'continue: + __tmp60109)))) + (declare (not safe)) + (cons _name54774_ __tmp60108))) + (_blocks54896_ + (let () + (declare (not safe)) + (cons _block54894_ _blocks54675_))) + (_rest54898_ + (let () + (declare (not safe)) + (gxc#optimize-match-prune-blocks + _rest54736_ + _blocks54896_))) + (_rest54900_ + (let () + (declare (not safe)) + (gxc#optimize-match-fuse-restart-blocks + _rest54898_ + _blocks54896_)))) + (let () + (declare (not safe)) + (_lp54672_ _rest54900_ _blocks54896_)))) + _hd5479654850_ + _id5479454844_) + (let () + (declare (not safe)) + (_g5477654802_ _g5477754805_))))) + (let () + (declare (not safe)) + (_g5477654802_ _g5477754805_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop5478954828_ + _target5478654823_ + '()))) + (let () + (declare (not safe)) + (_g5477654802_ _g5477754805_)))))) + (let () + (declare (not safe)) + (_g5477654802_ _g5477754805_))))) + (let () + (declare (not safe)) + (_g5477654802_ _g5477754805_))) + (let () (declare (not safe)) (_g5477654802_ _g5477754805_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5477654802_ + _g5477754805_))))) + (let () + (declare (not safe)) + (_g5477654802_ + _g5477754805_)))))) + (declare (not safe)) + (_g5477554903_ _kont54773_))))) + (if (let () + (declare (not safe)) + (##pair? _block5473854763_)) + (let ((_tl5475555028_ + (let () (declare (not safe)) - (##cdr _block5157951604_))) - (_hd5159551867_ + (##cdr _block5473854763_))) + (_hd5475455026_ (let () (declare (not safe)) - (##car _block5157951604_)))) + (##car _block5473854763_)))) (if (let () (declare (not safe)) - (##pair? _tl5159651869_)) - (let ((_tl5159851876_ + (##pair? _tl5475555028_)) + (let ((_tl5475755035_ (let () (declare (not safe)) - (##cdr _tl5159651869_))) - (_hd5159751874_ + (##cdr _tl5475555028_))) + (_hd5475655033_ (let () (declare (not safe)) - (##car _tl5159651869_)))) + (##car _tl5475555028_)))) (if (let () (declare (not safe)) - (##eq? _hd5159751874_ 'restart:)) + (##eq? _hd5475655033_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl5159851876_)) - (let ((_tl5160051881_ + (##pair? _tl5475755035_)) + (let ((_tl5475955040_ (let () (declare (not safe)) - (##cdr _tl5159851876_))) - (_hd5159951879_ + (##cdr _tl5475755035_))) + (_hd5475855038_ (let () (declare (not safe)) - (##car _tl5159851876_)))) + (##car _tl5475755035_)))) (if (let () (declare (not safe)) - (##pair? _tl5160051881_)) - (let ((_tl5160251888_ + (##pair? _tl5475955040_)) + (let ((_tl5476155047_ (let () (declare (not safe)) - (##cdr _tl5160051881_))) - (_hd5160151886_ + (##cdr _tl5475955040_))) + (_hd5476055045_ (let () (declare (not safe)) - (##car _tl5160051881_)))) + (##car _tl5475955040_)))) (if (let () (declare (not safe)) - (##null? _tl5160251888_)) - (let ((_name51872_ - _hd5159551867_) - (_kont51884_ - _hd5159951879_) - (_assert51891_ - _hd5160151886_)) - (_K5159451864_ - _assert51891_ - _kont51884_ - _name51872_)) - (_E5158251608_))) - (_E5158251608_))) - (_E5158251608_)) + (##null? _tl5476155047_)) + (let ((_name55031_ + _hd5475455026_) + (_kont55043_ + _hd5475855038_) + (_assert55050_ + _hd5476055045_)) + (let () + (declare + (not safe)) + (_K5475355023_ + _assert55050_ + _kont55043_ + _name55031_))) + (let () + (declare (not safe)) + (_E5474154767_)))) + (let () + (declare (not safe)) + (_E5474154767_)))) + (let () + (declare (not safe)) + (_E5474154767_))) (if (let () (declare (not safe)) - (##eq? _hd5159751874_ + (##eq? _hd5475655033_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _tl5159851876_)) - (let ((_tl5158951764_ + (##pair? _tl5475755035_)) + (let ((_tl5474854923_ (let () (declare (not safe)) - (##cdr _tl5159851876_))) - (_hd5158851762_ + (##cdr _tl5475755035_))) + (_hd5474754921_ (let () (declare (not safe)) - (##car _tl5159851876_)))) + (##car _tl5475755035_)))) (if (let () (declare (not safe)) - (##pair? _tl5158951764_)) - (let ((_tl5159151771_ + (##pair? _tl5474854923_)) + (let ((_tl5475054930_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl5158951764_))) - (_hd5159051769_ - (let () (declare (not safe)) (##car _tl5158951764_)))) - (if (let () (declare (not safe)) (##pair? _tl5159151771_)) - (let ((_tl5159351778_ + (##cdr _tl5474854923_))) + (_hd5474954928_ + (let () (declare (not safe)) (##car _tl5474854923_)))) + (if (let () (declare (not safe)) (##pair? _tl5475054930_)) + (let ((_tl5475254937_ (let () (declare (not safe)) - (##cdr _tl5159151771_))) - (_hd5159251776_ + (##cdr _tl5475054930_))) + (_hd5475154935_ (let () (declare (not safe)) - (##car _tl5159151771_)))) + (##car _tl5475054930_)))) (if (let () (declare (not safe)) - (##null? _tl5159351778_)) - (let ((_name51755_ _hd5159551867_) - (_kont51767_ _hd5158851762_) - (_assert51774_ _hd5159051769_) - (_bind51781_ _hd5159251776_)) - (_K5158351747_ - _bind51781_ - _assert51774_ - _kont51767_ - _name51755_)) - (_E5158251608_))) - (_E5158251608_))) - (_E5158251608_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E5158251608_)) - (_E5158251608_)))) - (_E5158251608_))) - (_E5158251608_))))))) - (if (let () (declare (not safe)) (##pair? _rest5151751525_)) - (let ((_hd5152251896_ - (let () (declare (not safe)) (##car _rest5151751525_))) - (_tl5152351898_ - (let () (declare (not safe)) (##cdr _rest5151751525_)))) - (let* ((_block51901_ _hd5152251896_) - (_rest51903_ _tl5152351898_)) - (_K5152151893_ _rest51903_ _block51901_))) - (_else5151951574_)))))) + (##null? _tl5475254937_)) + (let ((_name54914_ _hd5475455026_) + (_kont54926_ _hd5474754921_) + (_assert54933_ _hd5474954928_) + (_bind54940_ _hd5475154935_)) + (let () + (declare (not safe)) + (_K5474254906_ + _bind54940_ + _assert54933_ + _kont54926_ + _name54914_))) + (let () (declare (not safe)) (_E5474154767_)))) + (let () (declare (not safe)) (_E5474154767_)))) + (let () (declare (not safe)) (_E5474154767_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_E5474154767_))) + (let () + (declare (not safe)) + (_E5474154767_))))) + (let () + (declare (not safe)) + (_E5474154767_)))) + (let () (declare (not safe)) (_E5474154767_)))))))) + (if (let () (declare (not safe)) (##pair? _rest5467654684_)) + (let ((_hd5468155055_ + (let () (declare (not safe)) (##car _rest5467654684_))) + (_tl5468255057_ + (let () (declare (not safe)) (##cdr _rest5467654684_)))) + (let* ((_block55060_ _hd5468155055_) + (_rest55062_ _tl5468255057_)) + (declare (not safe)) + (_K5468055052_ _rest55062_ _block55060_))) + (let () (declare (not safe)) (_else5467854733_))))))) (define gxc#optimize-match-block - (lambda (_body46134_ _assert46135_ _bind46136_ _blocks46137_) - (letrec* ((_env-assert46372_ '()) - (_env-type46373_ '()) - (_env-bind46374_ '()) - (_in-splice?46375_ '#f) - (_do-assert46376_ - (lambda (_assert51434_ _K51435_) - (if (pair? _assert51434_) - (let _lp51437_ ((_rest51439_ _assert51434_) - (_env-assert51440_ _env-assert46372_) - (_env-type51441_ _env-type46373_)) - (let* ((_rest5144251450_ _rest51439_) - (_else5144451458_ + (lambda (_body49293_ _assert49294_ _bind49295_ _blocks49296_) + (letrec* ((_env-assert49531_ '()) + (_env-type49532_ '()) + (_env-bind49533_ '()) + (_in-splice?49534_ '#f) + (_do-assert49535_ + (lambda (_assert54593_ _K54594_) + (if (let () (declare (not safe)) (pair? _assert54593_)) + (let _lp54596_ ((_rest54598_ _assert54593_) + (_env-assert54599_ _env-assert49531_) + (_env-type54600_ _env-type49532_)) + (let* ((_rest5460154609_ _rest54598_) + (_else5460354617_ (lambda () - (_do-assert!46382_ - _env-assert51440_ - _env-type51441_ - _K51435_))) - (_K5144651499_ - (lambda (_rest51461_ _assert51462_) - (let* ((_assert5146351470_ _assert51462_) - (_E5146551474_ + (let () + (declare (not safe)) + (_do-assert!49541_ + _env-assert54599_ + _env-type54600_ + _K54594_)))) + (_K5460554658_ + (lambda (_rest54620_ _assert54621_) + (let* ((_assert5462254629_ _assert54621_) + (_E5462454633_ (lambda () (error '"No clause matching" - _assert5146351470_))) - (_K5146651487_ - (lambda (_val51477_ _expr51478_) - (let* ((_sexpr51480_ - (gxc#apply-generate-runtime-repr - _expr51478_)) - (_env-assert51482_ - (cons (cons _sexpr51480_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _val51477_) - _env-assert51440_)) - (_env-type51484_ - (_fold-assert-type46378_ - _expr51478_ - _val51477_ - _env-type51441_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp51437_ - _rest51461_ - _env-assert51482_ - _env-type51484_))))) + _assert5462254629_))) + (_K5462554646_ + (lambda (_val54636_ _expr54637_) + (let* ((_sexpr54639_ + (let () + (declare (not safe)) + (gxc#apply-generate-runtime-repr + _expr54637_))) + (_env-assert54641_ + (let ((__tmp60118 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _sexpr54639_ _val54636_)))) + (declare (not safe)) + (cons __tmp60118 _env-assert54599_))) + (_env-type54643_ + (let () + (declare (not safe)) + (_fold-assert-type49537_ + _expr54637_ + _val54636_ + _env-type54600_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_lp54596_ + _rest54620_ + _env-assert54641_ + _env-type54643_)))))) (if (let () (declare (not safe)) - (##pair? _assert5146351470_)) - (let ((_hd5146751490_ + (##pair? _assert5462254629_)) + (let ((_hd5462654649_ (let () (declare (not safe)) - (##car _assert5146351470_))) - (_tl5146851492_ + (##car _assert5462254629_))) + (_tl5462754651_ (let () (declare (not safe)) - (##cdr _assert5146351470_)))) - (let* ((_expr51495_ - _hd5146751490_) - (_val51497_ - _tl5146851492_)) - (_K5146651487_ - _val51497_ - _expr51495_))) - (_E5146551474_)))))) + (##cdr _assert5462254629_)))) + (let* ((_expr54654_ + _hd5462654649_) + (_val54656_ + _tl5462754651_)) + (declare (not safe)) + (_K5462554646_ + _val54656_ + _expr54654_))) + (let () + (declare (not safe)) + (_E5462454633_))))))) (if (let () (declare (not safe)) - (##pair? _rest5144251450_)) - (let ((_hd5144751502_ + (##pair? _rest5460154609_)) + (let ((_hd5460654661_ (let () (declare (not safe)) - (##car _rest5144251450_))) - (_tl5144851504_ + (##car _rest5460154609_))) + (_tl5460754663_ (let () (declare (not safe)) - (##cdr _rest5144251450_)))) - (let* ((_assert51507_ _hd5144751502_) - (_rest51509_ _tl5144851504_)) - (_K5144651499_ - _rest51509_ - _assert51507_))) - (_else5144451458_)))) - (_K51435_)))) - (_predicate-type46377_ - (lambda (_id51379_) - (let* ((_sym51381_ (gxc#identifier-symbol _id51379_)) - (_$e51383_ _sym51381_)) - (let ((_default5138551416_ + (##cdr _rest5460154609_)))) + (let* ((_assert54666_ _hd5460654661_) + (_rest54668_ _tl5460754663_)) + (declare (not safe)) + (_K5460554658_ + _rest54668_ + _assert54666_))) + (let () + (declare (not safe)) + (_else5460354617_))))) + (_K54594_)))) + (_predicate-type49536_ + (lambda (_id54538_) + (let* ((_sym54540_ + (let () + (declare (not safe)) + (gxc#identifier-symbol _id54538_))) + (_$e54542_ _sym54540_)) + (let ((_default5454454575_ (lambda () - (let* ((_g5138851395_ - (gxc#optimizer-resolve-type - _sym51381_)) - (_else5139051403_ (lambda () '#f)) - (_K5139251408_ - (lambda (_struct-t51406_) + (let* ((_g5454754554_ + (let () + (declare (not safe)) (gxc#optimizer-resolve-type - _struct-t51406_)))) + _sym54540_))) + (_else5454954562_ (lambda () '#f)) + (_K5455154567_ + (lambda (_struct-t54565_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type + _struct-t54565_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g5138851395_ + _g5454754554_ 'gxc#!struct-pred::t)) - (let* ((_e5139351411_ + (let* ((_e5455254570_ (let () (declare (not safe)) (##vector-ref - _g5138851395_ + _g5454754554_ '1))) - (_struct-t51414_ _e5139351411_)) + (_struct-t54573_ _e5455254570_)) + (declare (not safe)) (gxc#optimizer-resolve-type - _struct-t51414_)) - (_else5139051403_))))) - (_table5138651418_ + _struct-t54573_)) + (let () + (declare (not safe)) + (_else5454954562_)))))) + (_table5454554577_ '#(#f (##box? . 3) #f @@ -2703,9812 +3970,14534 @@ #f #f #f))) - (if (symbol? _$e51383_) - (let* ((_h51421_ + (if (let () (declare (not safe)) (symbol? _$e54542_)) + (let* ((_h54580_ (let () (declare (not safe)) - (##symbol-hash _$e51383_))) - (_ix51424_ + (##symbol-hash _$e54542_))) + (_ix54583_ (let () (declare (not safe)) - (##fxmodulo _h51421_ '63))) - (_q51427_ + (##fxmodulo _h54580_ '63))) + (_q54586_ (let () (declare (not safe)) (##vector-ref - _table5138651418_ - _ix51424_)))) - (if _q51427_ - (if (eq? (let () - (declare (not safe)) - (##car _q51427_)) - _$e51383_) - (let ((_x51431_ + _table5454554577_ + _ix54583_)))) + (if _q54586_ + (if (let ((__tmp60119 (let () (declare (not safe)) - (##cdr _q51427_)))) + (##car _q54586_)))) + (declare (not safe)) + (eq? __tmp60119 _$e54542_)) + (let ((_x54590_ + (let () + (declare (not safe)) + (##cdr _q54586_)))) (if (let () (declare (not safe)) - (##fx< _x51431_ '5)) + (##fx< _x54590_ '5)) (if (let () (declare (not safe)) - (##fx< _x51431_ '2)) + (##fx< _x54590_ '2)) (if (let () (declare (not safe)) - (##fx= _x51431_ '0)) + (##fx= _x54590_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _x51431_ '2)) + (##fx= _x54590_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _x51431_ '3)) + (##fx= _x54590_ '3)) 'box 'identifier))) (if (let () (declare (not safe)) - (##fx< _x51431_ '7)) + (##fx< _x54590_ '7)) (if (let () (declare (not safe)) - (##fx= _x51431_ '5)) + (##fx= _x54590_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _x51431_ '7)) + (##fx= _x54590_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _x51431_ '8)) + (##fx= _x54590_ '8)) 'stx-box 'stx-datum))))) - (_default5138551416_)) - (_default5138551416_))) - (_default5138551416_)))))) - (_fold-assert-type46378_ - (lambda (_expr50327_ _val50328_ _env50329_) - (let* ((___stx5429554296_ _expr50327_) - (_g5033750516_ + (let () + (declare (not safe)) + (_default5454454575_))) + (let () + (declare (not safe)) + (_default5454454575_)))) + (let () + (declare (not safe)) + (_default5454454575_))))))) + (_fold-assert-type49537_ + (lambda (_expr53486_ _val53487_ _env53488_) + (let* ((___stx5745457455_ _expr53486_) + (_g5349653675_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5429554296_)))) - (let ((___kont5429754298_ - (lambda (_L51348_ _L51349_) - (let ((_$e51371_ - (_predicate-type46377_ _L51349_))) - (if _$e51371_ - ((lambda (_t51374_) - (cons (cons _L51348_ - (cons _t51374_ - (cons _val50328_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _env50329_)) - _$e51371_) - _env50329_)))) - (___kont5429954300_ - (lambda (_L51038_ _L51039_ _L51040_) - (let ((_$e51065_ - (gxc#identifier-symbol _L51040_))) - (if (or (eq? '##fx= _$e51065_) - (eq? 'fx= _$e51065_)) - (let* ((___stx5420154202_ _L51039_) - (_g5107251101_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5745457455_))))) + (let ((___kont5745657457_ + (lambda (_L54507_ _L54508_) + (let ((_$e54530_ + (let () + (declare (not safe)) + (_predicate-type49536_ _L54508_)))) + (if _$e54530_ + ((lambda (_t54533_) + (let ((__tmp60120 + (let ((__tmp60121 + (let ((__tmp60122 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _val53487_ '())))) + (declare (not safe)) + (cons _t54533_ __tmp60122)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L54507_ __tmp60121)))) + (declare (not safe)) + (cons __tmp60120 _env53488_))) + _$e54530_) + _env53488_)))) + (___kont5745857459_ + (lambda (_L54197_ _L54198_ _L54199_) + (let ((_$e54224_ + (let () + (declare (not safe)) + (gxc#identifier-symbol _L54199_)))) + (if (or (let () + (declare (not safe)) + (eq? '##fx= _$e54224_)) + (let () + (declare (not safe)) + (eq? 'fx= _$e54224_))) + (let* ((___stx5736057361_ _L54198_) + (_g5423154260_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5420154202_)))) - (let ((___kont5420354204_ - (lambda (_L51169_ _L51170_) - (let ((_$e51195_ - (_countf-symbol46379_ - _L51170_))) - (if _$e51195_ - ((lambda (_sym51198_) - (cons (cons _L51169_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _sym51198_ - (cons (gx#stx-e _L51038_) - (cons _val50328_ '())))) - _env50329_)) - _$e51195_) - _env50329_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5420554206_ - (lambda () _env50329_))) - (if (gx#stx-pair? ___stx5420154202_) - (let ((_e5107651113_ - (gx#stx-e - ___stx5420154202_))) - (let ((_tl5107851118_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5736057361_))))) + (let ((___kont5736257363_ + (lambda (_L54328_ _L54329_) + (let ((_$e54354_ + (let () + (declare (not safe)) + (_countf-symbol49538_ + _L54329_)))) + (if _$e54354_ + ((lambda (_sym54357_) + (let ((__tmp60128 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60129 + (let ((__tmp60130 + (let ((__tmp60132 + (let () + (declare (not safe)) + (gx#stx-e _L54197_))) + (__tmp60131 + (let () + (declare (not safe)) + (cons _val53487_ '())))) + (declare (not safe)) + (cons __tmp60132 __tmp60131)))) + (declare (not safe)) + (cons _sym54357_ __tmp60130)))) + (declare (not safe)) + (cons _L54328_ __tmp60129)))) + (declare (not safe)) + (cons __tmp60128 _env53488_))) + _$e54354_) + _env53488_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5736457365_ + (lambda () _env53488_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx5736057361_)) + (let ((_e5423754272_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx5736057361_)))) + (let ((_tl5423554277_ (let () (declare (not safe)) - (##cdr _e5107651113_))) - (_hd5107751116_ + (##cdr _e5423754272_))) + (_hd5423654275_ (let () (declare (not safe)) - (##car _e5107651113_)))) - (if (gx#identifier? - _hd5107751116_) - (if (gx#stx-eq? - '%#call - _hd5107751116_) - (if (gx#stx-pair? - _tl5107851118_) - (let ((_e5107951121_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5107851118_))) - (let ((_tl5108151126_ + (##car _e5423754272_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5423654275_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#call + _hd5423654275_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5423554277_)) + (let ((_e5424054280_ + (let () + (declare (not safe)) + (gx#stx-e _tl5423554277_)))) + (let ((_tl5423854285_ (let () (declare (not safe)) - (##cdr _e5107951121_))) - (_hd5108051124_ + (##cdr _e5424054280_))) + (_hd5423954283_ (let () (declare (not safe)) - (##car _e5107951121_)))) - (if (gx#stx-pair? _hd5108051124_) - (let ((_e5108251129_ (gx#stx-e _hd5108051124_))) - (let ((_tl5108451134_ + (##car _e5424054280_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5423954283_)) + (let ((_e5424354288_ + (let () + (declare (not safe)) + (gx#stx-e _hd5423954283_)))) + (let ((_tl5424154293_ (let () (declare (not safe)) - (##cdr _e5108251129_))) - (_hd5108351132_ + (##cdr _e5424354288_))) + (_hd5424254291_ (let () (declare (not safe)) - (##car _e5108251129_)))) - (if (gx#identifier? _hd5108351132_) - (if (gx#stx-eq? '%#ref _hd5108351132_) - (if (gx#stx-pair? _tl5108451134_) - (let ((_e5108551137_ - (gx#stx-e - _tl5108451134_))) - (let ((_tl5108751142_ + (##car _e5424354288_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5424254291_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5424254291_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5424154293_)) + (let ((_e5424654296_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5424154293_)))) + (let ((_tl5424454301_ (let () (declare (not safe)) - (##cdr _e5108551137_))) - (_hd5108651140_ + (##cdr _e5424654296_))) + (_hd5424554299_ (let () (declare (not safe)) - (##car _e5108551137_)))) - (if (gx#stx-null? - _tl5108751142_) - (if (gx#stx-pair? - _tl5108151126_) - (let ((_e5108851145_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5108151126_))) - (let ((_tl5109051150_ - (let () (declare (not safe)) (##cdr _e5108851145_))) - (_hd5108951148_ + (##car _e5424654296_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5424454301_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl5423854285_)) + (let ((_e5424954304_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl5423854285_)))) + (let ((_tl5424754309_ + (let () (declare (not safe)) (##cdr _e5424954304_))) + (_hd5424854307_ (let () (declare (not safe)) - (##car _e5108851145_)))) - (if (gx#stx-pair? _hd5108951148_) - (let ((_e5109151153_ (gx#stx-e _hd5108951148_))) - (let ((_tl5109351158_ - (let () - (declare (not safe)) - (##cdr _e5109151153_))) - (_hd5109251156_ + (##car _e5424954304_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5424854307_)) + (let ((_e5425254312_ + (let () + (declare (not safe)) + (gx#stx-e _hd5424854307_)))) + (let ((_tl5425054317_ (let () (declare (not safe)) - (##car _e5109151153_)))) - (if (gx#identifier? _hd5109251156_) - (if (gx#stx-eq? '%#ref _hd5109251156_) - (if (gx#stx-pair? _tl5109351158_) - (let ((_e5109451161_ - (gx#stx-e _tl5109351158_))) - (let ((_tl5109651166_ + (##cdr _e5425254312_))) + (_hd5425154315_ + (let () + (declare (not safe)) + (##car _e5425254312_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5425154315_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5425154315_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5425054317_)) + (let ((_e5425554320_ + (let () + (declare (not safe)) + (gx#stx-e _tl5425054317_)))) + (let ((_tl5425354325_ (let () (declare (not safe)) - (##cdr _e5109451161_))) - (_hd5109551164_ + (##cdr _e5425554320_))) + (_hd5425454323_ (let () (declare (not safe)) - (##car _e5109451161_)))) - (if (gx#stx-null? _tl5109651166_) - (if (gx#stx-null? - _tl5109051150_) - (___kont5420354204_ - _hd5109551164_ - _hd5108651140_) - (___kont5420554206_)) - (___kont5420554206_)))) - (___kont5420554206_)) - (___kont5420554206_)) - (___kont5420554206_)))) - (___kont5420554206_)))) - (___kont5420554206_)) - (___kont5420554206_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5420554206_)) - (___kont5420554206_)) - (___kont5420554206_)))) - (___kont5420554206_)))) - (___kont5420554206_)) - (___kont5420554206_)) - (___kont5420554206_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5420554206_)))) - (if (or (eq? '##eq? _$e51065_) - (eq? 'eq? _$e51065_) - (eq? '##eqv? _$e51065_) - (eq? 'eqv? _$e51065_) - (eq? '##equal? _$e51065_) - (eq? 'equal? _$e51065_) - (eq? 'gx#free-identifier=? - _$e51065_) - (eq? 'gx#stx-eq? _$e51065_)) - ((lambda (_sym51224_) - (let* ((_sym51226_ - (_eqf-symbol46380_ - _sym51224_)) - (___stx5426954270_ - _L51039_) - (_g5122951242_ + (##car _e5425554320_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5425354325_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5424754309_)) + (___kont5736257363_ + _hd5425454323_ + _hd5424554299_) + (___kont5736457365_)) + (___kont5736457365_)))) + (___kont5736457365_)) + (___kont5736457365_)) + (___kont5736457365_)))) + (___kont5736457365_)))) + (___kont5736457365_)) + (___kont5736457365_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5736457365_)) + (___kont5736457365_)) + (___kont5736457365_)))) + (___kont5736457365_)))) + (___kont5736457365_)) + (___kont5736457365_)) + (___kont5736457365_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5736457365_)))) + (if (or (let () + (declare (not safe)) + (eq? '##eq? _$e54224_)) + (let () + (declare (not safe)) + (eq? 'eq? _$e54224_)) + (let () + (declare (not safe)) + (eq? '##eqv? _$e54224_)) + (let () + (declare (not safe)) + (eq? 'eqv? _$e54224_)) + (let () + (declare (not safe)) + (eq? '##equal? _$e54224_)) + (let () + (declare (not safe)) + (eq? 'equal? _$e54224_)) + (let () + (declare (not safe)) + (eq? 'gx#free-identifier=? + _$e54224_)) + (let () + (declare (not safe)) + (eq? 'gx#stx-eq? _$e54224_))) + ((lambda (_sym54383_) + (let* ((_sym54385_ + (let () + (declare (not safe)) + (_eqf-symbol49539_ + _sym54383_))) + (___stx5742857429_ + _L54198_) + (_g5438854401_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5426954270_)))) - (let ((___kont5427154272_ - (lambda (_L51270_) - (cons (cons _L51270_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _sym51226_ - (cons (gx#stx-e _L51038_) - (cons _val50328_ '())))) - _env50329_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5427354274_ - (lambda () _env50329_))) - (if (gx#stx-pair? - ___stx5426954270_) - (let ((_e5123251254_ - (gx#stx-e - ___stx5426954270_))) - (let ((_tl5123451259_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5742857429_))))) + (let ((___kont5743057431_ + (lambda (_L54429_) + (let ((__tmp60123 + (let ((__tmp60124 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60125 + (let ((__tmp60127 + (let () + (declare (not safe)) + (gx#stx-e _L54197_))) + (__tmp60126 + (let () + (declare (not safe)) + (cons _val53487_ '())))) + (declare (not safe)) + (cons __tmp60127 __tmp60126)))) + (declare (not safe)) + (cons _sym54385_ __tmp60125)))) + (declare (not safe)) + (cons _L54429_ __tmp60124)))) + (declare (not safe)) + (cons __tmp60123 _env53488_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5743257433_ + (lambda () _env53488_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx5742857429_)) + (let ((_e5439354413_ + (let () + (declare + (not safe)) + (gx#stx-e + ___stx5742857429_)))) + (let ((_tl5439154418_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5123251254_))) - (_hd5123351257_ - (let () (declare (not safe)) (##car _e5123251254_)))) - (if (gx#identifier? _hd5123351257_) - (if (gx#stx-eq? '%#ref _hd5123351257_) - (if (gx#stx-pair? _tl5123451259_) - (let ((_e5123551262_ (gx#stx-e _tl5123451259_))) - (let ((_tl5123751267_ + (##cdr _e5439354413_))) + (_hd5439254416_ + (let () (declare (not safe)) (##car _e5439354413_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5439254416_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5439254416_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5439154418_)) + (let ((_e5439654421_ + (let () + (declare (not safe)) + (gx#stx-e _tl5439154418_)))) + (let ((_tl5439454426_ (let () (declare (not safe)) - (##cdr _e5123551262_))) - (_hd5123651265_ + (##cdr _e5439654421_))) + (_hd5439554424_ (let () (declare (not safe)) - (##car _e5123551262_)))) - (if (gx#stx-null? _tl5123751267_) - (___kont5427154272_ _hd5123651265_) - (___kont5427354274_)))) - (___kont5427354274_)) - (___kont5427354274_)) - (___kont5427354274_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5427354274_))))) - _$e51065_) - _env50329_))))) - (___kont5430154302_ - (lambda (_L50942_ _L50943_ _L50944_) - (_fold-assert-type46378_ - (cons (gx#datum->syntax__0 '#f '%#call) - (cons (cons (gx#datum->syntax__0 - '#f - '%#ref) - (cons _L50944_ '())) - (cons _L50942_ - (cons (cons (gx#datum->syntax__0 - '#f - '%#quote) - (cons _L50943_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _val50328_ - _env50329_))) - (___kont5430354304_ - (lambda (_L50832_ _L50833_ _L50834_) - (let ((_$e50863_ - (gxc#identifier-symbol _L50834_))) - (if (or (eq? 'gx#free-identifier=? _$e50863_) - (eq? 'gx#stx-eq? _$e50863_)) - ((lambda (_sym50869_) - (let ((_sym50871_ - (_eqf-symbol46380_ - _sym50869_))) - (cons (cons _L50833_ - (cons _sym50871_ - (cons _L50832_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _val50328_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _env50329_))) - _$e50863_) - _env50329_)))) - (___kont5430554306_ - (lambda (_L50716_ _L50717_ _L50718_) - (_fold-assert-type46378_ - (cons (gx#datum->syntax__0 '#f '%#call) - (cons (cons (gx#datum->syntax__0 - '#f - '%#ref) - (cons _L50718_ '())) - (cons (cons (gx#datum->syntax__0 - '#f - '%#ref) - (cons _L50716_ '())) - (cons (cons (gx#datum->syntax__0 - '#f - '%#quote-syntax) - (cons _L50717_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _val50328_ - _env50329_))) - (___kont5430754308_ - (lambda (_L50600_ _L50601_ _L50602_) - (_fold-assert-type46378_ - (gxc#apply-expression-subst - _L50601_ - _L50602_ - _L50600_) - _val50328_ - _env50329_))) - (___kont5430954310_ (lambda () _env50329_))) - (if (gx#stx-pair? ___stx5429554296_) - (let ((_e5034151292_ - (gx#stx-e ___stx5429554296_))) - (let ((_tl5034351297_ + (##car _e5439654421_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5439454426_)) + (___kont5743057431_ _hd5439554424_) + (___kont5743257433_)))) + (___kont5743257433_)) + (___kont5743257433_)) + (___kont5743257433_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5743257433_))))) + _$e54224_) + _env53488_))))) + (___kont5746057461_ + (lambda (_L54101_ _L54102_ _L54103_) + (let ((__tmp60133 + (let ((__tmp60143 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#call))) + (__tmp60134 + (let ((__tmp60140 + (let ((__tmp60142 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp60141 + (let () + (declare + (not safe)) + (cons _L54103_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons __tmp60142 __tmp60141))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp60135 + (let ((__tmp60136 + (let ((__tmp60137 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60139 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#quote))) + (__tmp60138 + (let () + (declare (not safe)) + (cons _L54102_ '())))) + (declare (not safe)) + (cons __tmp60139 __tmp60138)))) + (declare (not safe)) + (cons __tmp60137 '())))) + (declare (not safe)) + (cons _L54101_ __tmp60136)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60140 __tmp60135)))) + (declare (not safe)) + (cons __tmp60143 __tmp60134)))) + (declare (not safe)) + (_fold-assert-type49537_ + __tmp60133 + _val53487_ + _env53488_)))) + (___kont5746257463_ + (lambda (_L53991_ _L53992_ _L53993_) + (let ((_$e54022_ + (let () + (declare (not safe)) + (gxc#identifier-symbol _L53993_)))) + (if (or (let () + (declare (not safe)) + (eq? 'gx#free-identifier=? + _$e54022_)) + (let () + (declare (not safe)) + (eq? 'gx#stx-eq? _$e54022_))) + ((lambda (_sym54028_) + (let* ((_sym54030_ + (let () + (declare (not safe)) + (_eqf-symbol49539_ + _sym54028_))) + (__tmp60144 + (let ((__tmp60145 + (let ((__tmp60146 + (let ((__tmp60147 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _val53487_ '())))) + (declare (not safe)) + (cons _L53991_ __tmp60147)))) + (declare (not safe)) + (cons _sym54030_ __tmp60146)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L53992_ + __tmp60145)))) + (declare (not safe)) + (cons __tmp60144 _env53488_))) + _$e54022_) + _env53488_)))) + (___kont5746457465_ + (lambda (_L53875_ _L53876_ _L53877_) + (let ((__tmp60148 + (let ((__tmp60161 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#call))) + (__tmp60149 + (let ((__tmp60158 + (let ((__tmp60160 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp60159 + (let () + (declare + (not safe)) + (cons _L53877_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons __tmp60160 __tmp60159))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp60150 + (let ((__tmp60155 + (let ((__tmp60157 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#ref))) + (__tmp60156 + (let () (declare (not safe)) (cons _L53875_ '())))) + (declare (not safe)) + (cons __tmp60157 __tmp60156))) + (__tmp60151 + (let ((__tmp60152 + (let ((__tmp60154 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#quote-syntax))) + (__tmp60153 + (let () + (declare (not safe)) + (cons _L53876_ '())))) + (declare (not safe)) + (cons __tmp60154 __tmp60153)))) + (declare (not safe)) + (cons __tmp60152 '())))) + (declare (not safe)) + (cons __tmp60155 __tmp60151)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60158 __tmp60150)))) + (declare (not safe)) + (cons __tmp60161 __tmp60149)))) + (declare (not safe)) + (_fold-assert-type49537_ + __tmp60148 + _val53487_ + _env53488_)))) + (___kont5746657467_ + (lambda (_L53759_ _L53760_ _L53761_) + (let ((__tmp60162 + (let () + (declare (not safe)) + (gxc#apply-expression-subst + _L53760_ + _L53761_ + _L53759_)))) + (declare (not safe)) + (_fold-assert-type49537_ + __tmp60162 + _val53487_ + _env53488_)))) + (___kont5746857469_ (lambda () _env53488_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5745457455_)) + (let ((_e5350254451_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5745457455_)))) + (let ((_tl5350054456_ (let () (declare (not safe)) - (##cdr _e5034151292_))) - (_hd5034251295_ + (##cdr _e5350254451_))) + (_hd5350154454_ (let () (declare (not safe)) - (##car _e5034151292_)))) - (if (gx#identifier? _hd5034251295_) - (if (gx#stx-eq? '%#call _hd5034251295_) - (if (gx#stx-pair? _tl5034351297_) - (let ((_e5034451300_ - (gx#stx-e _tl5034351297_))) - (let ((_tl5034651305_ + (##car _e5350254451_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5350154454_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd5350154454_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5350054456_)) + (let ((_e5350554459_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5350054456_)))) + (let ((_tl5350354464_ (let () (declare (not safe)) - (##cdr _e5034451300_))) - (_hd5034551303_ + (##cdr _e5350554459_))) + (_hd5350454462_ (let () (declare (not safe)) - (##car _e5034451300_)))) - (if (gx#stx-pair? - _hd5034551303_) - (let ((_e5034751308_ - (gx#stx-e - _hd5034551303_))) - (let ((_tl5034951313_ + (##car _e5350554459_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5350454462_)) + (let ((_e5350854467_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd5350454462_)))) + (let ((_tl5350654472_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5034751308_))) - (_hd5034851311_ - (let () (declare (not safe)) (##car _e5034751308_)))) - (if (gx#identifier? _hd5034851311_) - (if (gx#stx-eq? '%#ref _hd5034851311_) - (if (gx#stx-pair? _tl5034951313_) - (let ((_e5035051316_ (gx#stx-e _tl5034951313_))) - (let ((_tl5035251321_ + (##cdr _e5350854467_))) + (_hd5350754470_ + (let () (declare (not safe)) (##car _e5350854467_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5350754470_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5350754470_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5350654472_)) + (let ((_e5351154475_ + (let () + (declare (not safe)) + (gx#stx-e _tl5350654472_)))) + (let ((_tl5350954480_ (let () (declare (not safe)) - (##cdr _e5035051316_))) - (_hd5035151319_ + (##cdr _e5351154475_))) + (_hd5351054478_ (let () (declare (not safe)) - (##car _e5035051316_)))) - (if (gx#stx-null? _tl5035251321_) - (if (gx#stx-pair? _tl5034651305_) - (let ((_e5035351324_ - (gx#stx-e _tl5034651305_))) - (let ((_tl5035551329_ + (##car _e5351154475_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5350954480_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5350354464_)) + (let ((_e5351454483_ + (let () + (declare (not safe)) + (gx#stx-e _tl5350354464_)))) + (let ((_tl5351254488_ (let () (declare (not safe)) - (##cdr _e5035351324_))) - (_hd5035451327_ + (##cdr _e5351454483_))) + (_hd5351354486_ (let () (declare (not safe)) - (##car _e5035351324_)))) - (if (gx#stx-pair? _hd5035451327_) - (let ((_e5035651332_ - (gx#stx-e - _hd5035451327_))) - (let ((_tl5035851337_ + (##car _e5351454483_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5351354486_)) + (let ((_e5351754491_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5351354486_)))) + (let ((_tl5351554496_ (let () (declare (not safe)) - (##cdr _e5035651332_))) - (_hd5035751335_ + (##cdr _e5351754491_))) + (_hd5351654494_ (let () (declare (not safe)) - (##car _e5035651332_)))) - (if (gx#identifier? - _hd5035751335_) - (if (gx#stx-eq? - '%#ref - _hd5035751335_) - (if (gx#stx-pair? + (##car _e5351754491_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5351654494_)) + (if (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl5035851337_) - (let ((_e5035951340_ (gx#stx-e _tl5035851337_))) - (let ((_tl5036151345_ + (not safe)) + (gx#stx-eq? '%#ref _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351554496_)) + (let ((_e5352054499_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351554496_)))) + (let ((_tl5351854504_ (let () (declare (not safe)) - (##cdr _e5035951340_))) - (_hd5036051343_ + (##cdr _e5352054499_))) + (_hd5351954502_ (let () (declare (not safe)) - (##car _e5035951340_)))) - (if (gx#stx-null? _tl5036151345_) - (if (gx#stx-null? _tl5035551329_) - (___kont5429754298_ - _hd5036051343_ - _hd5035151319_) - (if (gx#stx-pair? _tl5035551329_) - (let ((_e5038051014_ - (gx#stx-e _tl5035551329_))) - (let ((_tl5038251019_ + (##car _e5352054499_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5351854504_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5351254488_)) + (___kont5745657457_ + _hd5351954502_ + _hd5351054478_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351254488_)) + (let ((_e5354154173_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351254488_)))) + (let ((_tl5353954178_ (let () (declare (not safe)) - (##cdr _e5038051014_))) - (_hd5038151017_ + (##cdr _e5354154173_))) + (_hd5354054176_ (let () (declare (not safe)) - (##car _e5038051014_)))) - (if (gx#stx-pair? _hd5038151017_) - (let ((_e5038351022_ - (gx#stx-e - _hd5038151017_))) - (let ((_tl5038551027_ + (##car _e5354154173_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5354054176_)) + (let ((_e5354454181_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5354054176_)))) + (let ((_tl5354254186_ (let () (declare (not safe)) - (##cdr _e5038351022_))) - (_hd5038451025_ + (##cdr _e5354454181_))) + (_hd5354354184_ (let () (declare (not safe)) - (##car _e5038351022_)))) - (if (gx#identifier? - _hd5038451025_) - (if (gx#stx-eq? - '%#quote - _hd5038451025_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl5038551027_) - (let ((_e5038651030_ (gx#stx-e _tl5038551027_))) - (let ((_tl5038851035_ + (##car _e5354454181_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5354354184_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-eq? '%#quote _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5354254186_)) + (let ((_e5354754189_ + (let () + (declare (not safe)) + (gx#stx-e _tl5354254186_)))) + (let ((_tl5354554194_ (let () (declare (not safe)) - (##cdr _e5038651030_))) - (_hd5038751033_ + (##cdr _e5354754189_))) + (_hd5354654192_ (let () (declare (not safe)) - (##car _e5038651030_)))) - (if (gx#stx-null? _tl5038851035_) - (if (gx#stx-null? _tl5038251019_) - (___kont5429954300_ - _hd5038751033_ - _hd5035451327_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) - (if (gx#stx-eq? '%#quote-syntax _hd5038451025_) - (if (gx#stx-pair? _tl5038551027_) - (let ((_e5044650824_ (gx#stx-e _tl5038551027_))) - (let ((_tl5044850829_ + (##car _e5354754189_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5354554194_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5353954178_)) + (___kont5745857459_ + _hd5354654192_ + _hd5351354486_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote-syntax _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5354254186_)) + (let ((_e5360753983_ + (let () + (declare (not safe)) + (gx#stx-e _tl5354254186_)))) + (let ((_tl5360553988_ (let () (declare (not safe)) - (##cdr _e5044650824_))) - (_hd5044750827_ + (##cdr _e5360753983_))) + (_hd5360653986_ (let () (declare (not safe)) - (##car _e5044650824_)))) - (if (gx#stx-null? _tl5044850829_) - (if (gx#stx-null? _tl5038251019_) - (___kont5430354304_ - _hd5044750827_ - _hd5036051343_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) - (___kont5430954310_))) - (___kont5430954310_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5430954310_)))) - (___kont5430954310_))) - (if (gx#stx-pair? _tl5035551329_) - (let ((_e5038051014_ - (gx#stx-e _tl5035551329_))) - (let ((_tl5038251019_ + (##car _e5360753983_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5360553988_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5353954178_)) + (___kont5746257463_ + _hd5360653986_ + _hd5351954502_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)) + (___kont5746857469_))) + (___kont5746857469_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5746857469_)))) + (___kont5746857469_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351254488_)) + (let ((_e5354154173_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351254488_)))) + (let ((_tl5353954178_ (let () (declare (not safe)) - (##cdr _e5038051014_))) - (_hd5038151017_ + (##cdr _e5354154173_))) + (_hd5354054176_ (let () (declare (not safe)) - (##car _e5038051014_)))) - (if (gx#stx-pair? _hd5038151017_) - (let ((_e5038351022_ - (gx#stx-e _hd5038151017_))) - (let ((_tl5038551027_ + (##car _e5354154173_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5354054176_)) + (let ((_e5354454181_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5354054176_)))) + (let ((_tl5354254186_ (let () (declare (not safe)) - (##cdr _e5038351022_))) - (_hd5038451025_ + (##cdr _e5354454181_))) + (_hd5354354184_ (let () (declare (not safe)) - (##car _e5038351022_)))) - (if (gx#identifier? - _hd5038451025_) - (if (gx#stx-eq? - '%#quote - _hd5038451025_) - (if (gx#stx-pair? - _tl5038551027_) - (let ((_e5038651030_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5038551027_))) - (let ((_tl5038851035_ + (##car _e5354454181_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5354354184_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5354254186_)) + (let ((_e5354754189_ + (let () + (declare (not safe)) + (gx#stx-e _tl5354254186_)))) + (let ((_tl5354554194_ (let () (declare (not safe)) - (##cdr _e5038651030_))) - (_hd5038751033_ + (##cdr _e5354754189_))) + (_hd5354654192_ (let () (declare (not safe)) - (##car _e5038651030_)))) - (if (gx#stx-null? _tl5038851035_) - (if (gx#stx-null? _tl5038251019_) - (___kont5429954300_ - _hd5038751033_ - _hd5035451327_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) - (___kont5430954310_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5430954310_)))) - (___kont5430954310_)))) - (___kont5430954310_))))) - (if (gx#stx-pair? _tl5035551329_) - (let ((_e5038051014_ (gx#stx-e _tl5035551329_))) - (let ((_tl5038251019_ + (##car _e5354754189_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5354554194_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5353954178_)) + (___kont5745857459_ + _hd5354654192_ + _hd5351354486_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)) + (___kont5746857469_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5746857469_)))) + (___kont5746857469_)))) + (___kont5746857469_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351254488_)) + (let ((_e5354154173_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351254488_)))) + (let ((_tl5353954178_ (let () (declare (not safe)) - (##cdr _e5038051014_))) - (_hd5038151017_ + (##cdr _e5354154173_))) + (_hd5354054176_ (let () (declare (not safe)) - (##car _e5038051014_)))) - (if (gx#stx-pair? _hd5038151017_) - (let ((_e5038351022_ - (gx#stx-e _hd5038151017_))) - (let ((_tl5038551027_ + (##car _e5354154173_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5354054176_)) + (let ((_e5354454181_ + (let () + (declare (not safe)) + (gx#stx-e _hd5354054176_)))) + (let ((_tl5354254186_ (let () (declare (not safe)) - (##cdr _e5038351022_))) - (_hd5038451025_ + (##cdr _e5354454181_))) + (_hd5354354184_ (let () (declare (not safe)) - (##car _e5038351022_)))) - (if (gx#identifier? _hd5038451025_) - (if (gx#stx-eq? - '%#quote - _hd5038451025_) - (if (gx#stx-pair? - _tl5038551027_) - (let ((_e5038651030_ - (gx#stx-e - _tl5038551027_))) - (let ((_tl5038851035_ + (##car _e5354454181_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5354254186_)) + (let ((_e5354754189_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5354254186_)))) + (let ((_tl5354554194_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5038651030_))) - (_hd5038751033_ - (let () (declare (not safe)) (##car _e5038651030_)))) - (if (gx#stx-null? _tl5038851035_) - (if (gx#stx-null? _tl5038251019_) - (___kont5429954300_ - _hd5038751033_ - _hd5035451327_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5430954310_)) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)))) - (___kont5430954310_))) - (if (gx#stx-pair? _tl5035551329_) - (let ((_e5038051014_ (gx#stx-e _tl5035551329_))) - (let ((_tl5038251019_ - (let () - (declare (not safe)) - (##cdr _e5038051014_))) - (_hd5038151017_ - (let () - (declare (not safe)) - (##car _e5038051014_)))) - (if (gx#stx-pair? _hd5038151017_) - (let ((_e5038351022_ - (gx#stx-e _hd5038151017_))) - (let ((_tl5038551027_ + (##cdr _e5354754189_))) + (_hd5354654192_ + (let () (declare (not safe)) (##car _e5354754189_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5354554194_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5353954178_)) + (___kont5745857459_ + _hd5354654192_ + _hd5351354486_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5746857469_)) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)))) + (___kont5746857469_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351254488_)) + (let ((_e5354154173_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351254488_)))) + (let ((_tl5353954178_ + (let () + (declare (not safe)) + (##cdr _e5354154173_))) + (_hd5354054176_ + (let () + (declare (not safe)) + (##car _e5354154173_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5354054176_)) + (let ((_e5354454181_ + (let () + (declare (not safe)) + (gx#stx-e _hd5354054176_)))) + (let ((_tl5354254186_ (let () (declare (not safe)) - (##cdr _e5038351022_))) - (_hd5038451025_ + (##cdr _e5354454181_))) + (_hd5354354184_ (let () (declare (not safe)) - (##car _e5038351022_)))) - (if (gx#identifier? _hd5038451025_) - (if (gx#stx-eq? - '%#quote - _hd5038451025_) - (if (gx#stx-pair? _tl5038551027_) - (let ((_e5038651030_ - (gx#stx-e - _tl5038551027_))) - (let ((_tl5038851035_ + (##car _e5354454181_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5354254186_)) + (let ((_e5354754189_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5354254186_)))) + (let ((_tl5354554194_ (let () (declare (not safe)) - (##cdr _e5038651030_))) - (_hd5038751033_ + (##cdr _e5354754189_))) + (_hd5354654192_ (let () (declare (not safe)) - (##car _e5038651030_)))) - (if (gx#stx-null? - _tl5038851035_) - (if (gx#stx-null? - _tl5038251019_) - (___kont5429954300_ - _hd5038751033_ - _hd5035451327_ - _hd5035151319_) - (if (gx#stx-eq? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '%#quote - _hd5035751335_) - (if (gx#stx-pair? _tl5035851337_) - (let ((_e5041050926_ (gx#stx-e _tl5035851337_))) - (let ((_tl5041250931_ + (##car _e5354754189_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5354554194_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl5353954178_)) + (___kont5745857459_ + _hd5354654192_ + _hd5351354486_ + _hd5351054478_) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351554496_)) + (let ((_e5357154085_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351554496_)))) + (let ((_tl5356954090_ (let () (declare (not safe)) - (##cdr _e5041050926_))) - (_hd5041150929_ + (##cdr _e5357154085_))) + (_hd5357054088_ (let () (declare (not safe)) - (##car _e5041050926_)))) - (___kont5430954310_))) - (___kont5430954310_)) - (if (gx#stx-eq? '%#quote-syntax _hd5035751335_) - (if (gx#stx-pair? _tl5035851337_) - (let ((_e5047050684_ - (gx#stx-e _tl5035851337_))) - (let ((_tl5047250689_ + (##car _e5357154085_)))) + (___kont5746857469_))) + (___kont5746857469_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote-syntax _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351554496_)) + (let ((_e5363153843_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351554496_)))) + (let ((_tl5362953848_ (let () (declare (not safe)) - (##cdr _e5047050684_))) - (_hd5047150687_ + (##cdr _e5363153843_))) + (_hd5363053846_ (let () (declare (not safe)) - (##car _e5047050684_)))) - (___kont5430954310_))) - (___kont5430954310_)) - (___kont5430954310_)))) - (if (gx#stx-eq? '%#quote _hd5035751335_) - (if (gx#stx-pair? _tl5035851337_) - (let ((_e5041050926_ (gx#stx-e _tl5035851337_))) - (let ((_tl5041250931_ + (##car _e5363153843_)))) + (___kont5746857469_))) + (___kont5746857469_)) + (___kont5746857469_)))) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351554496_)) + (let ((_e5357154085_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351554496_)))) + (let ((_tl5356954090_ (let () (declare (not safe)) - (##cdr _e5041050926_))) - (_hd5041150929_ + (##cdr _e5357154085_))) + (_hd5357054088_ (let () (declare (not safe)) - (##car _e5041050926_)))) - (if (gx#stx-null? _tl5041250931_) - (if (gx#stx-null? _tl5038251019_) - (___kont5430154302_ - _hd5038151017_ - _hd5041150929_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) - (if (gx#stx-eq? '%#quote-syntax _hd5035751335_) - (if (gx#stx-pair? _tl5035851337_) - (let ((_e5047050684_ (gx#stx-e _tl5035851337_))) - (let ((_tl5047250689_ + (##car _e5357154085_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5356954090_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5353954178_)) + (___kont5746057461_ + _hd5354054176_ + _hd5357054088_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote-syntax _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351554496_)) + (let ((_e5363153843_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351554496_)))) + (let ((_tl5362953848_ (let () (declare (not safe)) - (##cdr _e5047050684_))) - (_hd5047150687_ + (##cdr _e5363153843_))) + (_hd5363053846_ (let () (declare (not safe)) - (##car _e5047050684_)))) - (___kont5430954310_))) - (___kont5430954310_)) - (___kont5430954310_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#quote - _hd5035751335_) - (if (gx#stx-pair? - _tl5035851337_) - (let ((_e5041050926_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl5035851337_))) - (let ((_tl5041250931_ - (let () (declare (not safe)) (##cdr _e5041050926_))) - (_hd5041150929_ - (let () (declare (not safe)) (##car _e5041050926_)))) - (if (gx#stx-null? _tl5041250931_) - (if (gx#stx-null? _tl5038251019_) - (___kont5430154302_ - _hd5038151017_ - _hd5041150929_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#quote-syntax - _hd5035751335_) - (if (gx#stx-pair? - _tl5035851337_) - (let ((_e5047050684_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5035851337_))) - (let ((_tl5047250689_ + (##car _e5363153843_)))) + (___kont5746857469_))) + (___kont5746857469_)) + (___kont5746857469_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5351554496_)) + (let ((_e5357154085_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5351554496_)))) + (let ((_tl5356954090_ + (let () (declare (not safe)) (##cdr _e5357154085_))) + (_hd5357054088_ + (let () (declare (not safe)) (##car _e5357154085_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5356954090_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5353954178_)) + (___kont5746057461_ + _hd5354054176_ + _hd5357054088_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote-syntax + _hd5351654494_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5351554496_)) + (let ((_e5363153843_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351554496_)))) + (let ((_tl5362953848_ (let () (declare (not safe)) - (##cdr _e5047050684_))) - (_hd5047150687_ + (##cdr _e5363153843_))) + (_hd5363053846_ (let () (declare (not safe)) - (##car _e5047050684_)))) - (___kont5430954310_))) - (___kont5430954310_)) - (___kont5430954310_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#quote - _hd5035751335_) - (if (gx#stx-pair? - _tl5035851337_) - (let ((_e5041050926_ - (gx#stx-e - _tl5035851337_))) - (let ((_tl5041250931_ + (##car _e5363153843_)))) + (___kont5746857469_))) + (___kont5746857469_)) + (___kont5746857469_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5351554496_)) + (let ((_e5357154085_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5351554496_)))) + (let ((_tl5356954090_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5041050926_))) - (_hd5041150929_ - (let () (declare (not safe)) (##car _e5041050926_)))) - (if (gx#stx-null? _tl5041250931_) - (if (gx#stx-null? _tl5038251019_) - (___kont5430154302_ - _hd5038151017_ - _hd5041150929_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5430954310_)) - (if (gx#stx-eq? - '%#quote-syntax - _hd5035751335_) - (if (gx#stx-pair? - _tl5035851337_) - (let ((_e5047050684_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl5035851337_))) - (let ((_tl5047250689_ - (let () (declare (not safe)) (##cdr _e5047050684_))) - (_hd5047150687_ - (let () (declare (not safe)) (##car _e5047050684_)))) - (if (gx#stx-null? _tl5047250689_) - (if (gx#stx-eq? '%#ref _hd5038451025_) - (if (gx#stx-pair? _tl5038551027_) - (let ((_e5047950708_ - (gx#stx-e _tl5038551027_))) - (let ((_tl5048150713_ + (##cdr _e5357154085_))) + (_hd5357054088_ + (let () (declare (not safe)) (##car _e5357154085_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5356954090_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5353954178_)) + (___kont5746057461_ + _hd5354054176_ + _hd5357054088_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5746857469_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote-syntax + _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5351554496_)) + (let ((_e5363153843_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5351554496_)))) + (let ((_tl5362953848_ + (let () (declare (not safe)) (##cdr _e5363153843_))) + (_hd5363053846_ + (let () (declare (not safe)) (##car _e5363153843_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5362953848_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5354254186_)) + (let ((_e5364053867_ + (let () + (declare (not safe)) + (gx#stx-e _tl5354254186_)))) + (let ((_tl5363853872_ (let () (declare (not safe)) - (##cdr _e5047950708_))) - (_hd5048050711_ + (##cdr _e5364053867_))) + (_hd5363953870_ (let () (declare (not safe)) - (##car _e5047950708_)))) - (if (gx#stx-null? _tl5048150713_) - (if (gx#stx-null? _tl5038251019_) - (___kont5430554306_ - _hd5048050711_ - _hd5047150687_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5430954310_)))) - (if (gx#stx-eq? - '%#quote - _hd5035751335_) - (if (gx#stx-pair? _tl5035851337_) - (let ((_e5041050926_ - (gx#stx-e - _tl5035851337_))) - (let ((_tl5041250931_ + (##car _e5364053867_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5363853872_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5353954178_)) + (___kont5746457465_ + _hd5363953870_ + _hd5363053846_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5746857469_)))) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5351554496_)) + (let ((_e5357154085_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5351554496_)))) + (let ((_tl5356954090_ (let () (declare (not safe)) - (##cdr _e5041050926_))) - (_hd5041150929_ + (##cdr _e5357154085_))) + (_hd5357054088_ (let () (declare (not safe)) - (##car _e5041050926_)))) - (if (gx#stx-null? - _tl5041250931_) - (if (gx#stx-null? - _tl5038251019_) - (___kont5430154302_ - _hd5038151017_ - _hd5041150929_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) - (if (gx#stx-eq? - '%#quote-syntax - _hd5035751335_) - (if (gx#stx-pair? - _tl5035851337_) - (let ((_e5047050684_ - (gx#stx-e - _tl5035851337_))) - (let ((_tl5047250689_ + (##car _e5357154085_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5356954090_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl5353954178_)) + (___kont5746057461_ + _hd5354054176_ + _hd5357054088_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5746857469_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote-syntax + _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5351554496_)) + (let ((_e5363153843_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5351554496_)))) + (let ((_tl5362953848_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5047050684_))) - (_hd5047150687_ - (let () (declare (not safe)) (##car _e5047050684_)))) - (___kont5430954310_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5430954310_)) - (___kont5430954310_)))))) - (if (gx#stx-eq? '%#quote _hd5035751335_) - (if (gx#stx-pair? _tl5035851337_) - (let ((_e5041050926_ - (gx#stx-e _tl5035851337_))) - (let ((_tl5041250931_ + (##cdr _e5363153843_))) + (_hd5363053846_ + (let () (declare (not safe)) (##car _e5363153843_)))) + (___kont5746857469_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5746857469_)) + (___kont5746857469_)))))) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351554496_)) + (let ((_e5357154085_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351554496_)))) + (let ((_tl5356954090_ (let () (declare (not safe)) - (##cdr _e5041050926_))) - (_hd5041150929_ + (##cdr _e5357154085_))) + (_hd5357054088_ (let () (declare (not safe)) - (##car _e5041050926_)))) - (if (gx#stx-null? _tl5041250931_) - (if (gx#stx-null? - _tl5038251019_) - (___kont5430154302_ - _hd5038151017_ - _hd5041150929_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) - (if (gx#stx-eq? - '%#quote-syntax - _hd5035751335_) - (if (gx#stx-pair? _tl5035851337_) - (let ((_e5047050684_ - (gx#stx-e _tl5035851337_))) - (let ((_tl5047250689_ + (##car _e5357154085_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5356954090_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5353954178_)) + (___kont5746057461_ + _hd5354054176_ + _hd5357054088_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote-syntax + _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351554496_)) + (let ((_e5363153843_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5351554496_)))) + (let ((_tl5362953848_ (let () (declare (not safe)) - (##cdr _e5047050684_))) - (_hd5047150687_ + (##cdr _e5363153843_))) + (_hd5363053846_ (let () (declare (not safe)) - (##car _e5047050684_)))) - (___kont5430954310_))) - (___kont5430954310_)) - (___kont5430954310_)))))) - (if (gx#stx-eq? '%#quote _hd5035751335_) - (if (gx#stx-pair? _tl5035851337_) - (let ((_e5041050926_ - (gx#stx-e _tl5035851337_))) - (let ((_tl5041250931_ + (##car _e5363153843_)))) + (___kont5746857469_))) + (___kont5746857469_)) + (___kont5746857469_)))))) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351554496_)) + (let ((_e5357154085_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351554496_)))) + (let ((_tl5356954090_ (let () (declare (not safe)) - (##cdr _e5041050926_))) - (_hd5041150929_ + (##cdr _e5357154085_))) + (_hd5357054088_ (let () (declare (not safe)) - (##car _e5041050926_)))) - (___kont5430954310_))) - (___kont5430954310_)) - (if (gx#stx-eq? '%#quote-syntax _hd5035751335_) - (if (gx#stx-pair? _tl5035851337_) - (let ((_e5047050684_ - (gx#stx-e _tl5035851337_))) - (let ((_tl5047250689_ + (##car _e5357154085_)))) + (___kont5746857469_))) + (___kont5746857469_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote-syntax _hd5351654494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351554496_)) + (let ((_e5363153843_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351554496_)))) + (let ((_tl5362953848_ (let () (declare (not safe)) - (##cdr _e5047050684_))) - (_hd5047150687_ + (##cdr _e5363153843_))) + (_hd5363053846_ (let () (declare (not safe)) - (##car _e5047050684_)))) - (___kont5430954310_))) - (___kont5430954310_)) - (___kont5430954310_))))) - (if (gx#stx-pair? _tl5035551329_) - (let ((_e5038051014_ (gx#stx-e _tl5035551329_))) - (let ((_tl5038251019_ + (##car _e5363153843_)))) + (___kont5746857469_))) + (___kont5746857469_)) + (___kont5746857469_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5351254488_)) + (let ((_e5354154173_ + (let () + (declare (not safe)) + (gx#stx-e _tl5351254488_)))) + (let ((_tl5353954178_ (let () (declare (not safe)) - (##cdr _e5038051014_))) - (_hd5038151017_ + (##cdr _e5354154173_))) + (_hd5354054176_ (let () (declare (not safe)) - (##car _e5038051014_)))) - (if (gx#stx-pair? _hd5038151017_) - (let ((_e5038351022_ (gx#stx-e _hd5038151017_))) - (let ((_tl5038551027_ + (##car _e5354154173_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5354054176_)) + (let ((_e5354454181_ + (let () + (declare (not safe)) + (gx#stx-e _hd5354054176_)))) + (let ((_tl5354254186_ (let () (declare (not safe)) - (##cdr _e5038351022_))) - (_hd5038451025_ + (##cdr _e5354454181_))) + (_hd5354354184_ (let () (declare (not safe)) - (##car _e5038351022_)))) - (if (gx#identifier? _hd5038451025_) - (if (gx#stx-eq? '%#quote _hd5038451025_) - (if (gx#stx-pair? _tl5038551027_) - (let ((_e5038651030_ - (gx#stx-e _tl5038551027_))) - (let ((_tl5038851035_ + (##car _e5354454181_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5354254186_)) + (let ((_e5354754189_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5354254186_)))) + (let ((_tl5354554194_ (let () (declare (not safe)) - (##cdr _e5038651030_))) - (_hd5038751033_ + (##cdr _e5354754189_))) + (_hd5354654192_ (let () (declare (not safe)) - (##car _e5038651030_)))) - (if (gx#stx-null? - _tl5038851035_) - (if (gx#stx-null? - _tl5038251019_) - (___kont5429954300_ - _hd5038751033_ - _hd5035451327_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)))) - (___kont5430954310_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _tl5035551329_) - (let ((_e5038051014_ - (gx#stx-e - _tl5035551329_))) - (let ((_tl5038251019_ + (##car _e5354754189_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5354554194_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5353954178_)) + (___kont5745857459_ + _hd5354654192_ + _hd5351354486_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)))) + (___kont5746857469_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5351254488_)) + (let ((_e5354154173_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5351254488_)))) + (let ((_tl5353954178_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5038051014_))) - (_hd5038151017_ - (let () (declare (not safe)) (##car _e5038051014_)))) - (if (gx#stx-pair? _hd5038151017_) - (let ((_e5038351022_ (gx#stx-e _hd5038151017_))) - (let ((_tl5038551027_ + (##cdr _e5354154173_))) + (_hd5354054176_ + (let () (declare (not safe)) (##car _e5354154173_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5354054176_)) + (let ((_e5354454181_ + (let () + (declare (not safe)) + (gx#stx-e _hd5354054176_)))) + (let ((_tl5354254186_ (let () (declare (not safe)) - (##cdr _e5038351022_))) - (_hd5038451025_ + (##cdr _e5354454181_))) + (_hd5354354184_ (let () (declare (not safe)) - (##car _e5038351022_)))) - (if (gx#identifier? _hd5038451025_) - (if (gx#stx-eq? '%#quote _hd5038451025_) - (if (gx#stx-pair? _tl5038551027_) - (let ((_e5038651030_ - (gx#stx-e _tl5038551027_))) - (let ((_tl5038851035_ + (##car _e5354454181_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd5354354184_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5354254186_)) + (let ((_e5354754189_ + (let () + (declare (not safe)) + (gx#stx-e _tl5354254186_)))) + (let ((_tl5354554194_ (let () (declare (not safe)) - (##cdr _e5038651030_))) - (_hd5038751033_ + (##cdr _e5354754189_))) + (_hd5354654192_ (let () (declare (not safe)) - (##car _e5038651030_)))) - (if (gx#stx-null? _tl5038851035_) - (if (gx#stx-null? _tl5038251019_) - (___kont5429954300_ - _hd5038751033_ - _hd5035451327_ - _hd5035151319_) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5430954310_))))) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) - (if (gx#stx-eq? '%#lambda _hd5034851311_) - (if (gx#stx-pair? _tl5034951313_) - (let ((_e5049450552_ - (gx#stx-e _tl5034951313_))) - (let ((_tl5049650557_ + (##car _e5354754189_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5354554194_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5353954178_)) + (___kont5745857459_ + _hd5354654192_ + _hd5351354486_ + _hd5351054478_) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5746857469_))))) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#lambda _hd5350754470_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5350654472_)) + (let ((_e5365553711_ + (let () + (declare (not safe)) + (gx#stx-e _tl5350654472_)))) + (let ((_tl5365353716_ (let () (declare (not safe)) - (##cdr _e5049450552_))) - (_hd5049550555_ + (##cdr _e5365553711_))) + (_hd5365453714_ (let () (declare (not safe)) - (##car _e5049450552_)))) - (if (gx#stx-pair? _hd5049550555_) - (let ((_e5049750560_ - (gx#stx-e _hd5049550555_))) - (let ((_tl5049950565_ + (##car _e5365553711_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5365453714_)) + (let ((_e5365853719_ + (let () + (declare (not safe)) + (gx#stx-e _hd5365453714_)))) + (let ((_tl5365653724_ (let () (declare (not safe)) - (##cdr _e5049750560_))) - (_hd5049850563_ + (##cdr _e5365853719_))) + (_hd5365753722_ (let () (declare (not safe)) - (##car _e5049750560_)))) - (if (gx#stx-null? _tl5049950565_) - (if (gx#stx-pair? - _tl5049650557_) - (let ((_e5050050568_ - (gx#stx-e - _tl5049650557_))) - (let ((_tl5050250573_ + (##car _e5365853719_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5365653724_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5365353716_)) + (let ((_e5366153727_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5365353716_)))) + (let ((_tl5365953732_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5050050568_))) - (_hd5050150571_ - (let () (declare (not safe)) (##car _e5050050568_)))) - (if (gx#stx-null? _tl5050250573_) - (if (gx#stx-pair? _tl5034651305_) - (let ((_e5050350576_ (gx#stx-e _tl5034651305_))) - (let ((_tl5050550581_ + (##cdr _e5366153727_))) + (_hd5366053730_ + (let () (declare (not safe)) (##car _e5366153727_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5365953732_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5350354464_)) + (let ((_e5366453735_ + (let () + (declare (not safe)) + (gx#stx-e _tl5350354464_)))) + (let ((_tl5366253740_ (let () (declare (not safe)) - (##cdr _e5050350576_))) - (_hd5050450579_ + (##cdr _e5366453735_))) + (_hd5366353738_ (let () (declare (not safe)) - (##car _e5050350576_)))) - (if (gx#stx-pair? _hd5050450579_) - (let ((_e5050650584_ - (gx#stx-e _hd5050450579_))) - (let ((_tl5050850589_ + (##car _e5366453735_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5366353738_)) + (let ((_e5366753743_ + (let () + (declare (not safe)) + (gx#stx-e _hd5366353738_)))) + (let ((_tl5366553748_ (let () (declare (not safe)) - (##cdr _e5050650584_))) - (_hd5050750587_ + (##cdr _e5366753743_))) + (_hd5366653746_ (let () (declare (not safe)) - (##car _e5050650584_)))) - (if (gx#identifier? _hd5050750587_) - (if (gx#stx-eq? '%#ref _hd5050750587_) - (if (gx#stx-pair? _tl5050850589_) - (let ((_e5050950592_ - (gx#stx-e - _tl5050850589_))) - (let ((_tl5051150597_ + (##car _e5366753743_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5366653746_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd5366653746_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5366553748_)) + (let ((_e5367053751_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5366553748_)))) + (let ((_tl5366853756_ (let () (declare (not safe)) - (##cdr _e5050950592_))) - (_hd5051050595_ + (##cdr _e5367053751_))) + (_hd5366953754_ (let () (declare (not safe)) - (##car _e5050950592_)))) - (if (gx#stx-null? - _tl5051150597_) - (if (gx#stx-null? - _tl5050550581_) - (___kont5430754308_ - _hd5051050595_ - _hd5050150571_ - _hd5049850563_) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)))) - (___kont5430954310_)) - (___kont5430954310_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)))) - (___kont5430954310_)) - (___kont5430954310_))) - (___kont5430954310_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5430954310_)))) - (___kont5430954310_)) - (___kont5430954310_)) - (___kont5430954310_)))) - (___kont5430954310_)))))) - (_countf-symbol46379_ - (lambda (_id50319_) - (let ((_$e50321_ (gxc#identifier-symbol _id50319_))) - (if (or (eq? '##vector-length _$e50321_) - (eq? 'vector-length _$e50321_)) + (##car _e5367053751_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5366853756_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl5366253740_)) + (___kont5746657467_ + _hd5366953754_ + _hd5366053730_ + _hd5365753722_) + (___kont5746857469_)) + (___kont5746857469_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5746857469_)) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)))) + (___kont5746857469_)) + (___kont5746857469_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)))) + (___kont5746857469_)) + (___kont5746857469_))) + (___kont5746857469_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5746857469_)))) + (___kont5746857469_)) + (___kont5746857469_)) + (___kont5746857469_)))) + (___kont5746857469_)))))) + (_countf-symbol49538_ + (lambda (_id53478_) + (let ((_$e53480_ + (let () + (declare (not safe)) + (gxc#identifier-symbol _id53478_)))) + (if (or (let () + (declare (not safe)) + (eq? '##vector-length _$e53480_)) + (let () + (declare (not safe)) + (eq? 'vector-length _$e53480_))) 'vector-length - (if (eq? 'values-count _$e50321_) + (if (let () + (declare (not safe)) + (eq? 'values-count _$e53480_)) 'values-count '#f))))) - (_eqf-symbol46380_ - (lambda (_sym50305_) - (let ((_$e50307_ _sym50305_)) - (if (or (eq? '##eq? _$e50307_) (eq? 'eq? _$e50307_)) + (_eqf-symbol49539_ + (lambda (_sym53464_) + (let ((_$e53466_ _sym53464_)) + (if (or (let () + (declare (not safe)) + (eq? '##eq? _$e53466_)) + (let () + (declare (not safe)) + (eq? 'eq? _$e53466_))) 'eq? - (if (or (eq? '##eqv? _$e50307_) - (eq? 'eqv? _$e50307_)) + (if (or (let () + (declare (not safe)) + (eq? '##eqv? _$e53466_)) + (let () + (declare (not safe)) + (eq? 'eqv? _$e53466_))) 'eqv? - (if (or (eq? '##equal? _$e50307_) - (eq? 'equal? _$e50307_)) + (if (or (let () + (declare (not safe)) + (eq? '##equal? _$e53466_)) + (let () + (declare (not safe)) + (eq? 'equal? _$e53466_))) 'equal? - (if (eq? 'gx#free-identifier=? _$e50307_) + (if (let () + (declare (not safe)) + (eq? 'gx#free-identifier=? _$e53466_)) 'free-identifier=? - (if (eq? 'gx#stx-eq? _$e50307_) + (if (let () + (declare (not safe)) + (eq? 'gx#stx-eq? _$e53466_)) 'stx-eq? '#f)))))))) - (_eqf-symbol?46381_ - (lambda (_sym50288_) - (let ((_$e50290_ _sym50288_)) - (if (or (eq? 'eq? _$e50290_) - (eq? 'eqv? _$e50290_) - (eq? 'equal? _$e50290_) - (eq? 'free-identifier=? _$e50290_) - (eq? 'stx-eq? _$e50290_)) + (_eqf-symbol?49540_ + (lambda (_sym53447_) + (let ((_$e53449_ _sym53447_)) + (if (or (let () + (declare (not safe)) + (eq? 'eq? _$e53449_)) + (let () + (declare (not safe)) + (eq? 'eqv? _$e53449_)) + (let () + (declare (not safe)) + (eq? 'equal? _$e53449_)) + (let () + (declare (not safe)) + (eq? 'free-identifier=? _$e53449_)) + (let () + (declare (not safe)) + (eq? 'stx-eq? _$e53449_))) '#t '#f)))) - (_do-assert!46382_ - (lambda (_assert50279_ _type50280_ _K50281_) - (let ((_unwind-assert50283_ _env-assert46372_) - (_unwind-type50284_ _env-type46373_)) - (set! _env-assert46372_ _assert50279_) - (set! _env-type46373_ _type50280_) - (let ((_val50286_ (_K50281_))) - (set! _env-assert46372_ _unwind-assert50283_) - (set! _env-type46373_ _unwind-type50284_) - _val50286_)))) - (_do-bind46383_ - (lambda (_bind50276_ _K50277_) - (if (pair? _bind50276_) - (_do-bind!46385_ - (_fold-bind-env46384_ _bind50276_ _env-bind46374_) - _K50277_) - (_K50277_)))) - (_fold-bind-env46384_ - (lambda (_bind50205_ _env50206_) - (let _lp50208_ ((_rest50210_ _bind50205_) - (_env50211_ _env50206_)) - (let* ((_rest5021250220_ _rest50210_) - (_else5021450228_ (lambda () _env50211_)) - (_K5021650264_ - (lambda (_rest50231_ _bind50232_) - (let* ((_bind5023350240_ _bind50232_) - (_E5023550244_ + (_do-assert!49541_ + (lambda (_assert53438_ _type53439_ _K53440_) + (let ((_unwind-assert53442_ _env-assert49531_) + (_unwind-type53443_ _env-type49532_)) + (set! _env-assert49531_ _assert53438_) + (set! _env-type49532_ _type53439_) + (let ((_val53445_ (_K53440_))) + (set! _env-assert49531_ _unwind-assert53442_) + (set! _env-type49532_ _unwind-type53443_) + _val53445_)))) + (_do-bind49542_ + (lambda (_bind53435_ _K53436_) + (if (let () (declare (not safe)) (pair? _bind53435_)) + (let ((__tmp60163 + (let () + (declare (not safe)) + (_fold-bind-env49543_ + _bind53435_ + _env-bind49533_)))) + (declare (not safe)) + (_do-bind!49544_ __tmp60163 _K53436_)) + (_K53436_)))) + (_fold-bind-env49543_ + (lambda (_bind53364_ _env53365_) + (let _lp53367_ ((_rest53369_ _bind53364_) + (_env53370_ _env53365_)) + (let* ((_rest5337153379_ _rest53369_) + (_else5337353387_ (lambda () _env53370_)) + (_K5337553423_ + (lambda (_rest53390_ _bind53391_) + (let* ((_bind5339253399_ _bind53391_) + (_E5339453403_ (lambda () (error '"No clause matching" - _bind5023350240_))) - (_K5023650252_ - (lambda (_expr50247_ _id50248_) - (let ((_sexpr50250_ - (gxc#apply-generate-runtime-repr - _expr50247_))) - (_lp50208_ - _rest50231_ - (cons (cons _sexpr50250_ - _id50248_) - _env50211_)))))) + _bind5339253399_))) + (_K5339553411_ + (lambda (_expr53406_ _id53407_) + (let* ((_sexpr53409_ + (let () + (declare (not safe)) + (gxc#apply-generate-runtime-repr + _expr53406_))) + (__tmp60164 + (let ((__tmp60165 + (let () + (declare + (not safe)) + (cons _sexpr53409_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _id53407_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60165 + _env53370_)))) + (declare (not safe)) + (_lp53367_ + _rest53390_ + __tmp60164))))) (if (let () (declare (not safe)) - (##pair? _bind5023350240_)) - (let ((_hd5023750255_ + (##pair? _bind5339253399_)) + (let ((_hd5339653414_ (let () (declare (not safe)) - (##car _bind5023350240_))) - (_tl5023850257_ + (##car _bind5339253399_))) + (_tl5339753416_ (let () (declare (not safe)) - (##cdr _bind5023350240_)))) - (let* ((_id50260_ _hd5023750255_) - (_expr50262_ _tl5023850257_)) - (_K5023650252_ - _expr50262_ - _id50260_))) - (_E5023550244_)))))) + (##cdr _bind5339253399_)))) + (let* ((_id53419_ _hd5339653414_) + (_expr53421_ _tl5339753416_)) + (declare (not safe)) + (_K5339553411_ + _expr53421_ + _id53419_))) + (let () + (declare (not safe)) + (_E5339453403_))))))) (if (let () (declare (not safe)) - (##pair? _rest5021250220_)) - (let ((_hd5021750267_ + (##pair? _rest5337153379_)) + (let ((_hd5337653426_ (let () (declare (not safe)) - (##car _rest5021250220_))) - (_tl5021850269_ + (##car _rest5337153379_))) + (_tl5337753428_ (let () (declare (not safe)) - (##cdr _rest5021250220_)))) - (let* ((_bind50272_ _hd5021750267_) - (_rest50274_ _tl5021850269_)) - (_K5021650264_ _rest50274_ _bind50272_))) - (_else5021450228_)))))) - (_do-bind!46385_ - (lambda (_env50198_ _K50199_) - (let ((_unwind50201_ _env-bind46374_)) - (set! _env-bind46374_ _env50198_) - (let ((_val50203_ (_K50199_))) - (set! _env-bind46374_ _unwind50201_) - _val50203_)))) - (_do-splice!46386_ - (lambda (_K50192_) - (let ((_unwind50194_ _in-splice?46375_)) - (set! _in-splice?46375_ '#t) - (let ((_val50196_ (_K50192_))) - (set! _in-splice?46375_ _unwind50194_) - _val50196_)))) - (_optimize-e46387_ - (lambda (_expr49389_) - (let* ((___stx5474754748_ _expr49389_) - (_g4939649569_ + (##cdr _rest5337153379_)))) + (let* ((_bind53431_ _hd5337653426_) + (_rest53433_ _tl5337753428_)) + (declare (not safe)) + (_K5337553423_ _rest53433_ _bind53431_))) + (let () + (declare (not safe)) + (_else5337353387_))))))) + (_do-bind!49544_ + (lambda (_env53357_ _K53358_) + (let ((_unwind53360_ _env-bind49533_)) + (set! _env-bind49533_ _env53357_) + (let ((_val53362_ (_K53358_))) + (set! _env-bind49533_ _unwind53360_) + _val53362_)))) + (_do-splice!49545_ + (lambda (_K53351_) + (let ((_unwind53353_ _in-splice?49534_)) + (set! _in-splice?49534_ '#t) + (let ((_val53355_ (_K53351_))) + (set! _in-splice?49534_ _unwind53353_) + _val53355_)))) + (_optimize-e49546_ + (lambda (_expr52548_) + (let* ((___stx5790657907_ _expr52548_) + (_g5255552728_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5474754748_)))) - (let ((___kont5474954750_ - (lambda (_L50164_ _L50165_ _L50166_) - (let ((_$e50183_ (_assert-e46390_ _L50166_))) - (if (eq? '#t _$e50183_) - (_optimize-e46387_ _L50165_) - (if (eq? '#f _$e50183_) - (_optimize-e46387_ _L50164_) - (let ((_K50186_ - (_optimize-t__0__5371053711_ - _L50165_ - _L50166_)) - (_E50187_ - (_optimize-f__5371253713_ - _L50164_ - _L50166_))) - (if (equal? (gxc#apply-generate-runtime-repr - _K50186_) - (gxc#apply-generate-runtime-repr - _E50187_)) - _K50186_ - (cons '%#if - (cons _L50166_ - (cons _K50186_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _E50187_ '()))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5475154752_ - (lambda (_L50094_ _L50095_) - (let ((_$e50115_ - (_lookup-block46395_ _L50095_))) - (if _$e50115_ - ((lambda (_block50118_) - (if (_nonlinear-block?46397_ - _block50118_) - _expr49389_ - (_optimize-e46387_ - (_inline-block46396_ - _block50118_ - (foldr1 (lambda (_g5011950122_ - _g5012050124_) - (cons _g5011950122_ - _g5012050124_)) - '() - _L50094_))))) - _$e50115_) - _expr49389_)))) - (___kont5475554756_ - (lambda (_L49984_ _L49985_ _L49986_) - (let ((_body50005_ - (_optimize-e46387_ _L49984_))) - (cons '%#let-values - (cons (begin - (gx#syntax-check-splice-targets - _L49985_ - _L49986_) - (foldr2 (lambda (_g5000650010_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5000750012_ - _g5000850014_) - (cons (cons (cons _g5000750012_ '()) - (cons (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _g5000650010_ '())) - '())) - _g5000850014_)) - '() - _L49985_ - _L49986_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _body50005_ '())))))) - (___kont5475954760_ - (lambda (_L49852_ _L49853_ _L49854_) - (_bind-e__0__5371853719_ - (map cons - (foldr1 (lambda (_g4987249875_ - _g4987349877_) - (cons _g4987249875_ - _g4987349877_)) - '() - _L49854_) - (foldr1 (lambda (_g4987949882_ - _g4988049884_) - (cons _g4987949882_ - _g4988049884_)) - '() - _L49853_)) - _L49852_))) - (___kont5476354764_ - (lambda (_L49709_ - _L49710_ - _L49711_ - _L49712_ - _L49713_) - (_do-splice!46386_ - (lambda () - (let ((_expr49755_ - (_optimize-e46387_ _L49711_))) - (cons '%#letrec-values - (cons (cons (cons (cons _L49713_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (cons '%#lambda - (cons (foldr1 (lambda (_g4975649759_ - _g4975749761_) - (cons _g4975649759_ - _g4975749761_)) - '() - _L49712_) - (cons _expr49755_ '()))) - '())) - (foldr1 (lambda (_g4976349766_ _g4976449768_) - (cons _g4976349766_ _g4976449768_)) - '() - _L49710_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L49709_ '())))))))) - (___kont5476954770_ (lambda () _expr49389_))) - (let* ((___match5495654957_ - (lambda (_e4951749581_ - _hd4951849584_ - _tl4951949586_ - _e4952049589_ - _hd4952149592_ - _tl4952249594_ - _e4952349597_ - _hd4952449600_ - _tl4952549602_ - _e4952649605_ - _hd4952749608_ - _tl4952849610_ - _e4952949613_ - _hd4953049616_ - _tl4953149618_ - _e4953249621_ - _hd4953349624_ - _tl4953449626_ - _e4953549629_ - _hd4953649632_ - _tl4953749634_ - _e4953849637_ - _hd4953949640_ - _tl4954049642_ - ___splice5476554766_ - _target4954149645_ - _tl4954349647_) - (letrec ((_loop4954449650_ - (lambda (_hd4954249653_ - _id4954849655_) - (if (gx#stx-pair? - _hd4954249653_) - (let ((_e4954549658_ - (gx#stx-e - _hd4954249653_))) - (let ((_lp-tl4954749663_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5790657907_))))) + (let ((___kont5790857909_ + (lambda (_L53323_ _L53324_ _L53325_) + (let ((_$e53342_ + (let () + (declare (not safe)) + (_assert-e49549_ _L53325_)))) + (if (let () + (declare (not safe)) + (eq? '#t _$e53342_)) + (let () + (declare (not safe)) + (_optimize-e49546_ _L53324_)) + (if (let () + (declare (not safe)) + (eq? '#f _$e53342_)) + (let () + (declare (not safe)) + (_optimize-e49546_ _L53323_)) + (let ((_K53345_ + (let () + (declare (not safe)) + (_optimize-t__0__5686956870_ + _L53324_ + _L53325_))) + (_E53346_ + (let () + (declare (not safe)) + (_optimize-f__5687156872_ + _L53323_ + _L53325_)))) + (if (let ((__tmp60170 + (let () + (declare (not safe)) + (gxc#apply-generate-runtime-repr + _K53345_))) + (__tmp60169 + (let () + (declare (not safe)) + (gxc#apply-generate-runtime-repr + _E53346_)))) + (declare (not safe)) + (equal? __tmp60170 + __tmp60169)) + _K53345_ + (let ((__tmp60166 + (let ((__tmp60167 + (let ((__tmp60168 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _E53346_ '())))) + (declare (not safe)) + (cons _K53345_ __tmp60168)))) + (declare (not safe)) + (cons _L53325_ __tmp60167)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#if + __tmp60166))))))))) + (___kont5791057911_ + (lambda (_L53253_ _L53254_) + (let ((_$e53274_ + (let () + (declare (not safe)) + (_lookup-block49554_ _L53254_)))) + (if _$e53274_ + ((lambda (_block53277_) + (if (let () + (declare (not safe)) + (_nonlinear-block?49556_ + _block53277_)) + _expr52548_ + (let ((__tmp60171 + (let ((__tmp60172 + (let ((__tmp60173 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g5327853281_ _g5327953283_) + (let () + (declare (not safe)) + (cons _g5327853281_ _g5327953283_))))) + (declare (not safe)) + (foldr1 __tmp60173 '() _L53253_)))) + (declare (not safe)) + (_inline-block49555_ _block53277_ __tmp60172)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_optimize-e49546_ + __tmp60171)))) + _$e53274_) + _expr52548_)))) + (___kont5791457915_ + (lambda (_L53143_ _L53144_ _L53145_) + (let* ((_body53164_ + (let () + (declare (not safe)) + (_optimize-e49546_ _L53143_))) + (__tmp60174 + (let ((__tmp60176 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _L53144_ + _L53145_)) + (let ((__tmp60177 + (lambda (_g5316553169_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g5316653171_ + _g5316753173_) + (let ((__tmp60178 + (let ((__tmp60183 + (let () + (declare (not safe)) + (cons _g5316653171_ '()))) + (__tmp60179 + (let ((__tmp60180 + (let ((__tmp60182 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp60181 + (let () + (declare (not safe)) + (cons _g5316553169_ '())))) + (declare (not safe)) + (cons __tmp60182 __tmp60181)))) + (declare (not safe)) + (cons __tmp60180 '())))) + (declare (not safe)) + (cons __tmp60183 __tmp60179)))) + (declare (not safe)) + (cons __tmp60178 _g5316753173_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr2 __tmp60177 + '() + _L53144_ + _L53145_)))) + (__tmp60175 + (let () + (declare (not safe)) + (cons _body53164_ '())))) + (declare (not safe)) + (cons __tmp60176 __tmp60175)))) + (declare (not safe)) + (cons '%#let-values __tmp60174)))) + (___kont5791857919_ + (lambda (_L53011_ _L53012_ _L53013_) + (let ((__tmp60184 + (let ((__tmp60187 + (let ((__tmp60188 + (lambda (_g5303153034_ + _g5303253036_) + (let () + (declare (not safe)) + (cons _g5303153034_ + _g5303253036_))))) + (declare (not safe)) + (foldr1 __tmp60188 + '() + _L53013_))) + (__tmp60185 + (let ((__tmp60186 + (lambda (_g5303853041_ + _g5303953043_) + (let () + (declare (not safe)) + (cons _g5303853041_ + _g5303953043_))))) + (declare (not safe)) + (foldr1 __tmp60186 + '() + _L53012_)))) + (declare (not safe)) + (map cons __tmp60187 __tmp60185)))) + (declare (not safe)) + (_bind-e__0__5687756878_ + __tmp60184 + _L53011_)))) + (___kont5792257923_ + (lambda (_L52868_ + _L52869_ + _L52870_ + _L52871_ + _L52872_) + (let ((__tmp60189 + (lambda () + (let* ((_expr52914_ + (let () + (declare (not safe)) + (_optimize-e49546_ + _L52870_))) + (__tmp60190 + (let ((__tmp60192 + (let ((__tmp60195 + (let ((__tmp60202 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _L52872_ '()))) + (__tmp60196 + (let ((__tmp60197 + (let ((__tmp60198 + (let ((__tmp60200 + (let ((__tmp60201 + (lambda (_g5291552918_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g5291652920_) + (let () + (declare (not safe)) + (cons _g5291552918_ _g5291652920_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp60201 + '() + _L52871_))) + (__tmp60199 + (let () + (declare (not safe)) + (cons _expr52914_ '())))) + (declare (not safe)) + (cons __tmp60200 __tmp60199)))) + (declare (not safe)) + (cons '%#lambda __tmp60198)))) + (declare (not safe)) + (cons __tmp60197 '())))) + (declare (not safe)) + (cons __tmp60202 __tmp60196))) + (__tmp60193 + (let ((__tmp60194 + (lambda (_g5292252925_ _g5292352927_) + (let () + (declare (not safe)) + (cons _g5292252925_ _g5292352927_))))) + (declare (not safe)) + (foldr1 __tmp60194 '() _L52869_)))) + (declare (not safe)) + (cons __tmp60195 __tmp60193))) + (__tmp60191 (let () (declare (not safe)) (cons _L52868_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60192 + __tmp60191)))) + (declare (not safe)) + (cons '%#letrec-values + __tmp60190))))) + (declare (not safe)) + (_do-splice!49545_ __tmp60189)))) + (___kont5792857929_ (lambda () _expr52548_))) + (let* ((___match5811558116_ + (lambda (_e5267852740_ + _hd5267752743_ + _tl5267652745_ + _e5268152748_ + _hd5268052751_ + _tl5267952753_ + _e5268452756_ + _hd5268352759_ + _tl5268252761_ + _e5268752764_ + _hd5268652767_ + _tl5268552769_ + _e5269052772_ + _hd5268952775_ + _tl5268852777_ + _e5269352780_ + _hd5269252783_ + _tl5269152785_ + _e5269652788_ + _hd5269552791_ + _tl5269452793_ + _e5269952796_ + _hd5269852799_ + _tl5269752801_ + ___splice5792457925_ + _target5270052804_ + _tl5270252806_) + (letrec ((_loop5270352809_ + (lambda (_hd5270152812_ + _id5270752814_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5270152812_)) + (let ((_e5270452817_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd5270152812_)))) + (let ((_lp-tl5270652822_ (let () (declare (not safe)) - (##cdr _e4954549658_))) - (_lp-hd4954649661_ + (##cdr _e5270452817_))) + (_lp-hd5270552820_ (let () (declare (not safe)) - (##car _e4954549658_)))) - (_loop4954449650_ - _lp-tl4954749663_ - (cons _lp-hd4954649661_ - _id4954849655_)))) - (let ((_id4954949666_ - (reverse _id4954849655_))) - (if (gx#stx-pair? - _tl4954049642_) - (let ((_e4955049669_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl4954049642_))) - (let ((_tl4955249674_ - (let () (declare (not safe)) (##cdr _e4955049669_))) - (_hd4955149672_ - (let () (declare (not safe)) (##car _e4955049669_)))) - (if (gx#stx-null? _tl4955249674_) - (if (gx#stx-null? _tl4953449626_) - (if (gx#stx-pair/null? _tl4952549602_) - (let ((___splice5476754768_ - (gx#syntax-split-splice - _tl4952549602_ - '0))) - (let ((_tl4955549679_ + (##car _e5270452817_)))) + (let ((__tmp60204 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _lp-hd5270552820_ _id5270752814_)))) + (declare (not safe)) + (_loop5270352809_ _lp-tl5270652822_ __tmp60204)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_id5270852825_ + (let () + (declare + (not safe)) + (reverse _id5270752814_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5269752801_)) + (let ((_e5271152828_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5269752801_)))) + (let ((_tl5270952833_ + (let () (declare (not safe)) (##cdr _e5271152828_))) + (_hd5271052831_ + (let () (declare (not safe)) (##car _e5271152828_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5270952833_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5269152785_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl5268252761_)) + (let ((___splice5792657927_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl5268252761_ + '0)))) + (let ((_tl5271452838_ (let () (declare (not safe)) (##vector-ref - ___splice5476754768_ + ___splice5792657927_ '1))) - (_target4955349677_ + (_target5271252836_ (let () (declare (not safe)) (##vector-ref - ___splice5476754768_ + ___splice5792657927_ '0)))) - (if (gx#stx-null? _tl4955549679_) - (letrec ((_loop4955649682_ - (lambda (_hd4955449685_ - _bind4956049687_) - (if (gx#stx-pair? - _hd4955449685_) - (let ((_e4955749690_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd4955449685_))) - (let ((_lp-tl4955949695_ - (let () (declare (not safe)) (##cdr _e4955749690_))) - (_lp-hd4955849693_ - (let () (declare (not safe)) (##car _e4955749690_)))) - (_loop4955649682_ - _lp-tl4955949695_ - (cons _lp-hd4955849693_ _bind4956049687_)))) - (let ((_bind4956149698_ (reverse _bind4956049687_))) - (if (gx#stx-pair? _tl4952249594_) - (let ((_e4956249701_ (gx#stx-e _tl4952249594_))) - (let ((_tl4956449706_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5271452838_)) + (letrec ((_loop5271552841_ + (lambda (_hd5271352844_ + _bind5271952846_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5271352844_)) + (let ((_e5271652849_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd5271352844_)))) + (let ((_lp-tl5271852854_ + (let () (declare (not safe)) (##cdr _e5271652849_))) + (_lp-hd5271752852_ + (let () (declare (not safe)) (##car _e5271652849_)))) + (let ((__tmp60203 + (let () + (declare (not safe)) + (cons _lp-hd5271752852_ _bind5271952846_)))) + (declare (not safe)) + (_loop5271552841_ _lp-tl5271852854_ __tmp60203)))) + (let ((_bind5272052857_ + (let () + (declare (not safe)) + (reverse _bind5271952846_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5267952753_)) + (let ((_e5272352860_ + (let () + (declare (not safe)) + (gx#stx-e _tl5267952753_)))) + (let ((_tl5272152865_ (let () (declare (not safe)) - (##cdr _e4956249701_))) - (_hd4956349704_ + (##cdr _e5272352860_))) + (_hd5272252863_ (let () (declare (not safe)) - (##car _e4956249701_)))) - (if (gx#stx-null? _tl4956449706_) - (___kont5476354764_ - _hd4956349704_ - _bind4956149698_ - _hd4955149672_ - _id4954949666_ - _hd4953049616_) - (___kont5476954770_)))) - (___kont5476954770_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4955649682_ - _target4955349677_ - '())) - (___kont5476954770_)))) - (___kont5476954770_)) - (___kont5476954770_)) - (___kont5476954770_)))) - (___kont5476954770_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4954449650_ - _target4954149645_ - '())))) - (___match5489054891_ - (lambda (_e4948349776_ - _hd4948449779_ - _tl4948549781_ - _e4948649784_ - _hd4948749787_ - _tl4948849789_ - ___splice5476154762_ - _target4948949792_ - _tl4949149794_) - (letrec ((_loop4949249797_ - (lambda (_hd4949049800_ - _expr4949649802_ - _id4949749804_) - (if (gx#stx-pair? - _hd4949049800_) - (let ((_e4949349807_ - (gx#stx-e - _hd4949049800_))) - (let ((_lp-tl4949549812_ + (##car _e5272352860_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5272152865_)) + (___kont5792257923_ + _hd5272252863_ + _bind5272052857_ + _hd5271052831_ + _id5270852825_ + _hd5268952775_) + (___kont5792857929_)))) + (___kont5792857929_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop5271552841_ + _target5271252836_ + '()))) + (___kont5792857929_)))) + (___kont5792857929_)) + (___kont5792857929_)) + (___kont5792857929_)))) + (___kont5792857929_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop5270352809_ + _target5270052804_ + '()))))) + (___match5804958050_ + (lambda (_e5264452935_ + _hd5264352938_ + _tl5264252940_ + _e5264752943_ + _hd5264652946_ + _tl5264552948_ + ___splice5792057921_ + _target5264852951_ + _tl5265052953_) + (letrec ((_loop5265152956_ + (lambda (_hd5264952959_ + _expr5265552961_ + _id5265652963_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5264952959_)) + (let ((_e5265252966_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd5264952959_)))) + (let ((_lp-tl5265452971_ (let () (declare (not safe)) - (##cdr _e4949349807_))) - (_lp-hd4949449810_ + (##cdr _e5265252966_))) + (_lp-hd5265352969_ (let () (declare (not safe)) - (##car _e4949349807_)))) - (if (gx#stx-pair? - _lp-hd4949449810_) - (let ((_e4950049815_ + (##car _e5265252966_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _lp-hd5265352969_)) + (let ((_e5266152974_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _lp-hd4949449810_))) - (let ((_tl4950249820_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd5265352969_)))) + (let ((_tl5265952979_ (let () (declare (not safe)) - (##cdr _e4950049815_))) - (_hd4950149818_ + (##cdr _e5266152974_))) + (_hd5266052977_ (let () (declare (not safe)) - (##car _e4950049815_)))) - (if (gx#stx-pair? _hd4950149818_) - (let ((_e4950349823_ (gx#stx-e _hd4950149818_))) - (let ((_tl4950549828_ + (##car _e5266152974_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5266052977_)) + (let ((_e5266452982_ + (let () + (declare (not safe)) + (gx#stx-e _hd5266052977_)))) + (let ((_tl5266252987_ (let () (declare (not safe)) - (##cdr _e4950349823_))) - (_hd4950449826_ + (##cdr _e5266452982_))) + (_hd5266352985_ (let () (declare (not safe)) - (##car _e4950349823_)))) - (if (gx#stx-null? _tl4950549828_) - (if (gx#stx-pair? _tl4950249820_) - (let ((_e4950649831_ - (gx#stx-e _tl4950249820_))) - (let ((_tl4950849836_ + (##car _e5266452982_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5266252987_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5265952979_)) + (let ((_e5266752990_ + (let () + (declare (not safe)) + (gx#stx-e _tl5265952979_)))) + (let ((_tl5266552995_ (let () (declare (not safe)) - (##cdr _e4950649831_))) - (_hd4950749834_ + (##cdr _e5266752990_))) + (_hd5266652993_ (let () (declare (not safe)) - (##car _e4950649831_)))) - (if (gx#stx-null? _tl4950849836_) - (_loop4949249797_ - _lp-tl4949549812_ - (cons _hd4950749834_ - _expr4949649802_) - (cons _hd4950449826_ - _id4949749804_)) - (___kont5476954770_)))) - (___kont5476954770_)) - (___kont5476954770_)))) - (___kont5476954770_)))) - (___kont5476954770_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id4949949841_ - (reverse _id4949749804_)) - (_expr4949849839_ - (reverse _expr4949649802_))) - (if (gx#stx-pair? - _tl4948849789_) - (let ((_e4950949844_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl4948849789_))) - (let ((_tl4951149849_ - (let () (declare (not safe)) (##cdr _e4950949844_))) - (_hd4951049847_ - (let () (declare (not safe)) (##car _e4950949844_)))) - (if (gx#stx-null? _tl4951149849_) - (___kont5475954760_ - _hd4951049847_ - _expr4949849839_ - _id4949949841_) - (___kont5476954770_)))) - (___kont5476954770_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4949249797_ - _target4948949792_ - '() - '())))) - (___match5486654867_ - (lambda (_e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_) - (letrec ((_loop4945449913_ - (lambda (_hd4945249916_ - _xid4945849918_ - _id4945949920_) - (if (gx#stx-pair? - _hd4945249916_) - (let ((_e4945549923_ - (gx#stx-e - _hd4945249916_))) - (let ((_lp-tl4945749928_ + (##car _e5266752990_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5266552995_)) + (let ((__tmp60206 + (let () + (declare (not safe)) + (cons _hd5266652993_ + _expr5265552961_))) + (__tmp60205 + (let () + (declare (not safe)) + (cons _hd5266352985_ + _id5265652963_)))) + (declare (not safe)) + (_loop5265152956_ + _lp-tl5265452971_ + __tmp60206 + __tmp60205)) + (___kont5792857929_)))) + (___kont5792857929_)) + (___kont5792857929_)))) + (___kont5792857929_)))) + (___kont5792857929_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_id5265853000_ + (let () + (declare + (not safe)) + (reverse _id5265652963_))) + (_expr5265752998_ + (let () + (declare + (not safe)) + (reverse _expr5265552961_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5264552948_)) + (let ((_e5267053003_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5264552948_)))) + (let ((_tl5266853008_ + (let () (declare (not safe)) (##cdr _e5267053003_))) + (_hd5266953006_ + (let () (declare (not safe)) (##car _e5267053003_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5266853008_)) + (___kont5791857919_ + _hd5266953006_ + _expr5265752998_ + _id5265853000_) + (___kont5792857929_)))) + (___kont5792857929_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop5265152956_ + _target5264852951_ + '() + '()))))) + (___match5802558026_ + (lambda (_e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_) + (letrec ((_loop5261353072_ + (lambda (_hd5261153075_ + _xid5261753077_ + _id5261853079_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5261153075_)) + (let ((_e5261453082_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd5261153075_)))) + (let ((_lp-tl5261653087_ (let () (declare (not safe)) - (##cdr _e4945549923_))) - (_lp-hd4945649926_ + (##cdr _e5261453082_))) + (_lp-hd5261553085_ (let () (declare (not safe)) - (##car _e4945549923_)))) - (if (gx#stx-pair? - _lp-hd4945649926_) - (let ((_e4946249931_ + (##car _e5261453082_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _lp-hd5261553085_)) + (let ((_e5262353090_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _lp-hd4945649926_))) - (let ((_tl4946449936_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd5261553085_)))) + (let ((_tl5262153095_ (let () (declare (not safe)) - (##cdr _e4946249931_))) - (_hd4946349934_ + (##cdr _e5262353090_))) + (_hd5262253093_ (let () (declare (not safe)) - (##car _e4946249931_)))) - (if (gx#stx-pair? _hd4946349934_) - (let ((_e4946549939_ (gx#stx-e _hd4946349934_))) - (let ((_tl4946749944_ + (##car _e5262353090_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5262253093_)) + (let ((_e5262653098_ + (let () + (declare (not safe)) + (gx#stx-e _hd5262253093_)))) + (let ((_tl5262453103_ (let () (declare (not safe)) - (##cdr _e4946549939_))) - (_hd4946649942_ + (##cdr _e5262653098_))) + (_hd5262553101_ (let () (declare (not safe)) - (##car _e4946549939_)))) - (if (gx#stx-null? _tl4946749944_) - (if (gx#stx-pair? _tl4946449936_) - (let ((_e4946849947_ - (gx#stx-e _tl4946449936_))) - (let ((_tl4947049952_ + (##car _e5262653098_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5262453103_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5262153095_)) + (let ((_e5262953106_ + (let () + (declare (not safe)) + (gx#stx-e _tl5262153095_)))) + (let ((_tl5262753111_ (let () (declare (not safe)) - (##cdr _e4946849947_))) - (_hd4946949950_ + (##cdr _e5262953106_))) + (_hd5262853109_ (let () (declare (not safe)) - (##car _e4946849947_)))) - (if (gx#stx-pair? _hd4946949950_) - (let ((_e4947149955_ - (gx#stx-e - _hd4946949950_))) - (let ((_tl4947349960_ + (##car _e5262953106_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5262853109_)) + (let ((_e5263253114_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5262853109_)))) + (let ((_tl5263053119_ (let () (declare (not safe)) - (##cdr _e4947149955_))) - (_hd4947249958_ + (##cdr _e5263253114_))) + (_hd5263153117_ (let () (declare (not safe)) - (##car _e4947149955_)))) - (if (gx#identifier? - _hd4947249958_) - (if (gx#stx-eq? - '%#ref - _hd4947249958_) - (if (gx#stx-pair? - _tl4947349960_) - (let ((_e4947449963_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4947349960_))) - (let ((_tl4947649968_ + (##car _e5263253114_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5263153117_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#ref + _hd5263153117_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _tl5263053119_)) + (let ((_e5263553122_ + (let () + (declare (not safe)) + (gx#stx-e _tl5263053119_)))) + (let ((_tl5263353127_ (let () (declare (not safe)) - (##cdr _e4947449963_))) - (_hd4947549966_ + (##cdr _e5263553122_))) + (_hd5263453125_ (let () (declare (not safe)) - (##car _e4947449963_)))) - (if (gx#stx-null? _tl4947649968_) - (if (gx#stx-null? _tl4947049952_) - (_loop4945449913_ - _lp-tl4945749928_ - (cons _hd4947549966_ _xid4945849918_) - (cons _hd4946649942_ _id4945949920_)) - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_)) - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_)))) - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_)) - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_)) - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_)))) - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_)) - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_)))) - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_)))) - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id4946149973_ - (reverse _id4945949920_)) - (_xid4946049971_ - (reverse _xid4945849918_))) - (if (gx#stx-pair? - _tl4945049905_) - (let ((_e4947749976_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl4945049905_))) - (let ((_tl4947949981_ - (let () (declare (not safe)) (##cdr _e4947749976_))) - (_hd4947849979_ - (let () (declare (not safe)) (##car _e4947749976_)))) - (if (gx#stx-null? _tl4947949981_) - (___kont5475554756_ - _hd4947849979_ - _xid4946049971_ - _id4946149973_) - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_)))) - (___match5489054891_ - _e4944549892_ - _hd4944649895_ - _tl4944749897_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4945449913_ - _target4945149908_ - '() - '())))) - (___match5484254843_ - (lambda (_e4941550022_ - _hd4941650025_ - _tl4941750027_ - _e4941850030_ - _hd4941950033_ - _tl4942050035_ - _e4942150038_ - _hd4942250041_ - _tl4942350043_ - _e4942450046_ - _hd4942550049_ - _tl4942650051_ - ___splice5475354754_ - _target4942750054_ - _tl4942950056_) - (letrec ((_loop4943050059_ - (lambda (_hd4942850062_ - _id4943450064_) - (if (gx#stx-pair? - _hd4942850062_) - (let ((_e4943150067_ - (gx#stx-e - _hd4942850062_))) - (let ((_lp-tl4943350072_ - (let () + (##car _e5263553122_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5263353127_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5262753111_)) + (let ((__tmp60208 + (let () + (declare (not safe)) + (cons _hd5263453125_ + _xid5261753077_))) + (__tmp60207 + (let () + (declare (not safe)) + (cons _hd5262553101_ + _id5261853079_)))) + (declare (not safe)) + (_loop5261353072_ + _lp-tl5261653087_ + __tmp60208 + __tmp60207)) + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_)) + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_)))) + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_)) + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_)) + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_)))) + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_)) + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_)))) + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_)))) + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_id5262053132_ + (let () + (declare + (not safe)) + (reverse _id5261853079_))) + (_xid5261953130_ + (let () + (declare + (not safe)) + (reverse _xid5261753077_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5260753064_)) + (let ((_e5263853135_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5260753064_)))) + (let ((_tl5263653140_ + (let () (declare (not safe)) (##cdr _e5263853135_))) + (_hd5263753138_ + (let () (declare (not safe)) (##car _e5263853135_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5263653140_)) + (___kont5791457915_ + _hd5263753138_ + _xid5261953130_ + _id5262053132_) + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_)))) + (___match5804958050_ + _e5260653051_ + _hd5260553054_ + _tl5260453056_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop5261353072_ + _target5261053067_ + '() + '()))))) + (___match5800158002_ + (lambda (_e5257653181_ + _hd5257553184_ + _tl5257453186_ + _e5257953189_ + _hd5257853192_ + _tl5257753194_ + _e5258253197_ + _hd5258153200_ + _tl5258053202_ + _e5258553205_ + _hd5258453208_ + _tl5258353210_ + ___splice5791257913_ + _target5258653213_ + _tl5258853215_) + (letrec ((_loop5258953218_ + (lambda (_hd5258753221_ + _id5259353223_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5258753221_)) + (let ((_e5259053226_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd5258753221_)))) + (let ((_lp-tl5259253231_ + (let () (declare (not safe)) - (##cdr _e4943150067_))) - (_lp-hd4943250070_ + (##cdr _e5259053226_))) + (_lp-hd5259153229_ (let () (declare (not safe)) - (##car _e4943150067_)))) - (if (gx#stx-pair? - _lp-hd4943250070_) - (let ((_e4943650075_ + (##car _e5259053226_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _lp-hd5259153229_)) + (let ((_e5259753234_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _lp-hd4943250070_))) - (let ((_tl4943850080_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd5259153229_)))) + (let ((_tl5259553239_ (let () (declare (not safe)) - (##cdr _e4943650075_))) - (_hd4943750078_ + (##cdr _e5259753234_))) + (_hd5259653237_ (let () (declare (not safe)) - (##car _e4943650075_)))) - (if (gx#identifier? _hd4943750078_) - (if (gx#stx-eq? '%#ref _hd4943750078_) - (if (gx#stx-pair? _tl4943850080_) - (let ((_e4943950083_ - (gx#stx-e _tl4943850080_))) - (let ((_tl4944150088_ + (##car _e5259753234_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5259653237_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5259653237_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5259553239_)) + (let ((_e5260053242_ + (let () + (declare (not safe)) + (gx#stx-e _tl5259553239_)))) + (let ((_tl5259853247_ (let () (declare (not safe)) - (##cdr _e4943950083_))) - (_hd4944050086_ + (##cdr _e5260053242_))) + (_hd5259953245_ (let () (declare (not safe)) - (##car _e4943950083_)))) - (if (gx#stx-null? _tl4944150088_) - (_loop4943050059_ - _lp-tl4943350072_ - (cons _hd4944050086_ - _id4943450064_)) - (___kont5476954770_)))) - (___kont5476954770_)) - (___kont5476954770_)) - (___kont5476954770_)))) - (___kont5476954770_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id4943550091_ - (reverse _id4943450064_))) - (___kont5475154752_ - _id4943550091_ - _hd4942550049_)))))) - (_loop4943050059_ - _target4942750054_ - '()))))) - (if (gx#stx-pair? ___stx5474754748_) - (let ((_e4940150132_ - (gx#stx-e ___stx5474754748_))) - (let ((_tl4940350137_ + (##car _e5260053242_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5259853247_)) + (let ((__tmp60209 + (let () + (declare (not safe)) + (cons _hd5259953245_ + _id5259353223_)))) + (declare (not safe)) + (_loop5258953218_ + _lp-tl5259253231_ + __tmp60209)) + (___kont5792857929_)))) + (___kont5792857929_)) + (___kont5792857929_)) + (___kont5792857929_)))) + (___kont5792857929_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_id5259453250_ + (let () + (declare + (not safe)) + (reverse _id5259353223_)))) + (___kont5791057911_ + _id5259453250_ + _hd5258453208_)))))) + (let () + (declare (not safe)) + (_loop5258953218_ + _target5258653213_ + '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5790657907_)) + (let ((_e5256253291_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5790657907_)))) + (let ((_tl5256053296_ (let () (declare (not safe)) - (##cdr _e4940150132_))) - (_hd4940250135_ + (##cdr _e5256253291_))) + (_hd5256153294_ (let () (declare (not safe)) - (##car _e4940150132_)))) - (if (gx#identifier? _hd4940250135_) - (if (gx#stx-eq? '%#if _hd4940250135_) - (if (gx#stx-pair? _tl4940350137_) - (let ((_e4940450140_ - (gx#stx-e - _tl4940350137_))) - (let ((_tl4940650145_ + (##car _e5256253291_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5256153294_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#if _hd5256153294_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5256053296_)) + (let ((_e5256553299_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5256053296_)))) + (let ((_tl5256353304_ (let () (declare (not safe)) - (##cdr _e4940450140_))) - (_hd4940550143_ + (##cdr _e5256553299_))) + (_hd5256453302_ (let () (declare (not safe)) - (##car _e4940450140_)))) - (if (gx#stx-pair? - _tl4940650145_) - (let ((_e4940750148_ - (gx#stx-e - _tl4940650145_))) - (let ((_tl4940950153_ - (let () + (##car _e5256553299_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5256353304_)) + (let ((_e5256853307_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4940750148_))) - (_hd4940850151_ - (let () (declare (not safe)) (##car _e4940750148_)))) - (if (gx#stx-pair? _tl4940950153_) - (let ((_e4941050156_ (gx#stx-e _tl4940950153_))) - (let ((_tl4941250161_ + (not safe)) + (gx#stx-e _tl5256353304_)))) + (let ((_tl5256653312_ + (let () (declare (not safe)) (##cdr _e5256853307_))) + (_hd5256753310_ + (let () (declare (not safe)) (##car _e5256853307_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5256653312_)) + (let ((_e5257153315_ + (let () + (declare (not safe)) + (gx#stx-e _tl5256653312_)))) + (let ((_tl5256953320_ (let () (declare (not safe)) - (##cdr _e4941050156_))) - (_hd4941150159_ + (##cdr _e5257153315_))) + (_hd5257053318_ (let () (declare (not safe)) - (##car _e4941050156_)))) - (if (gx#stx-null? _tl4941250161_) - (___kont5474954750_ - _hd4941150159_ - _hd4940850151_ - _hd4940550143_) - (___kont5476954770_)))) - (___kont5476954770_)))) - (___kont5476954770_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5476954770_)) - (if (gx#stx-eq? - '%#call - _hd4940250135_) - (if (gx#stx-pair? - _tl4940350137_) - (let ((_e4941850030_ - (gx#stx-e - _tl4940350137_))) - (let ((_tl4942050035_ + (##car _e5257153315_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5256953320_)) + (___kont5790857909_ + _hd5257053318_ + _hd5256753310_ + _hd5256453302_) + (___kont5792857929_)))) + (___kont5792857929_)))) + (___kont5792857929_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5792857929_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd5256153294_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5256053296_)) + (let ((_e5257953189_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5256053296_)))) + (let ((_tl5257753194_ (let () (declare (not safe)) - (##cdr _e4941850030_))) - (_hd4941950033_ + (##cdr _e5257953189_))) + (_hd5257853192_ (let () (declare (not safe)) - (##car _e4941850030_)))) - (if (gx#stx-pair? - _hd4941950033_) - (let ((_e4942150038_ + (##car _e5257953189_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd5257853192_)) + (let ((_e5258253197_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd4941950033_))) - (let ((_tl4942350043_ + (let () + (declare (not safe)) + (gx#stx-e _hd5257853192_)))) + (let ((_tl5258053202_ (let () (declare (not safe)) - (##cdr _e4942150038_))) - (_hd4942250041_ + (##cdr _e5258253197_))) + (_hd5258153200_ (let () (declare (not safe)) - (##car _e4942150038_)))) - (if (gx#identifier? _hd4942250041_) - (if (gx#stx-eq? '%#ref _hd4942250041_) - (if (gx#stx-pair? _tl4942350043_) - (let ((_e4942450046_ - (gx#stx-e _tl4942350043_))) - (let ((_tl4942650051_ + (##car _e5258253197_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5258153200_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5258153200_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5258053202_)) + (let ((_e5258553205_ + (let () + (declare (not safe)) + (gx#stx-e _tl5258053202_)))) + (let ((_tl5258353210_ (let () (declare (not safe)) - (##cdr _e4942450046_))) - (_hd4942550049_ + (##cdr _e5258553205_))) + (_hd5258453208_ (let () (declare (not safe)) - (##car _e4942450046_)))) - (if (gx#stx-null? _tl4942650051_) - (if (gx#stx-pair/null? - _tl4942050035_) - (let ((___splice5475354754_ - (gx#syntax-split-splice - _tl4942050035_ - '0))) - (let ((_tl4942950056_ + (##car _e5258553205_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5258353210_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl5257753194_)) + (let ((___splice5791257913_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl5257753194_ + '0)))) + (let ((_tl5258853215_ (let () (declare (not safe)) (##vector-ref - ___splice5475354754_ + ___splice5791257913_ '1))) - (_target4942750054_ + (_target5258653213_ (let () (declare (not safe)) (##vector-ref - ___splice5475354754_ + ___splice5791257913_ '0)))) - (if (gx#stx-null? - _tl4942950056_) - (___match5484254843_ - _e4940150132_ - _hd4940250135_ - _tl4940350137_ - _e4941850030_ - _hd4941950033_ - _tl4942050035_ - _e4942150038_ - _hd4942250041_ - _tl4942350043_ - _e4942450046_ - _hd4942550049_ - _tl4942650051_ - ___splice5475354754_ - _target4942750054_ - _tl4942950056_) - (___kont5476954770_)))) - (___kont5476954770_)) - (___kont5476954770_)))) - (___kont5476954770_)) - (___kont5476954770_)) - (___kont5476954770_)))) - (___kont5476954770_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5476954770_)) - (if (gx#stx-eq? - '%#let-values - _hd4940250135_) - (if (gx#stx-pair? - _tl4940350137_) - (let ((_e4944849900_ - (gx#stx-e - _tl4940350137_))) - (let ((_tl4945049905_ - (let () + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5258853215_)) + (___match5800158002_ + _e5256253291_ + _hd5256153294_ + _tl5256053296_ + _e5257953189_ + _hd5257853192_ + _tl5257753194_ + _e5258253197_ + _hd5258153200_ + _tl5258053202_ + _e5258553205_ + _hd5258453208_ + _tl5258353210_ + ___splice5791257913_ + _target5258653213_ + _tl5258853215_) + (___kont5792857929_)))) + (___kont5792857929_)) + (___kont5792857929_)))) + (___kont5792857929_)) + (___kont5792857929_)) + (___kont5792857929_)))) + (___kont5792857929_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5792857929_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _hd5256153294_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5256053296_)) + (let ((_e5260953059_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4944849900_))) - (_hd4944949903_ - (let () (declare (not safe)) (##car _e4944849900_)))) - (if (gx#stx-pair/null? _hd4944949903_) - (let ((___splice5475754758_ - (gx#syntax-split-splice _hd4944949903_ '0))) - (let ((_tl4945349910_ + (not safe)) + (gx#stx-e _tl5256053296_)))) + (let ((_tl5260753064_ + (let () (declare (not safe)) (##cdr _e5260953059_))) + (_hd5260853062_ + (let () (declare (not safe)) (##car _e5260953059_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd5260853062_)) + (let ((___splice5791657917_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _hd5260853062_ '0)))) + (let ((_tl5261253069_ (let () (declare (not safe)) - (##vector-ref ___splice5475754758_ '1))) - (_target4945149908_ + (##vector-ref ___splice5791657917_ '1))) + (_target5261053067_ (let () (declare (not safe)) - (##vector-ref ___splice5475754758_ '0)))) - (if (gx#stx-null? _tl4945349910_) - (___match5486654867_ - _e4940150132_ - _hd4940250135_ - _tl4940350137_ - _e4944849900_ - _hd4944949903_ - _tl4945049905_ - ___splice5475754758_ - _target4945149908_ - _tl4945349910_) - (___kont5476954770_)))) - (___kont5476954770_)))) - (___kont5476954770_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#letrec-values - _hd4940250135_) - (if (gx#stx-pair? - _tl4940350137_) - (let ((_e4952049589_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4940350137_))) - (let ((_tl4952249594_ + (##vector-ref ___splice5791657917_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5261253069_)) + (___match5802558026_ + _e5256253291_ + _hd5256153294_ + _tl5256053296_ + _e5260953059_ + _hd5260853062_ + _tl5260753064_ + ___splice5791657917_ + _target5261053067_ + _tl5261253069_) + (___kont5792857929_)))) + (___kont5792857929_)))) + (___kont5792857929_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#letrec-values + _hd5256153294_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl5256053296_)) + (let ((_e5268152748_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl5256053296_)))) + (let ((_tl5267952753_ (let () (declare (not safe)) - (##cdr _e4952049589_))) - (_hd4952149592_ + (##cdr _e5268152748_))) + (_hd5268052751_ (let () (declare (not safe)) - (##car _e4952049589_)))) - (if (gx#stx-pair? _hd4952149592_) - (let ((_e4952349597_ (gx#stx-e _hd4952149592_))) - (let ((_tl4952549602_ + (##car _e5268152748_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5268052751_)) + (let ((_e5268452756_ + (let () + (declare (not safe)) + (gx#stx-e _hd5268052751_)))) + (let ((_tl5268252761_ (let () (declare (not safe)) - (##cdr _e4952349597_))) - (_hd4952449600_ + (##cdr _e5268452756_))) + (_hd5268352759_ (let () (declare (not safe)) - (##car _e4952349597_)))) - (if (gx#stx-pair? _hd4952449600_) - (let ((_e4952649605_ - (gx#stx-e _hd4952449600_))) - (let ((_tl4952849610_ + (##car _e5268452756_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5268352759_)) + (let ((_e5268752764_ + (let () + (declare (not safe)) + (gx#stx-e _hd5268352759_)))) + (let ((_tl5268552769_ (let () (declare (not safe)) - (##cdr _e4952649605_))) - (_hd4952749608_ + (##cdr _e5268752764_))) + (_hd5268652767_ (let () (declare (not safe)) - (##car _e4952649605_)))) - (if (gx#stx-pair? _hd4952749608_) - (let ((_e4952949613_ - (gx#stx-e _hd4952749608_))) - (let ((_tl4953149618_ + (##car _e5268752764_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5268652767_)) + (let ((_e5269052772_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5268652767_)))) + (let ((_tl5268852777_ (let () (declare (not safe)) - (##cdr _e4952949613_))) - (_hd4953049616_ + (##cdr _e5269052772_))) + (_hd5268952775_ (let () (declare (not safe)) - (##car _e4952949613_)))) - (if (gx#stx-null? - _tl4953149618_) - (if (gx#stx-pair? - _tl4952849610_) - (let ((_e4953249621_ - (gx#stx-e - _tl4952849610_))) - (let ((_tl4953449626_ - (let () + (##car _e5269052772_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5268852777_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5268552769_)) + (let ((_e5269352780_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4953249621_))) - (_hd4953349624_ - (let () (declare (not safe)) (##car _e4953249621_)))) - (if (gx#stx-pair? _hd4953349624_) - (let ((_e4953549629_ (gx#stx-e _hd4953349624_))) - (let ((_tl4953749634_ + (not safe)) + (gx#stx-e _tl5268552769_)))) + (let ((_tl5269152785_ + (let () (declare (not safe)) (##cdr _e5269352780_))) + (_hd5269252783_ + (let () (declare (not safe)) (##car _e5269352780_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5269252783_)) + (let ((_e5269652788_ + (let () + (declare (not safe)) + (gx#stx-e _hd5269252783_)))) + (let ((_tl5269452793_ (let () (declare (not safe)) - (##cdr _e4953549629_))) - (_hd4953649632_ + (##cdr _e5269652788_))) + (_hd5269552791_ (let () (declare (not safe)) - (##car _e4953549629_)))) - (if (gx#identifier? _hd4953649632_) - (if (gx#stx-eq? '%#lambda _hd4953649632_) - (if (gx#stx-pair? _tl4953749634_) - (let ((_e4953849637_ - (gx#stx-e _tl4953749634_))) - (let ((_tl4954049642_ + (##car _e5269652788_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5269552791_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#lambda _hd5269552791_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5269452793_)) + (let ((_e5269952796_ + (let () + (declare (not safe)) + (gx#stx-e _tl5269452793_)))) + (let ((_tl5269752801_ (let () (declare (not safe)) - (##cdr _e4953849637_))) - (_hd4953949640_ + (##cdr _e5269952796_))) + (_hd5269852799_ (let () (declare (not safe)) - (##car _e4953849637_)))) - (if (gx#stx-pair/null? - _hd4953949640_) - (let ((___splice5476554766_ - (gx#syntax-split-splice - _hd4953949640_ - '0))) - (let ((_tl4954349647_ + (##car _e5269952796_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _hd5269852799_)) + (let ((___splice5792457925_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd5269852799_ + '0)))) + (let ((_tl5270252806_ (let () (declare (not safe)) (##vector-ref - ___splice5476554766_ + ___splice5792457925_ '1))) - (_target4954149645_ + (_target5270052804_ (let () (declare (not safe)) (##vector-ref - ___splice5476554766_ + ___splice5792457925_ '0)))) - (if (gx#stx-null? - _tl4954349647_) - (___match5495654957_ - _e4940150132_ - _hd4940250135_ - _tl4940350137_ - _e4952049589_ - _hd4952149592_ - _tl4952249594_ - _e4952349597_ - _hd4952449600_ - _tl4952549602_ - _e4952649605_ - _hd4952749608_ - _tl4952849610_ - _e4952949613_ - _hd4953049616_ - _tl4953149618_ - _e4953249621_ - _hd4953349624_ - _tl4953449626_ - _e4953549629_ - _hd4953649632_ - _tl4953749634_ - _e4953849637_ - _hd4953949640_ - _tl4954049642_ - ___splice5476554766_ - _target4954149645_ - _tl4954349647_) - (___kont5476954770_)))) - (___kont5476954770_)))) - (___kont5476954770_)) - (___kont5476954770_)) - (___kont5476954770_)))) - (___kont5476954770_)))) - (___kont5476954770_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5476954770_)))) - (___kont5476954770_)))) - (___kont5476954770_)))) - (___kont5476954770_)))) - (___kont5476954770_)) - (___kont5476954770_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5476954770_)))) - (___kont5476954770_))))))) - (_optimize-t__5370853709_ - (lambda (_expr49372_ _test49373_ _continue49374_) - (_do-assert46376_ - (cons (cons _test49373_ '#t) '()) - (lambda () (_continue49374_ _expr49372_))))) - (_optimize-t__0__5371053711_ - (lambda (_expr49380_ _test49381_) - (let ((_continue49383_ _optimize-e46387_)) - (_optimize-t__5370853709_ - _expr49380_ - _test49381_ - _continue49383_)))) - (_optimize-t46388_ - (lambda _g56811_ - (let ((_g56810_ - (let () (declare (not safe)) (##length _g56811_)))) - (cond ((let () (declare (not safe)) (##fx= _g56810_ 2)) - (apply _optimize-t__0__5371053711_ _g56811_)) - ((let () (declare (not safe)) (##fx= _g56810_ 3)) - (apply _optimize-t__5370853709_ _g56811_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5270252806_)) + (___match5811558116_ + _e5256253291_ + _hd5256153294_ + _tl5256053296_ + _e5268152748_ + _hd5268052751_ + _tl5267952753_ + _e5268452756_ + _hd5268352759_ + _tl5268252761_ + _e5268752764_ + _hd5268652767_ + _tl5268552769_ + _e5269052772_ + _hd5268952775_ + _tl5268852777_ + _e5269352780_ + _hd5269252783_ + _tl5269152785_ + _e5269652788_ + _hd5269552791_ + _tl5269452793_ + _e5269952796_ + _hd5269852799_ + _tl5269752801_ + ___splice5792457925_ + _target5270052804_ + _tl5270252806_) + (___kont5792857929_)))) + (___kont5792857929_)))) + (___kont5792857929_)) + (___kont5792857929_)) + (___kont5792857929_)))) + (___kont5792857929_)))) + (___kont5792857929_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5792857929_)))) + (___kont5792857929_)))) + (___kont5792857929_)))) + (___kont5792857929_)))) + (___kont5792857929_)) + (___kont5792857929_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5792857929_)))) + (___kont5792857929_))))))) + (_optimize-t__5686756868_ + (lambda (_expr52531_ _test52532_ _continue52533_) + (let ((__tmp60211 + (let ((__tmp60212 + (let () + (declare (not safe)) + (cons _test52532_ '#t)))) + (declare (not safe)) + (cons __tmp60212 '()))) + (__tmp60210 + (lambda () (_continue52533_ _expr52531_)))) + (declare (not safe)) + (_do-assert49535_ __tmp60211 __tmp60210)))) + (_optimize-t__0__5686956870_ + (lambda (_expr52539_ _test52540_) + (let ((_continue52542_ _optimize-e49546_)) + (declare (not safe)) + (_optimize-t__5686756868_ + _expr52539_ + _test52540_ + _continue52542_)))) + (_optimize-t49547_ + (lambda _g60214_ + (let ((_g60213_ + (let () (declare (not safe)) (##length _g60214_)))) + (cond ((let () (declare (not safe)) (##fx= _g60213_ 2)) + (apply (lambda (_expr52539_ _test52540_) + (let () + (declare (not safe)) + (_optimize-t__0__5686956870_ + _expr52539_ + _test52540_))) + _g60214_)) + ((let () (declare (not safe)) (##fx= _g60213_ 3)) + (apply (lambda (_expr52544_ + _test52545_ + _continue52546_) + (let () + (declare (not safe)) + (_optimize-t__5686756868_ + _expr52544_ + _test52545_ + _continue52546_))) + _g60214_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g56811_)))))) - (_optimize-f__5371253713_ - (lambda (_expr48457_ _test48458_) - (_do-assert46376_ - (if _test48458_ (cons (cons _test48458_ '#f) '()) '()) - (lambda () - (let* ((___stx5499754998_ _expr48457_) - (_g4846648639_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5499754998_)))) - (let ((___kont5499955000_ - (lambda (_L49227_ _L49228_) - (let ((_$e49248_ - (_lookup-block46395_ _L49228_))) - (if _$e49248_ - ((lambda (_block49251_) - (if (_nonlinear-block?46397_ - _block49251_) - _expr48457_ - (let* ((_inline49260_ - (_inline-block46396_ - _block49251_ - (foldr1 (lambda (_g4925249255_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g4925349257_) - (cons _g4925249255_ _g4925349257_)) - '() - _L49227_))) - (___stx5495954960_ _inline49260_) - (_g4926349284_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5495954960_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___kont5496154962_ - (lambda (_L49328_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L49329_ - _L49330_) - (let ((_$e49352_ (_assert-e46390_ _L49330_))) - (if (eq? '#t _$e49352_) - (if _in-splice?46375_ - (_optimize-f__0__5371453715_ _L49329_) - (_optimize-e46387_ _L49329_)) - (if (eq? '#f _$e49352_) - (_optimize-f__0__5371453715_ _L49328_) - _expr48457_))))) - (___kont5496354964_ - (lambda () (_optimize-f__0__5371453715_ _inline49260_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - ___stx5495954960_) - (let ((_e4926849296_ - (gx#stx-e - ___stx5495954960_))) - (let ((_tl4927049301_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e4926849296_))) - (_hd4926949299_ - (let () (declare (not safe)) (##car _e4926849296_)))) - (if (gx#identifier? _hd4926949299_) - (if (gx#stx-eq? '%#if _hd4926949299_) - (if (gx#stx-pair? _tl4927049301_) - (let ((_e4927149304_ - (gx#stx-e _tl4927049301_))) - (let ((_tl4927349309_ - (let () - (declare (not safe)) - (##cdr _e4927149304_))) - (_hd4927249307_ - (let () - (declare (not safe)) - (##car _e4927149304_)))) - (if (gx#stx-pair? _tl4927349309_) - (let ((_e4927449312_ - (gx#stx-e _tl4927349309_))) - (let ((_tl4927649317_ - (let () - (declare (not safe)) - (##cdr _e4927449312_))) - (_hd4927549315_ - (let () - (declare (not safe)) - (##car _e4927449312_)))) - (if (gx#stx-pair? _tl4927649317_) - (let ((_e4927749320_ - (gx#stx-e - _tl4927649317_))) - (let ((_tl4927949325_ - (let () - (declare (not safe)) - (##cdr _e4927749320_))) - (_hd4927849323_ - (let () - (declare (not safe)) - (##car _e4927749320_)))) - (if (gx#stx-null? - _tl4927949325_) - (___kont5496154962_ - _hd4927849323_ - _hd4927549315_ - _hd4927249307_) - (___kont5496354964_)))) - (___kont5496354964_)))) - (___kont5496354964_)))) - (___kont5496354964_)) - (___kont5496354964_)) - (___kont5496354964_)))) - (___kont5496354964_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e49248_) - _expr48457_)))) - (___kont5500355004_ - (lambda (_L49125_ _L49126_ _L49127_) - (let ((_$e49144_ - (_assert-e46390_ _L49127_))) - (if (eq? '#t _$e49144_) - (if _in-splice?46375_ - (_optimize-f__0__5371453715_ - _L49126_) - (_optimize-e46387_ _L49126_)) - (if (eq? '#f _$e49144_) - (_optimize-f__0__5371453715_ - _L49125_) - (let ((_K49147_ - (_optimize-t__5370853709_ - _L49126_ - _L49127_ - _optimize-f46389_)) - (_E49148_ - (_optimize-f__5371253713_ - _L49125_ - _L49127_))) - (if (equal? (gxc#apply-generate-runtime-repr - _K49147_) - (gxc#apply-generate-runtime-repr - _E49148_)) - _K49147_ - (cons '%#if - (cons _L49127_ - (cons _K49147_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _E49148_ '()))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5500555006_ - (lambda (_L49055_ _L49056_ _L49057_) - (let ((_body49076_ - (_optimize-f__0__5371453715_ - _L49055_))) - (cons '%#let-values - (cons (begin - (gx#syntax-check-splice-targets - _L49056_ - _L49057_) - (foldr2 (lambda (_g4907749081_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g4907849083_ - _g4907949085_) - (cons (cons (cons _g4907849083_ '()) - (cons (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _g4907749081_ '())) - '())) - _g4907949085_)) - '() - _L49056_ - _L49057_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _body49076_ '())))))) - (___kont5500955010_ - (lambda (_L48923_ _L48924_ _L48925_) - (_bind-e__5371653717_ - (map cons - (foldr1 (lambda (_g4894348946_ - _g4894448948_) - (cons _g4894348946_ - _g4894448948_)) - '() - _L48925_) - (foldr1 (lambda (_g4895048953_ - _g4895148955_) - (cons _g4895048953_ - _g4895148955_)) - '() - _L48924_)) - _L48923_ - _optimize-f46389_))) - (___kont5501355014_ - (lambda (_L48779_ - _L48780_ - _L48781_ - _L48782_ - _L48783_) - (_do-splice!46386_ - (lambda () - (let ((_expr48826_ - (_optimize-f__0__5371453715_ - _L48781_))) - (cons '%#letrec-values - (cons (cons (cons (cons _L48783_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (cons '%#lambda - (cons (foldr1 (lambda (_g4882748830_ - _g4882848832_) - (cons _g4882748830_ - _g4882848832_)) - '() - _L48782_) - (cons _expr48826_ '()))) - '())) - (foldr1 (lambda (_g4883448837_ _g4883548839_) - (cons _g4883448837_ _g4883548839_)) - '() - _L48780_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L48779_ '())))))))) - (___kont5501955020_ (lambda () _expr48457_))) - (let* ((___match5520655207_ - (lambda (_e4858748651_ - _hd4858848654_ - _tl4858948656_ - _e4859048659_ - _hd4859148662_ - _tl4859248664_ - _e4859348667_ - _hd4859448670_ - _tl4859548672_ - _e4859648675_ - _hd4859748678_ - _tl4859848680_ - _e4859948683_ - _hd4860048686_ - _tl4860148688_ - _e4860248691_ - _hd4860348694_ - _tl4860448696_ - _e4860548699_ - _hd4860648702_ - _tl4860748704_ - _e4860848707_ - _hd4860948710_ - _tl4861048712_ - ___splice5501555016_ - _target4861148715_ - _tl4861348717_) - (letrec ((_loop4861448720_ - (lambda (_hd4861248723_ - _id4861848725_) - (if (gx#stx-pair? - _hd4861248723_) - (let ((_e4861548728_ - (gx#stx-e - _hd4861248723_))) - (let ((_lp-tl4861748733_ - (let () + _g60214_)))))) + (_optimize-f__5687156872_ + (lambda (_expr51616_ _test51617_) + (let ((__tmp60259 + (if _test51617_ + (let ((__tmp60260 + (let () + (declare (not safe)) + (cons _test51617_ '#f)))) + (declare (not safe)) + (cons __tmp60260 '())) + '())) + (__tmp60215 + (lambda () + (let* ((___stx5815658157_ _expr51616_) + (_g5162551798_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5815658157_))))) + (let ((___kont5815858159_ + (lambda (_L52386_ _L52387_) + (let ((_$e52407_ + (let () + (declare (not safe)) + (_lookup-block49554_ + _L52387_)))) + (if _$e52407_ + ((lambda (_block52410_) + (if (let () + (declare (not safe)) + (_nonlinear-block?49556_ + _block52410_)) + _expr51616_ + (let* ((_inline52419_ + (let ((__tmp60216 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4861548728_))) - (_lp-hd4861648731_ - (let () (declare (not safe)) (##car _e4861548728_)))) - (_loop4861448720_ - _lp-tl4861748733_ - (cons _lp-hd4861648731_ _id4861848725_)))) - (let ((_id4861948736_ (reverse _id4861848725_))) - (if (gx#stx-pair? _tl4861048712_) - (let ((_e4862048739_ (gx#stx-e _tl4861048712_))) - (let ((_tl4862248744_ - (let () - (declare (not safe)) - (##cdr _e4862048739_))) - (_hd4862148742_ - (let () - (declare (not safe)) - (##car _e4862048739_)))) - (if (gx#stx-null? _tl4862248744_) - (if (gx#stx-null? _tl4860448696_) - (if (gx#stx-pair/null? _tl4859548672_) - (let ((___splice5501755018_ - (gx#syntax-split-splice - _tl4859548672_ - '0))) - (let ((_tl4862548749_ - (let () - (declare (not safe)) - (##vector-ref - ___splice5501755018_ - '1))) - (_target4862348747_ - (let () - (declare (not safe)) - (##vector-ref - ___splice5501755018_ - '0)))) - (if (gx#stx-null? _tl4862548749_) - (letrec ((_loop4862648752_ - (lambda (_hd4862448755_ - _bind4863048757_) - (if (gx#stx-pair? - _hd4862448755_) - (let ((_e4862748760_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd4862448755_))) - (let ((_lp-tl4862948765_ - (let () - (declare (not safe)) - (##cdr _e4862748760_))) - (_lp-hd4862848763_ - (let () + (let ((__tmp60217 + (lambda (_g5241152414_ _g5241252416_) + (let () + (declare (not safe)) + (cons _g5241152414_ _g5241252416_))))) (declare (not safe)) - (##car _e4862748760_)))) - (_loop4862648752_ - _lp-tl4862948765_ - (cons _lp-hd4862848763_ _bind4863048757_)))) - (let ((_bind4863148768_ (reverse _bind4863048757_))) - (if (gx#stx-pair? _tl4859248664_) - (let ((_e4863248771_ (gx#stx-e _tl4859248664_))) - (let ((_tl4863448776_ + (foldr1 __tmp60217 '() _L52386_)))) + (declare (not safe)) + (_inline-block49555_ _block52410_ __tmp60216))) + (___stx5811858119_ _inline52419_) + (_g5242252443_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5811858119_))))) + (let ((___kont5812058121_ + (lambda (_L52487_ _L52488_ _L52489_) + (let ((_$e52511_ + (let () + (declare (not safe)) + (_assert-e49549_ _L52489_)))) + (if (let () + (declare (not safe)) + (eq? '#t _$e52511_)) + (if _in-splice?49534_ (let () (declare (not safe)) - (##cdr _e4863248771_))) - (_hd4863348774_ + (_optimize-f__0__5687356874_ _L52488_)) (let () (declare (not safe)) - (##car _e4863248771_)))) - (if (gx#stx-null? _tl4863448776_) - (___kont5501355014_ - _hd4863348774_ - _bind4863148768_ - _hd4862148742_ - _id4861948736_ - _hd4860048686_) - (___kont5501955020_)))) - (___kont5501955020_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4862648752_ - _target4862348747_ - '())) - (___kont5501955020_)))) - (___kont5501955020_)) - (___kont5501955020_)) - (___kont5501955020_)))) - (___kont5501955020_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4861448720_ - _target4861148715_ - '())))) - (___match5514055141_ - (lambda (_e4855348847_ - _hd4855448850_ - _tl4855548852_ - _e4855648855_ - _hd4855748858_ - _tl4855848860_ - ___splice5501155012_ - _target4855948863_ - _tl4856148865_) - (letrec ((_loop4856248868_ - (lambda (_hd4856048871_ - _expr4856648873_ - _id4856748875_) - (if (gx#stx-pair? - _hd4856048871_) - (let ((_e4856348878_ - (gx#stx-e - _hd4856048871_))) - (let ((_lp-tl4856548883_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4856348878_))) - (_lp-hd4856448881_ - (let () (declare (not safe)) (##car _e4856348878_)))) - (if (gx#stx-pair? _lp-hd4856448881_) - (let ((_e4857048886_ (gx#stx-e _lp-hd4856448881_))) - (let ((_tl4857248891_ + (_optimize-e49546_ _L52488_))) + (if (let () + (declare (not safe)) + (eq? '#f _$e52511_)) + (let () + (declare (not safe)) + (_optimize-f__0__5687356874_ _L52487_)) + _expr51616_))))) + (___kont5812258123_ + (lambda () + (let () + (declare (not safe)) + (_optimize-f__0__5687356874_ _inline52419_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5811858119_)) + (let ((_e5242952455_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5811858119_)))) + (let ((_tl5242752460_ (let () (declare (not safe)) - (##cdr _e4857048886_))) - (_hd4857148889_ + (##cdr _e5242952455_))) + (_hd5242852458_ (let () (declare (not safe)) - (##car _e4857048886_)))) - (if (gx#stx-pair? _hd4857148889_) - (let ((_e4857348894_ (gx#stx-e _hd4857148889_))) - (let ((_tl4857548899_ - (let () - (declare (not safe)) - (##cdr _e4857348894_))) - (_hd4857448897_ - (let () - (declare (not safe)) - (##car _e4857348894_)))) - (if (gx#stx-null? _tl4857548899_) - (if (gx#stx-pair? _tl4857248891_) - (let ((_e4857648902_ - (gx#stx-e _tl4857248891_))) - (let ((_tl4857848907_ - (let () - (declare (not safe)) - (##cdr _e4857648902_))) - (_hd4857748905_ + (##car _e5242952455_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5242852458_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#if _hd5242852458_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5242752460_)) + (let ((_e5243252463_ + (let () + (declare (not safe)) + (gx#stx-e _tl5242752460_)))) + (let ((_tl5243052468_ + (let () + (declare (not safe)) + (##cdr _e5243252463_))) + (_hd5243152466_ + (let () + (declare (not safe)) + (##car _e5243252463_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5243052468_)) + (let ((_e5243552471_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5243052468_)))) + (let ((_tl5243352476_ + (let () + (declare (not safe)) + (##cdr _e5243552471_))) + (_hd5243452474_ + (let () + (declare (not safe)) + (##car _e5243552471_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5243352476_)) + (let ((_e5243852479_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _tl5243352476_)))) + (let ((_tl5243652484_ + (let () (declare (not safe)) (##cdr _e5243852479_))) + (_hd5243752482_ + (let () (declare (not safe)) (##car _e5243852479_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5243652484_)) + (___kont5812058121_ + _hd5243752482_ + _hd5243452474_ + _hd5243152466_) + (___kont5812258123_)))) + (___kont5812258123_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5812258123_)))) + (___kont5812258123_)) + (___kont5812258123_)) + (___kont5812258123_)))) + (___kont5812258123_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _$e52407_) + _expr51616_)))) + (___kont5816258163_ + (lambda (_L52284_ _L52285_ _L52286_) + (let ((_$e52303_ + (let () + (declare (not safe)) + (_assert-e49549_ _L52286_)))) + (if (let () + (declare (not safe)) + (eq? '#t _$e52303_)) + (if _in-splice?49534_ (let () (declare (not safe)) - (##car _e4857648902_)))) - (if (gx#stx-null? _tl4857848907_) - (_loop4856248868_ - _lp-tl4856548883_ - (cons _hd4857748905_ - _expr4856648873_) - (cons _hd4857448897_ - _id4856748875_)) - (___kont5501955020_)))) - (___kont5501955020_)) - (___kont5501955020_)))) - (___kont5501955020_)))) - (___kont5501955020_)))) - (let ((_id4856948912_ (reverse _id4856748875_)) - (_expr4856848910_ (reverse _expr4856648873_))) - (if (gx#stx-pair? _tl4855848860_) - (let ((_e4857948915_ (gx#stx-e _tl4855848860_))) - (let ((_tl4858148920_ - (let () - (declare (not safe)) - (##cdr _e4857948915_))) - (_hd4858048918_ - (let () - (declare (not safe)) - (##car _e4857948915_)))) - (if (gx#stx-null? _tl4858148920_) - (___kont5500955010_ - _hd4858048918_ - _expr4856848910_ - _id4856948912_) - (___kont5501955020_)))) - (___kont5501955020_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4856248868_ - _target4855948863_ - '() - '())))) - (___match5511655117_ - (lambda (_e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_) - (letrec ((_loop4852448984_ - (lambda (_hd4852248987_ - _xid4852848989_ - _id4852948991_) - (if (gx#stx-pair? - _hd4852248987_) - (let ((_e4852548994_ - (gx#stx-e - _hd4852248987_))) - (let ((_lp-tl4852748999_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4852548994_))) - (_lp-hd4852648997_ - (let () (declare (not safe)) (##car _e4852548994_)))) - (if (gx#stx-pair? _lp-hd4852648997_) - (let ((_e4853249002_ (gx#stx-e _lp-hd4852648997_))) - (let ((_tl4853449007_ - (let () - (declare (not safe)) - (##cdr _e4853249002_))) - (_hd4853349005_ - (let () - (declare (not safe)) - (##car _e4853249002_)))) - (if (gx#stx-pair? _hd4853349005_) - (let ((_e4853549010_ (gx#stx-e _hd4853349005_))) - (let ((_tl4853749015_ - (let () - (declare (not safe)) - (##cdr _e4853549010_))) - (_hd4853649013_ - (let () - (declare (not safe)) - (##car _e4853549010_)))) - (if (gx#stx-null? _tl4853749015_) - (if (gx#stx-pair? _tl4853449007_) - (let ((_e4853849018_ - (gx#stx-e _tl4853449007_))) - (let ((_tl4854049023_ + (_optimize-f__0__5687356874_ + _L52285_)) (let () (declare (not safe)) - (##cdr _e4853849018_))) - (_hd4853949021_ + (_optimize-e49546_ + _L52285_))) + (if (let () + (declare (not safe)) + (eq? '#f _$e52303_)) (let () (declare (not safe)) - (##car _e4853849018_)))) - (if (gx#stx-pair? _hd4853949021_) - (let ((_e4854149026_ - (gx#stx-e - _hd4853949021_))) - (let ((_tl4854349031_ - (let () - (declare - (not safe)) - (##cdr _e4854149026_))) - (_hd4854249029_ - (let () - (declare - (not safe)) - (##car _e4854149026_)))) - (if (gx#identifier? - _hd4854249029_) - (if (gx#stx-eq? - '%#ref - _hd4854249029_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl4854349031_) - (let ((_e4854449034_ (gx#stx-e _tl4854349031_))) - (let ((_tl4854649039_ - (let () - (declare (not safe)) - (##cdr _e4854449034_))) - (_hd4854549037_ - (let () - (declare (not safe)) - (##car _e4854449034_)))) - (if (gx#stx-null? _tl4854649039_) - (if (gx#stx-null? _tl4854049023_) - (_loop4852448984_ - _lp-tl4852748999_ - (cons _hd4854549037_ _xid4852848989_) - (cons _hd4853649013_ _id4852948991_)) - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_)) - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_)))) - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_)) - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_)) - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_)))) - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_)) - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_)))) - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_)))) - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_)))) - (let ((_id4853149044_ (reverse _id4852948991_)) - (_xid4853049042_ (reverse _xid4852848989_))) - (if (gx#stx-pair? _tl4852048976_) - (let ((_e4854749047_ (gx#stx-e _tl4852048976_))) - (let ((_tl4854949052_ - (let () - (declare (not safe)) - (##cdr _e4854749047_))) - (_hd4854849050_ - (let () - (declare (not safe)) - (##car _e4854749047_)))) - (if (gx#stx-null? _tl4854949052_) - (___kont5500555006_ - _hd4854849050_ - _xid4853049042_ - _id4853149044_) - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_)))) - (___match5514055141_ - _e4851548963_ - _hd4851648966_ - _tl4851748968_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4852448984_ - _target4852148979_ - '() - '())))) - (___match5506255063_ - (lambda (_e4847049155_ - _hd4847149158_ - _tl4847249160_ - _e4847349163_ - _hd4847449166_ - _tl4847549168_ - _e4847649171_ - _hd4847749174_ - _tl4847849176_ - _e4847949179_ - _hd4848049182_ - _tl4848149184_ - ___splice5500155002_ - _target4848249187_ - _tl4848449189_) - (letrec ((_loop4848549192_ - (lambda (_hd4848349195_ - _id4848949197_) - (if (gx#stx-pair? - _hd4848349195_) - (let ((_e4848649200_ - (gx#stx-e - _hd4848349195_))) - (let ((_lp-tl4848849205_ - (let () + (_optimize-f__0__5687356874_ + _L52284_)) + (let ((_K52306_ + (let () + (declare + (not safe)) + (_optimize-t__5686756868_ + _L52285_ + _L52286_ + _optimize-f49548_))) + (_E52307_ + (let () + (declare + (not safe)) + (_optimize-f__5687156872_ + _L52284_ + _L52286_)))) + (if (let ((__tmp60222 + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4848649200_))) - (_lp-hd4848749203_ - (let () (declare (not safe)) (##car _e4848649200_)))) - (if (gx#stx-pair? _lp-hd4848749203_) - (let ((_e4849149208_ (gx#stx-e _lp-hd4848749203_))) - (let ((_tl4849349213_ - (let () - (declare (not safe)) - (##cdr _e4849149208_))) - (_hd4849249211_ - (let () + (declare (not safe)) + (gxc#apply-generate-runtime-repr _K52306_))) + (__tmp60221 + (let () + (declare (not safe)) + (gxc#apply-generate-runtime-repr _E52307_)))) + (declare (not safe)) + (equal? __tmp60222 __tmp60221)) + _K52306_ + (let ((__tmp60218 + (let ((__tmp60219 + (let ((__tmp60220 + (let () + (declare (not safe)) + (cons _E52307_ '())))) (declare (not safe)) - (##car _e4849149208_)))) - (if (gx#identifier? _hd4849249211_) - (if (gx#stx-eq? '%#ref _hd4849249211_) - (if (gx#stx-pair? _tl4849349213_) - (let ((_e4849449216_ - (gx#stx-e _tl4849349213_))) - (let ((_tl4849649221_ - (let () - (declare (not safe)) - (##cdr _e4849449216_))) - (_hd4849549219_ - (let () - (declare (not safe)) - (##car _e4849449216_)))) - (if (gx#stx-null? _tl4849649221_) - (_loop4848549192_ - _lp-tl4848849205_ - (cons _hd4849549219_ - _id4848949197_)) - (___kont5501955020_)))) - (___kont5501955020_)) - (___kont5501955020_)) - (___kont5501955020_)))) - (___kont5501955020_)))) - (let ((_id4849049224_ (reverse _id4848949197_))) - (___kont5499955000_ _id4849049224_ _hd4848049182_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4848549192_ - _target4848249187_ - '()))))) - (if (gx#stx-pair? ___stx5499754998_) - (let ((_e4847049155_ - (gx#stx-e ___stx5499754998_))) - (let ((_tl4847249160_ - (let () - (declare (not safe)) - (##cdr _e4847049155_))) - (_hd4847149158_ - (let () - (declare (not safe)) - (##car _e4847049155_)))) - (if (gx#identifier? _hd4847149158_) - (if (gx#stx-eq? - '%#call - _hd4847149158_) - (if (gx#stx-pair? _tl4847249160_) - (let ((_e4847349163_ - (gx#stx-e - _tl4847249160_))) - (let ((_tl4847549168_ - (let () - (declare - (not safe)) - (##cdr _e4847349163_))) - (_hd4847449166_ - (let () - (declare - (not safe)) - (##car _e4847349163_)))) - (if (gx#stx-pair? - _hd4847449166_) - (let ((_e4847649171_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd4847449166_))) - (let ((_tl4847849176_ - (let () (declare (not safe)) (##cdr _e4847649171_))) - (_hd4847749174_ - (let () - (declare (not safe)) - (##car _e4847649171_)))) - (if (gx#identifier? _hd4847749174_) - (if (gx#stx-eq? '%#ref _hd4847749174_) - (if (gx#stx-pair? _tl4847849176_) - (let ((_e4847949179_ - (gx#stx-e _tl4847849176_))) - (let ((_tl4848149184_ - (let () - (declare (not safe)) - (##cdr _e4847949179_))) - (_hd4848049182_ - (let () - (declare (not safe)) - (##car _e4847949179_)))) - (if (gx#stx-null? _tl4848149184_) - (if (gx#stx-pair/null? - _tl4847549168_) - (let ((___splice5500155002_ - (gx#syntax-split-splice - _tl4847549168_ - '0))) - (let ((_tl4848449189_ + (cons _K52306_ __tmp60220)))) + (declare (not safe)) + (cons _L52286_ __tmp60219)))) + (declare (not safe)) + (cons '%#if __tmp60218))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5816458165_ + (lambda (_L52214_ _L52215_ _L52216_) + (let* ((_body52235_ + (let () + (declare (not safe)) + (_optimize-f__0__5687356874_ + _L52214_))) + (__tmp60223 + (let ((__tmp60225 + (begin + (let () + (declare + (not safe)) + (gx#syntax-check-splice-targets + _L52215_ + _L52216_)) + (let ((__tmp60226 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g5223652240_ _g5223752242_ _g5223852244_) + (let ((__tmp60227 + (let ((__tmp60232 + (let () + (declare (not safe)) + (cons _g5223752242_ '()))) + (__tmp60228 + (let ((__tmp60229 + (let ((__tmp60231 (let () (declare (not safe)) - (##vector-ref - ___splice5500155002_ - '1))) - (_target4848249187_ + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp60230 (let () (declare (not safe)) - (##vector-ref - ___splice5500155002_ - '0)))) - (if (gx#stx-null? - _tl4848449189_) - (___match5506255063_ - _e4847049155_ - _hd4847149158_ - _tl4847249160_ - _e4847349163_ - _hd4847449166_ - _tl4847549168_ - _e4847649171_ - _hd4847749174_ - _tl4847849176_ - _e4847949179_ - _hd4848049182_ - _tl4848149184_ - ___splice5500155002_ - _target4848249187_ - _tl4848449189_) - (___kont5501955020_)))) - (___kont5501955020_)) - (___kont5501955020_)))) - (___kont5501955020_)) - (___kont5501955020_)) - (___kont5501955020_)))) - (___kont5501955020_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5501955020_)) - (if (gx#stx-eq? - '%#if - _hd4847149158_) - (if (gx#stx-pair? - _tl4847249160_) - (let ((_e4850349101_ - (gx#stx-e - _tl4847249160_))) - (let ((_tl4850549106_ - (let () + (cons _g5223652240_ + '())))) + (declare (not safe)) + (cons __tmp60231 + __tmp60230)))) + (declare (not safe)) + (cons __tmp60229 '())))) + (declare (not safe)) + (cons __tmp60232 __tmp60228)))) + (declare (not safe)) + (cons __tmp60227 _g5223852244_))))) + (declare (not safe)) + (foldr2 __tmp60226 '() _L52215_ _L52216_)))) + (__tmp60224 + (let () (declare (not safe)) (cons _body52235_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60225 + __tmp60224)))) + (declare (not safe)) + (cons '%#let-values __tmp60223)))) + (___kont5816858169_ + (lambda (_L52082_ _L52083_ _L52084_) + (let ((__tmp60233 + (let ((__tmp60236 + (let ((__tmp60237 + (lambda (_g5210252105_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4850349101_))) - (_hd4850449104_ - (let () (declare (not safe)) (##car _e4850349101_)))) - (if (gx#stx-pair? _tl4850549106_) - (let ((_e4850649109_ (gx#stx-e _tl4850549106_))) - (let ((_tl4850849114_ - (let () - (declare (not safe)) - (##cdr _e4850649109_))) - (_hd4850749112_ - (let () - (declare (not safe)) - (##car _e4850649109_)))) - (if (gx#stx-pair? _tl4850849114_) - (let ((_e4850949117_ (gx#stx-e _tl4850849114_))) - (let ((_tl4851149122_ + _g5210352107_) + (let () + (declare (not safe)) + (cons _g5210252105_ _g5210352107_))))) + (declare (not safe)) + (foldr1 __tmp60237 '() _L52084_))) + (__tmp60234 + (let ((__tmp60235 + (lambda (_g5210952112_ _g5211052114_) + (let () + (declare (not safe)) + (cons _g5210952112_ _g5211052114_))))) + (declare (not safe)) + (foldr1 __tmp60235 '() _L52083_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (map cons + __tmp60236 + __tmp60234)))) + (declare (not safe)) + (_bind-e__5687556876_ + __tmp60233 + _L52082_ + _optimize-f49548_)))) + (___kont5817258173_ + (lambda (_L51938_ + _L51939_ + _L51940_ + _L51941_ + _L51942_) + (let ((__tmp60238 + (lambda () + (let* ((_expr51985_ + (let () + (declare + (not safe)) + (_optimize-f__0__5687356874_ + _L51940_))) + (__tmp60239 + (let ((__tmp60241 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60244 + (let ((__tmp60251 (let () (declare (not safe)) - (##cdr _e4850949117_))) - (_hd4851049120_ - (let () + (cons _L51942_ '()))) + (__tmp60245 + (let ((__tmp60246 + (let ((__tmp60247 + (let ((__tmp60249 + (let ((__tmp60250 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g5198651989_ _g5198751991_) + (let () + (declare (not safe)) + (cons _g5198651989_ _g5198751991_))))) + (declare (not safe)) + (foldr1 __tmp60250 '() _L51941_))) + (__tmp60248 + (let () (declare (not safe)) (cons _expr51985_ '())))) + (declare (not safe)) + (cons __tmp60249 __tmp60248)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#lambda __tmp60247)))) (declare (not safe)) - (##car _e4850949117_)))) - (if (gx#stx-null? _tl4851149122_) - (___kont5500355004_ - _hd4851049120_ - _hd4850749112_ - _hd4850449104_) - (___kont5501955020_)))) - (___kont5501955020_)))) - (___kont5501955020_)))) - (___kont5501955020_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#let-values - _hd4847149158_) - (if (gx#stx-pair? - _tl4847249160_) - (let ((_e4851848971_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4847249160_))) - (let ((_tl4852048976_ - (let () (declare (not safe)) (##cdr _e4851848971_))) - (_hd4851948974_ + (cons __tmp60246 '())))) + (declare (not safe)) + (cons __tmp60251 __tmp60245))) + (__tmp60242 + (let ((__tmp60243 + (lambda (_g5199351996_ _g5199451998_) + (let () + (declare (not safe)) + (cons _g5199351996_ + _g5199451998_))))) + (declare (not safe)) + (foldr1 __tmp60243 '() _L51939_)))) + (declare (not safe)) + (cons __tmp60244 __tmp60242))) + (__tmp60240 + (let () (declare (not safe)) (cons _L51938_ '())))) + (declare (not safe)) + (cons __tmp60241 __tmp60240)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#letrec-values + __tmp60239))))) + (declare (not safe)) + (_do-splice!49545_ __tmp60238)))) + (___kont5817858179_ + (lambda () _expr51616_))) + (let* ((___match5836558366_ + (lambda (_e5174851810_ + _hd5174751813_ + _tl5174651815_ + _e5175151818_ + _hd5175051821_ + _tl5174951823_ + _e5175451826_ + _hd5175351829_ + _tl5175251831_ + _e5175751834_ + _hd5175651837_ + _tl5175551839_ + _e5176051842_ + _hd5175951845_ + _tl5175851847_ + _e5176351850_ + _hd5176251853_ + _tl5176151855_ + _e5176651858_ + _hd5176551861_ + _tl5176451863_ + _e5176951866_ + _hd5176851869_ + _tl5176751871_ + ___splice5817458175_ + _target5177051874_ + _tl5177251876_) + (letrec ((_loop5177351879_ + (lambda (_hd5177151882_ + _id5177751884_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd5177151882_)) + (let ((_e5177451887_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _e4851848971_)))) - (if (gx#stx-pair/null? _hd4851948974_) - (let ((___splice5500755008_ - (gx#syntax-split-splice _hd4851948974_ '0))) - (let ((_tl4852348981_ - (let () - (declare (not safe)) - (##vector-ref ___splice5500755008_ '1))) - (_target4852148979_ - (let () - (declare (not safe)) - (##vector-ref ___splice5500755008_ '0)))) - (if (gx#stx-null? _tl4852348981_) - (___match5511655117_ - _e4847049155_ - _hd4847149158_ - _tl4847249160_ - _e4851848971_ - _hd4851948974_ - _tl4852048976_ - ___splice5500755008_ - _target4852148979_ - _tl4852348981_) - (___kont5501955020_)))) - (___kont5501955020_)))) - (___kont5501955020_)) - (if (gx#stx-eq? '%#letrec-values _hd4847149158_) - (if (gx#stx-pair? _tl4847249160_) - (let ((_e4859048659_ (gx#stx-e _tl4847249160_))) - (let ((_tl4859248664_ - (let () - (declare (not safe)) - (##cdr _e4859048659_))) - (_hd4859148662_ + (gx#stx-e _hd5177151882_)))) + (let ((_lp-tl5177651892_ + (let () + (declare (not safe)) + (##cdr _e5177451887_))) + (_lp-hd5177551890_ + (let () + (declare (not safe)) + (##car _e5177451887_)))) + (let ((__tmp60253 (let () (declare (not safe)) - (##car _e4859048659_)))) - (if (gx#stx-pair? _hd4859148662_) - (let ((_e4859348667_ (gx#stx-e _hd4859148662_))) - (let ((_tl4859548672_ - (let () - (declare (not safe)) - (##cdr _e4859348667_))) - (_hd4859448670_ - (let () - (declare (not safe)) - (##car _e4859348667_)))) - (if (gx#stx-pair? _hd4859448670_) - (let ((_e4859648675_ - (gx#stx-e _hd4859448670_))) - (let ((_tl4859848680_ - (let () - (declare (not safe)) - (##cdr _e4859648675_))) - (_hd4859748678_ - (let () - (declare (not safe)) - (##car _e4859648675_)))) - (if (gx#stx-pair? _hd4859748678_) - (let ((_e4859948683_ - (gx#stx-e - _hd4859748678_))) - (let ((_tl4860148688_ - (let () - (declare (not safe)) - (##cdr _e4859948683_))) - (_hd4860048686_ - (let () - (declare (not safe)) - (##car _e4859948683_)))) - (if (gx#stx-null? - _tl4860148688_) - (if (gx#stx-pair? - _tl4859848680_) - (let ((_e4860248691_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4859848680_))) - (let ((_tl4860448696_ - (let () (declare (not safe)) (##cdr _e4860248691_))) - (_hd4860348694_ + (cons _lp-hd5177551890_ _id5177751884_)))) + (declare (not safe)) + (_loop5177351879_ _lp-tl5177651892_ __tmp60253)))) + (let ((_id5177851895_ (let () (declare (not safe)) - (##car _e4860248691_)))) - (if (gx#stx-pair? _hd4860348694_) - (let ((_e4860548699_ (gx#stx-e _hd4860348694_))) - (let ((_tl4860748704_ + (reverse _id5177751884_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5176751871_)) + (let ((_e5178151898_ + (let () + (declare (not safe)) + (gx#stx-e _tl5176751871_)))) + (let ((_tl5177951903_ (let () (declare (not safe)) - (##cdr _e4860548699_))) - (_hd4860648702_ + (##cdr _e5178151898_))) + (_hd5178051901_ (let () (declare (not safe)) - (##car _e4860548699_)))) - (if (gx#identifier? _hd4860648702_) - (if (gx#stx-eq? '%#lambda _hd4860648702_) - (if (gx#stx-pair? _tl4860748704_) - (let ((_e4860848707_ - (gx#stx-e _tl4860748704_))) - (let ((_tl4861048712_ + (##car _e5178151898_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5177951903_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5176151855_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl5175251831_)) + (let ((___splice5817658177_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl5175251831_ + '0)))) + (let ((_tl5178451908_ (let () (declare (not safe)) - (##cdr _e4860848707_))) - (_hd4860948710_ + (##vector-ref + ___splice5817658177_ + '1))) + (_target5178251906_ (let () (declare (not safe)) - (##car _e4860848707_)))) - (if (gx#stx-pair/null? - _hd4860948710_) - (let ((___splice5501555016_ - (gx#syntax-split-splice - _hd4860948710_ - '0))) - (let ((_tl4861348717_ - (let () - (declare - (not safe)) - (##vector-ref - ___splice5501555016_ - '1))) - (_target4861148715_ - (let () - (declare - (not safe)) - (##vector-ref - ___splice5501555016_ - '0)))) - (if (gx#stx-null? - _tl4861348717_) - (___match5520655207_ - _e4847049155_ - _hd4847149158_ - _tl4847249160_ - _e4859048659_ - _hd4859148662_ - _tl4859248664_ - _e4859348667_ - _hd4859448670_ - _tl4859548672_ - _e4859648675_ - _hd4859748678_ - _tl4859848680_ - _e4859948683_ - _hd4860048686_ - _tl4860148688_ - _e4860248691_ - _hd4860348694_ - _tl4860448696_ - _e4860548699_ - _hd4860648702_ - _tl4860748704_ - _e4860848707_ - _hd4860948710_ - _tl4861048712_ - ___splice5501555016_ - _target4861148715_ - _tl4861348717_) - (___kont5501955020_)))) - (___kont5501955020_)))) - (___kont5501955020_)) - (___kont5501955020_)) - (___kont5501955020_)))) - (___kont5501955020_)))) - (___kont5501955020_)) - (___kont5501955020_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5501955020_)))) - (___kont5501955020_)))) - (___kont5501955020_)))) - (___kont5501955020_)) - (___kont5501955020_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5501955020_)))) - (___kont5501955020_))))))))) - (_optimize-f__0__5371453715_ - (lambda (_expr49364_) - (let ((_test49366_ '#f)) - (_optimize-f__5371253713_ _expr49364_ _test49366_)))) - (_optimize-f46389_ - (lambda _g56813_ - (let ((_g56812_ - (let () (declare (not safe)) (##length _g56813_)))) - (cond ((let () (declare (not safe)) (##fx= _g56812_ 1)) - (apply _optimize-f__0__5371453715_ _g56813_)) - ((let () (declare (not safe)) (##fx= _g56812_ 2)) - (apply _optimize-f__5371253713_ _g56813_)) - (else - (##raise-wrong-number-of-arguments-exception - 'case-lambda-dispatch - _g56813_)))))) - (_assert-e46390_ - (lambda (_expr47398_) - (let* ((_sexpr47400_ - (gxc#apply-generate-runtime-repr _expr47398_)) - (_$e47402_ (assoc _sexpr47400_ _env-assert46372_))) - (if _$e47402_ - (cdr _$e47402_) - (let _assert47405_ ((_expr47407_ _expr47398_)) - (let* ((___stx5530355304_ _expr47407_) - (_g4741547594_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5530355304_)))) - (let ((___kont5530555306_ - (lambda (_L48425_ _L48426_) - (let ((_$e48448_ - (_predicate-type46377_ - _L48426_))) - (if _$e48448_ - ((lambda (_t48451_) - (_assert-type46391_ - _L48425_ - _t48451_)) - _$e48448_) - '#!void)))) - (___kont5530755308_ - (lambda (_L48118_ _L48119_ _L48120_) - (let ((_$e48145_ - (gxc#identifier-symbol - _L48120_))) - (if (or (eq? '##fx= _$e48145_) - (eq? 'fx= _$e48145_)) - (let* ((___stx5520955210_ - _L48119_) - (_g4815248181_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5520955210_)))) - (let ((___kont5521155212_ - (lambda (_L48249_ - _L48250_) - (let ((_$e48275_ - (_countf-symbol46379_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L48250_))) - (if _$e48275_ - ((lambda (_sym48278_) - (_assert-count46392_ - _L48249_ - _sym48278_ - (gx#stx-e _L48118_))) - _$e48275_) - '#!void)))) - (___kont5521355214_ (lambda () '#!void))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - ___stx5520955210_) - (let ((_e4815648193_ - (gx#stx-e - ___stx5520955210_))) - (let ((_tl4815848198_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4815648193_))) - (_hd4815748196_ - (let () (declare (not safe)) (##car _e4815648193_)))) - (if (gx#identifier? _hd4815748196_) - (if (gx#stx-eq? '%#call _hd4815748196_) - (if (gx#stx-pair? _tl4815848198_) - (let ((_e4815948201_ (gx#stx-e _tl4815848198_))) - (let ((_tl4816148206_ - (let () - (declare (not safe)) - (##cdr _e4815948201_))) - (_hd4816048204_ - (let () - (declare (not safe)) - (##car _e4815948201_)))) - (if (gx#stx-pair? _hd4816048204_) - (let ((_e4816248209_ - (gx#stx-e _hd4816048204_))) - (let ((_tl4816448214_ - (let () - (declare (not safe)) - (##cdr _e4816248209_))) - (_hd4816348212_ - (let () - (declare (not safe)) - (##car _e4816248209_)))) - (if (gx#identifier? _hd4816348212_) - (if (gx#stx-eq? - '%#ref - _hd4816348212_) - (if (gx#stx-pair? - _tl4816448214_) - (let ((_e4816548217_ - (gx#stx-e - _tl4816448214_))) - (let ((_tl4816748222_ - (let () + (##vector-ref + ___splice5817658177_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5178451908_)) + (letrec ((_loop5178551911_ + (lambda (_hd5178351914_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4816548217_))) - (_hd4816648220_ - (let () (declare (not safe)) (##car _e4816548217_)))) - (if (gx#stx-null? _tl4816748222_) - (if (gx#stx-pair? _tl4816148206_) - (let ((_e4816848225_ (gx#stx-e _tl4816148206_))) - (let ((_tl4817048230_ + _bind5178951916_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5178351914_)) + (let ((_e5178651919_ + (let () + (declare (not safe)) + (gx#stx-e _hd5178351914_)))) + (let ((_lp-tl5178851924_ (let () (declare (not safe)) - (##cdr _e4816848225_))) - (_hd4816948228_ + (##cdr _e5178651919_))) + (_lp-hd5178751922_ (let () (declare (not safe)) - (##car _e4816848225_)))) - (if (gx#stx-pair? _hd4816948228_) - (let ((_e4817148233_ - (gx#stx-e _hd4816948228_))) - (let ((_tl4817348238_ - (let () - (declare (not safe)) - (##cdr _e4817148233_))) - (_hd4817248236_ - (let () - (declare (not safe)) - (##car _e4817148233_)))) - (if (gx#identifier? _hd4817248236_) - (if (gx#stx-eq? - '%#ref - _hd4817248236_) - (if (gx#stx-pair? _tl4817348238_) - (let ((_e4817448241_ - (gx#stx-e - _tl4817348238_))) - (let ((_tl4817648246_ - (let () - (declare - (not safe)) - (##cdr _e4817448241_))) - (_hd4817548244_ - (let () - (declare - (not safe)) - (##car _e4817448241_)))) - (if (gx#stx-null? - _tl4817648246_) - (if (gx#stx-null? - _tl4817048230_) - (___kont5521155212_ - _hd4817548244_ - _hd4816648220_) - (___kont5521355214_)) - (___kont5521355214_)))) - (___kont5521355214_)) - (___kont5521355214_)) - (___kont5521355214_)))) - (___kont5521355214_)))) - (___kont5521355214_)) - (___kont5521355214_)))) - (___kont5521355214_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5521355214_)) - (___kont5521355214_)))) - (___kont5521355214_)))) - (___kont5521355214_)) - (___kont5521355214_)) - (___kont5521355214_)))) - (___kont5521355214_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (or (eq? '##eq? _$e48145_) - (eq? 'eq? _$e48145_) - (eq? '##eqv? _$e48145_) - (eq? 'eqv? _$e48145_) - (eq? '##equal? _$e48145_) - (eq? 'equal? _$e48145_) - (eq? 'gx#free-identifier=? - _$e48145_) - (eq? 'gx#stx-eq? - _$e48145_)) - ((lambda (_sym48304_) - (let* ((___stx5527755278_ - _L48119_) - (_g4830748320_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5527755278_)))) - (let ((___kont5527955280_ - (lambda (_L48348_) - (_assert-eqf46393_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L48348_ - (_eqf-symbol46380_ _sym48304_) - (gx#stx-e _L48118_)))) - (___kont5528155282_ (lambda () '#!void))) - (if (gx#stx-pair? ___stx5527755278_) - (let ((_e4831048332_ (gx#stx-e ___stx5527755278_))) - (let ((_tl4831248337_ - (let () - (declare (not safe)) - (##cdr _e4831048332_))) - (_hd4831148335_ - (let () + (##car _e5178651919_)))) + (let ((__tmp60252 + (let () + (declare (not safe)) + (cons _lp-hd5178751922_ + _bind5178951916_)))) (declare (not safe)) - (##car _e4831048332_)))) - (if (gx#identifier? _hd4831148335_) - (if (gx#stx-eq? '%#ref _hd4831148335_) - (if (gx#stx-pair? _tl4831248337_) - (let ((_e4831348340_ - (gx#stx-e _tl4831248337_))) - (let ((_tl4831548345_ + (_loop5178551911_ + _lp-tl5178851924_ + __tmp60252)))) + (let ((_bind5179051927_ + (let () + (declare (not safe)) + (reverse _bind5178951916_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5174951823_)) + (let ((_e5179351930_ + (let () + (declare (not safe)) + (gx#stx-e _tl5174951823_)))) + (let ((_tl5179151935_ + (let () + (declare (not safe)) + (##cdr _e5179351930_))) + (_hd5179251933_ + (let () + (declare (not safe)) + (##car _e5179351930_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5179151935_)) + (___kont5817258173_ + _hd5179251933_ + _bind5179051927_ + _hd5178051901_ + _id5177851895_ + _hd5175951845_) + (___kont5817858179_)))) + (___kont5817858179_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop5178551911_ + _target5178251906_ + '()))) + (___kont5817858179_)))) + (___kont5817858179_)) + (___kont5817858179_)) + (___kont5817858179_)))) + (___kont5817858179_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (##cdr _e4831348340_))) - (_hd4831448343_ + (_loop5177351879_ + _target5177051874_ + '()))))) + (___match5829958300_ + (lambda (_e5171452006_ + _hd5171352009_ + _tl5171252011_ + _e5171752014_ + _hd5171652017_ + _tl5171552019_ + ___splice5817058171_ + _target5171852022_ + _tl5172052024_) + (letrec ((_loop5172152027_ + (lambda (_hd5171952030_ + _expr5172552032_ + _id5172652034_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd5171952030_)) + (let ((_e5172252037_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd5171952030_)))) + (let ((_lp-tl5172452042_ + (let () + (declare (not safe)) + (##cdr _e5172252037_))) + (_lp-hd5172352040_ + (let () + (declare (not safe)) + (##car _e5172252037_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd5172352040_)) + (let ((_e5173152045_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd5172352040_)))) + (let ((_tl5172952050_ + (let () + (declare (not safe)) + (##cdr _e5173152045_))) + (_hd5173052048_ + (let () + (declare (not safe)) + (##car _e5173152045_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5173052048_)) + (let ((_e5173452053_ + (let () + (declare (not safe)) + (gx#stx-e _hd5173052048_)))) + (let ((_tl5173252058_ + (let () + (declare (not safe)) + (##cdr _e5173452053_))) + (_hd5173352056_ + (let () + (declare (not safe)) + (##car _e5173452053_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5173252058_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5172952050_)) + (let ((_e5173752061_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5172952050_)))) + (let ((_tl5173552066_ + (let () + (declare (not safe)) + (##cdr _e5173752061_))) + (_hd5173652064_ + (let () + (declare (not safe)) + (##car _e5173752061_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5173552066_)) + (let ((__tmp60255 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _hd5173652064_ _expr5172552032_))) + (__tmp60254 + (let () + (declare (not safe)) + (cons _hd5173352056_ _id5172652034_)))) + (declare (not safe)) + (_loop5172152027_ _lp-tl5172452042_ __tmp60255 __tmp60254)) + (___kont5817858179_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5817858179_)) + (___kont5817858179_)))) + (___kont5817858179_)))) + (___kont5817858179_)))) + (let ((_id5172852071_ + (let () + (declare (not safe)) + (reverse _id5172652034_))) + (_expr5172752069_ + (let () + (declare (not safe)) + (reverse _expr5172552032_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5171552019_)) + (let ((_e5174052074_ + (let () + (declare (not safe)) + (gx#stx-e _tl5171552019_)))) + (let ((_tl5173852079_ + (let () + (declare (not safe)) + (##cdr _e5174052074_))) + (_hd5173952077_ + (let () + (declare (not safe)) + (##car _e5174052074_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5173852079_)) + (___kont5816858169_ + _hd5173952077_ + _expr5172752069_ + _id5172852071_) + (___kont5817858179_)))) + (___kont5817858179_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (##car _e4831348340_)))) - (if (gx#stx-null? _tl4831548345_) - (___kont5527955280_ - _hd4831448343_) - (___kont5528155282_)))) - (___kont5528155282_)) - (___kont5528155282_)) - (___kont5528155282_)))) - (___kont5528155282_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e48145_) - '#!void))))) - (___kont5530955310_ - (lambda (_L48022_ _L48023_ _L48024_) - (_assert47405_ - (cons (gx#datum->syntax__0 - '#f - '%#call) - (cons (cons (gx#datum->syntax__0 - '#f - '%#ref) - (cons _L48024_ '())) - (cons _L48022_ - (cons (cons (gx#datum->syntax__0 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '%#quote) - (cons _L48023_ '())) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5531155312_ - (lambda (_L47914_ _L47915_ _L47916_) - (let ((_$e47945_ - (gxc#identifier-symbol - _L47916_))) - (if (or (eq? 'gx#free-identifier=? - _$e47945_) - (eq? 'gx#stx-eq? _$e47945_)) - ((lambda (_sym47951_) - (_assert-eqf46393_ - _L47915_ - (_eqf-symbol46380_ - _sym47951_) - _L47914_)) - _$e47945_) - '#!void)))) - (___kont5531355314_ - (lambda (_L47798_ _L47799_ _L47800_) - (_assert47405_ - (cons (gx#datum->syntax__0 - '#f - '%#call) - (cons (cons (gx#datum->syntax__0 - '#f - '%#ref) - (cons _L47800_ '())) - (cons (cons (gx#datum->syntax__0 + (_loop5172152027_ + _target5171852022_ + '() + '()))))) + (___match5827558276_ + (lambda (_e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_) + (letrec ((_loop5168352143_ + (lambda (_hd5168152146_ + _xid5168752148_ + _id5168852150_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd5168152146_)) + (let ((_e5168452153_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '%#ref) - (cons _L47798_ '())) - (cons (cons (gx#datum->syntax__0 '#f '%#quote-syntax) - (cons _L47799_ '())) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5531555316_ - (lambda (_L47678_ _L47679_ _L47680_) - (_assert47405_ - (gxc#apply-expression-subst - _L47679_ - _L47680_ - _L47678_)))) - (___kont5531755318_ (lambda () '#!void))) - (if (gx#stx-pair? ___stx5530355304_) - (let ((_e4741948369_ - (gx#stx-e ___stx5530355304_))) - (let ((_tl4742148374_ + (let () + (declare (not safe)) + (gx#stx-e _hd5168152146_)))) + (let ((_lp-tl5168652158_ + (let () + (declare (not safe)) + (##cdr _e5168452153_))) + (_lp-hd5168552156_ + (let () + (declare (not safe)) + (##car _e5168452153_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd5168552156_)) + (let ((_e5169352161_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd5168552156_)))) + (let ((_tl5169152166_ + (let () + (declare (not safe)) + (##cdr _e5169352161_))) + (_hd5169252164_ + (let () + (declare (not safe)) + (##car _e5169352161_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5169252164_)) + (let ((_e5169652169_ + (let () + (declare (not safe)) + (gx#stx-e _hd5169252164_)))) + (let ((_tl5169452174_ + (let () + (declare (not safe)) + (##cdr _e5169652169_))) + (_hd5169552172_ + (let () + (declare (not safe)) + (##car _e5169652169_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5169452174_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5169152166_)) + (let ((_e5169952177_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5169152166_)))) + (let ((_tl5169752182_ + (let () + (declare (not safe)) + (##cdr _e5169952177_))) + (_hd5169852180_ + (let () + (declare (not safe)) + (##car _e5169952177_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5169852180_)) + (let ((_e5170252185_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd5169852180_)))) + (let ((_tl5170052190_ + (let () (declare (not safe)) (##cdr _e5170252185_))) + (_hd5170152188_ + (let () (declare (not safe)) (##car _e5170252185_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5170152188_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5170152188_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5170052190_)) + (let ((_e5170552193_ + (let () + (declare (not safe)) + (gx#stx-e _tl5170052190_)))) + (let ((_tl5170352198_ + (let () + (declare (not safe)) + (##cdr _e5170552193_))) + (_hd5170452196_ + (let () + (declare (not safe)) + (##car _e5170552193_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5170352198_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5169752182_)) + (let ((__tmp60257 + (let () + (declare (not safe)) + (cons _hd5170452196_ + _xid5168752148_))) + (__tmp60256 + (let () + (declare (not safe)) + (cons _hd5169552172_ + _id5168852150_)))) + (declare (not safe)) + (_loop5168352143_ + _lp-tl5168652158_ + __tmp60257 + __tmp60256)) + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_)) + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_)))) + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_)) + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_)) + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_)))) + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_)) + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_)))) + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_)))) + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_)))) + (let ((_id5169052203_ + (let () + (declare (not safe)) + (reverse _id5168852150_))) + (_xid5168952201_ + (let () + (declare (not safe)) + (reverse _xid5168752148_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5167752135_)) + (let ((_e5170852206_ + (let () + (declare (not safe)) + (gx#stx-e _tl5167752135_)))) + (let ((_tl5170652211_ + (let () + (declare (not safe)) + (##cdr _e5170852206_))) + (_hd5170752209_ + (let () + (declare (not safe)) + (##car _e5170852206_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5170652211_)) + (___kont5816458165_ + _hd5170752209_ + _xid5168952201_ + _id5169052203_) + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_)))) + (___match5829958300_ + _e5167652122_ + _hd5167552125_ + _tl5167452127_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (##cdr _e4741948369_))) - (_hd4742048372_ + (_loop5168352143_ + _target5168052138_ + '() + '()))))) + (___match5822158222_ + (lambda (_e5163152314_ + _hd5163052317_ + _tl5162952319_ + _e5163452322_ + _hd5163352325_ + _tl5163252327_ + _e5163752330_ + _hd5163652333_ + _tl5163552335_ + _e5164052338_ + _hd5163952341_ + _tl5163852343_ + ___splice5816058161_ + _target5164152346_ + _tl5164352348_) + (letrec ((_loop5164452351_ + (lambda (_hd5164252354_ + _id5164852356_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd5164252354_)) + (let ((_e5164552359_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd5164252354_)))) + (let ((_lp-tl5164752364_ + (let () + (declare (not safe)) + (##cdr _e5164552359_))) + (_lp-hd5164652362_ + (let () + (declare (not safe)) + (##car _e5164552359_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd5164652362_)) + (let ((_e5165252367_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd5164652362_)))) + (let ((_tl5165052372_ + (let () + (declare (not safe)) + (##cdr _e5165252367_))) + (_hd5165152370_ + (let () + (declare (not safe)) + (##car _e5165252367_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5165152370_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5165152370_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5165052372_)) + (let ((_e5165552375_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5165052372_)))) + (let ((_tl5165352380_ + (let () + (declare (not safe)) + (##cdr _e5165552375_))) + (_hd5165452378_ + (let () + (declare (not safe)) + (##car _e5165552375_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5165352380_)) + (let ((__tmp60258 + (let () + (declare + (not safe)) + (cons _hd5165452378_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _id5164852356_)))) + (declare (not safe)) + (_loop5164452351_ _lp-tl5164752364_ __tmp60258)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5817858179_)))) + (___kont5817858179_)) + (___kont5817858179_)) + (___kont5817858179_)))) + (___kont5817858179_)))) + (let ((_id5164952383_ + (let () + (declare (not safe)) + (reverse _id5164852356_)))) + (___kont5815858159_ _id5164952383_ _hd5163952341_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (##car _e4741948369_)))) - (if (gx#identifier? _hd4742048372_) - (if (gx#stx-eq? - '%#call - _hd4742048372_) - (if (gx#stx-pair? - _tl4742148374_) - (let ((_e4742248377_ - (gx#stx-e - _tl4742148374_))) - (let ((_tl4742448382_ + (_loop5164452351_ + _target5164152346_ + '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5815658157_)) + (let ((_e5163152314_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx5815658157_)))) + (let ((_tl5162952319_ + (let () + (declare (not safe)) + (##cdr _e5163152314_))) + (_hd5163052317_ + (let () + (declare (not safe)) + (##car _e5163152314_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5163052317_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd5163052317_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5162952319_)) + (let ((_e5163452322_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5162952319_)))) + (let ((_tl5163252327_ + (let () (declare (not safe)) (##cdr _e5163452322_))) + (_hd5163352325_ + (let () (declare (not safe)) (##car _e5163452322_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5163352325_)) + (let ((_e5163752330_ + (let () + (declare (not safe)) + (gx#stx-e _hd5163352325_)))) + (let ((_tl5163552335_ + (let () + (declare (not safe)) + (##cdr _e5163752330_))) + (_hd5163652333_ + (let () + (declare (not safe)) + (##car _e5163752330_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5163652333_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5163652333_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5163552335_)) + (let ((_e5164052338_ + (let () + (declare (not safe)) + (gx#stx-e _tl5163552335_)))) + (let ((_tl5163852343_ + (let () + (declare (not safe)) + (##cdr _e5164052338_))) + (_hd5163952341_ + (let () + (declare (not safe)) + (##car _e5164052338_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5163852343_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl5163252327_)) + (let ((___splice5816058161_ + (let () + (declare + (not safe)) + (gx#syntax-split-splice + _tl5163252327_ + '0)))) + (let ((_tl5164352348_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##vector-ref ___splice5816058161_ '1))) + (_target5164152346_ + (let () + (declare (not safe)) + (##vector-ref ___splice5816058161_ '0)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl5164352348_)) + (___match5822158222_ + _e5163152314_ + _hd5163052317_ + _tl5162952319_ + _e5163452322_ + _hd5163352325_ + _tl5163252327_ + _e5163752330_ + _hd5163652333_ + _tl5163552335_ + _e5164052338_ + _hd5163952341_ + _tl5163852343_ + ___splice5816058161_ + _target5164152346_ + _tl5164352348_) + (___kont5817858179_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5817858179_)) + (___kont5817858179_)))) + (___kont5817858179_)) + (___kont5817858179_)) + (___kont5817858179_)))) + (___kont5817858179_)))) + (___kont5817858179_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#if + _hd5163052317_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl5162952319_)) + (let ((_e5166452260_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl5162952319_)))) + (let ((_tl5166252265_ + (let () + (declare (not safe)) + (##cdr _e5166452260_))) + (_hd5166352263_ + (let () + (declare (not safe)) + (##car _e5166452260_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5166252265_)) + (let ((_e5166752268_ + (let () + (declare (not safe)) + (gx#stx-e _tl5166252265_)))) + (let ((_tl5166552273_ + (let () + (declare (not safe)) + (##cdr _e5166752268_))) + (_hd5166652271_ + (let () + (declare (not safe)) + (##car _e5166752268_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5166552273_)) + (let ((_e5167052276_ + (let () + (declare (not safe)) + (gx#stx-e _tl5166552273_)))) + (let ((_tl5166852281_ + (let () + (declare (not safe)) + (##cdr _e5167052276_))) + (_hd5166952279_ + (let () + (declare (not safe)) + (##car _e5167052276_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5166852281_)) + (___kont5816258163_ + _hd5166952279_ + _hd5166652271_ + _hd5166352263_) + (___kont5817858179_)))) + (___kont5817858179_)))) + (___kont5817858179_)))) + (___kont5817858179_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#let-values _hd5163052317_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5162952319_)) + (let ((_e5167952130_ + (let () + (declare (not safe)) + (gx#stx-e _tl5162952319_)))) + (let ((_tl5167752135_ + (let () + (declare (not safe)) + (##cdr _e5167952130_))) + (_hd5167852133_ + (let () + (declare (not safe)) + (##car _e5167952130_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd5167852133_)) + (let ((___splice5816658167_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd5167852133_ + '0)))) + (let ((_tl5168252140_ + (let () + (declare (not safe)) + (##vector-ref + ___splice5816658167_ + '1))) + (_target5168052138_ + (let () + (declare (not safe)) + (##vector-ref + ___splice5816658167_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5168252140_)) + (___match5827558276_ + _e5163152314_ + _hd5163052317_ + _tl5162952319_ + _e5167952130_ + _hd5167852133_ + _tl5167752135_ + ___splice5816658167_ + _target5168052138_ + _tl5168252140_) + (___kont5817858179_)))) + (___kont5817858179_)))) + (___kont5817858179_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#letrec-values _hd5163052317_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5162952319_)) + (let ((_e5175151818_ + (let () + (declare (not safe)) + (gx#stx-e _tl5162952319_)))) + (let ((_tl5174951823_ + (let () + (declare (not safe)) + (##cdr _e5175151818_))) + (_hd5175051821_ + (let () + (declare (not safe)) + (##car _e5175151818_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5175051821_)) + (let ((_e5175451826_ + (let () + (declare (not safe)) + (gx#stx-e _hd5175051821_)))) + (let ((_tl5175251831_ + (let () + (declare (not safe)) + (##cdr _e5175451826_))) + (_hd5175351829_ + (let () + (declare (not safe)) + (##car _e5175451826_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5175351829_)) + (let ((_e5175751834_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5175351829_)))) + (let ((_tl5175551839_ + (let () + (declare (not safe)) + (##cdr _e5175751834_))) + (_hd5175651837_ + (let () + (declare (not safe)) + (##car _e5175751834_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5175651837_)) + (let ((_e5176051842_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd5175651837_)))) + (let ((_tl5175851847_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e5176051842_))) + (_hd5175951845_ + (let () (declare (not safe)) (##car _e5176051842_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl5175851847_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5175551839_)) + (let ((_e5176351850_ + (let () + (declare (not safe)) + (gx#stx-e _tl5175551839_)))) + (let ((_tl5176151855_ + (let () + (declare (not safe)) + (##cdr _e5176351850_))) + (_hd5176251853_ + (let () + (declare (not safe)) + (##car _e5176351850_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5176251853_)) + (let ((_e5176651858_ + (let () + (declare (not safe)) + (gx#stx-e _hd5176251853_)))) + (let ((_tl5176451863_ + (let () + (declare (not safe)) + (##cdr _e5176651858_))) + (_hd5176551861_ + (let () + (declare (not safe)) + (##car _e5176651858_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5176551861_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd5176551861_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5176451863_)) + (let ((_e5176951866_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5176451863_)))) + (let ((_tl5176751871_ + (let () + (declare (not safe)) + (##cdr _e5176951866_))) + (_hd5176851869_ + (let () + (declare (not safe)) + (##car _e5176951866_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _hd5176851869_)) + (let ((___splice5817458175_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#syntax-split-splice _hd5176851869_ '0)))) + (let ((_tl5177251876_ + (let () + (declare (not safe)) + (##vector-ref ___splice5817458175_ '1))) + (_target5177051874_ + (let () + (declare (not safe)) + (##vector-ref ___splice5817458175_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5177251876_)) + (___match5836558366_ + _e5163152314_ + _hd5163052317_ + _tl5162952319_ + _e5175151818_ + _hd5175051821_ + _tl5174951823_ + _e5175451826_ + _hd5175351829_ + _tl5175251831_ + _e5175751834_ + _hd5175651837_ + _tl5175551839_ + _e5176051842_ + _hd5175951845_ + _tl5175851847_ + _e5176351850_ + _hd5176251853_ + _tl5176151855_ + _e5176651858_ + _hd5176551861_ + _tl5176451863_ + _e5176951866_ + _hd5176851869_ + _tl5176751871_ + ___splice5817458175_ + _target5177051874_ + _tl5177251876_) + (___kont5817858179_)))) + (___kont5817858179_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5817858179_)) + (___kont5817858179_)) + (___kont5817858179_)))) + (___kont5817858179_)))) + (___kont5817858179_)) + (___kont5817858179_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5817858179_)))) + (___kont5817858179_)))) + (___kont5817858179_)))) + (___kont5817858179_)) + (___kont5817858179_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5817858179_)))) + (___kont5817858179_)))))))) + (declare (not safe)) + (_do-assert49535_ __tmp60259 __tmp60215)))) + (_optimize-f__0__5687356874_ + (lambda (_expr52523_) + (let ((_test52525_ '#f)) + (declare (not safe)) + (_optimize-f__5687156872_ _expr52523_ _test52525_)))) + (_optimize-f49548_ + (lambda _g60262_ + (let ((_g60261_ + (let () (declare (not safe)) (##length _g60262_)))) + (cond ((let () (declare (not safe)) (##fx= _g60261_ 1)) + (apply (lambda (_expr52523_) + (let () + (declare (not safe)) + (_optimize-f__0__5687356874_ + _expr52523_))) + _g60262_)) + ((let () (declare (not safe)) (##fx= _g60261_ 2)) + (apply (lambda (_expr52527_ _test52528_) + (let () + (declare (not safe)) + (_optimize-f__5687156872_ + _expr52527_ + _test52528_))) + _g60262_)) + (else + (##raise-wrong-number-of-arguments-exception + 'case-lambda-dispatch + _g60262_)))))) + (_assert-e49549_ + (lambda (_expr50557_) + (let* ((_sexpr50559_ + (let () + (declare (not safe)) + (gxc#apply-generate-runtime-repr _expr50557_))) + (_$e50561_ + (let () + (declare (not safe)) + (assoc _sexpr50559_ _env-assert49531_)))) + (if _$e50561_ + (let () (declare (not safe)) (cdr _$e50561_)) + (let _assert50564_ ((_expr50566_ _expr50557_)) + (let* ((___stx5846258463_ _expr50566_) + (_g5057450753_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5846258463_))))) + (let ((___kont5846458465_ + (lambda (_L51584_ _L51585_) + (let ((_$e51607_ + (let () + (declare (not safe)) + (_predicate-type49536_ + _L51585_)))) + (if _$e51607_ + ((lambda (_t51610_) + (let () + (declare (not safe)) + (_assert-type49550_ + _L51584_ + _t51610_))) + _$e51607_) + '#!void)))) + (___kont5846658467_ + (lambda (_L51277_ _L51278_ _L51279_) + (let ((_$e51304_ + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L51279_)))) + (if (or (let () + (declare (not safe)) + (eq? '##fx= _$e51304_)) + (let () + (declare (not safe)) + (eq? 'fx= _$e51304_))) + (let* ((___stx5836858369_ + _L51278_) + (_g5131151340_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5836858369_))))) + (let ((___kont5837058371_ + (lambda (_L51408_ + _L51409_) + (let ((_$e51434_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (_countf-symbol49538_ _L51409_)))) + (if _$e51434_ + ((lambda (_sym51437_) + (let ((__tmp60265 + (let () + (declare (not safe)) + (gx#stx-e _L51277_)))) + (declare (not safe)) + (_assert-count49551_ + _L51408_ + _sym51437_ + __tmp60265))) + _$e51434_) + '#!void)))) + (___kont5837258373_ (lambda () '#!void))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx5836858369_)) + (let ((_e5131751352_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e ___stx5836858369_)))) + (let ((_tl5131551357_ + (let () (declare (not safe)) (##cdr _e5131751352_))) + (_hd5131651355_ + (let () (declare (not safe)) (##car _e5131751352_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5131651355_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd5131651355_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5131551357_)) + (let ((_e5132051360_ + (let () + (declare (not safe)) + (gx#stx-e _tl5131551357_)))) + (let ((_tl5131851365_ + (let () + (declare (not safe)) + (##cdr _e5132051360_))) + (_hd5131951363_ + (let () + (declare (not safe)) + (##car _e5132051360_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5131951363_)) + (let ((_e5132351368_ + (let () + (declare (not safe)) + (gx#stx-e _hd5131951363_)))) + (let ((_tl5132151373_ + (let () + (declare (not safe)) + (##cdr _e5132351368_))) + (_hd5132251371_ + (let () + (declare (not safe)) + (##car _e5132351368_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5132251371_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd5132251371_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5132151373_)) + (let ((_e5132651376_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _tl5132151373_)))) + (let ((_tl5132451381_ + (let () (declare (not safe)) (##cdr _e5132651376_))) + (_hd5132551379_ + (let () (declare (not safe)) (##car _e5132651376_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5132451381_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5131851365_)) + (let ((_e5132951384_ + (let () + (declare (not safe)) + (gx#stx-e _tl5131851365_)))) + (let ((_tl5132751389_ + (let () + (declare (not safe)) + (##cdr _e5132951384_))) + (_hd5132851387_ + (let () + (declare (not safe)) + (##car _e5132951384_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5132851387_)) + (let ((_e5133251392_ + (let () + (declare (not safe)) + (gx#stx-e _hd5132851387_)))) + (let ((_tl5133051397_ + (let () + (declare (not safe)) + (##cdr _e5133251392_))) + (_hd5133151395_ + (let () + (declare (not safe)) + (##car _e5133251392_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5133151395_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd5133151395_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5133051397_)) + (let ((_e5133551400_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5133051397_)))) + (let ((_tl5133351405_ + (let () + (declare + (not safe)) + (##cdr _e5133551400_))) + (_hd5133451403_ + (let () + (declare + (not safe)) + (##car _e5133551400_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl5133351405_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl5132751389_)) + (___kont5837058371_ _hd5133451403_ _hd5132551379_) + (___kont5837258373_)) + (___kont5837258373_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5837258373_)) + (___kont5837258373_)) + (___kont5837258373_)))) + (___kont5837258373_)))) + (___kont5837258373_)) + (___kont5837258373_)))) + (___kont5837258373_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5837258373_)) + (___kont5837258373_)))) + (___kont5837258373_)))) + (___kont5837258373_)) + (___kont5837258373_)) + (___kont5837258373_)))) + (___kont5837258373_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (or (let () + (declare (not safe)) + (eq? '##eq? _$e51304_)) + (let () + (declare (not safe)) + (eq? 'eq? _$e51304_)) + (let () + (declare (not safe)) + (eq? '##eqv? + _$e51304_)) + (let () + (declare (not safe)) + (eq? 'eqv? _$e51304_)) + (let () + (declare (not safe)) + (eq? '##equal? + _$e51304_)) + (let () + (declare (not safe)) + (eq? 'equal? + _$e51304_)) + (let () + (declare (not safe)) + (eq? 'gx#free-identifier=? + _$e51304_)) + (let () + (declare (not safe)) + (eq? 'gx#stx-eq? + _$e51304_))) + ((lambda (_sym51463_) + (let* ((___stx5843658437_ + _L51278_) + (_g5146651479_ + (lambda () + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5843658437_))))) + (let ((___kont5843858439_ + (lambda (_L51507_) + (let ((__tmp60264 + (let () + (declare (not safe)) + (_eqf-symbol49539_ _sym51463_))) + (__tmp60263 + (let () + (declare (not safe)) + (gx#stx-e _L51277_)))) + (declare (not safe)) + (_assert-eqf49552_ _L51507_ __tmp60264 __tmp60263)))) + (___kont5844058441_ (lambda () '#!void))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5843658437_)) + (let ((_e5147151491_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5843658437_)))) + (let ((_tl5146951496_ + (let () + (declare (not safe)) + (##cdr _e5147151491_))) + (_hd5147051494_ + (let () + (declare (not safe)) + (##car _e5147151491_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5147051494_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5147051494_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5146951496_)) + (let ((_e5147451499_ + (let () + (declare (not safe)) + (gx#stx-e _tl5146951496_)))) + (let ((_tl5147251504_ + (let () + (declare (not safe)) + (##cdr _e5147451499_))) + (_hd5147351502_ + (let () + (declare (not safe)) + (##car _e5147451499_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5147251504_)) + (___kont5843858439_ + _hd5147351502_) + (___kont5844058441_)))) + (___kont5844058441_)) + (___kont5844058441_)) + (___kont5844058441_)))) + (___kont5844058441_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _$e51304_) + '#!void))))) + (___kont5846858469_ + (lambda (_L51181_ _L51182_ _L51183_) + (let ((__tmp60266 + (let ((__tmp60276 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#call))) + (__tmp60267 + (let ((__tmp60273 + (let ((__tmp60275 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#ref))) + (__tmp60274 + (let () (declare (not safe)) (cons _L51183_ '())))) + (declare (not safe)) + (cons __tmp60275 __tmp60274))) + (__tmp60268 + (let ((__tmp60269 + (let ((__tmp60270 + (let ((__tmp60272 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#quote))) + (__tmp60271 + (let () + (declare (not safe)) + (cons _L51182_ '())))) + (declare (not safe)) + (cons __tmp60272 __tmp60271)))) + (declare (not safe)) + (cons __tmp60270 '())))) + (declare (not safe)) + (cons _L51181_ __tmp60269)))) + (declare (not safe)) + (cons __tmp60273 __tmp60268)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60276 + __tmp60267)))) + (declare (not safe)) + (_assert50564_ __tmp60266)))) + (___kont5847058471_ + (lambda (_L51073_ _L51074_ _L51075_) + (let ((_$e51104_ + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L51075_)))) + (if (or (let () + (declare (not safe)) + (eq? 'gx#free-identifier=? + _$e51104_)) + (let () + (declare (not safe)) + (eq? 'gx#stx-eq? + _$e51104_))) + ((lambda (_sym51110_) + (let ((__tmp60277 + (let () + (declare (not safe)) + (_eqf-symbol49539_ + _sym51110_)))) + (declare (not safe)) + (_assert-eqf49552_ + _L51074_ + __tmp60277 + _L51073_))) + _$e51104_) + '#!void)))) + (___kont5847258473_ + (lambda (_L50957_ _L50958_ _L50959_) + (let ((__tmp60278 + (let ((__tmp60291 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#call))) + (__tmp60279 + (let ((__tmp60288 + (let ((__tmp60290 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#ref))) + (__tmp60289 + (let () (declare (not safe)) (cons _L50959_ '())))) + (declare (not safe)) + (cons __tmp60290 __tmp60289))) + (__tmp60280 + (let ((__tmp60285 + (let ((__tmp60287 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#ref))) + (__tmp60286 + (let () + (declare (not safe)) + (cons _L50957_ '())))) + (declare (not safe)) + (cons __tmp60287 __tmp60286))) + (__tmp60281 + (let ((__tmp60282 + (let ((__tmp60284 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#quote-syntax))) + (__tmp60283 + (let () + (declare (not safe)) + (cons _L50958_ '())))) + (declare (not safe)) + (cons __tmp60284 __tmp60283)))) + (declare (not safe)) + (cons __tmp60282 '())))) + (declare (not safe)) + (cons __tmp60285 __tmp60281)))) + (declare (not safe)) + (cons __tmp60288 __tmp60280)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60291 + __tmp60279)))) + (declare (not safe)) + (_assert50564_ __tmp60278)))) + (___kont5847458475_ + (lambda (_L50837_ _L50838_ _L50839_) + (let ((__tmp60292 + (let () + (declare (not safe)) + (gxc#apply-expression-subst + _L50838_ + _L50839_ + _L50837_)))) + (declare (not safe)) + (_assert50564_ __tmp60292)))) + (___kont5847658477_ (lambda () '#!void))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5846258463_)) + (let ((_e5058051528_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5846258463_)))) + (let ((_tl5057851533_ + (let () + (declare (not safe)) + (##cdr _e5058051528_))) + (_hd5057951531_ + (let () + (declare (not safe)) + (##car _e5058051528_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5057951531_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd5057951531_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5057851533_)) + (let ((_e5058351536_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5057851533_)))) + (let ((_tl5058151541_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e5058351536_))) + (_hd5058251539_ + (let () (declare (not safe)) (##car _e5058351536_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5058251539_)) + (let ((_e5058651544_ + (let () + (declare (not safe)) + (gx#stx-e _hd5058251539_)))) + (let ((_tl5058451549_ + (let () + (declare (not safe)) + (##cdr _e5058651544_))) + (_hd5058551547_ + (let () + (declare (not safe)) + (##car _e5058651544_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5058551547_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5058551547_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5058451549_)) + (let ((_e5058951552_ + (let () + (declare (not safe)) + (gx#stx-e _tl5058451549_)))) + (let ((_tl5058751557_ + (let () + (declare (not safe)) + (##cdr _e5058951552_))) + (_hd5058851555_ + (let () + (declare (not safe)) + (##car _e5058951552_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5058751557_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5058151541_)) + (let ((_e5059251560_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5058151541_)))) + (let ((_tl5059051565_ + (let () + (declare + (not safe)) + (##cdr _e5059251560_))) + (_hd5059151563_ + (let () + (declare + (not safe)) + (##car _e5059251560_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5059151563_)) + (let ((_e5059551568_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd5059151563_)))) + (let ((_tl5059351573_ + (let () (declare (not safe)) (##cdr _e5059551568_))) + (_hd5059451571_ + (let () (declare (not safe)) (##car _e5059551568_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5059851576_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5059651581_ + (let () + (declare (not safe)) + (##cdr _e5059851576_))) + (_hd5059751579_ + (let () + (declare (not safe)) + (##car _e5059851576_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5059651581_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5059051565_)) + (___kont5846458465_ + _hd5059751579_ + _hd5058851555_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5059051565_)) + (let ((_e5061951253_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5059051565_)))) + (let ((_tl5061751258_ + (let () + (declare + (not safe)) + (##cdr _e5061951253_))) + (_hd5061851256_ + (let () + (declare + (not safe)) + (##car _e5061951253_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5061851256_)) + (let ((_e5062251261_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd5061851256_)))) + (let ((_tl5062051266_ + (let () (declare (not safe)) (##cdr _e5062251261_))) + (_hd5062151264_ + (let () (declare (not safe)) (##car _e5062251261_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5062051266_)) + (let ((_e5062551269_ + (let () + (declare (not safe)) + (gx#stx-e _tl5062051266_)))) + (let ((_tl5062351274_ + (let () + (declare (not safe)) + (##cdr _e5062551269_))) + (_hd5062451272_ + (let () + (declare (not safe)) + (##car _e5062551269_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5062351274_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5061751258_)) + (___kont5846658467_ + _hd5062451272_ + _hd5059151563_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote-syntax _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5062051266_)) + (let ((_e5068551065_ + (let () + (declare (not safe)) + (gx#stx-e _tl5062051266_)))) + (let ((_tl5068351070_ + (let () + (declare (not safe)) + (##cdr _e5068551065_))) + (_hd5068451068_ + (let () + (declare (not safe)) + (##car _e5068551065_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5068351070_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5061751258_)) + (___kont5847058471_ + _hd5068451068_ + _hd5059751579_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (___kont5847658477_))) + (___kont5847658477_)))) + (___kont5847658477_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5847658477_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059051565_)) + (let ((_e5061951253_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5059051565_)))) + (let ((_tl5061751258_ + (let () + (declare (not safe)) + (##cdr _e5061951253_))) + (_hd5061851256_ + (let () + (declare (not safe)) + (##car _e5061951253_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5061851256_)) + (let ((_e5062251261_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd5061851256_)))) + (let ((_tl5062051266_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e5062251261_))) + (_hd5062151264_ + (let () (declare (not safe)) (##car _e5062251261_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5062051266_)) + (let ((_e5062551269_ + (let () + (declare (not safe)) + (gx#stx-e _tl5062051266_)))) + (let ((_tl5062351274_ + (let () + (declare (not safe)) + (##cdr _e5062551269_))) + (_hd5062451272_ + (let () + (declare (not safe)) + (##car _e5062551269_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5062351274_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5061751258_)) + (___kont5846658467_ + _hd5062451272_ + _hd5059151563_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (___kont5847658477_)) + (___kont5847658477_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5847658477_)))) + (___kont5847658477_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059051565_)) + (let ((_e5061951253_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059051565_)))) + (let ((_tl5061751258_ + (let () + (declare (not safe)) + (##cdr _e5061951253_))) + (_hd5061851256_ + (let () + (declare (not safe)) + (##car _e5061951253_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5061851256_)) + (let ((_e5062251261_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5061851256_)))) + (let ((_tl5062051266_ + (let () + (declare (not safe)) + (##cdr _e5062251261_))) + (_hd5062151264_ + (let () + (declare (not safe)) + (##car _e5062251261_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5062151264_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5062051266_)) + (let ((_e5062551269_ + (let () + (declare (not safe)) + (gx#stx-e _tl5062051266_)))) + (let ((_tl5062351274_ + (let () + (declare (not safe)) + (##cdr _e5062551269_))) + (_hd5062451272_ + (let () + (declare (not safe)) + (##car _e5062551269_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5062351274_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5061751258_)) + (___kont5846658467_ + _hd5062451272_ + _hd5059151563_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (___kont5847658477_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5847658477_)))) + (___kont5847658477_)))) + (___kont5847658477_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059051565_)) + (let ((_e5061951253_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059051565_)))) + (let ((_tl5061751258_ + (let () + (declare (not safe)) + (##cdr _e5061951253_))) + (_hd5061851256_ + (let () + (declare (not safe)) + (##car _e5061951253_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5061851256_)) + (let ((_e5062251261_ + (let () + (declare (not safe)) + (gx#stx-e _hd5061851256_)))) + (let ((_tl5062051266_ + (let () + (declare (not safe)) + (##cdr _e5062251261_))) + (_hd5062151264_ + (let () + (declare (not safe)) + (##car _e5062251261_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5062051266_)) + (let ((_e5062551269_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5062051266_)))) + (let ((_tl5062351274_ + (let () (declare (not safe)) (##cdr _e5062551269_))) + (_hd5062451272_ + (let () (declare (not safe)) (##car _e5062551269_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5062351274_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5061751258_)) + (___kont5846658467_ + _hd5062451272_ + _hd5059151563_ + _hd5058851555_) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5064951165_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5064751170_ + (let () + (declare (not safe)) + (##cdr _e5064951165_))) + (_hd5064851168_ + (let () + (declare (not safe)) + (##car _e5064951165_)))) + (___kont5847658477_))) + (___kont5847658477_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote-syntax + _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5070950925_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5070750930_ + (let () + (declare (not safe)) + (##cdr _e5070950925_))) + (_hd5070850928_ + (let () + (declare (not safe)) + (##car _e5070950925_)))) + (___kont5847658477_))) + (___kont5847658477_)) + (___kont5847658477_)))) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5064951165_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5064751170_ + (let () + (declare (not safe)) + (##cdr _e5064951165_))) + (_hd5064851168_ + (let () + (declare (not safe)) + (##car _e5064951165_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5064751170_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5061751258_)) + (___kont5846858469_ + _hd5061851256_ + _hd5064851168_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote-syntax _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5070950925_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5070750930_ + (let () + (declare (not safe)) + (##cdr _e5070950925_))) + (_hd5070850928_ + (let () + (declare (not safe)) + (##car _e5070950925_)))) + (___kont5847658477_))) + (___kont5847658477_)) + (___kont5847658477_)))))) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5064951165_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5064751170_ + (let () + (declare (not safe)) + (##cdr _e5064951165_))) + (_hd5064851168_ + (let () + (declare (not safe)) + (##car _e5064951165_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5064751170_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5061751258_)) + (___kont5846858469_ + _hd5061851256_ + _hd5064851168_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote-syntax _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5070950925_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5070750930_ + (let () + (declare (not safe)) + (##cdr _e5070950925_))) + (_hd5070850928_ + (let () + (declare (not safe)) + (##car _e5070950925_)))) + (___kont5847658477_))) + (___kont5847658477_)) + (___kont5847658477_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5059451571_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5064951165_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5064751170_ + (let () + (declare (not safe)) + (##cdr _e5064951165_))) + (_hd5064851168_ + (let () + (declare (not safe)) + (##car _e5064951165_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5064751170_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5061751258_)) + (___kont5846858469_ + _hd5061851256_ + _hd5064851168_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote-syntax _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5070950925_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5070750930_ + (let () + (declare (not safe)) + (##cdr _e5070950925_))) + (_hd5070850928_ + (let () + (declare (not safe)) + (##car _e5070950925_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5070750930_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5062051266_)) + (let ((_e5071850949_ + (let () + (declare (not safe)) + (gx#stx-e _tl5062051266_)))) + (let ((_tl5071650954_ + (let () + (declare (not safe)) + (##cdr _e5071850949_))) + (_hd5071750952_ + (let () + (declare (not safe)) + (##car _e5071850949_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5071650954_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5061751258_)) + (___kont5847258473_ + _hd5071750952_ + _hd5070850928_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (___kont5847658477_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5059351573_)) + (let ((_e5064951165_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5064751170_ + (let () (declare (not safe)) (##cdr _e5064951165_))) + (_hd5064851168_ + (let () (declare (not safe)) (##car _e5064951165_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5064751170_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5061751258_)) + (___kont5846858469_ + _hd5061851256_ + _hd5064851168_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote-syntax + _hd5059451571_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5070950925_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5070750930_ + (let () + (declare (not safe)) + (##cdr _e5070950925_))) + (_hd5070850928_ + (let () + (declare (not safe)) + (##car _e5070950925_)))) + (___kont5847658477_))) + (___kont5847658477_)) + (___kont5847658477_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5059351573_)) + (let ((_e5064951165_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5059351573_)))) + (let ((_tl5064751170_ + (let () + (declare + (not safe)) + (##cdr _e5064951165_))) + (_hd5064851168_ + (let () + (declare + (not safe)) + (##car _e5064951165_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5064751170_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl5061751258_)) + (___kont5846858469_ + _hd5061851256_ + _hd5064851168_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5847658477_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote-syntax + _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5059351573_)) + (let ((_e5070950925_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5059351573_)))) + (let ((_tl5070750930_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e5070950925_))) + (_hd5070850928_ + (let () (declare (not safe)) (##car _e5070950925_)))) + (___kont5847658477_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5847658477_)) + (___kont5847658477_)))))) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5064951165_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059351573_)))) + (let ((_tl5064751170_ + (let () + (declare (not safe)) + (##cdr _e5064951165_))) + (_hd5064851168_ + (let () + (declare (not safe)) + (##car _e5064951165_)))) + (___kont5847658477_))) + (___kont5847658477_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote-syntax + _hd5059451571_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059351573_)) + (let ((_e5070950925_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5059351573_)))) + (let ((_tl5070750930_ + (let () + (declare (not safe)) + (##cdr _e5070950925_))) + (_hd5070850928_ + (let () + (declare (not safe)) + (##car _e5070950925_)))) + (___kont5847658477_))) + (___kont5847658477_)) + (___kont5847658477_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059051565_)) + (let ((_e5061951253_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059051565_)))) + (let ((_tl5061751258_ + (let () + (declare (not safe)) + (##cdr _e5061951253_))) + (_hd5061851256_ + (let () + (declare (not safe)) + (##car _e5061951253_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5061851256_)) + (let ((_e5062251261_ + (let () + (declare (not safe)) + (gx#stx-e _hd5061851256_)))) + (let ((_tl5062051266_ + (let () + (declare (not safe)) + (##cdr _e5062251261_))) + (_hd5062151264_ + (let () + (declare (not safe)) + (##car _e5062251261_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5062051266_)) + (let ((_e5062551269_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5062051266_)))) + (let ((_tl5062351274_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e5062551269_))) + (_hd5062451272_ + (let () (declare (not safe)) (##car _e5062551269_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5062351274_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5061751258_)) + (___kont5846658467_ + _hd5062451272_ + _hd5059151563_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5847658477_)) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)))) + (___kont5847658477_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5059051565_)) + (let ((_e5061951253_ + (let () + (declare (not safe)) + (gx#stx-e _tl5059051565_)))) + (let ((_tl5061751258_ + (let () + (declare (not safe)) + (##cdr _e5061951253_))) + (_hd5061851256_ + (let () + (declare (not safe)) + (##car _e5061951253_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5061851256_)) + (let ((_e5062251261_ + (let () + (declare (not safe)) + (gx#stx-e _hd5061851256_)))) + (let ((_tl5062051266_ + (let () + (declare (not safe)) + (##cdr _e5062251261_))) + (_hd5062151264_ + (let () + (declare (not safe)) + (##car _e5062251261_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd5062151264_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5062051266_)) + (let ((_e5062551269_ + (let () + (declare (not safe)) + (gx#stx-e + _tl5062051266_)))) + (let ((_tl5062351274_ + (let () + (declare (not safe)) + (##cdr _e5062551269_))) + (_hd5062451272_ + (let () + (declare (not safe)) + (##car _e5062551269_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5062351274_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5061751258_)) + (___kont5846658467_ + _hd5062451272_ + _hd5059151563_ + _hd5058851555_) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)))) + (___kont5847658477_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#lambda _hd5058551547_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5058451549_)) + (let ((_e5073350789_ + (let () + (declare (not safe)) + (gx#stx-e _tl5058451549_)))) + (let ((_tl5073150794_ + (let () + (declare (not safe)) + (##cdr _e5073350789_))) + (_hd5073250792_ + (let () + (declare (not safe)) + (##car _e5073350789_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd5073250792_)) + (let ((_e5073650797_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5073250792_)))) + (let ((_tl5073450802_ + (let () + (declare + (not safe)) + (##cdr _e5073650797_))) + (_hd5073550800_ + (let () + (declare + (not safe)) + (##car _e5073650797_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl5073450802_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl5073150794_)) + (let ((_e5073950805_ + (let () + (declare (not safe)) + (gx#stx-e _tl5073150794_)))) + (let ((_tl5073750810_ + (let () + (declare (not safe)) + (##cdr _e5073950805_))) + (_hd5073850808_ + (let () + (declare (not safe)) + (##car _e5073950805_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5073750810_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl5058151541_)) + (let ((_e5074250813_ + (let () + (declare (not safe)) + (gx#stx-e _tl5058151541_)))) + (let ((_tl5074050818_ + (let () + (declare (not safe)) + (##cdr _e5074250813_))) + (_hd5074150816_ + (let () + (declare (not safe)) + (##car _e5074250813_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5074150816_)) + (let ((_e5074550821_ + (let () + (declare (not safe)) + (gx#stx-e _hd5074150816_)))) + (let ((_tl5074350826_ + (let () + (declare (not safe)) + (##cdr _e5074550821_))) + (_hd5074450824_ + (let () + (declare (not safe)) + (##car _e5074550821_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd5074450824_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd5074450824_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5074350826_)) + (let ((_e5074850829_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl5074350826_)))) + (let ((_tl5074650834_ + (let () (declare (not safe)) (##cdr _e5074850829_))) + (_hd5074750832_ + (let () (declare (not safe)) (##car _e5074850829_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5074650834_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5074050818_)) + (___kont5847458475_ + _hd5074750832_ + _hd5073850808_ + _hd5073550800_) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)))) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_)) + (___kont5847658477_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5847658477_)))) + (___kont5847658477_)) + (___kont5847658477_))) + (___kont5847658477_)))) + (___kont5847658477_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5847658477_)) + (___kont5847658477_)) + (___kont5847658477_)))) + (___kont5847658477_))))))))) + (_assert-type49550_ + (lambda (_id50449_ _t50450_) + (letrec ((_super-e50452_ + (lambda (_t50549_) + (let ((_tid5055050552_ + (##structure-ref + _t50549_ + '2 + gxc#!struct-type::t + '#f))) + (if _tid5055050552_ + (let ((_tid50555_ _tid5055050552_)) + (declare (not safe)) + (gxc#optimizer-resolve-type + _tid50555_)) + '#f))))) + (let _lp50454_ ((_rest50456_ _env-type49532_)) + (let* ((_rest5045750465_ _rest50456_) + (_else5045950473_ (lambda () '#!void)) + (_K5046150537_ + (lambda (_rest50476_ _type-info50477_) + (let* ((_type-info5047850490_ + _type-info50477_) + (_else5048050498_ + (lambda () + (let () + (declare (not safe)) + (_lp50454_ _rest50476_)))) + (_K5048250513_ + (lambda (_val50501_ + _xt50502_ + _xid50503_) + (if (let () + (declare (not safe)) + (gx#free-identifier=? + _id50449_ + _xid50503_)) + (if (let () + (declare (not safe)) + (eq? _t50450_ + _xt50502_)) + _val50501_ + (if _val50501_ + (if (and (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##structure-instance-of? + _t50450_ + 'gxc#!struct-type::t)) + (let () + (declare (not safe)) + (##structure-instance-of? + _xt50502_ + 'gxc#!struct-type::t))) + (let _subtype?50505_ ((_xt50507_ + (let () + (declare (not safe)) + (_super-e50452_ _xt50502_)))) + (if (let () (declare (not safe)) (not _xt50507_)) + '#f + (if (let () + (declare (not safe)) + (eq? _xt50507_ _t50450_)) + '#t + (let ((__tmp60294 + (let () + (declare (not safe)) + (_super-e50452_ _xt50507_)))) + (declare (not safe)) + (_subtype?50505_ __tmp60294))))) + '#f) + (if (and (let () + (declare (not safe)) + (##structure-instance-of? + _t50450_ + 'gxc#!struct-type::t)) + (let () + (declare (not safe)) + (##structure-instance-of? + _xt50502_ + 'gxc#!struct-type::t))) + (let _supertype?50509_ ((_t50511_ + (let () + (declare (not safe)) + (_super-e50452_ _t50450_)))) + (if (let () (declare (not safe)) (not _t50511_)) + (let () + (declare (not safe)) + (_lp50454_ _rest50476_)) + (if (let () + (declare (not safe)) + (eq? _t50511_ _xt50502_)) + '#f + (let ((__tmp60293 + (let () + (declare (not safe)) + (_super-e50452_ _t50511_)))) + (declare (not safe)) + (_supertype?50509_ __tmp60293))))) + (let () (declare (not safe)) (_lp50454_ _rest50476_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_lp50454_ _rest50476_)))))) + (if (let () + (declare (not safe)) + (##pair? _type-info5047850490_)) + (let ((_hd5048350516_ + (let () + (declare (not safe)) + (##car _type-info5047850490_))) + (_tl5048450518_ + (let () + (declare (not safe)) + (##cdr _type-info5047850490_)))) + (let ((_xid50521_ _hd5048350516_)) + (if (let () + (declare (not safe)) + (##pair? _tl5048450518_)) + (let ((_hd5048550523_ + (let () + (declare (not safe)) + (##car _tl5048450518_))) + (_tl5048650525_ + (let () + (declare (not safe)) + (##cdr _tl5048450518_)))) + (let ((_xt50528_ + _hd5048550523_)) + (if (let () + (declare (not safe)) + (##pair? _tl5048650525_)) + (let ((_hd5048750530_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _tl5048650525_))) + (_tl5048850532_ + (let () (declare (not safe)) (##cdr _tl5048650525_)))) + (let ((_val50535_ _hd5048750530_)) + (if (let () (declare (not safe)) (##null? _tl5048850532_)) + (let () + (declare (not safe)) + (_K5048250513_ _val50535_ _xt50528_ _xid50521_)) + (let () (declare (not safe)) (_else5048050498_))))) + (let () (declare (not safe)) (_else5048050498_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_else5048050498_))))) + (let () + (declare (not safe)) + (_else5048050498_))))))) + (if (let () + (declare (not safe)) + (##pair? _rest5045750465_)) + (let ((_hd5046250540_ + (let () + (declare (not safe)) + (##car _rest5045750465_))) + (_tl5046350542_ + (let () + (declare (not safe)) + (##cdr _rest5045750465_)))) + (let* ((_type-info50545_ _hd5046250540_) + (_rest50547_ _tl5046350542_)) + (declare (not safe)) + (_K5046150537_ + _rest50547_ + _type-info50545_))) + (let () + (declare (not safe)) + (_else5045950473_)))))))) + (_assert-count49551_ + (lambda (_id50348_ _sym50349_ _count50350_) + (let _lp50352_ ((_rest50354_ _env-type49532_)) + (let* ((_rest5035550363_ _rest50354_) + (_else5035750371_ (lambda () '#!void)) + (_K5035950437_ + (lambda (_rest50374_ _type-info50375_) + (let* ((_type-info5037650390_ + _type-info50375_) + (_else5037850398_ + (lambda () + (let () + (declare (not safe)) + (_lp50352_ _rest50374_)))) + (_K5038050406_ + (lambda (_val50401_ + _xcount50402_ + _xsym50403_ + _xid50404_) + (if (and (let () + (declare (not safe)) + (eq? _sym50349_ + _xsym50403_)) + (let () + (declare (not safe)) + (gx#free-identifier=? + _id50348_ + _xid50404_))) + (if _val50401_ + (fx= _count50350_ + _xcount50402_) + (if (fx= _count50350_ + _xcount50402_) + '#f + (let () + (declare (not safe)) + (_lp50352_ + _rest50374_)))) + (let () + (declare (not safe)) + (_lp50352_ _rest50374_)))))) + (if (let () + (declare (not safe)) + (##pair? _type-info5037650390_)) + (let ((_hd5038150409_ + (let () + (declare (not safe)) + (##car _type-info5037650390_))) + (_tl5038250411_ + (let () + (declare (not safe)) + (##cdr _type-info5037650390_)))) + (let ((_xid50414_ _hd5038150409_)) + (if (let () + (declare (not safe)) + (##pair? _tl5038250411_)) + (let ((_hd5038350416_ + (let () + (declare (not safe)) + (##car _tl5038250411_))) + (_tl5038450418_ + (let () + (declare (not safe)) + (##cdr _tl5038250411_)))) + (let ((_xsym50421_ + _hd5038350416_)) + (if (let () + (declare (not safe)) + (##pair? _tl5038450418_)) + (let ((_hd5038550423_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _tl5038450418_))) + (_tl5038650425_ + (let () (declare (not safe)) (##cdr _tl5038450418_)))) + (let ((_xcount50428_ _hd5038550423_)) + (if (let () (declare (not safe)) (##pair? _tl5038650425_)) + (let ((_hd5038750430_ + (let () + (declare (not safe)) + (##car _tl5038650425_))) + (_tl5038850432_ + (let () + (declare (not safe)) + (##cdr _tl5038650425_)))) + (let ((_val50435_ _hd5038750430_)) + (if (let () + (declare (not safe)) + (##null? _tl5038850432_)) + (let () + (declare (not safe)) + (_K5038050406_ + _val50435_ + _xcount50428_ + _xsym50421_ + _xid50414_)) + (let () + (declare (not safe)) + (_else5037850398_))))) + (let () (declare (not safe)) (_else5037850398_))))) + (let () (declare (not safe)) (_else5037850398_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_else5037850398_))))) + (let () + (declare (not safe)) + (_else5037850398_))))))) + (if (let () + (declare (not safe)) + (##pair? _rest5035550363_)) + (let ((_hd5036050440_ + (let () + (declare (not safe)) + (##car _rest5035550363_))) + (_tl5036150442_ + (let () + (declare (not safe)) + (##cdr _rest5035550363_)))) + (let* ((_type-info50445_ _hd5036050440_) + (_rest50447_ _tl5036150442_)) + (declare (not safe)) + (_K5035950437_ _rest50447_ _type-info50445_))) + (let () + (declare (not safe)) + (_else5035750371_))))))) + (_assert-eqf49552_ + (lambda (_id50238_ _sym50239_ _datum50240_) + (letrec ((_eqf50242_ + (lambda (_sym50343_) + (let ((_$e50345_ _sym50343_)) + (if (let () + (declare (not safe)) + (eq? 'eq? _$e50345_)) + eq? + (if (let () + (declare (not safe)) + (eq? 'eqv? _$e50345_)) + eqv? + (if (let () + (declare (not safe)) + (eq? 'equal? _$e50345_)) + equal? + (if (let () + (declare (not safe)) + (eq? 'free-identifier=? + _$e50345_)) + gx#free-identifier=? + (if (let () + (declare (not safe)) + (eq? 'stx-eq? + _$e50345_)) + gx#stx-eq? + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Unexpected eqf symbol" + _body49293_ + _sym50343_))))))))))) + (let _lp50244_ ((_rest50246_ _env-type49532_)) + (let* ((_rest5024750255_ _rest50246_) + (_else5024950263_ (lambda () '#!void)) + (_K5025150331_ + (lambda (_rest50266_ _type-info50267_) + (let* ((_type-info5026850282_ + _type-info50267_) + (_else5027050290_ + (lambda () + (let () + (declare (not safe)) + (_lp50244_ _rest50266_)))) + (_K5027250300_ + (lambda (_val50293_ + _xdatum50294_ + _xsym50295_ + _xid50296_) + (if (and (let () + (declare (not safe)) + (eq? _sym50239_ + _xsym50295_)) + (let () + (declare (not safe)) + (gx#free-identifier=? + _id50238_ + _xid50296_))) + (let ((_=?50298_ + (let () + (declare (not safe)) + (_eqf50242_ + _sym50239_)))) + (if _val50293_ + (_=?50298_ + _datum50240_ + _xdatum50294_) + (if (_=?50298_ + _datum50240_ + _xdatum50294_) + '#f + (let () + (declare + (not safe)) + (_lp50244_ + _rest50266_))))) + (let () + (declare (not safe)) + (_lp50244_ _rest50266_)))))) + (if (let () + (declare (not safe)) + (##pair? _type-info5026850282_)) + (let ((_hd5027350303_ + (let () + (declare (not safe)) + (##car _type-info5026850282_))) + (_tl5027450305_ + (let () + (declare (not safe)) + (##cdr _type-info5026850282_)))) + (let ((_xid50308_ _hd5027350303_)) + (if (let () + (declare (not safe)) + (##pair? _tl5027450305_)) + (let ((_hd5027550310_ + (let () + (declare (not safe)) + (##car _tl5027450305_))) + (_tl5027650312_ + (let () + (declare (not safe)) + (##cdr _tl5027450305_)))) + (let ((_xsym50315_ + _hd5027550310_)) + (if (let () + (declare (not safe)) + (##pair? _tl5027650312_)) + (let ((_hd5027750317_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _tl5027650312_))) + (_tl5027850319_ + (let () (declare (not safe)) (##cdr _tl5027650312_)))) + (let ((_xdatum50322_ _hd5027750317_)) + (if (let () (declare (not safe)) (##pair? _tl5027850319_)) + (let ((_hd5027950324_ + (let () + (declare (not safe)) + (##car _tl5027850319_))) + (_tl5028050326_ + (let () + (declare (not safe)) + (##cdr _tl5027850319_)))) + (let ((_val50329_ _hd5027950324_)) + (if (let () + (declare (not safe)) + (##null? _tl5028050326_)) + (let () + (declare (not safe)) + (_K5027250300_ + _val50329_ + _xdatum50322_ + _xsym50315_ + _xid50308_)) + (let () + (declare (not safe)) + (_else5027050290_))))) + (let () (declare (not safe)) (_else5027050290_))))) + (let () (declare (not safe)) (_else5027050290_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_else5027050290_))))) + (let () + (declare (not safe)) + (_else5027050290_))))))) + (if (let () + (declare (not safe)) + (##pair? _rest5024750255_)) + (let ((_hd5025250334_ + (let () + (declare (not safe)) + (##car _rest5024750255_))) + (_tl5025350336_ + (let () + (declare (not safe)) + (##cdr _rest5024750255_)))) + (let* ((_type-info50339_ _hd5025250334_) + (_rest50341_ _tl5025350336_)) + (declare (not safe)) + (_K5025150331_ + _rest50341_ + _type-info50339_))) + (let () + (declare (not safe)) + (_else5024950263_)))))))) + (_bind-e__5687556876_ + (lambda (_bind50141_ _body50142_ _continue50143_) + (let _lp50145_ ((_rest50147_ _bind50141_) + (_subst50148_ '()) + (_locals50149_ '()) + (_env50150_ _env-bind49533_)) + (let* ((_rest5015150159_ _rest50147_) + (_else5015350173_ + (lambda () + (let* ((_body50167_ + (if (let () + (declare (not safe)) + (null? _subst50148_)) + _body50142_ + (let () + (declare (not safe)) + (gxc#apply-expression-subst* + _body50142_ + _subst50148_)))) + (_body50170_ + (let ((__tmp60295 + (lambda () + (_continue50143_ + _body50167_)))) + (declare (not safe)) + (_do-bind!49544_ + _env50150_ + __tmp60295)))) + (if (let () + (declare (not safe)) + (null? _locals50149_)) + _body50170_ + (let ((__tmp60296 + (let ((__tmp60297 + (let () + (declare (not safe)) + (cons _body50170_ + '())))) + (declare (not safe)) + (cons _locals50149_ + __tmp60297)))) + (declare (not safe)) + (cons '%#let-values __tmp60296)))))) + (_K5015550214_ + (lambda (_rest50176_ _bind50177_) + (let* ((_bind5017850185_ _bind50177_) + (_E5018050189_ + (lambda () + (error '"No clause matching" + _bind5017850185_))) + (_K5018150202_ + (lambda (_expr50192_ _id50193_) + (let* ((_sexpr50195_ + (let () + (declare (not safe)) + (gxc#apply-generate-runtime-repr + _expr50192_))) + (_$e50197_ + (let () + (declare (not safe)) + (assget _sexpr50195_ + _env-bind49533_)))) + (if _$e50197_ + ((lambda (_xid50200_) + (let ((__tmp60304 + (let ((__tmp60305 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _id50193_ _xid50200_)))) + (declare (not safe)) + (cons __tmp60305 _subst50148_)))) + (declare (not safe)) + (_lp50145_ _rest50176_ __tmp60304 _locals50149_ _env50150_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _$e50197_) + (let ((__tmp60300 + (let ((__tmp60301 + (let ((__tmp60303 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _id50193_ '()))) + (__tmp60302 + (let () + (declare (not safe)) + (cons _expr50192_ '())))) + (declare (not safe)) + (cons __tmp60303 __tmp60302)))) + (declare (not safe)) + (cons __tmp60301 _locals50149_))) + (__tmp60298 + (let ((__tmp60299 + (let () + (declare (not safe)) + (cons _sexpr50195_ _id50193_)))) + (declare (not safe)) + (cons __tmp60299 _env50150_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp50145_ + _rest50176_ + _subst50148_ + __tmp60300 + __tmp60298))))))) + (if (let () + (declare (not safe)) + (##pair? _bind5017850185_)) + (let ((_hd5018250205_ + (let () + (declare (not safe)) + (##car _bind5017850185_))) + (_tl5018350207_ + (let () + (declare (not safe)) + (##cdr _bind5017850185_)))) + (let* ((_id50210_ _hd5018250205_) + (_expr50212_ _tl5018350207_)) + (declare (not safe)) + (_K5018150202_ + _expr50212_ + _id50210_))) + (let () + (declare (not safe)) + (_E5018050189_))))))) + (if (let () + (declare (not safe)) + (##pair? _rest5015150159_)) + (let ((_hd5015650217_ + (let () + (declare (not safe)) + (##car _rest5015150159_))) + (_tl5015750219_ + (let () + (declare (not safe)) + (##cdr _rest5015150159_)))) + (let* ((_bind50222_ _hd5015650217_) + (_rest50224_ _tl5015750219_)) + (declare (not safe)) + (_K5015550214_ _rest50224_ _bind50222_))) + (let () + (declare (not safe)) + (_else5015350173_))))))) + (_bind-e__0__5687756878_ + (lambda (_bind50229_ _body50230_) + (let ((_continue50232_ _optimize-e49546_)) + (declare (not safe)) + (_bind-e__5687556876_ + _bind50229_ + _body50230_ + _continue50232_)))) + (_bind-e49553_ + (lambda _g60307_ + (let ((_g60306_ + (let () (declare (not safe)) (##length _g60307_)))) + (cond ((let () (declare (not safe)) (##fx= _g60306_ 2)) + (apply (lambda (_bind50229_ _body50230_) + (let () + (declare (not safe)) + (_bind-e__0__5687756878_ + _bind50229_ + _body50230_))) + _g60307_)) + ((let () (declare (not safe)) (##fx= _g60306_ 3)) + (apply (lambda (_bind50234_ + _body50235_ + _continue50236_) + (let () + (declare (not safe)) + (_bind-e__5687556876_ + _bind50234_ + _body50235_ + _continue50236_))) + _g60307_)) + (else + (##raise-wrong-number-of-arguments-exception + 'case-lambda-dispatch + _g60307_)))))) + (_lookup-block49554_ + (lambda (_id50136_) + (let ((__tmp60308 + (lambda (_block50138_) + (let ((__tmp60309 + (let () + (declare (not safe)) + (car _block50138_)))) + (declare (not safe)) + (gx#free-identifier=? __tmp60309 _id50136_))))) + (declare (not safe)) + (find __tmp60308 _blocks49296_)))) + (_inline-block49555_ + (lambda (_block50012_ _args50013_) + (let* ((_kont50015_ + (let () + (declare (not safe)) + (caddr _block50012_))) + (_g5001750043_ + (lambda (_g5001850040_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g5001850040_)))) + (_g5001650133_ + (lambda (_g5001850046_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g5001850046_)) + (let ((_e5002350048_ + (let () + (declare (not safe)) + (gx#stx-e _g5001850046_)))) + (let ((_hd5002250051_ + (let () + (declare (not safe)) + (##car _e5002350048_))) + (_tl5002150053_ + (let () + (declare (not safe)) + (##cdr _e5002350048_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd5002250051_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd5002250051_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5002150053_)) + (let ((_e5002650056_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5002150053_)))) + (let ((_hd5002550059_ + (let () + (declare + (not safe)) + (##car _e5002650056_))) + (_tl5002450061_ + (let () + (declare + (not safe)) + (##cdr _e5002650056_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair/null? + _hd5002550059_)) + (let ((_g60310_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#syntax-split-splice _hd5002550059_ '0)))) + (begin + (let ((_g60311_ + (let () + (declare (not safe)) + (if (##values? _g60310_) + (##vector-length _g60310_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g60311_ 2))) + (error "Context expects 2 values" _g60311_))) + (let ((_target5002750064_ + (let () + (declare (not safe)) + (##vector-ref _g60310_ 0))) + (_tl5002950066_ + (let () + (declare (not safe)) + (##vector-ref _g60310_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl5002950066_)) + (letrec ((_loop5003050069_ + (lambda (_hd5002850072_ _id5003450074_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd5002850072_)) + (let ((_e5003150077_ + (let () + (declare (not safe)) + (gx#stx-e + _hd5002850072_)))) + (let ((_lp-hd5003250080_ + (let () + (declare (not safe)) + (##car _e5003150077_))) + (_lp-tl5003350082_ + (let () + (declare (not safe)) + (##cdr _e5003150077_)))) + (let ((__tmp60316 + (let () + (declare (not safe)) + (cons _lp-hd5003250080_ + _id5003450074_)))) + (declare (not safe)) + (_loop5003050069_ + _lp-tl5003350082_ + __tmp60316)))) + (let ((_id5003550085_ + (let () + (declare (not safe)) + (reverse _id5003450074_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl5002450061_)) + (let ((_e5003850088_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl5002450061_)))) + (let ((_hd5003750091_ + (let () + (declare + (not safe)) + (##car _e5003850088_))) + (_tl5003650093_ + (let () + (declare + (not safe)) + (##cdr _e5003850088_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl5003650093_)) + ((lambda (_L50096_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L50097_) + (if (let ((__tmp60314 + (let ((__tmp60315 + (lambda (_g5011650119_ _g5011750121_) + (let () + (declare (not safe)) + (cons _g5011650119_ + _g5011750121_))))) + (declare (not safe)) + (foldr1 __tmp60315 '() _L50097_)))) + (declare (not safe)) + (null? __tmp60314)) + _L50096_ + (let ((_subst50131_ + (let ((__tmp60312 + (let ((__tmp60313 + (lambda (_g5012350126_ + _g5012450128_) + (let () + (declare (not safe)) + (cons _g5012350126_ + _g5012450128_))))) + (declare (not safe)) + (foldr1 __tmp60313 '() _L50097_)))) + (declare (not safe)) + (map cons __tmp60312 _args50013_)))) + (declare (not safe)) + (gxc#apply-expression-subst* + _L50096_ + _subst50131_)))) + _hd5003750091_ + _id5003550085_) + (let () + (declare (not safe)) + (_g5001750043_ _g5001850046_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5001750043_ + _g5001850046_)))))))) + (let () + (declare (not safe)) + (_loop5003050069_ _target5002750064_ '()))) + (let () + (declare (not safe)) + (_g5001750043_ _g5001850046_)))))) + (let () + (declare (not safe)) + (_g5001750043_ _g5001850046_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g5001750043_ + _g5001850046_))) + (let () + (declare (not safe)) + (_g5001750043_ + _g5001850046_))) + (let () + (declare (not safe)) + (_g5001750043_ _g5001850046_))))) + (let () + (declare (not safe)) + (_g5001750043_ _g5001850046_)))))) + (declare (not safe)) + (_g5001650133_ _kont50015_)))) + (_nonlinear-block?49556_ + (lambda (_block49561_) + (letrec ((_nonlinear-expr?49563_ + (lambda (_expr49671_) + (let* ((___stx5893258933_ _expr49671_) + (_g4967749743_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5893258933_))))) + (let ((___kont5893458935_ (lambda () '#t)) + (___kont5893658937_ + (lambda (_L49942_) + (let* ((___stx5891458915_ _L49942_) + (_g4996049969_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5891458915_))))) + (let ((___kont5891658917_ + (lambda () '#f)) + (___kont5891858919_ + (lambda () '#t))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx5891458915_)) + (let ((_e4996449981_ + (let () + (declare + (not safe)) + (gx#stx-e + ___stx5891458915_)))) + (let ((_tl4996249986_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e4996449981_))) + (_hd4996349984_ + (let () (declare (not safe)) (##car _e4996449981_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4996349984_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd4996349984_)) + (___kont5891658917_) + (___kont5891858919_)) + (___kont5891858919_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5891858919_)))))) + (___kont5894058941_ + (lambda (_L49840_) + (let () + (declare (not safe)) + (_nonlinear-expr?49563_ + _L49840_)))) + (___kont5894258943_ + (lambda (_L49787_ _L49788_ _L49789_) + (let ((_$e49808_ + (let () + (declare (not safe)) + (_nonlinear-expr?49563_ + _L49788_)))) + (if _$e49808_ + _$e49808_ + (let () + (declare (not safe)) + (_nonlinear-expr?49563_ + _L49787_)))))) + (___kont5894458945_ (lambda () '#f))) + (let* ((___match5899558996_ + (lambda (_e4971749816_ + _hd4971649819_ + _tl4971549821_ + _e4972049824_ + _hd4971949827_ + _tl4971849829_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4971849829_)) + (let ((_e4972349832_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl4971849829_)))) + (let ((_tl4972149837_ + (let () + (declare + (not safe)) + (##cdr _e4972349832_))) + (_hd4972249835_ + (let () + (declare + (not safe)) + (##car _e4972349832_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl4972149837_)) + (___kont5894058941_ + _hd4972249835_) + (___kont5894458945_)))) + (___kont5894458945_)))) + (___match5897958980_ + (lambda (_e4968549858_ + _hd4968449861_ + _tl4968349863_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_ + ___splice5893858939_ + _target4968949874_ + _tl4969149876_) + (letrec ((_loop4969249879_ + (lambda (_hd4969049882_) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _hd4969049882_)) + (let ((_e4969349885_ + (let () + (declare (not safe)) + (gx#stx-e _hd4969049882_)))) + (let ((_lp-tl4969549890_ + (let () + (declare (not safe)) + (##cdr _e4969349885_))) + (_lp-hd4969449888_ + (let () + (declare (not safe)) + (##car _e4969349885_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd4969449888_)) + (let ((_e4969849893_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd4969449888_)))) + (let ((_tl4969649898_ + (let () + (declare (not safe)) + (##cdr _e4969849893_))) + (_hd4969749896_ + (let () + (declare (not safe)) + (##car _e4969849893_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4969749896_)) + (let ((_e4970149901_ + (let () + (declare (not safe)) + (gx#stx-e _hd4969749896_)))) + (let ((_tl4969949906_ + (let () + (declare (not safe)) + (##cdr _e4970149901_))) + (_hd4970049904_ + (let () + (declare (not safe)) + (##car _e4970149901_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4969949906_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4969649898_)) + (let ((_e4970449909_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl4969649898_)))) + (let ((_tl4970249914_ + (let () + (declare + (not safe)) + (##cdr _e4970449909_))) + (_hd4970349912_ + (let () + (declare + (not safe)) + (##car _e4970449909_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd4970349912_)) + (let ((_e4970749917_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd4970349912_)))) + (let ((_tl4970549922_ + (let () + (declare (not safe)) + (##cdr _e4970749917_))) + (_hd4970649920_ + (let () + (declare (not safe)) + (##car _e4970749917_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4970649920_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd4970649920_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4970549922_)) + (let ((_e4971049925_ + (let () + (declare (not safe)) + (gx#stx-e _tl4970549922_)))) + (let ((_tl4970849930_ + (let () + (declare (not safe)) + (##cdr _e4971049925_))) + (_hd4970949928_ + (let () + (declare (not safe)) + (##car _e4971049925_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4970849930_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4970249914_)) + (let () + (declare (not safe)) + (_loop4969249879_ + _lp-tl4969549890_)) + (___match5899558996_ + _e4968549858_ + _hd4968449861_ + _tl4968349863_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_)) + (___match5899558996_ + _e4968549858_ + _hd4968449861_ + _tl4968349863_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_)))) + (___match5899558996_ + _e4968549858_ + _hd4968449861_ + _tl4968349863_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_)) + (___match5899558996_ + _e4968549858_ + _hd4968449861_ + _tl4968349863_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_)) + (___match5899558996_ + _e4968549858_ + _hd4968449861_ + _tl4968349863_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_)))) + (___match5899558996_ + _e4968549858_ + _hd4968449861_ + _tl4968349863_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match5899558996_ + _e4968549858_ + _hd4968449861_ + _tl4968349863_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_)) + (___match5899558996_ + _e4968549858_ + _hd4968449861_ + _tl4968349863_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_)))) + (___match5899558996_ + _e4968549858_ + _hd4968449861_ + _tl4968349863_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_)))) + (___match5899558996_ + _e4968549858_ + _hd4968449861_ + _tl4968349863_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_)))) + (let () + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4968649871_)) + (let ((_e4971349934_ + (let () + (declare (not safe)) + (gx#stx-e _tl4968649871_)))) + (let ((_tl4971149939_ + (let () + (declare (not safe)) + (##cdr _e4971349934_))) + (_hd4971249937_ + (let () + (declare (not safe)) + (##car _e4971349934_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4971149939_)) + (___kont5893658937_ _hd4971249937_) + (___kont5894458945_)))) + (___kont5894458945_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop4969249879_ + _target4968949874_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5893258933_)) + (let ((_e4968149999_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx5893258933_)))) + (let ((_tl4967950004_ + (let () + (declare (not safe)) + (##cdr _e4968149999_))) + (_hd4968050002_ + (let () + (declare (not safe)) + (##car _e4968149999_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd4968050002_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#letrec-values + _hd4968050002_)) + (___kont5893458935_) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#let-values + _hd4968050002_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _tl4967950004_)) + (let ((_e4968849866_ + (let () + (declare (not safe)) + (gx#stx-e _tl4967950004_)))) + (let ((_tl4968649871_ + (let () + (declare (not safe)) + (##cdr _e4968849866_))) + (_hd4968749869_ + (let () + (declare (not safe)) + (##car _e4968849866_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd4968749869_)) + (let ((___splice5893858939_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd4968749869_ + '0)))) + (let ((_tl4969149876_ + (let () + (declare (not safe)) + (##vector-ref + ___splice5893858939_ + '1))) + (_target4968949874_ + (let () + (declare (not safe)) + (##vector-ref + ___splice5893858939_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4969149876_)) + (___match5897958980_ + _e4968149999_ + _hd4968050002_ + _tl4967950004_ + _e4968849866_ + _hd4968749869_ + _tl4968649871_ + ___splice5893858939_ + _target4968949874_ + _tl4969149876_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4968649871_)) + (let ((_e4972349832_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4968649871_)))) + (let ((_tl4972149837_ + (let () + (declare (not safe)) + (##cdr _e4972349832_))) + (_hd4972249835_ + (let () + (declare (not safe)) + (##car _e4972349832_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4972149837_)) + (___kont5894058941_ + _hd4972249835_) + (___kont5894458945_)))) + (___kont5894458945_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4968649871_)) + (let ((_e4972349832_ + (let () + (declare (not safe)) + (gx#stx-e _tl4968649871_)))) + (let ((_tl4972149837_ + (let () + (declare (not safe)) + (##cdr _e4972349832_))) + (_hd4972249835_ + (let () + (declare (not safe)) + (##car _e4972349832_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4972149837_)) + (___kont5894058941_ _hd4972249835_) + (___kont5894458945_)))) + (___kont5894458945_))))) + (___kont5894458945_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#if _hd4968050002_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4967950004_)) + (let ((_e4973249763_ + (let () + (declare (not safe)) + (gx#stx-e _tl4967950004_)))) + (let ((_tl4973049768_ + (let () + (declare (not safe)) + (##cdr _e4973249763_))) + (_hd4973149766_ + (let () + (declare (not safe)) + (##car _e4973249763_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4973049768_)) + (let ((_e4973549771_ + (let () + (declare (not safe)) + (gx#stx-e _tl4973049768_)))) + (let ((_tl4973349776_ + (let () + (declare (not safe)) + (##cdr _e4973549771_))) + (_hd4973449774_ + (let () + (declare (not safe)) + (##car _e4973549771_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4973349776_)) + (let ((_e4973849779_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4973349776_)))) + (let ((_tl4973649784_ + (let () + (declare (not safe)) + (##cdr _e4973849779_))) + (_hd4973749782_ + (let () + (declare (not safe)) + (##car _e4973849779_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4973649784_)) + (___kont5894258943_ + _hd4973749782_ + _hd4973449774_ + _hd4973149766_) + (___kont5894458945_)))) + (___kont5894458945_)))) + (___kont5894458945_)))) + (___kont5894458945_)) + (___kont5894458945_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5894458945_)))) + (___kont5894458945_)))))))) + (let* ((_kont49565_ + (let () + (declare (not safe)) + (caddr _block49561_))) + (_g4956749593_ + (lambda (_g4956849590_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4956849590_)))) + (_g4956649668_ + (lambda (_g4956849596_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4956849596_)) + (let ((_e4957349598_ + (let () + (declare (not safe)) + (gx#stx-e _g4956849596_)))) + (let ((_hd4957249601_ + (let () + (declare (not safe)) + (##car _e4957349598_))) + (_tl4957149603_ + (let () + (declare (not safe)) + (##cdr _e4957349598_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4957249601_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd4957249601_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4957149603_)) + (let ((_e4957649606_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl4957149603_)))) + (let ((_hd4957549609_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e4957649606_))) + (_tl4957449611_ + (let () (declare (not safe)) (##cdr _e4957649606_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd4957549609_)) + (let ((_g60317_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _hd4957549609_ '0)))) + (begin + (let ((_g60318_ + (let () + (declare (not safe)) + (if (##values? _g60317_) + (##vector-length _g60317_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g60318_ 2))) + (error "Context expects 2 values" _g60318_))) + (let ((_target4957749614_ + (let () + (declare (not safe)) + (##vector-ref _g60317_ 0))) + (_tl4957949616_ + (let () + (declare (not safe)) + (##vector-ref _g60317_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4957949616_)) + (letrec ((_loop4958049619_ + (lambda (_hd4957849622_ + _id4958449624_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4957849622_)) + (let ((_e4958149627_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4957849622_)))) + (let ((_lp-hd4958249630_ + (let () + (declare (not safe)) + (##car _e4958149627_))) + (_lp-tl4958349632_ + (let () + (declare (not safe)) + (##cdr _e4958149627_)))) + (let ((__tmp60319 + (let () + (declare + (not safe)) + (cons _lp-hd4958249630_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _id4958449624_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_loop4958049619_ + _lp-tl4958349632_ + __tmp60319)))) + (let ((_id4958549635_ + (let () + (declare (not safe)) + (reverse _id4958449624_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4957449611_)) + (let ((_e4958849638_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl4957449611_)))) + (let ((_hd4958749641_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e4958849638_))) + (_tl4958649643_ + (let () (declare (not safe)) (##cdr _e4958849638_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4958649643_)) + ((lambda (_L49646_ _L49647_) + (let () + (declare (not safe)) + (_nonlinear-expr?49563_ _L49646_))) + _hd4958749641_ + _id4958549635_) + (let () + (declare (not safe)) + (_g4956749593_ _g4956849596_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4956749593_ + _g4956849596_)))))))) + (let () + (declare (not safe)) + (_loop4958049619_ _target4957749614_ '()))) + (let () + (declare (not safe)) + (_g4956749593_ _g4956849596_)))))) + (let () + (declare (not safe)) + (_g4956749593_ _g4956849596_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4956749593_ + _g4956849596_))) + (let () + (declare (not safe)) + (_g4956749593_ + _g4956849596_))) + (let () + (declare (not safe)) + (_g4956749593_ + _g4956849596_))))) + (let () + (declare (not safe)) + (_g4956749593_ _g4956849596_)))))) + (declare (not safe)) + (_g4956649668_ _kont49565_)))))) + (let ((__tmp60320 + (lambda () + (let ((__tmp60321 + (lambda () + (if (let ((__tmp60323 + (gxc#current-annotation-optimizer))) + (declare (not safe)) + (memq '@match:prefix __tmp60323)) + (let ((__tmp60322 + (lambda () + (let () + (declare (not safe)) + (_optimize-e49546_ _body49293_))))) + (declare (not safe)) + (_do-splice!49545_ __tmp60322)) + (let () + (declare (not safe)) + (_optimize-e49546_ _body49293_)))))) + (declare (not safe)) + (_do-bind49542_ _bind49295_ __tmp60321))))) + (declare (not safe)) + (_do-assert49535_ _assert49294_ __tmp60320))))) + (define gxc#optimize-match-prune-blocks + (lambda (_blocks49205_ _konts49206_) + (letrec* ((_rtab49208_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp60324 + (lambda (_block49210_) + (let ((__tmp60325 + (let () (declare (not safe)) (caddr _block49210_)))) + (declare (not safe)) + (gxc#apply-collect-runtime-refs + __tmp60325 + _rtab49208_))))) + (declare (not safe)) + (for-each __tmp60324 _konts49206_)) + (let _lp49212_ ((_rest49214_ _blocks49205_) (_r49215_ '())) + (let* ((_rest4921649224_ _rest49214_) + (_else4921849232_ + (lambda () + (let () (declare (not safe)) (reverse _r49215_)))) + (_K4922049281_ + (lambda (_rest49235_ _block49236_) + (let* ((_block4923749248_ _block49236_) + (_E4923949252_ + (lambda () + (error '"No clause matching" + _block4923749248_))) + (_K4924049259_ + (lambda (_kont49255_ _type49256_ _name49257_) + (if (let ((__tmp60327 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _name49257_)))) + (declare (not safe)) + (table-ref _rtab49208_ __tmp60327 '#f)) + (begin + (let () + (declare (not safe)) + (gxc#apply-collect-runtime-refs + _kont49255_ + _rtab49208_)) + (let ((__tmp60326 + (let () + (declare (not safe)) + (cons _block49236_ _r49215_)))) + (declare (not safe)) + (_lp49212_ _rest49235_ __tmp60326))) + (let () + (declare (not safe)) + (_lp49212_ _rest49235_ _r49215_)))))) + (if (let () + (declare (not safe)) + (##pair? _block4923749248_)) + (let ((_hd4924149262_ + (let () + (declare (not safe)) + (##car _block4923749248_))) + (_tl4924249264_ + (let () + (declare (not safe)) + (##cdr _block4923749248_)))) + (let ((_name49267_ _hd4924149262_)) + (if (let () + (declare (not safe)) + (##pair? _tl4924249264_)) + (let ((_hd4924349269_ + (let () + (declare (not safe)) + (##car _tl4924249264_))) + (_tl4924449271_ + (let () + (declare (not safe)) + (##cdr _tl4924249264_)))) + (let ((_type49274_ _hd4924349269_)) + (if (let () + (declare (not safe)) + (##pair? _tl4924449271_)) + (let* ((_hd4924549276_ + (let () + (declare (not safe)) + (##car _tl4924449271_))) + (_kont49279_ + _hd4924549276_)) + (declare (not safe)) + (_K4924049259_ + _kont49279_ + _type49274_ + _name49267_)) + (let () + (declare (not safe)) + (_E4923949252_))))) + (let () + (declare (not safe)) + (_E4923949252_))))) + (let () (declare (not safe)) (_E4923949252_))))))) + (if (let () (declare (not safe)) (##pair? _rest4921649224_)) + (let ((_hd4922149284_ + (let () + (declare (not safe)) + (##car _rest4921649224_))) + (_tl4922249286_ + (let () + (declare (not safe)) + (##cdr _rest4921649224_)))) + (let* ((_block49289_ _hd4922149284_) + (_rest49291_ _tl4922249286_)) + (declare (not safe)) + (_K4922049281_ _rest49291_ _block49289_))) + (let () (declare (not safe)) (_else4921849232_)))))))) + (define gxc#optimize-match-fuse-restart-blocks + (lambda (_blocks49129_ _konts49130_) + (let* ((_blocks4913149147_ _blocks49129_) + (_else4913349155_ (lambda () _blocks49129_)) + (_K4913549173_ + (lambda (_rest49158_ _kont49159_ _name49160_) + (letrec* ((_rtab49162_ + (let () + (declare (not safe)) + (make-table 'test: eq?)))) + (let ((__tmp60328 + (lambda (_block49164_) + (let ((__tmp60329 + (let () + (declare (not safe)) + (caddr _block49164_)))) + (declare (not safe)) + (gxc#apply-collect-runtime-refs + __tmp60329 + _rtab49162_))))) + (declare (not safe)) + (for-each __tmp60328 _konts49130_)) + (if (fx= (let ((__tmp60337 + (let () + (declare (not safe)) + (gxc#identifier-symbol _name49160_)))) + (declare (not safe)) + (table-ref _rtab49162_ __tmp60337)) + '1) + (let* ((_rblock49168_ + (let ((__tmp60330 + (lambda (_block49166_) + (let ((__tmp60332 + (let () + (declare (not safe)) + (caddr _block49166_))) + (__tmp60331 + (let () + (declare (not safe)) + (cons _name49160_ '())))) + (declare (not safe)) + (gxc#apply-find-var-refs + __tmp60332 + __tmp60331))))) + (declare (not safe)) + (find __tmp60330 _konts49130_))) + (_assert49170_ + (let () + (declare (not safe)) + (gxc#optimize-match-assert-restart + _rblock49168_ + _name49160_)))) + (let ((__tmp60333 + (let ((__tmp60334 + (let ((__tmp60335 + (let ((__tmp60336 + (let () + (declare (not safe)) + (cons _assert49170_ + '())))) + (declare (not safe)) + (cons _kont49159_ + __tmp60336)))) + (declare (not safe)) + (cons 'restart: __tmp60335)))) + (declare (not safe)) + (cons _name49160_ __tmp60334)))) + (declare (not safe)) + (cons __tmp60333 _rest49158_))) + _blocks49129_))))) + (if (let () (declare (not safe)) (##pair? _blocks4913149147_)) + (let ((_hd4913649176_ + (let () (declare (not safe)) (##car _blocks4913149147_))) + (_tl4913749178_ + (let () (declare (not safe)) (##cdr _blocks4913149147_)))) + (if (let () (declare (not safe)) (##pair? _hd4913649176_)) + (let ((_hd4913849181_ + (let () + (declare (not safe)) + (##car _hd4913649176_))) + (_tl4913949183_ + (let () + (declare (not safe)) + (##cdr _hd4913649176_)))) + (let ((_name49186_ _hd4913849181_)) + (if (let () + (declare (not safe)) + (##pair? _tl4913949183_)) + (let ((_hd4914049188_ + (let () + (declare (not safe)) + (##car _tl4913949183_))) + (_tl4914149190_ + (let () + (declare (not safe)) + (##cdr _tl4913949183_)))) + (if (let () + (declare (not safe)) + (##eq? _hd4914049188_ 'restart:)) + (if (let () + (declare (not safe)) + (##pair? _tl4914149190_)) + (let ((_hd4914249193_ + (let () + (declare (not safe)) + (##car _tl4914149190_))) + (_tl4914349195_ + (let () + (declare (not safe)) + (##cdr _tl4914149190_)))) + (let ((_kont49198_ _hd4914249193_)) + (if (let () + (declare (not safe)) + (##pair? _tl4914349195_)) + (let ((_tl4914549200_ + (let () + (declare (not safe)) + (##cdr _tl4914349195_)))) + (if (let () + (declare (not safe)) + (##null? _tl4914549200_)) + (let ((_rest49203_ + _tl4913749178_)) + (declare (not safe)) + (_K4913549173_ + _rest49203_ + _kont49198_ + _name49186_)) + (let () + (declare (not safe)) + (_else4913349155_)))) + (let () + (declare (not safe)) + (_else4913349155_))))) + (let () + (declare (not safe)) + (_else4913349155_))) + (let () + (declare (not safe)) + (_else4913349155_)))) + (let () (declare (not safe)) (_else4913349155_))))) + (let () (declare (not safe)) (_else4913349155_)))) + (let () (declare (not safe)) (_else4913349155_)))))) + (define gxc#optimize-match-assert-restart + (lambda (_block48525_ _name48526_) + (letrec ((_assert-restart48528_ + (lambda (_expr48684_ _assert48685_) + (let* ((___stx5903659037_ _expr48684_) + (_g4869148788_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5903659037_))))) + (let ((___kont5903859039_ + (lambda (_L49104_ _L49105_ _L49106_) + (let ((_$e49123_ + (let ((__tmp60338 + (let ((__tmp60339 + (let () + (declare (not safe)) + (cons _L49106_ '#t)))) + (declare (not safe)) + (cons __tmp60339 + _assert48685_)))) + (declare (not safe)) + (_assert-restart48528_ + _L49105_ + __tmp60338)))) + (if _$e49123_ + _$e49123_ + (let ((__tmp60340 + (let ((__tmp60341 + (let () + (declare (not safe)) + (cons _L49106_ '#f)))) + (declare (not safe)) + (cons __tmp60341 + _assert48685_)))) + (declare (not safe)) + (_assert-restart48528_ + _L49104_ + __tmp60340)))))) + (___kont5904059041_ + (lambda (_L49052_) + (if (let () + (declare (not safe)) + (gx#free-identifier=? + _L49052_ + _name48526_)) + _assert48685_ + '#f))) + (___kont5904259043_ + (lambda (_L49002_) + (let () + (declare (not safe)) + (_assert-restart48528_ + _L49002_ + _assert48685_)))) + (___kont5904459045_ + (lambda (_L48928_ + _L48929_ + _L48930_ + _L48931_ + _L48932_) + (let () + (declare (not safe)) + (_assert-restart48528_ + _L48930_ + _assert48685_)))) + (___kont5905059051_ (lambda () '#f))) + (let ((___match5920559206_ + (lambda (_e4873848800_ + _hd4873748803_ + _tl4873648805_ + _e4874148808_ + _hd4874048811_ + _tl4873948813_ + _e4874448816_ + _hd4874348819_ + _tl4874248821_ + _e4874748824_ + _hd4874648827_ + _tl4874548829_ + _e4875048832_ + _hd4874948835_ + _tl4874848837_ + _e4875348840_ + _hd4875248843_ + _tl4875148845_ + _e4875648848_ + _hd4875548851_ + _tl4875448853_ + _e4875948856_ + _hd4875848859_ + _tl4875748861_ + ___splice5904659047_ + _target4876048864_ + _tl4876248866_) + (letrec ((_loop4876348869_ + (lambda (_hd4876148872_ + _id4876748874_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4876148872_)) + (let ((_e4876448877_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4876148872_)))) + (let ((_lp-tl4876648882_ + (let () + (declare + (not safe)) + (##cdr _e4876448877_))) + (_lp-hd4876548880_ + (let () + (declare + (not safe)) + (##car _e4876448877_)))) + (let ((__tmp60343 + (let () + (declare + (not safe)) + (cons _lp-hd4876548880_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _id4876748874_)))) + (declare (not safe)) + (_loop4876348869_ _lp-tl4876648882_ __tmp60343)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_id4876848885_ + (let () + (declare (not safe)) + (reverse _id4876748874_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4875748861_)) + (let ((_e4877148888_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _tl4875748861_)))) + (let ((_tl4876948893_ + (let () (declare (not safe)) (##cdr _e4877148888_))) + (_hd4877048891_ + (let () (declare (not safe)) (##car _e4877148888_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4876948893_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4875148845_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl4874248821_)) + (let ((___splice5904859049_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl4874248821_ + '0)))) + (let ((_tl4877448898_ + (let () + (declare (not safe)) + (##vector-ref + ___splice5904859049_ + '1))) + (_target4877248896_ + (let () + (declare (not safe)) + (##vector-ref + ___splice5904859049_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4877448898_)) + (letrec ((_loop4877548901_ + (lambda (_hd4877348904_ + _bind4877948906_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4877348904_)) + (let ((_e4877648909_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e4742248377_))) - (_hd4742348380_ - (let () (declare (not safe)) (##car _e4742248377_)))) - (if (gx#stx-pair? _hd4742348380_) - (let ((_e4742548385_ (gx#stx-e _hd4742348380_))) - (let ((_tl4742748390_ + (gx#stx-e _hd4877348904_)))) + (let ((_lp-tl4877848914_ + (let () (declare (not safe)) (##cdr _e4877648909_))) + (_lp-hd4877748912_ + (let () (declare (not safe)) (##car _e4877648909_)))) + (let ((__tmp60342 + (let () + (declare (not safe)) + (cons _lp-hd4877748912_ _bind4877948906_)))) + (declare (not safe)) + (_loop4877548901_ _lp-tl4877848914_ __tmp60342)))) + (let ((_bind4878048917_ + (let () + (declare (not safe)) + (reverse _bind4877948906_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4873948813_)) + (let ((_e4878348920_ + (let () + (declare (not safe)) + (gx#stx-e _tl4873948813_)))) + (let ((_tl4878148925_ (let () (declare (not safe)) - (##cdr _e4742548385_))) - (_hd4742648388_ + (##cdr _e4878348920_))) + (_hd4878248923_ (let () (declare (not safe)) - (##car _e4742548385_)))) - (if (gx#identifier? _hd4742648388_) - (if (gx#stx-eq? '%#ref _hd4742648388_) - (if (gx#stx-pair? _tl4742748390_) - (let ((_e4742848393_ - (gx#stx-e _tl4742748390_))) - (let ((_tl4743048398_ - (let () + (##car _e4878348920_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4878148925_)) + (___kont5904459045_ + _hd4878248923_ + _bind4878048917_ + _hd4877048891_ + _id4876848885_ + _hd4874948835_) + (___kont5905059051_)))) + (___kont5905059051_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop4877548901_ + _target4877248896_ + '()))) + (___kont5905059051_)))) + (___kont5905059051_)) + (___kont5905059051_)) + (___kont5905059051_)))) + (___kont5905059051_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop4876348869_ + _target4876048864_ + '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5903659037_)) + (let ((_e4869849072_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5903659037_)))) + (let ((_tl4869649077_ + (let () + (declare (not safe)) + (##cdr _e4869849072_))) + (_hd4869749075_ + (let () + (declare (not safe)) + (##car _e4869849072_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4869749075_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#if _hd4869749075_)) + (if (let () (declare (not safe)) - (##cdr _e4742848393_))) - (_hd4742948396_ - (let () + (gx#stx-pair? _tl4869649077_)) + (let ((_e4870149080_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4869649077_)))) + (let ((_tl4869949085_ + (let () + (declare (not safe)) + (##cdr _e4870149080_))) + (_hd4870049083_ + (let () + (declare (not safe)) + (##car _e4870149080_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4869949085_)) + (let ((_e4870449088_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _tl4869949085_)))) + (let ((_tl4870249093_ + (let () (declare (not safe)) (##cdr _e4870449088_))) + (_hd4870349091_ + (let () (declare (not safe)) (##car _e4870449088_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4870249093_)) + (let ((_e4870749096_ + (let () + (declare (not safe)) + (gx#stx-e _tl4870249093_)))) + (let ((_tl4870549101_ + (let () + (declare (not safe)) + (##cdr _e4870749096_))) + (_hd4870649099_ + (let () + (declare (not safe)) + (##car _e4870749096_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4870549101_)) + (___kont5903859039_ + _hd4870649099_ + _hd4870349091_ + _hd4870049083_) + (___kont5905059051_)))) + (___kont5905059051_)))) + (___kont5905059051_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5905059051_)) + (if (let () (declare (not safe)) - (##car _e4742848393_)))) - (if (gx#stx-null? _tl4743048398_) - (if (gx#stx-pair? _tl4742448382_) - (let ((_e4743148401_ - (gx#stx-e - _tl4742448382_))) - (let ((_tl4743348406_ - (let () + (gx#stx-eq? + '%#call + _hd4869749075_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4869649077_)) + (let ((_e4871449028_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4869649077_)))) + (let ((_tl4871249033_ + (let () + (declare + (not safe)) + (##cdr _e4871449028_))) + (_hd4871349031_ + (let () + (declare + (not safe)) + (##car _e4871449028_)))) + (if (let () (declare (not safe)) - (##cdr _e4743148401_))) - (_hd4743248404_ - (let () + (gx#stx-pair? + _hd4871349031_)) + (let ((_e4871749036_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd4871349031_)))) + (let ((_tl4871549041_ + (let () (declare (not safe)) (##cdr _e4871749036_))) + (_hd4871649039_ + (let () + (declare (not safe)) + (##car _e4871749036_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4871649039_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd4871649039_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4871549041_)) + (let ((_e4872049044_ + (let () + (declare (not safe)) + (gx#stx-e _tl4871549041_)))) + (let ((_tl4871849049_ + (let () + (declare (not safe)) + (##cdr _e4872049044_))) + (_hd4871949047_ + (let () + (declare (not safe)) + (##car _e4872049044_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4871849049_)) + (___kont5904059041_ _hd4871949047_) + (___kont5905059051_)))) + (___kont5905059051_)) + (___kont5905059051_)) + (___kont5905059051_)))) + (___kont5905059051_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5905059051_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _hd4869749075_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4869649077_)) + (let ((_e4872748986_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _tl4869649077_)))) + (let ((_tl4872548991_ + (let () (declare (not safe)) (##cdr _e4872748986_))) + (_hd4872648989_ + (let () (declare (not safe)) (##car _e4872748986_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4872548991_)) + (let ((_e4873048994_ + (let () + (declare (not safe)) + (gx#stx-e _tl4872548991_)))) + (let ((_tl4872848999_ + (let () + (declare (not safe)) + (##cdr _e4873048994_))) + (_hd4872948997_ + (let () + (declare (not safe)) + (##car _e4873048994_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4872848999_)) + (___kont5904259043_ _hd4872948997_) + (___kont5905059051_)))) + (___kont5905059051_)))) + (___kont5905059051_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#letrec-values + _hd4869749075_)) + (if (let () (declare (not safe)) - (##car _e4743148401_)))) - (if (gx#stx-pair? - _hd4743248404_) - (let ((_e4743448409_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd4743248404_))) - (let ((_tl4743648414_ - (let () (declare (not safe)) (##cdr _e4743448409_))) - (_hd4743548412_ - (let () (declare (not safe)) (##car _e4743448409_)))) - (if (gx#identifier? _hd4743548412_) - (if (gx#stx-eq? '%#ref _hd4743548412_) - (if (gx#stx-pair? _tl4743648414_) - (let ((_e4743748417_ - (gx#stx-e _tl4743648414_))) - (let ((_tl4743948422_ - (let () + (gx#stx-pair? + _tl4869649077_)) + (let ((_e4874148808_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl4869649077_)))) + (let ((_tl4873948813_ + (let () (declare (not safe)) (##cdr _e4874148808_))) + (_hd4874048811_ + (let () + (declare (not safe)) + (##car _e4874148808_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4874048811_)) + (let ((_e4874448816_ + (let () + (declare (not safe)) + (gx#stx-e _hd4874048811_)))) + (let ((_tl4874248821_ + (let () + (declare (not safe)) + (##cdr _e4874448816_))) + (_hd4874348819_ + (let () + (declare (not safe)) + (##car _e4874448816_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4874348819_)) + (let ((_e4874748824_ + (let () + (declare (not safe)) + (gx#stx-e _hd4874348819_)))) + (let ((_tl4874548829_ + (let () + (declare (not safe)) + (##cdr _e4874748824_))) + (_hd4874648827_ + (let () + (declare (not safe)) + (##car _e4874748824_)))) + (if (let () (declare (not safe)) - (##cdr _e4743748417_))) - (_hd4743848420_ - (let () + (gx#stx-pair? _hd4874648827_)) + (let ((_e4875048832_ + (let () + (declare (not safe)) + (gx#stx-e _hd4874648827_)))) + (let ((_tl4874848837_ + (let () + (declare (not safe)) + (##cdr _e4875048832_))) + (_hd4874948835_ + (let () + (declare (not safe)) + (##car _e4875048832_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4874848837_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4874548829_)) + (let ((_e4875348840_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _tl4874548829_)))) + (let ((_tl4875148845_ + (let () (declare (not safe)) (##cdr _e4875348840_))) + (_hd4875248843_ + (let () (declare (not safe)) (##car _e4875348840_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4875248843_)) + (let ((_e4875648848_ + (let () + (declare (not safe)) + (gx#stx-e _hd4875248843_)))) + (let ((_tl4875448853_ + (let () + (declare (not safe)) + (##cdr _e4875648848_))) + (_hd4875548851_ + (let () + (declare (not safe)) + (##car _e4875648848_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4875548851_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#lambda _hd4875548851_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4875448853_)) + (let ((_e4875948856_ + (let () + (declare (not safe)) + (gx#stx-e _tl4875448853_)))) + (let ((_tl4875748861_ + (let () + (declare (not safe)) + (##cdr _e4875948856_))) + (_hd4875848859_ + (let () + (declare (not safe)) + (##car _e4875948856_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _hd4875848859_)) + (let ((___splice5904659047_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd4875848859_ + '0)))) + (let ((_tl4876248866_ + (let () + (declare (not safe)) + (##vector-ref + ___splice5904659047_ + '1))) + (_target4876048864_ + (let () + (declare (not safe)) + (##vector-ref + ___splice5904659047_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4876248866_)) + (___match5920559206_ + _e4869849072_ + _hd4869749075_ + _tl4869649077_ + _e4874148808_ + _hd4874048811_ + _tl4873948813_ + _e4874448816_ + _hd4874348819_ + _tl4874248821_ + _e4874748824_ + _hd4874648827_ + _tl4874548829_ + _e4875048832_ + _hd4874948835_ + _tl4874848837_ + _e4875348840_ + _hd4875248843_ + _tl4875148845_ + _e4875648848_ + _hd4875548851_ + _tl4875448853_ + _e4875948856_ + _hd4875848859_ + _tl4875748861_ + ___splice5904659047_ + _target4876048864_ + _tl4876248866_) + (___kont5905059051_)))) + (___kont5905059051_)))) + (___kont5905059051_)) + (___kont5905059051_)) + (___kont5905059051_)))) + (___kont5905059051_)))) + (___kont5905059051_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5905059051_)))) + (___kont5905059051_)))) + (___kont5905059051_)))) + (___kont5905059051_)))) + (___kont5905059051_)) + (___kont5905059051_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5905059051_)))) + (___kont5905059051_)))))))) + (let* ((_block4852948542_ _block48525_) + (_E4853148546_ + (lambda () (error '"No clause matching" _block4852948542_))) + (_K4853248659_ + (lambda (_maybe-bind48549_ _assert48550_ _kont48551_) + (let* ((_g4855348579_ + (lambda (_g4855448576_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4855448576_)))) + (_g4855248656_ + (lambda (_g4855448582_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4855448582_)) + (let ((_e4855948584_ + (let () + (declare (not safe)) + (gx#stx-e _g4855448582_)))) + (let ((_hd4855848587_ + (let () + (declare (not safe)) + (##car _e4855948584_))) + (_tl4855748589_ + (let () + (declare (not safe)) + (##cdr _e4855948584_)))) + (if (let () (declare (not safe)) - (##car _e4743748417_)))) - (if (gx#stx-null? _tl4743948422_) - (if (gx#stx-null? _tl4743348406_) - (___kont5530555306_ - _hd4743848420_ - _hd4742948396_) - (if (gx#stx-pair? _tl4743348406_) - (let ((_e4745848094_ - (gx#stx-e - _tl4743348406_))) - (let ((_tl4746048099_ - (let () + (gx#identifier? _hd4855848587_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd4855848587_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4855748589_)) + (let ((_e4856248592_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4855748589_)))) + (let ((_hd4856148595_ + (let () + (declare + (not safe)) + (##car _e4856248592_))) + (_tl4856048597_ + (let () + (declare + (not safe)) + (##cdr _e4856248592_)))) + (if (let () (declare (not safe)) - (##cdr _e4745848094_))) - (_hd4745948097_ - (let () + (gx#stx-pair/null? + _hd4856148595_)) + (let ((_g60344_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#syntax-split-splice _hd4856148595_ '0)))) + (begin + (let ((_g60345_ + (let () + (declare (not safe)) + (if (##values? _g60344_) + (##vector-length _g60344_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g60345_ 2))) + (error "Context expects 2 values" _g60345_))) + (let ((_target4856348600_ + (let () + (declare (not safe)) + (##vector-ref _g60344_ 0))) + (_tl4856548602_ + (let () + (declare (not safe)) + (##vector-ref _g60344_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4856548602_)) + (letrec ((_loop4856648605_ + (lambda (_hd4856448608_ _id4857048610_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4856448608_)) + (let ((_e4856748613_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4856448608_)))) + (let ((_lp-hd4856848616_ + (let () + (declare (not safe)) + (##car _e4856748613_))) + (_lp-tl4856948618_ + (let () + (declare (not safe)) + (##cdr _e4856748613_)))) + (let ((__tmp60346 + (let () + (declare (not safe)) + (cons _lp-hd4856848616_ + _id4857048610_)))) + (declare (not safe)) + (_loop4856648605_ + _lp-tl4856948618_ + __tmp60346)))) + (let ((_id4857148621_ + (let () + (declare (not safe)) + (reverse _id4857048610_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4856048597_)) + (let ((_e4857448624_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4856048597_)))) + (let ((_hd4857348627_ + (let () + (declare + (not safe)) + (##car _e4857448624_))) + (_tl4857248629_ + (let () + (declare + (not safe)) + (##cdr _e4857448624_)))) + (if (let () (declare (not safe)) - (##car _e4745848094_)))) - (if (gx#stx-pair? - _hd4745948097_) - (let ((_e4746148102_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd4745948097_))) - (let ((_tl4746348107_ - (let () (declare (not safe)) (##cdr _e4746148102_))) - (_hd4746248105_ - (let () (declare (not safe)) (##car _e4746148102_)))) - (if (gx#identifier? _hd4746248105_) - (if (gx#stx-eq? '%#quote _hd4746248105_) - (if (gx#stx-pair? _tl4746348107_) - (let ((_e4746448110_ - (gx#stx-e _tl4746348107_))) - (let ((_tl4746648115_ - (let () - (declare (not safe)) - (##cdr _e4746448110_))) - (_hd4746548113_ - (let () - (declare (not safe)) - (##car _e4746448110_)))) - (if (gx#stx-null? _tl4746648115_) - (if (gx#stx-null? _tl4746048099_) - (___kont5530755308_ - _hd4746548113_ - _hd4743248404_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (if (gx#stx-eq? '%#quote-syntax _hd4746248105_) - (if (gx#stx-pair? _tl4746348107_) - (let ((_e4752447906_ - (gx#stx-e _tl4746348107_))) - (let ((_tl4752647911_ - (let () - (declare (not safe)) - (##cdr _e4752447906_))) - (_hd4752547909_ - (let () - (declare (not safe)) - (##car _e4752447906_)))) - (if (gx#stx-null? _tl4752647911_) - (if (gx#stx-null? _tl4746048099_) - (___kont5531155312_ - _hd4752547909_ - _hd4743848420_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (___kont5531755318_))) - (___kont5531755318_)))) - (___kont5531755318_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5531755318_))) - (if (gx#stx-pair? _tl4743348406_) - (let ((_e4745848094_ - (gx#stx-e _tl4743348406_))) - (let ((_tl4746048099_ - (let () - (declare (not safe)) - (##cdr _e4745848094_))) - (_hd4745948097_ - (let () - (declare (not safe)) - (##car _e4745848094_)))) - (if (gx#stx-pair? - _hd4745948097_) - (let ((_e4746148102_ - (gx#stx-e - _hd4745948097_))) - (let ((_tl4746348107_ - (let () - (declare + (gx#stx-null? + _tl4857248629_)) + ((lambda (_L48632_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##cdr _e4746148102_))) - (_hd4746248105_ - (let () (declare (not safe)) (##car _e4746148102_)))) - (if (gx#identifier? _hd4746248105_) - (if (gx#stx-eq? '%#quote _hd4746248105_) - (if (gx#stx-pair? _tl4746348107_) - (let ((_e4746448110_ (gx#stx-e _tl4746348107_))) - (let ((_tl4746648115_ - (let () - (declare (not safe)) - (##cdr _e4746448110_))) - (_hd4746548113_ - (let () - (declare (not safe)) - (##car _e4746448110_)))) - (if (gx#stx-null? _tl4746648115_) - (if (gx#stx-null? _tl4746048099_) - (___kont5530755308_ - _hd4746548113_ - _hd4743248404_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (___kont5531755318_)) - (___kont5531755318_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5531755318_)))) - (___kont5531755318_))))) - (if (gx#stx-pair? _tl4743348406_) - (let ((_e4745848094_ - (gx#stx-e _tl4743348406_))) - (let ((_tl4746048099_ - (let () - (declare (not safe)) - (##cdr _e4745848094_))) - (_hd4745948097_ - (let () - (declare (not safe)) - (##car _e4745848094_)))) - (if (gx#stx-pair? _hd4745948097_) - (let ((_e4746148102_ - (gx#stx-e _hd4745948097_))) - (let ((_tl4746348107_ - (let () - (declare (not safe)) - (##cdr _e4746148102_))) - (_hd4746248105_ - (let () - (declare (not safe)) - (##car _e4746148102_)))) - (if (gx#identifier? - _hd4746248105_) - (if (gx#stx-eq? - '%#quote - _hd4746248105_) - (if (gx#stx-pair? - _tl4746348107_) - (let ((_e4746448110_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4746348107_))) - (let ((_tl4746648115_ - (let () - (declare (not safe)) - (##cdr _e4746448110_))) - (_hd4746548113_ - (let () - (declare (not safe)) - (##car _e4746448110_)))) - (if (gx#stx-null? _tl4746648115_) - (if (gx#stx-null? _tl4746048099_) - (___kont5530755308_ - _hd4746548113_ - _hd4743248404_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (___kont5531755318_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5531755318_)))) - (___kont5531755318_)))) - (___kont5531755318_))) - (if (gx#stx-pair? _tl4743348406_) - (let ((_e4745848094_ - (gx#stx-e _tl4743348406_))) - (let ((_tl4746048099_ - (let () - (declare (not safe)) - (##cdr _e4745848094_))) - (_hd4745948097_ - (let () - (declare (not safe)) - (##car _e4745848094_)))) - (if (gx#stx-pair? _hd4745948097_) - (let ((_e4746148102_ - (gx#stx-e _hd4745948097_))) - (let ((_tl4746348107_ + _L48633_) + (let () + (declare (not safe)) + (_assert-restart48528_ _L48632_ _assert48550_))) + _hd4857348627_ + _id4857148621_) + (let () + (declare (not safe)) + (_g4855348579_ _g4855448582_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (##cdr _e4746148102_))) - (_hd4746248105_ + (_g4855348579_ + _g4855448582_)))))))) + (let () + (declare (not safe)) + (_loop4856648605_ _target4856348600_ '()))) + (let () + (declare (not safe)) + (_g4855348579_ _g4855448582_)))))) + (let () + (declare (not safe)) + (_g4855348579_ _g4855448582_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (##car _e4746148102_)))) - (if (gx#identifier? - _hd4746248105_) - (if (gx#stx-eq? - '%#quote - _hd4746248105_) - (if (gx#stx-pair? - _tl4746348107_) - (let ((_e4746448110_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl4746348107_))) - (let ((_tl4746648115_ - (let () (declare (not safe)) (##cdr _e4746448110_))) - (_hd4746548113_ - (let () (declare (not safe)) (##car _e4746448110_)))) - (if (gx#stx-null? _tl4746648115_) - (if (gx#stx-null? _tl4746048099_) - (___kont5530755308_ - _hd4746548113_ - _hd4743248404_ - _hd4742948396_) - (if (gx#stx-eq? '%#quote _hd4743548412_) - (if (gx#stx-pair? _tl4743648414_) - (let ((_e4748848006_ - (gx#stx-e _tl4743648414_))) - (let ((_tl4749048011_ - (let () - (declare (not safe)) - (##cdr _e4748848006_))) - (_hd4748948009_ + (_g4855348579_ + _g4855448582_))) (let () (declare (not safe)) - (##car _e4748848006_)))) - (___kont5531755318_))) - (___kont5531755318_)) - (if (gx#stx-eq? - '%#quote-syntax - _hd4743548412_) - (if (gx#stx-pair? _tl4743648414_) - (let ((_e4754847766_ - (gx#stx-e _tl4743648414_))) - (let ((_tl4755047771_ - (let () - (declare (not safe)) - (##cdr _e4754847766_))) - (_hd4754947769_ - (let () - (declare (not safe)) - (##car _e4754847766_)))) - (___kont5531755318_))) - (___kont5531755318_)) - (___kont5531755318_)))) - (if (gx#stx-eq? '%#quote _hd4743548412_) - (if (gx#stx-pair? _tl4743648414_) - (let ((_e4748848006_ - (gx#stx-e _tl4743648414_))) - (let ((_tl4749048011_ - (let () - (declare (not safe)) - (##cdr _e4748848006_))) - (_hd4748948009_ + (_g4855348579_ _g4855448582_))) (let () (declare (not safe)) - (##car _e4748848006_)))) - (if (gx#stx-null? _tl4749048011_) - (if (gx#stx-null? _tl4746048099_) - (___kont5530955310_ - _hd4745948097_ - _hd4748948009_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (if (gx#stx-eq? '%#quote-syntax _hd4743548412_) - (if (gx#stx-pair? _tl4743648414_) - (let ((_e4754847766_ - (gx#stx-e _tl4743648414_))) - (let ((_tl4755047771_ - (let () - (declare (not safe)) - (##cdr _e4754847766_))) - (_hd4754947769_ - (let () - (declare (not safe)) - (##car _e4754847766_)))) - (___kont5531755318_))) - (___kont5531755318_)) - (___kont5531755318_)))))) - (if (gx#stx-eq? '%#quote _hd4743548412_) - (if (gx#stx-pair? _tl4743648414_) - (let ((_e4748848006_ (gx#stx-e _tl4743648414_))) - (let ((_tl4749048011_ - (let () - (declare (not safe)) - (##cdr _e4748848006_))) - (_hd4748948009_ + (_g4855348579_ _g4855448582_))))) (let () (declare (not safe)) - (##car _e4748848006_)))) - (if (gx#stx-null? _tl4749048011_) - (if (gx#stx-null? _tl4746048099_) - (___kont5530955310_ - _hd4745948097_ - _hd4748948009_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (if (gx#stx-eq? '%#quote-syntax _hd4743548412_) - (if (gx#stx-pair? _tl4743648414_) - (let ((_e4754847766_ (gx#stx-e _tl4743648414_))) - (let ((_tl4755047771_ - (let () - (declare (not safe)) - (##cdr _e4754847766_))) - (_hd4754947769_ - (let () + (_g4855348579_ _g4855448582_)))))) + (declare (not safe)) + (_g4855248656_ _kont48551_))))) + (if (let () (declare (not safe)) (##pair? _block4852948542_)) + (let ((_tl4853448662_ + (let () + (declare (not safe)) + (##cdr _block4852948542_)))) + (if (let () (declare (not safe)) (##pair? _tl4853448662_)) + (let ((_tl4853648665_ + (let () + (declare (not safe)) + (##cdr _tl4853448662_)))) + (if (let () + (declare (not safe)) + (##pair? _tl4853648665_)) + (let ((_hd4853748668_ + (let () + (declare (not safe)) + (##car _tl4853648665_))) + (_tl4853848670_ + (let () + (declare (not safe)) + (##cdr _tl4853648665_)))) + (let ((_kont48673_ _hd4853748668_)) + (if (let () + (declare (not safe)) + (##pair? _tl4853848670_)) + (let ((_hd4853948675_ + (let () + (declare (not safe)) + (##car _tl4853848670_))) + (_tl4854048677_ + (let () + (declare (not safe)) + (##cdr _tl4853848670_)))) + (let* ((_assert48680_ _hd4853948675_) + (_maybe-bind48682_ + _tl4854048677_)) (declare (not safe)) - (##car _e4754847766_)))) - (___kont5531755318_))) - (___kont5531755318_)) - (___kont5531755318_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#quote - _hd4743548412_) - (if (gx#stx-pair? - _tl4743648414_) - (let ((_e4748848006_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4743648414_))) - (let ((_tl4749048011_ - (let () - (declare (not safe)) - (##cdr _e4748848006_))) - (_hd4748948009_ - (let () + (_K4853248659_ + _maybe-bind48682_ + _assert48680_ + _kont48673_))) + (let () + (declare (not safe)) + (_E4853148546_))))) + (let () (declare (not safe)) (_E4853148546_)))) + (let () (declare (not safe)) (_E4853148546_)))) + (let () (declare (not safe)) (_E4853148546_))))))) + (define gxc#optimize-syntax-case + (lambda (_stx48156_) + (let* ((_g4815848188_ + (lambda (_g4815948185_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g4815948185_)))) + (_g4815748522_ + (lambda (_g4815948191_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4815948191_)) + (let ((_e4816548193_ + (let () + (declare (not safe)) + (gx#stx-e _g4815948191_)))) + (let ((_hd4816448196_ + (let () + (declare (not safe)) + (##car _e4816548193_))) + (_tl4816348198_ + (let () + (declare (not safe)) + (##cdr _e4816548193_)))) + (if (let () (declare (not safe)) - (##car _e4748848006_)))) - (if (gx#stx-null? _tl4749048011_) - (if (gx#stx-null? _tl4746048099_) - (___kont5530955310_ - _hd4745948097_ - _hd4748948009_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (if (gx#stx-eq? '%#quote-syntax _hd4743548412_) - (if (gx#stx-pair? _tl4743648414_) - (let ((_e4754847766_ (gx#stx-e _tl4743648414_))) - (let ((_tl4755047771_ - (let () - (declare (not safe)) - (##cdr _e4754847766_))) - (_hd4754947769_ - (let () + (gx#identifier? _hd4816448196_)) + (if (let () (declare (not safe)) - (##car _e4754847766_)))) - (if (gx#stx-null? _tl4755047771_) - (if (gx#stx-eq? '%#ref _hd4746248105_) - (if (gx#stx-pair? _tl4746348107_) - (let ((_e4755747790_ - (gx#stx-e _tl4746348107_))) - (let ((_tl4755947795_ - (let () - (declare (not safe)) - (##cdr _e4755747790_))) - (_hd4755847793_ - (let () - (declare (not safe)) - (##car _e4755747790_)))) - (if (gx#stx-null? _tl4755947795_) - (if (gx#stx-null? - _tl4746048099_) - (___kont5531355314_ - _hd4755847793_ - _hd4754947769_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (___kont5531755318_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#quote - _hd4743548412_) - (if (gx#stx-pair? - _tl4743648414_) - (let ((_e4748848006_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl4743648414_))) - (let ((_tl4749048011_ - (let () (declare (not safe)) (##cdr _e4748848006_))) - (_hd4748948009_ - (let () (declare (not safe)) (##car _e4748848006_)))) - (if (gx#stx-null? _tl4749048011_) - (if (gx#stx-null? _tl4746048099_) - (___kont5530955310_ - _hd4745948097_ - _hd4748948009_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#quote-syntax - _hd4743548412_) - (if (gx#stx-pair? - _tl4743648414_) - (let ((_e4754847766_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4743648414_))) - (let ((_tl4755047771_ - (let () - (declare (not safe)) - (##cdr _e4754847766_))) - (_hd4754947769_ - (let () - (declare (not safe)) - (##car _e4754847766_)))) - (___kont5531755318_))) - (___kont5531755318_)) - (___kont5531755318_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#quote - _hd4743548412_) - (if (gx#stx-pair? _tl4743648414_) - (let ((_e4748848006_ - (gx#stx-e - _tl4743648414_))) - (let ((_tl4749048011_ - (let () - (declare - (not safe)) - (##cdr _e4748848006_))) - (_hd4748948009_ - (let () - (declare - (not safe)) - (##car _e4748848006_)))) - (if (gx#stx-null? - _tl4749048011_) - (if (gx#stx-null? - _tl4746048099_) - (___kont5530955310_ - _hd4745948097_ - _hd4748948009_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (if (gx#stx-eq? - '%#quote-syntax - _hd4743548412_) - (if (gx#stx-pair? - _tl4743648414_) - (let ((_e4754847766_ - (gx#stx-e - _tl4743648414_))) - (let ((_tl4755047771_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##cdr _e4754847766_))) - (_hd4754947769_ - (let () (declare (not safe)) (##car _e4754847766_)))) - (___kont5531755318_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5531755318_)) - (___kont5531755318_)))))) - (if (gx#stx-eq? '%#quote _hd4743548412_) - (if (gx#stx-pair? _tl4743648414_) - (let ((_e4748848006_ - (gx#stx-e _tl4743648414_))) - (let ((_tl4749048011_ - (let () - (declare (not safe)) - (##cdr _e4748848006_))) - (_hd4748948009_ - (let () - (declare (not safe)) - (##car _e4748848006_)))) - (___kont5531755318_))) - (___kont5531755318_)) - (if (gx#stx-eq? - '%#quote-syntax - _hd4743548412_) - (if (gx#stx-pair? _tl4743648414_) - (let ((_e4754847766_ - (gx#stx-e _tl4743648414_))) - (let ((_tl4755047771_ - (let () - (declare (not safe)) - (##cdr _e4754847766_))) - (_hd4754947769_ - (let () - (declare (not safe)) - (##car _e4754847766_)))) - (___kont5531755318_))) - (___kont5531755318_)) - (___kont5531755318_))))) - (if (gx#stx-pair? _tl4743348406_) - (let ((_e4745848094_ (gx#stx-e _tl4743348406_))) - (let ((_tl4746048099_ - (let () - (declare (not safe)) - (##cdr _e4745848094_))) - (_hd4745948097_ - (let () + (gx#stx-eq? '%#let-values _hd4816448196_)) + (if (let () (declare (not safe)) - (##car _e4745848094_)))) - (if (gx#stx-pair? _hd4745948097_) - (let ((_e4746148102_ - (gx#stx-e _hd4745948097_))) - (let ((_tl4746348107_ - (let () - (declare (not safe)) - (##cdr _e4746148102_))) - (_hd4746248105_ - (let () + (gx#stx-pair? _tl4816348198_)) + (let ((_e4816848201_ + (let () + (declare (not safe)) + (gx#stx-e _tl4816348198_)))) + (let ((_hd4816748204_ + (let () + (declare (not safe)) + (##car _e4816848201_))) + (_tl4816648206_ + (let () + (declare (not safe)) + (##cdr _e4816848201_)))) + (if (let () (declare (not safe)) - (##car _e4746148102_)))) - (if (gx#identifier? _hd4746248105_) - (if (gx#stx-eq? - '%#quote - _hd4746248105_) - (if (gx#stx-pair? - _tl4746348107_) - (let ((_e4746448110_ - (gx#stx-e - _tl4746348107_))) - (let ((_tl4746648115_ - (let () - (declare + (gx#stx-pair? _hd4816748204_)) + (let ((_e4817148209_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4816748204_)))) + (let ((_hd4817048212_ + (let () + (declare (not safe)) + (##car _e4817148209_))) + (_tl4816948214_ + (let () + (declare (not safe)) + (##cdr _e4817148209_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4817048212_)) + (let ((_e4817448217_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##cdr _e4746448110_))) - (_hd4746548113_ - (let () (declare (not safe)) (##car _e4746448110_)))) - (if (gx#stx-null? _tl4746648115_) - (if (gx#stx-null? _tl4746048099_) - (___kont5530755308_ - _hd4746548113_ - _hd4743248404_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5531755318_)) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)))) - (___kont5531755318_))))) - (if (gx#stx-pair? _tl4743348406_) - (let ((_e4745848094_ (gx#stx-e _tl4743348406_))) - (let ((_tl4746048099_ - (let () - (declare (not safe)) - (##cdr _e4745848094_))) - (_hd4745948097_ - (let () + (not safe)) + (gx#stx-e _hd4817048212_)))) + (let ((_hd4817348220_ + (let () (declare (not safe)) (##car _e4817448217_))) + (_tl4817248222_ + (let () (declare (not safe)) (##cdr _e4817448217_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4817348220_)) + (let ((_e4817748225_ + (let () + (declare (not safe)) + (gx#stx-e _hd4817348220_)))) + (let ((_hd4817648228_ + (let () + (declare (not safe)) + (##car _e4817748225_))) + (_tl4817548230_ + (let () + (declare (not safe)) + (##cdr _e4817748225_)))) + (if (let () (declare (not safe)) - (##car _e4745848094_)))) - (if (gx#stx-pair? _hd4745948097_) - (let ((_e4746148102_ (gx#stx-e _hd4745948097_))) - (let ((_tl4746348107_ - (let () - (declare (not safe)) - (##cdr _e4746148102_))) - (_hd4746248105_ - (let () - (declare (not safe)) - (##car _e4746148102_)))) - (if (gx#identifier? _hd4746248105_) - (if (gx#stx-eq? '%#quote _hd4746248105_) - (if (gx#stx-pair? _tl4746348107_) - (let ((_e4746448110_ - (gx#stx-e _tl4746348107_))) - (let ((_tl4746648115_ - (let () - (declare (not safe)) - (##cdr _e4746448110_))) - (_hd4746548113_ - (let () - (declare (not safe)) - (##car _e4746448110_)))) - (if (gx#stx-null? - _tl4746648115_) - (if (gx#stx-null? - _tl4746048099_) - (___kont5530755308_ - _hd4746548113_ - _hd4743248404_ - _hd4742948396_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)))) - (___kont5531755318_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (if (gx#stx-eq? '%#lambda _hd4742648388_) - (if (gx#stx-pair? _tl4742748390_) - (let ((_e4757247630_ - (gx#stx-e _tl4742748390_))) - (let ((_tl4757447635_ - (let () - (declare (not safe)) - (##cdr _e4757247630_))) - (_hd4757347633_ - (let () + (gx#stx-null? _tl4817548230_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4817248222_)) + (let ((_e4818048233_ + (let () + (declare (not safe)) + (gx#stx-e _tl4817248222_)))) + (let ((_hd4817948236_ + (let () + (declare (not safe)) + (##car _e4818048233_))) + (_tl4817848238_ + (let () + (declare (not safe)) + (##cdr _e4818048233_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4817848238_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4816948214_)) + (if (let () (declare (not safe)) - (##car _e4757247630_)))) - (if (gx#stx-pair? _hd4757347633_) - (let ((_e4757547638_ - (gx#stx-e - _hd4757347633_))) - (let ((_tl4757747643_ - (let () - (declare - (not safe)) - (##cdr _e4757547638_))) - (_hd4757647641_ - (let () + (gx#stx-pair? + _tl4816648206_)) + (let ((_e4818348241_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4816648206_)))) + (let ((_hd4818248244_ + (let () + (declare + (not safe)) + (##car _e4818348241_))) + (_tl4818148246_ + (let () + (declare + (not safe)) + (##cdr _e4818348241_)))) + (if (let () (declare (not safe)) - (##car _e4757547638_)))) - (if (gx#stx-null? - _tl4757747643_) - (if (gx#stx-pair? - _tl4757447635_) - (let ((_e4757847646_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4757447635_))) - (let ((_tl4758047651_ - (let () - (declare (not safe)) - (##cdr _e4757847646_))) - (_hd4757947649_ - (let () - (declare (not safe)) - (##car _e4757847646_)))) - (if (gx#stx-null? _tl4758047651_) - (if (gx#stx-pair? _tl4742448382_) - (let ((_e4758147654_ - (gx#stx-e _tl4742448382_))) - (let ((_tl4758347659_ - (let () - (declare (not safe)) - (##cdr _e4758147654_))) - (_hd4758247657_ - (let () - (declare (not safe)) - (##car _e4758147654_)))) - (if (gx#stx-pair? _hd4758247657_) - (let ((_e4758447662_ - (gx#stx-e _hd4758247657_))) - (let ((_tl4758647667_ - (let () - (declare (not safe)) - (##cdr _e4758447662_))) - (_hd4758547665_ - (let () - (declare (not safe)) - (##car _e4758447662_)))) - (if (gx#identifier? - _hd4758547665_) - (if (gx#stx-eq? - '%#ref - _hd4758547665_) - (if (gx#stx-pair? - _tl4758647667_) - (let ((_e4758747670_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl4758647667_))) - (let ((_tl4758947675_ - (let () (declare (not safe)) (##cdr _e4758747670_))) - (_hd4758847673_ - (let () (declare (not safe)) (##car _e4758747670_)))) - (if (gx#stx-null? _tl4758947675_) - (if (gx#stx-null? _tl4758347659_) - (___kont5531555316_ - _hd4758847673_ - _hd4757947649_ - _hd4757647641_) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)))) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_)) - (___kont5531755318_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5531755318_)))) - (___kont5531755318_)) - (___kont5531755318_))) - (___kont5531755318_)))) - (___kont5531755318_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5531755318_)) - (___kont5531755318_)) - (___kont5531755318_)))) - (___kont5531755318_))))))))) - (_assert-type46391_ - (lambda (_id47290_ _t47291_) - (letrec ((_super-e47293_ - (lambda (_t47390_) - (let ((_tid4739147393_ - (##structure-ref - _t47390_ - '2 - gxc#!struct-type::t - '#f))) - (if _tid4739147393_ - (let ((_tid47396_ _tid4739147393_)) - (gxc#optimizer-resolve-type - _tid47396_)) - '#f))))) - (let _lp47295_ ((_rest47297_ _env-type46373_)) - (let* ((_rest4729847306_ _rest47297_) - (_else4730047314_ (lambda () '#!void)) - (_K4730247378_ - (lambda (_rest47317_ _type-info47318_) - (let* ((_type-info4731947331_ - _type-info47318_) - (_else4732147339_ - (lambda () (_lp47295_ _rest47317_))) - (_K4732347354_ - (lambda (_val47342_ - _xt47343_ - _xid47344_) - (if (gx#free-identifier=? - _id47290_ - _xid47344_) - (if (eq? _t47291_ _xt47343_) - _val47342_ - (if _val47342_ - (if (and (let () + (gx#stx-null? + _tl4818148246_)) + ((lambda (_L48249_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##structure-instance-of? - _t47291_ - 'gxc#!struct-type::t)) - (let () - (declare (not safe)) - (##structure-instance-of? - _xt47343_ - 'gxc#!struct-type::t))) - (let _subtype?47346_ ((_xt47348_ - (_super-e47293_ _xt47343_))) - (if (not _xt47348_) - '#f - (if (eq? _xt47348_ _t47291_) - '#t - (_subtype?47346_ (_super-e47293_ _xt47348_))))) - '#f) - (if (and (let () - (declare (not safe)) - (##structure-instance-of? - _t47291_ - 'gxc#!struct-type::t)) - (let () - (declare (not safe)) - (##structure-instance-of? - _xt47343_ - 'gxc#!struct-type::t))) - (let _supertype?47350_ ((_t47352_ - (_super-e47293_ _t47291_))) - (if (not _t47352_) - (_lp47295_ _rest47317_) - (if (eq? _t47352_ _xt47343_) - '#f - (_supertype?47350_ (_super-e47293_ _t47352_))))) - (_lp47295_ _rest47317_)))) + _L48250_ + _L48251_) + (let _lp48275_ ((_body48277_ _L48249_) + (_clauses48278_ '())) + (let* ((___stx5920859209_ _body48277_) + (_g4828148328_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5920859209_))))) + (let ((___kont5921059211_ + (lambda (_L48494_ _L48495_ _L48496_) + (let ((__tmp60347 + (let ((__tmp60348 + (let ((__tmp60349 + (let () + (declare (not safe)) + (gxc#compile-e + _L48495_)))) + (declare (not safe)) + (cons _L48496_ __tmp60349)))) + (declare (not safe)) + (cons __tmp60348 _clauses48278_)))) + (declare (not safe)) + (_lp48275_ _L48494_ __tmp60347)))) + (___kont5921259213_ + (lambda (_L48373_ _L48374_) + (let ((_$e48395_ (length _clauses48278_))) + (if (let () + (declare (not safe)) + (eq? '0 _$e48395_)) + (let ((__tmp60367 + (let ((__tmp60368 + (let ((__tmp60371 + (let ((__tmp60372 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60374 + (let () + (declare (not safe)) + (cons _L48251_ '()))) + (__tmp60373 + (let () + (declare (not safe)) + (cons _L48250_ '())))) + (declare (not safe)) + (cons __tmp60374 __tmp60373)))) + (declare (not safe)) + (cons __tmp60372 '()))) + (__tmp60369 + (let ((__tmp60370 + (let () + (declare (not safe)) + (gxc#compile-e _body48277_)))) + (declare (not safe)) + (cons __tmp60370 '())))) + (declare (not safe)) + (cons __tmp60371 __tmp60369)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp47295_ _rest47317_))))) - (if (let () - (declare (not safe)) - (##pair? _type-info4731947331_)) - (let ((_hd4732447357_ - (let () - (declare (not safe)) - (##car _type-info4731947331_))) - (_tl4732547359_ - (let () - (declare (not safe)) - (##cdr _type-info4731947331_)))) - (let ((_xid47362_ _hd4732447357_)) - (if (let () + (declare (not safe)) + (cons '%#let-values + __tmp60368)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp60367 + _stx48156_)) + (if (let () + (declare (not safe)) + (eq? '1 _$e48395_)) + (let* ((_clauses4839748406_ + _clauses48278_) + (_E4839948410_ + (lambda () + (error '"No clause matching" + _clauses4839748406_))) + (_K4840048416_ + (lambda (_clause-lambda48413_ + _clause48414_) + (let ((__tmp60352 + (let ((__tmp60353 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60363 + (let ((__tmp60364 + (let ((__tmp60366 + (let () (declare (not safe)) - (##pair? _tl4732547359_)) - (let ((_hd4732647364_ - (let () - (declare (not safe)) - (##car _tl4732547359_))) - (_tl4732747366_ - (let () - (declare (not safe)) - (##cdr _tl4732547359_)))) - (let ((_xt47369_ - _hd4732647364_)) - (if (let () + (cons _L48251_ '()))) + (__tmp60365 + (let () + (declare (not safe)) + (cons _L48250_ '())))) + (declare (not safe)) + (cons __tmp60366 __tmp60365)))) + (declare (not safe)) + (cons __tmp60364 '()))) + (__tmp60354 + (let ((__tmp60355 + (let ((__tmp60356 + (let ((__tmp60359 + (let ((__tmp60360 + (let ((__tmp60362 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _clause48414_ '()))) + (__tmp60361 + (let () + (declare (not safe)) + (cons _clause-lambda48413_ '())))) + (declare (not safe)) + (cons __tmp60362 __tmp60361)))) + (declare (not safe)) + (cons __tmp60360 '()))) + (__tmp60357 + (let ((__tmp60358 + (let () + (declare (not safe)) + (gxc#compile-e _body48277_)))) + (declare (not safe)) + (cons __tmp60358 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60359 + __tmp60357)))) + (declare (not safe)) + (cons '%#let-values __tmp60356)))) + (declare (not safe)) + (cons __tmp60355 '())))) + (declare (not safe)) + (cons __tmp60363 __tmp60354)))) + (declare (not safe)) + (cons '%#let-values __tmp60353)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp60352 _stx48156_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (##pair? _clauses4839748406_)) + (let ((_hd4840148419_ + (let () (declare (not safe)) - (##pair? _tl4732747366_)) - (let ((_hd4732847371_ - (let () + (##car _clauses4839748406_))) + (_tl4840248421_ + (let () + (declare (not safe)) + (##cdr _clauses4839748406_)))) + (if (let () + (declare (not safe)) + (##pair? _hd4840148419_)) + (let ((_hd4840348424_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _hd4840148419_))) + (_tl4840448426_ + (let () (declare (not safe)) (##cdr _hd4840148419_)))) + (let* ((_clause48429_ _hd4840348424_) + (_clause-lambda48431_ _tl4840448426_)) + (if (let () (declare (not safe)) (##null? _tl4840248421_)) + (let () (declare (not safe)) - (##car _tl4732747366_))) - (_tl4732947373_ - (let () (declare (not safe)) (##cdr _tl4732747366_)))) - (let ((_val47376_ _hd4732847371_)) - (if (let () (declare (not safe)) (##null? _tl4732947373_)) - (_K4732347354_ _val47376_ _xt47369_ _xid47362_) - (_else4732147339_)))) - (_else4732147339_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else4732147339_)))) - (_else4732147339_)))))) + (_K4840048416_ _clause-lambda48431_ _clause48429_)) + (let () (declare (not safe)) (_E4839948410_))))) + (let () (declare (not safe)) (_E4839948410_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_E4839948410_)))) + (let ((__tmp60351 + (let () + (declare (not safe)) + (gxc#compile-e _L48373_))) + (__tmp60350 + (let () + (declare (not safe)) + (cons _L48251_ + _L48250_)))) + (declare (not safe)) + (gxc#optimize-syntax-case-body + _stx48156_ + __tmp60351 + __tmp60350 + _clauses48278_)))))))) (if (let () (declare (not safe)) - (##pair? _rest4729847306_)) - (let ((_hd4730347381_ - (let () - (declare (not safe)) - (##car _rest4729847306_))) - (_tl4730447383_ + (gx#stx-pair? ___stx5920859209_)) + (let ((_e4828848438_ (let () (declare (not safe)) - (##cdr _rest4729847306_)))) - (let* ((_type-info47386_ _hd4730347381_) - (_rest47388_ _tl4730447383_)) - (_K4730247378_ - _rest47388_ - _type-info47386_))) - (_else4730047314_))))))) - (_assert-count46392_ - (lambda (_id47189_ _sym47190_ _count47191_) - (let _lp47193_ ((_rest47195_ _env-type46373_)) - (let* ((_rest4719647204_ _rest47195_) - (_else4719847212_ (lambda () '#!void)) - (_K4720047278_ - (lambda (_rest47215_ _type-info47216_) - (let* ((_type-info4721747231_ - _type-info47216_) - (_else4721947239_ - (lambda () (_lp47193_ _rest47215_))) - (_K4722147247_ - (lambda (_val47242_ - _xcount47243_ - _xsym47244_ - _xid47245_) - (if (and (eq? _sym47190_ - _xsym47244_) - (gx#free-identifier=? - _id47189_ - _xid47245_)) - (if _val47242_ - (fx= _count47191_ - _xcount47243_) - (if (fx= _count47191_ - _xcount47243_) - '#f - (_lp47193_ - _rest47215_))) - (_lp47193_ _rest47215_))))) + (gx#stx-e ___stx5920859209_)))) + (let ((_tl4828648443_ + (let () + (declare (not safe)) + (##cdr _e4828848438_))) + (_hd4828748441_ + (let () + (declare (not safe)) + (##car _e4828848438_)))) (if (let () (declare (not safe)) - (##pair? _type-info4721747231_)) - (let ((_hd4722247250_ - (let () - (declare (not safe)) - (##car _type-info4721747231_))) - (_tl4722347252_ - (let () - (declare (not safe)) - (##cdr _type-info4721747231_)))) - (let ((_xid47255_ _hd4722247250_)) + (gx#identifier? _hd4828748441_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _hd4828748441_)) (if (let () (declare (not safe)) - (##pair? _tl4722347252_)) - (let ((_hd4722447257_ - (let () - (declare (not safe)) - (##car _tl4722347252_))) - (_tl4722547259_ + (gx#stx-pair? _tl4828648443_)) + (let ((_e4829148446_ (let () (declare (not safe)) - (##cdr _tl4722347252_)))) - (let ((_xsym47262_ - _hd4722447257_)) + (gx#stx-e + _tl4828648443_)))) + (let ((_tl4828948451_ + (let () + (declare (not safe)) + (##cdr _e4829148446_))) + (_hd4829048449_ + (let () + (declare (not safe)) + (##car _e4829148446_)))) (if (let () (declare (not safe)) - (##pair? _tl4722547259_)) - (let ((_hd4722647264_ + (gx#stx-pair? + _hd4829048449_)) + (let ((_e4829448454_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl4722547259_))) - (_tl4722747266_ - (let () (declare (not safe)) (##cdr _tl4722547259_)))) - (let ((_xcount47269_ _hd4722647264_)) - (if (let () (declare (not safe)) (##pair? _tl4722747266_)) - (let ((_hd4722847271_ - (let () - (declare (not safe)) - (##car _tl4722747266_))) - (_tl4722947273_ + (gx#stx-e _hd4829048449_)))) + (let ((_tl4829248459_ + (let () (declare (not safe)) (##cdr _e4829448454_))) + (_hd4829348457_ + (let () (declare (not safe)) (##car _e4829448454_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4829348457_)) + (let ((_e4829748462_ (let () (declare (not safe)) - (##cdr _tl4722747266_)))) - (let ((_val47276_ _hd4722847271_)) - (if (let () - (declare (not safe)) - (##null? _tl4722947273_)) - (_K4722147247_ - _val47276_ - _xcount47269_ - _xsym47262_ - _xid47255_) - (_else4721947239_)))) - (_else4721947239_)))) - (_else4721947239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else4721947239_)))) - (_else4721947239_)))))) - (if (let () - (declare (not safe)) - (##pair? _rest4719647204_)) - (let ((_hd4720147281_ - (let () - (declare (not safe)) - (##car _rest4719647204_))) - (_tl4720247283_ - (let () - (declare (not safe)) - (##cdr _rest4719647204_)))) - (let* ((_type-info47286_ _hd4720147281_) - (_rest47288_ _tl4720247283_)) - (_K4720047278_ _rest47288_ _type-info47286_))) - (_else4719847212_)))))) - (_assert-eqf46393_ - (lambda (_id47079_ _sym47080_ _datum47081_) - (letrec ((_eqf47083_ - (lambda (_sym47184_) - (let ((_$e47186_ _sym47184_)) - (if (eq? 'eq? _$e47186_) - eq? - (if (eq? 'eqv? _$e47186_) - eqv? - (if (eq? 'equal? _$e47186_) - equal? - (if (eq? 'free-identifier=? - _$e47186_) - gx#free-identifier=? - (if (eq? 'stx-eq? _$e47186_) - gx#stx-eq? - (gxc#raise-compile-error - '"Unexpected eqf symbol" - _body46134_ - _sym47184_)))))))))) - (let _lp47085_ ((_rest47087_ _env-type46373_)) - (let* ((_rest4708847096_ _rest47087_) - (_else4709047104_ (lambda () '#!void)) - (_K4709247172_ - (lambda (_rest47107_ _type-info47108_) - (let* ((_type-info4710947123_ - _type-info47108_) - (_else4711147131_ - (lambda () (_lp47085_ _rest47107_))) - (_K4711347141_ - (lambda (_val47134_ - _xdatum47135_ - _xsym47136_ - _xid47137_) - (if (and (eq? _sym47080_ - _xsym47136_) - (gx#free-identifier=? - _id47079_ - _xid47137_)) - (let ((_=?47139_ - (_eqf47083_ - _sym47080_))) - (if _val47134_ - (_=?47139_ - _datum47081_ - _xdatum47135_) - (if (_=?47139_ - _datum47081_ - _xdatum47135_) - '#f - (_lp47085_ - _rest47107_)))) - (_lp47085_ _rest47107_))))) - (if (let () - (declare (not safe)) - (##pair? _type-info4710947123_)) - (let ((_hd4711447144_ - (let () - (declare (not safe)) - (##car _type-info4710947123_))) - (_tl4711547146_ - (let () - (declare (not safe)) - (##cdr _type-info4710947123_)))) - (let ((_xid47149_ _hd4711447144_)) - (if (let () - (declare (not safe)) - (##pair? _tl4711547146_)) - (let ((_hd4711647151_ - (let () - (declare (not safe)) - (##car _tl4711547146_))) - (_tl4711747153_ - (let () - (declare (not safe)) - (##cdr _tl4711547146_)))) - (let ((_xsym47156_ - _hd4711647151_)) - (if (let () - (declare (not safe)) - (##pair? _tl4711747153_)) - (let ((_hd4711847158_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _tl4711747153_))) - (_tl4711947160_ - (let () (declare (not safe)) (##cdr _tl4711747153_)))) - (let ((_xdatum47163_ _hd4711847158_)) - (if (let () (declare (not safe)) (##pair? _tl4711947160_)) - (let ((_hd4712047165_ + (gx#stx-e _hd4829348457_)))) + (let ((_tl4829548467_ (let () (declare (not safe)) - (##car _tl4711947160_))) - (_tl4712147167_ + (##cdr _e4829748462_))) + (_hd4829648465_ (let () (declare (not safe)) - (##cdr _tl4711947160_)))) - (let ((_val47170_ _hd4712047165_)) - (if (let () - (declare (not safe)) - (##null? _tl4712147167_)) - (_K4711347141_ - _val47170_ - _xdatum47163_ - _xsym47156_ - _xid47149_) - (_else4711147131_)))) - (_else4711147131_)))) - (_else4711147131_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else4711147131_)))) - (_else4711147131_)))))) + (##car _e4829748462_)))) (if (let () (declare (not safe)) - (##pair? _rest4708847096_)) - (let ((_hd4709347175_ - (let () - (declare (not safe)) - (##car _rest4708847096_))) - (_tl4709447177_ + (gx#stx-pair? _hd4829648465_)) + (let ((_e4830048470_ (let () (declare (not safe)) - (##cdr _rest4708847096_)))) - (let* ((_type-info47180_ _hd4709347175_) - (_rest47182_ _tl4709447177_)) - (_K4709247172_ - _rest47182_ - _type-info47180_))) - (_else4709047104_))))))) - (_bind-e__5371653717_ - (lambda (_bind46982_ _body46983_ _continue46984_) - (let _lp46986_ ((_rest46988_ _bind46982_) - (_subst46989_ '()) - (_locals46990_ '()) - (_env46991_ _env-bind46374_)) - (let* ((_rest4699247000_ _rest46988_) - (_else4699447014_ - (lambda () - (let* ((_body47008_ - (if (null? _subst46989_) - _body46983_ - (gxc#apply-expression-subst* - _body46983_ - _subst46989_))) - (_body47011_ - (_do-bind!46385_ - _env46991_ - (lambda () - (_continue46984_ _body47008_))))) - (if (null? _locals46990_) - _body47011_ - (cons '%#let-values - (cons _locals46990_ - (cons _body47011_ '()))))))) - (_K4699647055_ - (lambda (_rest47017_ _bind47018_) - (let* ((_bind4701947026_ _bind47018_) - (_E4702147030_ - (lambda () - (error '"No clause matching" - _bind4701947026_))) - (_K4702247043_ - (lambda (_expr47033_ _id47034_) - (let* ((_sexpr47036_ - (gxc#apply-generate-runtime-repr - _expr47033_)) - (_$e47038_ - (assget _sexpr47036_ - _env-bind46374_))) - (if _$e47038_ - ((lambda (_xid47041_) - (_lp46986_ - _rest47017_ - (cons (cons _id47034_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xid47041_) - _subst46989_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _locals46990_ - _env46991_)) - _$e47038_) - (_lp46986_ - _rest47017_ - _subst46989_ - (cons (cons (cons _id47034_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _expr47033_ '())) - _locals46990_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _sexpr47036_ - _id47034_) - _env46991_))))))) + (gx#stx-e _hd4829648465_)))) + (let ((_tl4829848475_ + (let () + (declare (not safe)) + (##cdr _e4830048470_))) + (_hd4829948473_ + (let () + (declare (not safe)) + (##car _e4830048470_)))) (if (let () (declare (not safe)) - (##pair? _bind4701947026_)) - (let ((_hd4702347046_ - (let () - (declare (not safe)) - (##car _bind4701947026_))) - (_tl4702447048_ - (let () - (declare (not safe)) - (##cdr _bind4701947026_)))) - (let* ((_id47051_ _hd4702347046_) - (_expr47053_ _tl4702447048_)) - (_K4702247043_ - _expr47053_ - _id47051_))) - (_E4702147030_)))))) - (if (let () - (declare (not safe)) - (##pair? _rest4699247000_)) - (let ((_hd4699747058_ - (let () - (declare (not safe)) - (##car _rest4699247000_))) - (_tl4699847060_ - (let () - (declare (not safe)) - (##cdr _rest4699247000_)))) - (let* ((_bind47063_ _hd4699747058_) - (_rest47065_ _tl4699847060_)) - (_K4699647055_ _rest47065_ _bind47063_))) - (_else4699447014_)))))) - (_bind-e__0__5371853719_ - (lambda (_bind47070_ _body47071_) - (let ((_continue47073_ _optimize-e46387_)) - (_bind-e__5371653717_ - _bind47070_ - _body47071_ - _continue47073_)))) - (_bind-e46394_ - (lambda _g56815_ - (let ((_g56814_ - (let () (declare (not safe)) (##length _g56815_)))) - (cond ((let () (declare (not safe)) (##fx= _g56814_ 2)) - (apply _bind-e__0__5371853719_ _g56815_)) - ((let () (declare (not safe)) (##fx= _g56814_ 3)) - (apply _bind-e__5371653717_ _g56815_)) - (else - (##raise-wrong-number-of-arguments-exception - 'case-lambda-dispatch - _g56815_)))))) - (_lookup-block46395_ - (lambda (_id46977_) - (find (lambda (_block46979_) - (gx#free-identifier=? - (car _block46979_) - _id46977_)) - _blocks46137_))) - (_inline-block46396_ - (lambda (_block46853_ _args46854_) - (let* ((_kont46856_ (caddr _block46853_)) - (_g4685846884_ - (lambda (_g4685946881_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4685946881_))) - (_g4685746974_ - (lambda (_g4685946887_) - (if (gx#stx-pair? _g4685946887_) - (let ((_e4686246889_ - (gx#stx-e _g4685946887_))) - (let ((_hd4686346892_ - (let () - (declare (not safe)) - (##car _e4686246889_))) - (_tl4686446894_ - (let () - (declare (not safe)) - (##cdr _e4686246889_)))) - (if (gx#identifier? _hd4686346892_) - (if (gx#stx-eq? - '%#lambda - _hd4686346892_) - (if (gx#stx-pair? - _tl4686446894_) - (let ((_e4686546897_ - (gx#stx-e - _tl4686446894_))) - (let ((_hd4686646900_ + (gx#stx-null? _tl4829848475_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4829548467_)) + (let ((_e4830348478_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4829548467_)))) + (let ((_tl4830148483_ + (let () + (declare (not safe)) + (##cdr _e4830348478_))) + (_hd4830248481_ + (let () + (declare (not safe)) + (##car _e4830348478_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4830148483_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4829248459_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl4828948451_)) + (let ((_e4830648486_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl4828948451_)))) + (let ((_tl4830448491_ + (let () + (declare (not safe)) + (##cdr _e4830648486_))) + (_hd4830548489_ + (let () + (declare (not safe)) + (##car _e4830648486_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4830448491_)) + (___kont5921059211_ + _hd4830548489_ + _hd4830248481_ + _hd4829948473_) + (let () (declare (not safe)) (_g4828148328_))))) + (let () (declare (not safe)) (_g4828148328_))) + (let () (declare (not safe)) (_g4828148328_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4828148328_))))) + (let () + (declare (not safe)) + (_g4828148328_))) + (let () + (declare (not safe)) + (_g4828148328_))))) + (let () (declare (not safe)) (_g4828148328_))))) + (let () (declare (not safe)) (_g4828148328_))))) + (let () (declare (not safe)) (_g4828148328_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4828148328_))) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd4828748441_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4828648443_)) + (let ((_e4831448341_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl4828648443_)))) + (let ((_tl4831248346_ (let () (declare (not safe)) - (##car _e4686546897_))) - (_tl4686746902_ + (##cdr _e4831448341_))) + (_hd4831348344_ (let () (declare (not safe)) - (##cdr _e4686546897_)))) - (if (gx#stx-pair/null? - _hd4686646900_) - (let ((_g56816_ + (##car _e4831448341_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd4831348344_)) + (let ((_e4831748349_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _hd4686646900_ '0))) + (let () + (declare (not safe)) + (gx#stx-e _hd4831348344_)))) + (let ((_tl4831548354_ + (let () + (declare (not safe)) + (##cdr _e4831748349_))) + (_hd4831648352_ + (let () + (declare (not safe)) + (##car _e4831748349_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4831648352_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd4831648352_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4831548354_)) + (let ((_e4832048357_ + (let () + (declare (not safe)) + (gx#stx-e _tl4831548354_)))) + (let ((_tl4831848362_ + (let () + (declare (not safe)) + (##cdr _e4832048357_))) + (_hd4831948360_ + (let () + (declare (not safe)) + (##car _e4832048357_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4831848362_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4831248346_)) + (let ((_e4832348365_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4831248346_)))) + (let ((_tl4832148370_ + (let () + (declare (not safe)) + (##cdr _e4832348365_))) + (_hd4832248368_ + (let () + (declare (not safe)) + (##car _e4832348365_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4832148370_)) + (___kont5921259213_ + _hd4832248368_ + _hd4831948360_) + (let () + (declare (not safe)) + (_g4828148328_))))) + (let () + (declare (not safe)) + (_g4828148328_))) + (let () + (declare (not safe)) + (_g4828148328_))))) + (let () + (declare (not safe)) + (_g4828148328_))) + (let () (declare (not safe)) (_g4828148328_))) + (let () (declare (not safe)) (_g4828148328_))))) + (let () (declare (not safe)) (_g4828148328_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4828148328_))) + (let () + (declare (not safe)) + (_g4828148328_)))) + (let () + (declare (not safe)) + (_g4828148328_))))) + (let () + (declare (not safe)) + (_g4828148328_))))))) + _hd4818248244_ + _hd4817948236_ + _hd4817648228_) + (let () + (declare (not safe)) + (_g4815848188_ _g4815948191_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4815848188_ + _g4815948191_))) + (let () + (declare (not safe)) + (_g4815848188_ _g4815948191_))) + (let () + (declare (not safe)) + (_g4815848188_ _g4815948191_))))) + (let () + (declare (not safe)) + (_g4815848188_ _g4815948191_))) + (let () + (declare (not safe)) + (_g4815848188_ _g4815948191_))))) + (let () + (declare (not safe)) + (_g4815848188_ _g4815948191_))))) + (let () (declare (not safe)) (_g4815848188_ _g4815948191_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4815848188_ + _g4815948191_))))) + (let () + (declare (not safe)) + (_g4815848188_ _g4815948191_))) + (let () + (declare (not safe)) + (_g4815848188_ _g4815948191_))) + (let () + (declare (not safe)) + (_g4815848188_ _g4815948191_))))) + (let () + (declare (not safe)) + (_g4815848188_ _g4815948191_)))))) + (declare (not safe)) + (_g4815748522_ _stx48156_)))) + (define gxc#optimize-syntax-case-body + (lambda (_stx48084_ _expr48085_ _negation48086_ _clauses48087_) + (letrec ((_normalize48089_ + (lambda (_clauses48116_) + (let* ((_clauses4811748126_ _clauses48116_) + (_E4811948130_ + (lambda () + (error '"No clause matching" + _clauses4811748126_))) + (_K4812048137_ + (lambda (_rest48133_ _kont48134_ _id48135_) + (let ((__tmp60375 + (let () + (declare (not safe)) + (cons '#f _kont48134_)))) + (declare (not safe)) + (cons __tmp60375 _rest48133_))))) + (if (let () + (declare (not safe)) + (##pair? _clauses4811748126_)) + (let ((_hd4812148140_ + (let () + (declare (not safe)) + (##car _clauses4811748126_))) + (_tl4812248142_ + (let () + (declare (not safe)) + (##cdr _clauses4811748126_)))) + (if (let () + (declare (not safe)) + (##pair? _hd4812148140_)) + (let ((_hd4812348145_ + (let () + (declare (not safe)) + (##car _hd4812148140_))) + (_tl4812448147_ + (let () + (declare (not safe)) + (##cdr _hd4812148140_)))) + (let* ((_id48150_ _hd4812348145_) + (_kont48152_ _tl4812448147_) + (_rest48154_ _tl4812248142_)) + (declare (not safe)) + (_K4812048137_ + _rest48154_ + _kont48152_ + _id48150_))) + (let () (declare (not safe)) (_E4811948130_)))) + (let () (declare (not safe)) (_E4811948130_))))))) + (let ((__tmp60377 + (lambda () + (let* ((_id48092_ + (make-symbol + (let () (declare (not safe)) (gensym '__stx)))) + (_id48094_ + (let () + (declare (not safe)) + (gx#core-quote-syntax__0 _id48092_))) + (_g60378_ + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _id48094_))) + (_g60379_ + (let ((__tmp60381 + (let () + (declare (not safe)) + (car _negation48086_)))) + (declare (not safe)) + (gxc#optimize-syntax-case-clauses + _clauses48087_ + __tmp60381)))) (begin - (let ((_g56817_ + (let ((_g60380_ (let () (declare (not safe)) - (if (##values? _g56816_) - (##vector-length _g56816_) + (if (##values? _g60379_) + (##vector-length _g60379_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g56817_ 2))) - (error "Context expects 2 values" _g56817_))) - (let ((_target4686846905_ + (##fx= _g60380_ 2))) + (error "Context expects 2 values" _g60380_))) + (let ((_clauses48097_ (let () (declare (not safe)) - (##vector-ref _g56816_ 0))) - (_tl4687046907_ + (##vector-ref _g60379_ 0))) + (_konts48098_ (let () (declare (not safe)) - (##vector-ref _g56816_ 1)))) - (if (gx#stx-null? _tl4687046907_) - (letrec ((_loop4687146910_ - (lambda (_hd4686946913_ _id4687546915_) - (if (gx#stx-pair? _hd4686946913_) - (let ((_e4687246918_ - (gx#stx-e _hd4686946913_))) - (let ((_lp-hd4687346921_ + (##vector-ref _g60379_ 1)))) + (let* ((_clauses48107_ + (let ((__tmp60387 + (lambda (_g4809948102_ _g4810048104_) + (let () + (declare (not safe)) + (gxc#optimize-syntax-case-closure + _g4809948102_ + _g4810048104_ + _id48094_)))) + (__tmp60382 + (let ((__tmp60385 + (let ((__tmp60386 (let () (declare (not safe)) - (##car _e4687246918_))) - (_lp-tl4687446923_ + (car _negation48086_)))) + (declare (not safe)) + (cons __tmp60386 '()))) + (__tmp60383 + (let ((__tmp60384 (let () (declare (not safe)) - (##cdr _e4687246918_)))) - (_loop4687146910_ - _lp-tl4687446923_ - (cons _lp-hd4687346921_ - _id4687546915_)))) - (let ((_id4687646926_ - (reverse _id4687546915_))) - (if (gx#stx-pair? - _tl4686746902_) - (let ((_e4687746929_ - (gx#stx-e - _tl4686746902_))) - (let ((_hd4687846932_ - (let () - (declare - (not safe)) - (##car _e4687746929_))) - (_tl4687946934_ - (let () - (declare - (not safe)) - (##cdr _e4687746929_)))) - (if (gx#stx-null? - _tl4687946934_) - ((lambda (_L46937_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L46938_) - (if (null? (foldr1 (lambda (_g4695746960_ _g4695846962_) - (cons _g4695746960_ _g4695846962_)) - '() - _L46938_)) - _L46937_ - (let ((_subst46972_ - (map cons - (foldr1 (lambda (_g4696446967_ - _g4696546969_) - (cons _g4696446967_ - _g4696546969_)) - '() - _L46938_) - _args46854_))) - (gxc#apply-expression-subst* - _L46937_ - _subst46972_)))) - _hd4687846932_ - _id4687646926_) - (_g4685846884_ _g4685946887_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4685846884_ - _g4685946887_))))))) - (_loop4687146910_ _target4686846905_ '())) - (_g4685846884_ _g4685946887_))))) - (_g4685846884_ _g4685946887_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4685846884_ - _g4685946887_)) - (_g4685846884_ _g4685946887_)) - (_g4685846884_ _g4685946887_)))) - (_g4685846884_ _g4685946887_))))) - (_g4685746974_ _kont46856_)))) - (_nonlinear-block?46397_ - (lambda (_block46402_) - (letrec ((_nonlinear-expr?46404_ - (lambda (_expr46512_) - (let* ((___stx5577355774_ _expr46512_) - (_g4651846584_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5577355774_)))) - (let ((___kont5577555776_ (lambda () '#t)) - (___kont5577755778_ - (lambda (_L46783_) - (let* ((___stx5575555756_ _L46783_) - (_g4680146810_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5575555756_)))) - (let ((___kont5575755758_ - (lambda () '#f)) - (___kont5575955760_ - (lambda () '#t))) - (if (gx#stx-pair? - ___stx5575555756_) - (let ((_e4680346822_ - (gx#stx-e - ___stx5575555756_))) - (let ((_tl4680546827_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##cdr _e4680346822_))) - (_hd4680446825_ - (let () (declare (not safe)) (##car _e4680346822_)))) - (if (gx#identifier? _hd4680446825_) - (if (gx#stx-eq? '%#call _hd4680446825_) - (___kont5575755758_) - (___kont5575955760_)) - (___kont5575955760_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5575955760_)))))) - (___kont5578155782_ - (lambda (_L46681_) - (_nonlinear-expr?46404_ _L46681_))) - (___kont5578355784_ - (lambda (_L46628_ _L46629_ _L46630_) - (let ((_$e46649_ - (_nonlinear-expr?46404_ - _L46629_))) - (if _$e46649_ - _$e46649_ - (_nonlinear-expr?46404_ - _L46628_))))) - (___kont5578555786_ (lambda () '#f))) - (let* ((___match5583655837_ - (lambda (_e4655646657_ - _hd4655746660_ - _tl4655846662_ - _e4655946665_ - _hd4656046668_ - _tl4656146670_) - (if (gx#stx-pair? - _tl4656146670_) - (let ((_e4656246673_ - (gx#stx-e - _tl4656146670_))) - (let ((_tl4656446678_ - (let () - (declare - (not safe)) - (##cdr _e4656246673_))) - (_hd4656346676_ - (let () - (declare - (not safe)) - (##car _e4656246673_)))) - (if (gx#stx-null? - _tl4656446678_) - (___kont5578155782_ - _hd4656346676_) - (___kont5578555786_)))) - (___kont5578555786_)))) - (___match5582055821_ - (lambda (_e4652446699_ - _hd4652546702_ - _tl4652646704_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_ - ___splice5577955780_ - _target4653046715_ - _tl4653246717_) - (letrec ((_loop4653346720_ - (lambda (_hd4653146723_) - (if (gx#stx-pair? - _hd4653146723_) - (let ((_e4653446726_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd4653146723_))) - (let ((_lp-tl4653646731_ - (let () - (declare (not safe)) - (##cdr _e4653446726_))) - (_lp-hd4653546729_ - (let () - (declare (not safe)) - (##car _e4653446726_)))) - (if (gx#stx-pair? _lp-hd4653546729_) - (let ((_e4653746734_ - (gx#stx-e _lp-hd4653546729_))) - (let ((_tl4653946739_ - (let () - (declare (not safe)) - (##cdr _e4653746734_))) - (_hd4653846737_ - (let () - (declare (not safe)) - (##car _e4653746734_)))) - (if (gx#stx-pair? _hd4653846737_) - (let ((_e4654046742_ - (gx#stx-e _hd4653846737_))) - (let ((_tl4654246747_ - (let () - (declare (not safe)) - (##cdr _e4654046742_))) - (_hd4654146745_ - (let () - (declare (not safe)) - (##car _e4654046742_)))) - (if (gx#stx-null? _tl4654246747_) - (if (gx#stx-pair? - _tl4653946739_) - (let ((_e4654346750_ - (gx#stx-e - _tl4653946739_))) - (let ((_tl4654546755_ - (let () - (declare - (not safe)) - (##cdr _e4654346750_))) - (_hd4654446753_ - (let () - (declare - (not safe)) - (##car _e4654346750_)))) - (if (gx#stx-pair? - _hd4654446753_) - (let ((_e4654646758_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd4654446753_))) - (let ((_tl4654846763_ - (let () - (declare (not safe)) - (##cdr _e4654646758_))) - (_hd4654746761_ - (let () - (declare (not safe)) - (##car _e4654646758_)))) - (if (gx#identifier? _hd4654746761_) - (if (gx#stx-eq? '%#ref _hd4654746761_) - (if (gx#stx-pair? _tl4654846763_) - (let ((_e4654946766_ - (gx#stx-e _tl4654846763_))) - (let ((_tl4655146771_ - (let () - (declare (not safe)) - (##cdr _e4654946766_))) - (_hd4655046769_ - (let () - (declare (not safe)) - (##car _e4654946766_)))) - (if (gx#stx-null? _tl4655146771_) - (if (gx#stx-null? _tl4654546755_) - (_loop4653346720_ - _lp-tl4653646731_) - (___match5583655837_ - _e4652446699_ - _hd4652546702_ - _tl4652646704_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_)) - (___match5583655837_ - _e4652446699_ - _hd4652546702_ - _tl4652646704_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_)))) - (___match5583655837_ - _e4652446699_ - _hd4652546702_ - _tl4652646704_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_)) - (___match5583655837_ - _e4652446699_ - _hd4652546702_ - _tl4652646704_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_)) - (___match5583655837_ - _e4652446699_ - _hd4652546702_ - _tl4652646704_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_)))) - (___match5583655837_ - _e4652446699_ - _hd4652546702_ - _tl4652646704_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match5583655837_ - _e4652446699_ - _hd4652546702_ - _tl4652646704_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_)) - (___match5583655837_ - _e4652446699_ - _hd4652546702_ - _tl4652646704_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_)))) - (___match5583655837_ - _e4652446699_ - _hd4652546702_ - _tl4652646704_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_)))) - (___match5583655837_ - _e4652446699_ - _hd4652546702_ - _tl4652646704_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_)))) - (let () - (if (gx#stx-pair? _tl4652946712_) - (let ((_e4655246775_ (gx#stx-e _tl4652946712_))) - (let ((_tl4655446780_ - (let () - (declare (not safe)) - (##cdr _e4655246775_))) - (_hd4655346778_ - (let () - (declare (not safe)) - (##car _e4655246775_)))) - (if (gx#stx-null? _tl4655446780_) - (___kont5577755778_ _hd4655346778_) - (___kont5578555786_)))) - (___kont5578555786_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4653346720_ - _target4653046715_))))) - (if (gx#stx-pair? ___stx5577355774_) - (let ((_e4652046840_ - (gx#stx-e - ___stx5577355774_))) - (let ((_tl4652246845_ - (let () - (declare (not safe)) - (##cdr _e4652046840_))) - (_hd4652146843_ - (let () - (declare (not safe)) - (##car _e4652046840_)))) - (if (gx#identifier? - _hd4652146843_) - (if (gx#stx-eq? - '%#letrec-values - _hd4652146843_) - (___kont5577555776_) - (if (gx#stx-eq? - '%#let-values - _hd4652146843_) - (if (gx#stx-pair? - _tl4652246845_) - (let ((_e4652746707_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4652246845_))) - (let ((_tl4652946712_ - (let () - (declare (not safe)) - (##cdr _e4652746707_))) - (_hd4652846710_ - (let () - (declare (not safe)) - (##car _e4652746707_)))) - (if (gx#stx-pair/null? _hd4652846710_) - (let ((___splice5577955780_ - (gx#syntax-split-splice - _hd4652846710_ - '0))) - (let ((_tl4653246717_ - (let () - (declare (not safe)) - (##vector-ref - ___splice5577955780_ - '1))) - (_target4653046715_ - (let () + (cdr _clauses48097_)))) + (declare (not safe)) + (map car __tmp60384)))) (declare (not safe)) - (##vector-ref - ___splice5577955780_ - '0)))) - (if (gx#stx-null? _tl4653246717_) - (___match5582055821_ - _e4652046840_ - _hd4652146843_ - _tl4652246845_ - _e4652746707_ - _hd4652846710_ - _tl4652946712_ - ___splice5577955780_ - _target4653046715_ - _tl4653246717_) - (if (gx#stx-pair? _tl4652946712_) - (let ((_e4656246673_ - (gx#stx-e _tl4652946712_))) - (let ((_tl4656446678_ - (let () - (declare (not safe)) - (##cdr _e4656246673_))) - (_hd4656346676_ - (let () - (declare (not safe)) - (##car _e4656246673_)))) - (if (gx#stx-null? - _tl4656446678_) - (___kont5578155782_ - _hd4656346676_) - (___kont5578555786_)))) - (___kont5578555786_))))) - (if (gx#stx-pair? _tl4652946712_) - (let ((_e4656246673_ - (gx#stx-e _tl4652946712_))) - (let ((_tl4656446678_ - (let () - (declare (not safe)) - (##cdr _e4656246673_))) - (_hd4656346676_ - (let () - (declare (not safe)) - (##car _e4656246673_)))) - (if (gx#stx-null? _tl4656446678_) - (___kont5578155782_ _hd4656346676_) - (___kont5578555786_)))) - (___kont5578555786_))))) - (___kont5578555786_)) - (if (gx#stx-eq? '%#if _hd4652146843_) - (if (gx#stx-pair? _tl4652246845_) - (let ((_e4657146604_ (gx#stx-e _tl4652246845_))) - (let ((_tl4657346609_ - (let () - (declare (not safe)) - (##cdr _e4657146604_))) - (_hd4657246607_ - (let () - (declare (not safe)) - (##car _e4657146604_)))) - (if (gx#stx-pair? _tl4657346609_) - (let ((_e4657446612_ - (gx#stx-e _tl4657346609_))) - (let ((_tl4657646617_ - (let () - (declare (not safe)) - (##cdr _e4657446612_))) - (_hd4657546615_ - (let () - (declare (not safe)) - (##car _e4657446612_)))) - (if (gx#stx-pair? _tl4657646617_) - (let ((_e4657746620_ - (gx#stx-e _tl4657646617_))) - (let ((_tl4657946625_ - (let () - (declare (not safe)) - (##cdr _e4657746620_))) - (_hd4657846623_ - (let () - (declare (not safe)) - (##car _e4657746620_)))) - (if (gx#stx-null? - _tl4657946625_) - (___kont5578355784_ - _hd4657846623_ - _hd4657546615_ - _hd4657246607_) - (___kont5578555786_)))) - (___kont5578555786_)))) - (___kont5578555786_)))) - (___kont5578555786_)) - (___kont5578555786_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5578555786_)))) - (___kont5578555786_)))))))) - (let* ((_kont46406_ (caddr _block46402_)) - (_g4640846434_ - (lambda (_g4640946431_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4640946431_))) - (_g4640746509_ - (lambda (_g4640946437_) - (if (gx#stx-pair? _g4640946437_) - (let ((_e4641246439_ - (gx#stx-e _g4640946437_))) - (let ((_hd4641346442_ - (let () - (declare (not safe)) - (##car _e4641246439_))) - (_tl4641446444_ - (let () - (declare (not safe)) - (##cdr _e4641246439_)))) - (if (gx#identifier? _hd4641346442_) - (if (gx#stx-eq? - '%#lambda - _hd4641346442_) - (if (gx#stx-pair? - _tl4641446444_) - (let ((_e4641546447_ - (gx#stx-e - _tl4641446444_))) - (let ((_hd4641646450_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e4641546447_))) - (_tl4641746452_ - (let () (declare (not safe)) (##cdr _e4641546447_)))) - (if (gx#stx-pair/null? _hd4641646450_) - (let ((_g56818_ - (gx#syntax-split-splice _hd4641646450_ '0))) - (begin - (let ((_g56819_ - (let () - (declare (not safe)) - (if (##values? _g56818_) - (##vector-length _g56818_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g56819_ 2))) - (error "Context expects 2 values" _g56819_))) - (let ((_target4641846455_ - (let () - (declare (not safe)) - (##vector-ref _g56818_ 0))) - (_tl4642046457_ - (let () - (declare (not safe)) - (##vector-ref _g56818_ 1)))) - (if (gx#stx-null? _tl4642046457_) - (letrec ((_loop4642146460_ - (lambda (_hd4641946463_ - _id4642546465_) - (if (gx#stx-pair? _hd4641946463_) - (let ((_e4642246468_ - (gx#stx-e - _hd4641946463_))) - (let ((_lp-hd4642346471_ - (let () - (declare (not safe)) - (##car _e4642246468_))) - (_lp-tl4642446473_ - (let () - (declare (not safe)) - (##cdr _e4642246468_)))) - (_loop4642146460_ - _lp-tl4642446473_ - (cons _lp-hd4642346471_ - _id4642546465_)))) - (let ((_id4642646476_ - (reverse _id4642546465_))) - (if (gx#stx-pair? - _tl4641746452_) - (let ((_e4642746479_ - (gx#stx-e - _tl4641746452_))) - (let ((_hd4642846482_ + (foldr1 cons + __tmp60385 + __tmp60383)))) + (declare (not safe)) + (map __tmp60387 _clauses48097_ __tmp60382))) + (_clauses48109_ + (let () + (declare (not safe)) + (_normalize48089_ _clauses48107_))) + (_negation48111_ + (let () + (declare (not safe)) + (gxc#optimize-syntax-case-closure + _negation48086_ + '#f + _id48094_))) + (_body48113_ + (let () + (declare (not safe)) + (gxc#optimize-match-body + _stx48084_ + _negation48111_ + _clauses48109_ + _konts48098_)))) + (let ((__tmp60388 + (let ((__tmp60389 + (let ((__tmp60391 + (let ((__tmp60392 + (let ((__tmp60394 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e4642746479_))) - (_tl4642946484_ - (let () (declare (not safe)) (##cdr _e4642746479_)))) - (if (gx#stx-null? _tl4642946484_) - ((lambda (_L46487_ _L46488_) - (_nonlinear-expr?46404_ _L46487_)) - _hd4642846482_ - _id4642646476_) - (_g4640846434_ _g4640946437_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4640846434_ - _g4640946437_))))))) - (_loop4642146460_ _target4641846455_ '())) - (_g4640846434_ _g4640946437_))))) - (_g4640846434_ _g4640946437_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4640846434_ - _g4640946437_)) - (_g4640846434_ _g4640946437_)) - (_g4640846434_ _g4640946437_)))) - (_g4640846434_ _g4640946437_))))) - (_g4640746509_ _kont46406_)))))) - (_do-assert46376_ - _assert46135_ - (lambda () - (_do-bind46383_ - _bind46136_ - (lambda () - (if (memq '@match:prefix (gxc#current-annotation-optimizer)) - (_do-splice!46386_ - (lambda () (_optimize-e46387_ _body46134_))) - (_optimize-e46387_ _body46134_))))))))) - (define gxc#optimize-match-prune-blocks - (lambda (_blocks46046_ _konts46047_) - (letrec* ((_rtab46049_ (make-table 'test: eq?))) - (for-each - (lambda (_block46051_) - (gxc#apply-collect-runtime-refs (caddr _block46051_) _rtab46049_)) - _konts46047_) - (let _lp46053_ ((_rest46055_ _blocks46046_) (_r46056_ '())) - (let* ((_rest4605746065_ _rest46055_) - (_else4605946073_ (lambda () (reverse _r46056_))) - (_K4606146122_ - (lambda (_rest46076_ _block46077_) - (let* ((_block4607846089_ _block46077_) - (_E4608046093_ - (lambda () - (error '"No clause matching" - _block4607846089_))) - (_K4608146100_ - (lambda (_kont46096_ _type46097_ _name46098_) - (if (table-ref - _rtab46049_ - (gxc#identifier-symbol _name46098_) - '#f) - (begin - (gxc#apply-collect-runtime-refs - _kont46096_ - _rtab46049_) - (_lp46053_ - _rest46076_ - (cons _block46077_ _r46056_))) - (_lp46053_ _rest46076_ _r46056_))))) - (if (let () - (declare (not safe)) - (##pair? _block4607846089_)) - (let ((_hd4608246103_ - (let () - (declare (not safe)) - (##car _block4607846089_))) - (_tl4608346105_ - (let () - (declare (not safe)) - (##cdr _block4607846089_)))) - (let ((_name46108_ _hd4608246103_)) - (if (let () - (declare (not safe)) - (##pair? _tl4608346105_)) - (let ((_hd4608446110_ - (let () - (declare (not safe)) - (##car _tl4608346105_))) - (_tl4608546112_ - (let () - (declare (not safe)) - (##cdr _tl4608346105_)))) - (let ((_type46115_ _hd4608446110_)) - (if (let () - (declare (not safe)) - (##pair? _tl4608546112_)) - (let* ((_hd4608646117_ - (let () - (declare (not safe)) - (##car _tl4608546112_))) - (_kont46120_ - _hd4608646117_)) - (_K4608146100_ - _kont46120_ - _type46115_ - _name46108_)) - (_E4608046093_)))) - (_E4608046093_)))) - (_E4608046093_)))))) - (if (let () (declare (not safe)) (##pair? _rest4605746065_)) - (let ((_hd4606246125_ - (let () - (declare (not safe)) - (##car _rest4605746065_))) - (_tl4606346127_ - (let () - (declare (not safe)) - (##cdr _rest4605746065_)))) - (let* ((_block46130_ _hd4606246125_) - (_rest46132_ _tl4606346127_)) - (_K4606146122_ _rest46132_ _block46130_))) - (_else4605946073_))))))) - (define gxc#optimize-match-fuse-restart-blocks - (lambda (_blocks45970_ _konts45971_) - (let* ((_blocks4597245988_ _blocks45970_) - (_else4597445996_ (lambda () _blocks45970_)) - (_K4597646014_ - (lambda (_rest45999_ _kont46000_ _name46001_) - (letrec* ((_rtab46003_ (make-table 'test: eq?))) - (for-each - (lambda (_block46005_) - (gxc#apply-collect-runtime-refs - (caddr _block46005_) - _rtab46003_)) - _konts45971_) - (if (fx= (table-ref - _rtab46003_ - (gxc#identifier-symbol _name46001_)) - '1) - (let* ((_rblock46009_ - (find (lambda (_block46007_) - (gxc#apply-find-var-refs - (caddr _block46007_) - (cons _name46001_ '()))) - _konts45971_)) - (_assert46011_ - (gxc#optimize-match-assert-restart - _rblock46009_ - _name46001_))) - (cons (cons _name46001_ - (cons 'restart: - (cons _kont46000_ - (cons _assert46011_ '())))) - _rest45999_)) - _blocks45970_))))) - (if (let () (declare (not safe)) (##pair? _blocks4597245988_)) - (let ((_hd4597746017_ - (let () (declare (not safe)) (##car _blocks4597245988_))) - (_tl4597846019_ - (let () (declare (not safe)) (##cdr _blocks4597245988_)))) - (if (let () (declare (not safe)) (##pair? _hd4597746017_)) - (let ((_hd4597946022_ - (let () - (declare (not safe)) - (##car _hd4597746017_))) - (_tl4598046024_ - (let () - (declare (not safe)) - (##cdr _hd4597746017_)))) - (let ((_name46027_ _hd4597946022_)) - (if (let () - (declare (not safe)) - (##pair? _tl4598046024_)) - (let ((_hd4598146029_ - (let () - (declare (not safe)) - (##car _tl4598046024_))) - (_tl4598246031_ - (let () - (declare (not safe)) - (##cdr _tl4598046024_)))) - (if (let () + (cons _id48094_ '()))) + (__tmp60393 + (let () (declare (not safe)) (cons _expr48085_ '())))) + (declare (not safe)) + (cons __tmp60394 __tmp60393)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60392 '()))) + (__tmp60390 + (let () + (declare (not safe)) + (cons _body48113_ '())))) + (declare (not safe)) + (cons __tmp60391 __tmp60390)))) (declare (not safe)) - (##eq? _hd4598146029_ 'restart:)) - (if (let () - (declare (not safe)) - (##pair? _tl4598246031_)) - (let ((_hd4598346034_ - (let () - (declare (not safe)) - (##car _tl4598246031_))) - (_tl4598446036_ - (let () - (declare (not safe)) - (##cdr _tl4598246031_)))) - (let ((_kont46039_ _hd4598346034_)) - (if (let () - (declare (not safe)) - (##pair? _tl4598446036_)) - (let ((_tl4598646041_ + (cons '%#let-values __tmp60389)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp60388 + _stx48084_)))))))) + (__tmp60376 + (let () + (declare (not safe)) + (make-struct-instance gx#local-context::t)))) + (declare (not safe)) + (call-with-parameters + __tmp60377 + gx#current-expander-context + __tmp60376))))) + (define gxc#optimize-syntax-case-clauses + (lambda (_clauses46842_ _negation-id46843_) + (letrec ((_xform-e46845_ + (lambda (_expr47229_ + _kont-id47230_ + _kont-box47231_ + _negation-id47232_) + (let* ((___stx5941059411_ _expr47229_) + (_g4723847371_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5941059411_))))) + (let ((___kont5941259413_ + (lambda (_L48060_ _L48061_ _L48062_) + (let* ((_K48079_ + (let () + (declare (not safe)) + (_xform-e46845_ + _L48061_ + _kont-id47230_ + _kont-box47231_ + _negation-id47232_))) + (__tmp60395 + (let ((__tmp60396 + (let ((__tmp60397 (let () (declare (not safe)) - (##cdr _tl4598446036_)))) - (if (let () - (declare (not safe)) - (##null? _tl4598646041_)) - (let ((_rest46044_ - _tl4597846019_)) - (_K4597646014_ - _rest46044_ - _kont46039_ - _name46027_)) - (_else4597445996_))) - (_else4597445996_)))) - (_else4597445996_)) - (_else4597445996_))) - (_else4597445996_)))) - (_else4597445996_))) - (_else4597445996_))))) - (define gxc#optimize-match-assert-restart - (lambda (_block45366_ _name45367_) - (letrec ((_assert-restart45369_ - (lambda (_expr45525_ _assert45526_) - (let* ((___stx5587755878_ _expr45525_) - (_g4553245629_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5587755878_)))) - (let ((___kont5587955880_ - (lambda (_L45945_ _L45946_ _L45947_) - (let ((_$e45964_ - (_assert-restart45369_ - _L45946_ - (cons (cons _L45947_ '#t) - _assert45526_)))) - (if _$e45964_ - _$e45964_ - (_assert-restart45369_ - _L45945_ - (cons (cons _L45947_ '#f) - _assert45526_)))))) - (___kont5588155882_ - (lambda (_L45893_) - (if (gx#free-identifier=? _L45893_ _name45367_) - _assert45526_ - '#f))) - (___kont5588355884_ - (lambda (_L45843_) - (_assert-restart45369_ _L45843_ _assert45526_))) - (___kont5588555886_ - (lambda (_L45769_ - _L45770_ - _L45771_ - _L45772_ - _L45773_) - (_assert-restart45369_ _L45771_ _assert45526_))) - (___kont5589155892_ (lambda () '#f))) - (let ((___match5604656047_ - (lambda (_e4557745641_ - _hd4557845644_ - _tl4557945646_ - _e4558045649_ - _hd4558145652_ - _tl4558245654_ - _e4558345657_ - _hd4558445660_ - _tl4558545662_ - _e4558645665_ - _hd4558745668_ - _tl4558845670_ - _e4558945673_ - _hd4559045676_ - _tl4559145678_ - _e4559245681_ - _hd4559345684_ - _tl4559445686_ - _e4559545689_ - _hd4559645692_ - _tl4559745694_ - _e4559845697_ - _hd4559945700_ - _tl4560045702_ - ___splice5588755888_ - _target4560145705_ - _tl4560345707_) - (letrec ((_loop4560445710_ - (lambda (_hd4560245713_ - _id4560845715_) - (if (gx#stx-pair? _hd4560245713_) - (let ((_e4560545718_ - (gx#stx-e - _hd4560245713_))) - (let ((_lp-tl4560745723_ - (let () - (declare - (not safe)) - (##cdr _e4560545718_))) - (_lp-hd4560645721_ - (let () - (declare - (not safe)) - (##car _e4560545718_)))) - (_loop4560445710_ - _lp-tl4560745723_ - (cons _lp-hd4560645721_ - _id4560845715_)))) - (let ((_id4560945726_ - (reverse _id4560845715_))) - (if (gx#stx-pair? - _tl4560045702_) - (let ((_e4561045729_ - (gx#stx-e - _tl4560045702_))) - (let ((_tl4561245734_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4561045729_))) - (_hd4561145732_ - (let () (declare (not safe)) (##car _e4561045729_)))) - (if (gx#stx-null? _tl4561245734_) - (if (gx#stx-null? _tl4559445686_) - (if (gx#stx-pair/null? _tl4558545662_) - (let ((___splice5588955890_ - (gx#syntax-split-splice - _tl4558545662_ - '0))) - (let ((_tl4561545739_ - (let () - (declare (not safe)) - (##vector-ref - ___splice5588955890_ - '1))) - (_target4561345737_ + (cons _L48060_ '())))) + (declare (not safe)) + (cons _K48079_ __tmp60397)))) + (declare (not safe)) + (cons _L48062_ __tmp60396)))) + (declare (not safe)) + (cons '%#if __tmp60395)))) + (___kont5941459415_ + (lambda (_L47976_ + _L47977_ + _L47978_ + _L47979_ + _L47980_) + (let* ((_id48015_ + (make-symbol (let () (declare (not safe)) - (##vector-ref - ___splice5588955890_ - '0)))) - (if (gx#stx-null? _tl4561545739_) - (letrec ((_loop4561645742_ - (lambda (_hd4561445745_ - _bind4562045747_) - (if (gx#stx-pair? - _hd4561445745_) - (let ((_e4561745750_ - (gx#stx-e - _hd4561445745_))) - (let ((_lp-tl4561945755_ - (let () + (gensym '__splice)))) + (_id48017_ + (let () + (declare (not safe)) + (gx#core-quote-syntax__0 _id48015_))) + (_g60398_ + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _id48017_))) + (_body48020_ + (let () + (declare (not safe)) + (_xform-e46845_ + _L47976_ + _kont-id47230_ + _kont-box47231_ + _negation-id47232_)))) + (let ((__tmp60399 + (let ((__tmp60424 + (let ((__tmp60425 + (let ((__tmp60433 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4561745750_))) - (_lp-hd4561845753_ - (let () (declare (not safe)) (##car _e4561745750_)))) - (_loop4561645742_ - _lp-tl4561945755_ - (cons _lp-hd4561845753_ _bind4562045747_)))) - (let ((_bind4562145758_ (reverse _bind4562045747_))) - (if (gx#stx-pair? _tl4558245654_) - (let ((_e4562245761_ (gx#stx-e _tl4558245654_))) - (let ((_tl4562445766_ - (let () + (not safe)) + (cons _id48017_ '()))) + (__tmp60426 + (let ((__tmp60427 + (let ((__tmp60432 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#call))) + (__tmp60428 + (let ((__tmp60429 + (let ((__tmp60431 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp60430 + (let () + (declare (not safe)) + (cons _L47978_ '())))) + (declare (not safe)) + (cons __tmp60431 __tmp60430)))) + (declare (not safe)) + (cons __tmp60429 _L47977_)))) + (declare (not safe)) + (cons __tmp60432 __tmp60428)))) + (declare (not safe)) + (cons __tmp60427 '())))) + (declare (not safe)) + (cons __tmp60433 __tmp60426)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60425 '()))) + (__tmp60400 + (let ((__tmp60401 + (let ((__tmp60402 + (let ((__tmp60404 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60415 + (let ((__tmp60423 + (let () + (declare (not safe)) + (cons _L47980_ '()))) + (__tmp60416 + (let ((__tmp60417 + (let ((__tmp60418 + (let ((__tmp60419 + (let ((__tmp60421 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60422 + (let () + (declare (not safe)) + (cons _id48017_ '())))) (declare (not safe)) - (##cdr _e4562245761_))) - (_hd4562345764_ + (cons '%#ref __tmp60422))) + (__tmp60420 (let () (declare (not safe)) - (##car _e4562245761_)))) - (if (gx#stx-null? _tl4562445766_) - (___kont5588555886_ - _hd4562345764_ - _bind4562145758_ - _hd4561145732_ - _id4560945726_ - _hd4559045676_) - (___kont5589155892_)))) - (___kont5589155892_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4561645742_ - _target4561345737_ - '())) - (___kont5589155892_)))) - (___kont5589155892_)) - (___kont5589155892_)) - (___kont5589155892_)))) - (___kont5589155892_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4560445710_ - _target4560145705_ - '()))))) - (if (gx#stx-pair? ___stx5587755878_) - (let ((_e4553745913_ - (gx#stx-e ___stx5587755878_))) - (let ((_tl4553945918_ + (cons '(%#quote 0) '())))) + (declare (not safe)) + (cons __tmp60421 __tmp60420)))) + (declare (not safe)) + (cons '(%#ref ##vector-ref) __tmp60419)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#call __tmp60418)))) + (declare (not safe)) + (cons __tmp60417 '())))) + (declare (not safe)) + (cons __tmp60423 __tmp60416))) + (__tmp60405 + (let ((__tmp60406 + (let ((__tmp60414 + (let () + (declare (not safe)) + (cons _L47979_ '()))) + (__tmp60407 + (let ((__tmp60408 + (let ((__tmp60409 + (let ((__tmp60410 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60412 + (let ((__tmp60413 + (let () + (declare (not safe)) + (cons _id48017_ '())))) + (declare (not safe)) + (cons '%#ref __tmp60413))) + (__tmp60411 + (let () + (declare (not safe)) + (cons '(%#quote 1) '())))) + (declare (not safe)) + (cons __tmp60412 __tmp60411)))) + (declare (not safe)) + (cons '(%#ref ##vector-ref) __tmp60410)))) + (declare (not safe)) + (cons '%#call __tmp60409)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60408 '())))) + (declare (not safe)) + (cons __tmp60414 __tmp60407)))) + (declare (not safe)) + (cons __tmp60406 '())))) + (declare (not safe)) + (cons __tmp60415 __tmp60405))) + (__tmp60403 + (let () + (declare (not safe)) + (cons _body48020_ '())))) + (declare (not safe)) + (cons __tmp60404 __tmp60403)))) + (declare (not safe)) + (cons '%#let-values __tmp60402)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60401 '())))) + (declare (not safe)) + (cons __tmp60424 __tmp60400)))) + (declare (not safe)) + (cons '%#let-values __tmp60399))))) + (___kont5941659417_ + (lambda (_L47858_ _L47859_) + (let* ((_body47873_ (let () (declare (not safe)) - (##cdr _e4553745913_))) - (_hd4553845916_ + (_xform-e46845_ + _L47858_ + _kont-id47230_ + _kont-box47231_ + _negation-id47232_))) + (__tmp60434 + (let ((__tmp60435 + (let () + (declare (not safe)) + (cons _body47873_ '())))) + (declare (not safe)) + (cons _L47859_ __tmp60435)))) + (declare (not safe)) + (cons '%#let-values __tmp60434)))) + (___kont5941859419_ + (lambda (_L47802_ _L47803_ _L47804_) + (let* ((_lambda-expr47827_ (let () (declare (not safe)) - (##car _e4553745913_)))) - (if (gx#identifier? _hd4553845916_) - (if (gx#stx-eq? '%#if _hd4553845916_) - (if (gx#stx-pair? _tl4553945918_) - (let ((_e4554045921_ - (gx#stx-e - _tl4553945918_))) - (let ((_tl4554245926_ - (let () - (declare (not safe)) - (##cdr _e4554045921_))) - (_hd4554145924_ - (let () - (declare (not safe)) - (##car _e4554045921_)))) - (if (gx#stx-pair? - _tl4554245926_) - (let ((_e4554345929_ - (gx#stx-e - _tl4554245926_))) - (let ((_tl4554545934_ - (let () + (_xform-loop-e46846_ + _L47803_ + _kont-id47230_ + _kont-box47231_ + _negation-id47232_))) + (__tmp60436 + (let ((__tmp60438 + (let ((__tmp60439 + (let ((__tmp60441 + (let () + (declare + (not safe)) + (cons _L47804_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4554345929_))) - (_hd4554445932_ - (let () (declare (not safe)) (##car _e4554345929_)))) - (if (gx#stx-pair? _tl4554545934_) - (let ((_e4554645937_ (gx#stx-e _tl4554545934_))) - (let ((_tl4554845942_ - (let () - (declare (not safe)) - (##cdr _e4554645937_))) - (_hd4554745940_ - (let () + '()))) + (__tmp60440 + (let () + (declare (not safe)) + (cons _lambda-expr47827_ '())))) + (declare (not safe)) + (cons __tmp60441 __tmp60440)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60439 '()))) + (__tmp60437 + (let () + (declare (not safe)) + (cons _L47802_ '())))) + (declare (not safe)) + (cons __tmp60438 __tmp60437)))) (declare (not safe)) - (##car _e4554645937_)))) - (if (gx#stx-null? _tl4554845942_) - (___kont5587955880_ - _hd4554745940_ - _hd4554445932_ - _hd4554145924_) - (___kont5589155892_)))) - (___kont5589155892_)))) - (___kont5589155892_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5589155892_)) - (if (gx#stx-eq? - '%#call - _hd4553845916_) - (if (gx#stx-pair? _tl4553945918_) - (let ((_e4555345869_ - (gx#stx-e - _tl4553945918_))) - (let ((_tl4555545874_ - (let () - (declare - (not safe)) - (##cdr _e4555345869_))) - (_hd4555445872_ - (let () - (declare - (not safe)) - (##car _e4555345869_)))) - (if (gx#stx-pair? - _hd4555445872_) - (let ((_e4555645877_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd4555445872_))) - (let ((_tl4555845882_ - (let () (declare (not safe)) (##cdr _e4555645877_))) - (_hd4555745880_ - (let () - (declare (not safe)) - (##car _e4555645877_)))) - (if (gx#identifier? _hd4555745880_) - (if (gx#stx-eq? '%#ref _hd4555745880_) - (if (gx#stx-pair? _tl4555845882_) - (let ((_e4555945885_ - (gx#stx-e _tl4555845882_))) - (let ((_tl4556145890_ - (let () - (declare (not safe)) - (##cdr _e4555945885_))) - (_hd4556045888_ - (let () - (declare (not safe)) - (##car _e4555945885_)))) - (if (gx#stx-null? _tl4556145890_) - (___kont5588155882_ _hd4556045888_) - (___kont5589155892_)))) - (___kont5589155892_)) - (___kont5589155892_)) - (___kont5589155892_)))) - (___kont5589155892_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5589155892_)) - (if (gx#stx-eq? - '%#let-values - _hd4553845916_) - (if (gx#stx-pair? - _tl4553945918_) - (let ((_e4556645827_ - (gx#stx-e - _tl4553945918_))) - (let ((_tl4556845832_ - (let () + (cons '%#letrec-values __tmp60436)))) + (___kont5942059421_ + (lambda (_L47464_ _L47465_ _L47466_) + (let* ((___stx5931259313_ _L47465_) + (_g4749547538_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5931259313_))))) + (let ((___kont5931459315_ + (lambda (_L47654_ + _L47655_ + _L47656_ + _L47657_) + (let ((_kont47698_ + (let ((__tmp60446 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#lambda))) + (__tmp60442 + (let ((__tmp60444 + (let ((__tmp60445 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g4769047693_ _g4769147695_) + (let () + (declare (not safe)) + (cons _g4769047693_ _g4769147695_))))) (declare (not safe)) - (##cdr _e4556645827_))) - (_hd4556745830_ - (let () (declare (not safe)) (##car _e4556645827_)))) - (if (gx#stx-pair? _tl4556845832_) - (let ((_e4556945835_ (gx#stx-e _tl4556845832_))) - (let ((_tl4557145840_ - (let () - (declare (not safe)) - (##cdr _e4556945835_))) - (_hd4557045838_ - (let () - (declare (not safe)) - (##car _e4556945835_)))) - (if (gx#stx-null? _tl4557145840_) - (___kont5588355884_ _hd4557045838_) - (___kont5589155892_)))) - (___kont5589155892_)))) - (___kont5589155892_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#letrec-values - _hd4553845916_) - (if (gx#stx-pair? - _tl4553945918_) - (let ((_e4558045649_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4553945918_))) - (let ((_tl4558245654_ - (let () (declare (not safe)) (##cdr _e4558045649_))) - (_hd4558145652_ - (let () - (declare (not safe)) - (##car _e4558045649_)))) - (if (gx#stx-pair? _hd4558145652_) - (let ((_e4558345657_ (gx#stx-e _hd4558145652_))) - (let ((_tl4558545662_ - (let () - (declare (not safe)) - (##cdr _e4558345657_))) - (_hd4558445660_ - (let () - (declare (not safe)) - (##car _e4558345657_)))) - (if (gx#stx-pair? _hd4558445660_) - (let ((_e4558645665_ - (gx#stx-e _hd4558445660_))) - (let ((_tl4558845670_ - (let () - (declare (not safe)) - (##cdr _e4558645665_))) - (_hd4558745668_ - (let () - (declare (not safe)) - (##car _e4558645665_)))) - (if (gx#stx-pair? _hd4558745668_) - (let ((_e4558945673_ - (gx#stx-e _hd4558745668_))) - (let ((_tl4559145678_ - (let () - (declare (not safe)) - (##cdr _e4558945673_))) - (_hd4559045676_ - (let () - (declare (not safe)) - (##car _e4558945673_)))) - (if (gx#stx-null? _tl4559145678_) - (if (gx#stx-pair? - _tl4558845670_) - (let ((_e4559245681_ - (gx#stx-e - _tl4558845670_))) - (let ((_tl4559445686_ - (let () + (foldr1 __tmp60445 '() _L47466_))) + (__tmp60443 + (let () (declare (not safe)) (cons _L47656_ '())))) + (declare (not safe)) + (cons __tmp60444 __tmp60443)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60446 + __tmp60442)))) + (let () + (declare (not safe)) + (set-box! + _kont-box47231_ + _kont47698_)) + (let* ((_kont-args47709_ + (let ((__tmp60449 + (lambda (_id47700_) + (let ((__tmp60450 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4559245681_))) - (_hd4559345684_ - (let () (declare (not safe)) (##car _e4559245681_)))) - (if (gx#stx-pair? _hd4559345684_) - (let ((_e4559545689_ (gx#stx-e _hd4559345684_))) - (let ((_tl4559745694_ - (let () - (declare (not safe)) - (##cdr _e4559545689_))) - (_hd4559645692_ - (let () - (declare (not safe)) - (##car _e4559545689_)))) - (if (gx#identifier? _hd4559645692_) - (if (gx#stx-eq? '%#lambda _hd4559645692_) - (if (gx#stx-pair? _tl4559745694_) - (let ((_e4559845697_ - (gx#stx-e _tl4559745694_))) - (let ((_tl4560045702_ - (let () + (let () + (declare (not safe)) + (cons _id47700_ '())))) + (declare (not safe)) + (cons '%#ref __tmp60450)))) + (__tmp60447 + (let ((__tmp60448 + (lambda (_g4770147704_ _g4770247706_) + (let () + (declare (not safe)) + (cons _g4770147704_ _g4770247706_))))) + (declare (not safe)) + (foldr1 __tmp60448 '() _L47466_)))) + (declare (not safe)) + (map __tmp60449 __tmp60447))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_body47711_ + (let ((__tmp60451 + (let ((__tmp60452 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60464 + (let ((__tmp60465 + (let ((__tmp60466 + (let ((__tmp60467 + (let () + (declare (not safe)) + (cons _kont-id47230_ + '())))) (declare (not safe)) - (##cdr _e4559845697_))) - (_hd4559945700_ + (cons '%#ref __tmp60467)))) + (declare (not safe)) + (cons __tmp60466 _kont-args47709_)))) + (declare (not safe)) + (cons '%#call __tmp60465))) + (__tmp60453 + (let ((__tmp60454 + (let ((__tmp60463 (let () (declare (not safe)) - (##car _e4559845697_)))) - (if (gx#stx-pair/null? - _hd4559945700_) - (let ((___splice5588755888_ - (gx#syntax-split-splice - _hd4559945700_ - '0))) - (let ((_tl4560345707_ - (let () - (declare (not safe)) - (##vector-ref - ___splice5588755888_ - '1))) - (_target4560145705_ - (let () - (declare (not safe)) - (##vector-ref - ___splice5588755888_ - '0)))) - (if (gx#stx-null? - _tl4560345707_) - (___match5604656047_ - _e4553745913_ - _hd4553845916_ - _tl4553945918_ - _e4558045649_ - _hd4558145652_ - _tl4558245654_ - _e4558345657_ - _hd4558445660_ - _tl4558545662_ - _e4558645665_ - _hd4558745668_ - _tl4558845670_ - _e4558945673_ - _hd4559045676_ - _tl4559145678_ - _e4559245681_ - _hd4559345684_ - _tl4559445686_ - _e4559545689_ - _hd4559645692_ - _tl4559745694_ - _e4559845697_ - _hd4559945700_ - _tl4560045702_ - ___splice5588755888_ - _target4560145705_ - _tl4560345707_) - (___kont5589155892_)))) - (___kont5589155892_)))) - (___kont5589155892_)) - (___kont5589155892_)) - (___kont5589155892_)))) - (___kont5589155892_)))) - (___kont5589155892_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5589155892_)))) - (___kont5589155892_)))) - (___kont5589155892_)))) - (___kont5589155892_)))) - (___kont5589155892_)) - (___kont5589155892_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5589155892_)))) - (___kont5589155892_)))))))) - (let* ((_block4537045383_ _block45366_) - (_E4537245387_ - (lambda () (error '"No clause matching" _block4537045383_))) - (_K4537345500_ - (lambda (_maybe-bind45390_ _assert45391_ _kont45392_) - (let* ((_g4539445420_ - (lambda (_g4539545417_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4539545417_))) - (_g4539345497_ - (lambda (_g4539545423_) - (if (gx#stx-pair? _g4539545423_) - (let ((_e4539845425_ - (gx#stx-e _g4539545423_))) - (let ((_hd4539945428_ - (let () - (declare (not safe)) - (##car _e4539845425_))) - (_tl4540045430_ - (let () - (declare (not safe)) - (##cdr _e4539845425_)))) - (if (gx#identifier? _hd4539945428_) - (if (gx#stx-eq? - '%#lambda - _hd4539945428_) - (if (gx#stx-pair? _tl4540045430_) - (let ((_e4540145433_ - (gx#stx-e - _tl4540045430_))) - (let ((_hd4540245436_ - (let () - (declare - (not safe)) - (##car _e4540145433_))) - (_tl4540345438_ - (let () - (declare - (not safe)) - (##cdr _e4540145433_)))) - (if (gx#stx-pair/null? - _hd4540245436_) - (let ((_g56820_ + (gx#datum->syntax__0 + '#f + '%#call))) + (__tmp60455 + (let ((__tmp60460 + (let ((__tmp60462 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _hd4540245436_ '0))) - (begin - (let ((_g56821_ - (let () - (declare (not safe)) - (if (##values? _g56820_) - (##vector-length _g56820_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g56821_ 2))) - (error "Context expects 2 values" _g56821_))) - (let ((_target4540445441_ - (let () - (declare (not safe)) - (##vector-ref _g56820_ 0))) - (_tl4540645443_ - (let () - (declare (not safe)) - (##vector-ref _g56820_ 1)))) - (if (gx#stx-null? _tl4540645443_) - (letrec ((_loop4540745446_ - (lambda (_hd4540545449_ _id4541145451_) - (if (gx#stx-pair? _hd4540545449_) - (let ((_e4540845454_ - (gx#stx-e _hd4540545449_))) - (let ((_lp-hd4540945457_ - (let () - (declare (not safe)) - (##car _e4540845454_))) - (_lp-tl4541045459_ - (let () - (declare (not safe)) - (##cdr _e4540845454_)))) - (_loop4540745446_ - _lp-tl4541045459_ - (cons _lp-hd4540945457_ - _id4541145451_)))) - (let ((_id4541245462_ - (reverse _id4541145451_))) - (if (gx#stx-pair? _tl4540345438_) - (let ((_e4541345465_ - (gx#stx-e - _tl4540345438_))) - (let ((_hd4541445468_ - (let () - (declare - (not safe)) - (##car _e4541345465_))) - (_tl4541545470_ - (let () - (declare - (not safe)) - (##cdr _e4541345465_)))) - (if (gx#stx-null? - _tl4541545470_) - ((lambda (_L45473_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L45474_) - (_assert-restart45369_ _L45473_ _assert45391_)) - _hd4541445468_ - _id4541245462_) - (_g4539445420_ _g4539545423_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4539445420_ - _g4539545423_))))))) - (_loop4540745446_ _target4540445441_ '())) - (_g4539445420_ _g4539545423_))))) - (_g4539445420_ _g4539545423_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4539445420_ - _g4539545423_)) - (_g4539445420_ _g4539545423_)) - (_g4539445420_ _g4539545423_)))) - (_g4539445420_ _g4539545423_))))) - (_g4539345497_ _kont45392_))))) - (if (let () (declare (not safe)) (##pair? _block4537045383_)) - (let ((_tl4537545503_ - (let () - (declare (not safe)) - (##cdr _block4537045383_)))) - (if (let () (declare (not safe)) (##pair? _tl4537545503_)) - (let ((_tl4537745506_ - (let () - (declare (not safe)) - (##cdr _tl4537545503_)))) - (if (let () + (not safe)) + (gx#datum->syntax__0 '#f '%#ref))) + (__tmp60461 + (let () (declare (not safe)) (cons _L47655_ '())))) + (declare (not safe)) + (cons __tmp60462 __tmp60461))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp60456 + (let ((__tmp60457 + (let ((__tmp60459 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) - (##pair? _tl4537745506_)) - (let ((_hd4537845509_ - (let () - (declare (not safe)) - (##car _tl4537745506_))) - (_tl4537945511_ - (let () - (declare (not safe)) - (##cdr _tl4537745506_)))) - (let ((_kont45514_ _hd4537845509_)) - (if (let () - (declare (not safe)) - (##pair? _tl4537945511_)) - (let ((_hd4538045516_ - (let () - (declare (not safe)) - (##car _tl4537945511_))) - (_tl4538145518_ - (let () - (declare (not safe)) - (##cdr _tl4537945511_)))) - (let* ((_assert45521_ _hd4538045516_) - (_maybe-bind45523_ - _tl4538145518_)) - (_K4537345500_ - _maybe-bind45523_ - _assert45521_ - _kont45514_))) - (_E4537245387_)))) - (_E4537245387_))) - (_E4537245387_))) - (_E4537245387_)))))) - (define gxc#optimize-syntax-case - (lambda (_stx44997_) - (let* ((_g4499945029_ - (lambda (_g4500045026_) - (gx#raise-syntax-error '#f '"Bad syntax" _g4500045026_))) - (_g4499845363_ - (lambda (_g4500045032_) - (if (gx#stx-pair? _g4500045032_) - (let ((_e4500445034_ (gx#stx-e _g4500045032_))) - (let ((_hd4500545037_ - (let () - (declare (not safe)) - (##car _e4500445034_))) - (_tl4500645039_ - (let () - (declare (not safe)) - (##cdr _e4500445034_)))) - (if (gx#identifier? _hd4500545037_) - (if (gx#stx-eq? '%#let-values _hd4500545037_) - (if (gx#stx-pair? _tl4500645039_) - (let ((_e4500745042_ - (gx#stx-e _tl4500645039_))) - (let ((_hd4500845045_ - (let () - (declare (not safe)) - (##car _e4500745042_))) - (_tl4500945047_ - (let () + (gx#datum->syntax__0 '#f '%#ref))) + (__tmp60458 + (let () (declare (not safe)) (cons _L47654_ '())))) + (declare (not safe)) + (cons __tmp60459 __tmp60458)))) + (declare (not safe)) + (cons __tmp60457 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##cdr _e4500745042_)))) - (if (gx#stx-pair? _hd4500845045_) - (let ((_e4501045050_ - (gx#stx-e - _hd4500845045_))) - (let ((_hd4501145053_ - (let () - (declare (not safe)) - (##car _e4501045050_))) - (_tl4501245055_ - (let () - (declare (not safe)) - (##cdr _e4501045050_)))) - (if (gx#stx-pair? - _hd4501145053_) - (let ((_e4501345058_ - (gx#stx-e - _hd4501145053_))) - (let ((_hd4501445061_ - (let () + (cons __tmp60460 + __tmp60456)))) + (declare (not safe)) + (cons __tmp60463 __tmp60455)))) + (declare (not safe)) + (cons __tmp60454 '())))) + (declare (not safe)) + (cons __tmp60464 __tmp60453)))) + (declare (not safe)) + (cons _L47657_ __tmp60452)))) + (declare (not safe)) + (cons '%#if __tmp60451)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let ((__tmp60478 + (let ((__tmp60479 + (lambda (_g4771347716_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e4501345058_))) - (_tl4501545063_ - (let () (declare (not safe)) (##cdr _e4501345058_)))) - (if (gx#stx-pair? _hd4501445061_) - (let ((_e4501645066_ (gx#stx-e _hd4501445061_))) - (let ((_hd4501745069_ - (let () - (declare (not safe)) - (##car _e4501645066_))) - (_tl4501845071_ - (let () - (declare (not safe)) - (##cdr _e4501645066_)))) - (if (gx#stx-null? _tl4501845071_) - (if (gx#stx-pair? _tl4501545063_) - (let ((_e4501945074_ - (gx#stx-e _tl4501545063_))) - (let ((_hd4502045077_ - (let () - (declare (not safe)) - (##car _e4501945074_))) - (_tl4502145079_ - (let () - (declare (not safe)) - (##cdr _e4501945074_)))) - (if (gx#stx-null? _tl4502145079_) - (if (gx#stx-null? _tl4501245055_) - (if (gx#stx-pair? _tl4500945047_) - (let ((_e4502245082_ - (gx#stx-e - _tl4500945047_))) - (let ((_hd4502345085_ - (let () - (declare - (not safe)) - (##car _e4502245082_))) - (_tl4502445087_ - (let () - (declare - (not safe)) - (##cdr _e4502245082_)))) - (if (gx#stx-null? - _tl4502445087_) - ((lambda (_L45090_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L45091_ - _L45092_) - (let _lp45116_ ((_body45118_ _L45090_) - (_clauses45119_ '())) - (let* ((___stx5604956050_ _body45118_) - (_g4512245169_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5604956050_)))) - (let ((___kont5605156052_ - (lambda (_L45335_ _L45336_ _L45337_) - (_lp45116_ - _L45335_ - (cons (cons _L45337_ - (gxc#compile-e _L45336_)) - _clauses45119_)))) - (___kont5605356054_ - (lambda (_L45214_ _L45215_) - (let ((_$e45236_ (length _clauses45119_))) - (if (eq? '0 _$e45236_) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (cons (cons (cons _L45092_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _L45091_ '())) - '()) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (gxc#compile-e - _body45118_) - '()))) - _stx44997_) - (if (eq? '1 _$e45236_) - (let* ((_clauses4523845247_ - _clauses45119_) - (_E4524045251_ - (lambda () - (error '"No clause matching" - _clauses4523845247_))) - (_K4524145257_ - (lambda (_clause-lambda45254_ - _clause45255_) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (cons (cons (cons _L45092_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _L45091_ '())) - '()) - (cons (cons '%#let-values - (cons (cons (cons (cons _clause45255_ - '()) - (cons _clause-lambda45254_ - '())) - '()) - (cons (gxc#compile-e _body45118_) - '()))) - '()))) - _stx44997_)))) + _g4771447718_) + (let () + (declare (not safe)) + (cons _g4771347716_ _g4771447718_))))) + (declare (not safe)) + (foldr1 __tmp60479 '() _L47466_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () (declare (not safe)) - (##pair? _clauses4523845247_)) - (let ((_hd4524245260_ - (let () - (declare (not safe)) - (##car _clauses4523845247_))) - (_tl4524345262_ - (let () - (declare (not safe)) - (##cdr _clauses4523845247_)))) - (if (let () - (declare (not safe)) - (##pair? _hd4524245260_)) - (let ((_hd4524445265_ - (let () + (null? __tmp60478)) + _body47711_ + (let ((__tmp60468 + (let ((__tmp60470 + (let ((__tmp60475 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _hd4524245260_))) - (_tl4524545267_ - (let () (declare (not safe)) (##cdr _hd4524245260_)))) - (let* ((_clause45270_ _hd4524445265_) - (_clause-lambda45272_ _tl4524545267_)) - (if (let () (declare (not safe)) (##null? _tl4524345262_)) - (_K4524145257_ _clause-lambda45272_ _clause45270_) - (_E4524045251_)))) - (_E4524045251_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E4524045251_))) - (gxc#optimize-syntax-case-body - _stx44997_ - (gxc#compile-e _L45214_) - (cons _L45092_ _L45091_) - _clauses45119_))))))) - (if (gx#stx-pair? ___stx5604956050_) - (let ((_e4512745279_ - (gx#stx-e ___stx5604956050_))) - (let ((_tl4512945284_ + (lambda (_id47721_ _arg47722_) + (let ((__tmp60477 (let () (declare (not safe)) - (##cdr _e4512745279_))) - (_hd4512845282_ + (cons _id47721_ '()))) + (__tmp60476 (let () (declare (not safe)) - (##car _e4512745279_)))) - (if (gx#identifier? _hd4512845282_) - (if (gx#stx-eq? - '%#let-values - _hd4512845282_) - (if (gx#stx-pair? _tl4512945284_) - (let ((_e4513045287_ - (gx#stx-e - _tl4512945284_))) - (let ((_tl4513245292_ - (let () - (declare (not safe)) - (##cdr _e4513045287_))) - (_hd4513145290_ - (let () - (declare (not safe)) - (##car _e4513045287_)))) - (if (gx#stx-pair? - _hd4513145290_) - (let ((_e4513345295_ - (gx#stx-e - _hd4513145290_))) - (let ((_tl4513545300_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4513345295_))) - (_hd4513445298_ - (let () (declare (not safe)) (##car _e4513345295_)))) - (if (gx#stx-pair? _hd4513445298_) - (let ((_e4513645303_ (gx#stx-e _hd4513445298_))) - (let ((_tl4513845308_ - (let () - (declare (not safe)) - (##cdr _e4513645303_))) - (_hd4513745306_ - (let () - (declare (not safe)) - (##car _e4513645303_)))) - (if (gx#stx-pair? _hd4513745306_) - (let ((_e4513945311_ (gx#stx-e _hd4513745306_))) - (let ((_tl4514145316_ + (cons _arg47722_ '())))) + (declare (not safe)) + (cons __tmp60477 __tmp60476)))) + (__tmp60473 + (let ((__tmp60474 + (lambda (_g4772347726_ _g4772447728_) (let () (declare (not safe)) - (##cdr _e4513945311_))) - (_hd4514045314_ + (cons _g4772347726_ + _g4772447728_))))) + (declare (not safe)) + (foldr1 __tmp60474 '() _L47466_))) + (__tmp60471 + (let ((__tmp60472 + (lambda (_g4773047733_ _g4773147735_) (let () (declare (not safe)) - (##car _e4513945311_)))) - (if (gx#stx-null? _tl4514145316_) - (if (gx#stx-pair? _tl4513845308_) - (let ((_e4514245319_ - (gx#stx-e _tl4513845308_))) - (let ((_tl4514445324_ - (let () - (declare (not safe)) - (##cdr _e4514245319_))) - (_hd4514345322_ - (let () - (declare (not safe)) - (##car _e4514245319_)))) - (if (gx#stx-null? - _tl4514445324_) - (if (gx#stx-null? - _tl4513545300_) - (if (gx#stx-pair? - _tl4513245292_) - (let ((_e4514545327_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4513245292_))) - (let ((_tl4514745332_ - (let () - (declare (not safe)) - (##cdr _e4514545327_))) - (_hd4514645330_ - (let () - (declare (not safe)) - (##car _e4514545327_)))) - (if (gx#stx-null? _tl4514745332_) - (___kont5605156052_ - _hd4514645330_ - _hd4514345322_ - _hd4514045314_) - (_g4512245169_)))) - (_g4512245169_)) - (_g4512245169_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4512245169_)))) - (_g4512245169_)) - (_g4512245169_)))) - (_g4512245169_)))) - (_g4512245169_)))) - (_g4512245169_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4512245169_)) - (if (gx#stx-eq? - '%#call - _hd4512845282_) - (if (gx#stx-pair? - _tl4512945284_) - (let ((_e4515345182_ - (gx#stx-e - _tl4512945284_))) - (let ((_tl4515545187_ - (let () - (declare - (not safe)) - (##cdr _e4515345182_))) - (_hd4515445185_ - (let () - (declare - (not safe)) - (##car _e4515345182_)))) - (if (gx#stx-pair? - _hd4515445185_) - (let ((_e4515645190_ + (cons _g4773047733_ + _g4773147735_))))) + (declare (not safe)) + (foldr1 __tmp60472 '() _L47464_)))) + (declare (not safe)) + (map __tmp60475 __tmp60473 __tmp60471))) + (__tmp60469 + (let () (declare (not safe)) (cons _body47711_ '())))) + (declare (not safe)) + (cons __tmp60470 __tmp60469)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#let-values + __tmp60468))))))) + (___kont5931659317_ + (lambda () + (let ((_kont47552_ + (let ((__tmp60484 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#lambda))) + (__tmp60480 + (let ((__tmp60482 + (let ((__tmp60483 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd4515445185_))) - (let ((_tl4515845195_ - (let () - (declare (not safe)) - (##cdr _e4515645190_))) - (_hd4515745193_ - (let () - (declare (not safe)) - (##car _e4515645190_)))) - (if (gx#identifier? _hd4515745193_) - (if (gx#stx-eq? '%#ref _hd4515745193_) - (if (gx#stx-pair? _tl4515845195_) - (let ((_e4515945198_ - (gx#stx-e _tl4515845195_))) - (let ((_tl4516145203_ + (lambda (_g4754447547_ _g4754547549_) + (let () + (declare (not safe)) + (cons _g4754447547_ _g4754547549_))))) + (declare (not safe)) + (foldr1 __tmp60483 '() _L47466_))) + (__tmp60481 + (let () (declare (not safe)) (cons _L47465_ '())))) + (declare (not safe)) + (cons __tmp60482 __tmp60481)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60484 + __tmp60480)))) (let () (declare (not safe)) - (##cdr _e4515945198_))) - (_hd4516045201_ - (let () + (set-box! + _kont-box47231_ + _kont47552_)) + (let ((__tmp60485 + (let ((__tmp60488 + (let ((__tmp60489 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _kont-id47230_ '())))) + (declare (not safe)) + (cons '%#ref __tmp60489))) + (__tmp60486 + (let ((__tmp60487 + (lambda (_g4755347556_ _g4755447558_) + (let () + (declare (not safe)) + (cons _g4755347556_ _g4755447558_))))) + (declare (not safe)) + (foldr1 __tmp60487 '() _L47464_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60488 + __tmp60486)))) (declare (not safe)) - (##car _e4515945198_)))) - (if (gx#stx-null? _tl4516145203_) - (if (gx#stx-pair? _tl4515545187_) - (let ((_e4516245206_ - (gx#stx-e - _tl4515545187_))) - (let ((_tl4516445211_ - (let () - (declare (not safe)) - (##cdr _e4516245206_))) - (_hd4516345209_ - (let () - (declare (not safe)) - (##car _e4516245206_)))) - (if (gx#stx-null? - _tl4516445211_) - (___kont5605356054_ - _hd4516345209_ - _hd4516045201_) - (_g4512245169_)))) - (_g4512245169_)) - (_g4512245169_)))) - (_g4512245169_)) - (_g4512245169_)) - (_g4512245169_)))) - (_g4512245169_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4512245169_)) - (_g4512245169_))) - (_g4512245169_)))) - (_g4512245169_)))))) - _hd4502345085_ - _hd4502045077_ - _hd4501745069_) - (_g4499945029_ _g4500045032_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4499945029_ - _g4500045032_)) - (_g4499945029_ _g4500045032_)) - (_g4499945029_ _g4500045032_)))) - (_g4499945029_ _g4500045032_)) - (_g4499945029_ _g4500045032_)))) - (_g4499945029_ _g4500045032_)))) - (_g4499945029_ _g4500045032_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4499945029_ _g4500045032_)))) - (_g4499945029_ _g4500045032_)) - (_g4499945029_ _g4500045032_)) - (_g4499945029_ _g4500045032_)))) - (_g4499945029_ _g4500045032_))))) - (_g4499845363_ _stx44997_)))) - (define gxc#optimize-syntax-case-body - (lambda (_stx44925_ _expr44926_ _negation44927_ _clauses44928_) - (letrec ((_normalize44930_ - (lambda (_clauses44957_) - (let* ((_clauses4495844967_ _clauses44957_) - (_E4496044971_ - (lambda () - (error '"No clause matching" - _clauses4495844967_))) - (_K4496144978_ - (lambda (_rest44974_ _kont44975_ _id44976_) - (cons (cons '#f _kont44975_) _rest44974_)))) - (if (let () - (declare (not safe)) - (##pair? _clauses4495844967_)) - (let ((_hd4496244981_ - (let () - (declare (not safe)) - (##car _clauses4495844967_))) - (_tl4496344983_ - (let () - (declare (not safe)) - (##cdr _clauses4495844967_)))) - (if (let () - (declare (not safe)) - (##pair? _hd4496244981_)) - (let ((_hd4496444986_ - (let () - (declare (not safe)) - (##car _hd4496244981_))) - (_tl4496544988_ - (let () - (declare (not safe)) - (##cdr _hd4496244981_)))) - (let* ((_id44991_ _hd4496444986_) - (_kont44993_ _tl4496544988_) - (_rest44995_ _tl4496344983_)) - (_K4496144978_ - _rest44995_ - _kont44993_ - _id44991_))) - (_E4496044971_))) - (_E4496044971_)))))) - (call-with-parameters - (lambda () - (let* ((_id44933_ (make-symbol (gensym '__stx))) - (_id44935_ (gx#core-quote-syntax__0 _id44933_)) - (_g56822_ (gx#core-bind-runtime!__0 _id44935_)) - (_g56823_ - (gxc#optimize-syntax-case-clauses - _clauses44928_ - (car _negation44927_)))) - (begin - (let ((_g56824_ - (let () - (declare (not safe)) - (if (##values? _g56823_) - (##vector-length _g56823_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g56824_ 2))) - (error "Context expects 2 values" _g56824_))) - (let ((_clauses44938_ - (let () - (declare (not safe)) - (##vector-ref _g56823_ 0))) - (_konts44939_ - (let () - (declare (not safe)) - (##vector-ref _g56823_ 1)))) - (let* ((_clauses44948_ - (map (lambda (_g4494044943_ _g4494144945_) - (gxc#optimize-syntax-case-closure - _g4494044943_ - _g4494144945_ - _id44935_)) - _clauses44938_ - (foldr1 cons - (cons (car _negation44927_) '()) - (map car (cdr _clauses44938_))))) - (_clauses44950_ (_normalize44930_ _clauses44948_)) - (_negation44952_ - (gxc#optimize-syntax-case-closure - _negation44927_ - '#f - _id44935_)) - (_body44954_ - (gxc#optimize-match-body - _stx44925_ - _negation44952_ - _clauses44950_ - _konts44939_))) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (cons (cons (cons _id44935_ '()) - (cons _expr44926_ '())) - '()) - (cons _body44954_ '()))) - _stx44925_)))))) - gx#current-expander-context - (let ((__obj56795 (make-object gx#local-context::t '5))) - (gx#local-context:::init!__0 __obj56795) - __obj56795))))) - (define gxc#optimize-syntax-case-clauses - (lambda (_clauses43683_ _negation-id43684_) - (letrec ((_xform-e43686_ - (lambda (_expr44070_ - _kont-id44071_ - _kont-box44072_ - _negation-id44073_) - (let* ((___stx5625156252_ _expr44070_) - (_g4407944212_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5625156252_)))) - (let ((___kont5625356254_ - (lambda (_L44901_ _L44902_ _L44903_) - (let ((_K44920_ - (_xform-e43686_ - _L44902_ - _kont-id44071_ - _kont-box44072_ - _negation-id44073_))) - (cons '%#if - (cons _L44903_ - (cons _K44920_ - (cons _L44901_ '()))))))) - (___kont5625556256_ - (lambda (_L44817_ - _L44818_ - _L44819_ - _L44820_ - _L44821_) - (let* ((_id44856_ - (make-symbol (gensym '__splice))) - (_id44858_ - (gx#core-quote-syntax__0 _id44856_)) - (_g56825_ - (gx#core-bind-runtime!__0 _id44858_)) - (_body44861_ - (_xform-e43686_ - _L44817_ - _kont-id44071_ - _kont-box44072_ - _negation-id44073_))) - (cons '%#let-values - (cons (cons (cons (cons _id44858_ '()) - (cons (cons (gx#datum->syntax__0 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '%#call) - (cons (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _L44819_ '())) - _L44818_)) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons (cons '%#let-values - (cons (cons (cons (cons _L44821_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (cons '%#call - (cons '(%#ref ##vector-ref) - (cons (cons '%#ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _id44858_ '())) - (cons '(%#quote 0) '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons (cons _L44820_ '()) - (cons (cons '%#call - (cons '(%#ref ##vector-ref) - (cons (cons '%#ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _id44858_ '())) - (cons '(%#quote 1) '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '())) - (cons _body44861_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - (___kont5625756258_ - (lambda (_L44699_ _L44700_) - (let ((_body44714_ - (_xform-e43686_ - _L44699_ - _kont-id44071_ - _kont-box44072_ - _negation-id44073_))) - (cons '%#let-values - (cons _L44700_ - (cons _body44714_ '())))))) - (___kont5625956260_ - (lambda (_L44643_ _L44644_ _L44645_) - (let ((_lambda-expr44668_ - (_xform-loop-e43687_ - _L44644_ - _kont-id44071_ - _kont-box44072_ - _negation-id44073_))) - (cons '%#letrec-values - (cons (cons (cons (cons _L44645_ '()) - (cons _lambda-expr44668_ - '())) - '()) - (cons _L44643_ '())))))) - (___kont5626156262_ - (lambda (_L44305_ _L44306_ _L44307_) - (let* ((___stx5615356154_ _L44306_) - (_g4433644379_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5615356154_)))) - (let ((___kont5615556156_ - (lambda (_L44495_ - _L44496_ - _L44497_ - _L44498_) - (let ((_kont44539_ - (cons (gx#datum->syntax__0 - '#f - '%#lambda) - (cons (foldr1 (lambda (_g4453144534_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g4453244536_) - (cons _g4453144534_ _g4453244536_)) - '() - _L44307_) - (cons _L44497_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (set-box! - _kont-box44072_ - _kont44539_) - (let* ((_kont-args44550_ - (map (lambda (_id44541_) - (cons '%#ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _id44541_ '()))) - (foldr1 (lambda (_g4454244545_ _g4454344547_) - (cons _g4454244545_ _g4454344547_)) - '() - _L44307_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_body44552_ - (cons '%#if - (cons _L44498_ - (cons (cons '%#call -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '%#ref - (cons _kont-id44071_ '())) - _kont-args44550_)) - (cons (cons (gx#datum->syntax__0 '#f '%#call) - (cons (cons (gx#datum->syntax__0 - '#f - '%#ref) - (cons _L44496_ '())) - (cons (cons (gx#datum->syntax__0 - '#f - '%#ref) - (cons _L44495_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? (foldr1 (lambda (_g4455444557_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g4455544559_) - (cons _g4455444557_ _g4455544559_)) - '() - _L44307_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _body44552_ - (cons '%#let-values - (cons (map (lambda (_id44562_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg44563_) - (cons (cons _id44562_ '()) (cons _arg44563_ '()))) - (foldr1 (lambda (_g4456444567_ _g4456544569_) - (cons _g4456444567_ _g4456544569_)) - '() - _L44307_) - (foldr1 (lambda (_g4457144574_ _g4457244576_) - (cons _g4457144574_ _g4457244576_)) - '() - _L44305_)) - (cons _body44552_ '())))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5615756158_ - (lambda () - (let ((_kont44393_ - (cons (gx#datum->syntax__0 - '#f - '%#lambda) - (cons (foldr1 (lambda (_g4438544388_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g4438644390_) - (cons _g4438544388_ _g4438644390_)) - '() - _L44307_) - (cons _L44306_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (set-box! - _kont-box44072_ - _kont44393_) - (cons '%#call - (cons (cons '%#ref - (cons _kont-id44071_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (foldr1 (lambda (_g4439444397_ _g4439544399_) - (cons _g4439444397_ _g4439544399_)) - '() - _L44305_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match5624856249_ - (lambda (_e4434244407_ - _hd4434344410_ - _tl4434444412_ - _e4434544415_ - _hd4434644418_ - _tl4434744420_ - _e4434844423_ - _hd4434944426_ - _tl4435044428_ - _e4435144431_ - _hd4435244434_ - _tl4435344436_ - _e4435444439_ - _hd4435544442_ - _tl4435644444_ - _e4435744447_ - _hd4435844450_ - _tl4435944452_ - _e4436044455_ - _hd4436144458_ - _tl4436244460_ - _e4436344463_ - _hd4436444466_ - _tl4436544468_ - _e4436644471_ - _hd4436744474_ - _tl4436844476_ - _e4436944479_ - _hd4437044482_ - _tl4437144484_ - _e4437244487_ - _hd4437344490_ - _tl4437444492_) - (let ((_L44495_ _hd4437344490_) - (_L44496_ _hd4436444466_) - (_L44497_ _hd4434944426_) - (_L44498_ _hd4434644418_)) - (if (gx#free-identifier=? - _L44496_ - _negation-id44073_) - (___kont5615556156_ - _L44495_ - _L44496_ - _L44497_ - _L44498_) - (___kont5615756158_)))))) - (if (gx#stx-pair? ___stx5615356154_) - (let ((_e4434244407_ - (gx#stx-e ___stx5615356154_))) - (let ((_tl4434444412_ + (cons '%#call __tmp60485)))))) + (let ((___match5940759408_ + (lambda (_e4750347566_ + _hd4750247569_ + _tl4750147571_ + _e4750647574_ + _hd4750547577_ + _tl4750447579_ + _e4750947582_ + _hd4750847585_ + _tl4750747587_ + _e4751247590_ + _hd4751147593_ + _tl4751047595_ + _e4751547598_ + _hd4751447601_ + _tl4751347603_ + _e4751847606_ + _hd4751747609_ + _tl4751647611_ + _e4752147614_ + _hd4752047617_ + _tl4751947619_ + _e4752447622_ + _hd4752347625_ + _tl4752247627_ + _e4752747630_ + _hd4752647633_ + _tl4752547635_ + _e4753047638_ + _hd4752947641_ + _tl4752847643_ + _e4753347646_ + _hd4753247649_ + _tl4753147651_) + (let ((_L47654_ _hd4753247649_) + (_L47655_ _hd4752347625_) + (_L47656_ _hd4750847585_) + (_L47657_ _hd4750547577_)) + (if (let () + (declare (not safe)) + (gx#free-identifier=? + _L47655_ + _negation-id47232_)) + (___kont5931459315_ + _L47654_ + _L47655_ + _L47656_ + _L47657_) + (___kont5931659317_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5931259313_)) + (let ((_e4750347566_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx5931259313_)))) + (let ((_tl4750147571_ (let () (declare (not safe)) - (##cdr _e4434244407_))) - (_hd4434344410_ + (##cdr _e4750347566_))) + (_hd4750247569_ (let () (declare (not safe)) - (##car _e4434244407_)))) - (if (gx#identifier? - _hd4434344410_) - (if (gx#stx-eq? - '%#if - _hd4434344410_) - (if (gx#stx-pair? - _tl4434444412_) - (let ((_e4434544415_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl4434444412_))) - (let ((_tl4434744420_ - (let () (declare (not safe)) (##cdr _e4434544415_))) - (_hd4434644418_ - (let () (declare (not safe)) (##car _e4434544415_)))) - (if (gx#stx-pair? _tl4434744420_) - (let ((_e4434844423_ (gx#stx-e _tl4434744420_))) - (let ((_tl4435044428_ + (##car _e4750347566_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd4750247569_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#if + _hd4750247569_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4750147571_)) + (let ((_e4750647574_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl4750147571_)))) + (let ((_tl4750447579_ + (let () (declare (not safe)) (##cdr _e4750647574_))) + (_hd4750547577_ + (let () (declare (not safe)) (##car _e4750647574_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4750447579_)) + (let ((_e4750947582_ + (let () + (declare (not safe)) + (gx#stx-e _tl4750447579_)))) + (let ((_tl4750747587_ (let () (declare (not safe)) - (##cdr _e4434844423_))) - (_hd4434944426_ + (##cdr _e4750947582_))) + (_hd4750847585_ (let () (declare (not safe)) - (##car _e4434844423_)))) - (if (gx#stx-pair? _tl4435044428_) - (let ((_e4435144431_ - (gx#stx-e _tl4435044428_))) - (let ((_tl4435344436_ + (##car _e4750947582_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4750747587_)) + (let ((_e4751247590_ + (let () + (declare (not safe)) + (gx#stx-e _tl4750747587_)))) + (let ((_tl4751047595_ (let () (declare (not safe)) - (##cdr _e4435144431_))) - (_hd4435244434_ + (##cdr _e4751247590_))) + (_hd4751147593_ (let () (declare (not safe)) - (##car _e4435144431_)))) - (if (gx#stx-pair? _hd4435244434_) - (let ((_e4435444439_ - (gx#stx-e _hd4435244434_))) - (let ((_tl4435644444_ + (##car _e4751247590_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4751147593_)) + (let ((_e4751547598_ + (let () + (declare (not safe)) + (gx#stx-e _hd4751147593_)))) + (let ((_tl4751347603_ (let () (declare (not safe)) - (##cdr _e4435444439_))) - (_hd4435544442_ + (##cdr _e4751547598_))) + (_hd4751447601_ (let () (declare (not safe)) - (##car _e4435444439_)))) - (if (gx#identifier? - _hd4435544442_) - (if (gx#stx-eq? - '%#call - _hd4435544442_) - (if (gx#stx-pair? - _tl4435644444_) - (let ((_e4435744447_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl4435644444_))) - (let ((_tl4435944452_ - (let () (declare (not safe)) (##cdr _e4435744447_))) - (_hd4435844450_ - (let () (declare (not safe)) (##car _e4435744447_)))) - (if (gx#stx-pair? _hd4435844450_) - (let ((_e4436044455_ (gx#stx-e _hd4435844450_))) - (let ((_tl4436244460_ + (##car _e4751547598_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd4751447601_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd4751447601_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4751347603_)) + (let ((_e4751847606_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl4751347603_)))) + (let ((_tl4751647611_ + (let () (declare (not safe)) (##cdr _e4751847606_))) + (_hd4751747609_ + (let () (declare (not safe)) (##car _e4751847606_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4751747609_)) + (let ((_e4752147614_ + (let () + (declare (not safe)) + (gx#stx-e _hd4751747609_)))) + (let ((_tl4751947619_ (let () (declare (not safe)) - (##cdr _e4436044455_))) - (_hd4436144458_ + (##cdr _e4752147614_))) + (_hd4752047617_ (let () (declare (not safe)) - (##car _e4436044455_)))) - (if (gx#identifier? _hd4436144458_) - (if (gx#stx-eq? '%#ref _hd4436144458_) - (if (gx#stx-pair? _tl4436244460_) - (let ((_e4436344463_ - (gx#stx-e _tl4436244460_))) - (let ((_tl4436544468_ + (##car _e4752147614_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4752047617_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd4752047617_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4751947619_)) + (let ((_e4752447622_ + (let () + (declare (not safe)) + (gx#stx-e _tl4751947619_)))) + (let ((_tl4752247627_ (let () (declare (not safe)) - (##cdr _e4436344463_))) - (_hd4436444466_ + (##cdr _e4752447622_))) + (_hd4752347625_ (let () (declare (not safe)) - (##car _e4436344463_)))) - (if (gx#stx-null? _tl4436544468_) - (if (gx#stx-pair? - _tl4435944452_) - (let ((_e4436644471_ - (gx#stx-e - _tl4435944452_))) - (let ((_tl4436844476_ + (##car _e4752447622_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4752247627_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4751647611_)) + (let ((_e4752747630_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl4751647611_)))) + (let ((_tl4752547635_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e4436644471_))) - (_hd4436744474_ - (let () (declare (not safe)) (##car _e4436644471_)))) - (if (gx#stx-pair? _hd4436744474_) - (let ((_e4436944479_ (gx#stx-e _hd4436744474_))) - (let ((_tl4437144484_ + (##cdr _e4752747630_))) + (_hd4752647633_ + (let () (declare (not safe)) (##car _e4752747630_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4752647633_)) + (let ((_e4753047638_ + (let () + (declare (not safe)) + (gx#stx-e _hd4752647633_)))) + (let ((_tl4752847643_ (let () (declare (not safe)) - (##cdr _e4436944479_))) - (_hd4437044482_ + (##cdr _e4753047638_))) + (_hd4752947641_ (let () (declare (not safe)) - (##car _e4436944479_)))) - (if (gx#identifier? _hd4437044482_) - (if (gx#stx-eq? '%#ref _hd4437044482_) - (if (gx#stx-pair? _tl4437144484_) - (let ((_e4437244487_ - (gx#stx-e _tl4437144484_))) - (let ((_tl4437444492_ + (##car _e4753047638_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4752947641_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd4752947641_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4752847643_)) + (let ((_e4753347646_ + (let () + (declare (not safe)) + (gx#stx-e _tl4752847643_)))) + (let ((_tl4753147651_ (let () (declare (not safe)) - (##cdr _e4437244487_))) - (_hd4437344490_ + (##cdr _e4753347646_))) + (_hd4753247649_ (let () (declare (not safe)) - (##car _e4437244487_)))) - (if (gx#stx-null? _tl4437444492_) - (if (gx#stx-null? _tl4436844476_) - (if (gx#stx-null? - _tl4435344436_) - (___match5624856249_ - _e4434244407_ - _hd4434344410_ - _tl4434444412_ - _e4434544415_ - _hd4434644418_ - _tl4434744420_ - _e4434844423_ - _hd4434944426_ - _tl4435044428_ - _e4435144431_ - _hd4435244434_ - _tl4435344436_ - _e4435444439_ - _hd4435544442_ - _tl4435644444_ - _e4435744447_ - _hd4435844450_ - _tl4435944452_ - _e4436044455_ - _hd4436144458_ - _tl4436244460_ - _e4436344463_ - _hd4436444466_ - _tl4436544468_ - _e4436644471_ - _hd4436744474_ - _tl4436844476_ - _e4436944479_ - _hd4437044482_ - _tl4437144484_ - _e4437244487_ - _hd4437344490_ - _tl4437444492_) - (___kont5615756158_)) - (___kont5615756158_)) - (___kont5615756158_)))) - (___kont5615756158_)) - (___kont5615756158_)) - (___kont5615756158_)))) - (___kont5615756158_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5615756158_)) - (___kont5615756158_)))) - (___kont5615756158_)) - (___kont5615756158_)) - (___kont5615756158_)))) - (___kont5615756158_)))) - (___kont5615756158_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5615756158_)) - (___kont5615756158_)))) - (___kont5615756158_)))) - (___kont5615756158_)))) - (___kont5615756158_)))) - (___kont5615756158_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5615756158_)) - (___kont5615756158_)))) - (___kont5615756158_)))))))) - (let* ((___match5650856509_ - (lambda (_e4417544217_ - _hd4417644220_ - _tl4417744222_ - _e4417844225_ - _hd4417944228_ - _tl4418044230_ - _e4418144233_ - _hd4418244236_ - _tl4418344238_ - _e4418444241_ - _hd4418544244_ - _tl4418644246_ - ___splice5626356264_ - _target4418744249_ - _tl4418944251_) - (letrec ((_loop4419044254_ - (lambda (_hd4418844257_ - _id4419444259_) - (if (gx#stx-pair? _hd4418844257_) - (let ((_e4419144262_ - (gx#stx-e - _hd4418844257_))) - (let ((_lp-tl4419344267_ + (##car _e4753347646_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4753147651_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4752547635_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4751047595_)) + (___match5940759408_ + _e4750347566_ + _hd4750247569_ + _tl4750147571_ + _e4750647574_ + _hd4750547577_ + _tl4750447579_ + _e4750947582_ + _hd4750847585_ + _tl4750747587_ + _e4751247590_ + _hd4751147593_ + _tl4751047595_ + _e4751547598_ + _hd4751447601_ + _tl4751347603_ + _e4751847606_ + _hd4751747609_ + _tl4751647611_ + _e4752147614_ + _hd4752047617_ + _tl4751947619_ + _e4752447622_ + _hd4752347625_ + _tl4752247627_ + _e4752747630_ + _hd4752647633_ + _tl4752547635_ + _e4753047638_ + _hd4752947641_ + _tl4752847643_ + _e4753347646_ + _hd4753247649_ + _tl4753147651_) + (___kont5931659317_)) + (___kont5931659317_)) + (___kont5931659317_)))) + (___kont5931659317_)) + (___kont5931659317_)) + (___kont5931659317_)))) + (___kont5931659317_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5931659317_)) + (___kont5931659317_)))) + (___kont5931659317_)) + (___kont5931659317_)) + (___kont5931659317_)))) + (___kont5931659317_)))) + (___kont5931659317_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5931659317_)) + (___kont5931659317_)))) + (___kont5931659317_)))) + (___kont5931659317_)))) + (___kont5931659317_)))) + (___kont5931659317_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5931659317_)) + (___kont5931659317_)))) + (___kont5931659317_)))))))) + (let* ((___match5966759668_ + (lambda (_e4733647376_ + _hd4733547379_ + _tl4733447381_ + _e4733947384_ + _hd4733847387_ + _tl4733747389_ + _e4734247392_ + _hd4734147395_ + _tl4734047397_ + _e4734547400_ + _hd4734447403_ + _tl4734347405_ + ___splice5942259423_ + _target4734647408_ + _tl4734847410_) + (letrec ((_loop4734947413_ + (lambda (_hd4734747416_ + _id4735347418_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4734747416_)) + (let ((_e4735047421_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4734747416_)))) + (let ((_lp-tl4735247426_ (let () (declare (not safe)) - (##cdr _e4419144262_))) - (_lp-hd4419244265_ + (##cdr _e4735047421_))) + (_lp-hd4735147424_ (let () (declare (not safe)) - (##car _e4419144262_)))) - (_loop4419044254_ - _lp-tl4419344267_ - (cons _lp-hd4419244265_ - _id4419444259_)))) - (let ((_id4419544270_ - (reverse _id4419444259_))) - (if (gx#stx-pair? - _tl4418644246_) - (let ((_e4419644273_ - (gx#stx-e - _tl4418644246_))) - (let ((_tl4419844278_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e4419644273_))) - (_hd4419744276_ - (let () (declare (not safe)) (##car _e4419644273_)))) - (if (gx#stx-null? _tl4419844278_) - (if (gx#stx-pair/null? _tl4418044230_) - (let ((___splice5626556266_ - (gx#syntax-split-splice _tl4418044230_ '0))) - (let ((_tl4420144283_ + (##car _e4735047421_)))) + (let ((__tmp60491 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _lp-hd4735147424_ _id4735347418_)))) + (declare (not safe)) + (_loop4734947413_ _lp-tl4735247426_ __tmp60491)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_id4735447429_ + (let () + (declare (not safe)) + (reverse _id4735347418_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4734347405_)) + (let ((_e4735747432_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl4734347405_)))) + (let ((_tl4735547437_ + (let () (declare (not safe)) (##cdr _e4735747432_))) + (_hd4735647435_ + (let () (declare (not safe)) (##car _e4735747432_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4735547437_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl4733747389_)) + (let ((___splice5942459425_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl4733747389_ + '0)))) + (let ((_tl4736047442_ (let () (declare (not safe)) - (##vector-ref ___splice5626556266_ '1))) - (_target4419944281_ + (##vector-ref ___splice5942459425_ '1))) + (_target4735847440_ (let () (declare (not safe)) (##vector-ref - ___splice5626556266_ + ___splice5942459425_ '0)))) - (if (gx#stx-null? _tl4420144283_) - (letrec ((_loop4420244286_ - (lambda (_hd4420044289_ - _arg4420644291_) - (if (gx#stx-pair? - _hd4420044289_) - (let ((_e4420344294_ - (gx#stx-e - _hd4420044289_))) - (let ((_lp-tl4420544299_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4736047442_)) + (letrec ((_loop4736147445_ + (lambda (_hd4735947448_ + _arg4736547450_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4735947448_)) + (let ((_e4736247453_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd4735947448_)))) + (let ((_lp-tl4736447458_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e4420344294_))) - (_lp-hd4420444297_ - (let () (declare (not safe)) (##car _e4420344294_)))) - (_loop4420244286_ - _lp-tl4420544299_ - (cons _lp-hd4420444297_ _arg4420644291_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg4420744302_ - (reverse _arg4420644291_))) - (___kont5626156262_ - _arg4420744302_ - _hd4419744276_ - _id4419544270_)))))) - (_loop4420244286_ - _target4419944281_ - '())) - (_g4407944212_)))) - (_g4407944212_)) - (_g4407944212_)))) - (_g4407944212_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4419044254_ - _target4418744249_ - '())))) - (___match5639056391_ - (lambda (_e4410144721_ - _hd4410244724_ - _tl4410344726_ - _e4410444729_ - _hd4410544732_ - _tl4410644734_ - _e4410744737_ - _hd4410844740_ - _tl4410944742_ - _e4411044745_ - _hd4411144748_ - _tl4411244750_ - _e4411344753_ - _hd4411444756_ - _tl4411544758_ - _e4411644761_ - _hd4411744764_ - _tl4411844766_ - _e4411944769_ - _hd4412044772_ - _tl4412144774_ - _e4412244777_ - _hd4412344780_ - _tl4412444782_ - _e4412544785_ - _hd4412644788_ - _tl4412744790_ - _e4412844793_ - _hd4412944796_ - _tl4413044798_ - _e4413144801_ - _hd4413244804_ - _tl4413344806_ - _e4413444809_ - _hd4413544812_ - _tl4413644814_) - (let ((_L44817_ _hd4413544812_) - (_L44818_ _tl4412744790_) - (_L44819_ _hd4413244804_) - (_L44820_ _hd4411744764_) - (_L44821_ _hd4411444756_)) - (if (gxc#runtime-identifier=? - _L44819_ - 'gx#syntax-split-splice) - (___kont5625556256_ - _L44817_ - _L44818_ - _L44819_ - _L44820_ - _L44821_) - (___kont5625756258_ - _hd4413544812_ - _hd4410544732_)))))) - (if (gx#stx-pair? ___stx5625156252_) - (let ((_e4408444869_ - (gx#stx-e ___stx5625156252_))) - (let ((_tl4408644874_ + (##cdr _e4736247453_))) + (_lp-hd4736347456_ + (let () (declare (not safe)) (##car _e4736247453_)))) + (let ((__tmp60490 + (let () + (declare (not safe)) + (cons _lp-hd4736347456_ _arg4736547450_)))) + (declare (not safe)) + (_loop4736147445_ _lp-tl4736447458_ __tmp60490)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_arg4736647461_ + (let () + (declare + (not safe)) + (reverse _arg4736547450_)))) + (___kont5942059421_ + _arg4736647461_ + _hd4735647435_ + _id4735447429_)))))) + (let () + (declare (not safe)) + (_loop4736147445_ + _target4735847440_ + '()))) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_))) + (let () (declare (not safe)) (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop4734947413_ + _target4734647408_ + '()))))) + (___match5954959550_ + (lambda (_e4726247880_ + _hd4726147883_ + _tl4726047885_ + _e4726547888_ + _hd4726447891_ + _tl4726347893_ + _e4726847896_ + _hd4726747899_ + _tl4726647901_ + _e4727147904_ + _hd4727047907_ + _tl4726947909_ + _e4727447912_ + _hd4727347915_ + _tl4727247917_ + _e4727747920_ + _hd4727647923_ + _tl4727547925_ + _e4728047928_ + _hd4727947931_ + _tl4727847933_ + _e4728347936_ + _hd4728247939_ + _tl4728147941_ + _e4728647944_ + _hd4728547947_ + _tl4728447949_ + _e4728947952_ + _hd4728847955_ + _tl4728747957_ + _e4729247960_ + _hd4729147963_ + _tl4729047965_ + _e4729547968_ + _hd4729447971_ + _tl4729347973_) + (let ((_L47976_ _hd4729447971_) + (_L47977_ _tl4728447949_) + (_L47978_ _hd4729147963_) + (_L47979_ _hd4727647923_) + (_L47980_ _hd4727347915_)) + (if (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L47978_ + 'gx#syntax-split-splice)) + (___kont5941459415_ + _L47976_ + _L47977_ + _L47978_ + _L47979_ + _L47980_) + (___kont5941659417_ + _hd4729447971_ + _hd4726447891_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5941059411_)) + (let ((_e4724548028_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5941059411_)))) + (let ((_tl4724348033_ (let () (declare (not safe)) - (##cdr _e4408444869_))) - (_hd4408544872_ + (##cdr _e4724548028_))) + (_hd4724448031_ (let () (declare (not safe)) - (##car _e4408444869_)))) - (if (gx#identifier? _hd4408544872_) - (if (gx#stx-eq? '%#if _hd4408544872_) - (if (gx#stx-pair? _tl4408644874_) - (let ((_e4408744877_ - (gx#stx-e - _tl4408644874_))) - (let ((_tl4408944882_ + (##car _e4724548028_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4724448031_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#if _hd4724448031_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4724348033_)) + (let ((_e4724848036_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4724348033_)))) + (let ((_tl4724648041_ (let () (declare (not safe)) - (##cdr _e4408744877_))) - (_hd4408844880_ + (##cdr _e4724848036_))) + (_hd4724748039_ (let () (declare (not safe)) - (##car _e4408744877_)))) - (if (gx#stx-pair? - _tl4408944882_) - (let ((_e4409044885_ - (gx#stx-e - _tl4408944882_))) - (let ((_tl4409244890_ - (let () + (##car _e4724848036_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4724648041_)) + (let ((_e4725148044_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4409044885_))) - (_hd4409144888_ - (let () (declare (not safe)) (##car _e4409044885_)))) - (if (gx#stx-pair? _tl4409244890_) - (let ((_e4409344893_ (gx#stx-e _tl4409244890_))) - (let ((_tl4409544898_ + (not safe)) + (gx#stx-e _tl4724648041_)))) + (let ((_tl4724948049_ + (let () (declare (not safe)) (##cdr _e4725148044_))) + (_hd4725048047_ + (let () (declare (not safe)) (##car _e4725148044_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4724948049_)) + (let ((_e4725448052_ + (let () + (declare (not safe)) + (gx#stx-e _tl4724948049_)))) + (let ((_tl4725248057_ (let () (declare (not safe)) - (##cdr _e4409344893_))) - (_hd4409444896_ + (##cdr _e4725448052_))) + (_hd4725348055_ (let () (declare (not safe)) - (##car _e4409344893_)))) - (if (gx#stx-null? _tl4409544898_) - (___kont5625356254_ - _hd4409444896_ - _hd4409144888_ - _hd4408844880_) - (_g4407944212_)))) - (_g4407944212_)))) - (_g4407944212_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4407944212_)) - (if (gx#stx-eq? - '%#let-values - _hd4408544872_) - (if (gx#stx-pair? _tl4408644874_) - (let ((_e4410444729_ - (gx#stx-e - _tl4408644874_))) - (let ((_tl4410644734_ + (##car _e4725448052_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4725248057_)) + (___kont5941259413_ + _hd4725348055_ + _hd4725048047_ + _hd4724748039_) + (let () (declare (not safe)) (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4723847371_))) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _hd4724448031_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4724348033_)) + (let ((_e4726547888_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4724348033_)))) + (let ((_tl4726347893_ (let () (declare (not safe)) - (##cdr _e4410444729_))) - (_hd4410544732_ + (##cdr _e4726547888_))) + (_hd4726447891_ (let () (declare (not safe)) - (##car _e4410444729_)))) - (if (gx#stx-pair? - _hd4410544732_) - (let ((_e4410744737_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd4410544732_))) - (let ((_tl4410944742_ - (let () (declare (not safe)) (##cdr _e4410744737_))) - (_hd4410844740_ + (##car _e4726547888_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd4726447891_)) + (let ((_e4726847896_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd4726447891_)))) + (let ((_tl4726647901_ + (let () (declare (not safe)) (##cdr _e4726847896_))) + (_hd4726747899_ (let () (declare (not safe)) - (##car _e4410744737_)))) - (if (gx#stx-pair? _hd4410844740_) - (let ((_e4411044745_ (gx#stx-e _hd4410844740_))) - (let ((_tl4411244750_ + (##car _e4726847896_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4726747899_)) + (let ((_e4727147904_ + (let () + (declare (not safe)) + (gx#stx-e _hd4726747899_)))) + (let ((_tl4726947909_ (let () (declare (not safe)) - (##cdr _e4411044745_))) - (_hd4411144748_ + (##cdr _e4727147904_))) + (_hd4727047907_ (let () (declare (not safe)) - (##car _e4411044745_)))) - (if (gx#stx-pair? _hd4411144748_) - (let ((_e4411344753_ - (gx#stx-e _hd4411144748_))) - (let ((_tl4411544758_ + (##car _e4727147904_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4727047907_)) + (let ((_e4727447912_ + (let () + (declare (not safe)) + (gx#stx-e _hd4727047907_)))) + (let ((_tl4727247917_ (let () (declare (not safe)) - (##cdr _e4411344753_))) - (_hd4411444756_ + (##cdr _e4727447912_))) + (_hd4727347915_ (let () (declare (not safe)) - (##car _e4411344753_)))) - (if (gx#stx-pair? _tl4411544758_) - (let ((_e4411644761_ - (gx#stx-e _tl4411544758_))) - (let ((_tl4411844766_ + (##car _e4727447912_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4727247917_)) + (let ((_e4727747920_ + (let () + (declare (not safe)) + (gx#stx-e _tl4727247917_)))) + (let ((_tl4727547925_ (let () (declare (not safe)) - (##cdr _e4411644761_))) - (_hd4411744764_ + (##cdr _e4727747920_))) + (_hd4727647923_ (let () (declare (not safe)) - (##car _e4411644761_)))) - (if (gx#stx-null? _tl4411844766_) - (if (gx#stx-pair? - _tl4411244750_) - (let ((_e4411944769_ - (gx#stx-e - _tl4411244750_))) - (let ((_tl4412144774_ - (let () + (##car _e4727747920_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4727547925_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4726947909_)) + (let ((_e4728047928_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4411944769_))) - (_hd4412044772_ - (let () (declare (not safe)) (##car _e4411944769_)))) - (if (gx#stx-pair? _hd4412044772_) - (let ((_e4412244777_ (gx#stx-e _hd4412044772_))) - (let ((_tl4412444782_ + (not safe)) + (gx#stx-e _tl4726947909_)))) + (let ((_tl4727847933_ + (let () (declare (not safe)) (##cdr _e4728047928_))) + (_hd4727947931_ + (let () (declare (not safe)) (##car _e4728047928_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4727947931_)) + (let ((_e4728347936_ + (let () + (declare (not safe)) + (gx#stx-e _hd4727947931_)))) + (let ((_tl4728147941_ (let () (declare (not safe)) - (##cdr _e4412244777_))) - (_hd4412344780_ + (##cdr _e4728347936_))) + (_hd4728247939_ (let () (declare (not safe)) - (##car _e4412244777_)))) - (if (gx#identifier? _hd4412344780_) - (if (gx#stx-eq? '%#call _hd4412344780_) - (if (gx#stx-pair? _tl4412444782_) - (let ((_e4412544785_ - (gx#stx-e _tl4412444782_))) - (let ((_tl4412744790_ + (##car _e4728347936_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4728247939_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd4728247939_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4728147941_)) + (let ((_e4728647944_ + (let () + (declare (not safe)) + (gx#stx-e _tl4728147941_)))) + (let ((_tl4728447949_ (let () (declare (not safe)) - (##cdr _e4412544785_))) - (_hd4412644788_ + (##cdr _e4728647944_))) + (_hd4728547947_ (let () (declare (not safe)) - (##car _e4412544785_)))) - (if (gx#stx-pair? _hd4412644788_) - (let ((_e4412844793_ - (gx#stx-e - _hd4412644788_))) - (let ((_tl4413044798_ + (##car _e4728647944_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4728547947_)) + (let ((_e4728947952_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4728547947_)))) + (let ((_tl4728747957_ (let () (declare (not safe)) - (##cdr _e4412844793_))) - (_hd4412944796_ + (##cdr _e4728947952_))) + (_hd4728847955_ (let () (declare (not safe)) - (##car _e4412844793_)))) - (if (gx#identifier? - _hd4412944796_) - (if (gx#stx-eq? - '%#ref - _hd4412944796_) - (if (gx#stx-pair? - _tl4413044798_) - (let ((_e4413144801_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4413044798_))) - (let ((_tl4413344806_ + (##car _e4728947952_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd4728847955_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#ref + _hd4728847955_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl4728747957_)) + (let ((_e4729247960_ + (let () + (declare (not safe)) + (gx#stx-e _tl4728747957_)))) + (let ((_tl4729047965_ (let () (declare (not safe)) - (##cdr _e4413144801_))) - (_hd4413244804_ + (##cdr _e4729247960_))) + (_hd4729147963_ (let () (declare (not safe)) - (##car _e4413144801_)))) - (if (gx#stx-null? _tl4413344806_) - (if (gx#stx-null? _tl4412144774_) - (if (gx#stx-null? _tl4410944742_) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4413444809_ - (gx#stx-e _tl4410644734_))) - (let ((_tl4413644814_ + (##car _e4729247960_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4729047965_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4727847933_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4726647901_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4729547968_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4729347973_ (let () (declare (not safe)) - (##cdr _e4413444809_))) - (_hd4413544812_ + (##cdr _e4729547968_))) + (_hd4729447971_ (let () (declare (not safe)) - (##car _e4413444809_)))) - (if (gx#stx-null? _tl4413644814_) - (___match5639056391_ - _e4408444869_ - _hd4408544872_ - _tl4408644874_ - _e4410444729_ - _hd4410544732_ - _tl4410644734_ - _e4410744737_ - _hd4410844740_ - _tl4410944742_ - _e4411044745_ - _hd4411144748_ - _tl4411244750_ - _e4411344753_ - _hd4411444756_ - _tl4411544758_ - _e4411644761_ - _hd4411744764_ - _tl4411844766_ - _e4411944769_ - _hd4412044772_ - _tl4412144774_ - _e4412244777_ - _hd4412344780_ - _tl4412444782_ - _e4412544785_ - _hd4412644788_ - _tl4412744790_ - _e4412844793_ - _hd4412944796_ - _tl4413044798_ - _e4413144801_ - _hd4413244804_ - _tl4413344806_ - _e4413444809_ - _hd4413544812_ - _tl4413644814_) - (_g4407944212_)))) - (_g4407944212_)) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ - (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4729547968_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4729347973_)) + (___match5954959550_ + _e4724548028_ + _hd4724448031_ + _tl4724348033_ + _e4726547888_ + _hd4726447891_ + _tl4726347893_ + _e4726847896_ + _hd4726747899_ + _tl4726647901_ + _e4727147904_ + _hd4727047907_ + _tl4726947909_ + _e4727447912_ + _hd4727347915_ + _tl4727247917_ + _e4727747920_ + _hd4727647923_ + _tl4727547925_ + _e4728047928_ + _hd4727947931_ + _tl4727847933_ + _e4728347936_ + _hd4728247939_ + _tl4728147941_ + _e4728647944_ + _hd4728547947_ + _tl4728447949_ + _e4728947952_ + _hd4728847955_ + _tl4728747957_ + _e4729247960_ + _hd4729147963_ + _tl4729047965_ + _e4729547968_ + _hd4729447971_ + _tl4729347973_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ - (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ - (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ - (let () (declare (not safe)) (##cdr _e4414544691_))) - (_hd4414644694_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () (declare (not safe)) (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ + (let () (declare (not safe)) (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ _hd4414644694_ _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ - (gx#stx-e - _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ _hd4730547853_ _hd4726447891_) + (let () (declare (not safe)) (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? - _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ - (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare + (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ - (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ - (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ - (let () (declare (not safe)) (##cdr _e4414544691_))) - (_hd4414644694_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_)))))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ + (let () (declare (not safe)) (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ _hd4414644694_ _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _tl4410644734_) - (let ((_e4414544691_ - (gx#stx-e - _tl4410644734_))) - (let ((_tl4414744696_ - (let () + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ _hd4730547853_ _hd4726447891_) + (let () (declare (not safe)) (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ - (let () (declare (not safe)) (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ _hd4414644694_ _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ - (gx#stx-e - _tl4410644734_))) - (let ((_tl4414744696_ + (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ + (let () (declare (not safe)) (##cdr _e4730647850_))) + (_hd4730547853_ + (let () (declare (not safe)) (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ _hd4730547853_ _hd4726447891_) + (let () (declare (not safe)) (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? - _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ - (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))))) - (if (gx#stx-pair? _tl4410644734_) - (let ((_e4414544691_ (gx#stx-e _tl4410644734_))) - (let ((_tl4414744696_ + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4726347893_)) + (let ((_e4730647850_ + (let () + (declare (not safe)) + (gx#stx-e _tl4726347893_)))) + (let ((_tl4730447855_ (let () (declare (not safe)) - (##cdr _e4414544691_))) - (_hd4414644694_ + (##cdr _e4730647850_))) + (_hd4730547853_ (let () (declare (not safe)) - (##car _e4414544691_)))) - (if (gx#stx-null? _tl4414744696_) - (___kont5625756258_ - _hd4414644694_ - _hd4410544732_) - (_g4407944212_)))) - (_g4407944212_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4407944212_)) - (if (gx#stx-eq? - '%#letrec-values - _hd4408544872_) - (if (gx#stx-pair? - _tl4408644874_) - (let ((_e4415444595_ - (gx#stx-e - _tl4408644874_))) - (let ((_tl4415644600_ - (let () + (##car _e4730647850_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4730447855_)) + (___kont5941659417_ + _hd4730547853_ + _hd4726447891_) + (let () (declare (not safe)) (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4723847371_))) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#letrec-values + _hd4724448031_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4724348033_)) + (let ((_e4731547754_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4415444595_))) - (_hd4415544598_ - (let () (declare (not safe)) (##car _e4415444595_)))) - (if (gx#stx-pair? _hd4415544598_) - (let ((_e4415744603_ (gx#stx-e _hd4415544598_))) - (let ((_tl4415944608_ + (not safe)) + (gx#stx-e _tl4724348033_)))) + (let ((_tl4731347759_ + (let () (declare (not safe)) (##cdr _e4731547754_))) + (_hd4731447757_ + (let () (declare (not safe)) (##car _e4731547754_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4731447757_)) + (let ((_e4731847762_ + (let () + (declare (not safe)) + (gx#stx-e _hd4731447757_)))) + (let ((_tl4731647767_ (let () (declare (not safe)) - (##cdr _e4415744603_))) - (_hd4415844606_ + (##cdr _e4731847762_))) + (_hd4731747765_ (let () (declare (not safe)) - (##car _e4415744603_)))) - (if (gx#stx-pair? _hd4415844606_) - (let ((_e4416044611_ (gx#stx-e _hd4415844606_))) - (let ((_tl4416244616_ + (##car _e4731847762_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4731747765_)) + (let ((_e4732147770_ + (let () + (declare (not safe)) + (gx#stx-e _hd4731747765_)))) + (let ((_tl4731947775_ (let () (declare (not safe)) - (##cdr _e4416044611_))) - (_hd4416144614_ + (##cdr _e4732147770_))) + (_hd4732047773_ (let () (declare (not safe)) - (##car _e4416044611_)))) - (if (gx#stx-pair? _hd4416144614_) - (let ((_e4416344619_ - (gx#stx-e _hd4416144614_))) - (let ((_tl4416544624_ + (##car _e4732147770_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4732047773_)) + (let ((_e4732447778_ + (let () + (declare (not safe)) + (gx#stx-e _hd4732047773_)))) + (let ((_tl4732247783_ (let () (declare (not safe)) - (##cdr _e4416344619_))) - (_hd4416444622_ + (##cdr _e4732447778_))) + (_hd4732347781_ (let () (declare (not safe)) - (##car _e4416344619_)))) - (if (gx#stx-null? _tl4416544624_) - (if (gx#stx-pair? _tl4416244616_) - (let ((_e4416644627_ - (gx#stx-e - _tl4416244616_))) - (let ((_tl4416844632_ + (##car _e4732447778_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4732247783_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4731947775_)) + (let ((_e4732747786_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4731947775_)))) + (let ((_tl4732547791_ (let () (declare (not safe)) - (##cdr _e4416644627_))) - (_hd4416744630_ + (##cdr _e4732747786_))) + (_hd4732647789_ (let () (declare (not safe)) - (##car _e4416644627_)))) - (if (gx#stx-null? - _tl4416844632_) - (if (gx#stx-null? - _tl4415944608_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl4415644600_) - (let ((_e4416944635_ (gx#stx-e _tl4415644600_))) - (let ((_tl4417144640_ + (##car _e4732747786_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl4732547791_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl4731647767_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4731347759_)) + (let ((_e4733047794_ + (let () + (declare (not safe)) + (gx#stx-e _tl4731347759_)))) + (let ((_tl4732847799_ (let () (declare (not safe)) - (##cdr _e4416944635_))) - (_hd4417044638_ + (##cdr _e4733047794_))) + (_hd4732947797_ (let () (declare (not safe)) - (##car _e4416944635_)))) - (if (gx#stx-null? _tl4417144640_) - (___kont5625956260_ - _hd4417044638_ - _hd4416744630_ - _hd4416444622_) - (_g4407944212_)))) - (_g4407944212_)) - (_g4407944212_)) - (_g4407944212_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4407944212_)) - (_g4407944212_)))) - (_g4407944212_)))) - (_g4407944212_)))) - (_g4407944212_)))) - (_g4407944212_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#call - _hd4408544872_) - (if (gx#stx-pair? - _tl4408644874_) - (let ((_e4417844225_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4408644874_))) - (let ((_tl4418044230_ - (let () (declare (not safe)) (##cdr _e4417844225_))) - (_hd4417944228_ + (##car _e4733047794_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4732847799_)) + (___kont5941859419_ + _hd4732947797_ + _hd4732647789_ + _hd4732347781_) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_))) + (let () (declare (not safe)) (_g4723847371_))) + (let () (declare (not safe)) (_g4723847371_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4723847371_))) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd4724448031_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl4724348033_)) + (let ((_e4733947384_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl4724348033_)))) + (let ((_tl4733747389_ + (let () (declare (not safe)) (##cdr _e4733947384_))) + (_hd4733847387_ (let () (declare (not safe)) - (##car _e4417844225_)))) - (if (gx#stx-pair? _hd4417944228_) - (let ((_e4418144233_ (gx#stx-e _hd4417944228_))) - (let ((_tl4418344238_ + (##car _e4733947384_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4733847387_)) + (let ((_e4734247392_ + (let () + (declare (not safe)) + (gx#stx-e _hd4733847387_)))) + (let ((_tl4734047397_ (let () (declare (not safe)) - (##cdr _e4418144233_))) - (_hd4418244236_ + (##cdr _e4734247392_))) + (_hd4734147395_ (let () (declare (not safe)) - (##car _e4418144233_)))) - (if (gx#identifier? _hd4418244236_) - (if (gx#stx-eq? '%#lambda _hd4418244236_) - (if (gx#stx-pair? _tl4418344238_) - (let ((_e4418444241_ - (gx#stx-e _tl4418344238_))) - (let ((_tl4418644246_ + (##car _e4734247392_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4734147395_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#lambda _hd4734147395_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4734047397_)) + (let ((_e4734547400_ + (let () + (declare (not safe)) + (gx#stx-e _tl4734047397_)))) + (let ((_tl4734347405_ (let () (declare (not safe)) - (##cdr _e4418444241_))) - (_hd4418544244_ + (##cdr _e4734547400_))) + (_hd4734447403_ (let () (declare (not safe)) - (##car _e4418444241_)))) - (if (gx#stx-pair/null? - _hd4418544244_) - (let ((___splice5626356264_ - (gx#syntax-split-splice - _hd4418544244_ - '0))) - (let ((_tl4418944251_ + (##car _e4734547400_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _hd4734447403_)) + (let ((___splice5942259423_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd4734447403_ + '0)))) + (let ((_tl4734847410_ (let () (declare (not safe)) (##vector-ref - ___splice5626356264_ + ___splice5942259423_ '1))) - (_target4418744249_ + (_target4734647408_ (let () (declare (not safe)) (##vector-ref - ___splice5626356264_ + ___splice5942259423_ '0)))) - (if (gx#stx-null? - _tl4418944251_) - (___match5650856509_ - _e4408444869_ - _hd4408544872_ - _tl4408644874_ - _e4417844225_ - _hd4417944228_ - _tl4418044230_ - _e4418144233_ - _hd4418244236_ - _tl4418344238_ - _e4418444241_ - _hd4418544244_ - _tl4418644246_ - ___splice5626356264_ - _target4418744249_ - _tl4418944251_) - (_g4407944212_)))) - (_g4407944212_)))) - (_g4407944212_)) - (_g4407944212_)) - (_g4407944212_)))) - (_g4407944212_)))) - (_g4407944212_)) - (_g4407944212_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4407944212_)))) - (_g4407944212_))))))) - (_xform-loop-e43687_ - (lambda (_expr43896_ - _kont-id43897_ - _kont-box43898_ - _negation-id43899_) - (let* ((_g4390143941_ - (lambda (_g4390243938_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4390243938_))) - (_g4390044067_ - (lambda (_g4390243944_) - (if (gx#stx-pair? _g4390243944_) - (let ((_e4390743946_ - (gx#stx-e _g4390243944_))) - (let ((_hd4390843949_ + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl4734847410_)) + (___match5966759668_ + _e4724548028_ + _hd4724448031_ + _tl4724348033_ + _e4733947384_ + _hd4733847387_ + _tl4733747389_ + _e4734247392_ + _hd4734147395_ + _tl4734047397_ + _e4734547400_ + _hd4734447403_ + _tl4734347405_ + ___splice5942259423_ + _target4734647408_ + _tl4734847410_) + (let () + (declare + (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_))) + (let () + (declare (not safe)) + (_g4723847371_))) + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_))))) + (let () (declare (not safe)) (_g4723847371_))) + (let () (declare (not safe)) (_g4723847371_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4723847371_))))) + (let () + (declare (not safe)) + (_g4723847371_)))))))) + (_xform-loop-e46846_ + (lambda (_expr47055_ + _kont-id47056_ + _kont-box47057_ + _negation-id47058_) + (let* ((_g4706047100_ + (lambda (_g4706147097_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4706147097_)))) + (_g4705947226_ + (lambda (_g4706147103_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4706147103_)) + (let ((_e4706847105_ + (let () + (declare (not safe)) + (gx#stx-e _g4706147103_)))) + (let ((_hd4706747108_ (let () (declare (not safe)) - (##car _e4390743946_))) - (_tl4390943951_ + (##car _e4706847105_))) + (_tl4706647110_ (let () (declare (not safe)) - (##cdr _e4390743946_)))) - (if (gx#identifier? _hd4390843949_) - (if (gx#stx-eq? - '%#lambda - _hd4390843949_) - (if (gx#stx-pair? _tl4390943951_) - (let ((_e4391043954_ - (gx#stx-e - _tl4390943951_))) - (let ((_hd4391143957_ + (##cdr _e4706847105_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4706747108_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd4706747108_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4706647110_)) + (let ((_e4707147113_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4706647110_)))) + (let ((_hd4707047116_ (let () (declare (not safe)) - (##car _e4391043954_))) - (_tl4391243959_ + (##car _e4707147113_))) + (_tl4706947118_ (let () (declare (not safe)) - (##cdr _e4391043954_)))) - (if (gx#stx-pair/null? - _hd4391143957_) - (let ((_g56826_ + (##cdr _e4707147113_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair/null? + _hd4707047116_)) + (let ((_g60492_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _hd4391143957_ '0))) + (let () + (declare (not safe)) + (gx#syntax-split-splice _hd4707047116_ '0)))) (begin - (let ((_g56827_ + (let ((_g60493_ (let () (declare (not safe)) - (if (##values? _g56826_) - (##vector-length _g56826_) + (if (##values? _g60492_) + (##vector-length _g60492_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g56827_ 2))) - (error "Context expects 2 values" _g56827_))) - (let ((_target4391343962_ + (##fx= _g60493_ 2))) + (error "Context expects 2 values" _g60493_))) + (let ((_target4707247121_ (let () (declare (not safe)) - (##vector-ref _g56826_ 0))) - (_tl4391543964_ + (##vector-ref _g60492_ 0))) + (_tl4707447123_ (let () (declare (not safe)) - (##vector-ref _g56826_ 1)))) - (if (gx#stx-null? _tl4391543964_) - (letrec ((_loop4391643967_ - (lambda (_hd4391443970_ _id4392043972_) - (if (gx#stx-pair? _hd4391443970_) - (let ((_e4391743975_ - (gx#stx-e _hd4391443970_))) - (let ((_lp-hd4391843978_ + (##vector-ref _g60492_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4707447123_)) + (letrec ((_loop4707547126_ + (lambda (_hd4707347129_ _id4707947131_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4707347129_)) + (let ((_e4707647134_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4707347129_)))) + (let ((_lp-hd4707747137_ (let () (declare (not safe)) - (##car _e4391743975_))) - (_lp-tl4391943980_ + (##car _e4707647134_))) + (_lp-tl4707847139_ (let () (declare (not safe)) - (##cdr _e4391743975_)))) - (_loop4391643967_ - _lp-tl4391943980_ - (cons _lp-hd4391843978_ - _id4392043972_)))) - (let ((_id4392143983_ - (reverse _id4392043972_))) - (if (gx#stx-pair? _tl4391243959_) - (let ((_e4392243986_ - (gx#stx-e - _tl4391243959_))) - (let ((_hd4392343989_ + (##cdr _e4707647134_)))) + (let ((__tmp60502 + (let () + (declare (not safe)) + (cons _lp-hd4707747137_ + _id4707947131_)))) + (declare (not safe)) + (_loop4707547126_ + _lp-tl4707847139_ + __tmp60502)))) + (let ((_id4708047142_ + (let () + (declare (not safe)) + (reverse _id4707947131_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4706947118_)) + (let ((_e4708347145_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4706947118_)))) + (let ((_hd4708247148_ (let () (declare (not safe)) - (##car _e4392243986_))) - (_tl4392443991_ + (##car _e4708347145_))) + (_tl4708147150_ (let () (declare (not safe)) - (##cdr _e4392243986_)))) - (if (gx#stx-pair? - _hd4392343989_) - (let ((_e4392543994_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd4392343989_))) - (let ((_hd4392643997_ - (let () (declare (not safe)) (##car _e4392543994_))) - (_tl4392743999_ + (##cdr _e4708347145_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd4708247148_)) + (let ((_e4708647153_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd4708247148_)))) + (let ((_hd4708547156_ + (let () (declare (not safe)) (##car _e4708647153_))) + (_tl4708447158_ (let () (declare (not safe)) - (##cdr _e4392543994_)))) - (if (gx#identifier? _hd4392643997_) - (if (gx#stx-eq? '%#if _hd4392643997_) - (if (gx#stx-pair? _tl4392743999_) - (let ((_e4392844002_ - (gx#stx-e _tl4392743999_))) - (let ((_hd4392944005_ + (##cdr _e4708647153_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4708547156_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#if _hd4708547156_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4708447158_)) + (let ((_e4708947161_ + (let () + (declare (not safe)) + (gx#stx-e _tl4708447158_)))) + (let ((_hd4708847164_ (let () (declare (not safe)) - (##car _e4392844002_))) - (_tl4393044007_ + (##car _e4708947161_))) + (_tl4708747166_ (let () (declare (not safe)) - (##cdr _e4392844002_)))) - (if (gx#stx-pair? _tl4393044007_) - (let ((_e4393144010_ - (gx#stx-e _tl4393044007_))) - (let ((_hd4393244013_ + (##cdr _e4708947161_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4708747166_)) + (let ((_e4709247169_ + (let () + (declare (not safe)) + (gx#stx-e _tl4708747166_)))) + (let ((_hd4709147172_ (let () (declare (not safe)) - (##car _e4393144010_))) - (_tl4393344015_ + (##car _e4709247169_))) + (_tl4709047174_ (let () (declare (not safe)) - (##cdr _e4393144010_)))) - (if (gx#stx-pair? _tl4393344015_) - (let ((_e4393444018_ - (gx#stx-e - _tl4393344015_))) - (let ((_hd4393544021_ + (##cdr _e4709247169_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4709047174_)) + (let ((_e4709547177_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4709047174_)))) + (let ((_hd4709447180_ (let () (declare (not safe)) - (##car _e4393444018_))) - (_tl4393644023_ + (##car _e4709547177_))) + (_tl4709347182_ (let () (declare (not safe)) - (##cdr _e4393444018_)))) - (if (gx#stx-null? - _tl4393644023_) - (if (gx#stx-null? - _tl4392443991_) - ((lambda (_L44026_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L44027_ - _L44028_ - _L44029_) - (let ((_E44058_ - (_xform-e43686_ - _L44026_ - _kont-id43897_ - _kont-box43898_ - _negation-id43899_))) - (cons '%#lambda - (cons (foldr1 (lambda (_g4405944062_ - _g4406044064_) - (cons _g4405944062_ - _g4406044064_)) - '() - _L44029_) - (cons (cons '%#if - (cons _L44028_ - (cons _L44027_ - (cons _E44058_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _hd4393544021_ - _hd4393244013_ - _hd4392944005_ - _id4392143983_) - (_g4390143941_ _g4390243944_)) - (_g4390143941_ _g4390243944_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4390143941_ - _g4390243944_)))) - (_g4390143941_ _g4390243944_)))) - (_g4390143941_ _g4390243944_)) - (_g4390143941_ _g4390243944_)) - (_g4390143941_ _g4390243944_)))) - (_g4390143941_ _g4390243944_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4390143941_ - _g4390243944_))))))) - (_loop4391643967_ _target4391343962_ '())) - (_g4390143941_ _g4390243944_))))) - (_g4390143941_ _g4390243944_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4390143941_ - _g4390243944_)) - (_g4390143941_ _g4390243944_)) - (_g4390143941_ _g4390243944_)))) - (_g4390143941_ _g4390243944_))))) - (_g4390044067_ _expr43896_)))) - (_clause-e43688_ - (lambda (_clause-lambda43766_ _kont-id43767_ _rest43768_) - (letrec* ((_kont-box43770_ (box '#f))) - (let* ((_negation-id43810_ - (let* ((_rest4377143781_ _rest43768_) - (_else4377343789_ - (lambda () _negation-id43684_)) - (_K4377543795_ - (lambda (_clause43792_ _clause-id43793_) - _clause-id43793_))) + (##cdr _e4709547177_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl4709347182_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl4708147150_)) + ((lambda (_L47185_ _L47186_ _L47187_ _L47188_) + (let* ((_E47217_ + (let () + (declare (not safe)) + (_xform-e46845_ + _L47185_ + _kont-id47056_ + _kont-box47057_ + _negation-id47058_))) + (__tmp60494 + (let ((__tmp60500 + (let ((__tmp60501 + (lambda (_g4721847221_ + _g4721947223_) + (let () + (declare (not safe)) + (cons _g4721847221_ + _g4721947223_))))) + (declare (not safe)) + (foldr1 __tmp60501 '() _L47188_))) + (__tmp60495 + (let ((__tmp60496 + (let ((__tmp60497 + (let ((__tmp60498 + (let ((__tmp60499 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _E47217_ '())))) + (declare (not safe)) + (cons _L47186_ __tmp60499)))) + (declare (not safe)) + (cons _L47187_ __tmp60498)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#if __tmp60497)))) + (declare (not safe)) + (cons __tmp60496 '())))) + (declare (not safe)) + (cons __tmp60500 __tmp60495)))) + (declare (not safe)) + (cons '%#lambda __tmp60494))) + _hd4709447180_ + _hd4709147172_ + _hd4708847164_ + _id4708047142_) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_))) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4706047100_ + _g4706147103_))))) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_))))) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_))) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_))) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_))))) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4706047100_ + _g4706147103_)))))))) + (let () + (declare (not safe)) + (_loop4707547126_ _target4707247121_ '()))) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_)))))) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4706047100_ + _g4706147103_))) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_))) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_))))) + (let () + (declare (not safe)) + (_g4706047100_ _g4706147103_)))))) + (declare (not safe)) + (_g4705947226_ _expr47055_)))) + (_clause-e46847_ + (lambda (_clause-lambda46925_ _kont-id46926_ _rest46927_) + (letrec* ((_kont-box46929_ + (let () (declare (not safe)) (box '#f)))) + (let* ((_negation-id46969_ + (let* ((_rest4693046940_ _rest46927_) + (_else4693246948_ + (lambda () _negation-id46843_)) + (_K4693446954_ + (lambda (_clause46951_ _clause-id46952_) + _clause-id46952_))) (if (let () (declare (not safe)) - (##pair? _rest4377143781_)) - (let ((_hd4377643798_ + (##pair? _rest4693046940_)) + (let ((_hd4693546957_ (let () (declare (not safe)) - (##car _rest4377143781_)))) + (##car _rest4693046940_)))) (if (let () (declare (not safe)) - (##pair? _hd4377643798_)) - (let ((_hd4377843801_ + (##pair? _hd4693546957_)) + (let ((_hd4693746960_ (let () (declare (not safe)) - (##car _hd4377643798_))) - (_tl4377943803_ + (##car _hd4693546957_))) + (_tl4693846962_ (let () (declare (not safe)) - (##cdr _hd4377643798_)))) - (let* ((_clause-id43806_ - _hd4377843801_) - (_clause43808_ - _tl4377943803_)) - (_K4377543795_ - _clause43808_ - _clause-id43806_))) - (_else4377343789_))) - (_else4377343789_)))) - (_g4381243832_ - (lambda (_g4381343829_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4381343829_))) - (_g4381143893_ - (lambda (_g4381343835_) - (if (gx#stx-pair? _g4381343835_) - (let ((_e4381643837_ - (gx#stx-e _g4381343835_))) - (let ((_hd4381743840_ + (##cdr _hd4693546957_)))) + (let* ((_clause-id46965_ + _hd4693746960_) + (_clause46967_ + _tl4693846962_)) + (declare (not safe)) + (_K4693446954_ + _clause46967_ + _clause-id46965_))) + (let () + (declare (not safe)) + (_else4693246948_)))) + (let () + (declare (not safe)) + (_else4693246948_))))) + (_g4697146991_ + (lambda (_g4697246988_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4697246988_)))) + (_g4697047052_ + (lambda (_g4697246994_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4697246994_)) + (let ((_e4697746996_ + (let () + (declare (not safe)) + (gx#stx-e _g4697246994_)))) + (let ((_hd4697646999_ (let () (declare (not safe)) - (##car _e4381643837_))) - (_tl4381843842_ + (##car _e4697746996_))) + (_tl4697547001_ (let () (declare (not safe)) - (##cdr _e4381643837_)))) - (if (gx#identifier? _hd4381743840_) - (if (gx#stx-eq? - '%#lambda - _hd4381743840_) - (if (gx#stx-pair? - _tl4381843842_) - (let ((_e4381943845_ - (gx#stx-e - _tl4381843842_))) - (let ((_hd4382043848_ + (##cdr _e4697746996_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4697646999_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd4697646999_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4697547001_)) + (let ((_e4698047004_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl4697547001_)))) + (let ((_hd4697947007_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e4381943845_))) - (_tl4382143850_ - (let () (declare (not safe)) (##cdr _e4381943845_)))) - (if (gx#stx-pair? _hd4382043848_) - (let ((_e4382243853_ (gx#stx-e _hd4382043848_))) - (let ((_hd4382343856_ + (##car _e4698047004_))) + (_tl4697847009_ + (let () (declare (not safe)) (##cdr _e4698047004_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd4697947007_)) + (let ((_e4698347012_ + (let () + (declare (not safe)) + (gx#stx-e _hd4697947007_)))) + (let ((_hd4698247015_ (let () (declare (not safe)) - (##car _e4382243853_))) - (_tl4382443858_ + (##car _e4698347012_))) + (_tl4698147017_ (let () (declare (not safe)) - (##cdr _e4382243853_)))) - (if (gx#stx-null? _tl4382443858_) - (if (gx#stx-pair? _tl4382143850_) - (let ((_e4382543861_ - (gx#stx-e _tl4382143850_))) - (let ((_hd4382643864_ + (##cdr _e4698347012_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4698147017_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4697847009_)) + (let ((_e4698647020_ + (let () + (declare (not safe)) + (gx#stx-e _tl4697847009_)))) + (let ((_hd4698547023_ (let () (declare (not safe)) - (##car _e4382543861_))) - (_tl4382743866_ + (##car _e4698647020_))) + (_tl4698447025_ (let () (declare (not safe)) - (##cdr _e4382543861_)))) - (if (gx#stx-null? _tl4382743866_) - ((lambda (_L43869_ _L43870_) - (let ((_body43891_ - (_xform-e43686_ - _L43869_ - _kont-id43767_ - _kont-box43770_ - _negation-id43810_))) - (values (cons '%#lambda - (cons (cons _L43870_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _body43891_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _kont-box43770_)))) - _hd4382643864_ - _hd4382343856_) - (_g4381243832_ _g4381343835_)))) - (_g4381243832_ _g4381343835_)) - (_g4381243832_ _g4381343835_)))) - (_g4381243832_ _g4381343835_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4381243832_ - _g4381343835_)) - (_g4381243832_ _g4381343835_)) - (_g4381243832_ _g4381343835_)))) - (_g4381243832_ _g4381343835_))))) - (_g4381143893_ _clause-lambda43766_)))))) - (let _lp43690_ ((_rest43692_ _clauses43683_) - (_clauses43693_ '()) - (_konts43694_ '())) - (let* ((_rest4369543703_ _rest43692_) - (_else4369743711_ + (##cdr _e4698647020_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4698447025_)) + ((lambda (_L47028_ _L47029_) + (let ((_body47050_ + (let () + (declare (not safe)) + (_xform-e46845_ + _L47028_ + _kont-id46926_ + _kont-box46929_ + _negation-id46969_)))) + (values (let ((__tmp60503 + (let ((__tmp60505 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L47029_ '()))) + (__tmp60504 + (let () + (declare (not safe)) + (cons _body47050_ '())))) + (declare (not safe)) + (cons __tmp60505 __tmp60504)))) + (declare (not safe)) + (cons '%#lambda __tmp60503)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (unbox _kont-box46929_))))) + _hd4698547023_ + _hd4698247015_) + (let () + (declare (not safe)) + (_g4697146991_ _g4697246994_))))) + (let () + (declare (not safe)) + (_g4697146991_ _g4697246994_))) + (let () + (declare (not safe)) + (_g4697146991_ _g4697246994_))))) + (let () + (declare (not safe)) + (_g4697146991_ _g4697246994_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4697146991_ + _g4697246994_))) + (let () + (declare (not safe)) + (_g4697146991_ + _g4697246994_))) + (let () + (declare (not safe)) + (_g4697146991_ _g4697246994_))))) + (let () + (declare (not safe)) + (_g4697146991_ _g4697246994_)))))) + (declare (not safe)) + (_g4697047052_ _clause-lambda46925_)))))) + (let _lp46849_ ((_rest46851_ _clauses46842_) + (_clauses46852_ '()) + (_konts46853_ '())) + (let* ((_rest4685446862_ _rest46851_) + (_else4685646870_ (lambda () - (values (reverse _clauses43693_) - (reverse _konts43694_)))) - (_K4369943754_ - (lambda (_rest43714_ _clause43715_) - (let* ((_clause4371643723_ _clause43715_) - (_E4371843727_ + (values (let () + (declare (not safe)) + (reverse _clauses46852_)) + (let () + (declare (not safe)) + (reverse _konts46853_))))) + (_K4685846913_ + (lambda (_rest46873_ _clause46874_) + (let* ((_clause4687546882_ _clause46874_) + (_E4687746886_ (lambda () (error '"No clause matching" - _clause4371643723_))) - (_K4371943742_ - (lambda (_clause-lambda43730_ _clause-id43731_) - (let* ((_id43733_ - (make-symbol (gensym '__kont))) - (_id43735_ - (gx#core-quote-syntax__0 _id43733_)) - (_g56828_ - (gx#core-bind-runtime!__0 _id43735_)) - (_g56829_ - (_clause-e43688_ - _clause-lambda43730_ - _id43735_ - _rest43714_))) + _clause4687546882_))) + (_K4687846901_ + (lambda (_clause-lambda46889_ _clause-id46890_) + (let* ((_id46892_ + (make-symbol + (let () + (declare (not safe)) + (gensym '__kont)))) + (_id46894_ + (let () + (declare (not safe)) + (gx#core-quote-syntax__0 _id46892_))) + (_g60506_ + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 + _id46894_))) + (_g60507_ + (let () + (declare (not safe)) + (_clause-e46847_ + _clause-lambda46889_ + _id46894_ + _rest46873_)))) (begin - (let ((_g56830_ + (let ((_g60508_ (let () (declare (not safe)) - (if (##values? _g56829_) - (##vector-length _g56829_) + (if (##values? _g60507_) + (##vector-length _g60507_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g56830_ 2))) + (##fx= _g60508_ 2))) (error "Context expects 2 values" - _g56830_))) - (let ((_clause-lambda43738_ + _g60508_))) + (let ((_clause-lambda46897_ (let () (declare (not safe)) - (##vector-ref _g56829_ 0))) - (_kont43739_ + (##vector-ref _g60507_ 0))) + (_kont46898_ (let () (declare (not safe)) - (##vector-ref _g56829_ 1)))) + (##vector-ref _g60507_ 1)))) (let () - (_lp43690_ - _rest43714_ - (cons (cons _clause-id43731_ - _clause-lambda43738_) - _clauses43693_) - (cons (cons _id43735_ _kont43739_) - _konts43694_))))))))) + (let ((__tmp60511 + (let ((__tmp60512 + (let () + (declare (not safe)) + (cons _clause-id46890_ + _clause-lambda46897_)))) + (declare (not safe)) + (cons __tmp60512 + _clauses46852_))) + (__tmp60509 + (let ((__tmp60510 + (let () + (declare (not safe)) + (cons _id46894_ + _kont46898_)))) + (declare (not safe)) + (cons __tmp60510 + _konts46853_)))) + (declare (not safe)) + (_lp46849_ + _rest46873_ + __tmp60511 + __tmp60509))))))))) (if (let () (declare (not safe)) - (##pair? _clause4371643723_)) - (let ((_hd4372043745_ + (##pair? _clause4687546882_)) + (let ((_hd4687946904_ (let () (declare (not safe)) - (##car _clause4371643723_))) - (_tl4372143747_ + (##car _clause4687546882_))) + (_tl4688046906_ (let () (declare (not safe)) - (##cdr _clause4371643723_)))) - (let* ((_clause-id43750_ _hd4372043745_) - (_clause-lambda43752_ _tl4372143747_)) - (_K4371943742_ - _clause-lambda43752_ - _clause-id43750_))) - (_E4371843727_)))))) - (if (let () (declare (not safe)) (##pair? _rest4369543703_)) - (let ((_hd4370043757_ + (##cdr _clause4687546882_)))) + (let* ((_clause-id46909_ _hd4687946904_) + (_clause-lambda46911_ _tl4688046906_)) + (declare (not safe)) + (_K4687846901_ + _clause-lambda46911_ + _clause-id46909_))) + (let () (declare (not safe)) (_E4687746886_))))))) + (if (let () (declare (not safe)) (##pair? _rest4685446862_)) + (let ((_hd4685946916_ (let () (declare (not safe)) - (##car _rest4369543703_))) - (_tl4370143759_ + (##car _rest4685446862_))) + (_tl4686046918_ (let () (declare (not safe)) - (##cdr _rest4369543703_)))) - (let* ((_clause43762_ _hd4370043757_) - (_rest43764_ _tl4370143759_)) - (_K4369943754_ _rest43764_ _clause43762_))) - (_else4369743711_))))))) + (##cdr _rest4685446862_)))) + (let* ((_clause46921_ _hd4685946916_) + (_rest46923_ _tl4686046918_)) + (declare (not safe)) + (_K4685846913_ _rest46923_ _clause46921_))) + (let () (declare (not safe)) (_else4685646870_)))))))) (define gxc#optimize-syntax-case-closure - (lambda (_clause43027_ _negation43028_ _target43029_) - (letrec ((_closure-e43031_ - (lambda (_expr43148_) - (let* ((___stx5651156512_ _expr43148_) - (_g4315543270_ + (lambda (_clause46186_ _negation46187_ _target46188_) + (letrec ((_closure-e46190_ + (lambda (_expr46307_) + (let* ((___stx5967059671_ _expr46307_) + (_g4631446429_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5651156512_)))) - (let ((___kont5651356514_ - (lambda (_L43661_ _L43662_ _L43663_) - (cons '%#if - (cons _L43663_ - (cons (_closure-e43031_ _L43662_) - (cons (_closure-e43031_ - _L43661_) - '())))))) - (___kont5651556516_ - (lambda (_L43609_ _L43610_) - (cons '%#let-values - (cons _L43610_ - (cons (_closure-e43031_ _L43609_) - '()))))) - (___kont5651756518_ - (lambda (_L43555_ _L43556_ _L43557_) - (cons '%#letrec-values - (cons (cons (cons (cons _L43557_ '()) - (cons (_closure-e43031_ - _L43556_) - '())) - '()) - (cons _L43555_ '()))))) - (___kont5651956520_ - (lambda (_L43468_ _L43469_) - (cons '%#lambda - (cons (foldr1 (lambda (_g4348643489_ - _g4348743491_) - (cons _g4348643489_ - _g4348743491_)) - '() - _L43469_) - (cons (_closure-e43031_ _L43468_) - '()))))) - (___kont5652356524_ - (lambda (_L43398_) - (cons '%#call - (cons (cons (gx#datum->syntax__0 - '#f - '%#ref) - (cons _L43398_ '())) - '())))) - (___kont5652556526_ - (lambda (_L43331_ _L43332_) _expr43148_))) - (let* ((___match5674456745_ - (lambda (_e4324543275_ - _hd4324643278_ - _tl4324743280_ - _e4324843283_ - _hd4324943286_ - _tl4325043288_ - _e4325143291_ - _hd4325243294_ - _tl4325343296_ - _e4325443299_ - _hd4325543302_ - _tl4325643304_ - ___splice5652756528_ - _target4325743307_ - _tl4325943309_) - (letrec ((_loop4326043312_ - (lambda (_hd4325843315_ - _arg4326443317_) - (if (gx#stx-pair? _hd4325843315_) - (let ((_e4326143320_ - (gx#stx-e - _hd4325843315_))) - (let ((_lp-tl4326343325_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5967059671_))))) + (let ((___kont5967259673_ + (lambda (_L46820_ _L46821_ _L46822_) + (let ((__tmp60513 + (let ((__tmp60514 + (let ((__tmp60517 + (let () + (declare (not safe)) + (_closure-e46190_ + _L46821_))) + (__tmp60515 + (let ((__tmp60516 (let () (declare (not safe)) - (##cdr _e4326143320_))) - (_lp-hd4326243323_ + (_closure-e46190_ + _L46820_)))) + (declare (not safe)) + (cons __tmp60516 '())))) + (declare (not safe)) + (cons __tmp60517 __tmp60515)))) + (declare (not safe)) + (cons _L46822_ __tmp60514)))) + (declare (not safe)) + (cons '%#if __tmp60513)))) + (___kont5967459675_ + (lambda (_L46768_ _L46769_) + (let ((__tmp60518 + (let ((__tmp60519 + (let ((__tmp60520 + (let () + (declare (not safe)) + (_closure-e46190_ + _L46768_)))) + (declare (not safe)) + (cons __tmp60520 '())))) + (declare (not safe)) + (cons _L46769_ __tmp60519)))) + (declare (not safe)) + (cons '%#let-values __tmp60518)))) + (___kont5967659677_ + (lambda (_L46714_ _L46715_ _L46716_) + (let ((__tmp60521 + (let ((__tmp60523 + (let ((__tmp60524 + (let ((__tmp60527 (let () (declare (not safe)) - (##car _e4326143320_)))) - (_loop4326043312_ - _lp-tl4326343325_ - (cons _lp-hd4326243323_ - _arg4326443317_)))) - (let ((_arg4326543328_ - (reverse _arg4326443317_))) - (___kont5652556526_ - _arg4326543328_ - _hd4325543302_)))))) - (_loop4326043312_ - _target4325743307_ - '())))) - (___match5670256703_ - (lambda (_e4322843358_ - _hd4322943361_ - _tl4323043363_ - _e4323143366_ - _hd4323243369_ - _tl4323343371_ - _e4323443374_ - _hd4323543377_ - _tl4323643379_ - _e4323743382_ - _hd4323843385_ - _tl4323943387_ - _e4324043390_ - _hd4324143393_ - _tl4324243395_) - (let ((_L43398_ _hd4323843385_)) - (if (gx#free-identifier=? - _L43398_ - _negation43028_) - (___kont5652356524_ _L43398_) - (if (gx#stx-pair/null? _tl4323343371_) - (let ((___splice5652756528_ - (gx#syntax-split-splice - _tl4323343371_ - '0))) - (let ((_tl4325943309_ + (cons _L46716_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()))) + (__tmp60525 + (let ((__tmp60526 + (let () + (declare (not safe)) + (_closure-e46190_ _L46715_)))) + (declare (not safe)) + (cons __tmp60526 '())))) + (declare (not safe)) + (cons __tmp60527 __tmp60525)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60524 '()))) + (__tmp60522 + (let () + (declare (not safe)) + (cons _L46714_ '())))) + (declare (not safe)) + (cons __tmp60523 __tmp60522)))) + (declare (not safe)) + (cons '%#letrec-values __tmp60521)))) + (___kont5967859679_ + (lambda (_L46627_ _L46628_) + (let ((__tmp60528 + (let ((__tmp60531 + (let ((__tmp60532 + (lambda (_g4664546648_ + _g4664646650_) + (let () + (declare (not safe)) + (cons _g4664546648_ + _g4664646650_))))) + (declare (not safe)) + (foldr1 __tmp60532 + '() + _L46628_))) + (__tmp60529 + (let ((__tmp60530 + (let () + (declare (not safe)) + (_closure-e46190_ + _L46627_)))) + (declare (not safe)) + (cons __tmp60530 '())))) + (declare (not safe)) + (cons __tmp60531 __tmp60529)))) + (declare (not safe)) + (cons '%#lambda __tmp60528)))) + (___kont5968259683_ + (lambda (_L46557_) + (let ((__tmp60533 + (let ((__tmp60534 + (let ((__tmp60536 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp60535 + (let () + (declare (not safe)) + (cons _L46557_ '())))) + (declare (not safe)) + (cons __tmp60536 __tmp60535)))) + (declare (not safe)) + (cons __tmp60534 '())))) + (declare (not safe)) + (cons '%#call __tmp60533)))) + (___kont5968459685_ + (lambda (_L46490_ _L46491_) _expr46307_))) + (let* ((___match5990359904_ + (lambda (_e4640646434_ + _hd4640546437_ + _tl4640446439_ + _e4640946442_ + _hd4640846445_ + _tl4640746447_ + _e4641246450_ + _hd4641146453_ + _tl4641046455_ + _e4641546458_ + _hd4641446461_ + _tl4641346463_ + ___splice5968659687_ + _target4641646466_ + _tl4641846468_) + (letrec ((_loop4641946471_ + (lambda (_hd4641746474_ + _arg4642346476_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4641746474_)) + (let ((_e4642046479_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4641746474_)))) + (let ((_lp-tl4642246484_ + (let () + (declare + (not safe)) + (##cdr _e4642046479_))) + (_lp-hd4642146482_ + (let () + (declare + (not safe)) + (##car _e4642046479_)))) + (let ((__tmp60537 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _lp-hd4642146482_ _arg4642346476_)))) + (declare (not safe)) + (_loop4641946471_ _lp-tl4642246484_ __tmp60537)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_arg4642446487_ + (let () + (declare (not safe)) + (reverse _arg4642346476_)))) + (___kont5968459685_ + _arg4642446487_ + _hd4641446461_)))))) + (let () + (declare (not safe)) + (_loop4641946471_ + _target4641646466_ + '()))))) + (___match5986159862_ + (lambda (_e4638946517_ + _hd4638846520_ + _tl4638746522_ + _e4639246525_ + _hd4639146528_ + _tl4639046530_ + _e4639546533_ + _hd4639446536_ + _tl4639346538_ + _e4639846541_ + _hd4639746544_ + _tl4639646546_ + _e4640146549_ + _hd4640046552_ + _tl4639946554_) + (let ((_L46557_ _hd4639746544_)) + (if (let () + (declare (not safe)) + (gx#free-identifier=? + _L46557_ + _negation46187_)) + (___kont5968259683_ _L46557_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl4639046530_)) + (let ((___splice5968659687_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl4639046530_ + '0)))) + (let ((_tl4641846468_ (let () (declare (not safe)) (##vector-ref - ___splice5652756528_ + ___splice5968659687_ '1))) - (_target4325743307_ + (_target4641646466_ (let () (declare (not safe)) (##vector-ref - ___splice5652756528_ + ___splice5968659687_ '0)))) - (if (gx#stx-null? - _tl4325943309_) - (___match5674456745_ - _e4322843358_ - _hd4322943361_ - _tl4323043363_ - _e4323143366_ - _hd4323243369_ - _tl4323343371_ - _e4323443374_ - _hd4323543377_ - _tl4323643379_ - _e4323743382_ - _hd4323843385_ - _tl4323943387_ - ___splice5652756528_ - _target4325743307_ - _tl4325943309_) - (_g4315543270_)))) - (_g4315543270_)))))) - (___match5666056661_ - (lambda (_e4320943420_ - _hd4321043423_ - _tl4321143425_ - _e4321243428_ - _hd4321343431_ - _tl4321443433_ - ___splice5652156522_ - _target4321543436_ - _tl4321743438_) - (letrec ((_loop4321843441_ - (lambda (_hd4321643444_ - _id4322243446_) - (if (gx#stx-pair? _hd4321643444_) - (let ((_e4321943449_ - (gx#stx-e - _hd4321643444_))) - (let ((_lp-tl4322143454_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4641846468_)) + (___match5990359904_ + _e4638946517_ + _hd4638846520_ + _tl4638746522_ + _e4639246525_ + _hd4639146528_ + _tl4639046530_ + _e4639546533_ + _hd4639446536_ + _tl4639346538_ + _e4639846541_ + _hd4639746544_ + _tl4639646546_ + ___splice5968659687_ + _target4641646466_ + _tl4641846468_) + (let () + (declare (not safe)) + (_g4631446429_))))) + (let () + (declare (not safe)) + (_g4631446429_))))))) + (___match5981959820_ + (lambda (_e4637046579_ + _hd4636946582_ + _tl4636846584_ + _e4637346587_ + _hd4637246590_ + _tl4637146592_ + ___splice5968059681_ + _target4637446595_ + _tl4637646597_) + (letrec ((_loop4637746600_ + (lambda (_hd4637546603_ + _id4638146605_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4637546603_)) + (let ((_e4637846608_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4637546603_)))) + (let ((_lp-tl4638046613_ (let () (declare (not safe)) - (##cdr _e4321943449_))) - (_lp-hd4322043452_ + (##cdr _e4637846608_))) + (_lp-hd4637946611_ (let () (declare (not safe)) - (##car _e4321943449_)))) - (_loop4321843441_ - _lp-tl4322143454_ - (cons _lp-hd4322043452_ - _id4322243446_)))) - (let ((_id4322343457_ - (reverse _id4322243446_))) - (if (gx#stx-pair? - _tl4321443433_) - (let ((_e4322443460_ - (gx#stx-e - _tl4321443433_))) - (let ((_tl4322643465_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e4322443460_))) - (_hd4322543463_ - (let () (declare (not safe)) (##car _e4322443460_)))) - (if (gx#stx-null? _tl4322643465_) - (___kont5651956520_ _hd4322543463_ _id4322343457_) - (_g4315543270_)))) - (_g4315543270_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4321843441_ - _target4321543436_ - '()))))) - (if (gx#stx-pair? ___stx5651156512_) - (let ((_e4316043629_ - (gx#stx-e ___stx5651156512_))) - (let ((_tl4316243634_ + (##car _e4637846608_)))) + (let ((__tmp60538 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _lp-hd4637946611_ _id4638146605_)))) + (declare (not safe)) + (_loop4637746600_ _lp-tl4638046613_ __tmp60538)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_id4638246616_ + (let () + (declare (not safe)) + (reverse _id4638146605_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4637146592_)) + (let ((_e4638546619_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl4637146592_)))) + (let ((_tl4638346624_ + (let () (declare (not safe)) (##cdr _e4638546619_))) + (_hd4638446622_ + (let () (declare (not safe)) (##car _e4638546619_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4638346624_)) + (___kont5967859679_ _hd4638446622_ _id4638246616_) + (let () (declare (not safe)) (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop4637746600_ + _target4637446595_ + '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5967059671_)) + (let ((_e4632146788_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5967059671_)))) + (let ((_tl4631946793_ (let () (declare (not safe)) - (##cdr _e4316043629_))) - (_hd4316143632_ + (##cdr _e4632146788_))) + (_hd4632046791_ (let () (declare (not safe)) - (##car _e4316043629_)))) - (if (gx#identifier? _hd4316143632_) - (if (gx#stx-eq? '%#if _hd4316143632_) - (if (gx#stx-pair? _tl4316243634_) - (let ((_e4316343637_ - (gx#stx-e - _tl4316243634_))) - (let ((_tl4316543642_ + (##car _e4632146788_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4632046791_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#if _hd4632046791_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4631946793_)) + (let ((_e4632446796_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4631946793_)))) + (let ((_tl4632246801_ (let () (declare (not safe)) - (##cdr _e4316343637_))) - (_hd4316443640_ + (##cdr _e4632446796_))) + (_hd4632346799_ (let () (declare (not safe)) - (##car _e4316343637_)))) - (if (gx#stx-pair? - _tl4316543642_) - (let ((_e4316643645_ - (gx#stx-e - _tl4316543642_))) - (let ((_tl4316843650_ - (let () + (##car _e4632446796_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4632246801_)) + (let ((_e4632746804_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4316643645_))) - (_hd4316743648_ - (let () (declare (not safe)) (##car _e4316643645_)))) - (if (gx#stx-pair? _tl4316843650_) - (let ((_e4316943653_ (gx#stx-e _tl4316843650_))) - (let ((_tl4317143658_ + (not safe)) + (gx#stx-e _tl4632246801_)))) + (let ((_tl4632546809_ + (let () (declare (not safe)) (##cdr _e4632746804_))) + (_hd4632646807_ + (let () (declare (not safe)) (##car _e4632746804_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4632546809_)) + (let ((_e4633046812_ + (let () + (declare (not safe)) + (gx#stx-e _tl4632546809_)))) + (let ((_tl4632846817_ (let () (declare (not safe)) - (##cdr _e4316943653_))) - (_hd4317043656_ + (##cdr _e4633046812_))) + (_hd4632946815_ (let () (declare (not safe)) - (##car _e4316943653_)))) - (if (gx#stx-null? _tl4317143658_) - (___kont5651356514_ - _hd4317043656_ - _hd4316743648_ - _hd4316443640_) - (_g4315543270_)))) - (_g4315543270_)))) - (_g4315543270_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4315543270_)) - (if (gx#stx-eq? - '%#let-values - _hd4316143632_) - (if (gx#stx-pair? _tl4316243634_) - (let ((_e4317743593_ - (gx#stx-e - _tl4316243634_))) - (let ((_tl4317943598_ + (##car _e4633046812_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4632846817_)) + (___kont5967259673_ + _hd4632946815_ + _hd4632646807_ + _hd4632346799_) + (let () (declare (not safe)) (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4631446429_))) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _hd4632046791_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4631946793_)) + (let ((_e4633846752_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4631946793_)))) + (let ((_tl4633646757_ (let () (declare (not safe)) - (##cdr _e4317743593_))) - (_hd4317843596_ + (##cdr _e4633846752_))) + (_hd4633746755_ (let () (declare (not safe)) - (##car _e4317743593_)))) - (if (gx#stx-pair? - _tl4317943598_) - (let ((_e4318043601_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4317943598_))) - (let ((_tl4318243606_ - (let () (declare (not safe)) (##cdr _e4318043601_))) - (_hd4318143604_ + (##car _e4633846752_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl4633646757_)) + (let ((_e4634146760_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl4633646757_)))) + (let ((_tl4633946765_ + (let () (declare (not safe)) (##cdr _e4634146760_))) + (_hd4634046763_ (let () (declare (not safe)) - (##car _e4318043601_)))) - (if (gx#stx-null? _tl4318243606_) - (___kont5651556516_ _hd4318143604_ _hd4317843596_) - (_g4315543270_)))) - (_g4315543270_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4315543270_)) - (if (gx#stx-eq? - '%#letrec-values - _hd4316143632_) - (if (gx#stx-pair? - _tl4316243634_) - (let ((_e4318943507_ - (gx#stx-e - _tl4316243634_))) - (let ((_tl4319143512_ - (let () + (##car _e4634146760_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4633946765_)) + (___kont5967459675_ _hd4634046763_ _hd4633746755_) + (let () (declare (not safe)) (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4631446429_))) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#letrec-values + _hd4632046791_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4631946793_)) + (let ((_e4635046666_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e4318943507_))) - (_hd4319043510_ - (let () (declare (not safe)) (##car _e4318943507_)))) - (if (gx#stx-pair? _hd4319043510_) - (let ((_e4319243515_ (gx#stx-e _hd4319043510_))) - (let ((_tl4319443520_ + (not safe)) + (gx#stx-e _tl4631946793_)))) + (let ((_tl4634846671_ + (let () (declare (not safe)) (##cdr _e4635046666_))) + (_hd4634946669_ + (let () (declare (not safe)) (##car _e4635046666_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4634946669_)) + (let ((_e4635346674_ + (let () + (declare (not safe)) + (gx#stx-e _hd4634946669_)))) + (let ((_tl4635146679_ (let () (declare (not safe)) - (##cdr _e4319243515_))) - (_hd4319343518_ + (##cdr _e4635346674_))) + (_hd4635246677_ (let () (declare (not safe)) - (##car _e4319243515_)))) - (if (gx#stx-pair? _hd4319343518_) - (let ((_e4319543523_ (gx#stx-e _hd4319343518_))) - (let ((_tl4319743528_ + (##car _e4635346674_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4635246677_)) + (let ((_e4635646682_ + (let () + (declare (not safe)) + (gx#stx-e _hd4635246677_)))) + (let ((_tl4635446687_ (let () (declare (not safe)) - (##cdr _e4319543523_))) - (_hd4319643526_ + (##cdr _e4635646682_))) + (_hd4635546685_ (let () (declare (not safe)) - (##car _e4319543523_)))) - (if (gx#stx-pair? _hd4319643526_) - (let ((_e4319843531_ - (gx#stx-e _hd4319643526_))) - (let ((_tl4320043536_ + (##car _e4635646682_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4635546685_)) + (let ((_e4635946690_ + (let () + (declare (not safe)) + (gx#stx-e _hd4635546685_)))) + (let ((_tl4635746695_ (let () (declare (not safe)) - (##cdr _e4319843531_))) - (_hd4319943534_ + (##cdr _e4635946690_))) + (_hd4635846693_ (let () (declare (not safe)) - (##car _e4319843531_)))) - (if (gx#stx-null? _tl4320043536_) - (if (gx#stx-pair? _tl4319743528_) - (let ((_e4320143539_ - (gx#stx-e - _tl4319743528_))) - (let ((_tl4320343544_ + (##car _e4635946690_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4635746695_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4635446687_)) + (let ((_e4636246698_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4635446687_)))) + (let ((_tl4636046703_ (let () (declare (not safe)) - (##cdr _e4320143539_))) - (_hd4320243542_ + (##cdr _e4636246698_))) + (_hd4636146701_ (let () (declare (not safe)) - (##car _e4320143539_)))) - (if (gx#stx-null? - _tl4320343544_) - (if (gx#stx-null? - _tl4319443520_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl4319143512_) - (let ((_e4320443547_ (gx#stx-e _tl4319143512_))) - (let ((_tl4320643552_ + (##car _e4636246698_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl4636046703_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl4635146679_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4634846671_)) + (let ((_e4636546706_ + (let () + (declare (not safe)) + (gx#stx-e _tl4634846671_)))) + (let ((_tl4636346711_ (let () (declare (not safe)) - (##cdr _e4320443547_))) - (_hd4320543550_ + (##cdr _e4636546706_))) + (_hd4636446709_ (let () (declare (not safe)) - (##car _e4320443547_)))) - (if (gx#stx-null? _tl4320643552_) - (___kont5651756518_ - _hd4320543550_ - _hd4320243542_ - _hd4319943534_) - (_g4315543270_)))) - (_g4315543270_)) - (_g4315543270_)) - (_g4315543270_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4315543270_)) - (_g4315543270_)))) - (_g4315543270_)))) - (_g4315543270_)))) - (_g4315543270_)))) - (_g4315543270_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-eq? - '%#lambda - _hd4316143632_) - (if (gx#stx-pair? - _tl4316243634_) - (let ((_e4321243428_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4316243634_))) - (let ((_tl4321443433_ - (let () (declare (not safe)) (##cdr _e4321243428_))) - (_hd4321343431_ + (##car _e4636546706_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4636346711_)) + (___kont5967659677_ + _hd4636446709_ + _hd4636146701_ + _hd4635846693_) + (let () + (declare (not safe)) + (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_))) + (let () (declare (not safe)) (_g4631446429_))) + (let () (declare (not safe)) (_g4631446429_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4631446429_))) + (let () + (declare (not safe)) + (_g4631446429_))))) + (let () + (declare (not safe)) + (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd4632046791_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl4631946793_)) + (let ((_e4637346587_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl4631946793_)))) + (let ((_tl4637146592_ + (let () (declare (not safe)) (##cdr _e4637346587_))) + (_hd4637246590_ (let () (declare (not safe)) - (##car _e4321243428_)))) - (if (gx#stx-pair/null? _hd4321343431_) - (let ((___splice5652156522_ - (gx#syntax-split-splice _hd4321343431_ '0))) - (let ((_tl4321743438_ + (##car _e4637346587_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd4637246590_)) + (let ((___splice5968059681_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd4637246590_ + '0)))) + (let ((_tl4637646597_ (let () (declare (not safe)) - (##vector-ref ___splice5652156522_ '1))) - (_target4321543436_ + (##vector-ref ___splice5968059681_ '1))) + (_target4637446595_ (let () (declare (not safe)) - (##vector-ref ___splice5652156522_ '0)))) - (if (gx#stx-null? _tl4321743438_) - (___match5666056661_ - _e4316043629_ - _hd4316143632_ - _tl4316243634_ - _e4321243428_ - _hd4321343431_ - _tl4321443433_ - ___splice5652156522_ - _target4321543436_ - _tl4321743438_) - (_g4315543270_)))) - (_g4315543270_)))) - (_g4315543270_)) - (if (gx#stx-eq? '%#call _hd4316143632_) - (if (gx#stx-pair? _tl4316243634_) - (let ((_e4323143366_ (gx#stx-e _tl4316243634_))) - (let ((_tl4323343371_ + (##vector-ref ___splice5968059681_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4637646597_)) + (___match5981959820_ + _e4632146788_ + _hd4632046791_ + _tl4631946793_ + _e4637346587_ + _hd4637246590_ + _tl4637146592_ + ___splice5968059681_ + _target4637446595_ + _tl4637646597_) + (let () + (declare (not safe)) + (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_))) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd4632046791_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4631946793_)) + (let ((_e4639246525_ + (let () + (declare (not safe)) + (gx#stx-e _tl4631946793_)))) + (let ((_tl4639046530_ (let () (declare (not safe)) - (##cdr _e4323143366_))) - (_hd4323243369_ + (##cdr _e4639246525_))) + (_hd4639146528_ (let () (declare (not safe)) - (##car _e4323143366_)))) - (if (gx#stx-pair? _hd4323243369_) - (let ((_e4323443374_ (gx#stx-e _hd4323243369_))) - (let ((_tl4323643379_ + (##car _e4639246525_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4639146528_)) + (let ((_e4639546533_ + (let () + (declare (not safe)) + (gx#stx-e _hd4639146528_)))) + (let ((_tl4639346538_ (let () (declare (not safe)) - (##cdr _e4323443374_))) - (_hd4323543377_ + (##cdr _e4639546533_))) + (_hd4639446536_ (let () (declare (not safe)) - (##car _e4323443374_)))) - (if (gx#identifier? _hd4323543377_) - (if (gx#stx-eq? '%#ref _hd4323543377_) - (if (gx#stx-pair? _tl4323643379_) - (let ((_e4323743382_ - (gx#stx-e - _tl4323643379_))) - (let ((_tl4323943387_ + (##car _e4639546533_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4639446536_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd4639446536_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4639346538_)) + (let ((_e4639846541_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4639346538_)))) + (let ((_tl4639646546_ (let () (declare (not safe)) - (##cdr _e4323743382_))) - (_hd4323843385_ + (##cdr _e4639846541_))) + (_hd4639746544_ (let () (declare (not safe)) - (##car _e4323743382_)))) - (if (gx#stx-null? - _tl4323943387_) - (if (gx#stx-pair? - _tl4323343371_) - (let ((_e4324043390_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4323343371_))) - (let ((_tl4324243395_ - (let () (declare (not safe)) (##cdr _e4324043390_))) - (_hd4324143393_ + (##car _e4639846541_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4639646546_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl4639046530_)) + (let ((_e4640146549_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl4639046530_)))) + (let ((_tl4639946554_ + (let () (declare (not safe)) (##cdr _e4640146549_))) + (_hd4640046552_ (let () (declare (not safe)) - (##car _e4324043390_)))) - (if (gx#stx-null? _tl4324243395_) - (___match5670256703_ - _e4316043629_ - _hd4316143632_ - _tl4316243634_ - _e4323143366_ - _hd4323243369_ - _tl4323343371_ - _e4323443374_ - _hd4323543377_ - _tl4323643379_ - _e4323743382_ - _hd4323843385_ - _tl4323943387_ - _e4324043390_ - _hd4324143393_ - _tl4324243395_) - (if (gx#stx-pair/null? _tl4323343371_) - (let ((___splice5652756528_ - (gx#syntax-split-splice - _tl4323343371_ - '0))) - (let ((_tl4325943309_ + (##car _e4640146549_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4639946554_)) + (___match5986159862_ + _e4632146788_ + _hd4632046791_ + _tl4631946793_ + _e4639246525_ + _hd4639146528_ + _tl4639046530_ + _e4639546533_ + _hd4639446536_ + _tl4639346538_ + _e4639846541_ + _hd4639746544_ + _tl4639646546_ + _e4640146549_ + _hd4640046552_ + _tl4639946554_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl4639046530_)) + (let ((___splice5968659687_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl4639046530_ + '0)))) + (let ((_tl4641846468_ (let () (declare (not safe)) (##vector-ref - ___splice5652756528_ + ___splice5968659687_ '1))) - (_target4325743307_ + (_target4641646466_ (let () (declare (not safe)) (##vector-ref - ___splice5652756528_ + ___splice5968659687_ '0)))) - (if (gx#stx-null? _tl4325943309_) - (___match5674456745_ - _e4316043629_ - _hd4316143632_ - _tl4316243634_ - _e4323143366_ - _hd4323243369_ - _tl4323343371_ - _e4323443374_ - _hd4323543377_ - _tl4323643379_ - _e4323743382_ - _hd4323843385_ - _tl4323943387_ - ___splice5652756528_ - _target4325743307_ - _tl4325943309_) - (_g4315543270_)))) - (_g4315543270_))))) - (if (gx#stx-pair/null? _tl4323343371_) - (let ((___splice5652756528_ - (gx#syntax-split-splice _tl4323343371_ '0))) - (let ((_tl4325943309_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4641846468_)) + (___match5990359904_ + _e4632146788_ + _hd4632046791_ + _tl4631946793_ + _e4639246525_ + _hd4639146528_ + _tl4639046530_ + _e4639546533_ + _hd4639446536_ + _tl4639346538_ + _e4639846541_ + _hd4639746544_ + _tl4639646546_ + ___splice5968659687_ + _target4641646466_ + _tl4641846468_) + (let () + (declare (not safe)) + (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl4639046530_)) + (let ((___splice5968659687_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl4639046530_ '0)))) + (let ((_tl4641846468_ (let () (declare (not safe)) - (##vector-ref ___splice5652756528_ '1))) - (_target4325743307_ + (##vector-ref ___splice5968659687_ '1))) + (_target4641646466_ (let () (declare (not safe)) - (##vector-ref ___splice5652756528_ '0)))) - (if (gx#stx-null? _tl4325943309_) - (___match5674456745_ - _e4316043629_ - _hd4316143632_ - _tl4316243634_ - _e4323143366_ - _hd4323243369_ - _tl4323343371_ - _e4323443374_ - _hd4323543377_ - _tl4323643379_ - _e4323743382_ - _hd4323843385_ - _tl4323943387_ - ___splice5652756528_ - _target4325743307_ - _tl4325943309_) - (_g4315543270_)))) - (_g4315543270_))) - (_g4315543270_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4315543270_)) - (_g4315543270_)) - (_g4315543270_)))) - (_g4315543270_)))) - (_g4315543270_)) - (_g4315543270_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4315543270_)))) - (_g4315543270_)))))))) - (let* ((_clause4303243039_ _clause43027_) - (_E4303443043_ - (lambda () (error '"No clause matching" _clause4303243039_))) - (_K4303543136_ - (lambda (_kont43046_ _id43047_) - (let* ((_g4304943069_ - (lambda (_g4305043066_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4305043066_))) - (_g4304843133_ - (lambda (_g4305043072_) - (if (gx#stx-pair? _g4305043072_) - (let ((_e4305343074_ - (gx#stx-e _g4305043072_))) - (let ((_hd4305443077_ + (##vector-ref ___splice5968659687_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4641846468_)) + (___match5990359904_ + _e4632146788_ + _hd4632046791_ + _tl4631946793_ + _e4639246525_ + _hd4639146528_ + _tl4639046530_ + _e4639546533_ + _hd4639446536_ + _tl4639346538_ + _e4639846541_ + _hd4639746544_ + _tl4639646546_ + ___splice5968659687_ + _target4641646466_ + _tl4641846468_) + (let () (declare (not safe)) (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_)))) + (let () (declare (not safe)) (_g4631446429_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4631446429_))) + (let () + (declare (not safe)) + (_g4631446429_))) + (let () + (declare (not safe)) + (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_))))) + (let () (declare (not safe)) (_g4631446429_))) + (let () (declare (not safe)) (_g4631446429_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4631446429_))))) + (let () + (declare (not safe)) + (_g4631446429_))))))))) + (let* ((_clause4619146198_ _clause46186_) + (_E4619346202_ + (lambda () (error '"No clause matching" _clause4619146198_))) + (_K4619446295_ + (lambda (_kont46205_ _id46206_) + (let* ((_g4620846228_ + (lambda (_g4620946225_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4620946225_)))) + (_g4620746292_ + (lambda (_g4620946231_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4620946231_)) + (let ((_e4621446233_ + (let () + (declare (not safe)) + (gx#stx-e _g4620946231_)))) + (let ((_hd4621346236_ (let () (declare (not safe)) - (##car _e4305343074_))) - (_tl4305543079_ + (##car _e4621446233_))) + (_tl4621246238_ (let () (declare (not safe)) - (##cdr _e4305343074_)))) - (if (gx#identifier? _hd4305443077_) - (if (gx#stx-eq? - '%#lambda - _hd4305443077_) - (if (gx#stx-pair? _tl4305543079_) - (let ((_e4305643082_ - (gx#stx-e - _tl4305543079_))) - (let ((_hd4305743085_ + (##cdr _e4621446233_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4621346236_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd4621346236_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4621246238_)) + (let ((_e4621746241_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4621246238_)))) + (let ((_hd4621646244_ (let () (declare (not safe)) - (##car _e4305643082_))) - (_tl4305843087_ + (##car _e4621746241_))) + (_tl4621546246_ (let () (declare (not safe)) - (##cdr _e4305643082_)))) - (if (gx#stx-pair? - _hd4305743085_) - (let ((_e4305943090_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd4305743085_))) - (let ((_hd4306043093_ - (let () (declare (not safe)) (##car _e4305943090_))) - (_tl4306143095_ + (##cdr _e4621746241_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd4621646244_)) + (let ((_e4622046249_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd4621646244_)))) + (let ((_hd4621946252_ + (let () (declare (not safe)) (##car _e4622046249_))) + (_tl4621846254_ (let () (declare (not safe)) - (##cdr _e4305943090_)))) - (if (gx#stx-null? _tl4306143095_) - (if (gx#stx-pair? _tl4305843087_) - (let ((_e4306243098_ (gx#stx-e _tl4305843087_))) - (let ((_hd4306343101_ + (##cdr _e4622046249_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4621846254_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4621546246_)) + (let ((_e4622346257_ + (let () + (declare (not safe)) + (gx#stx-e _tl4621546246_)))) + (let ((_hd4622246260_ (let () (declare (not safe)) - (##car _e4306243098_))) - (_tl4306443103_ + (##car _e4622346257_))) + (_tl4622146262_ (let () (declare (not safe)) - (##cdr _e4306243098_)))) - (if (gx#stx-null? _tl4306443103_) - ((lambda (_L43106_ _L43107_) - (let* ((_body43128_ - (gxc#apply-expression-subst - _L43106_ - _L43107_ - _target43029_)) - (_body43130_ - (if _negation43028_ - (_closure-e43031_ - _body43128_) - _body43128_))) - (gxc#optimizer-declare-type!__% - (gxc#identifier-symbol _id43047_) - (let ((__obj56796 - (make-object - gxc#!lambda::t - '5))) - (gxc#!lambda:::init!__0 - __obj56796 - 'lambda - '0 - '#f) - __obj56796) - '#t) - (cons _id43047_ - (cons '%#lambda - (cons '() - (cons _body43130_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd4306343101_ - _hd4306043093_) - (_g4304943069_ _g4305043072_)))) - (_g4304943069_ _g4305043072_)) - (_g4304943069_ _g4305043072_)))) - (_g4304943069_ _g4305043072_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4304943069_ - _g4305043072_)) - (_g4304943069_ _g4305043072_)) - (_g4304943069_ _g4305043072_)))) - (_g4304943069_ _g4305043072_))))) - (_g4304843133_ _kont43046_))))) - (if (let () (declare (not safe)) (##pair? _clause4303243039_)) - (let ((_hd4303643139_ + (##cdr _e4622346257_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4622146262_)) + ((lambda (_L46265_ _L46266_) + (let* ((_body46287_ + (let () + (declare (not safe)) + (gxc#apply-expression-subst + _L46265_ + _L46266_ + _target46188_))) + (_body46289_ + (if _negation46187_ + (let () + (declare (not safe)) + (_closure-e46190_ + _body46287_)) + _body46287_))) + (let ((__tmp60540 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _id46206_))) + (__tmp60539 + (let ((__obj59953 + (make-object + gxc#!lambda::t + '5))) + (let () + (declare (not safe)) + (gxc#!lambda:::init!__0 + __obj59953 + 'lambda + '0 + '#f)) + __obj59953))) + (declare (not safe)) + (gxc#optimizer-declare-type!__% + __tmp60540 + __tmp60539 + '#t)) + (let ((__tmp60541 + (let ((__tmp60542 + (let ((__tmp60543 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _body46289_ '())))) + (declare (not safe)) + (cons '() __tmp60543)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#lambda + __tmp60542)))) + (declare (not safe)) + (cons _id46206_ __tmp60541)))) + _hd4622246260_ + _hd4621946252_) + (let () + (declare (not safe)) + (_g4620846228_ _g4620946231_))))) + (let () + (declare (not safe)) + (_g4620846228_ _g4620946231_))) + (let () + (declare (not safe)) + (_g4620846228_ _g4620946231_))))) + (let () + (declare (not safe)) + (_g4620846228_ _g4620946231_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4620846228_ + _g4620946231_))) + (let () + (declare (not safe)) + (_g4620846228_ _g4620946231_))) + (let () + (declare (not safe)) + (_g4620846228_ _g4620946231_))))) + (let () + (declare (not safe)) + (_g4620846228_ _g4620946231_)))))) + (declare (not safe)) + (_g4620746292_ _kont46205_))))) + (if (let () (declare (not safe)) (##pair? _clause4619146198_)) + (let ((_hd4619546298_ (let () (declare (not safe)) - (##car _clause4303243039_))) - (_tl4303743141_ + (##car _clause4619146198_))) + (_tl4619646300_ (let () (declare (not safe)) - (##cdr _clause4303243039_)))) - (let* ((_id43144_ _hd4303643139_) - (_kont43146_ _tl4303743141_)) - (_K4303543136_ _kont43146_ _id43144_))) - (_E4303443043_)))))) + (##cdr _clause4619146198_)))) + (let* ((_id46303_ _hd4619546298_) + (_kont46305_ _tl4619646300_)) + (declare (not safe)) + (_K4619446295_ _kont46305_ _id46303_))) + (let () (declare (not safe)) (_E4619346202_))))))) (define gxc#push-match-vars-let-values% - (lambda (_stx42813_ _vars42814_ _K42815_) - (let* ((_g4281742834_ - (lambda (_g4281842831_) - (gx#raise-syntax-error '#f '"Bad syntax" _g4281842831_))) - (_g4281643024_ - (lambda (_g4281842837_) - (if (gx#stx-pair? _g4281842837_) - (let ((_e4282142839_ (gx#stx-e _g4281842837_))) - (let ((_hd4282242842_ + (lambda (_stx45972_ _vars45973_ _K45974_) + (let* ((_g4597645993_ + (lambda (_g4597745990_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g4597745990_)))) + (_g4597546183_ + (lambda (_g4597745996_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4597745996_)) + (let ((_e4598245998_ + (let () + (declare (not safe)) + (gx#stx-e _g4597745996_)))) + (let ((_hd4598146001_ (let () (declare (not safe)) - (##car _e4282142839_))) - (_tl4282342844_ + (##car _e4598245998_))) + (_tl4598046003_ (let () (declare (not safe)) - (##cdr _e4282142839_)))) - (if (gx#stx-pair? _tl4282342844_) - (let ((_e4282442847_ (gx#stx-e _tl4282342844_))) - (let ((_hd4282542850_ + (##cdr _e4598245998_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4598046003_)) + (let ((_e4598546006_ + (let () + (declare (not safe)) + (gx#stx-e _tl4598046003_)))) + (let ((_hd4598446009_ (let () (declare (not safe)) - (##car _e4282442847_))) - (_tl4282642852_ + (##car _e4598546006_))) + (_tl4598346011_ (let () (declare (not safe)) - (##cdr _e4282442847_)))) - (if (gx#stx-pair? _tl4282642852_) - (let ((_e4282742855_ - (gx#stx-e _tl4282642852_))) - (let ((_hd4282842858_ + (##cdr _e4598546006_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4598346011_)) + (let ((_e4598846014_ + (let () + (declare (not safe)) + (gx#stx-e _tl4598346011_)))) + (let ((_hd4598746017_ (let () (declare (not safe)) - (##car _e4282742855_))) - (_tl4282942860_ + (##car _e4598846014_))) + (_tl4598646019_ (let () (declare (not safe)) - (##cdr _e4282742855_)))) - (if (gx#stx-null? _tl4282942860_) - ((lambda (_L42863_ _L42864_) - (let _lp42879_ ((_rest42881_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L42864_) - (_rebind42882_ '()) - (_vars42883_ _vars42814_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest4288442892_ - _rest42881_) - (_else4288642900_ + (##cdr _e4598846014_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4598646019_)) + ((lambda (_L46022_ _L46023_) + (let _lp46038_ ((_rest46040_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L46023_) + (_rebind46041_ '()) + (_vars46042_ _vars45973_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let* ((_rest4604346051_ + _rest46040_) + (_else4604546059_ (lambda () - (if (null? _rebind42882_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#compile-e _L42863_ _vars42883_ _K42815_) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (reverse _rebind42882_) - (cons (gxc#compile-e - _L42863_ - _vars42883_ - _K42815_) - '()))) - _stx42813_)))) - (_K4288843012_ - (lambda (_rest42903_ _bind42904_) - (let* ((___stx5674756748_ _bind42904_) - (_g4290742930_ + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (null? _rebind46041_)) + (let () + (declare (not safe)) + (gxc#compile-e _L46022_ _vars46042_ _K45974_)) + (let ((__tmp60544 + (let ((__tmp60545 + (let ((__tmp60548 + (let () + (declare (not safe)) + (reverse _rebind46041_))) + (__tmp60546 + (let ((__tmp60547 + (let () + (declare (not safe)) + (gxc#compile-e + _L46022_ + _vars46042_ + _K45974_)))) + (declare (not safe)) + (cons __tmp60547 '())))) + (declare (not safe)) + (cons __tmp60548 __tmp60546)))) + (declare (not safe)) + (cons '%#let-values __tmp60545)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp60544 _stx45972_))))) + (_K4604746171_ + (lambda (_rest46062_ _bind46063_) + (let* ((___stx5990659907_ _bind46063_) + (_g4606646089_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5674756748_)))) - (let ((___kont5674956750_ - (lambda (_L42982_ _L42983_) - (_lp42879_ - _rest42903_ - _rebind42882_ - (cons _bind42904_ _vars42883_)))) - (___kont5675156752_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx5990659907_))))) + (let ((___kont5990859909_ + (lambda (_L46141_ _L46142_) + (let ((__tmp60549 + (let () + (declare (not safe)) + (cons _bind46063_ _vars46042_)))) + (declare (not safe)) + (_lp46038_ + _rest46062_ + _rebind46041_ + __tmp60549)))) + (___kont5991059911_ (lambda () - (_lp42879_ - _rest42903_ - (cons _bind42904_ _rebind42882_) - _vars42883_)))) - (if (gx#stx-pair? ___stx5674756748_) - (let ((_e4291142942_ - (gx#stx-e ___stx5674756748_))) - (let ((_tl4291342947_ + (let ((__tmp60550 + (let () + (declare (not safe)) + (cons _bind46063_ _rebind46041_)))) + (declare (not safe)) + (_lp46038_ + _rest46062_ + __tmp60550 + _vars46042_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx5990659907_)) + (let ((_e4607246101_ + (let () + (declare (not safe)) + (gx#stx-e ___stx5990659907_)))) + (let ((_tl4607046106_ (let () (declare (not safe)) - (##cdr _e4291142942_))) - (_hd4291242945_ + (##cdr _e4607246101_))) + (_hd4607146104_ (let () (declare (not safe)) - (##car _e4291142942_)))) - (if (gx#stx-pair? _hd4291242945_) - (let ((_e4291442950_ - (gx#stx-e _hd4291242945_))) - (let ((_tl4291642955_ + (##car _e4607246101_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4607146104_)) + (let ((_e4607546109_ + (let () + (declare (not safe)) + (gx#stx-e _hd4607146104_)))) + (let ((_tl4607346114_ (let () (declare (not safe)) - (##cdr _e4291442950_))) - (_hd4291542953_ + (##cdr _e4607546109_))) + (_hd4607446112_ (let () (declare (not safe)) - (##car _e4291442950_)))) - (if (gx#stx-null? _tl4291642955_) - (if (gx#stx-pair? _tl4291342947_) - (let ((_e4291742958_ - (gx#stx-e - _tl4291342947_))) - (let ((_tl4291942963_ + (##car _e4607546109_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4607346114_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4607046106_)) + (let ((_e4607846117_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4607046106_)))) + (let ((_tl4607646122_ (let () (declare (not safe)) - (##cdr _e4291742958_))) - (_hd4291842961_ + (##cdr _e4607846117_))) + (_hd4607746120_ (let () (declare (not safe)) - (##car _e4291742958_)))) - (if (gx#stx-pair? - _hd4291842961_) - (let ((_e4292042966_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd4291842961_))) - (let ((_tl4292242971_ - (let () (declare (not safe)) (##cdr _e4292042966_))) - (_hd4292142969_ - (let () (declare (not safe)) (##car _e4292042966_)))) - (if (gx#identifier? _hd4292142969_) - (if (gx#stx-eq? '%#ref _hd4292142969_) - (if (gx#stx-pair? _tl4292242971_) - (let ((_e4292342974_ - (gx#stx-e _tl4292242971_))) - (let ((_tl4292542979_ + (##car _e4607846117_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4607746120_)) + (let ((_e4608146125_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd4607746120_)))) + (let ((_tl4607946130_ + (let () (declare (not safe)) (##cdr _e4608146125_))) + (_hd4608046128_ + (let () (declare (not safe)) (##car _e4608146125_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4608046128_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd4608046128_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4607946130_)) + (let ((_e4608446133_ + (let () + (declare (not safe)) + (gx#stx-e _tl4607946130_)))) + (let ((_tl4608246138_ (let () (declare (not safe)) - (##cdr _e4292342974_))) - (_hd4292442977_ + (##cdr _e4608446133_))) + (_hd4608346136_ (let () (declare (not safe)) - (##car _e4292342974_)))) - (if (gx#stx-null? _tl4292542979_) - (if (gx#stx-null? _tl4291942963_) - (___kont5674956750_ - _hd4292442977_ - _hd4291542953_) - (___kont5675156752_)) - (___kont5675156752_)))) - (___kont5675156752_)) - (___kont5675156752_)) - (___kont5675156752_)))) - (___kont5675156752_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5675156752_)) - (___kont5675156752_)))) - (___kont5675156752_)))) - (___kont5675156752_))))))) + (##car _e4608446133_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4608246138_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4607646122_)) + (___kont5990859909_ + _hd4608346136_ + _hd4607446112_) + (___kont5991059911_)) + (___kont5991059911_)))) + (___kont5991059911_)) + (___kont5991059911_)) + (___kont5991059911_)))) + (___kont5991059911_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont5991059911_)) + (___kont5991059911_)))) + (___kont5991059911_)))) + (___kont5991059911_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest4288442892_)) - (let ((_hd4288943015_ + (##pair? _rest4604346051_)) + (let ((_hd4604846174_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _rest4288442892_))) - (_tl4289043017_ + (##car _rest4604346051_))) + (_tl4604946176_ (let () (declare (not safe)) - (##cdr _rest4288442892_)))) - (let* ((_bind43020_ _hd4288943015_) - (_rest43022_ _tl4289043017_)) - (_K4288843012_ _rest43022_ _bind43020_))) - (_else4288642900_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd4282842858_ - _hd4282542850_) - (_g4281742834_ _g4281842837_)))) - (_g4281742834_ _g4281842837_)))) - (_g4281742834_ _g4281842837_)))) - (_g4281742834_ _g4281842837_))))) - (_g4281643024_ _stx42813_)))) + (##cdr _rest4604346051_)))) + (let* ((_bind46179_ _hd4604846174_) + (_rest46181_ _tl4604946176_)) + (declare (not safe)) + (_K4604746171_ _rest46181_ _bind46179_))) + (let () (declare (not safe)) (_else4604546059_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd4598746017_ + _hd4598446009_) + (let () + (declare (not safe)) + (_g4597645993_ + _g4597745996_))))) + (let () + (declare (not safe)) + (_g4597645993_ _g4597745996_))))) + (let () + (declare (not safe)) + (_g4597645993_ _g4597745996_))))) + (let () + (declare (not safe)) + (_g4597645993_ _g4597745996_)))))) + (declare (not safe)) + (_g4597546183_ _stx45972_)))) (define gxc#push-match-vars-if% - (lambda (_stx42728_ _vars42729_ _K42730_) - (let* ((_g4273242753_ - (lambda (_g4273342750_) - (gx#raise-syntax-error '#f '"Bad syntax" _g4273342750_))) - (_g4273142810_ - (lambda (_g4273342756_) - (if (gx#stx-pair? _g4273342756_) - (let ((_e4273742758_ (gx#stx-e _g4273342756_))) - (let ((_hd4273842761_ + (lambda (_stx45887_ _vars45888_ _K45889_) + (let* ((_g4589145912_ + (lambda (_g4589245909_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g4589245909_)))) + (_g4589045969_ + (lambda (_g4589245915_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4589245915_)) + (let ((_e4589845917_ + (let () + (declare (not safe)) + (gx#stx-e _g4589245915_)))) + (let ((_hd4589745920_ (let () (declare (not safe)) - (##car _e4273742758_))) - (_tl4273942763_ + (##car _e4589845917_))) + (_tl4589645922_ (let () (declare (not safe)) - (##cdr _e4273742758_)))) - (if (gx#stx-pair? _tl4273942763_) - (let ((_e4274042766_ (gx#stx-e _tl4273942763_))) - (let ((_hd4274142769_ + (##cdr _e4589845917_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4589645922_)) + (let ((_e4590145925_ + (let () + (declare (not safe)) + (gx#stx-e _tl4589645922_)))) + (let ((_hd4590045928_ (let () (declare (not safe)) - (##car _e4274042766_))) - (_tl4274242771_ + (##car _e4590145925_))) + (_tl4589945930_ (let () (declare (not safe)) - (##cdr _e4274042766_)))) - (if (gx#stx-pair? _tl4274242771_) - (let ((_e4274342774_ - (gx#stx-e _tl4274242771_))) - (let ((_hd4274442777_ + (##cdr _e4590145925_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4589945930_)) + (let ((_e4590445933_ + (let () + (declare (not safe)) + (gx#stx-e _tl4589945930_)))) + (let ((_hd4590345936_ (let () (declare (not safe)) - (##car _e4274342774_))) - (_tl4274542779_ + (##car _e4590445933_))) + (_tl4590245938_ (let () (declare (not safe)) - (##cdr _e4274342774_)))) - (if (gx#stx-pair? _tl4274542779_) - (let ((_e4274642782_ - (gx#stx-e - _tl4274542779_))) - (let ((_hd4274742785_ + (##cdr _e4590445933_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4590245938_)) + (let ((_e4590745941_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4590245938_)))) + (let ((_hd4590645944_ (let () (declare (not safe)) - (##car _e4274642782_))) - (_tl4274842787_ + (##car _e4590745941_))) + (_tl4590545946_ (let () (declare (not safe)) - (##cdr _e4274642782_)))) - (if (gx#stx-null? - _tl4274842787_) - ((lambda (_L42790_ - _L42791_ - _L42792_) - (if (gxc#apply-find-var-refs - _L42792_ - (map caar -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _vars42729_)) - (gxc#push-match-vars-stop _stx42728_ _vars42729_ _K42730_) - (gxc#xform-wrap-source - (cons '%#if - (cons _L42792_ - (cons (gxc#compile-e - _L42791_ - _vars42729_ - _K42730_) - (cons (gxc#compile-e - _L42790_ - _vars42729_ - _K42730_) - '())))) - _stx42728_))) - _hd4274742785_ - _hd4274442777_ - _hd4274142769_) - (_g4273242753_ _g4273342756_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4273242753_ _g4273342756_)))) - (_g4273242753_ _g4273342756_)))) - (_g4273242753_ _g4273342756_)))) - (_g4273242753_ _g4273342756_))))) - (_g4273142810_ _stx42728_)))) + (##cdr _e4590745941_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4590545946_)) + ((lambda (_L45949_ + _L45950_ + _L45951_) + (if (let ((__tmp60557 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (map caar _vars45888_)))) + (declare (not safe)) + (gxc#apply-find-var-refs _L45951_ __tmp60557)) + (let () + (declare (not safe)) + (gxc#push-match-vars-stop + _stx45887_ + _vars45888_ + _K45889_)) + (let ((__tmp60551 + (let ((__tmp60552 + (let ((__tmp60553 + (let ((__tmp60556 + (let () + (declare (not safe)) + (gxc#compile-e + _L45950_ + _vars45888_ + _K45889_))) + (__tmp60554 + (let ((__tmp60555 + (let () + (declare (not safe)) + (gxc#compile-e + _L45949_ + _vars45888_ + _K45889_)))) + (declare (not safe)) + (cons __tmp60555 '())))) + (declare (not safe)) + (cons __tmp60556 __tmp60554)))) + (declare (not safe)) + (cons _L45951_ __tmp60553)))) + (declare (not safe)) + (cons '%#if __tmp60552)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp60551 _stx45887_)))) + _hd4590645944_ + _hd4590345936_ + _hd4590045928_) + (let () (declare (not safe)) (_g4589145912_ _g4589245915_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4589145912_ + _g4589245915_))))) + (let () + (declare (not safe)) + (_g4589145912_ _g4589245915_))))) + (let () + (declare (not safe)) + (_g4589145912_ _g4589245915_))))) + (let () + (declare (not safe)) + (_g4589145912_ _g4589245915_)))))) + (declare (not safe)) + (_g4589045969_ _stx45887_)))) (define gxc#push-match-vars-call% - (lambda (_stx42648_ _vars42649_ _K42650_) - (let* ((_g4265242671_ - (lambda (_g4265342668_) - (gx#raise-syntax-error '#f '"Bad syntax" _g4265342668_))) - (_g4265142725_ - (lambda (_g4265342674_) - (if (gx#stx-pair? _g4265342674_) - (let ((_e4265542676_ (gx#stx-e _g4265342674_))) - (let ((_hd4265642679_ + (lambda (_stx45807_ _vars45808_ _K45809_) + (let* ((_g4581145830_ + (lambda (_g4581245827_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g4581245827_)))) + (_g4581045884_ + (lambda (_g4581245833_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4581245833_)) + (let ((_e4581645835_ + (let () + (declare (not safe)) + (gx#stx-e _g4581245833_)))) + (let ((_hd4581545838_ (let () (declare (not safe)) - (##car _e4265542676_))) - (_tl4265742681_ + (##car _e4581645835_))) + (_tl4581445840_ (let () (declare (not safe)) - (##cdr _e4265542676_)))) - (if (gx#stx-pair? _tl4265742681_) - (let ((_e4265842684_ (gx#stx-e _tl4265742681_))) - (let ((_hd4265942687_ + (##cdr _e4581645835_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4581445840_)) + (let ((_e4581945843_ + (let () + (declare (not safe)) + (gx#stx-e _tl4581445840_)))) + (let ((_hd4581845846_ (let () (declare (not safe)) - (##car _e4265842684_))) - (_tl4266042689_ + (##car _e4581945843_))) + (_tl4581745848_ (let () (declare (not safe)) - (##cdr _e4265842684_)))) - (if (gx#stx-pair? _hd4265942687_) - (let ((_e4266142692_ - (gx#stx-e _hd4265942687_))) - (let ((_hd4266242695_ + (##cdr _e4581945843_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4581845846_)) + (let ((_e4582245851_ + (let () + (declare (not safe)) + (gx#stx-e _hd4581845846_)))) + (let ((_hd4582145854_ (let () (declare (not safe)) - (##car _e4266142692_))) - (_tl4266342697_ + (##car _e4582245851_))) + (_tl4582045856_ (let () (declare (not safe)) - (##cdr _e4266142692_)))) - (if (gx#identifier? _hd4266242695_) - (if (gx#stx-eq? - '%#ref - _hd4266242695_) - (if (gx#stx-pair? - _tl4266342697_) - (let ((_e4266442700_ - (gx#stx-e - _tl4266342697_))) - (let ((_hd4266542703_ - (let () + (##cdr _e4582245851_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd4582145854_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd4582145854_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4582045856_)) + (let ((_e4582545859_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e4266442700_))) - (_tl4266642705_ - (let () (declare (not safe)) (##cdr _e4266442700_)))) - (if (gx#stx-null? _tl4266642705_) - ((lambda (_L42708_) - (if (and (gx#free-identifier=? _L42708_ _K42650_) - (pair? _vars42649_)) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (reverse _vars42649_) - (cons _stx42648_ '()))) - _stx42648_) - _stx42648_)) - _hd4266542703_) - (_g4265242671_ _g4265342674_)))) - (_g4265242671_ _g4265342674_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4265242671_ - _g4265342674_)) - (_g4265242671_ _g4265342674_)))) - (_g4265242671_ _g4265342674_)))) - (_g4265242671_ _g4265342674_)))) - (_g4265242671_ _g4265342674_))))) - (_g4265142725_ _stx42648_)))) + (not safe)) + (gx#stx-e _tl4582045856_)))) + (let ((_hd4582445862_ + (let () (declare (not safe)) (##car _e4582545859_))) + (_tl4582345864_ + (let () (declare (not safe)) (##cdr _e4582545859_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4582345864_)) + ((lambda (_L45867_) + (if (and (let () + (declare (not safe)) + (gx#free-identifier=? _L45867_ _K45809_)) + (let () + (declare (not safe)) + (pair? _vars45808_))) + (let ((__tmp60558 + (let ((__tmp60559 + (let ((__tmp60561 + (let () + (declare (not safe)) + (reverse _vars45808_))) + (__tmp60560 + (let () + (declare (not safe)) + (cons _stx45807_ '())))) + (declare (not safe)) + (cons __tmp60561 __tmp60560)))) + (declare (not safe)) + (cons '%#let-values __tmp60559)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp60558 _stx45807_)) + _stx45807_)) + _hd4582445862_) + (let () + (declare (not safe)) + (_g4581145830_ _g4581245833_))))) + (let () (declare (not safe)) (_g4581145830_ _g4581245833_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4581145830_ + _g4581245833_))) + (let () + (declare (not safe)) + (_g4581145830_ + _g4581245833_))))) + (let () + (declare (not safe)) + (_g4581145830_ _g4581245833_))))) + (let () + (declare (not safe)) + (_g4581145830_ _g4581245833_))))) + (let () + (declare (not safe)) + (_g4581145830_ _g4581245833_)))))) + (declare (not safe)) + (_g4581045884_ _stx45807_)))) (define gxc#push-match-vars-stop - (lambda (_stx42644_ _vars42645_ _K42646_) - (if (null? _vars42645_) - _stx42644_ - (gxc#xform-wrap-source - (cons '%#let-values - (cons (reverse _vars42645_) (cons _stx42644_ '()))) - _stx42644_)))))) + (lambda (_stx45803_ _vars45804_ _K45805_) + (if (let () (declare (not safe)) (null? _vars45804_)) + _stx45803_ + (let ((__tmp60562 + (let ((__tmp60563 + (let ((__tmp60565 + (let () + (declare (not safe)) + (reverse _vars45804_))) + (__tmp60564 + (let () + (declare (not safe)) + (cons _stx45803_ '())))) + (declare (not safe)) + (cons __tmp60565 __tmp60564)))) + (declare (not safe)) + (cons '%#let-values __tmp60563)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp60562 _stx45803_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base.ssi b/src/bootstrap/gerbil/compiler/optimize-base.ssi index 7523d1adf..a3f280a85 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base.ssi +++ b/src/bootstrap/gerbil/compiler/optimize-base.ssi @@ -197,6 +197,24 @@ namespace: gxc !kw-lambda-primary-main-set! gxc#!kw-lambda-primary-main-set!) (%#define-syntax !kw-lambda-primary |gxc[:0:]#!kw-lambda-primary|) + (%#define-runtime !primitive::t gxc#!primitive::t) + (%#define-runtime !primitive? gxc#!primitive?) + (%#define-runtime make-!primitive gxc#make-!primitive) + (%#define-syntax !primitive |gxc[:0:]#!primitive|) + (%#define-runtime !primitive-lambda::t gxc#!primitive-lambda::t) + (%#define-runtime !primitive-lambda? gxc#!primitive-lambda?) + (%#define-runtime make-!primitive-lambda gxc#make-!primitive-lambda) + (%#define-syntax !primitive-lambda |gxc[:0:]#!primitive-lambda|) + (%#define-runtime + !primitive-case-lambda::t + gxc#!primitive-case-lambda::t) + (%#define-runtime !primitive-case-lambda? gxc#!primitive-case-lambda?) + (%#define-runtime + make-!primitive-case-lambda + gxc#make-!primitive-case-lambda) + (%#define-syntax + !primitive-case-lambda + |gxc[:0:]#!primitive-case-lambda|) (%#define-runtime !struct-type:::init! gxc#!struct-type:::init!) (%#define-runtime !class-type:::init! gxc#!class-type:::init!) (%#begin (%#define-runtime !lambda:::init!__% gxc#!lambda:::init!__%) @@ -209,6 +227,12 @@ namespace: gxc (%#define-runtime !lambda:::init! gxc#!lambda:::init!))) + (%#define-runtime + !primitive-lambda:::init! + gxc#!primitive-lambda:::init!) + (%#define-runtime + !primitive-case-lambda:::init! + gxc#!primitive-case-lambda:::init!) (%#define-runtime !struct-type-vtab gxc#!struct-type-vtab) (%#define-runtime !class-type-vtab gxc#!class-type-vtab) (%#define-runtime !type-vtab gxc#!type-vtab) diff --git a/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss index b918cfa4f..80835103a 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss @@ -26,7 +26,6 @@ package: gerbil/compiler gxc#optimizer-info-methods-set! (@struct-setf gxc#optimizer-info::t 2 #f)) (declare-type gxc#optimizer-info:::init! (@lambda 1 #f)) - (declare-method gxc#optimizer-info::t :init! gxc#optimizer-info:::init! #f) (declare-type gxc#!type::t (@struct-type gxc#!type::t #f 1 #f ())) (declare-type gxc#!type? (@struct-pred gxc#!type::t)) (declare-type gxc#make-!type (@struct-cons gxc#!type::t)) @@ -250,10 +249,43 @@ package: gerbil/compiler (declare-type gxc#!kw-lambda-primary-main-set! (@struct-setf gxc#!kw-lambda-primary::t 1 #f)) + (declare-type + gxc#!primitive::t + (@class-type gxc#!primitive::t #f () () () #f ())) + (declare-type gxc#!primitive? (@class-pred gxc#!primitive::t)) + (declare-type gxc#make-!primitive (@class-cons gxc#!primitive::t)) + (declare-type + gxc#!primitive-lambda::t + (@class-type + gxc#!primitive-lambda::t + gxc#!lambda::t + (gxc#!primitive::t gxc#!lambda::t) + () + () + :init! + ())) + (declare-type gxc#!primitive-lambda? (@class-pred gxc#!primitive-lambda::t)) + (declare-type + gxc#make-!primitive-lambda + (@class-cons gxc#!primitive-lambda::t)) + (declare-type + gxc#!primitive-case-lambda::t + (@class-type + gxc#!primitive-case-lambda::t + gxc#!case-lambda::t + (gxc#!primitive::t gxc#!case-lambda::t) + () + () + :init! + ())) + (declare-type + gxc#!primitive-case-lambda? + (@class-pred gxc#!primitive-case-lambda::t)) + (declare-type + gxc#make-!primitive-case-lambda + (@class-cons gxc#!primitive-case-lambda::t)) (declare-type gxc#!struct-type:::init! (@lambda 7 #f)) - (declare-method gxc#!struct-type::t :init! gxc#!struct-type:::init! #f) (declare-type gxc#!class-type:::init! (@lambda 8 #f)) - (declare-method gxc#!class-type::t :init! gxc#!class-type:::init! #f) (declare-type gxc#!lambda:::init!__% (@lambda 6 struct-instance-init!)) (declare-type gxc#!lambda:::init!__0 (@lambda 4 #f)) (declare-type gxc#!lambda:::init!__1 (@lambda 5 #f)) @@ -263,7 +295,15 @@ package: gerbil/compiler (4 gxc#!lambda:::init!__0) (5 gxc#!lambda:::init!__1) (6 gxc#!lambda:::init!__%))) - (declare-method gxc#!lambda::t :init! gxc#!lambda:::init! #f) + (declare-type + gxc#!primitive-lambda:::init! + (@case-lambda + (4 gxc#!lambda:::init!__0) + (5 gxc#!lambda:::init!__1) + (6 gxc#!lambda:::init!__%))) + (declare-type + gxc#!primitive-case-lambda:::init! + (@kw-lambda-dispatch () struct-instance-init!)) (declare-type gxc#!struct-type-vtab (@lambda 1 #f)) (declare-type gxc#!class-type-vtab (@lambda 1 #f)) (declare-type gxc#!type-vtab (@lambda 1 #f)) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index 92fb5a149..042aea117 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__0.scm @@ -1,864 +1,1279 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1695199291) + (define gerbil/compiler/optimize-base::timestamp 1695292405) (begin - (define gxc#current-compile-optimizer-info (make-parameter '#f)) - (define gxc#current-compile-mutators (make-parameter '#f)) - (define gxc#current-compile-local-type (make-parameter '#f)) + (define gxc#current-compile-optimizer-info + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-mutators + (let () (declare (not safe)) (make-parameter '#f))) + (define gxc#current-compile-local-type + (let () (declare (not safe)) (make-parameter '#f))) (define gxc#optimizer-info::t - (make-struct-type - 'gxc#optimizer-info::t - '#f - '3 - 'optimizer-info - '() - ':init! - '(type ssxi methods))) - (define gxc#optimizer-info? (make-struct-predicate gxc#optimizer-info::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#optimizer-info::t + '#f + '3 + 'optimizer-info + '() + ':init! + '(type ssxi methods)))) + (define gxc#optimizer-info? + (let () + (declare (not safe)) + (make-struct-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _$args17447_ - (apply make-struct-instance gxc#optimizer-info::t _$args17447_))) + (lambda _$args19140_ + (apply make-struct-instance gxc#optimizer-info::t _$args19140_))) (define gxc#optimizer-info-type - (make-struct-field-accessor gxc#optimizer-info::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#optimizer-info::t '0))) (define gxc#optimizer-info-ssxi - (make-struct-field-accessor gxc#optimizer-info::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#optimizer-info::t '1))) (define gxc#optimizer-info-methods - (make-struct-field-accessor gxc#optimizer-info::t '2)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#optimizer-info::t '2))) (define gxc#optimizer-info-type-set! - (make-struct-field-mutator gxc#optimizer-info::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#optimizer-info::t '0))) (define gxc#optimizer-info-ssxi-set! - (make-struct-field-mutator gxc#optimizer-info::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#optimizer-info::t '1))) (define gxc#optimizer-info-methods-set! - (make-struct-field-mutator gxc#optimizer-info::t '2)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#optimizer-info::t '2))) (define gxc#optimizer-info:::init! - (lambda (_self17445_) - (if (let ((__tmp17449 + (lambda (_self19138_) + (if (let ((__tmp19145 (let () (declare (not safe)) - (##vector-length _self17445_)))) + (##vector-length _self19138_)))) (declare (not safe)) - (##fx< '3 __tmp17449)) + (##fx< '3 __tmp19145)) (begin - (let ((__tmp17450 (make-table 'test: eq?))) + (let ((__tmp19142 + (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##vector-set! _self17445_ '1 __tmp17450)) - (let ((__tmp17451 (make-table 'test: eq?))) + (##vector-set! _self19138_ '1 __tmp19142)) + (let ((__tmp19143 + (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##vector-set! _self17445_ '2 __tmp17451)) - (let ((__tmp17452 (make-table 'test: eq?))) + (##vector-set! _self19138_ '2 __tmp19143)) + (let ((__tmp19144 + (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##vector-set! _self17445_ '3 __tmp17452))) + (##vector-set! _self19138_ '3 __tmp19144))) (error '"struct-instance-init!: too many arguments for struct" - _self17445_)))) - (bind-method! gxc#optimizer-info::t ':init! gxc#optimizer-info:::init! '#f) + _self19138_)))) + (let () + (declare (not safe)) + (bind-method! + gxc#optimizer-info::t + ':init! + gxc#optimizer-info:::init! + '#f)) (define gxc#!type::t - (make-struct-type 'gxc#!type::t '#f '1 '!type '() '#f '(id))) - (define gxc#!type? (make-struct-predicate gxc#!type::t)) + (let () + (declare (not safe)) + (make-struct-type 'gxc#!type::t '#f '1 '!type '() '#f '(id)))) + (define gxc#!type? + (let () (declare (not safe)) (make-struct-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _$args17320_ - (apply make-struct-instance gxc#!type::t _$args17320_))) - (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)) + (lambda _$args19013_ + (apply make-struct-instance gxc#!type::t _$args19013_))) + (define gxc#!type-id + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!type::t '0))) + (define gxc#!type-id-set! + (let () + (declare (not safe)) + (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)) + (let () + (declare (not safe)) + (make-struct-type 'gxc#!alias::t gxc#!type::t '0 '!alias '() '#f '()))) + (define gxc#!alias? + (let () (declare (not safe)) (make-struct-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _$args17317_ - (apply make-struct-instance gxc#!alias::t _$args17317_))) + (lambda _$args19010_ + (apply make-struct-instance gxc#!alias::t _$args19010_))) (define gxc#!struct-type::t - (make-struct-type - 'gxc#!struct-type::t - gxc#!type::t - '6 - '!struct-type - '() - ':init! - '(super fields xfields ctor plist methods))) - (define gxc#!struct-type? (make-struct-predicate gxc#!struct-type::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!struct-type::t + gxc#!type::t + '6 + '!struct-type + '() + ':init! + '(super fields xfields ctor plist methods)))) + (define gxc#!struct-type? + (let () + (declare (not safe)) + (make-struct-predicate gxc#!struct-type::t))) (define gxc#make-!struct-type - (lambda _$args17314_ - (apply make-struct-instance gxc#!struct-type::t _$args17314_))) + (lambda _$args19007_ + (apply make-struct-instance gxc#!struct-type::t _$args19007_))) (define gxc#!struct-type-super - (make-struct-field-accessor gxc#!struct-type::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!struct-type::t '0))) (define gxc#!struct-type-fields - (make-struct-field-accessor gxc#!struct-type::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!struct-type::t '1))) (define gxc#!struct-type-xfields - (make-struct-field-accessor gxc#!struct-type::t '2)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!struct-type::t '2))) (define gxc#!struct-type-ctor - (make-struct-field-accessor gxc#!struct-type::t '3)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!struct-type::t '3))) (define gxc#!struct-type-plist - (make-struct-field-accessor gxc#!struct-type::t '4)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!struct-type::t '4))) (define gxc#!struct-type-methods - (make-struct-field-accessor gxc#!struct-type::t '5)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!struct-type::t '5))) (define gxc#!struct-type-super-set! - (make-struct-field-mutator gxc#!struct-type::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!struct-type::t '0))) (define gxc#!struct-type-fields-set! - (make-struct-field-mutator gxc#!struct-type::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!struct-type::t '1))) (define gxc#!struct-type-xfields-set! - (make-struct-field-mutator gxc#!struct-type::t '2)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!struct-type::t '2))) (define gxc#!struct-type-ctor-set! - (make-struct-field-mutator gxc#!struct-type::t '3)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!struct-type::t '3))) (define gxc#!struct-type-plist-set! - (make-struct-field-mutator gxc#!struct-type::t '4)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!struct-type::t '4))) (define gxc#!struct-type-methods-set! - (make-struct-field-mutator gxc#!struct-type::t '5)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!struct-type::t '5))) (define gxc#!class-type::t - (make-struct-type - 'gxc#!class-type::t - gxc#!type::t - '7 - '!class-type - '() - ':init! - '(super mixin slots xslots ctor plist methods))) - (define gxc#!class-type? (make-struct-predicate gxc#!class-type::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!class-type::t + gxc#!type::t + '7 + '!class-type + '() + ':init! + '(super mixin slots xslots ctor plist methods)))) + (define gxc#!class-type? + (let () (declare (not safe)) (make-struct-predicate gxc#!class-type::t))) (define gxc#make-!class-type - (lambda _$args17311_ - (apply make-struct-instance gxc#!class-type::t _$args17311_))) + (lambda _$args19004_ + (apply make-struct-instance gxc#!class-type::t _$args19004_))) (define gxc#!class-type-super - (make-struct-field-accessor gxc#!class-type::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!class-type::t '0))) (define gxc#!class-type-mixin - (make-struct-field-accessor gxc#!class-type::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!class-type::t '1))) (define gxc#!class-type-slots - (make-struct-field-accessor gxc#!class-type::t '2)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!class-type::t '2))) (define gxc#!class-type-xslots - (make-struct-field-accessor gxc#!class-type::t '3)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!class-type::t '3))) (define gxc#!class-type-ctor - (make-struct-field-accessor gxc#!class-type::t '4)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!class-type::t '4))) (define gxc#!class-type-plist - (make-struct-field-accessor gxc#!class-type::t '5)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!class-type::t '5))) (define gxc#!class-type-methods - (make-struct-field-accessor gxc#!class-type::t '6)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!class-type::t '6))) (define gxc#!class-type-super-set! - (make-struct-field-mutator gxc#!class-type::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!class-type::t '0))) (define gxc#!class-type-mixin-set! - (make-struct-field-mutator gxc#!class-type::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!class-type::t '1))) (define gxc#!class-type-slots-set! - (make-struct-field-mutator gxc#!class-type::t '2)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!class-type::t '2))) (define gxc#!class-type-xslots-set! - (make-struct-field-mutator gxc#!class-type::t '3)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!class-type::t '3))) (define gxc#!class-type-ctor-set! - (make-struct-field-mutator gxc#!class-type::t '4)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!class-type::t '4))) (define gxc#!class-type-plist-set! - (make-struct-field-mutator gxc#!class-type::t '5)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!class-type::t '5))) (define gxc#!class-type-methods-set! - (make-struct-field-mutator gxc#!class-type::t '6)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!class-type::t '6))) (define gxc#!procedure::t - (make-struct-type - 'gxc#!procedure::t - gxc#!type::t - '0 - '!procedure - '() - '#f - '())) - (define gxc#!procedure? (make-struct-predicate gxc#!procedure::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!procedure::t + gxc#!type::t + '0 + '!procedure + '() + '#f + '()))) + (define gxc#!procedure? + (let () (declare (not safe)) (make-struct-predicate gxc#!procedure::t))) (define gxc#make-!procedure - (lambda _$args17308_ - (apply make-struct-instance gxc#!procedure::t _$args17308_))) + (lambda _$args19001_ + (apply make-struct-instance gxc#!procedure::t _$args19001_))) (define gxc#!struct-pred::t - (make-struct-type - 'gxc#!struct-pred::t - gxc#!procedure::t - '0 - '!struct-pred - '() - '#f - '())) - (define gxc#!struct-pred? (make-struct-predicate gxc#!struct-pred::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!struct-pred::t + gxc#!procedure::t + '0 + '!struct-pred + '() + '#f + '()))) + (define gxc#!struct-pred? + (let () + (declare (not safe)) + (make-struct-predicate gxc#!struct-pred::t))) (define gxc#make-!struct-pred - (lambda _$args17305_ - (apply make-struct-instance gxc#!struct-pred::t _$args17305_))) + (lambda _$args18998_ + (apply make-struct-instance gxc#!struct-pred::t _$args18998_))) (define gxc#!struct-cons::t - (make-struct-type - 'gxc#!struct-cons::t - gxc#!procedure::t - '0 - '!struct-cons - '() - '#f - '())) - (define gxc#!struct-cons? (make-struct-predicate gxc#!struct-cons::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!struct-cons::t + gxc#!procedure::t + '0 + '!struct-cons + '() + '#f + '()))) + (define gxc#!struct-cons? + (let () + (declare (not safe)) + (make-struct-predicate gxc#!struct-cons::t))) (define gxc#make-!struct-cons - (lambda _$args17302_ - (apply make-struct-instance gxc#!struct-cons::t _$args17302_))) + (lambda _$args18995_ + (apply make-struct-instance gxc#!struct-cons::t _$args18995_))) (define gxc#!struct-getf::t - (make-struct-type - 'gxc#!struct-getf::t - gxc#!procedure::t - '2 - '!struct-getf - '() - '#f - '(off unchecked?))) - (define gxc#!struct-getf? (make-struct-predicate gxc#!struct-getf::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!struct-getf::t + gxc#!procedure::t + '2 + '!struct-getf + '() + '#f + '(off unchecked?)))) + (define gxc#!struct-getf? + (let () + (declare (not safe)) + (make-struct-predicate gxc#!struct-getf::t))) (define gxc#make-!struct-getf - (lambda _$args17299_ - (apply make-struct-instance gxc#!struct-getf::t _$args17299_))) + (lambda _$args18992_ + (apply make-struct-instance gxc#!struct-getf::t _$args18992_))) (define gxc#!struct-getf-off - (make-struct-field-accessor gxc#!struct-getf::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!struct-getf::t '0))) (define gxc#!struct-getf-unchecked? - (make-struct-field-accessor gxc#!struct-getf::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!struct-getf::t '1))) (define gxc#!struct-getf-off-set! - (make-struct-field-mutator gxc#!struct-getf::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!struct-getf::t '0))) (define gxc#!struct-getf-unchecked?-set! - (make-struct-field-mutator gxc#!struct-getf::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!struct-getf::t '1))) (define gxc#!struct-setf::t - (make-struct-type - 'gxc#!struct-setf::t - gxc#!procedure::t - '2 - '!struct-setf - '() - '#f - '(off unchecked?))) - (define gxc#!struct-setf? (make-struct-predicate gxc#!struct-setf::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!struct-setf::t + gxc#!procedure::t + '2 + '!struct-setf + '() + '#f + '(off unchecked?)))) + (define gxc#!struct-setf? + (let () + (declare (not safe)) + (make-struct-predicate gxc#!struct-setf::t))) (define gxc#make-!struct-setf - (lambda _$args17296_ - (apply make-struct-instance gxc#!struct-setf::t _$args17296_))) + (lambda _$args18989_ + (apply make-struct-instance gxc#!struct-setf::t _$args18989_))) (define gxc#!struct-setf-off - (make-struct-field-accessor gxc#!struct-setf::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!struct-setf::t '0))) (define gxc#!struct-setf-unchecked? - (make-struct-field-accessor gxc#!struct-setf::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!struct-setf::t '1))) (define gxc#!struct-setf-off-set! - (make-struct-field-mutator gxc#!struct-setf::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!struct-setf::t '0))) (define gxc#!struct-setf-unchecked?-set! - (make-struct-field-mutator gxc#!struct-setf::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!struct-setf::t '1))) (define gxc#!class-pred::t - (make-struct-type - 'gxc#!class-pred::t - gxc#!procedure::t - '0 - '!class-pred - '() - '#f - '())) - (define gxc#!class-pred? (make-struct-predicate gxc#!class-pred::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!class-pred::t + gxc#!procedure::t + '0 + '!class-pred + '() + '#f + '()))) + (define gxc#!class-pred? + (let () (declare (not safe)) (make-struct-predicate gxc#!class-pred::t))) (define gxc#make-!class-pred - (lambda _$args17293_ - (apply make-struct-instance gxc#!class-pred::t _$args17293_))) + (lambda _$args18986_ + (apply make-struct-instance gxc#!class-pred::t _$args18986_))) (define gxc#!class-cons::t - (make-struct-type - 'gxc#!class-cons::t - gxc#!procedure::t - '0 - '!class-cons - '() - '#f - '())) - (define gxc#!class-cons? (make-struct-predicate gxc#!class-cons::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!class-cons::t + gxc#!procedure::t + '0 + '!class-cons + '() + '#f + '()))) + (define gxc#!class-cons? + (let () (declare (not safe)) (make-struct-predicate gxc#!class-cons::t))) (define gxc#make-!class-cons - (lambda _$args17290_ - (apply make-struct-instance gxc#!class-cons::t _$args17290_))) + (lambda _$args18983_ + (apply make-struct-instance gxc#!class-cons::t _$args18983_))) (define gxc#!class-getf::t - (make-struct-type - 'gxc#!class-getf::t - gxc#!procedure::t - '2 - '!class-getf - '() - '#f - '(slot unchecked?))) - (define gxc#!class-getf? (make-struct-predicate gxc#!class-getf::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!class-getf::t + gxc#!procedure::t + '2 + '!class-getf + '() + '#f + '(slot unchecked?)))) + (define gxc#!class-getf? + (let () (declare (not safe)) (make-struct-predicate gxc#!class-getf::t))) (define gxc#make-!class-getf - (lambda _$args17287_ - (apply make-struct-instance gxc#!class-getf::t _$args17287_))) + (lambda _$args18980_ + (apply make-struct-instance gxc#!class-getf::t _$args18980_))) (define gxc#!class-getf-slot - (make-struct-field-accessor gxc#!class-getf::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!class-getf::t '0))) (define gxc#!class-getf-unchecked? - (make-struct-field-accessor gxc#!class-getf::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!class-getf::t '1))) (define gxc#!class-getf-slot-set! - (make-struct-field-mutator gxc#!class-getf::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!class-getf::t '0))) (define gxc#!class-getf-unchecked?-set! - (make-struct-field-mutator gxc#!class-getf::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!class-getf::t '1))) (define gxc#!class-setf::t - (make-struct-type - 'gxc#!class-setf::t - gxc#!procedure::t - '2 - '!class-setf - '() - '#f - '(slot unchecked?))) - (define gxc#!class-setf? (make-struct-predicate gxc#!class-setf::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!class-setf::t + gxc#!procedure::t + '2 + '!class-setf + '() + '#f + '(slot unchecked?)))) + (define gxc#!class-setf? + (let () (declare (not safe)) (make-struct-predicate gxc#!class-setf::t))) (define gxc#make-!class-setf - (lambda _$args17284_ - (apply make-struct-instance gxc#!class-setf::t _$args17284_))) + (lambda _$args18977_ + (apply make-struct-instance gxc#!class-setf::t _$args18977_))) (define gxc#!class-setf-slot - (make-struct-field-accessor gxc#!class-setf::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!class-setf::t '0))) (define gxc#!class-setf-unchecked? - (make-struct-field-accessor gxc#!class-setf::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!class-setf::t '1))) (define gxc#!class-setf-slot-set! - (make-struct-field-mutator gxc#!class-setf::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!class-setf::t '0))) (define gxc#!class-setf-unchecked?-set! - (make-struct-field-mutator gxc#!class-setf::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!class-setf::t '1))) (define gxc#!lambda::t - (make-struct-type - 'gxc#!lambda::t - gxc#!procedure::t - '4 - '!lambda - '() - ':init! - '(arity dispatch inline inline-typedecl))) - (define gxc#!lambda? (make-struct-predicate gxc#!lambda::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!lambda::t + gxc#!procedure::t + '4 + '!lambda + '() + ':init! + '(arity dispatch inline inline-typedecl)))) + (define gxc#!lambda? + (let () (declare (not safe)) (make-struct-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _$args17281_ - (apply make-struct-instance gxc#!lambda::t _$args17281_))) - (define gxc#!lambda-arity (make-struct-field-accessor gxc#!lambda::t '0)) + (lambda _$args18974_ + (apply make-struct-instance gxc#!lambda::t _$args18974_))) + (define gxc#!lambda-arity + (let () + (declare (not safe)) + (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)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!lambda::t '1))) + (define gxc#!lambda-inline + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!lambda::t '2))) (define gxc#!lambda-inline-typedecl - (make-struct-field-accessor gxc#!lambda::t '3)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!lambda::t '3))) (define gxc#!lambda-arity-set! - (make-struct-field-mutator gxc#!lambda::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!lambda::t '0))) (define gxc#!lambda-dispatch-set! - (make-struct-field-mutator gxc#!lambda::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!lambda::t '1))) (define gxc#!lambda-inline-set! - (make-struct-field-mutator gxc#!lambda::t '2)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!lambda::t '2))) (define gxc#!lambda-inline-typedecl-set! - (make-struct-field-mutator gxc#!lambda::t '3)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!lambda::t '3))) (define gxc#!case-lambda::t - (make-struct-type - 'gxc#!case-lambda::t - gxc#!procedure::t - '1 - '!case-lambda - '() - '#f - '(clauses))) - (define gxc#!case-lambda? (make-struct-predicate gxc#!case-lambda::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!case-lambda::t + gxc#!procedure::t + '1 + '!case-lambda + '() + '#f + '(clauses)))) + (define gxc#!case-lambda? + (let () + (declare (not safe)) + (make-struct-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _$args17278_ - (apply make-struct-instance gxc#!case-lambda::t _$args17278_))) + (lambda _$args18971_ + (apply make-struct-instance gxc#!case-lambda::t _$args18971_))) (define gxc#!case-lambda-clauses - (make-struct-field-accessor gxc#!case-lambda::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!case-lambda::t '0))) (define gxc#!case-lambda-clauses-set! - (make-struct-field-mutator gxc#!case-lambda::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!case-lambda::t '0))) (define gxc#!kw-lambda::t - (make-struct-type - 'gxc#!kw-lambda::t - gxc#!procedure::t - '2 - '!kw-lambda - '() - '#f - '(table dispatch))) - (define gxc#!kw-lambda? (make-struct-predicate gxc#!kw-lambda::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!kw-lambda::t + gxc#!procedure::t + '2 + '!kw-lambda + '() + '#f + '(table dispatch)))) + (define gxc#!kw-lambda? + (let () (declare (not safe)) (make-struct-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _$args17275_ - (apply make-struct-instance gxc#!kw-lambda::t _$args17275_))) + (lambda _$args18968_ + (apply make-struct-instance gxc#!kw-lambda::t _$args18968_))) (define gxc#!kw-lambda-table - (make-struct-field-accessor gxc#!kw-lambda::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!kw-lambda::t '0))) (define gxc#!kw-lambda-dispatch - (make-struct-field-accessor gxc#!kw-lambda::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!kw-lambda::t '1))) (define gxc#!kw-lambda-table-set! - (make-struct-field-mutator gxc#!kw-lambda::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!kw-lambda::t '0))) (define gxc#!kw-lambda-dispatch-set! - (make-struct-field-mutator gxc#!kw-lambda::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!kw-lambda::t '1))) (define gxc#!kw-lambda-primary::t - (make-struct-type - 'gxc#!kw-lambda-primary::t - gxc#!procedure::t - '2 - '!kw-lambda-primary - '() - '#f - '(keys main))) + (let () + (declare (not safe)) + (make-struct-type + 'gxc#!kw-lambda-primary::t + gxc#!procedure::t + '2 + '!kw-lambda-primary + '() + '#f + '(keys main)))) (define gxc#!kw-lambda-primary? - (make-struct-predicate gxc#!kw-lambda-primary::t)) + (let () + (declare (not safe)) + (make-struct-predicate gxc#!kw-lambda-primary::t))) (define gxc#make-!kw-lambda-primary - (lambda _$args17272_ - (apply make-struct-instance gxc#!kw-lambda-primary::t _$args17272_))) + (lambda _$args18965_ + (apply make-struct-instance gxc#!kw-lambda-primary::t _$args18965_))) (define gxc#!kw-lambda-primary-keys - (make-struct-field-accessor gxc#!kw-lambda-primary::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!kw-lambda-primary::t '0))) (define gxc#!kw-lambda-primary-main - (make-struct-field-accessor gxc#!kw-lambda-primary::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gxc#!kw-lambda-primary::t '1))) (define gxc#!kw-lambda-primary-keys-set! - (make-struct-field-mutator gxc#!kw-lambda-primary::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!kw-lambda-primary::t '0))) (define gxc#!kw-lambda-primary-main-set! - (make-struct-field-mutator gxc#!kw-lambda-primary::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gxc#!kw-lambda-primary::t '1))) + (define gxc#!primitive::t + (let () + (declare (not safe)) + (make-class-type 'gxc#!primitive::t '() '() '!primitive '() '#f))) + (define gxc#!primitive? + (let () (declare (not safe)) (make-class-predicate gxc#!primitive::t))) + (define gxc#make-!primitive + (lambda _$args18962_ + (apply make-class-instance gxc#!primitive::t _$args18962_))) + (define gxc#!primitive-lambda::t + (let ((__tmp19146 + (let ((__tmp19147 + (let () (declare (not safe)) (cons gxc#!lambda::t '())))) + (declare (not safe)) + (cons gxc#!primitive::t __tmp19147)))) + (declare (not safe)) + (make-class-type + 'gxc#!primitive-lambda::t + __tmp19146 + '() + '!primitive-lambda + '() + ':init!))) + (define gxc#!primitive-lambda? + (let () + (declare (not safe)) + (make-class-predicate gxc#!primitive-lambda::t))) + (define gxc#make-!primitive-lambda + (lambda _$args18959_ + (apply make-class-instance gxc#!primitive-lambda::t _$args18959_))) + (define gxc#!primitive-case-lambda::t + (let ((__tmp19148 + (let ((__tmp19149 + (let () + (declare (not safe)) + (cons gxc#!case-lambda::t '())))) + (declare (not safe)) + (cons gxc#!primitive::t __tmp19149)))) + (declare (not safe)) + (make-class-type + 'gxc#!primitive-case-lambda::t + __tmp19148 + '() + '!primitive-case-lambda + '() + ':init!))) + (define gxc#!primitive-case-lambda? + (let () + (declare (not safe)) + (make-class-predicate gxc#!primitive-case-lambda::t))) + (define gxc#make-!primitive-case-lambda + (lambda _$args18956_ + (apply make-class-instance + gxc#!primitive-case-lambda::t + _$args18956_))) (define gxc#!struct-type:::init! - (lambda (_self17264_ - _id17265_ - _super17266_ - _fields17267_ - _xfields17268_ - _ctor17269_ - _plist17270_) - (if (let ((__tmp17453 + (lambda (_self18948_ + _id18949_ + _super18950_ + _fields18951_ + _xfields18952_ + _ctor18953_ + _plist18954_) + (if (let ((__tmp19150 (let () (declare (not safe)) - (##vector-length _self17264_)))) + (##vector-length _self18948_)))) (declare (not safe)) - (##fx< '7 __tmp17453)) + (##fx< '7 __tmp19150)) (begin (let () (declare (not safe)) - (##vector-set! _self17264_ '1 _id17265_)) + (##vector-set! _self18948_ '1 _id18949_)) (let () (declare (not safe)) - (##vector-set! _self17264_ '2 _super17266_)) + (##vector-set! _self18948_ '2 _super18950_)) (let () (declare (not safe)) - (##vector-set! _self17264_ '3 _fields17267_)) + (##vector-set! _self18948_ '3 _fields18951_)) (let () (declare (not safe)) - (##vector-set! _self17264_ '4 _xfields17268_)) + (##vector-set! _self18948_ '4 _xfields18952_)) (let () (declare (not safe)) - (##vector-set! _self17264_ '5 _ctor17269_)) + (##vector-set! _self18948_ '5 _ctor18953_)) (let () (declare (not safe)) - (##vector-set! _self17264_ '6 _plist17270_)) - (let () (declare (not safe)) (##vector-set! _self17264_ '7 '#f))) + (##vector-set! _self18948_ '6 _plist18954_)) + (let () (declare (not safe)) (##vector-set! _self18948_ '7 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self17264_)))) - (bind-method! gxc#!struct-type::t ':init! gxc#!struct-type:::init! '#f) + _self18948_)))) + (let () + (declare (not safe)) + (bind-method! gxc#!struct-type::t ':init! gxc#!struct-type:::init! '#f)) (define gxc#!class-type:::init! - (lambda (_self17133_ - _id17134_ - _super17135_ - _mixin17136_ - _slots17137_ - _xslots17138_ - _ctor17139_ - _plist17140_) - (if (let ((__tmp17454 + (lambda (_self18817_ + _id18818_ + _super18819_ + _mixin18820_ + _slots18821_ + _xslots18822_ + _ctor18823_ + _plist18824_) + (if (let ((__tmp19151 (let () (declare (not safe)) - (##vector-length _self17133_)))) + (##vector-length _self18817_)))) (declare (not safe)) - (##fx< '8 __tmp17454)) + (##fx< '8 __tmp19151)) (begin (let () (declare (not safe)) - (##vector-set! _self17133_ '1 _id17134_)) + (##vector-set! _self18817_ '1 _id18818_)) (let () (declare (not safe)) - (##vector-set! _self17133_ '2 _super17135_)) + (##vector-set! _self18817_ '2 _super18819_)) (let () (declare (not safe)) - (##vector-set! _self17133_ '3 _mixin17136_)) + (##vector-set! _self18817_ '3 _mixin18820_)) (let () (declare (not safe)) - (##vector-set! _self17133_ '4 _slots17137_)) + (##vector-set! _self18817_ '4 _slots18821_)) (let () (declare (not safe)) - (##vector-set! _self17133_ '5 _xslots17138_)) + (##vector-set! _self18817_ '5 _xslots18822_)) (let () (declare (not safe)) - (##vector-set! _self17133_ '6 _ctor17139_)) + (##vector-set! _self18817_ '6 _ctor18823_)) (let () (declare (not safe)) - (##vector-set! _self17133_ '7 _plist17140_)) - (let () (declare (not safe)) (##vector-set! _self17133_ '8 '#f))) + (##vector-set! _self18817_ '7 _plist18824_)) + (let () (declare (not safe)) (##vector-set! _self18817_ '8 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self17133_)))) - (bind-method! gxc#!class-type::t ':init! gxc#!class-type:::init! '#f) + _self18817_)))) + (let () + (declare (not safe)) + (bind-method! gxc#!class-type::t ':init! gxc#!class-type:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_self16977_ - _id16978_ - _arity16979_ - _dispatch16980_ - _inline16981_ - _typedecl16982_) - (if (let ((__tmp17455 + (lambda (_self18661_ + _id18662_ + _arity18663_ + _dispatch18664_ + _inline18665_ + _typedecl18666_) + (if (let ((__tmp19152 (let () (declare (not safe)) - (##vector-length _self16977_)))) + (##vector-length _self18661_)))) (declare (not safe)) - (##fx< '5 __tmp17455)) + (##fx< '5 __tmp19152)) (begin (let () (declare (not safe)) - (##vector-set! _self16977_ '1 _id16978_)) + (##vector-set! _self18661_ '1 _id18662_)) (let () (declare (not safe)) - (##vector-set! _self16977_ '2 _arity16979_)) + (##vector-set! _self18661_ '2 _arity18663_)) (let () (declare (not safe)) - (##vector-set! _self16977_ '3 _dispatch16980_)) + (##vector-set! _self18661_ '3 _dispatch18664_)) (let () (declare (not safe)) - (##vector-set! _self16977_ '4 _inline16981_)) + (##vector-set! _self18661_ '4 _inline18665_)) (let () (declare (not safe)) - (##vector-set! _self16977_ '5 _typedecl16982_))) + (##vector-set! _self18661_ '5 _typedecl18666_))) (error '"struct-instance-init!: too many arguments for struct" - _self16977_)))) + _self18661_)))) (define gxc#!lambda:::init!__0 - (lambda (_self16987_ _id16988_ _arity16989_ _dispatch16990_) - (let* ((_inline16992_ '#f) (_typedecl16994_ '#f)) - (if (let ((__tmp17456 + (lambda (_self18671_ _id18672_ _arity18673_ _dispatch18674_) + (let* ((_inline18676_ '#f) (_typedecl18678_ '#f)) + (if (let ((__tmp19153 (let () (declare (not safe)) - (##vector-length _self16987_)))) + (##vector-length _self18671_)))) (declare (not safe)) - (##fx< '5 __tmp17456)) + (##fx< '5 __tmp19153)) (begin (let () (declare (not safe)) - (##vector-set! _self16987_ '1 _id16988_)) + (##vector-set! _self18671_ '1 _id18672_)) (let () (declare (not safe)) - (##vector-set! _self16987_ '2 _arity16989_)) + (##vector-set! _self18671_ '2 _arity18673_)) (let () (declare (not safe)) - (##vector-set! _self16987_ '3 _dispatch16990_)) + (##vector-set! _self18671_ '3 _dispatch18674_)) (let () (declare (not safe)) - (##vector-set! _self16987_ '4 _inline16992_)) + (##vector-set! _self18671_ '4 _inline18676_)) (let () (declare (not safe)) - (##vector-set! _self16987_ '5 _typedecl16994_))) + (##vector-set! _self18671_ '5 _typedecl18678_))) (error '"struct-instance-init!: too many arguments for struct" - _self16987_))))) + _self18671_))))) (define gxc#!lambda:::init!__1 - (lambda (_self16996_ - _id16997_ - _arity16998_ - _dispatch16999_ - _inline17000_) - (let ((_typedecl17002_ '#f)) - (if (let ((__tmp17457 + (lambda (_self18680_ + _id18681_ + _arity18682_ + _dispatch18683_ + _inline18684_) + (let ((_typedecl18686_ '#f)) + (if (let ((__tmp19154 (let () (declare (not safe)) - (##vector-length _self16996_)))) + (##vector-length _self18680_)))) (declare (not safe)) - (##fx< '5 __tmp17457)) + (##fx< '5 __tmp19154)) (begin (let () (declare (not safe)) - (##vector-set! _self16996_ '1 _id16997_)) + (##vector-set! _self18680_ '1 _id18681_)) (let () (declare (not safe)) - (##vector-set! _self16996_ '2 _arity16998_)) + (##vector-set! _self18680_ '2 _arity18682_)) (let () (declare (not safe)) - (##vector-set! _self16996_ '3 _dispatch16999_)) + (##vector-set! _self18680_ '3 _dispatch18683_)) (let () (declare (not safe)) - (##vector-set! _self16996_ '4 _inline17000_)) + (##vector-set! _self18680_ '4 _inline18684_)) (let () (declare (not safe)) - (##vector-set! _self16996_ '5 _typedecl17002_))) + (##vector-set! _self18680_ '5 _typedecl18686_))) (error '"struct-instance-init!: too many arguments for struct" - _self16996_))))) + _self18680_))))) (define gxc#!lambda:::init! - (lambda _g17459_ - (let ((_g17458_ (let () (declare (not safe)) (##length _g17459_)))) - (cond ((let () (declare (not safe)) (##fx= _g17458_ 4)) - (apply gxc#!lambda:::init!__0 _g17459_)) - ((let () (declare (not safe)) (##fx= _g17458_ 5)) - (apply gxc#!lambda:::init!__1 _g17459_)) - ((let () (declare (not safe)) (##fx= _g17458_ 6)) - (apply (lambda (_self17004_ - _id17005_ - _arity17006_ - _dispatch17007_ - _inline17008_ - _typedecl17009_) - (if (let ((__tmp17460 + (lambda _g19156_ + (let ((_g19155_ (let () (declare (not safe)) (##length _g19156_)))) + (cond ((let () (declare (not safe)) (##fx= _g19155_ 4)) + (apply (lambda (_self18671_ + _id18672_ + _arity18673_ + _dispatch18674_) + (let () + (declare (not safe)) + (gxc#!lambda:::init!__0 + _self18671_ + _id18672_ + _arity18673_ + _dispatch18674_))) + _g19156_)) + ((let () (declare (not safe)) (##fx= _g19155_ 5)) + (apply (lambda (_self18680_ + _id18681_ + _arity18682_ + _dispatch18683_ + _inline18684_) + (let () + (declare (not safe)) + (gxc#!lambda:::init!__1 + _self18680_ + _id18681_ + _arity18682_ + _dispatch18683_ + _inline18684_))) + _g19156_)) + ((let () (declare (not safe)) (##fx= _g19155_ 6)) + (apply (lambda (_self18688_ + _id18689_ + _arity18690_ + _dispatch18691_ + _inline18692_ + _typedecl18693_) + (if (let ((__tmp19157 (let () (declare (not safe)) - (##vector-length _self17004_)))) + (##vector-length _self18688_)))) (declare (not safe)) - (##fx< '5 __tmp17460)) + (##fx< '5 __tmp19157)) (begin (let () (declare (not safe)) - (##vector-set! _self17004_ '1 _id17005_)) + (##vector-set! _self18688_ '1 _id18689_)) (let () (declare (not safe)) - (##vector-set! _self17004_ '2 _arity17006_)) + (##vector-set! _self18688_ '2 _arity18690_)) (let () (declare (not safe)) (##vector-set! - _self17004_ + _self18688_ '3 - _dispatch17007_)) + _dispatch18691_)) (let () (declare (not safe)) - (##vector-set! _self17004_ '4 _inline17008_)) + (##vector-set! _self18688_ '4 _inline18692_)) (let () (declare (not safe)) (##vector-set! - _self17004_ + _self18688_ '5 - _typedecl17009_))) + _typedecl18693_))) (error '"struct-instance-init!: too many arguments for struct" - _self17004_))) - _g17459_)) + _self18688_))) + _g19156_)) (else (##raise-wrong-number-of-arguments-exception gxc#!lambda:::init! - _g17459_)))))) - (bind-method! gxc#!lambda::t ':init! gxc#!lambda:::init! '#f) + _g19156_)))))) + (let () + (declare (not safe)) + (bind-method! gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) + (define gxc#!primitive-lambda:::init! gxc#!lambda:::init!) + (let () + (declare (not safe)) + (bind-method! + gxc#!primitive-lambda::t + ':init! + gxc#!primitive-lambda:::init! + '#f)) + (define gxc#!primitive-case-lambda:::init! + (lambda (_self18413_ . _args18414_) + (apply struct-instance-init! _self18413_ _args18414_))) + (let () + (declare (not safe)) + (bind-method! + gxc#!primitive-case-lambda::t + ':init! + gxc#!primitive-case-lambda:::init! + '#f)) (define gxc#!struct-type-vtab - (lambda (_type16846_) - (let ((_$e16848_ - (##structure-ref _type16846_ '7 gxc#!struct-type::t '#f))) - (if _$e16848_ - (values _$e16848_) - (let ((_vtab16851_ (make-table 'test: eq?))) + (lambda (_type18283_) + (let ((_$e18285_ + (##structure-ref _type18283_ '7 gxc#!struct-type::t '#f))) + (if _$e18285_ + (values _$e18285_) + (let ((_vtab18288_ + (let () (declare (not safe)) (make-table 'test: eq?)))) (##structure-set! - _type16846_ - _vtab16851_ + _type18283_ + _vtab18288_ '7 gxc#!struct-type::t '#f) - _vtab16851_))))) + _vtab18288_))))) (define gxc#!class-type-vtab - (lambda (_type16839_) - (let ((_$e16841_ - (##structure-ref _type16839_ '8 gxc#!class-type::t '#f))) - (if _$e16841_ - (values _$e16841_) - (let ((_vtab16844_ (make-table 'test: eq?))) + (lambda (_type18276_) + (let ((_$e18278_ + (##structure-ref _type18276_ '8 gxc#!class-type::t '#f))) + (if _$e18278_ + (values _$e18278_) + (let ((_vtab18281_ + (let () (declare (not safe)) (make-table 'test: eq?)))) (##structure-set! - _type16839_ - _vtab16844_ + _type18276_ + _vtab18281_ '8 gxc#!class-type::t '#f) - _vtab16844_))))) + _vtab18281_))))) (define gxc#!type-vtab - (lambda (_type16837_) + (lambda (_type18274_) (if (let () (declare (not safe)) - (##structure-instance-of? _type16837_ 'gxc#!struct-type::t)) - (gxc#!struct-type-vtab _type16837_) + (##structure-instance-of? _type18274_ 'gxc#!struct-type::t)) + (let () (declare (not safe)) (gxc#!struct-type-vtab _type18274_)) (if (let () (declare (not safe)) - (##structure-instance-of? _type16837_ 'gxc#!class-type::t)) - (gxc#!class-type-vtab _type16837_) + (##structure-instance-of? _type18274_ 'gxc#!class-type::t)) + (let () + (declare (not safe)) + (gxc#!class-type-vtab _type18274_)) '#f)))) (define gxc#!struct-type-lookup-method - (lambda (_type16828_ _method16829_) - (let ((_vtab1683016832_ - (##structure-ref _type16828_ '7 gxc#!struct-type::t '#f))) - (if _vtab1683016832_ - (let ((_vtab16835_ _vtab1683016832_)) - (table-ref _vtab16835_ _method16829_ '#f)) + (lambda (_type18265_ _method18266_) + (let ((_vtab1826718269_ + (##structure-ref _type18265_ '7 gxc#!struct-type::t '#f))) + (if _vtab1826718269_ + (let ((_vtab18272_ _vtab1826718269_)) + (declare (not safe)) + (table-ref _vtab18272_ _method18266_ '#f)) '#f)))) (define gxc#!class-type-lookup-method - (lambda (_type16819_ _method16820_) - (let ((_vtab1682116823_ - (##structure-ref _type16819_ '8 gxc#!class-type::t '#f))) - (if _vtab1682116823_ - (let ((_vtab16826_ _vtab1682116823_)) - (table-ref _vtab16826_ _method16820_ '#f)) + (lambda (_type18256_ _method18257_) + (let ((_vtab1825818260_ + (##structure-ref _type18256_ '8 gxc#!class-type::t '#f))) + (if _vtab1825818260_ + (let ((_vtab18263_ _vtab1825818260_)) + (declare (not safe)) + (table-ref _vtab18263_ _method18257_ '#f)) '#f)))) (define gxc#!type-lookup-method - (lambda (_type16816_ _method16817_) + (lambda (_type18253_ _method18254_) (if (let () (declare (not safe)) - (##structure-instance-of? _type16816_ 'gxc#!struct-type::t)) - (gxc#!struct-type-lookup-method _type16816_ _method16817_) + (##structure-instance-of? _type18253_ 'gxc#!struct-type::t)) + (let () + (declare (not safe)) + (gxc#!struct-type-lookup-method _type18253_ _method18254_)) (if (let () (declare (not safe)) - (##structure-instance-of? _type16816_ 'gxc#!class-type::t)) - (gxc#!class-type-lookup-method _type16816_ _method16817_) + (##structure-instance-of? _type18253_ 'gxc#!class-type::t)) + (let () + (declare (not safe)) + (gxc#!class-type-lookup-method _type18253_ _method18254_)) '#f)))) (define gxc#!class-type-complete? - (lambda (_type16807_) - (if (##structure-ref _type16807_ '4 gxc#!class-type::t '#f) - (let ((_super16809_ - (##structure-ref _type16807_ '2 gxc#!class-type::t '#f))) - (if (not _super16809_) + (lambda (_type18244_) + (if (##structure-ref _type18244_ '4 gxc#!class-type::t '#f) + (let ((_super18246_ + (##structure-ref _type18244_ '2 gxc#!class-type::t '#f))) + (if (let () (declare (not safe)) (not _super18246_)) '#t - (let ((_$e16811_ (gxc#optimizer-lookup-type _super16809_))) - (if _$e16811_ - ((lambda (_super-t16814_) + (let ((_$e18248_ + (let () + (declare (not safe)) + (gxc#optimizer-lookup-type _super18246_)))) + (if _$e18248_ + ((lambda (_super-t18251_) (if (##structure-ref - _super-t16814_ + _super-t18251_ '4 gxc#!struct-type::t '#f) '#t '#f)) - _$e16811_) + _$e18248_) '#f)))) '#f))) (define gxc#optimizer-declare-type!__% - (lambda (_sym16791_ _type16792_ _local?16793_) + (lambda (_sym18228_ _type18229_ _local?18230_) (if (let () (declare (not safe)) - (##structure-instance-of? _type16792_ 'gxc#!type::t)) + (##structure-instance-of? _type18229_ 'gxc#!type::t)) '#!void - (error '"bad declaration: expected !type" _sym16791_ _type16792_)) - (gxc#verbose - '"declare-type " - _sym16791_ - '" " - (struct->list _type16792_)) - (table-set! - (if _local?16793_ - (gxc#current-compile-local-type) - (##structure-ref - (gxc#current-compile-optimizer-info) - '1 - gxc#optimizer-info::t - '#f)) - _sym16791_ - _type16792_))) + (error '"bad declaration: expected !type" _sym18228_ _type18229_)) + (let ((__tmp19158 + (let () (declare (not safe)) (struct->list _type18229_)))) + (declare (not safe)) + (gxc#verbose '"declare-type " _sym18228_ '" " __tmp19158)) + (let ((__tmp19159 + (if _local?18230_ + (gxc#current-compile-local-type) + (##structure-ref + (gxc#current-compile-optimizer-info) + '1 + gxc#optimizer-info::t + '#f)))) + (declare (not safe)) + (table-set! __tmp19159 _sym18228_ _type18229_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_sym16798_ _type16799_) - (let ((_local?16801_ '#f)) + (lambda (_sym18235_ _type18236_) + (let ((_local?18238_ '#f)) + (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym16798_ - _type16799_ - _local?16801_)))) + _sym18235_ + _type18236_ + _local?18238_)))) (define gxc#optimizer-declare-type! - (lambda _g17462_ - (let ((_g17461_ (let () (declare (not safe)) (##length _g17462_)))) - (cond ((let () (declare (not safe)) (##fx= _g17461_ 2)) - (apply gxc#optimizer-declare-type!__0 _g17462_)) - ((let () (declare (not safe)) (##fx= _g17461_ 3)) - (apply gxc#optimizer-declare-type!__% _g17462_)) + (lambda _g19161_ + (let ((_g19160_ (let () (declare (not safe)) (##length _g19161_)))) + (cond ((let () (declare (not safe)) (##fx= _g19160_ 2)) + (apply (lambda (_sym18235_ _type18236_) + (let () + (declare (not safe)) + (gxc#optimizer-declare-type!__0 + _sym18235_ + _type18236_))) + _g19161_)) + ((let () (declare (not safe)) (##fx= _g19160_ 3)) + (apply (lambda (_sym18240_ _type18241_ _local?18242_) + (let () + (declare (not safe)) + (gxc#optimizer-declare-type!__% + _sym18240_ + _type18241_ + _local?18242_))) + _g19161_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g17462_)))))) + _g19161_)))))) (define gxc#optimizer-clear-type!__% - (lambda (_sym16777_ _local?16778_) - (gxc#verbose '"clear-type " _sym16777_) - (table-set! - (if _local?16778_ - (gxc#current-compile-local-type) - (##structure-ref - (gxc#current-compile-optimizer-info) - '1 - gxc#optimizer-info::t - '#f)) - _sym16777_))) + (lambda (_sym18214_ _local?18215_) + (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym18214_)) + (let ((__tmp19162 + (if _local?18215_ + (gxc#current-compile-local-type) + (##structure-ref + (gxc#current-compile-optimizer-info) + '1 + gxc#optimizer-info::t + '#f)))) + (declare (not safe)) + (table-set! __tmp19162 _sym18214_)))) (define gxc#optimizer-clear-type!__0 - (lambda (_sym16783_) - (let ((_local?16785_ '#f)) - (gxc#optimizer-clear-type!__% _sym16783_ _local?16785_)))) + (lambda (_sym18220_) + (let ((_local?18222_ '#f)) + (declare (not safe)) + (gxc#optimizer-clear-type!__% _sym18220_ _local?18222_)))) (define gxc#optimizer-clear-type! - (lambda _g17464_ - (let ((_g17463_ (let () (declare (not safe)) (##length _g17464_)))) - (cond ((let () (declare (not safe)) (##fx= _g17463_ 1)) - (apply gxc#optimizer-clear-type!__0 _g17464_)) - ((let () (declare (not safe)) (##fx= _g17463_ 2)) - (apply gxc#optimizer-clear-type!__% _g17464_)) + (lambda _g19164_ + (let ((_g19163_ (let () (declare (not safe)) (##length _g19164_)))) + (cond ((let () (declare (not safe)) (##fx= _g19163_ 1)) + (apply (lambda (_sym18220_) + (let () + (declare (not safe)) + (gxc#optimizer-clear-type!__0 _sym18220_))) + _g19164_)) + ((let () (declare (not safe)) (##fx= _g19163_ 2)) + (apply (lambda (_sym18224_ _local?18225_) + (let () + (declare (not safe)) + (gxc#optimizer-clear-type!__% + _sym18224_ + _local?18225_))) + _g19164_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-clear-type! - _g17464_)))))) + _g19164_)))))) (define gxc#optimizer-declare-method!__% - (lambda (_type-t16750_ _method16751_ _sym16752_ _rebind?16753_) - (let* ((_type16755_ (gxc#optimizer-resolve-type _type-t16750_)) - (_$e16757_ (gxc#!type-vtab _type16755_))) - (if _$e16757_ - ((lambda (_vtab16760_) - (if (hash-key? _vtab16760_ _method16751_) - (if _rebind?16753_ + (lambda (_type-t18187_ _method18188_ _sym18189_ _rebind?18190_) + (let* ((_type18192_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _type-t18187_))) + (_$e18194_ + (let () (declare (not safe)) (gxc#!type-vtab _type18192_)))) + (if _$e18194_ + ((lambda (_vtab18197_) + (if (let () + (declare (not safe)) + (hash-key? _vtab18197_ _method18188_)) + (if _rebind?18190_ (begin - (gxc#verbose - '"declare-method: rebind existing method" - _type-t16750_ - '" " - _method16751_) - (table-set! _vtab16760_ _method16751_ _sym16752_)) + (let () + (declare (not safe)) + (gxc#verbose + '"declare-method: rebind existing method" + _type-t18187_ + '" " + _method18188_)) + (let () + (declare (not safe)) + (table-set! + _vtab18197_ + _method18188_ + _sym18189_))) (error '"declare-method: duplicate method declaration")) (begin - (gxc#verbose - '"declare-method " - _type-t16750_ - '" " - _method16751_ - '" => " - _sym16752_) - (table-set! _vtab16760_ _method16751_ _sym16752_)))) - _$e16757_) - (if (not _type16755_) - (gxc#verbose '"declare-method: unknown type " _type-t16750_) + (let () + (declare (not safe)) + (gxc#verbose + '"declare-method " + _type-t18187_ + '" " + _method18188_ + '" => " + _sym18189_)) + (let () + (declare (not safe)) + (table-set! _vtab18197_ _method18188_ _sym18189_))))) + _$e18194_) + (if (let () (declare (not safe)) (not _type18192_)) + (let () + (declare (not safe)) + (gxc#verbose + '"declare-method: unknown type " + _type-t18187_)) (error '"declare-method: bad method declaration; no method table" - _type-t16750_ - _type16755_)))))) + _type-t18187_ + _type18192_)))))) (define gxc#optimizer-declare-method!__0 - (lambda (_type-t16765_ _method16766_ _sym16767_) - (let ((_rebind?16769_ '#f)) + (lambda (_type-t18202_ _method18203_ _sym18204_) + (let ((_rebind?18206_ '#f)) + (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t16765_ - _method16766_ - _sym16767_ - _rebind?16769_)))) + _type-t18202_ + _method18203_ + _sym18204_ + _rebind?18206_)))) (define gxc#optimizer-declare-method! - (lambda _g17466_ - (let ((_g17465_ (let () (declare (not safe)) (##length _g17466_)))) - (cond ((let () (declare (not safe)) (##fx= _g17465_ 3)) - (apply gxc#optimizer-declare-method!__0 _g17466_)) - ((let () (declare (not safe)) (##fx= _g17465_ 4)) - (apply gxc#optimizer-declare-method!__% _g17466_)) + (lambda _g19166_ + (let ((_g19165_ (let () (declare (not safe)) (##length _g19166_)))) + (cond ((let () (declare (not safe)) (##fx= _g19165_ 3)) + (apply (lambda (_type-t18202_ _method18203_ _sym18204_) + (let () + (declare (not safe)) + (gxc#optimizer-declare-method!__0 + _type-t18202_ + _method18203_ + _sym18204_))) + _g19166_)) + ((let () (declare (not safe)) (##fx= _g19165_ 4)) + (apply (lambda (_type-t18208_ + _method18209_ + _sym18210_ + _rebind?18211_) + (let () + (declare (not safe)) + (gxc#optimizer-declare-method!__% + _type-t18208_ + _method18209_ + _sym18210_ + _rebind?18211_))) + _g19166_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g17466_)))))) + _g19166_)))))) (define gxc#optimizer-lookup-type - (lambda (_sym16738_) - (let ((_$e16746_ - (let ((_ht1673916741_ (gxc#current-compile-local-type))) - (if _ht1673916741_ - (let ((_ht16744_ _ht1673916741_)) - (table-ref _ht16744_ _sym16738_ '#f)) + (lambda (_sym18175_) + (let ((_$e18183_ + (let ((_ht1817618178_ (gxc#current-compile-local-type))) + (if _ht1817618178_ + (let ((_ht18181_ _ht1817618178_)) + (declare (not safe)) + (table-ref _ht18181_ _sym18175_ '#f)) '#f)))) - (if _$e16746_ - _$e16746_ - (table-ref - (##structure-ref - (gxc#current-compile-optimizer-info) - '1 - gxc#optimizer-info::t - '#f) - _sym16738_ - '#f))))) + (if _$e18183_ + _$e18183_ + (let ((__tmp19167 + (##structure-ref + (gxc#current-compile-optimizer-info) + '1 + gxc#optimizer-info::t + '#f))) + (declare (not safe)) + (table-ref __tmp19167 _sym18175_ '#f)))))) (define gxc#optimizer-resolve-type - (lambda (_sym16730_) - (let ((_type1673116733_ (gxc#optimizer-lookup-type _sym16730_))) - (if _type1673116733_ - (let ((_type16736_ _type1673116733_)) + (lambda (_sym18167_) + (let ((_type1816818170_ + (let () + (declare (not safe)) + (gxc#optimizer-lookup-type _sym18167_)))) + (if _type1816818170_ + (let ((_type18173_ _type1816818170_)) (if (let () (declare (not safe)) - (##structure-instance-of? _type16736_ 'gxc#!alias::t)) - (gxc#optimizer-resolve-type - (##structure-ref _type16736_ '1 gxc#!type::t '#f)) - _type16736_)) + (##structure-instance-of? _type18173_ 'gxc#!alias::t)) + (let ((__tmp19168 + (##structure-ref _type18173_ '1 gxc#!type::t '#f))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp19168)) + _type18173_)) '#f)))) (define gxc#optimizer-lookup-method - (lambda (_type-t16727_ _method16728_) - (gxc#!type-lookup-method - (gxc#optimizer-resolve-type _type-t16727_) - _method16728_))) + (lambda (_type-t18164_ _method18165_) + (let ((__tmp19169 + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _type-t18164_)))) + (declare (not safe)) + (gxc#!type-lookup-method __tmp19169 _method18165_)))) (define gxc#optimizer-top-level-method! - (lambda (_sym16725_) - (gxc#verbose '"top-level method: " _sym16725_) - (table-set! - (##structure-ref - (gxc#current-compile-optimizer-info) - '3 - gxc#optimizer-info::t - '#f) - _sym16725_ - '#t))) + (lambda (_sym18162_) + (let () + (declare (not safe)) + (gxc#verbose '"top-level method: " _sym18162_)) + (let ((__tmp19170 + (##structure-ref + (gxc#current-compile-optimizer-info) + '3 + gxc#optimizer-info::t + '#f))) + (declare (not safe)) + (table-set! __tmp19170 _sym18162_ '#t)))) (define gxc#optimizer-top-level-method? - (lambda (_sym16723_) - (table-ref - (##structure-ref - (gxc#current-compile-optimizer-info) - '3 - gxc#optimizer-info::t - '#f) - _sym16723_ - '#f))) + (lambda (_sym18160_) + (let ((__tmp19171 + (##structure-ref + (gxc#current-compile-optimizer-info) + '3 + gxc#optimizer-info::t + '#f))) + (declare (not safe)) + (table-ref __tmp19171 _sym18160_ '#f)))) (define gxc#identifier-symbol - (lambda (_stx16721_) + (lambda (_stx18158_) (if (let () (declare (not safe)) - (##structure-direct-instance-of? _stx16721_ 'gx#syntax-quote::t)) - (gxc#generate-runtime-binding-id _stx16721_) - (gx#stx-e _stx16721_)))))) + (##structure-direct-instance-of? _stx18158_ 'gx#syntax-quote::t)) + (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id _stx18158_)) + (let () (declare (not safe)) (gx#stx-e _stx18158_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__1.scm b/src/bootstrap/gerbil/compiler/optimize-base__1.scm index 52b5053b4..f2878fa6c 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__1.scm @@ -1,870 +1,954 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g17467_| + (define |gxc[1]#_g19172_| (##structure gx#syntax-quote::t 'optimizer-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17468_| + (define |gxc[1]#_g19182_| (##structure gx#syntax-quote::t - 'make-optimizer-info + 'optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17469_| + (define |gxc[1]#_g19184_| (##structure gx#syntax-quote::t - 'optimizer-info? + 'optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17470_| + (define |gxc[1]#_g19186_| (##structure gx#syntax-quote::t - 'optimizer-info-type + 'optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17471_| + (define |gxc[1]#_g19191_| (##structure gx#syntax-quote::t - 'optimizer-info-ssxi + 'optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17472_| + (define |gxc[1]#_g19193_| (##structure gx#syntax-quote::t - 'optimizer-info-methods + 'optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17473_| + (define |gxc[1]#_g19195_| (##structure gx#syntax-quote::t - 'optimizer-info-type-set! + 'optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17474_| + (define |gxc[1]#_g19197_| (##structure gx#syntax-quote::t - 'optimizer-info-ssxi-set! + 'optimizer-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17475_| + (define |gxc[1]#_g19199_| (##structure gx#syntax-quote::t - 'optimizer-info-methods-set! + 'make-optimizer-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17476_| + (define |gxc[1]#_g19201_| (##structure gx#syntax-quote::t '!type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17477_| + (define |gxc[1]#_g19209_| (##structure gx#syntax-quote::t - 'make-!type + '!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17478_| + (define |gxc[1]#_g19212_| (##structure gx#syntax-quote::t - '!type? + '!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17479_| + (define |gxc[1]#_g19214_| (##structure gx#syntax-quote::t - '!type-id + '!type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17480_| + (define |gxc[1]#_g19216_| (##structure gx#syntax-quote::t - '!type-id-set! + 'make-!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17481_| + (define |gxc[1]#_g19218_| (##structure gx#syntax-quote::t '!alias::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17482_| + (define |gxc[1]#_g19225_| (##structure gx#syntax-quote::t - 'make-!alias + '!alias? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17483_| + (define |gxc[1]#_g19227_| (##structure gx#syntax-quote::t - '!alias? + 'make-!alias #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17484_| + (define |gxc[1]#_g19230_| (##structure gx#syntax-quote::t '!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17485_| + (define |gxc[1]#_g19231_| (##structure gx#syntax-quote::t '!struct-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17486_| + (define |gxc[1]#_g19244_| (##structure gx#syntax-quote::t - 'make-!struct-type + '!struct-type-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17487_| + (define |gxc[1]#_g19246_| (##structure gx#syntax-quote::t - '!struct-type? + '!struct-type-plist-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17488_| + (define |gxc[1]#_g19248_| (##structure gx#syntax-quote::t - '!struct-type-super + '!struct-type-ctor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17489_| + (define |gxc[1]#_g19250_| (##structure gx#syntax-quote::t - '!struct-type-fields + '!struct-type-xfields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17490_| + (define |gxc[1]#_g19252_| (##structure gx#syntax-quote::t - '!struct-type-xfields + '!struct-type-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17491_| + (define |gxc[1]#_g19254_| (##structure gx#syntax-quote::t - '!struct-type-ctor + '!struct-type-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17492_| + (define |gxc[1]#_g19262_| (##structure gx#syntax-quote::t - '!struct-type-plist + '!struct-type-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17493_| + (define |gxc[1]#_g19264_| (##structure gx#syntax-quote::t - '!struct-type-methods + '!struct-type-plist #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17494_| + (define |gxc[1]#_g19266_| (##structure gx#syntax-quote::t - '!struct-type-super-set! + '!struct-type-ctor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17495_| + (define |gxc[1]#_g19268_| (##structure gx#syntax-quote::t - '!struct-type-fields-set! + '!struct-type-xfields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17496_| + (define |gxc[1]#_g19270_| (##structure gx#syntax-quote::t - '!struct-type-xfields-set! + '!struct-type-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17497_| + (define |gxc[1]#_g19272_| (##structure gx#syntax-quote::t - '!struct-type-ctor-set! + '!struct-type-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17498_| + (define |gxc[1]#_g19274_| (##structure gx#syntax-quote::t - '!struct-type-plist-set! + '!struct-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17499_| + (define |gxc[1]#_g19276_| (##structure gx#syntax-quote::t - '!struct-type-methods-set! + 'make-!struct-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17500_| + (define |gxc[1]#_g19279_| (##structure gx#syntax-quote::t '!class-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17501_| + (define |gxc[1]#_g19293_| (##structure gx#syntax-quote::t - 'make-!class-type + '!class-type-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17502_| + (define |gxc[1]#_g19295_| (##structure gx#syntax-quote::t - '!class-type? + '!class-type-plist-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17503_| + (define |gxc[1]#_g19297_| (##structure gx#syntax-quote::t - '!class-type-super + '!class-type-ctor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17504_| + (define |gxc[1]#_g19299_| (##structure gx#syntax-quote::t - '!class-type-mixin + '!class-type-xslots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17505_| + (define |gxc[1]#_g19301_| (##structure gx#syntax-quote::t - '!class-type-slots + '!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17506_| + (define |gxc[1]#_g19303_| (##structure gx#syntax-quote::t - '!class-type-xslots + '!class-type-mixin-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17507_| + (define |gxc[1]#_g19305_| (##structure gx#syntax-quote::t - '!class-type-ctor + '!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17508_| + (define |gxc[1]#_g19314_| (##structure gx#syntax-quote::t - '!class-type-plist + '!class-type-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17509_| + (define |gxc[1]#_g19316_| (##structure gx#syntax-quote::t - '!class-type-methods + '!class-type-plist #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17510_| + (define |gxc[1]#_g19318_| (##structure gx#syntax-quote::t - '!class-type-super-set! + '!class-type-ctor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17511_| + (define |gxc[1]#_g19320_| (##structure gx#syntax-quote::t - '!class-type-mixin-set! + '!class-type-xslots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17512_| + (define |gxc[1]#_g19322_| (##structure gx#syntax-quote::t - '!class-type-slots-set! + '!class-type-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17513_| + (define |gxc[1]#_g19324_| (##structure gx#syntax-quote::t - '!class-type-xslots-set! + '!class-type-mixin #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17514_| + (define |gxc[1]#_g19326_| (##structure gx#syntax-quote::t - '!class-type-ctor-set! + '!class-type-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17515_| + (define |gxc[1]#_g19328_| (##structure gx#syntax-quote::t - '!class-type-plist-set! + '!class-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17516_| + (define |gxc[1]#_g19330_| (##structure gx#syntax-quote::t - '!class-type-methods-set! + 'make-!class-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17517_| + (define |gxc[1]#_g19333_| (##structure gx#syntax-quote::t '!procedure::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17518_| + (define |gxc[1]#_g19340_| (##structure gx#syntax-quote::t - 'make-!procedure + '!procedure? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17519_| + (define |gxc[1]#_g19342_| (##structure gx#syntax-quote::t - '!procedure? + 'make-!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17520_| + (define |gxc[1]#_g19345_| (##structure gx#syntax-quote::t '!struct-pred::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17521_| + (define |gxc[1]#_g19352_| (##structure gx#syntax-quote::t - 'make-!struct-pred + '!struct-pred? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17522_| + (define |gxc[1]#_g19354_| (##structure gx#syntax-quote::t - '!struct-pred? + 'make-!struct-pred #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17523_| + (define |gxc[1]#_g19357_| (##structure gx#syntax-quote::t '!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17524_| + (define |gxc[1]#_g19358_| (##structure gx#syntax-quote::t '!struct-cons::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17525_| + (define |gxc[1]#_g19365_| (##structure gx#syntax-quote::t - 'make-!struct-cons + '!struct-cons? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17526_| + (define |gxc[1]#_g19367_| (##structure gx#syntax-quote::t - '!struct-cons? + 'make-!struct-cons #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17527_| + (define |gxc[1]#_g19370_| (##structure gx#syntax-quote::t '!struct-getf::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17528_| + (define |gxc[1]#_g19379_| (##structure gx#syntax-quote::t - 'make-!struct-getf + '!struct-getf-unchecked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17529_| + (define |gxc[1]#_g19381_| (##structure gx#syntax-quote::t - '!struct-getf? + '!struct-getf-off-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17530_| + (define |gxc[1]#_g19385_| (##structure gx#syntax-quote::t - '!struct-getf-off + '!struct-getf-unchecked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17531_| + (define |gxc[1]#_g19387_| (##structure gx#syntax-quote::t - '!struct-getf-unchecked? + '!struct-getf-off #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17532_| + (define |gxc[1]#_g19389_| (##structure gx#syntax-quote::t - '!struct-getf-off-set! + '!struct-getf? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17533_| + (define |gxc[1]#_g19391_| (##structure gx#syntax-quote::t - '!struct-getf-unchecked?-set! + 'make-!struct-getf #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17534_| + (define |gxc[1]#_g19394_| (##structure gx#syntax-quote::t '!struct-setf::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17535_| + (define |gxc[1]#_g19403_| (##structure gx#syntax-quote::t - 'make-!struct-setf + '!struct-setf-unchecked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17536_| + (define |gxc[1]#_g19405_| (##structure gx#syntax-quote::t - '!struct-setf? + '!struct-setf-off-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17537_| + (define |gxc[1]#_g19409_| (##structure gx#syntax-quote::t - '!struct-setf-off + '!struct-setf-unchecked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17538_| + (define |gxc[1]#_g19411_| (##structure gx#syntax-quote::t - '!struct-setf-unchecked? + '!struct-setf-off #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17539_| + (define |gxc[1]#_g19413_| (##structure gx#syntax-quote::t - '!struct-setf-off-set! + '!struct-setf? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17540_| + (define |gxc[1]#_g19415_| (##structure gx#syntax-quote::t - '!struct-setf-unchecked?-set! + 'make-!struct-setf #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17541_| + (define |gxc[1]#_g19418_| (##structure gx#syntax-quote::t '!class-pred::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17542_| + (define |gxc[1]#_g19425_| (##structure gx#syntax-quote::t - 'make-!class-pred + '!class-pred? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17543_| + (define |gxc[1]#_g19427_| (##structure gx#syntax-quote::t - '!class-pred? + 'make-!class-pred #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17544_| + (define |gxc[1]#_g19430_| (##structure gx#syntax-quote::t '!class-cons::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17545_| + (define |gxc[1]#_g19437_| (##structure gx#syntax-quote::t - 'make-!class-cons + '!class-cons? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17546_| + (define |gxc[1]#_g19439_| (##structure gx#syntax-quote::t - '!class-cons? + 'make-!class-cons #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17547_| + (define |gxc[1]#_g19442_| (##structure gx#syntax-quote::t '!class-getf::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17548_| + (define |gxc[1]#_g19451_| (##structure gx#syntax-quote::t - 'make-!class-getf + '!class-getf-unchecked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17549_| + (define |gxc[1]#_g19453_| (##structure gx#syntax-quote::t - '!class-getf? + '!class-getf-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17550_| + (define |gxc[1]#_g19457_| (##structure gx#syntax-quote::t - '!class-getf-slot + '!class-getf-unchecked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17551_| + (define |gxc[1]#_g19459_| (##structure gx#syntax-quote::t - '!class-getf-unchecked? + '!class-getf-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17552_| + (define |gxc[1]#_g19461_| (##structure gx#syntax-quote::t - '!class-getf-slot-set! + '!class-getf? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17553_| + (define |gxc[1]#_g19463_| (##structure gx#syntax-quote::t - '!class-getf-unchecked?-set! + 'make-!class-getf #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17554_| + (define |gxc[1]#_g19466_| (##structure gx#syntax-quote::t '!class-setf::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17555_| + (define |gxc[1]#_g19475_| (##structure gx#syntax-quote::t - 'make-!class-setf + '!class-setf-unchecked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17556_| + (define |gxc[1]#_g19477_| (##structure gx#syntax-quote::t - '!class-setf? + '!class-setf-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17557_| + (define |gxc[1]#_g19481_| (##structure gx#syntax-quote::t - '!class-setf-slot + '!class-setf-unchecked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17558_| + (define |gxc[1]#_g19483_| (##structure gx#syntax-quote::t - '!class-setf-unchecked? + '!class-setf-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17559_| + (define |gxc[1]#_g19485_| (##structure gx#syntax-quote::t - '!class-setf-slot-set! + '!class-setf? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17560_| + (define |gxc[1]#_g19487_| (##structure gx#syntax-quote::t - '!class-setf-unchecked?-set! + 'make-!class-setf #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17561_| + (define |gxc[1]#_g19490_| (##structure gx#syntax-quote::t '!lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17562_| + (define |gxc[1]#_g19501_| (##structure gx#syntax-quote::t - 'make-!lambda + '!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17563_| + (define |gxc[1]#_g19503_| (##structure gx#syntax-quote::t - '!lambda? + '!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17564_| + (define |gxc[1]#_g19505_| (##structure gx#syntax-quote::t - '!lambda-arity + '!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17565_| + (define |gxc[1]#_g19507_| (##structure gx#syntax-quote::t - '!lambda-dispatch + '!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17566_| + (define |gxc[1]#_g19513_| (##structure gx#syntax-quote::t - '!lambda-inline + '!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17567_| + (define |gxc[1]#_g19515_| (##structure gx#syntax-quote::t - '!lambda-inline-typedecl + '!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17568_| + (define |gxc[1]#_g19517_| (##structure gx#syntax-quote::t - '!lambda-arity-set! + '!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17569_| + (define |gxc[1]#_g19519_| (##structure gx#syntax-quote::t - '!lambda-dispatch-set! + '!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17570_| + (define |gxc[1]#_g19521_| (##structure gx#syntax-quote::t - '!lambda-inline-set! + '!lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17571_| + (define |gxc[1]#_g19523_| (##structure gx#syntax-quote::t - '!lambda-inline-typedecl-set! + 'make-!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17572_| + (define |gxc[1]#_g19526_| (##structure gx#syntax-quote::t '!case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17573_| + (define |gxc[1]#_g19534_| (##structure gx#syntax-quote::t - 'make-!case-lambda + '!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17574_| + (define |gxc[1]#_g19537_| (##structure gx#syntax-quote::t - '!case-lambda? + '!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17575_| + (define |gxc[1]#_g19539_| (##structure gx#syntax-quote::t - '!case-lambda-clauses + '!case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17576_| + (define |gxc[1]#_g19541_| (##structure gx#syntax-quote::t - '!case-lambda-clauses-set! + 'make-!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17577_| + (define |gxc[1]#_g19544_| (##structure gx#syntax-quote::t '!kw-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17578_| + (define |gxc[1]#_g19553_| (##structure gx#syntax-quote::t - 'make-!kw-lambda + '!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17579_| + (define |gxc[1]#_g19555_| (##structure gx#syntax-quote::t - '!kw-lambda? + '!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17580_| + (define |gxc[1]#_g19559_| (##structure gx#syntax-quote::t - '!kw-lambda-table + '!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17581_| + (define |gxc[1]#_g19561_| (##structure gx#syntax-quote::t - '!kw-lambda-dispatch + '!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17582_| + (define |gxc[1]#_g19563_| (##structure gx#syntax-quote::t - '!kw-lambda-table-set! + '!kw-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17583_| + (define |gxc[1]#_g19565_| (##structure gx#syntax-quote::t - '!kw-lambda-dispatch-set! + 'make-!kw-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17584_| + (define |gxc[1]#_g19568_| (##structure gx#syntax-quote::t '!kw-lambda-primary::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17585_| + (define |gxc[1]#_g19577_| (##structure gx#syntax-quote::t - 'make-!kw-lambda-primary + '!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17586_| + (define |gxc[1]#_g19579_| (##structure gx#syntax-quote::t - '!kw-lambda-primary? + '!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17587_| + (define |gxc[1]#_g19583_| + (##structure + gx#syntax-quote::t + '!kw-lambda-primary-main + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19585_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17588_| + (define |gxc[1]#_g19587_| (##structure gx#syntax-quote::t - '!kw-lambda-primary-main + '!kw-lambda-primary? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17589_| + (define |gxc[1]#_g19589_| (##structure gx#syntax-quote::t - '!kw-lambda-primary-keys-set! + 'make-!kw-lambda-primary #f (gx#current-expander-context) '())) - (define |gxc[1]#_g17590_| + (define |gxc[1]#_g19592_| (##structure gx#syntax-quote::t - '!kw-lambda-primary-main-set! + '!primitive::t + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19599_| + (##structure + gx#syntax-quote::t + '!primitive? + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19601_| + (##structure + gx#syntax-quote::t + 'make-!primitive + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19603_| + (##structure + gx#syntax-quote::t + '!primitive-lambda::t + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19610_| + (##structure + gx#syntax-quote::t + '!primitive-lambda? + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19612_| + (##structure + gx#syntax-quote::t + 'make-!primitive-lambda + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19618_| + (##structure + gx#syntax-quote::t + '!primitive + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19619_| + (##structure + gx#syntax-quote::t + '!lambda + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19620_| + (##structure + gx#syntax-quote::t + '!primitive-case-lambda::t + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19627_| + (##structure + gx#syntax-quote::t + '!primitive-case-lambda? + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19629_| + (##structure + gx#syntax-quote::t + 'make-!primitive-case-lambda + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g19635_| + (##structure + gx#syntax-quote::t + '!case-lambda #f (gx#current-expander-context) '())) @@ -872,20 +956,62 @@ (define |gxc[:0:]#optimizer-info| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17467_| + |gxc[1]#_g19172_| 'expander-identifiers: - (cons '#f - (cons |gxc[1]#_g17467_| - (cons |gxc[1]#_g17468_| - (cons |gxc[1]#_g17469_| - (cons (cons |gxc[1]#_g17470_| - (cons |gxc[1]#_g17471_| - (cons |gxc[1]#_g17472_| '()))) - (cons (cons |gxc[1]#_g17473_| - (cons |gxc[1]#_g17474_| - (cons |gxc[1]#_g17475_| - '()))) - '())))))) + (let ((__tmp19173 + (let ((__tmp19200 |gxc[1]#_g19172_|) + (__tmp19174 + (let ((__tmp19198 |gxc[1]#_g19199_|) + (__tmp19175 + (let ((__tmp19196 |gxc[1]#_g19197_|) + (__tmp19176 + (let ((__tmp19187 + (let ((__tmp19194 |gxc[1]#_g19195_|) + (__tmp19188 + (let ((__tmp19192 + |gxc[1]#_g19193_|) + (__tmp19189 + (let ((__tmp19190 + |gxc[1]#_g19191_|)) + (declare (not safe)) + (cons __tmp19190 + '())))) + (declare (not safe)) + (cons __tmp19192 + __tmp19189)))) + (declare (not safe)) + (cons __tmp19194 __tmp19188))) + (__tmp19177 + (let ((__tmp19178 + (let ((__tmp19185 + |gxc[1]#_g19186_|) + (__tmp19179 + (let ((__tmp19183 + |gxc[1]#_g19184_|) + (__tmp19180 + (let ((__tmp19181 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gxc[1]#_g19182_|)) + (declare (not safe)) + (cons __tmp19181 '())))) + (declare (not safe)) + (cons __tmp19183 __tmp19180)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp19185 + __tmp19179)))) + (declare (not safe)) + (cons __tmp19178 '())))) + (declare (not safe)) + (cons __tmp19187 __tmp19177)))) + (declare (not safe)) + (cons __tmp19196 __tmp19176)))) + (declare (not safe)) + (cons __tmp19198 __tmp19175)))) + (declare (not safe)) + (cons __tmp19200 __tmp19174)))) + (declare (not safe)) + (cons '#f __tmp19173)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f @@ -897,15 +1023,37 @@ (define |gxc[:0:]#!type| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17476_| + |gxc[1]#_g19201_| 'expander-identifiers: - (cons '#f - (cons |gxc[1]#_g17476_| - (cons |gxc[1]#_g17477_| - (cons |gxc[1]#_g17478_| - (cons (cons |gxc[1]#_g17479_| '()) - (cons (cons |gxc[1]#_g17480_| '()) - '())))))) + (let ((__tmp19202 + (let ((__tmp19217 |gxc[1]#_g19201_|) + (__tmp19203 + (let ((__tmp19215 |gxc[1]#_g19216_|) + (__tmp19204 + (let ((__tmp19213 |gxc[1]#_g19214_|) + (__tmp19205 + (let ((__tmp19210 + (let ((__tmp19211 |gxc[1]#_g19212_|)) + (declare (not safe)) + (cons __tmp19211 '()))) + (__tmp19206 + (let ((__tmp19207 + (let ((__tmp19208 + |gxc[1]#_g19209_|)) + (declare (not safe)) + (cons __tmp19208 '())))) + (declare (not safe)) + (cons __tmp19207 '())))) + (declare (not safe)) + (cons __tmp19210 __tmp19206)))) + (declare (not safe)) + (cons __tmp19213 __tmp19205)))) + (declare (not safe)) + (cons __tmp19215 __tmp19204)))) + (declare (not safe)) + (cons __tmp19217 __tmp19203)))) + (declare (not safe)) + (cons '#f __tmp19202)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f @@ -917,16 +1065,34 @@ (define |gxc[:0:]#!alias| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17481_| + |gxc[1]#_g19218_| 'expander-identifiers: - (cons |gxc[1]#_g17476_| - (cons |gxc[1]#_g17481_| - (cons |gxc[1]#_g17482_| - (cons |gxc[1]#_g17483_| (cons '() (cons '() '())))))) + (let ((__tmp19229 |gxc[1]#_g19201_|) + (__tmp19219 + (let ((__tmp19228 |gxc[1]#_g19218_|) + (__tmp19220 + (let ((__tmp19226 |gxc[1]#_g19227_|) + (__tmp19221 + (let ((__tmp19224 |gxc[1]#_g19225_|) + (__tmp19222 + (let ((__tmp19223 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp19223)))) + (declare (not safe)) + (cons __tmp19224 __tmp19222)))) + (declare (not safe)) + (cons __tmp19226 __tmp19221)))) + (declare (not safe)) + (cons __tmp19228 __tmp19220)))) + (declare (not safe)) + (cons __tmp19229 __tmp19219)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17484_| + |gxc[1]#_g19230_| '!alias '#f '() @@ -934,33 +1100,94 @@ (define |gxc[:0:]#!struct-type| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17485_| + |gxc[1]#_g19231_| 'expander-identifiers: - (cons |gxc[1]#_g17476_| - (cons |gxc[1]#_g17485_| - (cons |gxc[1]#_g17486_| - (cons |gxc[1]#_g17487_| - (cons (cons |gxc[1]#_g17488_| - (cons |gxc[1]#_g17489_| - (cons |gxc[1]#_g17490_| - (cons |gxc[1]#_g17491_| - (cons |gxc[1]#_g17492_| + (let ((__tmp19278 |gxc[1]#_g19201_|) + (__tmp19232 + (let ((__tmp19277 |gxc[1]#_g19231_|) + (__tmp19233 + (let ((__tmp19275 |gxc[1]#_g19276_|) + (__tmp19234 + (let ((__tmp19273 |gxc[1]#_g19274_|) + (__tmp19235 + (let ((__tmp19255 + (let ((__tmp19271 |gxc[1]#_g19272_|) + (__tmp19256 + (let ((__tmp19269 + |gxc[1]#_g19270_|) + (__tmp19257 + (let ((__tmp19267 + |gxc[1]#_g19268_|) + (__tmp19258 + (let ((__tmp19265 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gxc[1]#_g17493_| '())))))) + |gxc[1]#_g19266_|) + (__tmp19259 + (let ((__tmp19263 |gxc[1]#_g19264_|) + (__tmp19260 + (let ((__tmp19261 |gxc[1]#_g19262_|)) + (declare (not safe)) + (cons __tmp19261 '())))) + (declare (not safe)) + (cons __tmp19263 __tmp19260)))) + (declare (not safe)) + (cons __tmp19265 __tmp19259)))) + (declare (not safe)) + (cons __tmp19267 __tmp19258)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons |gxc[1]#_g17494_| - (cons |gxc[1]#_g17495_| - (cons |gxc[1]#_g17496_| - (cons |gxc[1]#_g17497_| + (declare (not safe)) + (cons __tmp19269 + __tmp19257)))) + (declare (not safe)) + (cons __tmp19271 __tmp19256))) + (__tmp19236 + (let ((__tmp19237 + (let ((__tmp19253 + |gxc[1]#_g19254_|) + (__tmp19238 + (let ((__tmp19251 + |gxc[1]#_g19252_|) + (__tmp19239 + (let ((__tmp19249 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gxc[1]#_g17498_| - (cons |gxc[1]#_g17499_| '())))))) + |gxc[1]#_g19250_|) + (__tmp19240 + (let ((__tmp19247 |gxc[1]#_g19248_|) + (__tmp19241 + (let ((__tmp19245 |gxc[1]#_g19246_|) + (__tmp19242 + (let ((__tmp19243 + |gxc[1]#_g19244_|)) + (declare (not safe)) + (cons __tmp19243 '())))) + (declare (not safe)) + (cons __tmp19245 __tmp19242)))) + (declare (not safe)) + (cons __tmp19247 __tmp19241)))) + (declare (not safe)) + (cons __tmp19249 __tmp19240)))) + (declare (not safe)) + (cons __tmp19251 __tmp19239)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp19253 + __tmp19238)))) + (declare (not safe)) + (cons __tmp19237 '())))) + (declare (not safe)) + (cons __tmp19255 __tmp19236)))) + (declare (not safe)) + (cons __tmp19273 __tmp19235)))) + (declare (not safe)) + (cons __tmp19275 __tmp19234)))) + (declare (not safe)) + (cons __tmp19277 __tmp19233)))) + (declare (not safe)) + (cons __tmp19278 __tmp19232)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17484_| + |gxc[1]#_g19230_| '!struct-type ':init! '() @@ -968,35 +1195,104 @@ (define |gxc[:0:]#!class-type| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17500_| + |gxc[1]#_g19279_| 'expander-identifiers: - (cons |gxc[1]#_g17476_| - (cons |gxc[1]#_g17500_| - (cons |gxc[1]#_g17501_| - (cons |gxc[1]#_g17502_| - (cons (cons |gxc[1]#_g17503_| - (cons |gxc[1]#_g17504_| - (cons |gxc[1]#_g17505_| - (cons |gxc[1]#_g17506_| - (cons |gxc[1]#_g17507_| + (let ((__tmp19332 |gxc[1]#_g19201_|) + (__tmp19280 + (let ((__tmp19331 |gxc[1]#_g19279_|) + (__tmp19281 + (let ((__tmp19329 |gxc[1]#_g19330_|) + (__tmp19282 + (let ((__tmp19327 |gxc[1]#_g19328_|) + (__tmp19283 + (let ((__tmp19306 + (let ((__tmp19325 |gxc[1]#_g19326_|) + (__tmp19307 + (let ((__tmp19323 + |gxc[1]#_g19324_|) + (__tmp19308 + (let ((__tmp19321 + |gxc[1]#_g19322_|) + (__tmp19309 + (let ((__tmp19319 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gxc[1]#_g17508_| - (cons |gxc[1]#_g17509_| '()))))))) + |gxc[1]#_g19320_|) + (__tmp19310 + (let ((__tmp19317 |gxc[1]#_g19318_|) + (__tmp19311 + (let ((__tmp19315 |gxc[1]#_g19316_|) + (__tmp19312 + (let ((__tmp19313 + |gxc[1]#_g19314_|)) + (declare (not safe)) + (cons __tmp19313 '())))) + (declare (not safe)) + (cons __tmp19315 __tmp19312)))) + (declare (not safe)) + (cons __tmp19317 __tmp19311)))) + (declare (not safe)) + (cons __tmp19319 __tmp19310)))) + (declare (not safe)) + (cons __tmp19321 __tmp19309)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons |gxc[1]#_g17510_| - (cons |gxc[1]#_g17511_| - (cons |gxc[1]#_g17512_| - (cons |gxc[1]#_g17513_| + (declare (not safe)) + (cons __tmp19323 + __tmp19308)))) + (declare (not safe)) + (cons __tmp19325 __tmp19307))) + (__tmp19284 + (let ((__tmp19285 + (let ((__tmp19304 + |gxc[1]#_g19305_|) + (__tmp19286 + (let ((__tmp19302 + |gxc[1]#_g19303_|) + (__tmp19287 + (let ((__tmp19300 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gxc[1]#_g17514_| - (cons |gxc[1]#_g17515_| - (cons |gxc[1]#_g17516_| '()))))))) + |gxc[1]#_g19301_|) + (__tmp19288 + (let ((__tmp19298 |gxc[1]#_g19299_|) + (__tmp19289 + (let ((__tmp19296 |gxc[1]#_g19297_|) + (__tmp19290 + (let ((__tmp19294 + |gxc[1]#_g19295_|) + (__tmp19291 + (let ((__tmp19292 + |gxc[1]#_g19293_|)) + (declare (not safe)) + (cons __tmp19292 '())))) + (declare (not safe)) + (cons __tmp19294 __tmp19291)))) + (declare (not safe)) + (cons __tmp19296 __tmp19290)))) + (declare (not safe)) + (cons __tmp19298 __tmp19289)))) + (declare (not safe)) + (cons __tmp19300 __tmp19288)))) + (declare (not safe)) + (cons __tmp19302 __tmp19287)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp19304 + __tmp19286)))) + (declare (not safe)) + (cons __tmp19285 '())))) + (declare (not safe)) + (cons __tmp19306 __tmp19284)))) + (declare (not safe)) + (cons __tmp19327 __tmp19283)))) + (declare (not safe)) + (cons __tmp19329 __tmp19282)))) + (declare (not safe)) + (cons __tmp19331 __tmp19281)))) + (declare (not safe)) + (cons __tmp19332 __tmp19280)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17484_| + |gxc[1]#_g19230_| '!class-type ':init! '() @@ -1004,16 +1300,34 @@ (define |gxc[:0:]#!procedure| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17517_| + |gxc[1]#_g19333_| 'expander-identifiers: - (cons |gxc[1]#_g17476_| - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17518_| - (cons |gxc[1]#_g17519_| (cons '() (cons '() '())))))) + (let ((__tmp19344 |gxc[1]#_g19201_|) + (__tmp19334 + (let ((__tmp19343 |gxc[1]#_g19333_|) + (__tmp19335 + (let ((__tmp19341 |gxc[1]#_g19342_|) + (__tmp19336 + (let ((__tmp19339 |gxc[1]#_g19340_|) + (__tmp19337 + (let ((__tmp19338 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp19338)))) + (declare (not safe)) + (cons __tmp19339 __tmp19337)))) + (declare (not safe)) + (cons __tmp19341 __tmp19336)))) + (declare (not safe)) + (cons __tmp19343 __tmp19335)))) + (declare (not safe)) + (cons __tmp19344 __tmp19334)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17484_| + |gxc[1]#_g19230_| '!procedure '#f '() @@ -1021,16 +1335,34 @@ (define |gxc[:0:]#!struct-pred| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17520_| + |gxc[1]#_g19345_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17520_| - (cons |gxc[1]#_g17521_| - (cons |gxc[1]#_g17522_| (cons '() (cons '() '())))))) + (let ((__tmp19356 |gxc[1]#_g19333_|) + (__tmp19346 + (let ((__tmp19355 |gxc[1]#_g19345_|) + (__tmp19347 + (let ((__tmp19353 |gxc[1]#_g19354_|) + (__tmp19348 + (let ((__tmp19351 |gxc[1]#_g19352_|) + (__tmp19349 + (let ((__tmp19350 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp19350)))) + (declare (not safe)) + (cons __tmp19351 __tmp19349)))) + (declare (not safe)) + (cons __tmp19353 __tmp19348)))) + (declare (not safe)) + (cons __tmp19355 __tmp19347)))) + (declare (not safe)) + (cons __tmp19356 __tmp19346)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!struct-pred '#f '() @@ -1038,16 +1370,34 @@ (define |gxc[:0:]#!struct-cons| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17524_| + |gxc[1]#_g19358_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17524_| - (cons |gxc[1]#_g17525_| - (cons |gxc[1]#_g17526_| (cons '() (cons '() '())))))) + (let ((__tmp19369 |gxc[1]#_g19333_|) + (__tmp19359 + (let ((__tmp19368 |gxc[1]#_g19358_|) + (__tmp19360 + (let ((__tmp19366 |gxc[1]#_g19367_|) + (__tmp19361 + (let ((__tmp19364 |gxc[1]#_g19365_|) + (__tmp19362 + (let ((__tmp19363 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp19363)))) + (declare (not safe)) + (cons __tmp19364 __tmp19362)))) + (declare (not safe)) + (cons __tmp19366 __tmp19361)))) + (declare (not safe)) + (cons __tmp19368 __tmp19360)))) + (declare (not safe)) + (cons __tmp19369 __tmp19359)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!struct-cons '#f '() @@ -1055,21 +1405,54 @@ (define |gxc[:0:]#!struct-getf| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17527_| + |gxc[1]#_g19370_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17527_| - (cons |gxc[1]#_g17528_| - (cons |gxc[1]#_g17529_| - (cons (cons |gxc[1]#_g17530_| - (cons |gxc[1]#_g17531_| '())) - (cons (cons |gxc[1]#_g17532_| - (cons |gxc[1]#_g17533_| '())) - '())))))) + (let ((__tmp19393 |gxc[1]#_g19333_|) + (__tmp19371 + (let ((__tmp19392 |gxc[1]#_g19370_|) + (__tmp19372 + (let ((__tmp19390 |gxc[1]#_g19391_|) + (__tmp19373 + (let ((__tmp19388 |gxc[1]#_g19389_|) + (__tmp19374 + (let ((__tmp19382 + (let ((__tmp19386 |gxc[1]#_g19387_|) + (__tmp19383 + (let ((__tmp19384 + |gxc[1]#_g19385_|)) + (declare (not safe)) + (cons __tmp19384 '())))) + (declare (not safe)) + (cons __tmp19386 __tmp19383))) + (__tmp19375 + (let ((__tmp19376 + (let ((__tmp19380 + |gxc[1]#_g19381_|) + (__tmp19377 + (let ((__tmp19378 + |gxc[1]#_g19379_|)) + (declare (not safe)) + (cons __tmp19378 + '())))) + (declare (not safe)) + (cons __tmp19380 + __tmp19377)))) + (declare (not safe)) + (cons __tmp19376 '())))) + (declare (not safe)) + (cons __tmp19382 __tmp19375)))) + (declare (not safe)) + (cons __tmp19388 __tmp19374)))) + (declare (not safe)) + (cons __tmp19390 __tmp19373)))) + (declare (not safe)) + (cons __tmp19392 __tmp19372)))) + (declare (not safe)) + (cons __tmp19393 __tmp19371)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!struct-getf '#f '() @@ -1077,21 +1460,54 @@ (define |gxc[:0:]#!struct-setf| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17534_| + |gxc[1]#_g19394_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17534_| - (cons |gxc[1]#_g17535_| - (cons |gxc[1]#_g17536_| - (cons (cons |gxc[1]#_g17537_| - (cons |gxc[1]#_g17538_| '())) - (cons (cons |gxc[1]#_g17539_| - (cons |gxc[1]#_g17540_| '())) - '())))))) + (let ((__tmp19417 |gxc[1]#_g19333_|) + (__tmp19395 + (let ((__tmp19416 |gxc[1]#_g19394_|) + (__tmp19396 + (let ((__tmp19414 |gxc[1]#_g19415_|) + (__tmp19397 + (let ((__tmp19412 |gxc[1]#_g19413_|) + (__tmp19398 + (let ((__tmp19406 + (let ((__tmp19410 |gxc[1]#_g19411_|) + (__tmp19407 + (let ((__tmp19408 + |gxc[1]#_g19409_|)) + (declare (not safe)) + (cons __tmp19408 '())))) + (declare (not safe)) + (cons __tmp19410 __tmp19407))) + (__tmp19399 + (let ((__tmp19400 + (let ((__tmp19404 + |gxc[1]#_g19405_|) + (__tmp19401 + (let ((__tmp19402 + |gxc[1]#_g19403_|)) + (declare (not safe)) + (cons __tmp19402 + '())))) + (declare (not safe)) + (cons __tmp19404 + __tmp19401)))) + (declare (not safe)) + (cons __tmp19400 '())))) + (declare (not safe)) + (cons __tmp19406 __tmp19399)))) + (declare (not safe)) + (cons __tmp19412 __tmp19398)))) + (declare (not safe)) + (cons __tmp19414 __tmp19397)))) + (declare (not safe)) + (cons __tmp19416 __tmp19396)))) + (declare (not safe)) + (cons __tmp19417 __tmp19395)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!struct-setf '#f '() @@ -1099,16 +1515,34 @@ (define |gxc[:0:]#!class-pred| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17541_| + |gxc[1]#_g19418_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17541_| - (cons |gxc[1]#_g17542_| - (cons |gxc[1]#_g17543_| (cons '() (cons '() '())))))) + (let ((__tmp19429 |gxc[1]#_g19333_|) + (__tmp19419 + (let ((__tmp19428 |gxc[1]#_g19418_|) + (__tmp19420 + (let ((__tmp19426 |gxc[1]#_g19427_|) + (__tmp19421 + (let ((__tmp19424 |gxc[1]#_g19425_|) + (__tmp19422 + (let ((__tmp19423 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp19423)))) + (declare (not safe)) + (cons __tmp19424 __tmp19422)))) + (declare (not safe)) + (cons __tmp19426 __tmp19421)))) + (declare (not safe)) + (cons __tmp19428 __tmp19420)))) + (declare (not safe)) + (cons __tmp19429 __tmp19419)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!class-pred '#f '() @@ -1116,16 +1550,34 @@ (define |gxc[:0:]#!class-cons| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17544_| + |gxc[1]#_g19430_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17544_| - (cons |gxc[1]#_g17545_| - (cons |gxc[1]#_g17546_| (cons '() (cons '() '())))))) + (let ((__tmp19441 |gxc[1]#_g19333_|) + (__tmp19431 + (let ((__tmp19440 |gxc[1]#_g19430_|) + (__tmp19432 + (let ((__tmp19438 |gxc[1]#_g19439_|) + (__tmp19433 + (let ((__tmp19436 |gxc[1]#_g19437_|) + (__tmp19434 + (let ((__tmp19435 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp19435)))) + (declare (not safe)) + (cons __tmp19436 __tmp19434)))) + (declare (not safe)) + (cons __tmp19438 __tmp19433)))) + (declare (not safe)) + (cons __tmp19440 __tmp19432)))) + (declare (not safe)) + (cons __tmp19441 __tmp19431)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!class-cons '#f '() @@ -1133,21 +1585,54 @@ (define |gxc[:0:]#!class-getf| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17547_| + |gxc[1]#_g19442_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17547_| - (cons |gxc[1]#_g17548_| - (cons |gxc[1]#_g17549_| - (cons (cons |gxc[1]#_g17550_| - (cons |gxc[1]#_g17551_| '())) - (cons (cons |gxc[1]#_g17552_| - (cons |gxc[1]#_g17553_| '())) - '())))))) + (let ((__tmp19465 |gxc[1]#_g19333_|) + (__tmp19443 + (let ((__tmp19464 |gxc[1]#_g19442_|) + (__tmp19444 + (let ((__tmp19462 |gxc[1]#_g19463_|) + (__tmp19445 + (let ((__tmp19460 |gxc[1]#_g19461_|) + (__tmp19446 + (let ((__tmp19454 + (let ((__tmp19458 |gxc[1]#_g19459_|) + (__tmp19455 + (let ((__tmp19456 + |gxc[1]#_g19457_|)) + (declare (not safe)) + (cons __tmp19456 '())))) + (declare (not safe)) + (cons __tmp19458 __tmp19455))) + (__tmp19447 + (let ((__tmp19448 + (let ((__tmp19452 + |gxc[1]#_g19453_|) + (__tmp19449 + (let ((__tmp19450 + |gxc[1]#_g19451_|)) + (declare (not safe)) + (cons __tmp19450 + '())))) + (declare (not safe)) + (cons __tmp19452 + __tmp19449)))) + (declare (not safe)) + (cons __tmp19448 '())))) + (declare (not safe)) + (cons __tmp19454 __tmp19447)))) + (declare (not safe)) + (cons __tmp19460 __tmp19446)))) + (declare (not safe)) + (cons __tmp19462 __tmp19445)))) + (declare (not safe)) + (cons __tmp19464 __tmp19444)))) + (declare (not safe)) + (cons __tmp19465 __tmp19443)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!class-getf '#f '() @@ -1155,21 +1640,54 @@ (define |gxc[:0:]#!class-setf| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17554_| + |gxc[1]#_g19466_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17554_| - (cons |gxc[1]#_g17555_| - (cons |gxc[1]#_g17556_| - (cons (cons |gxc[1]#_g17557_| - (cons |gxc[1]#_g17558_| '())) - (cons (cons |gxc[1]#_g17559_| - (cons |gxc[1]#_g17560_| '())) - '())))))) + (let ((__tmp19489 |gxc[1]#_g19333_|) + (__tmp19467 + (let ((__tmp19488 |gxc[1]#_g19466_|) + (__tmp19468 + (let ((__tmp19486 |gxc[1]#_g19487_|) + (__tmp19469 + (let ((__tmp19484 |gxc[1]#_g19485_|) + (__tmp19470 + (let ((__tmp19478 + (let ((__tmp19482 |gxc[1]#_g19483_|) + (__tmp19479 + (let ((__tmp19480 + |gxc[1]#_g19481_|)) + (declare (not safe)) + (cons __tmp19480 '())))) + (declare (not safe)) + (cons __tmp19482 __tmp19479))) + (__tmp19471 + (let ((__tmp19472 + (let ((__tmp19476 + |gxc[1]#_g19477_|) + (__tmp19473 + (let ((__tmp19474 + |gxc[1]#_g19475_|)) + (declare (not safe)) + (cons __tmp19474 + '())))) + (declare (not safe)) + (cons __tmp19476 + __tmp19473)))) + (declare (not safe)) + (cons __tmp19472 '())))) + (declare (not safe)) + (cons __tmp19478 __tmp19471)))) + (declare (not safe)) + (cons __tmp19484 __tmp19470)))) + (declare (not safe)) + (cons __tmp19486 __tmp19469)))) + (declare (not safe)) + (cons __tmp19488 __tmp19468)))) + (declare (not safe)) + (cons __tmp19489 __tmp19467)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!class-setf '#f '() @@ -1177,29 +1695,77 @@ (define |gxc[:0:]#!lambda| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17561_| + |gxc[1]#_g19490_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17561_| - (cons |gxc[1]#_g17562_| - (cons |gxc[1]#_g17563_| - (cons (cons |gxc[1]#_g17564_| - (cons |gxc[1]#_g17565_| - (cons |gxc[1]#_g17566_| - (cons |gxc[1]#_g17567_| - '())))) - (cons (cons |gxc[1]#_g17568_| - (cons |gxc[1]#_g17569_| - (cons |gxc[1]#_g17570_| - (cons |gxc[1]#_g17571_| + (let ((__tmp19525 |gxc[1]#_g19333_|) + (__tmp19491 + (let ((__tmp19524 |gxc[1]#_g19490_|) + (__tmp19492 + (let ((__tmp19522 |gxc[1]#_g19523_|) + (__tmp19493 + (let ((__tmp19520 |gxc[1]#_g19521_|) + (__tmp19494 + (let ((__tmp19508 + (let ((__tmp19518 |gxc[1]#_g19519_|) + (__tmp19509 + (let ((__tmp19516 + |gxc[1]#_g19517_|) + (__tmp19510 + (let ((__tmp19514 + |gxc[1]#_g19515_|) + (__tmp19511 + (let ((__tmp19512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + |gxc[1]#_g19513_|)) + (declare (not safe)) + (cons __tmp19512 '())))) + (declare (not safe)) + (cons __tmp19514 __tmp19511)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp19516 + __tmp19510)))) + (declare (not safe)) + (cons __tmp19518 __tmp19509))) + (__tmp19495 + (let ((__tmp19496 + (let ((__tmp19506 + |gxc[1]#_g19507_|) + (__tmp19497 + (let ((__tmp19504 + |gxc[1]#_g19505_|) + (__tmp19498 + (let ((__tmp19502 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gxc[1]#_g19503_|) + (__tmp19499 + (let ((__tmp19500 |gxc[1]#_g19501_|)) + (declare (not safe)) + (cons __tmp19500 '())))) + (declare (not safe)) + (cons __tmp19502 __tmp19499)))) + (declare (not safe)) + (cons __tmp19504 __tmp19498)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp19506 + __tmp19497)))) + (declare (not safe)) + (cons __tmp19496 '())))) + (declare (not safe)) + (cons __tmp19508 __tmp19495)))) + (declare (not safe)) + (cons __tmp19520 __tmp19494)))) + (declare (not safe)) + (cons __tmp19522 __tmp19493)))) + (declare (not safe)) + (cons __tmp19524 __tmp19492)))) + (declare (not safe)) + (cons __tmp19525 __tmp19491)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!lambda ':init! '() @@ -1207,19 +1773,42 @@ (define |gxc[:0:]#!case-lambda| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17572_| + |gxc[1]#_g19526_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17572_| - (cons |gxc[1]#_g17573_| - (cons |gxc[1]#_g17574_| - (cons (cons |gxc[1]#_g17575_| '()) - (cons (cons |gxc[1]#_g17576_| '()) - '())))))) + (let ((__tmp19543 |gxc[1]#_g19333_|) + (__tmp19527 + (let ((__tmp19542 |gxc[1]#_g19526_|) + (__tmp19528 + (let ((__tmp19540 |gxc[1]#_g19541_|) + (__tmp19529 + (let ((__tmp19538 |gxc[1]#_g19539_|) + (__tmp19530 + (let ((__tmp19535 + (let ((__tmp19536 |gxc[1]#_g19537_|)) + (declare (not safe)) + (cons __tmp19536 '()))) + (__tmp19531 + (let ((__tmp19532 + (let ((__tmp19533 + |gxc[1]#_g19534_|)) + (declare (not safe)) + (cons __tmp19533 '())))) + (declare (not safe)) + (cons __tmp19532 '())))) + (declare (not safe)) + (cons __tmp19535 __tmp19531)))) + (declare (not safe)) + (cons __tmp19538 __tmp19530)))) + (declare (not safe)) + (cons __tmp19540 __tmp19529)))) + (declare (not safe)) + (cons __tmp19542 __tmp19528)))) + (declare (not safe)) + (cons __tmp19543 __tmp19527)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!case-lambda '#f '() @@ -1227,21 +1816,54 @@ (define |gxc[:0:]#!kw-lambda| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17577_| + |gxc[1]#_g19544_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17577_| - (cons |gxc[1]#_g17578_| - (cons |gxc[1]#_g17579_| - (cons (cons |gxc[1]#_g17580_| - (cons |gxc[1]#_g17581_| '())) - (cons (cons |gxc[1]#_g17582_| - (cons |gxc[1]#_g17583_| '())) - '())))))) + (let ((__tmp19567 |gxc[1]#_g19333_|) + (__tmp19545 + (let ((__tmp19566 |gxc[1]#_g19544_|) + (__tmp19546 + (let ((__tmp19564 |gxc[1]#_g19565_|) + (__tmp19547 + (let ((__tmp19562 |gxc[1]#_g19563_|) + (__tmp19548 + (let ((__tmp19556 + (let ((__tmp19560 |gxc[1]#_g19561_|) + (__tmp19557 + (let ((__tmp19558 + |gxc[1]#_g19559_|)) + (declare (not safe)) + (cons __tmp19558 '())))) + (declare (not safe)) + (cons __tmp19560 __tmp19557))) + (__tmp19549 + (let ((__tmp19550 + (let ((__tmp19554 + |gxc[1]#_g19555_|) + (__tmp19551 + (let ((__tmp19552 + |gxc[1]#_g19553_|)) + (declare (not safe)) + (cons __tmp19552 + '())))) + (declare (not safe)) + (cons __tmp19554 + __tmp19551)))) + (declare (not safe)) + (cons __tmp19550 '())))) + (declare (not safe)) + (cons __tmp19556 __tmp19549)))) + (declare (not safe)) + (cons __tmp19562 __tmp19548)))) + (declare (not safe)) + (cons __tmp19564 __tmp19547)))) + (declare (not safe)) + (cons __tmp19566 __tmp19546)))) + (declare (not safe)) + (cons __tmp19567 __tmp19545)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!kw-lambda '#f '() @@ -1249,22 +1871,173 @@ (define |gxc[:0:]#!kw-lambda-primary| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g17584_| + |gxc[1]#_g19568_| 'expander-identifiers: - (cons |gxc[1]#_g17517_| - (cons |gxc[1]#_g17584_| - (cons |gxc[1]#_g17585_| - (cons |gxc[1]#_g17586_| - (cons (cons |gxc[1]#_g17587_| - (cons |gxc[1]#_g17588_| '())) - (cons (cons |gxc[1]#_g17589_| - (cons |gxc[1]#_g17590_| '())) - '())))))) + (let ((__tmp19591 |gxc[1]#_g19333_|) + (__tmp19569 + (let ((__tmp19590 |gxc[1]#_g19568_|) + (__tmp19570 + (let ((__tmp19588 |gxc[1]#_g19589_|) + (__tmp19571 + (let ((__tmp19586 |gxc[1]#_g19587_|) + (__tmp19572 + (let ((__tmp19580 + (let ((__tmp19584 |gxc[1]#_g19585_|) + (__tmp19581 + (let ((__tmp19582 + |gxc[1]#_g19583_|)) + (declare (not safe)) + (cons __tmp19582 '())))) + (declare (not safe)) + (cons __tmp19584 __tmp19581))) + (__tmp19573 + (let ((__tmp19574 + (let ((__tmp19578 + |gxc[1]#_g19579_|) + (__tmp19575 + (let ((__tmp19576 + |gxc[1]#_g19577_|)) + (declare (not safe)) + (cons __tmp19576 + '())))) + (declare (not safe)) + (cons __tmp19578 + __tmp19575)))) + (declare (not safe)) + (cons __tmp19574 '())))) + (declare (not safe)) + (cons __tmp19580 __tmp19573)))) + (declare (not safe)) + (cons __tmp19586 __tmp19572)))) + (declare (not safe)) + (cons __tmp19588 __tmp19571)))) + (declare (not safe)) + (cons __tmp19590 __tmp19570)))) + (declare (not safe)) + (cons __tmp19591 __tmp19569)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g17523_| + |gxc[1]#_g19357_| '!kw-lambda-primary '#f '() - '(keys main)))))) + '(keys main)))) + (define |gxc[:0:]#!primitive| + (|gerbil/core$$[1]#make-extended-class-info| + 'runtime-identifier: + |gxc[1]#_g19592_| + 'expander-identifiers: + (let ((__tmp19593 + (let ((__tmp19602 |gxc[1]#_g19592_|) + (__tmp19594 + (let ((__tmp19600 |gxc[1]#_g19601_|) + (__tmp19595 + (let ((__tmp19598 |gxc[1]#_g19599_|) + (__tmp19596 + (let ((__tmp19597 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp19597)))) + (declare (not safe)) + (cons __tmp19598 __tmp19596)))) + (declare (not safe)) + (cons __tmp19600 __tmp19595)))) + (declare (not safe)) + (cons __tmp19602 __tmp19594)))) + (declare (not safe)) + (cons '() __tmp19593)) + 'type-exhibitor: + (|gerbil/core$$[1]#make-runtime-class-exhibitor| + '#f + (list) + '!primitive + '#f + '() + '()))) + (define |gxc[:0:]#!primitive-lambda| + (|gerbil/core$$[1]#make-extended-class-info| + 'runtime-identifier: + |gxc[1]#_g19603_| + 'expander-identifiers: + (let ((__tmp19614 + (let ((__tmp19617 |gxc[1]#_g19592_|) + (__tmp19615 + (let ((__tmp19616 |gxc[1]#_g19490_|)) + (declare (not safe)) + (cons __tmp19616 '())))) + (declare (not safe)) + (cons __tmp19617 __tmp19615))) + (__tmp19604 + (let ((__tmp19613 |gxc[1]#_g19603_|) + (__tmp19605 + (let ((__tmp19611 |gxc[1]#_g19612_|) + (__tmp19606 + (let ((__tmp19609 |gxc[1]#_g19610_|) + (__tmp19607 + (let ((__tmp19608 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp19608)))) + (declare (not safe)) + (cons __tmp19609 __tmp19607)))) + (declare (not safe)) + (cons __tmp19611 __tmp19606)))) + (declare (not safe)) + (cons __tmp19613 __tmp19605)))) + (declare (not safe)) + (cons __tmp19614 __tmp19604)) + 'type-exhibitor: + (|gerbil/core$$[1]#make-runtime-class-exhibitor| + '#f + (list |gxc[1]#_g19618_| |gxc[1]#_g19619_|) + '!primitive-lambda + ':init! + '() + '()))) + (define |gxc[:0:]#!primitive-case-lambda| + (|gerbil/core$$[1]#make-extended-class-info| + 'runtime-identifier: + |gxc[1]#_g19620_| + 'expander-identifiers: + (let ((__tmp19631 + (let ((__tmp19634 |gxc[1]#_g19592_|) + (__tmp19632 + (let ((__tmp19633 |gxc[1]#_g19526_|)) + (declare (not safe)) + (cons __tmp19633 '())))) + (declare (not safe)) + (cons __tmp19634 __tmp19632))) + (__tmp19621 + (let ((__tmp19630 |gxc[1]#_g19620_|) + (__tmp19622 + (let ((__tmp19628 |gxc[1]#_g19629_|) + (__tmp19623 + (let ((__tmp19626 |gxc[1]#_g19627_|) + (__tmp19624 + (let ((__tmp19625 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp19625)))) + (declare (not safe)) + (cons __tmp19626 __tmp19624)))) + (declare (not safe)) + (cons __tmp19628 __tmp19623)))) + (declare (not safe)) + (cons __tmp19630 __tmp19622)))) + (declare (not safe)) + (cons __tmp19631 __tmp19621)) + 'type-exhibitor: + (|gerbil/core$$[1]#make-runtime-class-exhibitor| + '#f + (list |gxc[1]#_g19618_| |gxc[1]#_g19635_|) + '!primitive-case-lambda + ':init! + '() + '()))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize-call.ssxi.ss index e5d9b2f52..36e8dfeab 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize-call.ssxi.ss @@ -5,72 +5,16 @@ package: gerbil/compiler (declare-type gxc#apply-optimize-call (@lambda (1) #f)) (declare-type gxc#optimize-call% (@lambda 1 #f)) (declare-type gxc#!struct-pred::optimize-call (@lambda 3 #f)) - (declare-method - gxc#!struct-pred::t - optimize-call - gxc#!struct-pred::optimize-call - #f) (declare-type gxc#!struct-cons::optimize-call (@lambda 3 #f)) - (declare-method - gxc#!struct-cons::t - optimize-call - gxc#!struct-cons::optimize-call - #f) (declare-type gxc#!struct-getf::optimize-call (@lambda 3 #f)) - (declare-method - gxc#!struct-getf::t - optimize-call - gxc#!struct-getf::optimize-call - #f) (declare-type gxc#!struct-setf::optimize-call (@lambda 3 #f)) - (declare-method - gxc#!struct-setf::t - optimize-call - gxc#!struct-setf::optimize-call - #f) (declare-type gxc#!class-pred::optimize-call (@lambda 3 #f)) - (declare-method - gxc#!class-pred::t - optimize-call - gxc#!class-pred::optimize-call - #f) (declare-type gxc#!class-cons::optimize-call (@lambda 3 #f)) - (declare-method - gxc#!class-cons::t - optimize-call - gxc#!class-cons::optimize-call - #f) (declare-type gxc#!class-getf::optimize-call (@lambda 3 #f)) - (declare-method - gxc#!class-getf::t - optimize-call - gxc#!class-getf::optimize-call - #f) (declare-type gxc#!class-setf::optimize-call (@lambda 3 #f)) - (declare-method - gxc#!class-setf::t - optimize-call - gxc#!class-setf::optimize-call - #f) (declare-type gxc#!lambda::optimize-call (@lambda 3 #f)) - (declare-method gxc#!lambda::t optimize-call gxc#!lambda::optimize-call #f) (declare-type gxc#!case-lambda::optimize-call (@lambda 3 #f)) - (declare-method - gxc#!case-lambda::t - optimize-call - gxc#!case-lambda::optimize-call - #f) (declare-type gxc#!lambda-arity-match? (@lambda 2 #f)) (declare-type gxc#!kw-lambda::optimize-call (@lambda 3 #f)) - (declare-method - gxc#!kw-lambda::t - optimize-call - gxc#!kw-lambda::optimize-call - #f) (declare-type gxc#!kw-lambda-split-args (@lambda 2 #f)) - (declare-type gxc#!kw-lambda-primary::optimize-call (@lambda 3 #f)) - (declare-method - gxc#!kw-lambda-primary::t - optimize-call - gxc#!kw-lambda-primary::optimize-call - #f)) + (declare-type gxc#!kw-lambda-primary::optimize-call (@lambda 3 #f))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call__0.scm b/src/bootstrap/gerbil/compiler/optimize-call__0.scm index 3098ac9c0..288557858 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call__0.scm @@ -1,1779 +1,2773 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1695199296) + (define gerbil/compiler/optimize-call::timestamp 1695292410) (begin (define gxc#&optimize-call - (make-promise - (lambda () - (let ((_tbl59940_ (make-table 'test: eq?))) - (hash-copy! _tbl59940_ (force gxc#&basic-xform)) - (table-set! _tbl59940_ '%#call gxc#optimize-call%) - _tbl59940_)))) + (let ((__tmp64111 + (lambda () + (let ((_tbl63726_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp64112 + (let () + (declare (not safe)) + (force gxc#&basic-xform)))) + (declare (not safe)) + (hash-copy! _tbl63726_ __tmp64112)) + (let () + (declare (not safe)) + (table-set! _tbl63726_ '%#call gxc#optimize-call%)) + _tbl63726_)))) + (declare (not safe)) + (make-promise __tmp64111))) (define gxc#apply-optimize-call - (lambda (_stx59933_ . _args59935_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx59933_ _args59935_)) - gxc#current-compile-methods - (force gxc#&optimize-call)))) + (lambda (_stx63719_ . _args63721_) + (let ((__tmp64114 + (lambda () (apply gxc#compile-e _stx63719_ _args63721_))) + (__tmp64113 + (let () (declare (not safe)) (force gxc#&optimize-call)))) + (declare (not safe)) + (call-with-parameters + __tmp64114 + gxc#current-compile-methods + __tmp64113)))) (define gxc#optimize-call% - (lambda (_stx59839_) - (let* ((___stx5994359944_ _stx59839_) - (_g5984259862_ + (lambda (_stx63574_) + (let* ((___stx6374763748_ _stx63574_) + (_g6357763597_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5994359944_)))) - (let ((___kont5994559946_ - (lambda (_L59906_ _L59907_) - (let* ((_rator-id59925_ (gxc#identifier-symbol _L59907_)) - (_rator-type59927_ - (gxc#optimizer-resolve-type _rator-id59925_))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx6374763748_))))) + (let ((___kont6374963750_ + (lambda (_L63641_ _L63642_) + (let* ((_rator-id63660_ + (let () + (declare (not safe)) + (gxc#identifier-symbol _L63642_))) + (_rator-type63662_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _rator-id63660_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _rator-type59927_ + _rator-type63662_ 'gxc#!procedure::t)) (begin - (gxc#verbose - '"optimize-call " - _rator-id59925_ - '" => " - _rator-type59927_ - '" " - (##structure-ref - _rator-type59927_ - '1 - gxc#!type::t - '#f)) - (let ((__method60305 - (method-ref - _rator-type59927_ - 'optimize-call))) - (if __method60305 - (__method60305 - _rator-type59927_ - _stx59839_ - _L59906_) - (error '"Missing method" - _rator-type59927_ - 'optimize-call)))) - (if (not _rator-type59927_) - (gxc#xform-call% _stx59839_) - (gxc#raise-compile-error - '"Illegal application; not a procedure" - _stx59839_ - _rator-type59927_)))))) - (___kont5994759948_ (lambda () (gxc#xform-call% _stx59839_)))) - (if (gx#stx-pair? ___stx5994359944_) - (let ((_e5984659874_ (gx#stx-e ___stx5994359944_))) - (let ((_tl5984859879_ - (let () (declare (not safe)) (##cdr _e5984659874_))) - (_hd5984759877_ - (let () (declare (not safe)) (##car _e5984659874_)))) - (if (gx#stx-pair? _tl5984859879_) - (let ((_e5984959882_ (gx#stx-e _tl5984859879_))) - (let ((_tl5985159887_ + (let ((__tmp64115 + (##structure-ref + _rator-type63662_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (gxc#verbose + '"optimize-call " + _rator-id63660_ + '" => " + _rator-type63662_ + '" " + __tmp64115)) + (let ((_optimized63665_ + (let ((__method64109 + (let () + (declare (not safe)) + (method-ref + _rator-type63662_ + 'optimize-call)))) + (if __method64109 + (__method64109 + _rator-type63662_ + _stx63574_ + _L63641_) + (error '"Missing method" + _rator-type63662_ + 'optimize-call))))) + (if (let () + (declare (not safe)) + (class-instance? + gxc#!primitive::t + _rator-type63662_)) + _optimized63665_ + (let* ((___stx6372963730_ _optimized63665_) + (_g6366863678_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx6372963730_))))) + (let ((___kont6373163732_ + (lambda (_L63698_) + (let ((__tmp64116 + (let () + (declare (not safe)) + (cons '%#call-unchecked + _L63698_)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64116 + _stx63574_)))) + (___kont6373363734_ + (lambda () _optimized63665_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx6372963730_)) + (let ((_e6367363690_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx6372963730_)))) + (let ((_tl6367163695_ + (let () + (declare (not safe)) + (##cdr _e6367363690_))) + (_hd6367263693_ + (let () + (declare (not safe)) + (##car _e6367363690_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd6367263693_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd6367263693_)) + (___kont6373163732_ + _tl6367163695_) + (___kont6373363734_)) + (___kont6373363734_)))) + (___kont6373363734_))))))) + (if (let () + (declare (not safe)) + (not _rator-type63662_)) + (let () + (declare (not safe)) + (gxc#xform-call% _stx63574_)) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal application; not a procedure" + _stx63574_ + _rator-type63662_))))))) + (___kont6375163752_ + (lambda () + (let () + (declare (not safe)) + (gxc#xform-call% _stx63574_))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx6374763748_)) + (let ((_e6358363609_ + (let () + (declare (not safe)) + (gx#stx-e ___stx6374763748_)))) + (let ((_tl6358163614_ + (let () (declare (not safe)) (##cdr _e6358363609_))) + (_hd6358263612_ + (let () (declare (not safe)) (##car _e6358363609_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6358163614_)) + (let ((_e6358663617_ + (let () + (declare (not safe)) + (gx#stx-e _tl6358163614_)))) + (let ((_tl6358463622_ (let () (declare (not safe)) - (##cdr _e5984959882_))) - (_hd5985059885_ + (##cdr _e6358663617_))) + (_hd6358563620_ (let () (declare (not safe)) - (##car _e5984959882_)))) - (if (gx#stx-pair? _hd5985059885_) - (let ((_e5985259890_ - (gx#stx-e _hd5985059885_))) - (let ((_tl5985459895_ + (##car _e6358663617_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd6358563620_)) + (let ((_e6358963625_ + (let () + (declare (not safe)) + (gx#stx-e _hd6358563620_)))) + (let ((_tl6358763630_ (let () (declare (not safe)) - (##cdr _e5985259890_))) - (_hd5985359893_ + (##cdr _e6358963625_))) + (_hd6358863628_ (let () (declare (not safe)) - (##car _e5985259890_)))) - (if (gx#identifier? _hd5985359893_) - (if (gx#stx-eq? '%#ref _hd5985359893_) - (if (gx#stx-pair? _tl5985459895_) - (let ((_e5985559898_ - (gx#stx-e - _tl5985459895_))) - (let ((_tl5985759903_ + (##car _e6358963625_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd6358863628_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd6358863628_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl6358763630_)) + (let ((_e6359263633_ + (let () + (declare (not safe)) + (gx#stx-e + _tl6358763630_)))) + (let ((_tl6359063638_ (let () (declare (not safe)) - (##cdr _e5985559898_))) - (_hd5985659901_ + (##cdr _e6359263633_))) + (_hd6359163636_ (let () (declare (not safe)) - (##car _e5985559898_)))) - (if (gx#stx-null? - _tl5985759903_) - (___kont5994559946_ - _tl5985159887_ - _hd5985659901_) - (___kont5994759948_)))) - (___kont5994759948_)) - (___kont5994759948_)) - (___kont5994759948_)))) - (___kont5994759948_)))) - (___kont5994759948_)))) - (___kont5994759948_)))))) + (##car _e6359263633_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6359063638_)) + (___kont6374963750_ + _tl6358463622_ + _hd6359163636_) + (___kont6375163752_)))) + (___kont6375163752_)) + (___kont6375163752_)) + (___kont6375163752_)))) + (___kont6375163752_)))) + (___kont6375163752_)))) + (___kont6375163752_)))))) (define gxc#!struct-pred::optimize-call - (lambda (_self59693_ _stx59694_ _args59695_) - (let* ((_self5969659702_ _self59693_) - (_E5969859706_ - (lambda () (error '"No clause matching" _self5969659702_))) - (_K5969959831_ - (lambda (_struct-t59709_) - (let* ((_struct-type59711_ - (gxc#optimizer-resolve-type _struct-t59709_)) - (_struct-type5971259726_ _struct-type59711_) - (_else5971559734_ + (lambda (_self63428_ _stx63429_ _args63430_) + (let* ((_self6343163437_ _self63428_) + (_E6343363441_ + (lambda () (error '"No clause matching" _self6343163437_))) + (_K6343463566_ + (lambda (_struct-t63444_) + (let* ((_struct-type63446_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _struct-t63444_))) + (_struct-type6344763461_ _struct-type63446_) + (_else6345063469_ (lambda () - (gxc#raise-compile-error - '"Illegal struct predicate application; not a struct type" - _stx59694_ - _struct-t59709_ - _struct-type59711_)))) - (let ((_K5971859806_ - (lambda (_plist59745_ _struct-type-id59746_) - (let* ((___stx5998159982_ _args59695_) - (_g5974959759_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal struct predicate application; not a struct type" + _stx63429_ + _struct-t63444_ + _struct-type63446_))))) + (let ((_K6345363541_ + (lambda (_plist63480_ _struct-type-id63481_) + (let* ((___stx6378563786_ _args63430_) + (_g6348463494_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx5998159982_)))) - (let ((___kont5998359984_ - (lambda (_L59779_) - (let ((_expr59800_ - (gxc#compile-e _L59779_)) - (_op59801_ - (if (and _plist59745_ - (assgetq 'final: + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx6378563786_))))) + (let ((___kont6378763788_ + (lambda (_L63514_) + (let ((_expr63535_ + (let () + (declare (not safe)) + (gxc#compile-e _L63514_))) + (_op63536_ + (if (and _plist63480_ + (let () + (declare (not safe)) + (assgetq 'final: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _plist59745_)) + _plist63480_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '%#struct-direct-instance? '%#struct-instance?))) - (gxc#xform-wrap-source - (cons _op59801_ - (cons (cons '%#quote - (cons _struct-type-id59746_ + (let ((__tmp64117 + (let ((__tmp64118 + (let ((__tmp64120 + (let ((__tmp64121 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons _expr59800_ '()))) + (let () + (declare (not safe)) + (cons _struct-type-id63481_ '())))) + (declare (not safe)) + (cons '%#quote __tmp64121))) + (__tmp64119 + (let () (declare (not safe)) (cons _expr63535_ '())))) + (declare (not safe)) + (cons __tmp64120 __tmp64119)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx59694_)))) - (___kont5998559986_ + (declare (not safe)) + (cons _op63536_ + __tmp64118)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64117 + _stx63429_))))) + (___kont6378963790_ (lambda () - (gxc#raise-compile-error - '"Illegal struct predicate application" - _stx59694_)))) - (if (gx#stx-pair? ___stx5998159982_) - (let ((_e5975259771_ - (gx#stx-e ___stx5998159982_))) - (let ((_tl5975459776_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal struct predicate application" + _stx63429_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx6378563786_)) + (let ((_e6348963506_ + (let () + (declare (not safe)) + (gx#stx-e ___stx6378563786_)))) + (let ((_tl6348763511_ (let () (declare (not safe)) - (##cdr _e5975259771_))) - (_hd5975359774_ + (##cdr _e6348963506_))) + (_hd6348863509_ (let () (declare (not safe)) - (##car _e5975259771_)))) - (if (gx#stx-null? _tl5975459776_) - (___kont5998359984_ - _hd5975359774_) - (___kont5998559986_)))) - (___kont5998559986_)))))) - (_K5971759739_ - (lambda () (gxc#xform-call% _stx59694_)))) - (let ((_try-match5971459742_ + (##car _e6348963506_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6348763511_)) + (___kont6378763788_ + _hd6348863509_) + (___kont6378963790_)))) + (___kont6378963790_)))))) + (_K6345263474_ + (lambda () + (let () + (declare (not safe)) + (gxc#xform-call% _stx63429_))))) + (let ((_try-match6344963477_ (lambda () (if (let () (declare (not safe)) - (##eq? _struct-type5971259726_ '#f)) - (_K5971759739_) - (_else5971559734_))))) + (##eq? _struct-type6344763461_ '#f)) + (let () + (declare (not safe)) + (_K6345263474_)) + (let () + (declare (not safe)) + (_else6345063469_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _struct-type5971259726_ + _struct-type6344763461_ 'gxc#!struct-type::t)) - (let* ((_e5971959809_ + (let* ((_e6345463544_ (let () (declare (not safe)) (##vector-ref - _struct-type5971259726_ + _struct-type6344763461_ '1))) - (_e5972059814_ + (_e6345563549_ (let () (declare (not safe)) (##vector-ref - _struct-type5971259726_ + _struct-type6344763461_ '2))) - (_e5972159817_ + (_e6345663552_ (let () (declare (not safe)) (##vector-ref - _struct-type5971259726_ + _struct-type6344763461_ '3))) - (_e5972259820_ + (_e6345763555_ (let () (declare (not safe)) (##vector-ref - _struct-type5971259726_ + _struct-type6344763461_ '4))) - (_e5972359823_ + (_e6345863558_ (let () (declare (not safe)) (##vector-ref - _struct-type5971259726_ + _struct-type6344763461_ '5))) - (_e5972459826_ + (_e6345963561_ (let () (declare (not safe)) (##vector-ref - _struct-type5971259726_ + _struct-type6344763461_ '6)))) - (let ((_struct-type-id59812_ _e5971959809_) - (_plist59829_ _e5972459826_)) - (_K5971859806_ - _plist59829_ - _struct-type-id59812_))) - (_try-match5971459742_)))))))) + (let ((_struct-type-id63547_ _e6345463544_) + (_plist63564_ _e6345963561_)) + (let () + (declare (not safe)) + (_K6345363541_ + _plist63564_ + _struct-type-id63547_)))) + (let () + (declare (not safe)) + (_try-match6344963477_))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self5969659702_ + _self6343163437_ 'gxc#!struct-pred::t)) - (let* ((_e5970059834_ + (let* ((_e6343563569_ (let () (declare (not safe)) - (##vector-ref _self5969659702_ '1))) - (_struct-t59837_ _e5970059834_)) - (_K5969959831_ _struct-t59837_)) - (_E5969859706_))))) - (bind-method! - gxc#!struct-pred::t - 'optimize-call - gxc#!struct-pred::optimize-call - '#f) + (##vector-ref _self6343163437_ '1))) + (_struct-t63572_ _e6343563569_)) + (declare (not safe)) + (_K6343463566_ _struct-t63572_)) + (let () (declare (not safe)) (_E6343363441_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!struct-pred::t + 'optimize-call + gxc#!struct-pred::optimize-call + '#f)) (define gxc#!struct-cons::optimize-call - (lambda (_self59467_ _stx59468_ _args59469_) - (let* ((_self5947059476_ _self59467_) - (_E5947259480_ - (lambda () (error '"No clause matching" _self5947059476_))) - (_K5947359563_ - (lambda (_struct-t59483_) - (let* ((_struct-type59485_ - (gxc#optimizer-resolve-type _struct-t59483_)) - (_struct-type5948659499_ _struct-type59485_) - (_else5948959507_ + (lambda (_self63202_ _stx63203_ _args63204_) + (let* ((_self6320563211_ _self63202_) + (_E6320763215_ + (lambda () (error '"No clause matching" _self6320563211_))) + (_K6320863298_ + (lambda (_struct-t63218_) + (let* ((_struct-type63220_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _struct-t63218_))) + (_struct-type6322163234_ _struct-type63220_) + (_else6322463242_ (lambda () - (gxc#raise-compile-error - '"Illegal struct constructor application; not a struct type" - _stx59468_ - _struct-t59483_ - _struct-type59485_)))) - (let ((_K5949259537_ - (lambda (_ctor59518_ - _xfields59519_ - _fields59520_ - _type-id59521_) - (let* ((_args59523_ - (map gxc#compile-e _args59469_)) - (_$e59525_ - (if _ctor59518_ - (if _xfields59519_ - (gxc#!struct-type-lookup-method - _struct-type59485_ - _ctor59518_) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal struct constructor application; not a struct type" + _stx63203_ + _struct-t63218_ + _struct-type63220_))))) + (let ((_K6322763272_ + (lambda (_ctor63253_ + _xfields63254_ + _fields63255_ + _type-id63256_) + (let* ((_args63258_ + (let () + (declare (not safe)) + (map gxc#compile-e _args63204_))) + (_$e63260_ + (if _ctor63253_ + (if _xfields63254_ + (let () + (declare (not safe)) + (gxc#!struct-type-lookup-method + _struct-type63220_ + _ctor63253_)) '#f) '#f))) - (if _$e59525_ - ((lambda (_kons59528_) - (let ((_$obj59530_ - (make-symbol (gensym '__obj)))) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (cons (cons (cons _$obj59530_ + (if _$e63260_ + ((lambda (_kons63263_) + (let* ((_$obj63265_ + (make-symbol + (let () + (declare (not safe)) + (gensym '__obj)))) + (__tmp64136 + (let ((__tmp64137 + (let ((__tmp64153 + (let ((__tmp64154 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (cons '%#call - (cons (cons '%#ref - (cons 'make-object '())) - (cons (cons '%#ref - (cons _struct-t59483_ - '())) - (cons (cons '%#quote - (cons (fx+ _fields59520_ + (let ((__tmp64167 + (let () + (declare (not safe)) + (cons _$obj63265_ '()))) + (__tmp64155 + (let ((__tmp64156 + (let ((__tmp64157 + (let ((__tmp64165 + (let ((__tmp64166 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xfields59519_) - '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '()) + (not safe)) + (cons 'make-object '())))) + (declare (not safe)) + (cons '%#ref __tmp64166))) + (__tmp64158 + (let ((__tmp64163 + (let ((__tmp64164 + (let () + (declare (not safe)) + (cons _struct-t63218_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64164))) + (__tmp64159 + (let ((__tmp64160 + (let ((__tmp64161 + (let ((__tmp64162 + (fx+ _fields63255_ _xfields63254_))) + (declare (not safe)) + (cons __tmp64162 '())))) + (declare (not safe)) + (cons '%#quote __tmp64161)))) + (declare (not safe)) + (cons __tmp64160 '())))) + (declare (not safe)) + (cons __tmp64163 __tmp64159)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#begin + (declare (not safe)) + (cons __tmp64165 + __tmp64158)))) + (declare (not safe)) + (cons '%#call __tmp64157)))) + (declare (not safe)) + (cons __tmp64156 '())))) + (declare (not safe)) + (cons __tmp64167 __tmp64155)))) + (declare (not safe)) + (cons __tmp64154 '()))) + (__tmp64138 + (let ((__tmp64139 + (let ((__tmp64140 + (let ((__tmp64144 + (let ((__tmp64145 + (let ((__tmp64146 + (let ((__tmp64147 + (let ((__tmp64151 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gxc#compile-e - (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref - (cons _kons59528_ '())) - (cons (cons '%#ref - (cons _$obj59530_ - '())) - _args59523_))) - _stx59468_)) - (cons (cons '%#ref (cons _$obj59530_ '())) - '()))) - '()))) + (let ((__tmp64152 + (let () + (declare (not safe)) + (cons _kons63263_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64152))) + (__tmp64148 + (let ((__tmp64149 + (let ((__tmp64150 + (let () + (declare (not safe)) + (cons _$obj63265_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64150)))) + (declare (not safe)) + (cons __tmp64149 _args63258_)))) + (declare (not safe)) + (cons __tmp64151 __tmp64148)))) + (declare (not safe)) + (cons '%#call __tmp64147)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64146 + _stx63203_)))) + (declare (not safe)) + (gxc#compile-e __tmp64145))) + (__tmp64141 + (let ((__tmp64142 + (let ((__tmp64143 + (let () + (declare (not safe)) + (cons _$obj63265_ + '())))) + (declare (not safe)) + (cons '%#ref __tmp64143)))) + (declare (not safe)) + (cons __tmp64142 '())))) + (declare (not safe)) + (cons __tmp64144 __tmp64141)))) + (declare (not safe)) + (cons '%#begin __tmp64140)))) + (declare (not safe)) + (cons __tmp64139 '())))) + (declare (not safe)) + (cons __tmp64153 __tmp64138)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx59468_))) - _$e59525_) - (if (or _ctor59518_ (not _xfields59519_)) - (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref - (cons 'make-struct-instance - '())) - (cons (cons '%#ref - (cons _struct-t59483_ + (declare (not safe)) + (cons '%#let-values + __tmp64137)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64136 + _stx63203_))) + _$e63260_) + (if (or _ctor63253_ + (let () + (declare (not safe)) + (not _xfields63254_))) + (let ((__tmp64129 + (let ((__tmp64130 + (let ((__tmp64134 + (let ((__tmp64135 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _args59523_))) + (let () + (declare (not safe)) + (cons 'make-struct-instance '())))) + (declare (not safe)) + (cons '%#ref __tmp64135))) + (__tmp64131 + (let ((__tmp64132 + (let ((__tmp64133 + (let () + (declare (not safe)) + (cons _struct-t63218_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64133)))) + (declare (not safe)) + (cons __tmp64132 _args63258_)))) + (declare (not safe)) + (cons __tmp64134 __tmp64131)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx59468_) - (let ((_arity59535_ - (fx+ _fields59520_ - _xfields59519_))) - (if (fx= _arity59535_ - (length _args59523_)) - (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref - (cons '##structure + (declare (not safe)) + (cons '%#call __tmp64130)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64129 + _stx63203_)) + (let ((_arity63270_ + (fx+ _fields63255_ + _xfields63254_))) + (if (fx= _arity63270_ + (length _args63258_)) + (let ((__tmp64122 + (let ((__tmp64123 + (let ((__tmp64127 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '%#ref (cons _struct-t59483_ '())) _args59523_))) + (let ((__tmp64128 + (let () + (declare (not safe)) + (cons '##structure '())))) + (declare (not safe)) + (cons '%#ref __tmp64128))) + (__tmp64124 + (let ((__tmp64125 + (let ((__tmp64126 + (let () + (declare (not safe)) + (cons _struct-t63218_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64126)))) + (declare (not safe)) + (cons __tmp64125 _args63258_)))) + (declare (not safe)) + (cons __tmp64127 __tmp64124)))) + (declare (not safe)) + (cons '%#call __tmp64123)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx59468_) - (gxc#raise-compile-error - '"Illegal struct constructor application; arity mismatch" - _stx59468_ - _struct-t59483_ - _arity59535_)))))))) - (_K5949159512_ + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64122 + _stx63203_)) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal struct constructor application; arity mismatch" + _stx63203_ + _struct-t63218_ + _arity63270_))))))))) + (_K6322663247_ (lambda () - (gxc#verbose - '"cannot inline struct constructor; unknown struct type " - _struct-t59483_) - (gxc#xform-call% _stx59468_)))) - (let ((_try-match5948859515_ + (let () + (declare (not safe)) + (gxc#verbose + '"cannot inline struct constructor; unknown struct type " + _struct-t63218_)) + (let () + (declare (not safe)) + (gxc#xform-call% _stx63203_))))) + (let ((_try-match6322363250_ (lambda () (if (let () (declare (not safe)) - (##eq? _struct-type5948659499_ '#f)) - (_K5949159512_) - (_else5948959507_))))) + (##eq? _struct-type6322163234_ '#f)) + (let () + (declare (not safe)) + (_K6322663247_)) + (let () + (declare (not safe)) + (_else6322463242_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _struct-type5948659499_ + _struct-type6322163234_ 'gxc#!struct-type::t)) - (let* ((_e5949359540_ + (let* ((_e6322863275_ (let () (declare (not safe)) (##vector-ref - _struct-type5948659499_ + _struct-type6322163234_ '1))) - (_e5949459545_ + (_e6322963280_ (let () (declare (not safe)) (##vector-ref - _struct-type5948659499_ + _struct-type6322163234_ '2))) - (_e5949559548_ + (_e6323063283_ (let () (declare (not safe)) (##vector-ref - _struct-type5948659499_ + _struct-type6322163234_ '3))) - (_e5949659553_ + (_e6323163288_ (let () (declare (not safe)) (##vector-ref - _struct-type5948659499_ + _struct-type6322163234_ '4))) - (_e5949759558_ + (_e6323263293_ (let () (declare (not safe)) (##vector-ref - _struct-type5948659499_ + _struct-type6322163234_ '5)))) - (let ((_type-id59543_ _e5949359540_) - (_fields59551_ _e5949559548_) - (_xfields59556_ _e5949659553_) - (_ctor59561_ _e5949759558_)) - (_K5949259537_ - _ctor59561_ - _xfields59556_ - _fields59551_ - _type-id59543_))) - (_try-match5948859515_)))))))) + (let ((_type-id63278_ _e6322863275_) + (_fields63286_ _e6323063283_) + (_xfields63291_ _e6323163288_) + (_ctor63296_ _e6323263293_)) + (let () + (declare (not safe)) + (_K6322763272_ + _ctor63296_ + _xfields63291_ + _fields63286_ + _type-id63278_)))) + (let () + (declare (not safe)) + (_try-match6322363250_))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self5947059476_ + _self6320563211_ 'gxc#!struct-cons::t)) - (let* ((_e5947459566_ + (let* ((_e6320963301_ (let () (declare (not safe)) - (##vector-ref _self5947059476_ '1))) - (_struct-t59569_ _e5947459566_)) - (_K5947359563_ _struct-t59569_)) - (_E5947259480_))))) - (bind-method! - gxc#!struct-cons::t - 'optimize-call - gxc#!struct-cons::optimize-call - '#f) + (##vector-ref _self6320563211_ '1))) + (_struct-t63304_ _e6320963301_)) + (declare (not safe)) + (_K6320863298_ _struct-t63304_)) + (let () (declare (not safe)) (_E6320763215_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!struct-cons::t + 'optimize-call + gxc#!struct-cons::optimize-call + '#f)) (define gxc#!struct-getf::optimize-call - (lambda (_self59178_ _stx59179_ _args59180_) - (let* ((_self5918159189_ _self59178_) - (_E5918359193_ - (lambda () (error '"No clause matching" _self5918159189_))) - (_K5918459327_ - (lambda (_unchecked?59196_ _off59197_ _struct-t59198_) - (let* ((_struct-type59200_ - (gxc#optimizer-resolve-type _struct-t59198_)) - (_struct-type5920159215_ _struct-type59200_) - (_else5920459223_ + (lambda (_self62913_ _stx62914_ _args62915_) + (let* ((_self6291662924_ _self62913_) + (_E6291862928_ + (lambda () (error '"No clause matching" _self6291662924_))) + (_K6291963062_ + (lambda (_unchecked?62931_ _off62932_ _struct-t62933_) + (let* ((_struct-type62935_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _struct-t62933_))) + (_struct-type6293662950_ _struct-type62935_) + (_else6293962958_ (lambda () - (gxc#raise-compile-error - '"Illegal struct predicate application; not a struct type" - _stx59179_ - _struct-t59198_ - _struct-type59200_)))) - (let ((_K5920759298_ - (lambda (_plist59234_ - _xfields59235_ - _fields59236_ - _struct-type-id59237_) - (if _xfields59235_ - (let* ((___stx6002960030_ _args59180_) - (_g5924059250_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal struct predicate application; not a struct type" + _stx62914_ + _struct-t62933_ + _struct-type62935_))))) + (let ((_K6294263033_ + (lambda (_plist62969_ + _xfields62970_ + _fields62971_ + _struct-type-id62972_) + (if _xfields62970_ + (let* ((___stx6383363834_ _args62915_) + (_g6297562985_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx6002960030_)))) - (let ((___kont6003160032_ - (lambda (_L59270_) - (let ((_expr59291_ - (gxc#compile-e _L59270_)) - (_off59292_ - (fx+ _off59197_ - _xfields59235_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx6383363834_))))) + (let ((___kont6383563836_ + (lambda (_L63005_) + (let ((_expr63026_ + (let () + (declare (not safe)) + (gxc#compile-e _L63005_))) + (_off63027_ + (fx+ _off62932_ + _xfields62970_ '1)) - (_op59293_ - (if _unchecked?59196_ + (_op63028_ + (if _unchecked?62931_ '%#struct-unchecked-ref - (if (and _plist59234_ - (assgetq 'final: + (if (and _plist62969_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _plist59234_)) + (declare (not safe)) + (assgetq 'final: _plist62969_))) '%#struct-direct-ref '%#struct-ref)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gxc#xform-wrap-source - (cons _op59293_ - (cons (cons '%#ref + (let ((__tmp64168 + (let ((__tmp64169 + (let ((__tmp64174 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _struct-t59198_ '())) - (cons (cons '%#quote (cons _off59292_ '())) - (cons _expr59291_ '())))) + (let ((__tmp64175 + (let () + (declare (not safe)) + (cons _struct-t62933_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64175))) + (__tmp64170 + (let ((__tmp64172 + (let ((__tmp64173 + (let () + (declare (not safe)) + (cons _off63027_ '())))) + (declare (not safe)) + (cons '%#quote __tmp64173))) + (__tmp64171 + (let () + (declare (not safe)) + (cons _expr63026_ '())))) + (declare (not safe)) + (cons __tmp64172 __tmp64171)))) + (declare (not safe)) + (cons __tmp64174 __tmp64170)))) + (declare (not safe)) + (cons _op63028_ __tmp64169)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx59179_)))) - (___kont6003360034_ + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64168 + _stx62914_))))) + (___kont6383763838_ (lambda () - (gxc#raise-compile-error - '"Illegal struct accessor application" - _stx59179_)))) - (if (gx#stx-pair? ___stx6002960030_) - (let ((_e5924359262_ - (gx#stx-e ___stx6002960030_))) - (let ((_tl5924559267_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal struct accessor application" + _stx62914_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx6383363834_)) + (let ((_e6298062997_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx6383363834_)))) + (let ((_tl6297863002_ (let () (declare (not safe)) - (##cdr _e5924359262_))) - (_hd5924459265_ + (##cdr _e6298062997_))) + (_hd6297963000_ (let () (declare (not safe)) - (##car _e5924359262_)))) - (if (gx#stx-null? _tl5924559267_) - (___kont6003160032_ - _hd5924459265_) - (___kont6003360034_)))) - (___kont6003360034_)))) + (##car _e6298062997_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6297863002_)) + (___kont6383563836_ + _hd6297963000_) + (___kont6383763838_)))) + (___kont6383763838_)))) (begin - (gxc#verbose - '"struct-getf: incomplete struct " - _struct-type-id59237_) - (gxc#xform-call% _stx59179_))))) - (_K5920659228_ - (lambda () (gxc#xform-call% _stx59179_)))) - (let ((_try-match5920359231_ + (let () + (declare (not safe)) + (gxc#verbose + '"struct-getf: incomplete struct " + _struct-type-id62972_)) + (let () + (declare (not safe)) + (gxc#xform-call% _stx62914_)))))) + (_K6294162963_ + (lambda () + (let () + (declare (not safe)) + (gxc#xform-call% _stx62914_))))) + (let ((_try-match6293862966_ (lambda () (if (let () (declare (not safe)) - (##eq? _struct-type5920159215_ '#f)) - (_K5920659228_) - (_else5920459223_))))) + (##eq? _struct-type6293662950_ '#f)) + (let () + (declare (not safe)) + (_K6294162963_)) + (let () + (declare (not safe)) + (_else6293962958_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _struct-type5920159215_ + _struct-type6293662950_ 'gxc#!struct-type::t)) - (let* ((_e5920859301_ + (let* ((_e6294363036_ (let () (declare (not safe)) (##vector-ref - _struct-type5920159215_ + _struct-type6293662950_ '1))) - (_e5920959306_ + (_e6294463041_ (let () (declare (not safe)) (##vector-ref - _struct-type5920159215_ + _struct-type6293662950_ '2))) - (_e5921059309_ + (_e6294563044_ (let () (declare (not safe)) (##vector-ref - _struct-type5920159215_ + _struct-type6293662950_ '3))) - (_e5921159314_ + (_e6294663049_ (let () (declare (not safe)) (##vector-ref - _struct-type5920159215_ + _struct-type6293662950_ '4))) - (_e5921259319_ + (_e6294763054_ (let () (declare (not safe)) (##vector-ref - _struct-type5920159215_ + _struct-type6293662950_ '5))) - (_e5921359322_ + (_e6294863057_ (let () (declare (not safe)) (##vector-ref - _struct-type5920159215_ + _struct-type6293662950_ '6)))) - (let ((_struct-type-id59304_ _e5920859301_) - (_fields59312_ _e5921059309_) - (_xfields59317_ _e5921159314_) - (_plist59325_ _e5921359322_)) - (_K5920759298_ - _plist59325_ - _xfields59317_ - _fields59312_ - _struct-type-id59304_))) - (_try-match5920359231_)))))))) + (let ((_struct-type-id63039_ _e6294363036_) + (_fields63047_ _e6294563044_) + (_xfields63052_ _e6294663049_) + (_plist63060_ _e6294863057_)) + (let () + (declare (not safe)) + (_K6294263033_ + _plist63060_ + _xfields63052_ + _fields63047_ + _struct-type-id63039_)))) + (let () + (declare (not safe)) + (_try-match6293862966_))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self5918159189_ + _self6291662924_ 'gxc#!struct-getf::t)) - (let* ((_e5918559330_ + (let* ((_e6292063065_ (let () (declare (not safe)) - (##vector-ref _self5918159189_ '1))) - (_struct-t59333_ _e5918559330_) - (_e5918659335_ + (##vector-ref _self6291662924_ '1))) + (_struct-t63068_ _e6292063065_) + (_e6292163070_ (let () (declare (not safe)) - (##vector-ref _self5918159189_ '2))) - (_off59338_ _e5918659335_) - (_e5918759340_ + (##vector-ref _self6291662924_ '2))) + (_off63073_ _e6292163070_) + (_e6292263075_ (let () (declare (not safe)) - (##vector-ref _self5918159189_ '3))) - (_unchecked?59343_ _e5918759340_)) - (_K5918459327_ _unchecked?59343_ _off59338_ _struct-t59333_)) - (_E5918359193_))))) - (bind-method! - gxc#!struct-getf::t - 'optimize-call - gxc#!struct-getf::optimize-call - '#f) + (##vector-ref _self6291662924_ '3))) + (_unchecked?63078_ _e6292263075_)) + (declare (not safe)) + (_K6291963062_ _unchecked?63078_ _off63073_ _struct-t63068_)) + (let () (declare (not safe)) (_E6291862928_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!struct-getf::t + 'optimize-call + gxc#!struct-getf::optimize-call + '#f)) (define gxc#!struct-setf::optimize-call - (lambda (_self58872_ _stx58873_ _args58874_) - (let* ((_self5887558883_ _self58872_) - (_E5887758887_ - (lambda () (error '"No clause matching" _self5887558883_))) - (_K5887859038_ - (lambda (_unchecked?58890_ _off58891_ _struct-t58892_) - (let* ((_struct-type58894_ - (gxc#optimizer-resolve-type _struct-t58892_)) - (_struct-type5889558909_ _struct-type58894_) - (_else5889858917_ + (lambda (_self62607_ _stx62608_ _args62609_) + (let* ((_self6261062618_ _self62607_) + (_E6261262622_ + (lambda () (error '"No clause matching" _self6261062618_))) + (_K6261362773_ + (lambda (_unchecked?62625_ _off62626_ _struct-t62627_) + (let* ((_struct-type62629_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _struct-t62627_))) + (_struct-type6263062644_ _struct-type62629_) + (_else6263362652_ (lambda () - (gxc#raise-compile-error - '"Illegal struct predicate application; not a struct type" - _stx58873_ - _struct-t58892_ - _struct-type58894_)))) - (let ((_K5890159009_ - (lambda (_plist58928_ - _xfields58929_ - _fields58930_ - _struct-type-id58931_) - (if _xfields58929_ - (let* ((___stx6006260063_ _args58874_) - (_g5893458948_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal struct predicate application; not a struct type" + _stx62608_ + _struct-t62627_ + _struct-type62629_))))) + (let ((_K6263662744_ + (lambda (_plist62663_ + _xfields62664_ + _fields62665_ + _struct-type-id62666_) + (if _xfields62664_ + (let* ((___stx6386663867_ _args62609_) + (_g6266962683_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx6006260063_)))) - (let ((___kont6006460065_ - (lambda (_L58976_ _L58977_) - (let ((_expr59001_ - (gxc#compile-e _L58977_)) - (_val59002_ - (gxc#compile-e _L58976_)) - (_off59003_ - (fx+ _off58891_ - _xfields58929_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx6386663867_))))) + (let ((___kont6386863869_ + (lambda (_L62711_ _L62712_) + (let ((_expr62736_ + (let () + (declare (not safe)) + (gxc#compile-e _L62712_))) + (_val62737_ + (let () + (declare (not safe)) + (gxc#compile-e _L62711_))) + (_off62738_ + (fx+ _off62626_ + _xfields62664_ '1)) - (_op59004_ - (if _unchecked?58890_ + (_op62739_ + (if _unchecked?62625_ '%#struct-unchecked-set! - (if (and _plist58928_ - (assgetq 'final: + (if (and _plist62663_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _plist58928_)) + (declare (not safe)) + (assgetq 'final: _plist62663_))) '%#struct-direct-set! '%#struct-set!)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gxc#xform-wrap-source - (cons _op59004_ - (cons (cons '%#ref + (let ((__tmp64176 + (let ((__tmp64177 + (let ((__tmp64183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _struct-t58892_ '())) - (cons (cons '%#quote (cons _off59003_ '())) - (cons _expr59001_ (cons _val59002_ '()))))) + (let ((__tmp64184 + (let () + (declare (not safe)) + (cons _struct-t62627_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64184))) + (__tmp64178 + (let ((__tmp64181 + (let ((__tmp64182 + (let () + (declare (not safe)) + (cons _off62738_ '())))) + (declare (not safe)) + (cons '%#quote __tmp64182))) + (__tmp64179 + (let ((__tmp64180 + (let () + (declare (not safe)) + (cons _val62737_ '())))) + (declare (not safe)) + (cons _expr62736_ __tmp64180)))) + (declare (not safe)) + (cons __tmp64181 __tmp64179)))) + (declare (not safe)) + (cons __tmp64183 __tmp64178)))) + (declare (not safe)) + (cons _op62739_ __tmp64177)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx58873_)))) - (___kont6006660067_ + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64176 + _stx62608_))))) + (___kont6387063871_ (lambda () - (gxc#raise-compile-error - '"Illegal struct mutator application" - _stx58873_)))) - (if (gx#stx-pair? ___stx6006260063_) - (let ((_e5893858960_ - (gx#stx-e ___stx6006260063_))) - (let ((_tl5894058965_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal struct mutator application" + _stx62608_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx6386663867_)) + (let ((_e6267562695_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx6386663867_)))) + (let ((_tl6267362700_ (let () (declare (not safe)) - (##cdr _e5893858960_))) - (_hd5893958963_ + (##cdr _e6267562695_))) + (_hd6267462698_ (let () (declare (not safe)) - (##car _e5893858960_)))) - (if (gx#stx-pair? _tl5894058965_) - (let ((_e5894158968_ - (gx#stx-e - _tl5894058965_))) - (let ((_tl5894358973_ + (##car _e6267562695_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl6267362700_)) + (let ((_e6267862703_ + (let () + (declare (not safe)) + (gx#stx-e + _tl6267362700_)))) + (let ((_tl6267662708_ (let () (declare (not safe)) - (##cdr _e5894158968_))) - (_hd5894258971_ + (##cdr _e6267862703_))) + (_hd6267762706_ (let () (declare (not safe)) - (##car _e5894158968_)))) - (if (gx#stx-null? - _tl5894358973_) - (___kont6006460065_ - _hd5894258971_ - _hd5893958963_) - (___kont6006660067_)))) - (___kont6006660067_)))) - (___kont6006660067_)))) + (##car _e6267862703_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6267662708_)) + (___kont6386863869_ + _hd6267762706_ + _hd6267462698_) + (___kont6387063871_)))) + (___kont6387063871_)))) + (___kont6387063871_)))) (begin - (gxc#verbose - '"struct-setf: incomplete struct " - _struct-type-id58931_) - (gxc#xform-call% _stx58873_))))) - (_K5890058922_ - (lambda () (gxc#xform-call% _stx58873_)))) - (let ((_try-match5889758925_ + (let () + (declare (not safe)) + (gxc#verbose + '"struct-setf: incomplete struct " + _struct-type-id62666_)) + (let () + (declare (not safe)) + (gxc#xform-call% _stx62608_)))))) + (_K6263562657_ + (lambda () + (let () + (declare (not safe)) + (gxc#xform-call% _stx62608_))))) + (let ((_try-match6263262660_ (lambda () (if (let () (declare (not safe)) - (##eq? _struct-type5889558909_ '#f)) - (_K5890058922_) - (_else5889858917_))))) + (##eq? _struct-type6263062644_ '#f)) + (let () + (declare (not safe)) + (_K6263562657_)) + (let () + (declare (not safe)) + (_else6263362652_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _struct-type5889558909_ + _struct-type6263062644_ 'gxc#!struct-type::t)) - (let* ((_e5890259012_ + (let* ((_e6263762747_ (let () (declare (not safe)) (##vector-ref - _struct-type5889558909_ + _struct-type6263062644_ '1))) - (_e5890359017_ + (_e6263862752_ (let () (declare (not safe)) (##vector-ref - _struct-type5889558909_ + _struct-type6263062644_ '2))) - (_e5890459020_ + (_e6263962755_ (let () (declare (not safe)) (##vector-ref - _struct-type5889558909_ + _struct-type6263062644_ '3))) - (_e5890559025_ + (_e6264062760_ (let () (declare (not safe)) (##vector-ref - _struct-type5889558909_ + _struct-type6263062644_ '4))) - (_e5890659030_ + (_e6264162765_ (let () (declare (not safe)) (##vector-ref - _struct-type5889558909_ + _struct-type6263062644_ '5))) - (_e5890759033_ + (_e6264262768_ (let () (declare (not safe)) (##vector-ref - _struct-type5889558909_ + _struct-type6263062644_ '6)))) - (let ((_struct-type-id59015_ _e5890259012_) - (_fields59023_ _e5890459020_) - (_xfields59028_ _e5890559025_) - (_plist59036_ _e5890759033_)) - (_K5890159009_ - _plist59036_ - _xfields59028_ - _fields59023_ - _struct-type-id59015_))) - (_try-match5889758925_)))))))) + (let ((_struct-type-id62750_ _e6263762747_) + (_fields62758_ _e6263962755_) + (_xfields62763_ _e6264062760_) + (_plist62771_ _e6264262768_)) + (let () + (declare (not safe)) + (_K6263662744_ + _plist62771_ + _xfields62763_ + _fields62758_ + _struct-type-id62750_)))) + (let () + (declare (not safe)) + (_try-match6263262660_))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self5887558883_ + _self6261062618_ 'gxc#!struct-setf::t)) - (let* ((_e5887959041_ + (let* ((_e6261462776_ (let () (declare (not safe)) - (##vector-ref _self5887558883_ '1))) - (_struct-t59044_ _e5887959041_) - (_e5888059046_ + (##vector-ref _self6261062618_ '1))) + (_struct-t62779_ _e6261462776_) + (_e6261562781_ (let () (declare (not safe)) - (##vector-ref _self5887558883_ '2))) - (_off59049_ _e5888059046_) - (_e5888159051_ + (##vector-ref _self6261062618_ '2))) + (_off62784_ _e6261562781_) + (_e6261662786_ (let () (declare (not safe)) - (##vector-ref _self5887558883_ '3))) - (_unchecked?59054_ _e5888159051_)) - (_K5887859038_ _unchecked?59054_ _off59049_ _struct-t59044_)) - (_E5887758887_))))) - (bind-method! - gxc#!struct-setf::t - 'optimize-call - gxc#!struct-setf::optimize-call - '#f) + (##vector-ref _self6261062618_ '3))) + (_unchecked?62789_ _e6261662786_)) + (declare (not safe)) + (_K6261362773_ _unchecked?62789_ _off62784_ _struct-t62779_)) + (let () (declare (not safe)) (_E6261262622_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!struct-setf::t + 'optimize-call + gxc#!struct-setf::optimize-call + '#f)) (define gxc#!class-pred::optimize-call - (lambda (_self58600_ _stx58601_ _args58602_) - (let* ((_self5860358609_ _self58600_) - (_E5860558613_ - (lambda () (error '"No clause matching" _self5860358609_))) - (_K5860658742_ - (lambda (_class-t58616_) - (let* ((_class-type58618_ - (gxc#optimizer-resolve-type _class-t58616_)) - (_class-type5861958634_ _class-type58618_) - (_else5862258642_ + (lambda (_self62335_ _stx62336_ _args62337_) + (let* ((_self6233862344_ _self62335_) + (_E6234062348_ + (lambda () (error '"No clause matching" _self6233862344_))) + (_K6234162477_ + (lambda (_class-t62351_) + (let* ((_class-type62353_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _class-t62351_))) + (_class-type6235462369_ _class-type62353_) + (_else6235762377_ (lambda () - (gxc#raise-compile-error - '"illegal class predicate application; not a class type" - _stx58601_ - _class-t58616_ - _class-type58618_)))) - (let ((_K5862558714_ - (lambda (_plist58653_ _class-type-id58654_) - (let* ((___stx6010160102_ _args58602_) - (_g5865758667_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"illegal class predicate application; not a class type" + _stx62336_ + _class-t62351_ + _class-type62353_))))) + (let ((_K6236062449_ + (lambda (_plist62388_ _class-type-id62389_) + (let* ((___stx6390563906_ _args62337_) + (_g6239262402_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx6010160102_)))) - (let ((___kont6010360104_ - (lambda (_L58687_) - (let ((_expr58708_ - (gxc#compile-e _L58687_)) - (_final?58709_ - (if _plist58653_ - (assgetq 'final: - _plist58653_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx6390563906_))))) + (let ((___kont6390763908_ + (lambda (_L62422_) + (let ((_expr62443_ + (let () + (declare (not safe)) + (gxc#compile-e _L62422_))) + (_final?62444_ + (if _plist62388_ + (let () + (declare (not safe)) + (assgetq 'final: + _plist62388_)) '#f))) - (if _final?58709_ - (gxc#xform-wrap-source - (cons '%#struct-direct-instance? - (cons (cons '%#quote + (if _final?62444_ + (let ((__tmp64193 + (let ((__tmp64194 + (let ((__tmp64196 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _class-type-id58654_ '())) - (cons _expr58708_ '()))) + (let ((__tmp64197 + (let () + (declare (not safe)) + (cons _class-type-id62389_ '())))) + (declare (not safe)) + (cons '%#quote __tmp64197))) + (__tmp64195 + (let () + (declare (not safe)) + (cons _expr62443_ '())))) + (declare (not safe)) + (cons __tmp64196 __tmp64195)))) + (declare (not safe)) + (cons '%#struct-direct-instance? __tmp64194)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx58601_) - (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64193 + _stx62336_)) + (let ((__tmp64185 + (let ((__tmp64186 + (let ((__tmp64191 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'class-instance? '())) - (cons (cons '%#ref (cons _class-t58616_ '())) - (cons _expr58708_ '())))) + (let ((__tmp64192 + (let () + (declare (not safe)) + (cons 'class-instance? '())))) + (declare (not safe)) + (cons '%#ref __tmp64192))) + (__tmp64187 + (let ((__tmp64189 + (let ((__tmp64190 + (let () + (declare (not safe)) + (cons _class-t62351_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64190))) + (__tmp64188 + (let () + (declare (not safe)) + (cons _expr62443_ '())))) + (declare (not safe)) + (cons __tmp64189 __tmp64188)))) + (declare (not safe)) + (cons __tmp64191 __tmp64187)))) + (declare (not safe)) + (cons '%#call __tmp64186)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx58601_))))) - (___kont6010560106_ + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64185 + _stx62336_)))))) + (___kont6390963910_ (lambda () - (gxc#raise-compile-error - '"Illegal class predicate application" - _stx58601_)))) - (if (gx#stx-pair? ___stx6010160102_) - (let ((_e5866058679_ - (gx#stx-e ___stx6010160102_))) - (let ((_tl5866258684_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal class predicate application" + _stx62336_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx6390563906_)) + (let ((_e6239762414_ + (let () + (declare (not safe)) + (gx#stx-e ___stx6390563906_)))) + (let ((_tl6239562419_ (let () (declare (not safe)) - (##cdr _e5866058679_))) - (_hd5866158682_ + (##cdr _e6239762414_))) + (_hd6239662417_ (let () (declare (not safe)) - (##car _e5866058679_)))) - (if (gx#stx-null? _tl5866258684_) - (___kont6010360104_ - _hd5866158682_) - (___kont6010560106_)))) - (___kont6010560106_)))))) - (_K5862458647_ - (lambda () (gxc#xform-call% _stx58601_)))) - (let ((_try-match5862158650_ + (##car _e6239762414_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6239562419_)) + (___kont6390763908_ + _hd6239662417_) + (___kont6390963910_)))) + (___kont6390963910_)))))) + (_K6235962382_ + (lambda () + (let () + (declare (not safe)) + (gxc#xform-call% _stx62336_))))) + (let ((_try-match6235662385_ (lambda () (if (let () (declare (not safe)) - (##eq? _class-type5861958634_ '#f)) - (_K5862458647_) - (_else5862258642_))))) + (##eq? _class-type6235462369_ '#f)) + (let () + (declare (not safe)) + (_K6235962382_)) + (let () + (declare (not safe)) + (_else6235762377_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _class-type5861958634_ + _class-type6235462369_ 'gxc#!class-type::t)) - (let* ((_e5862658717_ + (let* ((_e6236162452_ (let () (declare (not safe)) (##vector-ref - _class-type5861958634_ + _class-type6235462369_ '1))) - (_e5862758722_ + (_e6236262457_ (let () (declare (not safe)) (##vector-ref - _class-type5861958634_ + _class-type6235462369_ '2))) - (_e5862858725_ + (_e6236362460_ (let () (declare (not safe)) (##vector-ref - _class-type5861958634_ + _class-type6235462369_ '3))) - (_e5862958728_ + (_e6236462463_ (let () (declare (not safe)) (##vector-ref - _class-type5861958634_ + _class-type6235462369_ '4))) - (_e5863058731_ + (_e6236562466_ (let () (declare (not safe)) (##vector-ref - _class-type5861958634_ + _class-type6235462369_ '5))) - (_e5863158734_ + (_e6236662469_ (let () (declare (not safe)) (##vector-ref - _class-type5861958634_ + _class-type6235462369_ '6))) - (_e5863258737_ + (_e6236762472_ (let () (declare (not safe)) (##vector-ref - _class-type5861958634_ + _class-type6235462369_ '7)))) - (let ((_class-type-id58720_ _e5862658717_) - (_plist58740_ _e5863258737_)) - (_K5862558714_ - _plist58740_ - _class-type-id58720_))) - (_try-match5862158650_)))))))) + (let ((_class-type-id62455_ _e6236162452_) + (_plist62475_ _e6236762472_)) + (let () + (declare (not safe)) + (_K6236062449_ + _plist62475_ + _class-type-id62455_)))) + (let () + (declare (not safe)) + (_try-match6235662385_))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self5860358609_ + _self6233862344_ 'gxc#!class-pred::t)) - (let* ((_e5860758745_ + (let* ((_e6234262480_ (let () (declare (not safe)) - (##vector-ref _self5860358609_ '1))) - (_class-t58748_ _e5860758745_)) - (_K5860658742_ _class-t58748_)) - (_E5860558613_))))) - (bind-method! - gxc#!class-pred::t - 'optimize-call - gxc#!class-pred::optimize-call - '#f) + (##vector-ref _self6233862344_ '1))) + (_class-t62483_ _e6234262480_)) + (declare (not safe)) + (_K6234162477_ _class-t62483_)) + (let () (declare (not safe)) (_E6234062348_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!class-pred::t + 'optimize-call + gxc#!class-pred::optimize-call + '#f)) (define gxc#!class-cons::optimize-call - (lambda (_self58418_ _stx58419_ _args58420_) - (let* ((_self5842158427_ _self58418_) - (_E5842358431_ - (lambda () (error '"No clause matching" _self5842158427_))) - (_K5842458470_ - (lambda (_class-t58434_) - (let* ((_class-type58436_ - (gxc#optimizer-resolve-type _class-t58434_)) - (_class-type5843758445_ _class-type58436_) - (_else5844058453_ + (lambda (_self62153_ _stx62154_ _args62155_) + (let* ((_self6215662162_ _self62153_) + (_E6215862166_ + (lambda () (error '"No clause matching" _self6215662162_))) + (_K6215962205_ + (lambda (_class-t62169_) + (let* ((_class-type62171_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _class-t62169_))) + (_class-type6217262180_ _class-type62171_) + (_else6217562188_ (lambda () - (gxc#raise-compile-error - '"Illegal class constructor application; not a struct type" - _stx58419_ - _class-t58434_ - _class-type58436_)))) - (let ((_K5844358467_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal class constructor application; not a struct type" + _stx62154_ + _class-t62169_ + _class-type62171_))))) + (let ((_K6217862202_ (lambda () - (let ((_args58465_ - (map gxc#compile-e _args58420_))) - (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref - (cons 'make-class-instance - '())) - (cons (cons '%#ref - (cons _class-t58434_ - '())) - _args58465_))) - _stx58419_)))) - (_K5844258458_ + (let* ((_args62200_ + (let () + (declare (not safe)) + (map gxc#compile-e _args62155_))) + (__tmp64198 + (let ((__tmp64199 + (let ((__tmp64203 + (let ((__tmp64204 + (let () + (declare + (not safe)) + (cons 'make-class-instance +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref __tmp64204))) + (__tmp64200 + (let ((__tmp64201 + (let ((__tmp64202 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _class-t62169_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64202)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp64201 + _args62200_)))) + (declare (not safe)) + (cons __tmp64203 __tmp64200)))) + (declare (not safe)) + (cons '%#call __tmp64199)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp64198 _stx62154_)))) + (_K6217762193_ (lambda () - (gxc#verbose - '"cannot inline class constructor; class struct type " - _class-t58434_) - (gxc#xform-call% _stx58419_)))) - (let ((_try-match5843958461_ + (let () + (declare (not safe)) + (gxc#verbose + '"cannot inline class constructor; class struct type " + _class-t62169_)) + (let () + (declare (not safe)) + (gxc#xform-call% _stx62154_))))) + (let ((_try-match6217462196_ (lambda () (if (let () (declare (not safe)) - (##eq? _class-type5843758445_ '#f)) - (_K5844258458_) - (_else5844058453_))))) + (##eq? _class-type6217262180_ '#f)) + (let () + (declare (not safe)) + (_K6217762193_)) + (let () + (declare (not safe)) + (_else6217562188_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _class-type5843758445_ + _class-type6217262180_ 'gxc#!class-type::t)) - (_K5844358467_) - (_try-match5843958461_)))))))) + (let () (declare (not safe)) (_K6217862202_)) + (let () + (declare (not safe)) + (_try-match6217462196_))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self5842158427_ + _self6215662162_ 'gxc#!class-cons::t)) - (let* ((_e5842558473_ + (let* ((_e6216062208_ (let () (declare (not safe)) - (##vector-ref _self5842158427_ '1))) - (_class-t58476_ _e5842558473_)) - (_K5842458470_ _class-t58476_)) - (_E5842358431_))))) - (bind-method! - gxc#!class-cons::t - 'optimize-call - gxc#!class-cons::optimize-call - '#f) + (##vector-ref _self6215662162_ '1))) + (_class-t62211_ _e6216062208_)) + (declare (not safe)) + (_K6215962205_ _class-t62211_)) + (let () (declare (not safe)) (_E6215862166_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!class-cons::t + 'optimize-call + gxc#!class-cons::optimize-call + '#f)) (define gxc#!class-getf::optimize-call - (lambda (_self58205_ _stx58206_ _args58207_) - (let* ((_self5820858216_ _self58205_) - (_E5821058220_ - (lambda () (error '"No clause matching" _self5820858216_))) - (_K5821158278_ - (lambda (_unchecked?58223_ _slot58224_ _class-t58225_) - (let* ((___stx6014160142_ _args58207_) - (_g5822858238_ + (lambda (_self61940_ _stx61941_ _args61942_) + (let* ((_self6194361951_ _self61940_) + (_E6194561955_ + (lambda () (error '"No clause matching" _self6194361951_))) + (_K6194662013_ + (lambda (_unchecked?61958_ _slot61959_ _class-t61960_) + (let* ((___stx6394563946_ _args61942_) + (_g6196361973_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx6014160142_)))) - (let ((___kont6014360144_ - (lambda (_L58258_) - (let ((_expr58273_ (gxc#compile-e _L58258_))) - (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref - (cons (if _unchecked?58223_ - 'slot-ref - 'unchecked-slot-ref) - '())) - (cons _expr58273_ - (cons (cons '%#quote - (cons _slot58224_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx6394563946_))))) + (let ((___kont6394763948_ + (lambda (_L61993_) + (let* ((_expr62008_ + (let () + (declare (not safe)) + (gxc#compile-e _L61993_))) + (__tmp64205 + (let ((__tmp64206 + (let ((__tmp64211 + (let ((__tmp64212 + (let ((__tmp64213 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (if _unchecked?61958_ 'slot-ref 'unchecked-slot-ref))) + (declare (not safe)) + (cons __tmp64213 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref __tmp64212))) + (__tmp64207 + (let ((__tmp64208 + (let ((__tmp64209 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())))) + (let ((__tmp64210 + (let () + (declare (not safe)) + (cons _slot61959_ '())))) + (declare (not safe)) + (cons '%#quote __tmp64210)))) + (declare (not safe)) + (cons __tmp64209 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx58206_)))) - (___kont6014560146_ + (declare (not safe)) + (cons _expr62008_ + __tmp64208)))) + (declare (not safe)) + (cons __tmp64211 __tmp64207)))) + (declare (not safe)) + (cons '%#call __tmp64206)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp64205 _stx61941_)))) + (___kont6394963950_ (lambda () - (gxc#raise-compile-error - '"Illegal class accessor application" - _stx58206_)))) - (if (gx#stx-pair? ___stx6014160142_) - (let ((_e5823158250_ (gx#stx-e ___stx6014160142_))) - (let ((_tl5823358255_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal class accessor application" + _stx61941_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx6394563946_)) + (let ((_e6196861985_ + (let () + (declare (not safe)) + (gx#stx-e ___stx6394563946_)))) + (let ((_tl6196661990_ (let () (declare (not safe)) - (##cdr _e5823158250_))) - (_hd5823258253_ + (##cdr _e6196861985_))) + (_hd6196761988_ (let () (declare (not safe)) - (##car _e5823158250_)))) - (if (gx#stx-null? _tl5823358255_) - (___kont6014360144_ _hd5823258253_) - (___kont6014560146_)))) - (___kont6014560146_))))))) + (##car _e6196861985_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6196661990_)) + (___kont6394763948_ _hd6196761988_) + (___kont6394963950_)))) + (___kont6394963950_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self5820858216_ + _self6194361951_ 'gxc#!class-getf::t)) - (let* ((_e5821258281_ + (let* ((_e6194762016_ (let () (declare (not safe)) - (##vector-ref _self5820858216_ '1))) - (_class-t58284_ _e5821258281_) - (_e5821358286_ + (##vector-ref _self6194361951_ '1))) + (_class-t62019_ _e6194762016_) + (_e6194862021_ (let () (declare (not safe)) - (##vector-ref _self5820858216_ '2))) - (_slot58289_ _e5821358286_) - (_e5821458291_ + (##vector-ref _self6194361951_ '2))) + (_slot62024_ _e6194862021_) + (_e6194962026_ (let () (declare (not safe)) - (##vector-ref _self5820858216_ '3))) - (_unchecked?58294_ _e5821458291_)) - (_K5821158278_ _unchecked?58294_ _slot58289_ _class-t58284_)) - (_E5821058220_))))) - (bind-method! - gxc#!class-getf::t - 'optimize-call - gxc#!class-getf::optimize-call - '#f) + (##vector-ref _self6194361951_ '3))) + (_unchecked?62029_ _e6194962026_)) + (declare (not safe)) + (_K6194662013_ _unchecked?62029_ _slot62024_ _class-t62019_)) + (let () (declare (not safe)) (_E6194561955_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!class-getf::t + 'optimize-call + gxc#!class-getf::optimize-call + '#f)) (define gxc#!class-setf::optimize-call - (lambda (_self57975_ _stx57976_ _args57977_) - (let* ((_self5797857986_ _self57975_) - (_E5798057990_ - (lambda () (error '"No clause matching" _self5797857986_))) - (_K5798158065_ - (lambda (_unchecked?57993_ _slot57994_ _class-t57995_) - (let* ((___stx6015760158_ _args57977_) - (_g5799858012_ + (lambda (_self61710_ _stx61711_ _args61712_) + (let* ((_self6171361721_ _self61710_) + (_E6171561725_ + (lambda () (error '"No clause matching" _self6171361721_))) + (_K6171661800_ + (lambda (_unchecked?61728_ _slot61729_ _class-t61730_) + (let* ((___stx6396163962_ _args61712_) + (_g6173361747_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx6015760158_)))) - (let ((___kont6015960160_ - (lambda (_L58040_ _L58041_) - (let ((_expr58059_ (gxc#compile-e _L58041_)) - (_val58060_ (gxc#compile-e _L58040_))) - (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref - (cons (if _unchecked?57993_ - 'unchecked-slot-set! - 'slot-set!) - '())) - (cons _expr58059_ - (cons (cons '%#quote - (cons _slot57994_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx6396163962_))))) + (let ((___kont6396363964_ + (lambda (_L61775_ _L61776_) + (let ((_expr61794_ + (let () + (declare (not safe)) + (gxc#compile-e _L61776_))) + (_val61795_ + (let () + (declare (not safe)) + (gxc#compile-e _L61775_)))) + (let ((__tmp64214 + (let ((__tmp64215 + (let ((__tmp64221 + (let ((__tmp64222 + (let ((__tmp64223 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (if _unchecked?61728_ + 'unchecked-slot-set! + 'slot-set!))) + (declare (not safe)) + (cons __tmp64223 '())))) + (declare (not safe)) + (cons '%#ref __tmp64222))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp64216 + (let ((__tmp64217 + (let ((__tmp64219 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons _val58060_ '()))))) + (let ((__tmp64220 + (let () + (declare (not safe)) + (cons _slot61729_ '())))) + (declare (not safe)) + (cons '%#quote __tmp64220))) + (__tmp64218 + (let () (declare (not safe)) (cons _val61795_ '())))) + (declare (not safe)) + (cons __tmp64219 __tmp64218)))) + (declare (not safe)) + (cons _expr61794_ __tmp64217)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx57976_)))) - (___kont6016160162_ + (declare (not safe)) + (cons __tmp64221 __tmp64216)))) + (declare (not safe)) + (cons '%#call __tmp64215)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64214 + _stx61711_))))) + (___kont6396563966_ (lambda () - (gxc#raise-compile-error - '"Illegal class mutator application" - _stx57976_)))) - (if (gx#stx-pair? ___stx6015760158_) - (let ((_e5800258024_ (gx#stx-e ___stx6015760158_))) - (let ((_tl5800458029_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal class mutator application" + _stx61711_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx6396163962_)) + (let ((_e6173961759_ + (let () + (declare (not safe)) + (gx#stx-e ___stx6396163962_)))) + (let ((_tl6173761764_ (let () (declare (not safe)) - (##cdr _e5800258024_))) - (_hd5800358027_ + (##cdr _e6173961759_))) + (_hd6173861762_ (let () (declare (not safe)) - (##car _e5800258024_)))) - (if (gx#stx-pair? _tl5800458029_) - (let ((_e5800558032_ - (gx#stx-e _tl5800458029_))) - (let ((_tl5800758037_ + (##car _e6173961759_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6173761764_)) + (let ((_e6174261767_ + (let () + (declare (not safe)) + (gx#stx-e _tl6173761764_)))) + (let ((_tl6174061772_ (let () (declare (not safe)) - (##cdr _e5800558032_))) - (_hd5800658035_ + (##cdr _e6174261767_))) + (_hd6174161770_ (let () (declare (not safe)) - (##car _e5800558032_)))) - (if (gx#stx-null? _tl5800758037_) - (___kont6015960160_ - _hd5800658035_ - _hd5800358027_) - (___kont6016160162_)))) - (___kont6016160162_)))) - (___kont6016160162_))))))) + (##car _e6174261767_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6174061772_)) + (___kont6396363964_ + _hd6174161770_ + _hd6173861762_) + (___kont6396563966_)))) + (___kont6396563966_)))) + (___kont6396563966_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self5797857986_ + _self6171361721_ 'gxc#!class-setf::t)) - (let* ((_e5798258068_ + (let* ((_e6171761803_ (let () (declare (not safe)) - (##vector-ref _self5797857986_ '1))) - (_class-t58071_ _e5798258068_) - (_e5798358073_ + (##vector-ref _self6171361721_ '1))) + (_class-t61806_ _e6171761803_) + (_e6171861808_ (let () (declare (not safe)) - (##vector-ref _self5797857986_ '2))) - (_slot58076_ _e5798358073_) - (_e5798458078_ + (##vector-ref _self6171361721_ '2))) + (_slot61811_ _e6171861808_) + (_e6171961813_ (let () (declare (not safe)) - (##vector-ref _self5797857986_ '3))) - (_unchecked?58081_ _e5798458078_)) - (_K5798158065_ _unchecked?58081_ _slot58076_ _class-t58071_)) - (_E5798057990_))))) - (bind-method! - gxc#!class-setf::t - 'optimize-call - gxc#!class-setf::optimize-call - '#f) + (##vector-ref _self6171361721_ '3))) + (_unchecked?61816_ _e6171961813_)) + (declare (not safe)) + (_K6171661800_ _unchecked?61816_ _slot61811_ _class-t61806_)) + (let () (declare (not safe)) (_E6171561725_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!class-setf::t + 'optimize-call + gxc#!class-setf::optimize-call + '#f)) (define gxc#!lambda::optimize-call - (lambda (_self57809_ _stx57810_ _args57811_) - (let* ((_self5781257821_ _self57809_) - (_E5781457825_ - (lambda () (error '"No clause matching" _self5781257821_))) - (_K5781557832_ - (lambda (_inline57828_ _dispatch57829_ _arity57830_) - (if (gxc#!lambda-arity-match? _self57809_ _args57811_) + (lambda (_self61544_ _stx61545_ _args61546_) + (let* ((_self6154761556_ _self61544_) + (_E6154961560_ + (lambda () (error '"No clause matching" _self6154761556_))) + (_K6155061567_ + (lambda (_inline61563_ _dispatch61564_ _arity61565_) + (if (let () + (declare (not safe)) + (gxc#!lambda-arity-match? _self61544_ _args61546_)) '#!void - (gxc#raise-compile-error - '"Illegal lambda application; arity mismatch" - _stx57810_ - _arity57830_)) - (if _inline57828_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal lambda application; arity mismatch" + _stx61545_ + _arity61565_))) + (if _inline61563_ (begin - (gxc#verbose '"inline lambda") - (gxc#compile-e - (gxc#xform-wrap-source - (_inline57828_ _stx57810_) - _stx57810_))) - (if _dispatch57829_ + (let () + (declare (not safe)) + (gxc#verbose '"inline lambda")) + (let ((__tmp64229 + (let ((__tmp64230 (_inline61563_ _stx61545_))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64230 + _stx61545_)))) + (declare (not safe)) + (gxc#compile-e __tmp64229))) + (if _dispatch61564_ (begin - (gxc#verbose - '"dispatch lambda => " - _dispatch57829_) - (gxc#compile-e - (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref - (cons _dispatch57829_ '())) - _args57811_)) - _stx57810_))) - (gxc#xform-call% _stx57810_)))))) + (let () + (declare (not safe)) + (gxc#verbose + '"dispatch lambda => " + _dispatch61564_)) + (let ((__tmp64224 + (let ((__tmp64225 + (let ((__tmp64226 + (let ((__tmp64227 + (let ((__tmp64228 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _dispatch61564_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64228)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp64227 + _args61546_)))) + (declare (not safe)) + (cons '%#call __tmp64226)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64225 + _stx61545_)))) + (declare (not safe)) + (gxc#compile-e __tmp64224))) + (let () + (declare (not safe)) + (gxc#xform-call% _stx61545_))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self5781257821_ 'gxc#!lambda::t)) - (let* ((_e5781657835_ + (##structure-instance-of? _self6154761556_ 'gxc#!lambda::t)) + (let* ((_e6155161570_ (let () (declare (not safe)) - (##vector-ref _self5781257821_ '1))) - (_e5781757838_ + (##vector-ref _self6154761556_ '1))) + (_e6155261573_ (let () (declare (not safe)) - (##vector-ref _self5781257821_ '2))) - (_arity57841_ _e5781757838_) - (_e5781857843_ + (##vector-ref _self6154761556_ '2))) + (_arity61576_ _e6155261573_) + (_e6155361578_ (let () (declare (not safe)) - (##vector-ref _self5781257821_ '3))) - (_dispatch57846_ _e5781857843_) - (_e5781957848_ + (##vector-ref _self6154761556_ '3))) + (_dispatch61581_ _e6155361578_) + (_e6155461583_ (let () (declare (not safe)) - (##vector-ref _self5781257821_ '4))) - (_inline57851_ _e5781957848_)) - (_K5781557832_ _inline57851_ _dispatch57846_ _arity57841_)) - (_E5781457825_))))) - (bind-method! gxc#!lambda::t 'optimize-call gxc#!lambda::optimize-call '#f) + (##vector-ref _self6154761556_ '4))) + (_inline61586_ _e6155461583_)) + (declare (not safe)) + (_K6155061567_ _inline61586_ _dispatch61581_ _arity61576_)) + (let () (declare (not safe)) (_E6154961560_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!lambda::t + 'optimize-call + gxc#!lambda::optimize-call + '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_self57648_ _stx57649_ _args57650_) - (let* ((_self5765157658_ _self57648_) - (_E5765357662_ - (lambda () (error '"No clause matching" _self5765157658_))) - (_K5765457676_ - (lambda (_clauses57665_) - (let ((_$e57671_ - (find (lambda (_g5766657668_) - (gxc#!lambda-arity-match? - _g5766657668_ - _args57650_)) - _clauses57665_))) - (if _$e57671_ - ((lambda (_clause57674_) - (let ((__method60306 - (method-ref _clause57674_ 'optimize-call))) - (if __method60306 - (__method60306 - _clause57674_ - _stx57649_ - _args57650_) + (lambda (_self61383_ _stx61384_ _args61385_) + (let* ((_self6138661393_ _self61383_) + (_E6138861397_ + (lambda () (error '"No clause matching" _self6138661393_))) + (_K6138961411_ + (lambda (_clauses61400_) + (let ((_$e61406_ + (let ((__tmp64231 + (lambda (_g6140161403_) + (let () + (declare (not safe)) + (gxc#!lambda-arity-match? + _g6140161403_ + _args61385_))))) + (declare (not safe)) + (find __tmp64231 _clauses61400_)))) + (if _$e61406_ + ((lambda (_clause61409_) + (let ((__method64110 + (let () + (declare (not safe)) + (method-ref + _clause61409_ + 'optimize-call)))) + (if __method64110 + (__method64110 + _clause61409_ + _stx61384_ + _args61385_) (error '"Missing method" - _clause57674_ + _clause61409_ 'optimize-call)))) - _$e57671_) - (gxc#raise-compile-error - '"Illegal case-lambda application; arity mismatch" - _stx57649_ - (map gxc#!lambda-arity _clauses57665_))))))) + _$e61406_) + (let ((__tmp64232 + (let () + (declare (not safe)) + (map gxc#!lambda-arity _clauses61400_)))) + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal case-lambda application; arity mismatch" + _stx61384_ + __tmp64232))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self5765157658_ + _self6138661393_ 'gxc#!case-lambda::t)) - (let* ((_e5765557679_ + (let* ((_e6139061414_ (let () (declare (not safe)) - (##vector-ref _self5765157658_ '1))) - (_e5765657682_ + (##vector-ref _self6138661393_ '1))) + (_e6139161417_ (let () (declare (not safe)) - (##vector-ref _self5765157658_ '2))) - (_clauses57685_ _e5765657682_)) - (_K5765457676_ _clauses57685_)) - (_E5765357662_))))) - (bind-method! - gxc#!case-lambda::t - 'optimize-call - gxc#!case-lambda::optimize-call - '#f) + (##vector-ref _self6138661393_ '2))) + (_clauses61420_ _e6139161417_)) + (declare (not safe)) + (_K6138961411_ _clauses61420_)) + (let () (declare (not safe)) (_E6138861397_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!case-lambda::t + 'optimize-call + gxc#!case-lambda::optimize-call + '#f)) (define gxc#!lambda-arity-match? - (lambda (_self57462_ _args57463_) - (let* ((_self5746457471_ _self57462_) - (_E5746657475_ - (lambda () (error '"No clause matching" _self5746457471_))) - (_K5746757515_ - (lambda (_arity57478_) - (let* ((_arity5747957488_ _arity57478_) - (_E5748257492_ + (lambda (_self61197_ _args61198_) + (let* ((_self6119961206_ _self61197_) + (_E6120161210_ + (lambda () (error '"No clause matching" _self6119961206_))) + (_K6120261250_ + (lambda (_arity61213_) + (let* ((_arity6121461223_ _arity61213_) + (_E6121761227_ (lambda () - (error '"No clause matching" _arity5747957488_)))) - (let ((_K5748657512_ - (lambda () (fx= (length _args57463_) _arity57478_))) - (_K5748357498_ - (lambda (_arity57496_) - (fx>= (length _args57463_) _arity57496_)))) - (let ((_try-match5748157508_ + (error '"No clause matching" _arity6121461223_)))) + (let ((_K6122161247_ + (lambda () (fx= (length _args61198_) _arity61213_))) + (_K6121861233_ + (lambda (_arity61231_) + (fx>= (length _args61198_) _arity61231_)))) + (let ((_try-match6121661243_ (lambda () (if (let () (declare (not safe)) - (##pair? _arity5747957488_)) - (let ((_tl5748557503_ + (##pair? _arity6121461223_)) + (let ((_tl6122061238_ (let () (declare (not safe)) - (##cdr _arity5747957488_))) - (_hd5748457501_ + (##cdr _arity6121461223_))) + (_hd6121961236_ (let () (declare (not safe)) - (##car _arity5747957488_)))) + (##car _arity6121461223_)))) (if (let () (declare (not safe)) - (##null? _tl5748557503_)) - (let ((_arity57506_ _hd5748457501_)) - (_K5748357498_ _arity57506_)) - (_E5748257492_))) - (_E5748257492_))))) - (if (fixnum? _arity5747957488_) - (_K5748657512_) - (_try-match5748157508_)))))))) + (##null? _tl6122061238_)) + (let ((_arity61241_ _hd6121961236_)) + (declare (not safe)) + (_K6121861233_ _arity61241_)) + (let () + (declare (not safe)) + (_E6121761227_)))) + (let () + (declare (not safe)) + (_E6121761227_)))))) + (if (let () + (declare (not safe)) + (fixnum? _arity6121461223_)) + (let () (declare (not safe)) (_K6122161247_)) + (let () + (declare (not safe)) + (_try-match6121661243_))))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self5746457471_ 'gxc#!lambda::t)) - (let* ((_e5746857518_ + (##structure-instance-of? _self6119961206_ 'gxc#!lambda::t)) + (let* ((_e6120361253_ (let () (declare (not safe)) - (##vector-ref _self5746457471_ '1))) - (_e5746957521_ + (##vector-ref _self6119961206_ '1))) + (_e6120461256_ (let () (declare (not safe)) - (##vector-ref _self5746457471_ '2))) - (_arity57524_ _e5746957521_)) - (_K5746757515_ _arity57524_)) - (_E5746657475_))))) + (##vector-ref _self6119961206_ '2))) + (_arity61259_ _e6120461256_)) + (declare (not safe)) + (_K6120261250_ _arity61259_)) + (let () (declare (not safe)) (_E6120161210_)))))) (define gxc#!kw-lambda::optimize-call - (lambda (_self57347_ _stx57348_ _args57349_) - (let* ((_self5735057358_ _self57347_) - (_E5735257362_ - (lambda () (error '"No clause matching" _self5735057358_))) - (_K5735357446_ - (lambda (_dispatch57365_ _table57366_) - (let* ((_g5736757376_ - (gxc#optimizer-lookup-type _dispatch57365_)) - (_else5736957384_ + (lambda (_self61082_ _stx61083_ _args61084_) + (let* ((_self6108561093_ _self61082_) + (_E6108761097_ + (lambda () (error '"No clause matching" _self6108561093_))) + (_K6108861181_ + (lambda (_dispatch61100_ _table61101_) + (let* ((_g6110261111_ + (let () + (declare (not safe)) + (gxc#optimizer-lookup-type _dispatch61100_))) + (_else6110461119_ (lambda () - (gxc#verbose - '"unknown keyword dispatch lambda " - _dispatch57365_) - (gxc#xform-call% _stx57348_))) - (_K5737157430_ - (lambda (_main57387_ _keys57388_) - (let ((_g60307_ - (gxc#!kw-lambda-split-args - _stx57348_ - _args57349_))) + (let () + (declare (not safe)) + (gxc#verbose + '"unknown keyword dispatch lambda " + _dispatch61100_)) + (let () + (declare (not safe)) + (gxc#xform-call% _stx61083_)))) + (_K6110661165_ + (lambda (_main61122_ _keys61123_) + (let ((_g64233_ + (let () + (declare (not safe)) + (gxc#!kw-lambda-split-args + _stx61083_ + _args61084_)))) (begin - (let ((_g60308_ + (let ((_g64234_ (let () (declare (not safe)) - (if (##values? _g60307_) - (##vector-length _g60307_) + (if (##values? _g64233_) + (##vector-length _g64233_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g60308_ 2))) + (##fx= _g64234_ 2))) (error "Context expects 2 values" - _g60308_))) - (let ((_pargs57390_ + _g64234_))) + (let ((_pargs61125_ (let () (declare (not safe)) - (##vector-ref _g60307_ 0))) - (_kwargs57391_ + (##vector-ref _g64233_ 0))) + (_kwargs61126_ (let () (declare (not safe)) - (##vector-ref _g60307_ 1)))) + (##vector-ref _g64233_ 1)))) (begin - (gxc#verbose - '"dispatch kw-lambda => " - _main57387_) - (if _table57366_ - (let ((_xargs57398_ - (map (lambda (_key57393_) - (let ((_$e57395_ - (assgetq _key57393_ + (let () + (declare (not safe)) + (gxc#verbose + '"dispatch kw-lambda => " + _main61122_)) + (if _table61101_ + (let ((_xargs61133_ + (let ((__tmp64289 + (lambda (_key61128_) + (let ((_$e61130_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _kwargs57391_))) - (if _$e57395_ (values _$e57395_) '(%#ref absent-value)))) + (declare (not safe)) + (assgetq _key61128_ _kwargs61126_)))) + (if _$e61130_ (values _$e61130_) '(%#ref absent-value)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys57388_))) - (for-each - (lambda (_kw57400_) - (if (memq (car _kw57400_) - _keys57388_) - '#!void - (gxc#raise-compile-error - '"Illegal keyword lambda application; unexpected keyword" - _stx57348_ - _keys57388_ - _kw57400_))) - _kwargs57391_) - (gxc#compile-e - (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref - (cons _main57387_ + (declare (not safe)) + (map __tmp64289 + _keys61123_)))) + (let ((__tmp64290 + (lambda (_kw61135_) + (if (let ((__tmp64291 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '%#quote (cons '#f '())) - (foldr1 cons _pargs57390_ _xargs57398_)))) + (not safe)) + (car _kw61135_)))) + (declare (not safe)) + (memq __tmp64291 _keys61123_)) + '#!void + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal keyword lambda application; unexpected keyword" + _stx61083_ + _keys61123_ + _kw61135_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx57348_))) - (let* ((_kwt57402_ - (make-symbol (gensym '__kwt))) - (_kwvars57405_ - (map (lambda (_g60309_) - (make-symbol - (gensym '__kw))) - _kwargs57391_)) - (_kwbind57410_ - (map (lambda (_kw57407_ - _kwvar57408_) - (cons (cons _kwvar57408_ + (declare (not safe)) + (for-each + __tmp64290 + _kwargs61126_)) + (let ((__tmp64292 + (let ((__tmp64293 + (let ((__tmp64294 + (let ((__tmp64299 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (cdr _kw57407_) '()))) + (let ((__tmp64300 + (let () + (declare (not safe)) + (cons _main61122_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64300))) + (__tmp64295 + (let ((__tmp64297 + (let ((__tmp64298 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons '%#quote __tmp64298))) + (__tmp64296 + (let () + (declare (not safe)) + (foldr1 cons + _pargs61125_ + _xargs61133_)))) + (declare (not safe)) + (cons __tmp64297 __tmp64296)))) + (declare (not safe)) + (cons __tmp64299 __tmp64295)))) + (declare (not safe)) + (cons '%#call __tmp64294)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs57391_ - _kwvars57405_)) - (_kwset57415_ - (map (lambda (_kw57412_ - _kwvar57413_) - (cons '%#call - (cons '(%#ref hash-put!) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64293 + _stx61083_)))) + (declare (not safe)) + (gxc#compile-e __tmp64292))) + (let* ((_kwt61137_ + (make-symbol + (let () + (declare (not safe)) + (gensym '__kwt)))) + (_kwvars61140_ + (let ((__tmp64235 + (lambda (_g64236_) + (make-symbol + (let () + (declare + (not safe)) + (gensym '__kw)))))) + (declare (not safe)) + (map __tmp64235 + _kwargs61126_))) + (_kwbind61145_ + (let ((__tmp64237 + (lambda (_kw61142_ + _kwvar61143_) + (let ((__tmp64240 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _kwvar61143_ '()))) + (__tmp64238 + (let ((__tmp64239 + (let () (declare (not safe)) (cdr _kw61142_)))) + (declare (not safe)) + (cons __tmp64239 '())))) + (declare (not safe)) + (cons __tmp64240 __tmp64238))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (map __tmp64237 + _kwargs61126_ + _kwvars61140_))) + (_kwset61150_ + (let ((__tmp64241 + (lambda (_kw61147_ + _kwvar61148_) + (let ((__tmp64242 + (let ((__tmp64243 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '%#ref (cons _kwt57402_ '())) - (cons (cons '%#quote - (cons (car _kw57412_) '())) - (cons (cons '%#ref - (cons _kwvar57413_ '())) - '())))))) + (let ((__tmp64251 + (let ((__tmp64252 + (let () + (declare (not safe)) + (cons _kwt61137_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64252))) + (__tmp64244 + (let ((__tmp64248 + (let ((__tmp64249 + (let ((__tmp64250 + (let () + (declare + (not safe)) + (car _kw61147_)))) + (declare (not safe)) + (cons __tmp64250 '())))) + (declare (not safe)) + (cons '%#quote __tmp64249))) + (__tmp64245 + (let ((__tmp64246 + (let ((__tmp64247 + (let () + (declare + (not safe)) + (cons _kwvar61148_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons '%#ref __tmp64247)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp64246 '())))) + (declare (not safe)) + (cons __tmp64248 __tmp64245)))) + (declare (not safe)) + (cons __tmp64251 __tmp64244)))) + (declare (not safe)) + (cons '(%#ref hash-put!) __tmp64243)))) + (declare (not safe)) + (cons '%#call __tmp64242))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs57391_ - _kwvars57405_)) - (_xkwargs57420_ - (map (lambda (_kw57417_ - _kwvar57418_) - (cons (car _kw57417_) - (cons '%#ref + (declare (not safe)) + (map __tmp64241 + _kwargs61126_ + _kwvars61140_))) + (_xkwargs61155_ + (let ((__tmp64253 + (lambda (_kw61152_ + _kwvar61153_) + (let ((__tmp64256 + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _kwvar57418_ '())))) + (declare (not safe)) + (car _kw61152_))) + (__tmp64254 + (let ((__tmp64255 + (let () + (declare (not safe)) + (cons _kwvar61153_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64255)))) + (declare (not safe)) + (cons __tmp64256 __tmp64254))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs57391_ - _kwvars57405_)) - (_xargs57427_ - (map (lambda (_key57422_) - (let ((_$e57424_ - (assgetq _key57422_ + (declare (not safe)) + (map __tmp64253 + _kwargs61126_ + _kwvars61140_))) + (_xargs61162_ + (let ((__tmp64257 + (lambda (_key61157_) + (let ((_$e61159_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xkwargs57420_))) - (if _$e57424_ (values _$e57424_) '(%#ref absent-value)))) + (declare (not safe)) + (assgetq _key61157_ _xkwargs61155_)))) + (if _$e61159_ (values _$e61159_) '(%#ref absent-value)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys57388_))) - (gxc#compile-e - (gxc#xform-wrap-source - (cons '%#let-values - (cons _kwbind57410_ - (cons (cons '%#let-values + (declare (not safe)) + (map __tmp64257 + _keys61123_)))) + (let ((__tmp64258 + (let ((__tmp64259 + (let ((__tmp64260 + (let ((__tmp64261 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp64262 + (let ((__tmp64263 + (let ((__tmp64277 + (let ((__tmp64278 + (let ((__tmp64288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _kwt57402_ '()) - (cons (gxc#xform-wrap-source - (cons '%#call - (cons '(%#ref make-hash-table-eq) + (let () (declare (not safe)) (cons _kwt61137_ '()))) + (__tmp64279 + (let ((__tmp64280 + (let ((__tmp64281 + (let ((__tmp64282 + (let ((__tmp64283 + (let ((__tmp64284 + (let ((__tmp64285 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '(%#quote size:) - (cons (cons '%#quote - (cons (length _kwargs57391_) '())) - '())))) + (let ((__tmp64286 + (let ((__tmp64287 (length _kwargs61126_))) + (declare (not safe)) + (cons __tmp64287 '())))) + (declare (not safe)) + (cons '%#quote __tmp64286)))) + (declare (not safe)) + (cons __tmp64285 '())))) + (declare (not safe)) + (cons '(%#quote size:) __tmp64284)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '(%#ref make-hash-table-eq) + __tmp64283)))) + (declare (not safe)) + (cons '%#call __tmp64282)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64281 + _stx61083_)))) + (declare (not safe)) + (cons __tmp64280 '())))) + (declare (not safe)) + (cons __tmp64288 __tmp64279)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx57348_) - '())) - '()) - (cons (cons '%#begin - (foldr1 cons - (cons (gxc#xform-wrap-source - (cons '%#call + (declare (not safe)) + (cons __tmp64278 '()))) + (__tmp64264 + (let ((__tmp64265 + (let ((__tmp64266 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '%#ref (cons _main57387_ '())) - (cons (cons '%#ref (cons _kwt57402_ '())) - (foldr1 cons - _pargs57390_ - _xargs57427_)))) - _stx57348_) - '()) - _kwset57415_)) + (let ((__tmp64267 + (let ((__tmp64268 + (let ((__tmp64269 + (let ((__tmp64270 + (let ((__tmp64275 + (let ((__tmp64276 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _main61122_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64276))) + (__tmp64271 + (let ((__tmp64273 + (let ((__tmp64274 + (let () + (declare (not safe)) + (cons _kwt61137_ '())))) + (declare (not safe)) + (cons '%#ref __tmp64274))) + (__tmp64272 + (let () + (declare (not safe)) + (foldr1 cons _pargs61125_ _xargs61162_)))) + (declare (not safe)) + (cons __tmp64273 __tmp64272)))) + (declare (not safe)) + (cons __tmp64275 __tmp64271)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#call __tmp64270)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64269 + _stx61083_)))) + (declare (not safe)) + (cons __tmp64268 '())))) + (declare (not safe)) + (foldr1 cons __tmp64267 _kwset61150_)))) + (declare (not safe)) + (cons '%#begin __tmp64266)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) + (declare (not safe)) + (cons __tmp64265 '())))) + (declare (not safe)) + (cons __tmp64277 __tmp64264)))) + (declare (not safe)) + (cons '%#let-values __tmp64263)))) + (declare (not safe)) + (cons __tmp64262 '())))) + (declare (not safe)) + (cons _kwbind61145_ __tmp64261)))) + (declare (not safe)) + (cons '%#let-values __tmp64260)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx57348_))))))))))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp64259 + _stx61083_)))) + (declare (not safe)) + (gxc#compile-e + __tmp64258))))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g5736757376_ + _g6110261111_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e5737257433_ + (let* ((_e6110761168_ (let () (declare (not safe)) - (##vector-ref _g5736757376_ '1))) - (_e5737357436_ + (##vector-ref _g6110261111_ '1))) + (_e6110861171_ (let () (declare (not safe)) - (##vector-ref _g5736757376_ '2))) - (_keys57439_ _e5737357436_) - (_e5737457441_ + (##vector-ref _g6110261111_ '2))) + (_keys61174_ _e6110861171_) + (_e6110961176_ (let () (declare (not safe)) - (##vector-ref _g5736757376_ '3))) - (_main57444_ _e5737457441_)) - (_K5737157430_ _main57444_ _keys57439_)) - (_else5736957384_)))))) + (##vector-ref _g6110261111_ '3))) + (_main61179_ _e6110961176_)) + (declare (not safe)) + (_K6110661165_ _main61179_ _keys61174_)) + (let () (declare (not safe)) (_else6110461119_))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self5735057358_ 'gxc#!kw-lambda::t)) - (let* ((_e5735457449_ + (##structure-instance-of? _self6108561093_ 'gxc#!kw-lambda::t)) + (let* ((_e6108961184_ (let () (declare (not safe)) - (##vector-ref _self5735057358_ '1))) - (_e5735557452_ + (##vector-ref _self6108561093_ '1))) + (_e6109061187_ (let () (declare (not safe)) - (##vector-ref _self5735057358_ '2))) - (_table57455_ _e5735557452_) - (_e5735657457_ + (##vector-ref _self6108561093_ '2))) + (_table61190_ _e6109061187_) + (_e6109161192_ (let () (declare (not safe)) - (##vector-ref _self5735057358_ '3))) - (_dispatch57460_ _e5735657457_)) - (_K5735357446_ _dispatch57460_ _table57455_)) - (_E5735257362_))))) - (bind-method! - gxc#!kw-lambda::t - 'optimize-call - gxc#!kw-lambda::optimize-call - '#f) + (##vector-ref _self6108561093_ '3))) + (_dispatch61195_ _e6109161192_)) + (declare (not safe)) + (_K6108861181_ _dispatch61195_ _table61190_)) + (let () (declare (not safe)) (_E6108761097_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!kw-lambda::t + 'optimize-call + gxc#!kw-lambda::optimize-call + '#f)) (define gxc#!kw-lambda-split-args - (lambda (_stx56960_ _args56961_) - (let _lp56963_ ((_rest56965_ _args56961_) - (_pargs56966_ '()) - (_kwargs56967_ '())) - (let* ((___stx6018860189_ _rest56965_) - (_g5697357025_ + (lambda (_stx60695_ _args60696_) + (let _lp60698_ ((_rest60700_ _args60696_) + (_pargs60701_ '()) + (_kwargs60702_ '())) + (let* ((___stx6399263993_ _rest60700_) + (_g6070860760_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx6018860189_)))) - (let ((___kont6019060191_ - (lambda (_L57204_ _L57205_) - (_lp56963_ - _L57204_ - (cons _L57205_ _pargs56966_) - _kwargs56967_))) - (___kont6019260193_ - (lambda (_L57150_) - (values (foldl1 cons _L57150_ _pargs56966_) - (reverse _kwargs56967_)))) - (___kont6019460195_ - (lambda (_L57097_ _L57098_ _L57099_) - (let ((_kw57116_ (gx#stx-e _L57099_))) - (if (assq _kw57116_ _kwargs56967_) - (gxc#raise-compile-error - '"Illegal keyword lambda application; duplicate keyword" - _stx56960_ - _kw57116_) - (_lp56963_ - _L57097_ - _pargs56966_ - (cons (cons _kw57116_ _L57098_) _kwargs56967_)))))) - (___kont6019660197_ - (lambda (_L57045_ _L57046_) - (_lp56963_ - _L57045_ - (cons _L57046_ _pargs56966_) - _kwargs56967_))) - (___kont6019860199_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx6399263993_))))) + (let ((___kont6399463995_ + (lambda (_L60939_ _L60940_) + (let ((__tmp64301 + (let () + (declare (not safe)) + (cons _L60940_ _pargs60701_)))) + (declare (not safe)) + (_lp60698_ _L60939_ __tmp64301 _kwargs60702_)))) + (___kont6399663997_ + (lambda (_L60885_) + (values (let () + (declare (not safe)) + (foldl1 cons _L60885_ _pargs60701_)) + (let () + (declare (not safe)) + (reverse _kwargs60702_))))) + (___kont6399863999_ + (lambda (_L60832_ _L60833_ _L60834_) + (let ((_kw60851_ + (let () (declare (not safe)) (gx#stx-e _L60834_)))) + (if (let () + (declare (not safe)) + (assq _kw60851_ _kwargs60702_)) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal keyword lambda application; duplicate keyword" + _stx60695_ + _kw60851_)) + (let ((__tmp64302 + (let ((__tmp64303 + (let () + (declare (not safe)) + (cons _kw60851_ _L60833_)))) + (declare (not safe)) + (cons __tmp64303 _kwargs60702_)))) + (declare (not safe)) + (_lp60698_ _L60832_ _pargs60701_ __tmp64302)))))) + (___kont6400064001_ + (lambda (_L60780_ _L60781_) + (let ((__tmp64304 + (let () + (declare (not safe)) + (cons _L60781_ _pargs60701_)))) + (declare (not safe)) + (_lp60698_ _L60780_ __tmp64304 _kwargs60702_)))) + (___kont6400264003_ (lambda () - (values (reverse _pargs56966_) (reverse _kwargs56967_))))) - (let* ((_g5697257032_ + (values (let () + (declare (not safe)) + (reverse _pargs60701_)) + (let () + (declare (not safe)) + (reverse _kwargs60702_)))))) + (let* ((_g6070760767_ (lambda () - (if (gx#stx-null? ___stx6018860189_) - (___kont6019860199_) - (_g5697357025_)))) - (___match6029560296_ - (lambda (_e5700457065_ - _hd5700557068_ - _tl5700657070_ - _e5700757073_ - _hd5700857076_ - _tl5700957078_ - _e5701057081_ - _hd5701157084_ - _tl5701257086_ - _e5701357089_ - _hd5701457092_ - _tl5701557094_) - (let ((_L57097_ _tl5701557094_) - (_L57098_ _hd5701457092_) - (_L57099_ _hd5701157084_)) - (if (gx#stx-keyword? _L57099_) - (___kont6019460195_ _L57097_ _L57098_ _L57099_) - (___kont6019660197_ - _tl5700657070_ - _hd5700557068_)))))) - (if (gx#stx-pair? ___stx6018860189_) - (let ((_e5697757169_ (gx#stx-e ___stx6018860189_))) - (let ((_tl5697957174_ + (if (let () + (declare (not safe)) + (gx#stx-null? ___stx6399263993_)) + (___kont6400264003_) + (let () (declare (not safe)) (_g6070860760_))))) + (___match6409964100_ + (lambda (_e6074160800_ + _hd6074060803_ + _tl6073960805_ + _e6074460808_ + _hd6074360811_ + _tl6074260813_ + _e6074760816_ + _hd6074660819_ + _tl6074560821_ + _e6075060824_ + _hd6074960827_ + _tl6074860829_) + (let ((_L60832_ _tl6074860829_) + (_L60833_ _hd6074960827_) + (_L60834_ _hd6074660819_)) + (if (let () + (declare (not safe)) + (gx#stx-keyword? _L60834_)) + (___kont6399863999_ _L60832_ _L60833_ _L60834_) + (___kont6400064001_ + _tl6073960805_ + _hd6074060803_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx6399263993_)) + (let ((_e6071460904_ + (let () + (declare (not safe)) + (gx#stx-e ___stx6399263993_)))) + (let ((_tl6071260909_ (let () (declare (not safe)) - (##cdr _e5697757169_))) - (_hd5697857172_ + (##cdr _e6071460904_))) + (_hd6071360907_ (let () (declare (not safe)) - (##car _e5697757169_)))) - (if (gx#stx-pair? _hd5697857172_) - (let ((_e5698057177_ (gx#stx-e _hd5697857172_))) - (let ((_tl5698257182_ + (##car _e6071460904_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd6071360907_)) + (let ((_e6071760912_ + (let () + (declare (not safe)) + (gx#stx-e _hd6071360907_)))) + (let ((_tl6071560917_ (let () (declare (not safe)) - (##cdr _e5698057177_))) - (_hd5698157180_ + (##cdr _e6071760912_))) + (_hd6071660915_ (let () (declare (not safe)) - (##car _e5698057177_)))) - (if (gx#identifier? _hd5698157180_) - (if (gx#stx-eq? '%#quote _hd5698157180_) - (if (gx#stx-pair? _tl5698257182_) - (let ((_e5698357185_ - (gx#stx-e _tl5698257182_))) - (let ((_tl5698557190_ + (##car _e6071760912_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd6071660915_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd6071660915_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6071560917_)) + (let ((_e6072060920_ + (let () + (declare (not safe)) + (gx#stx-e + _tl6071560917_)))) + (let ((_tl6071860925_ (let () (declare (not safe)) - (##cdr _e5698357185_))) - (_hd5698457188_ + (##cdr _e6072060920_))) + (_hd6071960923_ (let () (declare (not safe)) - (##car _e5698357185_)))) - (if (gx#stx-datum? - _hd5698457188_) - (let ((_e5698657193_ - (gx#stx-e - _hd5698457188_))) - (if (equal? _e5698657193_ + (##car _e6072060920_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? + _hd6071960923_)) + (let ((_e6072160928_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd6071960923_)))) + (if (let () + (declare + (not safe)) + (equal? _e6072160928_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#!key) - (if (gx#stx-null? _tl5698557190_) - (if (gx#stx-pair? _tl5697957174_) - (let ((_e5698757196_ (gx#stx-e _tl5697957174_))) - (let ((_tl5698957201_ + '#!key)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6071860925_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6071260909_)) + (let ((_e6072460931_ + (let () + (declare (not safe)) + (gx#stx-e _tl6071260909_)))) + (let ((_tl6072260936_ (let () (declare (not safe)) - (##cdr _e5698757196_))) - (_hd5698857199_ + (##cdr _e6072460931_))) + (_hd6072360934_ (let () (declare (not safe)) - (##car _e5698757196_)))) - (___kont6019060191_ - _tl5698957201_ - _hd5698857199_))) - (___kont6019660197_ _tl5697957174_ _hd5697857172_)) - (___kont6019660197_ _tl5697957174_ _hd5697857172_)) - (if (equal? _e5698657193_ '#!rest) - (if (gx#stx-null? _tl5698557190_) - (___kont6019260193_ _tl5697957174_) - (___kont6019660197_ _tl5697957174_ _hd5697857172_)) - (if (gx#stx-null? _tl5698557190_) - (if (gx#stx-pair? _tl5697957174_) - (let ((_e5701357089_ (gx#stx-e _tl5697957174_))) - (let ((_tl5701557094_ + (##car _e6072460931_)))) + (___kont6399463995_ + _tl6072260936_ + _hd6072360934_))) + (___kont6400064001_ _tl6071260909_ _hd6071360907_)) + (___kont6400064001_ _tl6071260909_ _hd6071360907_)) + (if (let () + (declare (not safe)) + (equal? _e6072160928_ '#!rest)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6071860925_)) + (___kont6399663997_ _tl6071260909_) + (___kont6400064001_ _tl6071260909_ _hd6071360907_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6071860925_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6071260909_)) + (let ((_e6075060824_ + (let () + (declare (not safe)) + (gx#stx-e _tl6071260909_)))) + (let ((_tl6074860829_ (let () (declare (not safe)) - (##cdr _e5701357089_))) - (_hd5701457092_ + (##cdr _e6075060824_))) + (_hd6074960827_ (let () (declare (not safe)) - (##car _e5701357089_)))) - (___match6029560296_ - _e5697757169_ - _hd5697857172_ - _tl5697957174_ - _e5698057177_ - _hd5698157180_ - _tl5698257182_ - _e5698357185_ - _hd5698457188_ - _tl5698557190_ - _e5701357089_ - _hd5701457092_ - _tl5701557094_))) - (___kont6019660197_ - _tl5697957174_ - _hd5697857172_)) - (___kont6019660197_ - _tl5697957174_ - _hd5697857172_))))) + (##car _e6075060824_)))) + (___match6409964100_ + _e6071460904_ + _hd6071360907_ + _tl6071260909_ + _e6071760912_ + _hd6071660915_ + _tl6071560917_ + _e6072060920_ + _hd6071960923_ + _tl6071860925_ + _e6075060824_ + _hd6074960827_ + _tl6074860829_))) + (___kont6400064001_ + _tl6071260909_ + _hd6071360907_)) + (___kont6400064001_ + _tl6071260909_ + _hd6071360907_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? - _tl5698557190_) - (if (gx#stx-pair? - _tl5697957174_) - (let ((_e5701357089_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6071860925_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl6071260909_)) + (let ((_e6075060824_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl5697957174_))) - (let ((_tl5701557094_ + (let () + (declare (not safe)) + (gx#stx-e _tl6071260909_)))) + (let ((_tl6074860829_ (let () (declare (not safe)) - (##cdr _e5701357089_))) - (_hd5701457092_ + (##cdr _e6075060824_))) + (_hd6074960827_ (let () (declare (not safe)) - (##car _e5701357089_)))) - (___match6029560296_ - _e5697757169_ - _hd5697857172_ - _tl5697957174_ - _e5698057177_ - _hd5698157180_ - _tl5698257182_ - _e5698357185_ - _hd5698457188_ - _tl5698557190_ - _e5701357089_ - _hd5701457092_ - _tl5701557094_))) - (___kont6019660197_ _tl5697957174_ _hd5697857172_)) - (___kont6019660197_ _tl5697957174_ _hd5697857172_))))) + (##car _e6075060824_)))) + (___match6409964100_ + _e6071460904_ + _hd6071360907_ + _tl6071260909_ + _e6071760912_ + _hd6071660915_ + _tl6071560917_ + _e6072060920_ + _hd6071960923_ + _tl6071860925_ + _e6075060824_ + _hd6074960827_ + _tl6074860829_))) + (___kont6400064001_ _tl6071260909_ _hd6071360907_)) + (___kont6400064001_ _tl6071260909_ _hd6071360907_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont6019660197_ - _tl5697957174_ - _hd5697857172_)) - (___kont6019660197_ - _tl5697957174_ - _hd5697857172_)) - (___kont6019660197_ - _tl5697957174_ - _hd5697857172_)))) - (___kont6019660197_ - _tl5697957174_ - _hd5697857172_)))) - (_g5697257032_)))))))) + (___kont6400064001_ + _tl6071260909_ + _hd6071360907_)) + (___kont6400064001_ + _tl6071260909_ + _hd6071360907_)) + (___kont6400064001_ + _tl6071260909_ + _hd6071360907_)))) + (___kont6400064001_ + _tl6071260909_ + _hd6071360907_)))) + (let () (declare (not safe)) (_g6070760767_))))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_self56956_ _stx56957_ _args56958_) - (gxc#xform-call% _stx56957_))) - (bind-method! - gxc#!kw-lambda-primary::t - 'optimize-call - gxc#!kw-lambda-primary::optimize-call - '#f))) + (lambda (_self60691_ _stx60692_ _args60693_) + (let () (declare (not safe)) (gxc#xform-call% _stx60692_)))) + (let () + (declare (not safe)) + (bind-method! + gxc#!kw-lambda-primary::t + 'optimize-call + gxc#!kw-lambda-primary::optimize-call + '#f)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm index 914b532bd..01ab89ad6 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm @@ -1,7879 +1,11369 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1695199293) + (define gerbil/compiler/optimize-spec::timestamp 1695292407) (begin (define gxc#&generate-method-specializers - (make-promise - (lambda () - (let ((_tbl40989_ (make-table 'test: eq?))) - (hash-copy! _tbl40989_ (force gxc#&identity)) - (table-set! _tbl40989_ '%#begin gxc#xform-begin%) - (table-set! _tbl40989_ '%#begin-syntax gxc#xform-begin-syntax%) - (table-set! _tbl40989_ '%#module gxc#xform-module%) - (table-set! - _tbl40989_ - '%#define-values - gxc#generate-method-specializers-define-values%) - _tbl40989_)))) + (let ((__tmp45155 + (lambda () + (let ((_tbl43551_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp45156 + (let () (declare (not safe)) (force gxc#&identity)))) + (declare (not safe)) + (hash-copy! _tbl43551_ __tmp45156)) + (let () + (declare (not safe)) + (table-set! _tbl43551_ '%#begin gxc#xform-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl43551_ + '%#begin-syntax + gxc#xform-begin-syntax%)) + (let () + (declare (not safe)) + (table-set! _tbl43551_ '%#module gxc#xform-module%)) + (let () + (declare (not safe)) + (table-set! + _tbl43551_ + '%#define-values + gxc#generate-method-specializers-define-values%)) + _tbl43551_)))) + (declare (not safe)) + (make-promise __tmp45155))) (define gxc#apply-generate-method-specializers - (lambda (_stx40982_ . _args40984_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx40982_ _args40984_)) - gxc#current-compile-methods - (force gxc#&generate-method-specializers)))) + (lambda (_stx43544_ . _args43546_) + (let ((__tmp45158 + (lambda () (apply gxc#compile-e _stx43544_ _args43546_))) + (__tmp45157 + (let () + (declare (not safe)) + (force gxc#&generate-method-specializers)))) + (declare (not safe)) + (call-with-parameters + __tmp45158 + gxc#current-compile-methods + __tmp45157)))) (define gxc#&collect-object-refs - (make-promise - (lambda () - (let ((_tbl40979_ (make-table 'test: eq?))) - (hash-copy! _tbl40979_ (force gxc#&void)) - (table-set! _tbl40979_ '%#begin gxc#collect-begin%) - (table-set! - _tbl40979_ - '%#begin-annotation - gxc#collect-begin-annotation%) - (table-set! _tbl40979_ '%#lambda gxc#collect-body-lambda%) - (table-set! _tbl40979_ '%#case-lambda gxc#collect-body-case-lambda%) - (table-set! _tbl40979_ '%#let-values gxc#collect-body-let-values%) - (table-set! - _tbl40979_ - '%#letrec-values - gxc#collect-body-let-values%) - (table-set! - _tbl40979_ - '%#letrec-values* - gxc#collect-body-let-values%) - (table-set! _tbl40979_ '%#call gxc#collect-object-refs-call%) - (table-set! _tbl40979_ '%#if gxc#collect-operands) - (table-set! _tbl40979_ '%#set! gxc#collect-body-setq%) - (table-set! _tbl40979_ '%#struct-ref gxc#collect-operands) - (table-set! _tbl40979_ '%#struct-set! gxc#collect-operands) - (table-set! _tbl40979_ '%#struct-direct-ref gxc#collect-operands) - (table-set! _tbl40979_ '%#struct-direct-set! gxc#collect-operands) - (table-set! _tbl40979_ '%#struct-unchecked-ref gxc#collect-operands) - (table-set! - _tbl40979_ - '%#struct-unchecked-set! - gxc#collect-operands) - _tbl40979_)))) + (let ((__tmp45159 + (lambda () + (let ((_tbl43541_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp45160 + (let () (declare (not safe)) (force gxc#&void)))) + (declare (not safe)) + (hash-copy! _tbl43541_ __tmp45160)) + (let () + (declare (not safe)) + (table-set! _tbl43541_ '%#begin gxc#collect-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl43541_ + '%#begin-annotation + gxc#collect-begin-annotation%)) + (let () + (declare (not safe)) + (table-set! _tbl43541_ '%#lambda gxc#collect-body-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl43541_ + '%#case-lambda + gxc#collect-body-case-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl43541_ + '%#let-values + gxc#collect-body-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl43541_ + '%#letrec-values + gxc#collect-body-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl43541_ + '%#letrec-values* + gxc#collect-body-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl43541_ + '%#call + gxc#collect-object-refs-call%)) + (let () + (declare (not safe)) + (table-set! _tbl43541_ '%#if gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! _tbl43541_ '%#set! gxc#collect-body-setq%)) + (let () + (declare (not safe)) + (table-set! _tbl43541_ '%#struct-ref gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! _tbl43541_ '%#struct-set! gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl43541_ + '%#struct-direct-ref + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl43541_ + '%#struct-direct-set! + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl43541_ + '%#struct-unchecked-ref + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl43541_ + '%#struct-unchecked-set! + gxc#collect-operands)) + _tbl43541_)))) + (declare (not safe)) + (make-promise __tmp45159))) (define gxc#apply-collect-object-refs - (lambda (_stx40972_ . _args40974_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx40972_ _args40974_)) - gxc#current-compile-methods - (force gxc#&collect-object-refs)))) + (lambda (_stx43534_ . _args43536_) + (let ((__tmp45162 + (lambda () (apply gxc#compile-e _stx43534_ _args43536_))) + (__tmp45161 + (let () (declare (not safe)) (force gxc#&collect-object-refs)))) + (declare (not safe)) + (call-with-parameters + __tmp45162 + gxc#current-compile-methods + __tmp45161)))) (define gxc#&subst-object-refs - (make-promise - (lambda () - (let ((_tbl40969_ (make-table 'test: eq?))) - (hash-copy! _tbl40969_ (force gxc#&basic-xform-expression)) - (table-set! _tbl40969_ '%#begin gxc#xform-begin%) - (table-set! _tbl40969_ '%#call gxc#subst-object-refs-call%) - _tbl40969_)))) + (let ((__tmp45163 + (lambda () + (let ((_tbl43531_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp45164 + (let () + (declare (not safe)) + (force gxc#&basic-xform-expression)))) + (declare (not safe)) + (hash-copy! _tbl43531_ __tmp45164)) + (let () + (declare (not safe)) + (table-set! _tbl43531_ '%#begin gxc#xform-begin%)) + (let () + (declare (not safe)) + (table-set! _tbl43531_ '%#call gxc#subst-object-refs-call%)) + _tbl43531_)))) + (declare (not safe)) + (make-promise __tmp45163))) (define gxc#apply-subst-object-refs - (lambda (_stx40962_ . _args40964_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx40962_ _args40964_)) - gxc#current-compile-methods - (force gxc#&subst-object-refs)))) + (lambda (_stx43524_ . _args43526_) + (let ((__tmp45166 + (lambda () (apply gxc#compile-e _stx43524_ _args43526_))) + (__tmp45165 + (let () (declare (not safe)) (force gxc#&subst-object-refs)))) + (declare (not safe)) + (call-with-parameters + __tmp45166 + gxc#current-compile-methods + __tmp45165)))) (define gxc#generate-method-specializers-define-values% - (lambda (_stx37632_) - (letrec ((_generate-method-bind37634_ - (lambda (_$t40956_ _id40957_ _$id40958_) - (let ((_$tmp40960_ (make-symbol (gensym '__tmp)))) - (cons (cons _$id40958_ '()) - (cons (cons '%#call - (cons (cons '%#ref - (cons 'make-promise '())) - (cons (cons '%#lambda - (cons '() - (cons (cons '%#let-values -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _$tmp40960_ '()) - (cons (cons '%#call -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '%#ref (cons 'direct-method-ref '())) - (cons (cons '%#ref (cons _$t40956_ '())) - (cons (cons '%#quote - (cons _id40957_ '())) - '())))) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons (cons '%#if - (cons (cons '%#ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _$tmp40960_ '())) - (cons (cons '%#ref (cons _$tmp40960_ '())) - (cons (cons '%#call - (cons (cons '%#ref (cons 'error '())) - (cons (cons '%#quote - (cons '"Missing method" - '())) - (cons (cons '%#quote - (cons _id40957_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))) - (_generate-slot-bind37635_ - (lambda (_$t40950_ _id40951_ _$id40952_) - (let ((_$tmp40954_ (make-symbol (gensym '__tmp)))) - (cons (cons _$id40952_ '()) - (cons (cons '%#let-values - (cons (cons (cons (cons _$tmp40954_ - '()) - (cons (cons '%#call -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '%#ref (cons 'class-slot-offset '())) - (cons (cons '%#ref (cons _$t40950_ '())) - (cons (cons '%#quote - (cons _id40951_ '())) - '())))) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons (cons '%#if - (cons (cons '%#ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _$tmp40954_ '())) - (cons (cons '%#call - (cons (cons '%#ref (cons '##fx+ '())) - (cons (cons '%#ref - (cons _$tmp40954_ '())) - (cons (cons '%#quote - (cons '1 '())) - '())))) - (cons (cons '%#call - (cons (cons '%#ref (cons 'error '())) - (cons (cons '%#quote - (cons '"Unknown slot" -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '%#quote (cons _id40951_ '())) '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))) - (_generate-class-check-bind37636_ - (lambda (_$t40946_ _class-type40947_ _$class-type40948_) - (cons (cons _$class-type40948_ '()) - (cons (cons '%#call - (cons (cons '%#ref - (cons 'class-subtype? '())) - (cons (cons '%#ref - (cons _class-type40947_ - '())) - (cons (cons '%#ref - (cons _$t40946_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - (_generate-struct-check-bind37637_ - (lambda (_$t40942_ _class-type40943_ _$class-type40944_) - (cons (cons _$class-type40944_ '()) - (cons (cons '%#call - (cons (cons '%#ref - (cons 'struct-subtype? '())) - (cons (cons '%#ref - (cons _class-type40943_ - '())) - (cons (cons '%#ref - (cons _$t40942_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - (_generate-specializer-impl37638_ - (lambda (_$t40891_ - _methods-bind40892_ - _slots-bind40893_ - _class-check-bind40894_ - _struct-check-bind40895_ - _specializer-impl40896_ - _lifted-specializer-id40897_ - _unchecked-specializer-impl40898_) - (gxc#xform-wrap-source - (cons '%#lambda - (cons (cons _$t40891_ '()) - (cons (cons '%#let-values - (cons (foldr1 cons - (foldr1 cons -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr1 cons - _struct-check-bind40895_ - _class-check-bind40894_) - _slots-bind40893_) - _methods-bind40892_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (if (or _lifted-specializer-id40897_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _unchecked-specializer-impl40898_) - (let ((_$specializer40903_ - (make-symbol (gensym '__specializer)))) - (cons '%#let-values - (cons (cons (cons (cons _$specializer40903_ '()) - (cons _specializer-impl40896_ - '())) - '()) - (cons (let _recur40905_ ((_rest40907_ - (map caar -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _struct-check-bind40895_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest4090840916_ - _rest40907_) - (_else4091040924_ - (lambda () - (if _lifted-specializer-id40897_ - (cons '%#ref - (cons _lifted-specializer-id40897_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _unchecked-specializer-impl40898_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K4091240930_ - (lambda (_rest40927_ - _checkq40928_) - (cons '%#if - (cons (cons '%#ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _checkq40928_ '())) - (cons (_recur40905_ _rest40927_) - (cons (cons '%#ref - (cons _$specializer40903_ '())) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _rest4090840916_)) - (let ((_hd4091340933_ - (let () - (declare (not safe)) - (##car _rest4090840916_))) - (_tl4091440935_ - (let () - (declare (not safe)) - (##cdr _rest4090840916_)))) - (let* ((_checkq40938_ - _hd4091340933_) - (_rest40940_ - _tl4091440935_)) - (_K4091240930_ - _rest40940_ - _checkq40938_))) - (_else4091040924_)))) - '())))) - _specializer-impl40896_) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - _stx37632_))) - (_generate-specializer-def37639_ - (lambda (_id40885_ - _specializer-id40886_ - _specializer-impl40887_ - _lifted-specializer-id40888_ - _unchecked-specializer-impl40889_) - (gxc#xform-wrap-source - (cons '%#begin - (cons _stx37632_ - (cons (gxc#xform-wrap-source - (cons '%#define-values - (cons (cons _specializer-id40886_ - '()) - (cons _specializer-impl40887_ - '()))) - _stx37632_) - (foldr1 cons - (cons (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'bind-specializer! '())) - (cons (cons '%#ref (cons _id40885_ '())) - (cons (cons '%#ref - (cons _specializer-id40886_ '())) - '())))) - _stx37632_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (if _lifted-specializer-id40888_ - (cons (gxc#xform-wrap-source - (cons '%#define-values - (cons (cons _lifted-specializer-id40888_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _unchecked-specializer-impl40889_ '()))) - _stx37632_) - '()) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _stx37632_)))) - (let* ((___stx4107841079_ _stx37632_) - (_g3764237662_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx4107841079_)))) - (let ((___kont4108041081_ - (lambda (_L37706_ _L37707_) - (let ((_method-calls37726_ (make-table 'test: eq?)) - (_slot-refs37727_ (make-table 'test: eq?)) - (_class-type-check37728_ (make-table 'test: eq?)) - (_struct-type-check37729_ (make-table 'test: eq?)) - (_struct-type-assert37730_ (make-table 'test: eq?)) - (_empty37731_ (make-table 'test: eq?))) - (letrec ((_no-specializer?37733_ - (lambda () - (if (fxzero? (table-length - _method-calls37726_)) - (if (fxzero? (table-length - _slot-refs37727_)) - (if (fxzero? (table-length - _class-type-check37728_)) - (if (fxzero? (table-length - _struct-type-check37729_)) - (fxzero? (table-length - _struct-type-assert37730_)) - '#f) - '#f) - '#f) - '#f))) - (_unchecked-specializer?37734_ - (lambda () - (let ((_$e40878_ - (not (fxzero? (table-length - _struct-type-check37729_))))) - (if _$e40878_ - _$e40878_ - (not (fxzero? (table-length - _struct-type-assert37730_))))))) - (_lift-unchecked-specializer?37735_ - (lambda () - (if (fxzero? (table-length - _method-calls37726_)) - (if (fxzero? (table-length - _slot-refs37727_)) - (fxzero? (table-length - _class-type-check37728_)) - '#f) - '#f)))) - (if (gxc#lambda-expr? _L37706_) - (let* ((___stx4099240993_ _L37706_) - (_g3824838266_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx4099240993_)))) - (let ((___kont4099440995_ - (lambda (_L38302_ _L38303_ _L38304_) - (for-each - (lambda (_g3831938321_) - (gxc#apply-collect-object-refs - _g3831938321_ - _L38304_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check37729_ - _struct-type-assert37730_)) - _L38302_) - (if (_no-specializer?37733_) - _stx37632_ - (let* ((_specializer-id38330_ - (let* ((_id38324_ - (make-symbol - (gx#stx-e - _L37707_) - '"::specialize")) - (_specializer-id38327_ - (gx#core-quote-syntax__1 - _id38324_ - (gx#stx-source - _stx37632_)))) - (gx#core-bind-runtime!__0 - _specializer-id38327_) - _specializer-id38327_)) - (_lifted-specializer-id38337_ - (if (_lift-unchecked-specializer?37735_) - (let* ((_id38332_ - (make-symbol + (lambda (_stx40194_) + (letrec ((_generate-method-bind40196_ + (lambda (_$t43518_ _id43519_ _$id43520_) + (let ((_$tmp43522_ + (make-symbol + (let () (declare (not safe)) (gensym '__tmp))))) + (let ((__tmp45211 + (let () + (declare (not safe)) + (cons _$id43520_ '()))) + (__tmp45167 + (let ((__tmp45168 + (let ((__tmp45169 + (let ((__tmp45209 + (let ((__tmp45210 + (let () + (declare (not safe)) + (cons 'make-promise ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _L37707_) - '"::specialize::unchecked")) - (_lifted-specializer-id38334_ - (gx#core-quote-syntax__1 - _id38332_ - (gx#stx-source _stx37632_)))) - (gx#core-bind-runtime!__0 _lifted-specializer-id38334_) - _lifted-specializer-id38334_) - '#f)) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$t38339_ - (make-symbol - (gensym '__t))) - (_methods38341_ - (hash-keys - _method-calls37726_)) - (_$methods38345_ - (map (lambda (_id38343_) - (make-symbol - '"__" - (gensym _id38343_))) - _methods38341_)) - (_g42593_ - (for-each - (lambda (_g3834638349_ - _g3834738351_) - (table-set! - _method-calls37726_ - _g3834638349_ - _g3834738351_)) - _methods38341_ - _$methods38345_)) - (_methods-bind38362_ - (map (lambda (_g3835438357_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3835538359_) - (_generate-method-bind37634_ - _$t38339_ - _g3835438357_ - _g3835538359_)) - _methods38341_ - _$methods38345_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots38364_ - (hash-keys - _slot-refs37727_)) - (_$slots38368_ - (map (lambda (_id38366_) - (make-symbol - '"__" - (gensym _id38366_))) - _slots38364_)) - (_g42594_ - (for-each - (lambda (_g3836938372_ - _g3837038374_) - (table-set! - _slot-refs37727_ - _g3836938372_ - _g3837038374_)) - _slots38364_ - _$slots38368_)) - (_slots-bind38385_ - (map (lambda (_g3837738380_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3837838382_) - (_generate-slot-bind37635_ - _$t38339_ - _g3837738380_ - _g3837838382_)) - _slots38364_ - _$slots38368_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_class-check38387_ - (hash-keys - _class-type-check37728_)) - (_$class-check38390_ - (map (lambda (_g42595_) - (make-symbol - (gensym '__class))) - _class-check38387_)) - (_g42596_ - (for-each - (lambda (_g3839138394_ - _g3839238396_) - (table-set! - _class-type-check37728_ - _g3839138394_ - _g3839238396_)) - _class-check38387_ - _$class-check38390_)) - (_class-check-bind38407_ - (map (lambda (_g3839938402_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3840038404_) - (_generate-class-check-bind37636_ - _$t38339_ - _g3839938402_ - _g3840038404_)) - _class-check38387_ - _$class-check38390_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_struct-check-all38409_ - (hash-merge - _struct-type-check37729_ - _struct-type-assert37730_)) - (_struct-check38411_ - (hash-keys - _struct-check-all38409_)) - (_$struct-check38414_ - (map (lambda (_g42597_) - (make-symbol - (gensym '__class))) - _struct-check38411_)) - (_g42598_ - (for-each - (lambda (_g3841538418_ - _g3841638420_) - (table-set! - _struct-check-all38409_ - _g3841538418_ - _g3841638420_)) - _struct-check38411_ - _$struct-check38414_)) - (_struct-check-bind38431_ - (map (lambda (_g3842338426_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3842438428_) - (_generate-struct-check-bind37637_ - _$t38339_ - _g3842338426_ - _g3842438428_)) - _struct-check38411_ - _$struct-check38414_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-impl38442_ - (lambda (_struct-type-check138433_ - _struct-type-check238434_) - (let ((_specializer-body38440_ - (map (lambda (_g3843538437_) + (declare (not safe)) + (cons '%#ref __tmp45210))) + (__tmp45170 + (let ((__tmp45171 + (let ((__tmp45172 + (let ((__tmp45173 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#apply-subst-object-refs - _g3843538437_ - _L38304_ - _$t38339_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check138433_ - _struct-type-check238434_)) - _L38302_))) - (gxc#xform-wrap-source - (cons '%#lambda - (cons (cons _L38304_ _L38303_) _specializer-body38440_)) - _stx37632_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl38444_ - (_make-specializer-impl38442_ - _struct-check-all38409_ - _empty37731_)) - (_unchecked-specializer-impl38446_ - (if (_unchecked-specializer?37734_) - (_make-specializer-impl38442_ - _empty37731_ - _struct-check-all38409_) - '#f)) - (_specializer-impl38448_ - (_generate-specializer-impl37638_ - _$t38339_ - _methods-bind38362_ - _slots-bind38385_ - _class-check-bind38407_ - _struct-check-bind38431_ - _specializer-impl38444_ - _lifted-specializer-id38337_ - _unchecked-specializer-impl38446_))) - (gxc#verbose - '"generate method specializer " - (gx#stx-e _L37707_) - '" => " - (gx#stx-e - _specializer-id38330_)) - (_generate-specializer-def37639_ - _L37707_ - _specializer-id38330_ - _specializer-impl38448_ - _lifted-specializer-id38337_ - _unchecked-specializer-impl38446_))))) - (___kont4099640997_ - (lambda () _stx37632_))) - (if (gx#stx-pair? ___stx4099240993_) - (let ((_e3825338278_ - (gx#stx-e ___stx4099240993_))) - (let ((_tl3825538283_ - (let () - (declare (not safe)) - (##cdr _e3825338278_))) - (_hd3825438281_ - (let () - (declare (not safe)) - (##car _e3825338278_)))) - (if (gx#stx-pair? _tl3825538283_) - (let ((_e3825638286_ - (gx#stx-e _tl3825538283_))) - (let ((_tl3825838291_ - (let () - (declare (not safe)) - (##cdr _e3825638286_))) - (_hd3825738289_ + (let ((__tmp45174 + (let ((__tmp45175 + (let ((__tmp45195 + (let ((__tmp45196 + (let ((__tmp45208 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _$tmp43522_ '()))) + (__tmp45197 + (let ((__tmp45198 + (let ((__tmp45199 + (let ((__tmp45206 + (let ((__tmp45207 (let () (declare (not safe)) - (##car _e3825638286_)))) - (if (gx#stx-pair? - _hd3825738289_) - (let ((_e3825938294_ - (gx#stx-e - _hd3825738289_))) - (let ((_tl3826138299_ + (cons 'direct-method-ref + '())))) + (declare (not safe)) + (cons '%#ref __tmp45207))) + (__tmp45200 + (let ((__tmp45204 + (let ((__tmp45205 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _$t43518_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45205))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp45201 + (let ((__tmp45202 + (let ((__tmp45203 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _id43519_ '())))) + (declare (not safe)) + (cons '%#quote __tmp45203)))) + (declare (not safe)) + (cons __tmp45202 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45204 + __tmp45201)))) + (declare (not safe)) + (cons __tmp45206 __tmp45200)))) + (declare (not safe)) + (cons '%#call __tmp45199)))) + (declare (not safe)) + (cons __tmp45198 '())))) + (declare (not safe)) + (cons __tmp45208 __tmp45197)))) + (declare (not safe)) + (cons __tmp45196 '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp45176 + (let ((__tmp45177 + (let ((__tmp45178 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp45193 + (let ((__tmp45194 + (let () + (declare (not safe)) + (cons _$tmp43522_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45194))) + (__tmp45179 + (let ((__tmp45191 + (let ((__tmp45192 + (let () + (declare (not safe)) + (cons _$tmp43522_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45192))) + (__tmp45180 + (let ((__tmp45181 + (let ((__tmp45182 + (let ((__tmp45189 + (let ((__tmp45190 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons 'error '())))) + (declare (not safe)) + (cons '%#ref __tmp45190))) + (__tmp45183 + (let ((__tmp45187 + (let ((__tmp45188 + (let () + (declare (not safe)) + (cons '"Missing method" '())))) + (declare (not safe)) + (cons '%#quote __tmp45188))) + (__tmp45184 + (let ((__tmp45185 + (let ((__tmp45186 + (let () + (declare (not safe)) + (cons _id43519_ '())))) + (declare (not safe)) + (cons '%#quote __tmp45186)))) + (declare (not safe)) + (cons __tmp45185 '())))) + (declare (not safe)) + (cons __tmp45187 __tmp45184)))) + (declare (not safe)) + (cons __tmp45189 __tmp45183)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#call __tmp45182)))) + (declare (not safe)) + (cons __tmp45181 '())))) + (declare (not safe)) + (cons __tmp45191 __tmp45180)))) + (declare (not safe)) + (cons __tmp45193 __tmp45179)))) + (declare (not safe)) + (cons '%#if __tmp45178)))) + (declare (not safe)) + (cons __tmp45177 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45195 __tmp45176)))) + (declare (not safe)) + (cons '%#let-values __tmp45175)))) + (declare (not safe)) + (cons __tmp45174 '())))) + (declare (not safe)) + (cons '() __tmp45173)))) + (declare (not safe)) + (cons '%#lambda __tmp45172)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45171 '())))) + (declare (not safe)) + (cons __tmp45209 __tmp45170)))) + (declare (not safe)) + (cons '%#call __tmp45169)))) + (declare (not safe)) + (cons __tmp45168 '())))) + (declare (not safe)) + (cons __tmp45211 __tmp45167))))) + (_generate-slot-bind40197_ + (lambda (_$t43512_ _id43513_ _$id43514_) + (let ((_$tmp43516_ + (make-symbol + (let () (declare (not safe)) (gensym '__tmp))))) + (let ((__tmp45256 + (let () + (declare (not safe)) + (cons _$id43514_ '()))) + (__tmp45212 + (let ((__tmp45213 + (let ((__tmp45214 + (let ((__tmp45242 + (let ((__tmp45243 + (let ((__tmp45255 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _$tmp43516_ '()))) + (__tmp45244 + (let ((__tmp45245 + (let ((__tmp45246 + (let ((__tmp45253 + (let ((__tmp45254 + (let () + (declare (not safe)) + (cons 'class-slot-offset + '())))) + (declare (not safe)) + (cons '%#ref __tmp45254))) + (__tmp45247 + (let ((__tmp45251 + (let ((__tmp45252 + (let () + (declare + (not safe)) + (cons _$t43512_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons '%#ref __tmp45252))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp45248 + (let ((__tmp45249 + (let ((__tmp45250 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _id43513_ '())))) + (declare (not safe)) + (cons '%#quote __tmp45250)))) + (declare (not safe)) + (cons __tmp45249 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45251 __tmp45248)))) + (declare (not safe)) + (cons __tmp45253 __tmp45247)))) + (declare (not safe)) + (cons '%#call __tmp45246)))) + (declare (not safe)) + (cons __tmp45245 '())))) + (declare (not safe)) + (cons __tmp45255 __tmp45244)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45243 '()))) + (__tmp45215 + (let ((__tmp45216 + (let ((__tmp45217 + (let ((__tmp45240 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp45241 + (let () + (declare (not safe)) + (cons _$tmp43516_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45241))) + (__tmp45218 + (let ((__tmp45230 + (let ((__tmp45231 + (let ((__tmp45238 + (let ((__tmp45239 + (let () + (declare + (not safe)) + (cons '##fx+ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons '%#ref __tmp45239))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp45232 + (let ((__tmp45236 + (let ((__tmp45237 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _$tmp43516_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45237))) + (__tmp45233 + (let ((__tmp45234 + (let ((__tmp45235 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons '%#quote __tmp45235)))) + (declare (not safe)) + (cons __tmp45234 '())))) + (declare (not safe)) + (cons __tmp45236 __tmp45233)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45238 __tmp45232)))) + (declare (not safe)) + (cons '%#call __tmp45231))) + (__tmp45219 + (let ((__tmp45220 + (let ((__tmp45221 + (let ((__tmp45228 + (let ((__tmp45229 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons 'error '())))) + (declare (not safe)) + (cons '%#ref __tmp45229))) + (__tmp45222 + (let ((__tmp45226 + (let ((__tmp45227 + (let () + (declare (not safe)) + (cons '"Unknown slot" '())))) + (declare (not safe)) + (cons '%#quote __tmp45227))) + (__tmp45223 + (let ((__tmp45224 + (let ((__tmp45225 + (let () + (declare (not safe)) + (cons _id43513_ '())))) + (declare (not safe)) + (cons '%#quote __tmp45225)))) + (declare (not safe)) + (cons __tmp45224 '())))) + (declare (not safe)) + (cons __tmp45226 __tmp45223)))) + (declare (not safe)) + (cons __tmp45228 __tmp45222)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#call __tmp45221)))) + (declare (not safe)) + (cons __tmp45220 '())))) + (declare (not safe)) + (cons __tmp45230 __tmp45219)))) + (declare (not safe)) + (cons __tmp45240 __tmp45218)))) + (declare (not safe)) + (cons '%#if __tmp45217)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45216 '())))) + (declare (not safe)) + (cons __tmp45242 __tmp45215)))) + (declare (not safe)) + (cons '%#let-values __tmp45214)))) + (declare (not safe)) + (cons __tmp45213 '())))) + (declare (not safe)) + (cons __tmp45256 __tmp45212))))) + (_generate-class-check-bind40198_ + (lambda (_$t43508_ _class-type43509_ _$class-type43510_) + (let ((__tmp45268 + (let () + (declare (not safe)) + (cons _$class-type43510_ '()))) + (__tmp45257 + (let ((__tmp45258 + (let ((__tmp45259 + (let ((__tmp45266 + (let ((__tmp45267 + (let () + (declare (not safe)) + (cons 'class-subtype? + '())))) + (declare (not safe)) + (cons '%#ref __tmp45267))) + (__tmp45260 + (let ((__tmp45264 + (let ((__tmp45265 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3825938294_))) - (_hd3826038297_ - (let () (declare (not safe)) (##car _e3825938294_)))) - (___kont4099440995_ - _tl3825838291_ - _tl3826138299_ - _hd3826038297_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4099640997_)))) - (___kont4099640997_)))) - (___kont4099640997_)))) - (if (gxc#case-lambda-expr? _L37706_) - (let* ((_g3845438473_ - (lambda (_g3845538470_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g3845538470_))) - (_g3845338824_ - (lambda (_g3845538476_) - (if (gx#stx-pair? _g3845538476_) - (let ((_e3845738478_ - (gx#stx-e - _g3845538476_))) - (let ((_hd3845838481_ - (let () - (declare (not safe)) - (##car _e3845738478_))) - (_tl3845938483_ + (cons _class-type43509_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45265))) + (__tmp45261 + (let ((__tmp45262 + (let ((__tmp45263 + (let () + (declare (not safe)) + (cons _$t43508_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45263)))) + (declare (not safe)) + (cons __tmp45262 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45264 + __tmp45261)))) + (declare (not safe)) + (cons __tmp45266 __tmp45260)))) + (declare (not safe)) + (cons '%#call __tmp45259)))) + (declare (not safe)) + (cons __tmp45258 '())))) + (declare (not safe)) + (cons __tmp45268 __tmp45257)))) + (_generate-struct-check-bind40199_ + (lambda (_$t43504_ _class-type43505_ _$class-type43506_) + (let ((__tmp45280 + (let () + (declare (not safe)) + (cons _$class-type43506_ '()))) + (__tmp45269 + (let ((__tmp45270 + (let ((__tmp45271 + (let ((__tmp45278 + (let ((__tmp45279 + (let () + (declare (not safe)) + (cons 'struct-subtype? + '())))) + (declare (not safe)) + (cons '%#ref __tmp45279))) + (__tmp45272 + (let ((__tmp45276 + (let ((__tmp45277 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _class-type43505_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45277))) + (__tmp45273 + (let ((__tmp45274 + (let ((__tmp45275 + (let () + (declare (not safe)) + (cons _$t43504_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45275)))) + (declare (not safe)) + (cons __tmp45274 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45276 + __tmp45273)))) + (declare (not safe)) + (cons __tmp45278 __tmp45272)))) + (declare (not safe)) + (cons '%#call __tmp45271)))) + (declare (not safe)) + (cons __tmp45270 '())))) + (declare (not safe)) + (cons __tmp45280 __tmp45269)))) + (_generate-specializer-impl40200_ + (lambda (_$t43453_ + _methods-bind43454_ + _slots-bind43455_ + _class-check-bind43456_ + _struct-check-bind43457_ + _specializer-impl43458_ + _lifted-specializer-id43459_ + _unchecked-specializer-impl43460_) + (let ((__tmp45281 + (let ((__tmp45282 + (let ((__tmp45307 + (let () + (declare (not safe)) + (cons _$t43453_ '()))) + (__tmp45283 + (let ((__tmp45284 + (let ((__tmp45285 + (let ((__tmp45304 + (let ((__tmp45305 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp45306 + (let () + (declare (not safe)) + (foldr1 cons + _struct-check-bind43457_ + _class-check-bind43456_)))) + (declare (not safe)) + (foldr1 cons __tmp45306 _slots-bind43455_)))) + (declare (not safe)) + (foldr1 cons __tmp45305 _methods-bind43454_))) + (__tmp45286 + (let ((__tmp45287 + (if (or _lifted-specializer-id43459_ + _unchecked-specializer-impl43460_) + (let* ((_$specializer43465_ + (make-symbol + (let () + (declare (not safe)) + (gensym '__specializer)))) + (__tmp45288 + (let ((__tmp45300 + (let ((__tmp45301 + (let ((__tmp45303 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _$specializer43465_ '()))) + (__tmp45302 + (let () + (declare (not safe)) + (cons _specializer-impl43458_ '())))) + (declare (not safe)) + (cons __tmp45303 __tmp45302)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45301 '()))) + (__tmp45289 + (let ((__tmp45290 + (let _recur43467_ ((_rest43469_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (map caar _struct-check-bind43457_)))) + (let* ((_rest4347043478_ _rest43469_) + (_else4347243486_ + (lambda () + (if _lifted-specializer-id43459_ + (let ((__tmp45291 + (let () + (declare (not safe)) + (cons _lifted-specializer-id43459_ + '())))) + (declare (not safe)) + (cons '%#ref __tmp45291)) + _unchecked-specializer-impl43460_))) + (_K4347443492_ + (lambda (_rest43489_ _checkq43490_) + (let ((__tmp45292 + (let ((__tmp45298 + (let ((__tmp45299 + (let () + (declare (not safe)) + (cons _checkq43490_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45299))) + (__tmp45293 + (let ((__tmp45297 + (let () + (declare (not safe)) + (_recur43467_ _rest43489_))) + (__tmp45294 + (let ((__tmp45295 + (let ((__tmp45296 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _$specializer43465_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45296)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45295 '())))) + (declare (not safe)) + (cons __tmp45297 __tmp45294)))) + (declare (not safe)) + (cons __tmp45298 __tmp45293)))) + (declare (not safe)) + (cons '%#if __tmp45292))))) + (if (let () (declare (not safe)) (##pair? _rest4347043478_)) + (let ((_hd4347543495_ + (let () + (declare (not safe)) + (##car _rest4347043478_))) + (_tl4347643497_ + (let () + (declare (not safe)) + (##cdr _rest4347043478_)))) + (let* ((_checkq43500_ _hd4347543495_) + (_rest43502_ _tl4347643497_)) + (declare (not safe)) + (_K4347443492_ _rest43502_ _checkq43500_))) + (let () (declare (not safe)) (_else4347243486_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45290 '())))) + (declare (not safe)) + (cons __tmp45300 __tmp45289)))) + (declare (not safe)) + (cons '%#let-values __tmp45288)) + _specializer-impl43458_))) + (declare (not safe)) + (cons __tmp45287 '())))) + (declare (not safe)) + (cons __tmp45304 __tmp45286)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#let-values + __tmp45285)))) + (declare (not safe)) + (cons __tmp45284 '())))) + (declare (not safe)) + (cons __tmp45307 __tmp45283)))) + (declare (not safe)) + (cons '%#lambda __tmp45282)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45281 _stx40194_)))) + (_generate-specializer-def40201_ + (lambda (_id43447_ + _specializer-id43448_ + _specializer-impl43449_ + _lifted-specializer-id43450_ + _unchecked-specializer-impl43451_) + (let ((__tmp45308 + (let ((__tmp45309 + (let ((__tmp45310 + (let ((__tmp45330 + (let ((__tmp45331 + (let ((__tmp45332 + (let ((__tmp45334 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _specializer-id43448_ '()))) + (__tmp45333 + (let () + (declare (not safe)) + (cons _specializer-impl43449_ '())))) + (declare (not safe)) + (cons __tmp45334 __tmp45333)))) + (declare (not safe)) + (cons '%#define-values __tmp45332)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp45331 + _stx40194_))) + (__tmp45311 + (let ((__tmp45318 + (let ((__tmp45319 + (let ((__tmp45320 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp45321 + (let ((__tmp45328 + (let ((__tmp45329 + (let () + (declare (not safe)) + (cons 'bind-specializer! + '())))) + (declare (not safe)) + (cons '%#ref __tmp45329))) + (__tmp45322 + (let ((__tmp45326 + (let ((__tmp45327 + (let () + (declare (not safe)) + (cons _id43447_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref __tmp45327))) + (__tmp45323 + (let ((__tmp45324 + (let ((__tmp45325 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _specializer-id43448_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45325)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45324 '())))) + (declare (not safe)) + (cons __tmp45326 __tmp45323)))) + (declare (not safe)) + (cons __tmp45328 __tmp45322)))) + (declare (not safe)) + (cons '%#call __tmp45321)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45320 _stx40194_)))) + (declare (not safe)) + (cons __tmp45319 '()))) + (__tmp45312 + (if _lifted-specializer-id43450_ + (let ((__tmp45313 + (let ((__tmp45314 + (let ((__tmp45315 + (let ((__tmp45317 + (let () + (declare (not safe)) + (cons _lifted-specializer-id43450_ + '()))) + (__tmp45316 + (let () + (declare (not safe)) + (cons _unchecked-specializer-impl43451_ + '())))) + (declare (not safe)) + (cons __tmp45317 __tmp45316)))) + (declare (not safe)) + (cons '%#define-values __tmp45315)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45314 _stx40194_)))) + (declare (not safe)) + (cons __tmp45313 '())) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 cons + __tmp45318 + __tmp45312)))) + (declare (not safe)) + (cons __tmp45330 __tmp45311)))) + (declare (not safe)) + (cons _stx40194_ __tmp45310)))) + (declare (not safe)) + (cons '%#begin __tmp45309)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45308 _stx40194_))))) + (let* ((___stx4364043641_ _stx40194_) + (_g4020440224_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx4364043641_))))) + (let ((___kont4364243643_ + (lambda (_L40268_ _L40269_) + (let ((_method-calls40288_ + (let () + (declare (not safe)) + (make-table 'test: eq?))) + (_slot-refs40289_ + (let () + (declare (not safe)) + (make-table 'test: eq?))) + (_class-type-check40290_ + (let () + (declare (not safe)) + (make-table 'test: eq?))) + (_struct-type-check40291_ + (let () + (declare (not safe)) + (make-table 'test: eq?))) + (_struct-type-assert40292_ + (let () + (declare (not safe)) + (make-table 'test: eq?))) + (_empty40293_ + (let () + (declare (not safe)) + (make-table 'test: eq?)))) + (letrec ((_no-specializer?40295_ + (lambda () + (if (let ((__tmp45339 + (let () + (declare (not safe)) + (table-length + _method-calls40288_)))) + (declare (not safe)) + (fxzero? __tmp45339)) + (if (let ((__tmp45338 + (let () + (declare (not safe)) + (table-length + _slot-refs40289_)))) + (declare (not safe)) + (fxzero? __tmp45338)) + (if (let ((__tmp45337 + (let () + (declare (not safe)) + (table-length + _class-type-check40290_)))) + (declare (not safe)) + (fxzero? __tmp45337)) + (if (let ((__tmp45336 + (let () + (declare + (not safe)) + (table-length + _struct-type-check40291_)))) + (declare (not safe)) + (fxzero? __tmp45336)) + (let ((__tmp45335 + (let () + (declare + (not safe)) + (table-length + _struct-type-assert40292_)))) + (declare (not safe)) + (fxzero? __tmp45335)) + '#f) + '#f) + '#f) + '#f))) + (_unchecked-specializer?40296_ + (lambda () + (let ((_$e43440_ + (let ((__tmp45340 + (let ((__tmp45341 + (let () + (declare (not safe)) + (table-length + _struct-type-check40291_)))) + (declare (not safe)) + (fxzero? __tmp45341)))) + (declare (not safe)) + (not __tmp45340)))) + (if _$e43440_ + _$e43440_ + (let ((__tmp45342 + (let ((__tmp45343 + (let () + (declare (not safe)) + (table-length + _struct-type-assert40292_)))) + (declare (not safe)) + (fxzero? __tmp45343)))) + (declare (not safe)) + (not __tmp45342)))))) + (_lift-unchecked-specializer?40297_ + (lambda () + (if (let ((__tmp45346 + (let () + (declare (not safe)) + (table-length + _method-calls40288_)))) + (declare (not safe)) + (fxzero? __tmp45346)) + (if (let ((__tmp45345 + (let () + (declare (not safe)) + (table-length + _slot-refs40289_)))) + (declare (not safe)) + (fxzero? __tmp45345)) + (let ((__tmp45344 + (let () + (declare (not safe)) + (table-length + _class-type-check40290_)))) + (declare (not safe)) + (fxzero? __tmp45344)) + '#f) + '#f)))) + (if (let () + (declare (not safe)) + (gxc#lambda-expr? _L40268_)) + (let* ((___stx4355443555_ _L40268_) + (_g4081040828_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx4355443555_))))) + (let ((___kont4355643557_ + (lambda (_L40864_ _L40865_ _L40866_) + (let ((__tmp45540 + (lambda (_g4088140883_) + (let () + (declare (not safe)) + (gxc#apply-collect-object-refs + _g4088140883_ + _L40866_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check40291_ + _struct-type-assert40292_))))) + (declare (not safe)) + (for-each __tmp45540 _L40864_)) + (if (let () + (declare (not safe)) + (_no-specializer?40295_)) + _stx40194_ + (let* ((_specializer-id40892_ + (let* ((_id40886_ + (make-symbol + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _L40269_)) + '"::specialize")) + (_specializer-id40889_ + (let ((__tmp45541 + (let () + (declare (not safe)) + (gx#stx-source _stx40194_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 _id40886_ __tmp45541)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _specializer-id40889_)) + _specializer-id40889_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_lifted-specializer-id40899_ + (if (let () + (declare (not safe)) + (_lift-unchecked-specializer?40297_)) + (let* ((_id40894_ + (make-symbol +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (gx#stx-e _L40269_)) + '"::specialize::unchecked")) + (_lifted-specializer-id40896_ + (let ((__tmp45542 + (let () + (declare (not safe)) + (gx#stx-source _stx40194_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 _id40894_ __tmp45542)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _lifted-specializer-id40896_)) + _lifted-specializer-id40896_) + '#f)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_$t40901_ + (make-symbol + (let () + (declare (not safe)) + (gensym '__t)))) + (_methods40903_ + (let () + (declare (not safe)) + (hash-keys + _method-calls40288_))) + (_$methods40907_ + (let ((__tmp45543 + (lambda (_id40905_) + (make-symbol + '"__" + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gensym _id40905_)))))) + (declare (not safe)) + (map __tmp45543 _methods40903_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g45545_ + (let ((__tmp45544 + (lambda (_g4090840911_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4090940913_) + (let () + (declare (not safe)) + (table-set! + _method-calls40288_ + _g4090840911_ + _g4090940913_))))) + (declare (not safe)) + (for-each __tmp45544 _methods40903_ _$methods40907_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_methods-bind40924_ + (let ((__tmp45546 + (lambda (_g4091640919_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4091740921_) + (let () + (declare (not safe)) + (_generate-method-bind40196_ + _$t40901_ + _g4091640919_ + _g4091740921_))))) + (declare (not safe)) + (map __tmp45546 _methods40903_ _$methods40907_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_slots40926_ + (let () + (declare (not safe)) + (hash-keys + _slot-refs40289_))) + (_$slots40930_ + (let ((__tmp45547 + (lambda (_id40928_) + (make-symbol + '"__" + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gensym _id40928_)))))) + (declare (not safe)) + (map __tmp45547 _slots40926_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g45549_ + (let ((__tmp45548 + (lambda (_g4093140934_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4093240936_) + (let () + (declare (not safe)) + (table-set! + _slot-refs40289_ + _g4093140934_ + _g4093240936_))))) + (declare (not safe)) + (for-each __tmp45548 _slots40926_ _$slots40930_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_slots-bind40947_ + (let ((__tmp45550 + (lambda (_g4093940942_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4094040944_) + (let () + (declare (not safe)) + (_generate-slot-bind40197_ + _$t40901_ + _g4093940942_ + _g4094040944_))))) + (declare (not safe)) + (map __tmp45550 _slots40926_ _$slots40930_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_class-check40949_ + (let () + (declare (not safe)) + (hash-keys + _class-type-check40290_))) + (_$class-check40952_ + (let ((__tmp45551 + (lambda (_g45552_) + (make-symbol + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gensym '__class)))))) + (declare (not safe)) + (map __tmp45551 _class-check40949_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g45554_ + (let ((__tmp45553 + (lambda (_g4095340956_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4095440958_) + (let () + (declare (not safe)) + (table-set! + _class-type-check40290_ + _g4095340956_ + _g4095440958_))))) + (declare (not safe)) + (for-each __tmp45553 _class-check40949_ _$class-check40952_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_class-check-bind40969_ + (let ((__tmp45555 + (lambda (_g4096140964_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4096240966_) + (let () + (declare (not safe)) + (_generate-class-check-bind40198_ + _$t40901_ + _g4096140964_ + _g4096240966_))))) + (declare (not safe)) + (map __tmp45555 _class-check40949_ _$class-check40952_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_struct-check-all40971_ + (let () + (declare (not safe)) + (hash-merge + _struct-type-check40291_ + _struct-type-assert40292_))) + (_struct-check40973_ + (let () + (declare (not safe)) + (hash-keys + _struct-check-all40971_))) + (_$struct-check40976_ + (let ((__tmp45556 + (lambda (_g45557_) + (make-symbol + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gensym '__class)))))) + (declare (not safe)) + (map __tmp45556 _struct-check40973_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g45559_ + (let ((__tmp45558 + (lambda (_g4097740980_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4097840982_) + (let () + (declare (not safe)) + (table-set! + _struct-check-all40971_ + _g4097740980_ + _g4097840982_))))) + (declare (not safe)) + (for-each __tmp45558 _struct-check40973_ _$struct-check40976_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_struct-check-bind40993_ + (let ((__tmp45560 + (lambda (_g4098540988_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4098640990_) + (let () + (declare (not safe)) + (_generate-struct-check-bind40199_ + _$t40901_ + _g4098540988_ + _g4098640990_))))) + (declare (not safe)) + (map __tmp45560 _struct-check40973_ _$struct-check40976_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_make-specializer-impl41004_ + (lambda (_struct-type-check140995_ + _struct-type-check240996_) + (let* ((_specializer-body41002_ + (let ((__tmp45561 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g4099740999_) + (let () + (declare (not safe)) + (gxc#apply-subst-object-refs + _g4099740999_ + _L40866_ + _$t40901_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check140995_ + _struct-type-check240996_))))) + (declare (not safe)) + (map __tmp45561 _L40864_))) + (__tmp45562 + (let ((__tmp45563 + (let ((__tmp45564 + (let () + (declare (not safe)) + (cons _L40866_ _L40865_)))) + (declare (not safe)) + (cons __tmp45564 _specializer-body41002_)))) + (declare (not safe)) + (cons '%#lambda __tmp45563)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45562 _stx40194_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_specializer-impl41006_ + (let () + (declare (not safe)) + (_make-specializer-impl41004_ + _struct-check-all40971_ + _empty40293_))) + (_unchecked-specializer-impl41008_ + (if (let () + (declare (not safe)) + (_unchecked-specializer?40296_)) + (let () + (declare (not safe)) + (_make-specializer-impl41004_ + _empty40293_ + _struct-check-all40971_)) + '#f)) + (_specializer-impl41010_ + (let () + (declare (not safe)) + (_generate-specializer-impl40200_ + _$t40901_ + _methods-bind40924_ + _slots-bind40947_ + _class-check-bind40969_ + _struct-check-bind40993_ + _specializer-impl41006_ + _lifted-specializer-id40899_ + _unchecked-specializer-impl41008_)))) + (let ((__tmp45566 + (let () + (declare (not safe)) + (gx#stx-e _L40269_))) + (__tmp45565 + (let () + (declare (not safe)) + (gx#stx-e + _specializer-id40892_)))) + (declare (not safe)) + (gxc#verbose + '"generate method specializer " + __tmp45566 + '" => " + __tmp45565)) + (let () + (declare (not safe)) + (_generate-specializer-def40201_ + _L40269_ + _specializer-id40892_ + _specializer-impl41010_ + _lifted-specializer-id40899_ + _unchecked-specializer-impl41008_)))))) + (___kont4355843559_ + (lambda () _stx40194_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx4355443555_)) + (let ((_e4081740840_ + (let () + (declare (not safe)) + (gx#stx-e ___stx4355443555_)))) + (let ((_tl4081540845_ + (let () + (declare (not safe)) + (##cdr _e4081740840_))) + (_hd4081640843_ + (let () + (declare (not safe)) + (##car _e4081740840_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4081540845_)) + (let ((_e4082040848_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4081540845_)))) + (let ((_tl4081840853_ + (let () + (declare (not safe)) + (##cdr _e4082040848_))) + (_hd4081940851_ + (let () + (declare (not safe)) + (##car _e4082040848_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4081940851_)) + (let ((_e4082340856_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd4081940851_)))) + (let ((_tl4082140861_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e4082340856_))) + (_hd4082240859_ + (let () (declare (not safe)) (##car _e4082340856_)))) + (___kont4355643557_ + _tl4081840853_ + _tl4082140861_ + _hd4082240859_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4355843559_)))) + (___kont4355843559_)))) + (___kont4355843559_)))) + (if (let () + (declare (not safe)) + (gxc#case-lambda-expr? _L40268_)) + (let* ((_g4101641035_ + (lambda (_g4101741032_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4101741032_)))) + (_g4101541386_ + (lambda (_g4101741038_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4101741038_)) + (let ((_e4102141040_ + (let () + (declare (not safe)) + (gx#stx-e + _g4101741038_)))) + (let ((_hd4102041043_ + (let () + (declare (not safe)) + (##car _e4102141040_))) + (_tl4101941045_ + (let () + (declare (not safe)) + (##cdr _e4102141040_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl4101941045_)) + (let ((_g45505_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#syntax-split-splice _tl4101941045_ '0)))) + (begin + (let ((_g45506_ + (let () + (declare (not safe)) + (if (##values? _g45505_) + (##vector-length _g45505_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g45506_ 2))) + (error "Context expects 2 values" _g45506_))) + (let ((_target4102241048_ + (let () + (declare (not safe)) + (##vector-ref _g45505_ 0))) + (_tl4102441050_ + (let () + (declare (not safe)) + (##vector-ref _g45505_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4102441050_)) + (letrec ((_loop4102541053_ + (lambda (_hd4102341056_ _clause4102941058_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4102341056_)) + (let ((_e4102641061_ + (let () + (declare (not safe)) + (gx#stx-e _hd4102341056_)))) + (let ((_lp-hd4102741064_ + (let () + (declare (not safe)) + (##car _e4102641061_))) + (_lp-tl4102841066_ + (let () + (declare (not safe)) + (##cdr _e4102641061_)))) + (let ((__tmp45539 + (let () + (declare (not safe)) + (cons _lp-hd4102741064_ + _clause4102941058_)))) + (declare (not safe)) + (_loop4102541053_ + _lp-tl4102841066_ + __tmp45539)))) + (let ((_clause4103041069_ + (let () + (declare (not safe)) + (reverse _clause4102941058_)))) + ((lambda (_L41072_) + (let ((__tmp45509 + (lambda (_clause41085_) + (let* ((___stx4358043581_ + _clause41085_) + (_g4108841103_ + (lambda () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx4358043581_))))) + (let ((___kont4358243583_ + (lambda (_L41131_ _L41132_ _L41133_) + (let ((__tmp45510 + (lambda (_g4114841150_) + (let () + (declare (not safe)) + (gxc#apply-collect-object-refs + _g4114841150_ + _L41133_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check40291_ + _struct-type-assert40292_))))) + (declare (not safe)) + (for-each __tmp45510 _L41131_)))) + (___kont4358443585_ (lambda () '#!void))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx4358043581_)) + (let ((_e4109541115_ + (let () + (declare (not safe)) + (gx#stx-e ___stx4358043581_)))) + (let ((_tl4109341120_ + (let () + (declare (not safe)) + (##cdr _e4109541115_))) + (_hd4109441118_ + (let () + (declare (not safe)) + (##car _e4109541115_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4109441118_)) + (let ((_e4109841123_ + (let () + (declare (not safe)) + (gx#stx-e _hd4109441118_)))) + (let ((_tl4109641128_ + (let () + (declare (not safe)) + (##cdr _e4109841123_))) + (_hd4109741126_ + (let () + (declare (not safe)) + (##car _e4109841123_)))) + (___kont4358243583_ + _tl4109341120_ + _tl4109641128_ + _hd4109741126_))) + (___kont4358443585_)))) + (___kont4358443585_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp45507 + (let ((__tmp45508 + (lambda (_g4115541158_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4115641160_) + (let () + (declare (not safe)) + (cons _g4115541158_ _g4115641160_))))) + (declare (not safe)) + (foldr1 __tmp45508 '() _L41072_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (for-each + __tmp45509 + __tmp45507)) + (if (let () + (declare (not safe)) + (_no-specializer?40295_)) + _stx40194_ + (let* ((_specializer-id41169_ + (let* ((_id41163_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (make-symbol + (let () (declare (not safe)) (gx#stx-e _L40269_)) + '"::specialize")) + (_specializer-id41166_ + (let ((__tmp45511 + (let () + (declare (not safe)) + (gx#stx-source _stx40194_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 _id41163_ __tmp45511)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _specializer-id41166_)) + _specializer-id41166_)) + (_lifted-specializer-id41176_ + (if (let () + (declare (not safe)) + (_lift-unchecked-specializer?40297_)) + (let* ((_id41171_ + (make-symbol + (let () + (declare (not safe)) + (gx#stx-e _L40269_)) + '"::specialize::unchecked")) + (_lifted-specializer-id41173_ + (let ((__tmp45512 + (let () + (declare (not safe)) + (gx#stx-source _stx40194_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _id41171_ + __tmp45512)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 + _lifted-specializer-id41173_)) + _lifted-specializer-id41173_) + '#f)) + (_$t41178_ + (make-symbol (let () (declare (not safe)) (gensym '__t)))) + (_methods41180_ + (let () + (declare (not safe)) + (hash-keys _method-calls40288_))) + (_$methods41184_ + (let ((__tmp45513 + (lambda (_id41182_) + (make-symbol + '"__" + (let () + (declare (not safe)) + (gensym _id41182_)))))) + (declare (not safe)) + (map __tmp45513 _methods41180_))) + (_g45515_ + (let ((__tmp45514 + (lambda (_g4118541188_ _g4118641190_) + (let () + (declare (not safe)) + (table-set! + _method-calls40288_ + _g4118541188_ + _g4118641190_))))) + (declare (not safe)) + (for-each __tmp45514 _methods41180_ _$methods41184_))) + (_methods-bind41201_ + (let ((__tmp45516 + (lambda (_g4119341196_ _g4119441198_) + (let () + (declare (not safe)) + (_generate-method-bind40196_ + _$t41178_ + _g4119341196_ + _g4119441198_))))) + (declare (not safe)) + (map __tmp45516 _methods41180_ _$methods41184_))) + (_slots41203_ + (let () (declare (not safe)) (hash-keys _slot-refs40289_))) + (_$slots41207_ + (let ((__tmp45517 + (lambda (_id41205_) + (make-symbol + '"__" + (let () + (declare (not safe)) + (gensym _id41205_)))))) + (declare (not safe)) + (map __tmp45517 _slots41203_))) + (_g45519_ + (let ((__tmp45518 + (lambda (_g4120841211_ _g4120941213_) + (let () + (declare (not safe)) + (table-set! + _slot-refs40289_ + _g4120841211_ + _g4120941213_))))) + (declare (not safe)) + (for-each __tmp45518 _slots41203_ _$slots41207_))) + (_slots-bind41224_ + (let ((__tmp45520 + (lambda (_g4121641219_ _g4121741221_) + (let () + (declare (not safe)) + (_generate-slot-bind40197_ + _$t41178_ + _g4121641219_ + _g4121741221_))))) + (declare (not safe)) + (map __tmp45520 _slots41203_ _$slots41207_))) + (_class-check41226_ + (let () + (declare (not safe)) + (hash-keys _class-type-check40290_))) + (_$class-check41229_ + (let ((__tmp45521 + (lambda (_g45522_) + (make-symbol + (let () (declare (not safe)) (gensym '__class)))))) + (declare (not safe)) + (map __tmp45521 _class-check41226_))) + (_g45524_ + (let ((__tmp45523 + (lambda (_g4123041233_ _g4123141235_) + (let () + (declare (not safe)) + (table-set! + _class-type-check40290_ + _g4123041233_ + _g4123141235_))))) + (declare (not safe)) + (for-each + __tmp45523 + _class-check41226_ + _$class-check41229_))) + (_class-check-bind41246_ + (let ((__tmp45525 + (lambda (_g4123841241_ _g4123941243_) + (let () + (declare (not safe)) + (_generate-class-check-bind40198_ + _$t41178_ + _g4123841241_ + _g4123941243_))))) + (declare (not safe)) + (map __tmp45525 _class-check41226_ _$class-check41229_))) + (_struct-check-all41248_ + (let () + (declare (not safe)) + (hash-merge + _struct-type-check40291_ + _struct-type-assert40292_))) + (_struct-check41250_ + (let () + (declare (not safe)) + (hash-keys _struct-check-all41248_))) + (_$struct-check41253_ + (let ((__tmp45526 + (lambda (_g45527_) + (make-symbol + (let () (declare (not safe)) (gensym '__class)))))) + (declare (not safe)) + (map __tmp45526 _struct-check41250_))) + (_g45529_ + (let ((__tmp45528 + (lambda (_g4125441257_ _g4125541259_) + (let () + (declare (not safe)) + (table-set! + _struct-check-all41248_ + _g4125441257_ + _g4125541259_))))) + (declare (not safe)) + (for-each + __tmp45528 + _struct-check41250_ + _$struct-check41253_))) + (_struct-check-bind41270_ + (let ((__tmp45530 + (lambda (_g4126241265_ _g4126341267_) + (let () + (declare (not safe)) + (_generate-struct-check-bind40199_ + _$t41178_ + _g4126241265_ + _g4126341267_))))) + (declare (not safe)) + (map __tmp45530 _struct-check41250_ _$struct-check41253_))) + (_make-specializer-impl41377_ + (lambda (_struct-type-check141272_ _struct-type-check241273_) + (let* ((_specializer-clauses41375_ + (let ((__tmp45533 + (lambda (_clause41275_) + (let* ((___stx4360043601_ _clause41275_) + (_g4127841293_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx4360043601_))))) + (let ((___kont4360243603_ + (lambda (_L41321_ + _L41322_ + _L41323_) + (let* ((_body41363_ + (let ((__tmp45534 + (lambda (_g4135841360_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#apply-subst-object-refs + _g4135841360_ + _L41323_ + _$t41178_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check141272_ + _struct-type-check241273_))))) + (declare (not safe)) + (map __tmp45534 _L41321_))) + (__tmp45535 + (let () (declare (not safe)) (cons _L41323_ _L41322_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45535 + _body41363_)))) + (___kont4360443605_ + (lambda () _clause41275_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx4360043601_)) + (let ((_e4128541305_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx4360043601_)))) + (let ((_tl4128341310_ + (let () + (declare (not safe)) + (##cdr _e4128541305_))) + (_hd4128441308_ + (let () + (declare (not safe)) + (##car _e4128541305_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4128441308_)) + (let ((_e4128841313_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd4128441308_)))) + (let ((_tl4128641318_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e4128841313_))) + (_hd4128741316_ + (let () (declare (not safe)) (##car _e4128841313_)))) + (___kont4360243603_ + _tl4128341310_ + _tl4128641318_ + _hd4128741316_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4360443605_)))) + (___kont4360443605_)))))) + (__tmp45531 + (let ((__tmp45532 + (lambda (_g4136741370_ _g4136841372_) + (let () + (declare (not safe)) + (cons _g4136741370_ + _g4136841372_))))) + (declare (not safe)) + (foldr1 __tmp45532 '() _L41072_)))) + (declare (not safe)) + (map __tmp45533 __tmp45531))) + (__tmp45536 + (let () + (declare (not safe)) + (cons '%#case-lambda + _specializer-clauses41375_)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45536 _stx40194_)))) + (_specializer-impl41379_ + (let () + (declare (not safe)) + (_make-specializer-impl41377_ + _struct-check-all41248_ + _empty40293_))) + (_unchecked-specializer-impl41381_ + (if (let () + (declare (not safe)) + (_unchecked-specializer?40296_)) + (let () + (declare (not safe)) + (_make-specializer-impl41377_ + _empty40293_ + _struct-check-all41248_)) + '#f)) + (_specializer-impl41383_ + (let () + (declare (not safe)) + (_generate-specializer-impl40200_ + _$t41178_ + _methods-bind41201_ + _slots-bind41224_ + _class-check-bind41246_ + _struct-check-bind41270_ + _specializer-impl41379_ + _lifted-specializer-id41176_ + _unchecked-specializer-impl41381_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp45538 + (let () + (declare + (not safe)) + (gx#stx-e + _L40269_))) + (__tmp45537 + (let () + (declare + (not safe)) + (gx#stx-e + _specializer-id41169_)))) + (declare (not safe)) + (gxc#verbose + '"generate method specializer " + __tmp45538 + '" => " + __tmp45537)) + (let () + (declare (not safe)) + (_generate-specializer-def40201_ + _L40269_ + _specializer-id41169_ + _specializer-impl41383_ + _lifted-specializer-id41176_ + _unchecked-specializer-impl41381_))))) + _clause4103041069_)))))) + (let () + (declare (not safe)) + (_loop4102541053_ _target4102241048_ '()))) + (let () + (declare (not safe)) + (_g4101641035_ _g4101741038_)))))) + (let () (declare (not safe)) (_g4101641035_ _g4101741038_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4101641035_ + _g4101741038_)))))) + (declare (not safe)) + (_g4101541386_ _L40268_)) + (if (let () + (declare (not safe)) + (gxc#opt-lambda-expr? _L40268_)) + (let* ((_g4138941419_ + (lambda (_g4139041416_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4139041416_)))) + (_g4138842107_ + (lambda (_g4139041422_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _g4139041422_)) + (let ((_e4139641424_ + (let () + (declare + (not safe)) + (gx#stx-e + _g4139041422_)))) + (let ((_hd4139541427_ + (let () + (declare + (not safe)) + (##car _e4139641424_))) + (_tl4139441429_ + (let () + (declare + (not safe)) + (##cdr _e4139641424_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl4139441429_)) + (let ((_e4139941432_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl4139441429_)))) + (let ((_hd4139841435_ + (let () + (declare (not safe)) + (##car _e4139941432_))) + (_tl4139741437_ + (let () + (declare (not safe)) + (##cdr _e4139941432_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4139841435_)) + (let ((_e4140241440_ + (let () + (declare (not safe)) + (gx#stx-e _hd4139841435_)))) + (let ((_hd4140141443_ + (let () + (declare (not safe)) + (##car _e4140241440_))) + (_tl4140041445_ + (let () + (declare (not safe)) + (##cdr _e4140241440_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4140141443_)) + (let ((_e4140541448_ + (let () + (declare (not safe)) + (gx#stx-e _hd4140141443_)))) + (let ((_hd4140441451_ + (let () + (declare (not safe)) + (##car _e4140541448_))) + (_tl4140341453_ + (let () + (declare (not safe)) + (##cdr _e4140541448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4140441451_)) + (let ((_e4140841456_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4140441451_)))) + (let ((_hd4140741459_ + (let () + (declare (not safe)) + (##car _e4140841456_))) + (_tl4140641461_ + (let () + (declare (not safe)) + (##cdr _e4140841456_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4140641461_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4140341453_)) + (let ((_e4141141464_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _tl4140341453_)))) + (let ((_hd4141041467_ + (let () (declare (not safe)) (##car _e4141141464_))) + (_tl4140941469_ + (let () (declare (not safe)) (##cdr _e4141141464_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4140941469_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4140041445_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4139741437_)) + (let ((_e4141441472_ + (let () + (declare (not safe)) + (gx#stx-e _tl4139741437_)))) + (let ((_hd4141341475_ + (let () + (declare (not safe)) + (##car _e4141441472_))) + (_tl4141241477_ + (let () + (declare (not safe)) + (##cdr _e4141441472_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4141241477_)) + ((lambda (_L41480_ _L41481_ _L41482_) + (let* ((_g4150541523_ + (lambda (_g4150641520_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4150641520_)))) + (_g4150441574_ + (lambda (_g4150641526_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _g4150641526_)) + (let ((_e4151241528_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _g4150641526_)))) + (let ((_hd4151141531_ + (let () (declare (not safe)) (##car _e4151241528_))) + (_tl4151041533_ + (let () (declare (not safe)) (##cdr _e4151241528_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4151041533_)) + (let ((_e4151541536_ + (let () + (declare (not safe)) + (gx#stx-e _tl4151041533_)))) + (let ((_hd4151441539_ + (let () + (declare (not safe)) + (##car _e4151541536_))) + (_tl4151341541_ + (let () + (declare (not safe)) + (##cdr _e4151541536_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4151441539_)) + (let ((_e4151841544_ + (let () + (declare (not safe)) + (gx#stx-e _hd4151441539_)))) + (let ((_hd4151741547_ + (let () + (declare (not safe)) + (##car _e4151841544_))) + (_tl4151641549_ + (let () + (declare (not safe)) + (##cdr _e4151841544_)))) + ((lambda (_L41552_ _L41553_ _L41554_) + (let ((__tmp45455 + (lambda (_g4156941571_) + (let () + (declare (not safe)) + (gxc#apply-collect-object-refs + _g4156941571_ + _L41554_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check40291_ + _struct-type-assert40292_))))) + (declare (not safe)) + (for-each __tmp45455 _L41552_))) + _tl4151341541_ + _tl4151641549_ + _hd4151741547_))) + (let () + (declare (not safe)) + (_g4150541523_ _g4150641526_))))) + (let () + (declare (not safe)) + (_g4150541523_ _g4150641526_))))) + (let () (declare (not safe)) (_g4150541523_ _g4150641526_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g4150441574_ _L41481_)) + (let* ((_g4157741596_ + (lambda (_g4157841593_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4157841593_)))) + (_g4157641715_ + (lambda (_g4157841599_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _g4157841599_)) + (let ((_e4158241601_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _g4157841599_)))) + (let ((_hd4158141604_ + (let () (declare (not safe)) (##car _e4158241601_))) + (_tl4158041606_ + (let () (declare (not safe)) (##cdr _e4158241601_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl4158041606_)) + (let ((_g45456_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl4158041606_ '0)))) + (begin + (let ((_g45457_ + (let () + (declare (not safe)) + (if (##values? _g45456_) + (##vector-length _g45456_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g45457_ 2))) + (error "Context expects 2 values" _g45457_))) + (let ((_target4158341609_ + (let () + (declare (not safe)) + (##vector-ref _g45456_ 0))) + (_tl4158541611_ + (let () + (declare (not safe)) + (##vector-ref _g45456_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4158541611_)) + (letrec ((_loop4158641614_ + (lambda (_hd4158441617_ + _clause4159041619_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4158441617_)) + (let ((_e4158741622_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4158441617_)))) + (let ((_lp-hd4158841625_ + (let () + (declare + (not safe)) + (##car _e4158741622_))) + (_lp-tl4158941627_ + (let () + (declare + (not safe)) + (##cdr _e4158741622_)))) + (let ((__tmp45462 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _lp-hd4158841625_ _clause4159041619_)))) + (declare (not safe)) + (_loop4158641614_ _lp-tl4158941627_ __tmp45462)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_clause4159141630_ + (let () + (declare (not safe)) + (reverse _clause4159041619_)))) + ((lambda (_L41633_) + (let ((__tmp45460 + (lambda (_clause41646_) + (let* ((_g4164841663_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g4164941660_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4164941660_)))) + (_g4164741705_ + (lambda (_g4164941666_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4164941666_)) + (let ((_e4165541668_ + (let () + (declare (not safe)) + (gx#stx-e _g4164941666_)))) + (let ((_hd4165441671_ + (let () + (declare (not safe)) + (##car _e4165541668_))) + (_tl4165341673_ + (let () + (declare (not safe)) + (##cdr _e4165541668_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4165441671_)) + (let ((_e4165841676_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4165441671_)))) + (let ((_hd4165741679_ + (let () + (declare (not safe)) + (##car _e4165841676_))) + (_tl4165641681_ + (let () + (declare (not safe)) + (##cdr _e4165841676_)))) + ((lambda (_L41684_ + _L41685_ + _L41686_) + (let ((__tmp45461 + (lambda (_g4170041702_) + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gxc#apply-collect-object-refs + _g4170041702_ + _L41686_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check40291_ + _struct-type-assert40292_))))) + (declare (not safe)) + (for-each __tmp45461 _L41684_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _tl4165341673_ + _tl4165641681_ + _hd4165741679_))) + (let () + (declare (not safe)) + (_g4164841663_ + _g4164941666_))))) + (let () + (declare (not safe)) + (_g4164841663_ _g4164941666_)))))) + (declare (not safe)) + (_g4164741705_ _clause41646_)))) + (__tmp45458 + (let ((__tmp45459 + (lambda (_g4170741710_ _g4170841712_) + (let () + (declare (not safe)) + (cons _g4170741710_ _g4170841712_))))) + (declare (not safe)) + (foldr1 __tmp45459 '() _L41633_)))) + (declare (not safe)) + (for-each __tmp45460 __tmp45458))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _clause4159141630_)))))) + (let () + (declare (not safe)) + (_loop4158641614_ + _target4158341609_ + '()))) + (let () + (declare (not safe)) + (_g4157741596_ _g4157841599_)))))) + (let () + (declare (not safe)) + (_g4157741596_ _g4157841599_))))) + (let () (declare (not safe)) (_g4157741596_ _g4157841599_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g4157641715_ _L41480_)) + (if (let () + (declare (not safe)) + (_no-specializer?40295_)) + _stx40194_ + (let* ((_specializer-id41724_ + (let* ((_id41718_ + (make-symbol + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _L40269_)) + '"::specialize")) + (_specializer-id41721_ + (let ((__tmp45463 + (let () + (declare (not safe)) + (gx#stx-source _stx40194_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 _id41718_ __tmp45463)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _specializer-id41721_)) + _specializer-id41721_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_lifted-specializer-id41731_ + (if (let () + (declare + (not safe)) + (_lift-unchecked-specializer?40297_)) + (let* ((_id41726_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (make-symbol + (let () (declare (not safe)) (gx#stx-e _L40269_)) + '"::specialize::unchecked")) + (_lifted-specializer-id41728_ + (let ((__tmp45464 + (let () + (declare (not safe)) + (gx#stx-source _stx40194_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 _id41726_ __tmp45464)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _lifted-specializer-id41728_)) + _lifted-specializer-id41728_) + '#f)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_$t41733_ + (make-symbol + (let () + (declare (not safe)) + (gensym '__t)))) + (_methods41735_ + (let () + (declare (not safe)) + (hash-keys + _method-calls40288_))) + (_$methods41739_ + (let ((__tmp45465 + (lambda (_id41737_) + (make-symbol + '"__" + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gensym _id41737_)))))) + (declare (not safe)) + (map __tmp45465 _methods41735_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g45467_ + (let ((__tmp45466 + (lambda (_g4174041743_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4174141745_) + (let () + (declare (not safe)) + (table-set! + _method-calls40288_ + _g4174041743_ + _g4174141745_))))) + (declare (not safe)) + (for-each __tmp45466 _methods41735_ _$methods41739_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_methods-bind41756_ + (let ((__tmp45468 + (lambda (_g4174841751_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4174941753_) + (let () + (declare (not safe)) + (_generate-method-bind40196_ + _$t41733_ + _g4174841751_ + _g4174941753_))))) + (declare (not safe)) + (map __tmp45468 _methods41735_ _$methods41739_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_slots41758_ + (let () + (declare (not safe)) + (hash-keys + _slot-refs40289_))) + (_$slots41762_ + (let ((__tmp45469 + (lambda (_id41760_) + (make-symbol + '"__" + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gensym _id41760_)))))) + (declare (not safe)) + (map __tmp45469 _slots41758_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g45471_ + (let ((__tmp45470 + (lambda (_g4176341766_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4176441768_) + (let () + (declare (not safe)) + (table-set! + _slot-refs40289_ + _g4176341766_ + _g4176441768_))))) + (declare (not safe)) + (for-each __tmp45470 _slots41758_ _$slots41762_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_slots-bind41779_ + (let ((__tmp45472 + (lambda (_g4177141774_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4177241776_) + (let () + (declare (not safe)) + (_generate-slot-bind40197_ + _$t41733_ + _g4177141774_ + _g4177241776_))))) + (declare (not safe)) + (map __tmp45472 _slots41758_ _$slots41762_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_class-check41781_ + (let () + (declare (not safe)) + (hash-keys + _class-type-check40290_))) + (_$class-check41784_ + (let ((__tmp45473 + (lambda (_g45474_) + (make-symbol + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gensym '__class)))))) + (declare (not safe)) + (map __tmp45473 _class-check41781_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g45476_ + (let ((__tmp45475 + (lambda (_g4178541788_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4178641790_) + (let () + (declare (not safe)) + (table-set! + _class-type-check40290_ + _g4178541788_ + _g4178641790_))))) + (declare (not safe)) + (for-each __tmp45475 _class-check41781_ _$class-check41784_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_class-check-bind41801_ + (let ((__tmp45477 + (lambda (_g4179341796_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4179441798_) + (let () + (declare (not safe)) + (_generate-class-check-bind40198_ + _$t41733_ + _g4179341796_ + _g4179441798_))))) + (declare (not safe)) + (map __tmp45477 _class-check41781_ _$class-check41784_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_struct-check-all41803_ + (let () + (declare (not safe)) + (hash-merge + _struct-type-check40291_ + _struct-type-assert40292_))) + (_struct-check41805_ + (let () + (declare (not safe)) + (hash-keys + _struct-check-all41803_))) + (_$struct-check41808_ + (let ((__tmp45478 + (lambda (_g45479_) + (make-symbol + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gensym '__class)))))) + (declare (not safe)) + (map __tmp45478 _struct-check41805_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g45481_ + (let ((__tmp45480 + (lambda (_g4180941812_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4181041814_) + (let () + (declare (not safe)) + (table-set! + _struct-check-all41803_ + _g4180941812_ + _g4181041814_))))) + (declare (not safe)) + (for-each + __tmp45480 + _struct-check41805_ + _$struct-check41808_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_struct-check-bind41825_ + (let ((__tmp45482 + (lambda (_g4181741820_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4181841822_) + (let () + (declare (not safe)) + (_generate-struct-check-bind40199_ + _$t41733_ + _g4181741820_ + _g4181841822_))))) + (declare (not safe)) + (map __tmp45482 _struct-check41805_ _$struct-check41808_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_make-specializer-lambda-expr41924_ + (lambda (_struct-type-check141827_ + _struct-type-check241828_) + (let* ((_g4183041848_ + (lambda (_g4183141845_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4183141845_)))) + (_g4182941921_ + (lambda (_g4183141851_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4183141851_)) + (let ((_e4183741853_ + (let () + (declare (not safe)) + (gx#stx-e _g4183141851_)))) + (let ((_hd4183641856_ + (let () + (declare (not safe)) + (##car _e4183741853_))) + (_tl4183541858_ + (let () + (declare (not safe)) + (##cdr _e4183741853_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4183541858_)) + (let ((_e4184041861_ + (let () + (declare (not safe)) + (gx#stx-e _tl4183541858_)))) + (let ((_hd4183941864_ + (let () + (declare (not safe)) + (##car _e4184041861_))) + (_tl4183841866_ + (let () + (declare (not safe)) + (##cdr _e4184041861_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4183941864_)) + (let ((_e4184341869_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4183941864_)))) + (let ((_hd4184241872_ + (let () + (declare (not safe)) + (##car _e4184341869_))) + (_tl4184141874_ + (let () + (declare (not safe)) + (##cdr _e4184341869_)))) + ((lambda (_L41877_ + _L41878_ + _L41879_) + (let* ((_body41919_ + (let ((__tmp45483 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g4191441916_) + (let () + (declare (not safe)) + (gxc#apply-subst-object-refs + _g4191441916_ + _L41879_ + _$t41733_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check141827_ + _struct-type-check241828_))))) + (declare (not safe)) + (map __tmp45483 _L41877_))) + (__tmp45484 + (let ((__tmp45485 + (let ((__tmp45486 + (let () + (declare (not safe)) + (cons _L41879_ _L41878_)))) + (declare (not safe)) + (cons __tmp45486 _body41919_)))) + (declare (not safe)) + (cons '%#lambda __tmp45485)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45484 _L41481_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _tl4183841866_ + _tl4184141874_ + _hd4184241872_))) + (let () + (declare (not safe)) + (_g4183041848_ + _g4183141851_))))) + (let () + (declare (not safe)) + (_g4183041848_ _g4183141851_))))) + (let () + (declare (not safe)) + (_g4183041848_ _g4183141851_)))))) + (declare (not safe)) + (_g4182941921_ _L41481_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_make-specializer-case-lambda-expr42085_ + (lambda (_struct-type-check141926_ + _struct-type-check241927_) + (let* ((_g4192941948_ + (lambda (_g4193041945_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4193041945_)))) + (_g4192842082_ + (lambda (_g4193041951_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4193041951_)) + (let ((_e4193441953_ + (let () + (declare (not safe)) + (gx#stx-e _g4193041951_)))) + (let ((_hd4193341956_ + (let () + (declare (not safe)) + (##car _e4193441953_))) + (_tl4193241958_ + (let () + (declare (not safe)) + (##cdr _e4193441953_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl4193241958_)) + (let ((_g45487_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl4193241958_ + '0)))) + (begin + (let ((_g45488_ + (let () + (declare (not safe)) + (if (##values? _g45487_) + (##vector-length + _g45487_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g45488_ 2))) + (error "Context expects 2 values" + _g45488_))) + (let ((_target4193541961_ + (let () + (declare (not safe)) + (##vector-ref _g45487_ 0))) + (_tl4193741963_ + (let () + (declare (not safe)) + (##vector-ref _g45487_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4193741963_)) + (letrec ((_loop4193841966_ + (lambda (_hd4193641969_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _clause4194241971_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4193641969_)) + (let ((_e4193941974_ + (let () + (declare (not safe)) + (gx#stx-e _hd4193641969_)))) + (let ((_lp-hd4194041977_ + (let () + (declare (not safe)) + (##car _e4193941974_))) + (_lp-tl4194141979_ + (let () + (declare (not safe)) + (##cdr _e4193941974_)))) + (let ((__tmp45495 + (let () + (declare (not safe)) + (cons _lp-hd4194041977_ + _clause4194241971_)))) + (declare (not safe)) + (_loop4193841966_ + _lp-tl4194141979_ + __tmp45495)))) + (let ((_clause4194341982_ + (let () + (declare (not safe)) + (reverse _clause4194241971_)))) + ((lambda (_L41985_) + (let* ((_clauses42080_ + (let ((__tmp45491 + (lambda (_clause42000_) + (let* ((___stx4362043621_ + _clause42000_) + (_g4200342018_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx4362043621_))))) + (let ((___kont4362243623_ + (lambda (_L42046_ + _L42047_ + _L42048_) + (let* ((_body42068_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp45492 + (lambda (_g4206342065_) + (let () + (declare (not safe)) + (gxc#apply-subst-object-refs + _g4206342065_ + _L42048_ + _$t41733_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check141926_ + _struct-type-check241927_))))) + (declare (not safe)) + (map __tmp45492 _L42046_))) + (__tmp45493 + (let () + (declare (not safe)) + (cons _L42048_ _L42047_)))) + (declare (not safe)) + (cons __tmp45493 _body42068_)))) + (___kont4362443625_ (lambda () _clause42000_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx4362043621_)) + (let ((_e4201042030_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e ___stx4362043621_)))) + (let ((_tl4200842035_ + (let () (declare (not safe)) (##cdr _e4201042030_))) + (_hd4200942033_ + (let () (declare (not safe)) (##car _e4201042030_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4200942033_)) + (let ((_e4201342038_ + (let () + (declare (not safe)) + (gx#stx-e _hd4200942033_)))) + (let ((_tl4201142043_ + (let () + (declare (not safe)) + (##cdr _e4201342038_))) + (_hd4201242041_ + (let () + (declare (not safe)) + (##car _e4201342038_)))) + (___kont4362243623_ + _tl4200842035_ + _tl4201142043_ + _hd4201242041_))) + (___kont4362443625_)))) + (___kont4362443625_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp45489 + (let ((__tmp45490 + (lambda (_g4207242075_ + _g4207342077_) + (let () + (declare (not safe)) + (cons _g4207242075_ + _g4207342077_))))) + (declare (not safe)) + (foldr1 __tmp45490 + '() + _L41985_)))) + (declare (not safe)) + (map __tmp45491 __tmp45489))) + (__tmp45494 + (let () + (declare (not safe)) + (cons '%#case-lambda _clauses42080_)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45494 _L41480_))) + _clause4194341982_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop4193841966_ + _target4193541961_ + '()))) + (let () + (declare (not safe)) + (_g4192941948_ + _g4193041951_)))))) + (let () + (declare (not safe)) + (_g4192941948_ _g4193041951_))))) + (let () + (declare (not safe)) + (_g4192941948_ _g4193041951_)))))) + (declare (not safe)) + (_g4192842082_ _L41480_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_make-specializer-impl42090_ + (lambda (_specializer-lambda-expr42087_ + _specializer-case-lambda-expr42088_) + (let ((__tmp45496 + (let ((__tmp45497 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp45499 + (let ((__tmp45500 + (let ((__tmp45502 + (let () + (declare (not safe)) + (cons _L41482_ '()))) + (__tmp45501 + (let () + (declare (not safe)) + (cons _specializer-lambda-expr42087_ + '())))) + (declare (not safe)) + (cons __tmp45502 __tmp45501)))) + (declare (not safe)) + (cons __tmp45500 '()))) + (__tmp45498 + (let () + (declare (not safe)) + (cons _specializer-case-lambda-expr42088_ + '())))) + (declare (not safe)) + (cons __tmp45499 __tmp45498)))) + (declare (not safe)) + (cons '%#let-values __tmp45497)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45496 _stx40194_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_specializer-lambda-expr42092_ + (let () + (declare (not safe)) + (_make-specializer-lambda-expr41924_ + _struct-check-all41803_ + _empty40293_))) + (_specializer-case-lambda-expr42094_ + (let () + (declare (not safe)) + (_make-specializer-case-lambda-expr42085_ + _struct-check-all41803_ + _empty40293_))) + (_specializer-impl42096_ + (let () + (declare (not safe)) + (_make-specializer-impl42090_ + _specializer-lambda-expr42092_ + _specializer-case-lambda-expr42094_))) + (_unchecked-specializer-lambda-expr42098_ + (if (let () + (declare + (not safe)) + (_unchecked-specializer?40296_)) + (let () + (declare + (not safe)) + (_make-specializer-lambda-expr41924_ + _empty40293_ + _struct-check-all41803_)) + '#f)) + (_unchecked-specializer-case-lambda-expr42100_ + (if (let () + (declare + (not safe)) + (_unchecked-specializer?40296_)) + (let () + (declare + (not safe)) + (_make-specializer-case-lambda-expr42085_ + _empty40293_ + _struct-check-all41803_)) + '#f)) + (_unchecked-specializer-impl42102_ + (if (let () + (declare + (not safe)) + (_unchecked-specializer?40296_)) + (let () + (declare + (not safe)) + (_make-specializer-impl42090_ + _unchecked-specializer-lambda-expr42098_ + _unchecked-specializer-case-lambda-expr42100_)) + '#f)) + (_specializer-impl42104_ + (let () + (declare (not safe)) + (_generate-specializer-impl40200_ + _$t41733_ + _methods-bind41756_ + _slots-bind41779_ + _class-check-bind41801_ + _struct-check-bind41825_ + _specializer-impl42096_ + _lifted-specializer-id41731_ + _unchecked-specializer-impl42102_)))) + (let ((__tmp45504 + (let () + (declare (not safe)) + (gx#stx-e _L40269_))) + (__tmp45503 + (let () + (declare (not safe)) + (gx#stx-e + _specializer-id41724_)))) + (declare (not safe)) + (gxc#verbose + '"generate method specializer " + __tmp45504 + '" => " + __tmp45503)) + (let () + (declare (not safe)) + (_generate-specializer-def40201_ + _L40269_ + _specializer-id41724_ + _specializer-impl42104_ + _lifted-specializer-id41731_ + _unchecked-specializer-impl42102_))))) + _hd4141341475_ + _hd4141041467_ + _hd4140741459_) + (let () + (declare (not safe)) + (_g4138941419_ _g4139041422_))))) + (let () + (declare (not safe)) + (_g4138941419_ _g4139041422_))) + (let () + (declare (not safe)) + (_g4138941419_ _g4139041422_))) + (let () + (declare (not safe)) + (_g4138941419_ _g4139041422_))))) + (let () (declare (not safe)) (_g4138941419_ _g4139041422_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4138941419_ + _g4139041422_))))) + (let () + (declare (not safe)) + (_g4138941419_ _g4139041422_))))) + (let () + (declare (not safe)) + (_g4138941419_ _g4139041422_))))) + (let () + (declare (not safe)) + (_g4138941419_ _g4139041422_))))) + (let () + (declare (not safe)) + (_g4138941419_ _g4139041422_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4138941419_ + _g4139041422_)))))) + (declare (not safe)) + (_g4138842107_ _L40268_)) + (if (let () + (declare (not safe)) + (gxc#kw-lambda-expr? _L40268_)) + (let* ((_g4211042163_ + (lambda (_g4211142160_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4211142160_)))) + (_g4210943435_ + (lambda (_g4211142166_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _g4211142166_)) + (let ((_e4211942168_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _g4211142166_)))) + (let ((_hd4211842171_ + (let () (declare (not safe)) (##car _e4211942168_))) + (_tl4211742173_ + (let () (declare (not safe)) (##cdr _e4211942168_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4211842171_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#let-values _hd4211842171_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4211742173_)) + (let ((_e4212242176_ + (let () + (declare (not safe)) + (gx#stx-e _tl4211742173_)))) + (let ((_hd4212142179_ + (let () + (declare (not safe)) + (##car _e4212242176_))) + (_tl4212042181_ + (let () + (declare (not safe)) + (##cdr _e4212242176_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4212142179_)) + (let ((_e4212542184_ + (let () + (declare (not safe)) + (gx#stx-e _hd4212142179_)))) + (let ((_hd4212442187_ + (let () + (declare (not safe)) + (##car _e4212542184_))) + (_tl4212342189_ + (let () + (declare (not safe)) + (##cdr _e4212542184_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4212442187_)) + (let ((_e4212842192_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4212442187_)))) + (let ((_hd4212742195_ + (let () + (declare (not safe)) + (##car _e4212842192_))) + (_tl4212642197_ + (let () + (declare (not safe)) + (##cdr _e4212842192_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4212742195_)) + (let ((_e4213142200_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _hd4212742195_)))) + (let ((_hd4213042203_ + (let () (declare (not safe)) (##car _e4213142200_))) + (_tl4212942205_ + (let () (declare (not safe)) (##cdr _e4213142200_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4212942205_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4212642197_)) + (let ((_e4213442208_ + (let () + (declare (not safe)) + (gx#stx-e _tl4212642197_)))) + (let ((_hd4213342211_ + (let () + (declare (not safe)) + (##car _e4213442208_))) + (_tl4213242213_ + (let () + (declare (not safe)) + (##cdr _e4213442208_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4213342211_)) + (let ((_e4213742216_ + (let () + (declare (not safe)) + (gx#stx-e _hd4213342211_)))) + (let ((_hd4213642219_ + (let () + (declare (not safe)) + (##car _e4213742216_))) + (_tl4213542221_ + (let () + (declare (not safe)) + (##cdr _e4213742216_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4213642219_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _hd4213642219_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4213542221_)) + (let ((_e4214042224_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl4213542221_)))) + (let ((_hd4213942227_ + (let () + (declare + (not safe)) + (##car _e4214042224_))) + (_tl4213842229_ + (let () + (declare + (not safe)) + (##cdr _e4214042224_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd4213942227_)) + (let ((_e4214342232_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd4213942227_)))) + (let ((_hd4214242235_ + (let () + (declare (not safe)) + (##car _e4214342232_))) + (_tl4214142237_ + (let () + (declare (not safe)) + (##cdr _e4214342232_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4214242235_)) + (let ((_e4214642240_ + (let () + (declare (not safe)) + (gx#stx-e _hd4214242235_)))) + (let ((_hd4214542243_ + (let () + (declare (not safe)) + (##car _e4214642240_))) + (_tl4214442245_ + (let () + (declare (not safe)) + (##cdr _e4214642240_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4214542243_)) + (let ((_e4214942248_ + (let () + (declare (not safe)) + (gx#stx-e _hd4214542243_)))) + (let ((_hd4214842251_ + (let () + (declare (not safe)) + (##car _e4214942248_))) + (_tl4214742253_ + (let () + (declare (not safe)) + (##cdr _e4214942248_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4214742253_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4214442245_)) + (let ((_e4215242256_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4214442245_)))) + (let ((_hd4215142259_ + (let () + (declare (not safe)) + (##car _e4215242256_))) + (_tl4215042261_ + (let () + (declare (not safe)) + (##cdr _e4215242256_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4215042261_)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl4214142237_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _tl4213842229_)) + (let ((_e4215542264_ + (let () + (declare (not safe)) + (gx#stx-e _tl4213842229_)))) + (let ((_hd4215442267_ + (let () + (declare (not safe)) + (##car _e4215542264_))) + (_tl4215342269_ + (let () + (declare (not safe)) + (##cdr _e4215542264_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4215342269_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4213242213_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4212342189_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4212042181_)) + (let ((_e4215842272_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4212042181_)))) + (let ((_hd4215742275_ + (let () + (declare (not safe)) + (##car _e4215842272_))) + (_tl4215642277_ + (let () + (declare (not safe)) + (##cdr _e4215842272_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4215642277_)) + ((lambda (_L42280_ + _L42281_ + _L42282_ + _L42283_ + _L42284_) + (let* ((_g4232342385_ + (lambda (_g4232442382_) + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4232442382_)))) + (_g4232243432_ + (lambda (_g4232442388_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4232442388_)) + (let ((_e4233242390_ + (let () + (declare (not safe)) + (gx#stx-e _g4232442388_)))) + (let ((_hd4233142393_ + (let () + (declare (not safe)) + (##car _e4233242390_))) + (_tl4233042395_ + (let () + (declare (not safe)) + (##cdr _e4233242390_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4233142393_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd4233142393_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4233042395_)) + (let ((_e4233542398_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4233042395_)))) + (let ((_hd4233442401_ + (let () + (declare (not safe)) + (##car _e4233542398_))) + (_tl4233342403_ + (let () + (declare (not safe)) + (##cdr _e4233542398_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4233342403_)) + (let ((_e4233842406_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl4233342403_)))) + (let ((_hd4233742409_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e4233842406_))) + (_tl4233642411_ + (let () (declare (not safe)) (##cdr _e4233842406_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd4233742409_)) + (let ((_e4234142414_ + (let () + (declare (not safe)) + (gx#stx-e _hd4233742409_)))) + (let ((_hd4234042417_ + (let () + (declare (not safe)) + (##car _e4234142414_))) + (_tl4233942419_ + (let () + (declare (not safe)) + (##cdr _e4234142414_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4234042417_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd4234042417_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4233942419_)) + (let ((_e4234442422_ + (let () + (declare (not safe)) + (gx#stx-e _tl4233942419_)))) + (let ((_hd4234342425_ + (let () + (declare (not safe)) + (##car _e4234442422_))) + (_tl4234242427_ + (let () + (declare (not safe)) + (##cdr _e4234442422_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4234342425_)) + (let ((_e4234742430_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4234342425_)))) + (let ((_hd4234642433_ + (let () + (declare (not safe)) + (##car _e4234742430_))) + (_tl4234542435_ + (let () + (declare (not safe)) + (##cdr _e4234742430_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd4234642433_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd4234642433_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl4234542435_)) + (let ((_e4235042438_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl4234542435_)))) + (let ((_hd4234942441_ + (let () + (declare (not safe)) + (##car _e4235042438_))) + (_tl4234842443_ + (let () + (declare (not safe)) + (##cdr _e4235042438_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4234842443_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4234242427_)) + (let ((_e4235342446_ + (let () + (declare (not safe)) + (gx#stx-e _tl4234242427_)))) + (let ((_hd4235242449_ + (let () + (declare (not safe)) + (##car _e4235342446_))) + (_tl4235142451_ + (let () + (declare (not safe)) + (##cdr _e4235342446_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4235242449_)) + (let ((_e4235642454_ + (let () + (declare (not safe)) + (gx#stx-e _hd4235242449_)))) + (let ((_hd4235542457_ + (let () + (declare (not safe)) + (##car _e4235642454_))) + (_tl4235442459_ + (let () + (declare (not safe)) + (##cdr _e4235642454_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd4235542457_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd4235542457_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4235442459_)) + (let ((_e4235942462_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl4235442459_)))) + (let ((_hd4235842465_ + (let () (declare (not safe)) (##car _e4235942462_))) + (_tl4235742467_ + (let () (declare (not safe)) (##cdr _e4235942462_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4235742467_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4235142451_)) + (let ((_e4236242470_ + (let () + (declare (not safe)) + (gx#stx-e _tl4235142451_)))) + (let ((_hd4236142473_ + (let () + (declare (not safe)) + (##car _e4236242470_))) + (_tl4236042475_ + (let () + (declare (not safe)) + (##cdr _e4236242470_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4236142473_)) + (let ((_e4236542478_ + (let () + (declare (not safe)) + (gx#stx-e _hd4236142473_)))) + (let ((_hd4236442481_ + (let () + (declare (not safe)) + (##car _e4236542478_))) + (_tl4236342483_ + (let () + (declare (not safe)) + (##cdr _e4236542478_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd4236442481_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd4236442481_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4236342483_)) + (let ((_e4236842486_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl4236342483_)))) + (let ((_hd4236742489_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e4236842486_))) + (_tl4236642491_ + (let () (declare (not safe)) (##cdr _e4236842486_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl4236642491_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl4236042475_)) + (if (fx>= (let () + (declare (not safe)) + (gx#stx-length _tl4236042475_)) + '1) + (let ((_g45347_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl4236042475_ + '1)))) + (begin + (let ((_g45348_ + (let () + (declare (not safe)) + (if (##values? _g45347_) + (##vector-length _g45347_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g45348_ 2))) + (error "Context expects 2 values" + _g45348_))) + (let ((_target4236942494_ + (let () + (declare (not safe)) + (##vector-ref _g45347_ 0))) + (_tl4237142496_ + (let () + (declare (not safe)) + (##vector-ref _g45347_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4237142496_)) + (let ((_e4238042499_ + (let () + (declare (not safe)) + (gx#stx-e _tl4237142496_)))) + (let ((_hd4237942502_ + (let () + (declare (not safe)) + (##car _e4238042499_))) + (_tl4237842504_ + (let () + (declare (not safe)) + (##cdr _e4238042499_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4237842504_)) + (letrec ((_loop4237242507_ + (lambda (_hd4237042510_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _kw-ref4237642512_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4237042510_)) + (let ((_e4237342515_ + (let () + (declare (not safe)) + (gx#stx-e _hd4237042510_)))) + (let ((_lp-hd4237442518_ + (let () + (declare (not safe)) + (##car _e4237342515_))) + (_lp-tl4237542520_ + (let () + (declare (not safe)) + (##cdr _e4237342515_)))) + (let ((__tmp45454 + (let () + (declare (not safe)) + (cons _lp-hd4237442518_ + _kw-ref4237642512_)))) + (declare (not safe)) + (_loop4237242507_ _lp-tl4237542520_ __tmp45454)))) + (let ((_kw-ref4237742523_ + (let () + (declare (not safe)) + (reverse _kw-ref4237642512_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4233642411_)) + ((lambda (_L42526_ + _L42527_ + _L42528_ + _L42529_ + _L42530_) + (let* ((_kw-count42581_ + (length (let ((__tmp45349 + (lambda (_g4257342576_ + _g4257442578_) (let () (declare (not safe)) - (##cdr _e3845738478_)))) - (if (gx#stx-pair/null? - _tl3845938483_) - (let ((_g42599_ - (gx#syntax-split-splice - _tl3845938483_ - '0))) - (begin - (let ((_g42600_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (if (##values? _g42599_) - (##vector-length _g42599_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42600_ 2))) - (error "Context expects 2 values" _g42600_))) - (let ((_target3846038486_ - (let () - (declare (not safe)) - (##vector-ref _g42599_ 0))) - (_tl3846238488_ - (let () - (declare (not safe)) - (##vector-ref _g42599_ 1)))) - (if (gx#stx-null? _tl3846238488_) - (letrec ((_loop3846338491_ - (lambda (_hd3846138494_ _clause3846738496_) - (if (gx#stx-pair? _hd3846138494_) - (let ((_e3846438499_ - (gx#stx-e _hd3846138494_))) - (let ((_lp-hd3846538502_ - (let () - (declare (not safe)) - (##car _e3846438499_))) - (_lp-tl3846638504_ - (let () - (declare (not safe)) - (##cdr _e3846438499_)))) - (_loop3846338491_ - _lp-tl3846638504_ - (cons _lp-hd3846538502_ - _clause3846738496_)))) - (let ((_clause3846838507_ - (reverse _clause3846738496_))) - ((lambda (_L38510_) - (for-each - (lambda (_clause38523_) - (let* ((___stx4101841019_ - _clause38523_) - (_g3852638541_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx4101841019_)))) - (let ((___kont4102041021_ - (lambda (_L38569_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L38570_ - _L38571_) - (for-each - (lambda (_g3858638588_) - (gxc#apply-collect-object-refs - _g3858638588_ - _L38571_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check37729_ - _struct-type-assert37730_)) - _L38569_))) - (___kont4102241023_ (lambda () '#!void))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - ___stx4101841019_) - (let ((_e3853138553_ - (gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - ___stx4101841019_))) - (let ((_tl3853338558_ - (let () (declare (not safe)) (##cdr _e3853138553_))) - (_hd3853238556_ - (let () (declare (not safe)) (##car _e3853138553_)))) - (if (gx#stx-pair? _hd3853238556_) - (let ((_e3853438561_ (gx#stx-e _hd3853238556_))) - (let ((_tl3853638566_ - (let () - (declare (not safe)) - (##cdr _e3853438561_))) - (_hd3853538564_ - (let () - (declare (not safe)) - (##car _e3853438561_)))) - (___kont4102041021_ - _tl3853338558_ - _tl3853638566_ - _hd3853538564_))) - (___kont4102241023_)))) - (___kont4102241023_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr1 (lambda (_g3859338596_ - _g3859438598_) - (cons _g3859338596_ - _g3859438598_)) - '() - _L38510_)) - (if (_no-specializer?37733_) - _stx37632_ - (let* ((_specializer-id38607_ - (let* ((_id38601_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (make-symbol (gx#stx-e _L37707_) '"::specialize")) - (_specializer-id38604_ - (gx#core-quote-syntax__1 - _id38601_ - (gx#stx-source _stx37632_)))) - (gx#core-bind-runtime!__0 _specializer-id38604_) - _specializer-id38604_)) - (_lifted-specializer-id38614_ - (if (_lift-unchecked-specializer?37735_) - (let* ((_id38609_ - (make-symbol - (gx#stx-e _L37707_) - '"::specialize::unchecked")) - (_lifted-specializer-id38611_ - (gx#core-quote-syntax__1 - _id38609_ - (gx#stx-source _stx37632_)))) - (gx#core-bind-runtime!__0 _lifted-specializer-id38611_) - _lifted-specializer-id38611_) - '#f)) - (_$t38616_ (make-symbol (gensym '__t))) - (_methods38618_ (hash-keys _method-calls37726_)) - (_$methods38622_ - (map (lambda (_id38620_) - (make-symbol '"__" (gensym _id38620_))) - _methods38618_)) - (_g42601_ - (for-each - (lambda (_g3862338626_ _g3862438628_) - (table-set! - _method-calls37726_ - _g3862338626_ - _g3862438628_)) - _methods38618_ - _$methods38622_)) - (_methods-bind38639_ - (map (lambda (_g3863138634_ _g3863238636_) - (_generate-method-bind37634_ - _$t38616_ - _g3863138634_ - _g3863238636_)) - _methods38618_ - _$methods38622_)) - (_slots38641_ (hash-keys _slot-refs37727_)) - (_$slots38645_ - (map (lambda (_id38643_) - (make-symbol '"__" (gensym _id38643_))) - _slots38641_)) - (_g42602_ - (for-each - (lambda (_g3864638649_ _g3864738651_) - (table-set! _slot-refs37727_ _g3864638649_ _g3864738651_)) - _slots38641_ - _$slots38645_)) - (_slots-bind38662_ - (map (lambda (_g3865438657_ _g3865538659_) - (_generate-slot-bind37635_ - _$t38616_ - _g3865438657_ - _g3865538659_)) - _slots38641_ - _$slots38645_)) - (_class-check38664_ (hash-keys _class-type-check37728_)) - (_$class-check38667_ - (map (lambda (_g42603_) (make-symbol (gensym '__class))) - _class-check38664_)) - (_g42604_ - (for-each - (lambda (_g3866838671_ _g3866938673_) - (table-set! - _class-type-check37728_ - _g3866838671_ - _g3866938673_)) - _class-check38664_ - _$class-check38667_)) - (_class-check-bind38684_ - (map (lambda (_g3867638679_ _g3867738681_) - (_generate-class-check-bind37636_ - _$t38616_ - _g3867638679_ - _g3867738681_)) - _class-check38664_ - _$class-check38667_)) - (_struct-check-all38686_ - (hash-merge - _struct-type-check37729_ - _struct-type-assert37730_)) - (_struct-check38688_ (hash-keys _struct-check-all38686_)) - (_$struct-check38691_ - (map (lambda (_g42605_) (make-symbol (gensym '__class))) - _struct-check38688_)) - (_g42606_ - (for-each - (lambda (_g3869238695_ _g3869338697_) - (table-set! - _struct-check-all38686_ - _g3869238695_ - _g3869338697_)) - _struct-check38688_ - _$struct-check38691_)) - (_struct-check-bind38708_ - (map (lambda (_g3870038703_ _g3870138705_) - (_generate-struct-check-bind37637_ - _$t38616_ - _g3870038703_ - _g3870138705_)) - _struct-check38688_ - _$struct-check38691_)) - (_make-specializer-impl38815_ - (lambda (_struct-type-check138710_ _struct-type-check238711_) - (let ((_specializer-clauses38813_ - (map (lambda (_clause38713_) - (let* ((___stx4103841039_ _clause38713_) - (_g3871638731_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx4103841039_)))) - (let ((___kont4104041041_ - (lambda (_L38759_ _L38760_ _L38761_) - (let ((_body38801_ - (map (lambda (_g3879638798_) - (gxc#apply-subst-object-refs - _g3879638798_ - _L38761_ - _$t38616_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check138710_ - _struct-type-check238711_)) - _L38759_))) - (cons (cons _L38761_ _L38760_) - _body38801_)))) - (___kont4104241043_ - (lambda () _clause38713_))) - (if (gx#stx-pair? ___stx4103841039_) - (let ((_e3872138743_ - (gx#stx-e ___stx4103841039_))) - (let ((_tl3872338748_ - (let () - (declare (not safe)) - (##cdr _e3872138743_))) - (_hd3872238746_ - (let () + (cons _g4257342576_ + _g4257442578_))))) + (declare (not safe)) + (foldr1 __tmp45349 + '() + _L42527_)))) + (_self-index42583_ + (let () + (declare (not safe)) + (fx+ _kw-count42581_ '1)))) + (if (let () + (declare (not safe)) + (gxc#lambda-expr? _L42282_)) + (let* ((_g4258642600_ + (lambda (_g4258742597_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4258742597_)))) + (_g4258542771_ + (lambda (_g4258742603_) + (if (let () (declare (not safe)) - (##car _e3872138743_)))) - (if (gx#stx-pair? _hd3872238746_) - (let ((_e3872438751_ - (gx#stx-e - _hd3872238746_))) - (let ((_tl3872638756_ - (let () - (declare - (not safe)) - (##cdr _e3872438751_))) - (_hd3872538754_ - (let () - (declare - (not safe)) - (##car _e3872438751_)))) - (___kont4104041041_ - _tl3872338748_ - _tl3872638756_ - _hd3872538754_))) - (___kont4104241043_)))) - (___kont4104241043_))))) - (foldr1 (lambda (_g3880538808_ _g3880638810_) - (cons _g3880538808_ _g3880638810_)) - '() - _L38510_)))) - (gxc#xform-wrap-source - (cons '%#case-lambda _specializer-clauses38813_) - _stx37632_)))) - (_specializer-impl38817_ - (_make-specializer-impl38815_ - _struct-check-all38686_ - _empty37731_)) - (_unchecked-specializer-impl38819_ - (if (_unchecked-specializer?37734_) - (_make-specializer-impl38815_ - _empty37731_ - _struct-check-all38686_) - '#f)) - (_specializer-impl38821_ - (_generate-specializer-impl37638_ - _$t38616_ - _methods-bind38639_ - _slots-bind38662_ - _class-check-bind38684_ - _struct-check-bind38708_ - _specializer-impl38817_ - _lifted-specializer-id38614_ - _unchecked-specializer-impl38819_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gxc#verbose - '"generate method specializer " - (gx#stx-e _L37707_) - '" => " - (gx#stx-e - _specializer-id38607_)) - (_generate-specializer-def37639_ - _L37707_ - _specializer-id38607_ - _specializer-impl38821_ - _lifted-specializer-id38614_ - _unchecked-specializer-impl38819_)))) - _clause3846838507_)))))) - (_loop3846338491_ _target3846038486_ '())) - (_g3845438473_ _g3845538476_))))) - (_g3845438473_ _g3845538476_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3845438473_ - _g3845538476_))))) - (_g3845338824_ _L37706_)) - (if (gxc#opt-lambda-expr? _L37706_) - (let* ((_g3882738857_ - (lambda (_g3882838854_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g3882838854_))) - (_g3882639545_ - (lambda (_g3882838860_) - (if (gx#stx-pair? _g3882838860_) - (let ((_e3883238862_ - (gx#stx-e - _g3882838860_))) - (let ((_hd3883338865_ + (gx#stx-pair? + _g4258742603_)) + (let ((_e4259242605_ + (let () + (declare + (not safe)) + (gx#stx-e + _g4258742603_)))) + (let ((_hd4259142608_ (let () (declare (not safe)) - (##car _e3883238862_))) - (_tl3883438867_ + (##car _e4259242605_))) + (_tl4259042610_ (let () (declare (not safe)) - (##cdr _e3883238862_)))) - (if (gx#stx-pair? - _tl3883438867_) - (let ((_e3883538870_ + (##cdr _e4259242605_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl4259042610_)) + (let ((_e4259542613_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl3883438867_))) - (let ((_hd3883638873_ + (let () + (declare (not safe)) + (gx#stx-e _tl4259042610_)))) + (let ((_hd4259442616_ (let () (declare (not safe)) - (##car _e3883538870_))) - (_tl3883738875_ + (##car _e4259542613_))) + (_tl4259342618_ (let () (declare (not safe)) - (##cdr _e3883538870_)))) - (if (gx#stx-pair? _hd3883638873_) - (let ((_e3883838878_ (gx#stx-e _hd3883638873_))) - (let ((_hd3883938881_ - (let () - (declare (not safe)) - (##car _e3883838878_))) - (_tl3884038883_ - (let () - (declare (not safe)) - (##cdr _e3883838878_)))) - (if (gx#stx-pair? _hd3883938881_) - (let ((_e3884138886_ - (gx#stx-e _hd3883938881_))) - (let ((_hd3884238889_ - (let () - (declare (not safe)) - (##car _e3884138886_))) - (_tl3884338891_ - (let () - (declare (not safe)) - (##cdr _e3884138886_)))) - (if (gx#stx-pair? _hd3884238889_) - (let ((_e3884438894_ - (gx#stx-e _hd3884238889_))) - (let ((_hd3884538897_ - (let () - (declare (not safe)) - (##car _e3884438894_))) - (_tl3884638899_ - (let () - (declare (not safe)) - (##cdr _e3884438894_)))) - (if (gx#stx-null? - _tl3884638899_) - (if (gx#stx-pair? - _tl3884338891_) - (let ((_e3884738902_ - (gx#stx-e - _tl3884338891_))) - (let ((_hd3884838905_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e3884738902_))) - (_tl3884938907_ - (let () (declare (not safe)) (##cdr _e3884738902_)))) - (if (gx#stx-null? _tl3884938907_) - (if (gx#stx-null? _tl3884038883_) - (if (gx#stx-pair? _tl3883738875_) - (let ((_e3885038910_ (gx#stx-e _tl3883738875_))) - (let ((_hd3885138913_ - (let () - (declare (not safe)) - (##car _e3885038910_))) - (_tl3885238915_ - (let () - (declare (not safe)) - (##cdr _e3885038910_)))) - (if (gx#stx-null? _tl3885238915_) - ((lambda (_L38918_ _L38919_ _L38920_) - (let* ((_g3894338961_ - (lambda (_g3894438958_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g3894438958_))) - (_g3894239012_ - (lambda (_g3894438964_) - (if (gx#stx-pair? - _g3894438964_) - (let ((_e3894838966_ - (gx#stx-e - _g3894438964_))) - (let ((_hd3894938969_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e3894838966_))) - (_tl3895038971_ - (let () (declare (not safe)) (##cdr _e3894838966_)))) - (if (gx#stx-pair? _tl3895038971_) - (let ((_e3895138974_ (gx#stx-e _tl3895038971_))) - (let ((_hd3895238977_ - (let () - (declare (not safe)) - (##car _e3895138974_))) - (_tl3895338979_ + (##cdr _e4259542613_)))) + ((lambda (_L42621_ _L42622_) + (let ((_self42638_ (let () (declare (not safe)) - (##cdr _e3895138974_)))) - (if (gx#stx-pair? _hd3895238977_) - (let ((_e3895438982_ - (gx#stx-e _hd3895238977_))) - (let ((_hd3895538985_ - (let () - (declare (not safe)) - (##car _e3895438982_))) - (_tl3895638987_ - (let () - (declare (not safe)) - (##cdr _e3895438982_)))) - ((lambda (_L38990_ _L38991_ _L38992_) - (for-each - (lambda (_g3900739009_) - (gxc#apply-collect-object-refs - _g3900739009_ - _L38992_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check37729_ - _struct-type-assert37730_)) - _L38990_)) - _tl3895338979_ - _tl3895638987_ - _hd3895538985_))) - (_g3894338961_ _g3894438964_)))) - (_g3894338961_ _g3894438964_)))) - (_g3894338961_ _g3894438964_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3894239012_ _L38919_)) - (let* ((_g3901539034_ - (lambda (_g3901639031_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g3901639031_))) - (_g3901439153_ - (lambda (_g3901639037_) - (if (gx#stx-pair? - _g3901639037_) - (let ((_e3901839039_ - (gx#stx-e - _g3901639037_))) - (let ((_hd3901939042_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e3901839039_))) - (_tl3902039044_ - (let () (declare (not safe)) (##cdr _e3901839039_)))) - (if (gx#stx-pair/null? _tl3902039044_) - (let ((_g42607_ - (gx#syntax-split-splice _tl3902039044_ '0))) - (begin - (let ((_g42608_ - (let () - (declare (not safe)) - (if (##values? _g42607_) - (##vector-length _g42607_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g42608_ 2))) - (error "Context expects 2 values" _g42608_))) - (let ((_target3902139047_ - (let () - (declare (not safe)) - (##vector-ref _g42607_ 0))) - (_tl3902339049_ - (let () - (declare (not safe)) - (##vector-ref _g42607_ 1)))) - (if (gx#stx-null? _tl3902339049_) - (letrec ((_loop3902439052_ - (lambda (_hd3902239055_ - _clause3902839057_) - (if (gx#stx-pair? _hd3902239055_) - (let ((_e3902539060_ - (gx#stx-e - _hd3902239055_))) - (let ((_lp-hd3902639063_ - (let () - (declare - (not safe)) - (##car _e3902539060_))) - (_lp-tl3902739065_ + (list-ref _L42622_ _self-index42583_)))) + (let ((__tmp45413 + (lambda (_g4263942641_) + (let () + (declare (not safe)) + (gxc#apply-collect-object-refs + _g4263942641_ + _self42638_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check40291_ + _struct-type-assert40292_))))) + (declare (not safe)) + (for-each __tmp45413 _L42621_)) + (if (let () + (declare (not safe)) + (_no-specializer?40295_)) + _stx40194_ + (let* ((_specializer-id42650_ + (let* ((_id42644_ + (make-symbol + (let () + (declare (not safe)) + (gx#stx-e _L40269_)) + '"::specialize")) + (_specializer-id42647_ + (let ((__tmp45414 + (let () + (declare (not safe)) + (gx#stx-source + _stx40194_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _id42644_ + __tmp45414)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 + _specializer-id42647_)) + _specializer-id42647_)) + (_lifted-specializer-id42657_ + (if (let () + (declare (not safe)) + (_lift-unchecked-specializer?40297_)) + (let* ((_id42652_ + (make-symbol + (let () + (declare (not safe)) + (gx#stx-e _L40269_)) + '"::specialize::unchecked")) + (_lifted-specializer-id42654_ + (let ((__tmp45415 (let () (declare (not safe)) - (##cdr _e3902539060_)))) - (_loop3902439052_ - _lp-tl3902739065_ - (cons _lp-hd3902639063_ - _clause3902839057_)))) - (let ((_clause3902939068_ - (reverse _clause3902839057_))) - ((lambda (_L39071_) - (for-each - (lambda (_clause39084_) - (let* ((_g3908639101_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g3908739098_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g3908739098_))) - (_g3908539143_ - (lambda (_g3908739104_) - (if (gx#stx-pair? _g3908739104_) - (let ((_e3909139106_ (gx#stx-e _g3908739104_))) - (let ((_hd3909239109_ - (let () - (declare (not safe)) - (##car _e3909139106_))) - (_tl3909339111_ + (gx#stx-source + _stx40194_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _id42652_ + __tmp45415)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 + _lifted-specializer-id42654_)) + _lifted-specializer-id42654_) + '#f)) + (_$t42659_ + (make-symbol (let () (declare (not safe)) - (##cdr _e3909139106_)))) - (if (gx#stx-pair? _hd3909239109_) - (let ((_e3909439114_ - (gx#stx-e _hd3909239109_))) - (let ((_hd3909539117_ + (gensym '__t)))) + (_methods42661_ + (let () + (declare (not safe)) + (hash-keys _method-calls40288_))) + (_$methods42665_ + (let ((__tmp45416 + (lambda (_id42663_) + (make-symbol + '"__" + (let () + (declare (not safe)) + (gensym _id42663_)))))) + (declare (not safe)) + (map __tmp45416 _methods42661_))) + (_g45418_ + (let ((__tmp45417 + (lambda (_g4266642669_ + _g4266742671_) (let () (declare (not safe)) - (##car _e3909439114_))) - (_tl3909639119_ + (table-set! + _method-calls40288_ + _g4266642669_ + _g4266742671_))))) + (declare (not safe)) + (for-each + __tmp45417 + _methods42661_ + _$methods42665_))) + (_methods-bind42682_ + (let ((__tmp45419 + (lambda (_g4267442677_ + _g4267542679_) (let () (declare (not safe)) - (##cdr _e3909439114_)))) - ((lambda (_L39122_ - _L39123_ - _L39124_) - (for-each - (lambda (_g3913839140_) - (gxc#apply-collect-object-refs - _g3913839140_ - _L39124_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check37729_ - _struct-type-assert37730_)) - _L39122_)) - _tl3909339111_ - _tl3909639119_ - _hd3909539117_))) - (_g3908639101_ _g3908739104_)))) - (_g3908639101_ _g3908739104_))))) - (_g3908539143_ _clause39084_))) - (foldr1 (lambda (_g3914539148_ _g3914639150_) - (cons _g3914539148_ _g3914639150_)) - '() - _L39071_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clause3902939068_)))))) - (_loop3902439052_ _target3902139047_ '())) - (_g3901539034_ _g3901639037_))))) - (_g3901539034_ _g3901639037_)))) - (_g3901539034_ _g3901639037_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3901439153_ _L38918_)) - (if (_no-specializer?37733_) - _stx37632_ - (let* ((_specializer-id39162_ - (let* ((_id39156_ - (make-symbol - (gx#stx-e - _L37707_) - '"::specialize")) - (_specializer-id39159_ - (gx#core-quote-syntax__1 - _id39156_ - (gx#stx-source - _stx37632_)))) - (gx#core-bind-runtime!__0 - _specializer-id39159_) - _specializer-id39159_)) - (_lifted-specializer-id39169_ - (if (_lift-unchecked-specializer?37735_) - (let* ((_id39164_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (make-symbol - (gx#stx-e _L37707_) - '"::specialize::unchecked")) - (_lifted-specializer-id39166_ - (gx#core-quote-syntax__1 - _id39164_ - (gx#stx-source _stx37632_)))) - (gx#core-bind-runtime!__0 _lifted-specializer-id39166_) - _lifted-specializer-id39166_) - '#f)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$t39171_ - (make-symbol - (gensym '__t))) - (_methods39173_ - (hash-keys - _method-calls37726_)) - (_$methods39177_ - (map (lambda (_id39175_) - (make-symbol - '"__" - (gensym _id39175_))) - _methods39173_)) - (_g42609_ - (for-each - (lambda (_g3917839181_ - _g3917939183_) - (table-set! - _method-calls37726_ - _g3917839181_ - _g3917939183_)) - _methods39173_ - _$methods39177_)) - (_methods-bind39194_ - (map (lambda (_g3918639189_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3918739191_) - (_generate-method-bind37634_ - _$t39171_ - _g3918639189_ - _g3918739191_)) - _methods39173_ - _$methods39177_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots39196_ - (hash-keys - _slot-refs37727_)) - (_$slots39200_ - (map (lambda (_id39198_) - (make-symbol - '"__" - (gensym _id39198_))) - _slots39196_)) - (_g42610_ - (for-each - (lambda (_g3920139204_ - _g3920239206_) - (table-set! - _slot-refs37727_ - _g3920139204_ - _g3920239206_)) - _slots39196_ - _$slots39200_)) - (_slots-bind39217_ - (map (lambda (_g3920939212_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3921039214_) - (_generate-slot-bind37635_ - _$t39171_ - _g3920939212_ - _g3921039214_)) - _slots39196_ - _$slots39200_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_class-check39219_ - (hash-keys - _class-type-check37728_)) - (_$class-check39222_ - (map (lambda (_g42611_) - (make-symbol - (gensym '__class))) - _class-check39219_)) - (_g42612_ - (for-each - (lambda (_g3922339226_ - _g3922439228_) - (table-set! - _class-type-check37728_ - _g3922339226_ - _g3922439228_)) - _class-check39219_ - _$class-check39222_)) - (_class-check-bind39239_ - (map (lambda (_g3923139234_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3923239236_) - (_generate-class-check-bind37636_ - _$t39171_ - _g3923139234_ - _g3923239236_)) - _class-check39219_ - _$class-check39222_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_struct-check-all39241_ - (hash-merge - _struct-type-check37729_ - _struct-type-assert37730_)) - (_struct-check39243_ - (hash-keys - _struct-check-all39241_)) - (_$struct-check39246_ - (map (lambda (_g42613_) - (make-symbol - (gensym '__class))) - _struct-check39243_)) - (_g42614_ - (for-each - (lambda (_g3924739250_ - _g3924839252_) - (table-set! - _struct-check-all39241_ - _g3924739250_ - _g3924839252_)) - _struct-check39243_ - _$struct-check39246_)) - (_struct-check-bind39263_ - (map (lambda (_g3925539258_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3925639260_) - (_generate-struct-check-bind37637_ - _$t39171_ - _g3925539258_ - _g3925639260_)) - _struct-check39243_ - _$struct-check39246_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-lambda-expr39362_ - (lambda (_struct-type-check139265_ - _struct-type-check239266_) - (let* ((_g3926839286_ - (lambda (_g3926939283_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g3926939283_))) - (_g3926739359_ - (lambda (_g3926939289_) - (if (gx#stx-pair? _g3926939289_) - (let ((_e3927339291_ (gx#stx-e _g3926939289_))) - (let ((_hd3927439294_ - (let () - (declare (not safe)) - (##car _e3927339291_))) - (_tl3927539296_ - (let () - (declare (not safe)) - (##cdr _e3927339291_)))) - (if (gx#stx-pair? _tl3927539296_) - (let ((_e3927639299_ - (gx#stx-e _tl3927539296_))) - (let ((_hd3927739302_ - (let () - (declare (not safe)) - (##car _e3927639299_))) - (_tl3927839304_ - (let () - (declare (not safe)) - (##cdr _e3927639299_)))) - (if (gx#stx-pair? _hd3927739302_) - (let ((_e3927939307_ - (gx#stx-e - _hd3927739302_))) - (let ((_hd3928039310_ - (let () - (declare (not safe)) - (##car _e3927939307_))) - (_tl3928139312_ - (let () - (declare (not safe)) - (##cdr _e3927939307_)))) - ((lambda (_L39315_ - _L39316_ - _L39317_) - (let ((_body39357_ - (map (lambda (_g3935239354_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#apply-subst-object-refs - _g3935239354_ - _L39317_ - _$t39171_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check139265_ - _struct-type-check239266_)) - _L39315_))) - (gxc#xform-wrap-source - (cons '%#lambda (cons (cons _L39317_ _L39316_) _body39357_)) - _L38919_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl3927839304_ - _tl3928139312_ - _hd3928039310_))) - (_g3926839286_ _g3926939289_)))) - (_g3926839286_ _g3926939289_)))) - (_g3926839286_ _g3926939289_))))) - (_g3926739359_ _L38919_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-case-lambda-expr39523_ - (lambda (_struct-type-check139364_ - _struct-type-check239365_) - (let* ((_g3936739386_ - (lambda (_g3936839383_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g3936839383_))) - (_g3936639520_ - (lambda (_g3936839389_) - (if (gx#stx-pair? _g3936839389_) - (let ((_e3937039391_ (gx#stx-e _g3936839389_))) - (let ((_hd3937139394_ - (let () - (declare (not safe)) - (##car _e3937039391_))) - (_tl3937239396_ - (let () - (declare (not safe)) - (##cdr _e3937039391_)))) - (if (gx#stx-pair/null? _tl3937239396_) - (let ((_g42615_ - (gx#syntax-split-splice - _tl3937239396_ - '0))) - (begin - (let ((_g42616_ + (_generate-method-bind40196_ + _$t42659_ + _g4267442677_ + _g4267542679_))))) + (declare (not safe)) + (map __tmp45419 + _methods42661_ + _$methods42665_))) + (_slots42684_ + (let () + (declare (not safe)) + (hash-keys _slot-refs40289_))) + (_$slots42688_ + (let ((__tmp45420 + (lambda (_id42686_) + (make-symbol + '"__" + (let () + (declare (not safe)) + (gensym _id42686_)))))) + (declare (not safe)) + (map __tmp45420 _slots42684_))) + (_g45422_ + (let ((__tmp45421 + (lambda (_g4268942692_ + _g4269042694_) (let () (declare (not safe)) - (if (##values? _g42615_) - (##vector-length - _g42615_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g42616_ 2))) - (error "Context expects 2 values" - _g42616_))) - (let ((_target3937339399_ + (table-set! + _slot-refs40289_ + _g4268942692_ + _g4269042694_))))) + (declare (not safe)) + (for-each + __tmp45421 + _slots42684_ + _$slots42688_))) + (_slots-bind42705_ + (let ((__tmp45423 + (lambda (_g4269742700_ + _g4269842702_) + (let () + (declare (not safe)) + (_generate-slot-bind40197_ + _$t42659_ + _g4269742700_ + _g4269842702_))))) + (declare (not safe)) + (map __tmp45423 + _slots42684_ + _$slots42688_))) + (_class-check42707_ + (let () + (declare (not safe)) + (hash-keys _class-type-check40290_))) + (_$class-check42710_ + (let ((__tmp45424 + (lambda (_g45425_) + (make-symbol + (let () + (declare (not safe)) + (gensym '__class)))))) + (declare (not safe)) + (map __tmp45424 _class-check42707_))) + (_g45427_ + (let ((__tmp45426 + (lambda (_g4271142714_ + _g4271242716_) + (let () + (declare (not safe)) + (table-set! + _class-type-check40290_ + _g4271142714_ + _g4271242716_))))) + (declare (not safe)) + (for-each + __tmp45426 + _class-check42707_ + _$class-check42710_))) + (_class-check-bind42727_ + (let ((__tmp45428 + (lambda (_g4271942722_ + _g4272042724_) + (let () + (declare (not safe)) + (_generate-class-check-bind40198_ + _$t42659_ + _g4271942722_ + _g4272042724_))))) + (declare (not safe)) + (map __tmp45428 + _class-check42707_ + _$class-check42710_))) + (_struct-check-all42729_ + (let () + (declare (not safe)) + (hash-merge + _struct-type-check40291_ + _struct-type-assert40292_))) + (_struct-check42731_ + (let () + (declare (not safe)) + (hash-keys _struct-check-all42729_))) + (_$struct-check42734_ + (let ((__tmp45429 + (lambda (_g45430_) + (make-symbol + (let () + (declare (not safe)) + (gensym '__class)))))) + (declare (not safe)) + (map __tmp45429 + _struct-check42731_))) + (_g45432_ + (let ((__tmp45431 + (lambda (_g4273542738_ + _g4273642740_) (let () (declare (not safe)) - (##vector-ref _g42615_ 0))) - (_tl3937539401_ + (table-set! + _struct-check-all42729_ + _g4273542738_ + _g4273642740_))))) + (declare (not safe)) + (for-each + __tmp45431 + _struct-check42731_ + _$struct-check42734_))) + (_struct-check-bind42751_ + (let ((__tmp45433 + (lambda (_g4274342746_ + _g4274442748_) (let () (declare (not safe)) - (##vector-ref _g42615_ 1)))) - (if (gx#stx-null? _tl3937539401_) - (letrec ((_loop3937639404_ - (lambda (_hd3937439407_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause3938039409_) - (if (gx#stx-pair? _hd3937439407_) - (let ((_e3937739412_ (gx#stx-e _hd3937439407_))) - (let ((_lp-hd3937839415_ + (_generate-struct-check-bind40199_ + _$t42659_ + _g4274342746_ + _g4274442748_))))) + (declare (not safe)) + (map __tmp45433 + _struct-check42731_ + _$struct-check42734_))) + (_make-specializer-impl42762_ + (lambda (_struct-type-check142753_ + _struct-type-check242754_) + (let* ((_specializer-body42760_ + (let ((__tmp45434 + (lambda (_g4275542757_) + (let () + (declare + (not safe)) + (gxc#apply-subst-object-refs + _g4275542757_ + _self42638_ + _$t42659_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check142753_ + _struct-type-check242754_))))) + (declare (not safe)) + (map __tmp45434 _L42621_))) + (__tmp45435 + (let ((__tmp45436 + (let ((__tmp45438 + (let ((__tmp45439 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp45451 + (let () + (declare (not safe)) + (cons _L42284_ '()))) + (__tmp45440 + (let ((__tmp45441 + (let ((__tmp45442 + (let ((__tmp45444 + (let ((__tmp45445 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp45450 (let () (declare (not safe)) - (##car _e3937739412_))) - (_lp-tl3937939417_ - (let () + (cons _L42283_ '()))) + (__tmp45446 + (let ((__tmp45447 + (let ((__tmp45448 + (let ((__tmp45449 + (let () + (declare (not safe)) + (cons _L42622_ + _specializer-body42760_)))) + (declare (not safe)) + (cons '%#lambda __tmp45449)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp45448 + _L42282_)))) (declare (not safe)) - (##cdr _e3937739412_)))) - (_loop3937639404_ - _lp-tl3937939417_ - (cons _lp-hd3937839415_ _clause3938039409_)))) - (let ((_clause3938139420_ - (reverse _clause3938039409_))) - ((lambda (_L39423_) - (let ((_clauses39518_ - (map (lambda (_clause39438_) - (let* ((___stx4105841059_ - _clause39438_) - (_g3944139456_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx4105841059_)))) - (let ((___kont4106041061_ - (lambda (_L39484_ - _L39485_ - _L39486_) - (let ((_body39506_ - (map (lambda (_g3950139503_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#apply-subst-object-refs - _g3950139503_ - _L39486_ - _$t39171_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check139364_ - _struct-type-check239365_)) - _L39484_))) - (cons (cons _L39486_ _L39485_) _body39506_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4106241063_ - (lambda () _clause39438_))) - (if (gx#stx-pair? - ___stx4105841059_) - (let ((_e3944639468_ - (gx#stx-e - ___stx4105841059_))) - (let ((_tl3944839473_ - (let () - (declare - (not safe)) - (##cdr _e3944639468_))) - (_hd3944739471_ - (let () - (declare - (not safe)) - (##car _e3944639468_)))) - (if (gx#stx-pair? - _hd3944739471_) - (let ((_e3944939476_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd3944739471_))) - (let ((_tl3945139481_ - (let () - (declare (not safe)) - (##cdr _e3944939476_))) - (_hd3945039479_ - (let () - (declare (not safe)) - (##car _e3944939476_)))) - (___kont4106041061_ - _tl3944839473_ - _tl3945139481_ - _hd3945039479_))) - (___kont4106241063_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4106241063_))))) - (foldr1 (lambda (_g3951039513_ - _g3951139515_) - (cons _g3951039513_ - _g3951139515_)) - '() - _L39423_)))) - (gxc#xform-wrap-source - (cons '%#case-lambda _clauses39518_) - _L38918_))) - _clause3938139420_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3937639404_ - _target3937339399_ - '())) - (_g3936739386_ - _g3936839389_))))) - (_g3936739386_ _g3936839389_)))) - (_g3936739386_ _g3936839389_))))) - (_g3936639520_ _L38918_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-impl39528_ - (lambda (_specializer-lambda-expr39525_ - _specializer-case-lambda-expr39526_) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (cons (cons (cons _L38920_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _specializer-lambda-expr39525_ - '())) - '()) - (cons _specializer-case-lambda-expr39526_ '()))) - _stx37632_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-lambda-expr39530_ - (_make-specializer-lambda-expr39362_ - _struct-check-all39241_ - _empty37731_)) - (_specializer-case-lambda-expr39532_ - (_make-specializer-case-lambda-expr39523_ - _struct-check-all39241_ - _empty37731_)) - (_specializer-impl39534_ - (_make-specializer-impl39528_ - _specializer-lambda-expr39530_ - _specializer-case-lambda-expr39532_)) - (_unchecked-specializer-lambda-expr39536_ - (if (_unchecked-specializer?37734_) - (_make-specializer-lambda-expr39362_ - _empty37731_ - _struct-check-all39241_) - '#f)) - (_unchecked-specializer-case-lambda-expr39538_ - (if (_unchecked-specializer?37734_) - (_make-specializer-case-lambda-expr39523_ - _empty37731_ - _struct-check-all39241_) - '#f)) - (_unchecked-specializer-impl39540_ - (if (_unchecked-specializer?37734_) - (_make-specializer-impl39528_ - _unchecked-specializer-lambda-expr39536_ - _unchecked-specializer-case-lambda-expr39538_) - '#f)) - (_specializer-impl39542_ - (_generate-specializer-impl37638_ - _$t39171_ - _methods-bind39194_ - _slots-bind39217_ - _class-check-bind39239_ - _struct-check-bind39263_ - _specializer-impl39534_ - _lifted-specializer-id39169_ - _unchecked-specializer-impl39540_))) - (gxc#verbose - '"generate method specializer " - (gx#stx-e _L37707_) - '" => " - (gx#stx-e - _specializer-id39162_)) - (_generate-specializer-def37639_ - _L37707_ - _specializer-id39162_ - _specializer-impl39542_ - _lifted-specializer-id39169_ - _unchecked-specializer-impl39540_)))) - _hd3885138913_ - _hd3884838905_ - _hd3884538897_) - (_g3882738857_ _g3882838860_)))) - (_g3882738857_ _g3882838860_)) - (_g3882738857_ _g3882838860_)) - (_g3882738857_ _g3882838860_)))) - (_g3882738857_ _g3882838860_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3882738857_ - _g3882838860_)))) - (_g3882738857_ _g3882838860_)))) - (_g3882738857_ _g3882838860_)))) - (_g3882738857_ _g3882838860_)))) - (_g3882738857_ _g3882838860_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3882738857_ - _g3882838860_))))) - (_g3882639545_ _L37706_)) - (if (gxc#kw-lambda-expr? _L37706_) - (let* ((_g3954839601_ - (lambda (_g3954939598_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g3954939598_))) - (_g3954740873_ - (lambda (_g3954939604_) - (if (gx#stx-pair? - _g3954939604_) - (let ((_e3955539606_ - (gx#stx-e - _g3954939604_))) - (let ((_hd3955639609_ - (let () + (cons __tmp45447 '())))) + (declare (not safe)) + (cons __tmp45450 __tmp45446)))) + (declare (not safe)) + (cons __tmp45445 '()))) + (__tmp45443 + (let () (declare (not safe)) (cons _L42281_ '())))) + (declare (not safe)) + (cons __tmp45444 __tmp45443)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#let-values + __tmp45442)))) + (declare (not safe)) + (cons __tmp45441 '())))) + (declare (not safe)) + (cons __tmp45451 __tmp45440)))) + (declare (not safe)) + (cons __tmp45439 '()))) + (__tmp45437 + (let () (declare (not safe)) (cons _L42280_ '())))) + (declare (not safe)) + (cons __tmp45438 __tmp45437)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#let-values + __tmp45436)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp45435 + _stx40194_)))) + (_specializer-impl42764_ + (let () + (declare (not safe)) + (_make-specializer-impl42762_ + _struct-check-all42729_ + _empty40293_))) + (_unchecked-specializer-impl42766_ + (if (let () + (declare (not safe)) + (_unchecked-specializer?40296_)) + (let () + (declare (not safe)) + (_make-specializer-impl42762_ + _empty40293_ + _struct-check-all42729_)) + '#f)) + (_specializer-impl42768_ + (let () + (declare (not safe)) + (_generate-specializer-impl40200_ + _$t42659_ + _methods-bind42682_ + _slots-bind42705_ + _class-check-bind42727_ + _struct-check-bind42751_ + _specializer-impl42764_ + _lifted-specializer-id42657_ + _unchecked-specializer-impl42766_)))) + (let ((__tmp45453 + (let () + (declare (not safe)) + (gx#stx-e _L40269_))) + (__tmp45452 + (let () + (declare (not safe)) + (gx#stx-e _specializer-id42650_)))) + (declare (not safe)) + (gxc#verbose + '"generate method specializer " + __tmp45453 + '" => " + __tmp45452)) + (let () + (declare (not safe)) + (_generate-specializer-def40201_ + _L40269_ + _specializer-id42650_ + _specializer-impl42768_ + _lifted-specializer-id42657_ + _unchecked-specializer-impl42766_)))))) + _tl4259342618_ + _hd4259442616_))) + (let () + (declare (not safe)) + (_g4258642600_ _g4258742603_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4258642600_ + _g4258742603_)))))) + (declare (not safe)) + (_g4258542771_ _L42282_)) + (if (let () + (declare (not safe)) + (gxc#opt-lambda-expr? _L42282_)) + (let* ((_g4277442804_ + (lambda (_g4277542801_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4277542801_)))) + (_g4277343429_ + (lambda (_g4277542807_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _g4277542807_)) + (let ((_e4278142809_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e3955539606_))) - (_tl3955739611_ - (let () (declare (not safe)) (##cdr _e3955539606_)))) - (if (gx#identifier? _hd3955639609_) - (if (gx#stx-eq? '%#let-values _hd3955639609_) - (if (gx#stx-pair? _tl3955739611_) - (let ((_e3955839614_ (gx#stx-e _tl3955739611_))) - (let ((_hd3955939617_ + (not safe)) + (gx#stx-e _g4277542807_)))) + (let ((_hd4278042812_ + (let () (declare (not safe)) (##car _e4278142809_))) + (_tl4277942814_ + (let () (declare (not safe)) (##cdr _e4278142809_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4277942814_)) + (let ((_e4278442817_ + (let () + (declare (not safe)) + (gx#stx-e _tl4277942814_)))) + (let ((_hd4278342820_ + (let () + (declare (not safe)) + (##car _e4278442817_))) + (_tl4278242822_ + (let () + (declare (not safe)) + (##cdr _e4278442817_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4278342820_)) + (let ((_e4278742825_ + (let () + (declare (not safe)) + (gx#stx-e _hd4278342820_)))) + (let ((_hd4278642828_ (let () (declare (not safe)) - (##car _e3955839614_))) - (_tl3956039619_ + (##car _e4278742825_))) + (_tl4278542830_ (let () (declare (not safe)) - (##cdr _e3955839614_)))) - (if (gx#stx-pair? _hd3955939617_) - (let ((_e3956139622_ - (gx#stx-e _hd3955939617_))) - (let ((_hd3956239625_ + (##cdr _e4278742825_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4278642828_)) + (let ((_e4279042833_ + (let () + (declare (not safe)) + (gx#stx-e _hd4278642828_)))) + (let ((_hd4278942836_ (let () (declare (not safe)) - (##car _e3956139622_))) - (_tl3956339627_ + (##car _e4279042833_))) + (_tl4278842838_ (let () (declare (not safe)) - (##cdr _e3956139622_)))) - (if (gx#stx-pair? _hd3956239625_) - (let ((_e3956439630_ - (gx#stx-e - _hd3956239625_))) - (let ((_hd3956539633_ + (##cdr _e4279042833_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4278942836_)) + (let ((_e4279342841_ + (let () + (declare (not safe)) + (gx#stx-e + _hd4278942836_)))) + (let ((_hd4279242844_ (let () (declare (not safe)) - (##car _e3956439630_))) - (_tl3956639635_ + (##car _e4279342841_))) + (_tl4279142846_ (let () (declare (not safe)) - (##cdr _e3956439630_)))) - (if (gx#stx-pair? - _hd3956539633_) - (let ((_e3956739638_ - (gx#stx-e - _hd3956539633_))) - (let ((_hd3956839641_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e3956739638_))) - (_tl3956939643_ - (let () (declare (not safe)) (##cdr _e3956739638_)))) - (if (gx#stx-null? _tl3956939643_) - (if (gx#stx-pair? _tl3956639635_) - (let ((_e3957039646_ (gx#stx-e _tl3956639635_))) - (let ((_hd3957139649_ - (let () - (declare (not safe)) - (##car _e3957039646_))) - (_tl3957239651_ - (let () - (declare (not safe)) - (##cdr _e3957039646_)))) - (if (gx#stx-pair? _hd3957139649_) - (let ((_e3957339654_ - (gx#stx-e _hd3957139649_))) - (let ((_hd3957439657_ - (let () - (declare (not safe)) - (##car _e3957339654_))) - (_tl3957539659_ - (let () - (declare (not safe)) - (##cdr _e3957339654_)))) - (if (gx#identifier? _hd3957439657_) - (if (gx#stx-eq? - '%#let-values - _hd3957439657_) - (if (gx#stx-pair? - _tl3957539659_) - (let ((_e3957639662_ - (gx#stx-e - _tl3957539659_))) - (let ((_hd3957739665_ - (let () - (declare - (not safe)) - (##car _e3957639662_))) - (_tl3957839667_ - (let () - (declare - (not safe)) - (##cdr _e3957639662_)))) - (if (gx#stx-pair? - _hd3957739665_) - (let ((_e3957939670_ + (##cdr _e4279342841_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4279142846_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl4278842838_)) + (let ((_e4279642849_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd3957739665_))) - (let ((_hd3958039673_ + (let () + (declare (not safe)) + (gx#stx-e _tl4278842838_)))) + (let ((_hd4279542852_ (let () (declare (not safe)) - (##car _e3957939670_))) - (_tl3958139675_ + (##car _e4279642849_))) + (_tl4279442854_ (let () (declare (not safe)) - (##cdr _e3957939670_)))) - (if (gx#stx-pair? _hd3958039673_) - (let ((_e3958239678_ (gx#stx-e _hd3958039673_))) - (let ((_hd3958339681_ - (let () - (declare (not safe)) - (##car _e3958239678_))) - (_tl3958439683_ - (let () - (declare (not safe)) - (##cdr _e3958239678_)))) - (if (gx#stx-pair? _hd3958339681_) - (let ((_e3958539686_ - (gx#stx-e _hd3958339681_))) - (let ((_hd3958639689_ + (##cdr _e4279642849_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4279442854_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4278542830_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4278242822_)) + (let ((_e4279942857_ + (let () + (declare (not safe)) + (gx#stx-e _tl4278242822_)))) + (let ((_hd4279842860_ (let () (declare (not safe)) - (##car _e3958539686_))) - (_tl3958739691_ + (##car _e4279942857_))) + (_tl4279742862_ (let () (declare (not safe)) - (##cdr _e3958539686_)))) - (if (gx#stx-null? _tl3958739691_) - (if (gx#stx-pair? _tl3958439683_) - (let ((_e3958839694_ - (gx#stx-e - _tl3958439683_))) - (let ((_hd3958939697_ - (let () - (declare (not safe)) - (##car _e3958839694_))) - (_tl3959039699_ + (##cdr _e4279942857_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4279742862_)) + ((lambda (_L42865_ + _L42866_ + _L42867_) + (let* ((_g4289042904_ + (lambda (_g4289142901_) (let () (declare (not safe)) - (##cdr _e3958839694_)))) - (if (gx#stx-null? - _tl3959039699_) - (if (gx#stx-null? - _tl3958139675_) - (if (gx#stx-pair? - _tl3957839667_) - (let ((_e3959139702_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl3957839667_))) - (let ((_hd3959239705_ - (let () - (declare (not safe)) - (##car _e3959139702_))) - (_tl3959339707_ - (let () - (declare (not safe)) - (##cdr _e3959139702_)))) - (if (gx#stx-null? _tl3959339707_) - (if (gx#stx-null? _tl3957239651_) - (if (gx#stx-null? _tl3956339627_) - (if (gx#stx-pair? _tl3956039619_) - (let ((_e3959439710_ - (gx#stx-e _tl3956039619_))) - (let ((_hd3959539713_ - (let () - (declare (not safe)) - (##car _e3959439710_))) - (_tl3959639715_ - (let () - (declare (not safe)) - (##cdr _e3959439710_)))) - (if (gx#stx-null? - _tl3959639715_) - ((lambda (_L39718_ - _L39719_ - _L39720_ - _L39721_ - _L39722_) - (let* ((_g3976139823_ - (lambda (_g3976239820_) - (gx#raise-syntax-error -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '"Bad syntax" - _g3976239820_))) - (_g3976040870_ - (lambda (_g3976239826_) - (if (gx#stx-pair? _g3976239826_) - (let ((_e3976839828_ (gx#stx-e _g3976239826_))) - (let ((_hd3976939831_ + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4289142901_)))) + (_g4288942945_ + (lambda (_g4289142907_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _g4289142907_)) + (let ((_e4289642909_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _g4289142907_)))) + (let ((_hd4289542912_ + (let () + (declare (not safe)) + (##car _e4289642909_))) + (_tl4289442914_ + (let () + (declare (not safe)) + (##cdr _e4289642909_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4289442914_)) + (let ((_e4289942917_ + (let () + (declare (not safe)) + (gx#stx-e _tl4289442914_)))) + (let ((_hd4289842920_ (let () (declare (not safe)) - (##car _e3976839828_))) - (_tl3977039833_ + (##car _e4289942917_))) + (_tl4289742922_ (let () (declare (not safe)) - (##cdr _e3976839828_)))) - (if (gx#identifier? _hd3976939831_) - (if (gx#stx-eq? '%#lambda _hd3976939831_) - (if (gx#stx-pair? _tl3977039833_) - (let ((_e3977139836_ - (gx#stx-e _tl3977039833_))) - (let ((_hd3977239839_ - (let () - (declare (not safe)) - (##car _e3977139836_))) - (_tl3977339841_ - (let () - (declare (not safe)) - (##cdr _e3977139836_)))) - (if (gx#stx-pair? - _tl3977339841_) - (let ((_e3977439844_ - (gx#stx-e - _tl3977339841_))) - (let ((_hd3977539847_ - (let () - (declare + (##cdr _e4289942917_)))) + ((lambda (_L42925_ _L42926_) + (let* ((_self42939_ + (let () + (declare (not safe)) + (list-ref + _L42926_ + _self-index42583_))) + (__tmp45350 + (lambda (_g4294042942_) + (let () + (declare (not safe)) + (gxc#apply-collect-object-refs + _g4294042942_ + _self42939_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check40291_ + _struct-type-assert40292_))))) + (declare (not safe)) + (for-each __tmp45350 _L42925_))) + _tl4289742922_ + _hd4289842920_))) + (let () + (declare (not safe)) + (_g4289042904_ _g4289142907_))))) + (let () + (declare (not safe)) + (_g4289042904_ _g4289142907_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g4288942945_ _L42866_)) + (let* ((_g4294842967_ + (lambda (_g4294942964_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4294942964_)))) + (_g4294743072_ + (lambda (_g4294942970_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _g4294942970_)) + (let ((_e4295342972_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e3977439844_))) - (_tl3977639849_ - (let () (declare (not safe)) (##cdr _e3977439844_)))) - (if (gx#stx-pair? _hd3977539847_) - (let ((_e3977739852_ (gx#stx-e _hd3977539847_))) - (let ((_hd3977839855_ + (let () + (declare (not safe)) + (gx#stx-e _g4294942970_)))) + (let ((_hd4295242975_ (let () (declare (not safe)) - (##car _e3977739852_))) - (_tl3977939857_ + (##car _e4295342972_))) + (_tl4295142977_ (let () (declare (not safe)) - (##cdr _e3977739852_)))) - (if (gx#identifier? _hd3977839855_) - (if (gx#stx-eq? '%#call _hd3977839855_) - (if (gx#stx-pair? _tl3977939857_) - (let ((_e3978039860_ - (gx#stx-e _tl3977939857_))) - (let ((_hd3978139863_ - (let () - (declare (not safe)) - (##car _e3978039860_))) - (_tl3978239865_ - (let () - (declare (not safe)) - (##cdr _e3978039860_)))) - (if (gx#stx-pair? _hd3978139863_) - (let ((_e3978339868_ - (gx#stx-e _hd3978139863_))) - (let ((_hd3978439871_ + (##cdr _e4295342972_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl4295142977_)) + (let ((_g45351_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl4295142977_ + '0)))) + (begin + (let ((_g45352_ + (let () + (declare (not safe)) + (if (##values? _g45351_) + (##vector-length _g45351_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g45352_ 2))) + (error "Context expects 2 values" + _g45352_))) + (let ((_target4295442980_ + (let () + (declare (not safe)) + (##vector-ref _g45351_ 0))) + (_tl4295642982_ + (let () + (declare (not safe)) + (##vector-ref _g45351_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4295642982_)) + (letrec ((_loop4295742985_ + (lambda (_hd4295542988_ + _clause4296142990_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd4295542988_)) + (let ((_e4295842993_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _hd4295542988_)))) + (let ((_lp-hd4295942996_ + (let () (declare (not safe)) (##car _e4295842993_))) + (_lp-tl4296042998_ + (let () (declare (not safe)) (##cdr _e4295842993_)))) + (let ((__tmp45357 + (let () + (declare (not safe)) + (cons _lp-hd4295942996_ _clause4296142990_)))) + (declare (not safe)) + (_loop4295742985_ _lp-tl4296042998_ __tmp45357)))) + (let ((_clause4296243001_ + (let () + (declare (not safe)) + (reverse _clause4296142990_)))) + ((lambda (_L43004_) + (let ((__tmp45355 + (lambda (_clause43017_) + (let* ((_g4301943030_ + (lambda (_g4302043027_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4302043027_)))) + (_g4301843062_ + (lambda (_g4302043033_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4302043033_)) + (let ((_e4302543035_ + (let () + (declare (not safe)) + (gx#stx-e _g4302043033_)))) + (let ((_hd4302443038_ + (let () + (declare (not safe)) + (##car _e4302543035_))) + (_tl4302343040_ + (let () + (declare (not safe)) + (##cdr _e4302543035_)))) + ((lambda (_L43043_ _L43044_) + (let* ((_self43056_ + (let () + (declare (not safe)) + (list-ref + _L43044_ + _self-index42583_))) + (__tmp45356 + (lambda (_g4305743059_) + (let () + (declare + (not safe)) + (gxc#apply-collect-object-refs + _g4305743059_ + _self43056_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check40291_ + _struct-type-assert40292_))))) + (declare (not safe)) + (for-each + __tmp45356 + _L43043_))) + _tl4302343040_ + _hd4302443038_))) + (let () + (declare (not safe)) + (_g4301943030_ _g4302043033_)))))) + (declare (not safe)) + (_g4301843062_ _clause43017_)))) + (__tmp45353 + (let ((__tmp45354 + (lambda (_g4306443067_ _g4306543069_) + (let () + (declare (not safe)) + (cons _g4306443067_ _g4306543069_))))) + (declare (not safe)) + (foldr1 __tmp45354 '() _L43004_)))) + (declare (not safe)) + (for-each __tmp45355 __tmp45353))) + _clause4296243001_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop4295742985_ + _target4295442980_ + '()))) + (let () + (declare (not safe)) + (_g4294842967_ _g4294942970_)))))) + (let () + (declare (not safe)) + (_g4294842967_ _g4294942970_))))) + (let () + (declare (not safe)) + (_g4294842967_ _g4294942970_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g4294743072_ _L42865_)) + (if (let () + (declare (not safe)) + (_no-specializer?40295_)) + _stx40194_ + (let* ((_specializer-id43081_ + (let* ((_id43075_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (make-symbol + (let () (declare (not safe)) (gx#stx-e _L40269_)) + '"::specialize")) + (_specializer-id43078_ + (let ((__tmp45358 + (let () + (declare (not safe)) + (gx#stx-source _stx40194_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 _id43075_ __tmp45358)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _specializer-id43078_)) + _specializer-id43078_)) + (_lifted-specializer-id43088_ + (if (let () + (declare (not safe)) + (_lift-unchecked-specializer?40297_)) + (let* ((_id43083_ + (make-symbol + (let () + (declare (not safe)) + (gx#stx-e _L40269_)) + '"::specialize::unchecked")) + (_lifted-specializer-id43085_ + (let ((__tmp45359 + (let () + (declare (not safe)) + (gx#stx-source _stx40194_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _id43083_ + __tmp45359)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 + _lifted-specializer-id43085_)) + _lifted-specializer-id43085_) + '#f)) + (_$t43090_ + (make-symbol (let () (declare (not safe)) (gensym '__t)))) + (_methods43092_ + (let () + (declare (not safe)) + (hash-keys _method-calls40288_))) + (_$methods43096_ + (let ((__tmp45360 + (lambda (_id43094_) + (make-symbol + '"__" + (let () + (declare (not safe)) + (gensym _id43094_)))))) + (declare (not safe)) + (map __tmp45360 _methods43092_))) + (_g45362_ + (let ((__tmp45361 + (lambda (_g4309743100_ _g4309843102_) + (let () + (declare (not safe)) + (table-set! + _method-calls40288_ + _g4309743100_ + _g4309843102_))))) + (declare (not safe)) + (for-each __tmp45361 _methods43092_ _$methods43096_))) + (_methods-bind43113_ + (let ((__tmp45363 + (lambda (_g4310543108_ _g4310643110_) + (let () + (declare (not safe)) + (_generate-method-bind40196_ + _$t43090_ + _g4310543108_ + _g4310643110_))))) + (declare (not safe)) + (map __tmp45363 _methods43092_ _$methods43096_))) + (_slots43115_ + (let () (declare (not safe)) (hash-keys _slot-refs40289_))) + (_$slots43119_ + (let ((__tmp45364 + (lambda (_id43117_) + (make-symbol + '"__" + (let () + (declare (not safe)) + (gensym _id43117_)))))) + (declare (not safe)) + (map __tmp45364 _slots43115_))) + (_g45366_ + (let ((__tmp45365 + (lambda (_g4312043123_ _g4312143125_) + (let () + (declare (not safe)) + (table-set! + _slot-refs40289_ + _g4312043123_ + _g4312143125_))))) + (declare (not safe)) + (for-each __tmp45365 _slots43115_ _$slots43119_))) + (_slots-bind43136_ + (let ((__tmp45367 + (lambda (_g4312843131_ _g4312943133_) + (let () + (declare (not safe)) + (_generate-slot-bind40197_ + _$t43090_ + _g4312843131_ + _g4312943133_))))) + (declare (not safe)) + (map __tmp45367 _slots43115_ _$slots43119_))) + (_class-check43138_ + (let () + (declare (not safe)) + (hash-keys _class-type-check40290_))) + (_$class-check43141_ + (let ((__tmp45368 + (lambda (_g45369_) + (make-symbol + (let () (declare (not safe)) (gensym '__class)))))) + (declare (not safe)) + (map __tmp45368 _class-check43138_))) + (_g45371_ + (let ((__tmp45370 + (lambda (_g4314243145_ _g4314343147_) + (let () + (declare (not safe)) + (table-set! + _class-type-check40290_ + _g4314243145_ + _g4314343147_))))) + (declare (not safe)) + (for-each + __tmp45370 + _class-check43138_ + _$class-check43141_))) + (_class-check-bind43158_ + (let ((__tmp45372 + (lambda (_g4315043153_ _g4315143155_) + (let () + (declare (not safe)) + (_generate-class-check-bind40198_ + _$t43090_ + _g4315043153_ + _g4315143155_))))) + (declare (not safe)) + (map __tmp45372 _class-check43138_ _$class-check43141_))) + (_struct-check-all43160_ + (let () + (declare (not safe)) + (hash-merge + _struct-type-check40291_ + _struct-type-assert40292_))) + (_struct-check43162_ + (let () + (declare (not safe)) + (hash-keys _struct-check-all43160_))) + (_$struct-check43165_ + (let ((__tmp45373 + (lambda (_g45374_) + (make-symbol + (let () (declare (not safe)) (gensym '__class)))))) + (declare (not safe)) + (map __tmp45373 _struct-check43162_))) + (_g45376_ + (let ((__tmp45375 + (lambda (_g4316643169_ _g4316743171_) + (let () + (declare (not safe)) + (table-set! + _struct-check-all43160_ + _g4316643169_ + _g4316743171_))))) + (declare (not safe)) + (for-each + __tmp45375 + _struct-check43162_ + _$struct-check43165_))) + (_struct-check-bind43182_ + (let ((__tmp45377 + (lambda (_g4317443177_ _g4317543179_) + (let () + (declare (not safe)) + (_generate-struct-check-bind40199_ + _$t43090_ + _g4317443177_ + _g4317543179_))))) + (declare (not safe)) + (map __tmp45377 _struct-check43162_ _$struct-check43165_))) + (_make-specializer-lambda-expr43268_ + (lambda (_struct-type-check143184_ _struct-type-check243185_) + (let* ((_g4318743201_ + (lambda (_g4318843198_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4318843198_)))) + (_g4318643265_ + (lambda (_g4318843204_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4318843204_)) + (let ((_e4319343206_ + (let () + (declare (not safe)) + (gx#stx-e _g4318843204_)))) + (let ((_hd4319243209_ + (let () + (declare (not safe)) + (##car _e4319343206_))) + (_tl4319143211_ + (let () + (declare (not safe)) + (##cdr _e4319343206_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4319143211_)) + (let ((_e4319643214_ + (let () + (declare (not safe)) + (gx#stx-e _tl4319143211_)))) + (let ((_hd4319543217_ + (let () + (declare (not safe)) + (##car _e4319643214_))) + (_tl4319443219_ + (let () + (declare (not safe)) + (##cdr _e4319643214_)))) + ((lambda (_L43222_ _L43223_) + (let* ((_self43256_ + (let () + (declare (not safe)) + (list-ref + _L43223_ + _self-index42583_))) + (_body43262_ + (let ((__tmp45378 + (lambda (_g4325743259_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gxc#apply-subst-object-refs + _g4325743259_ + _self43256_ + _$t43090_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check143184_ + _struct-type-check243185_))))) + (declare (not safe)) + (map __tmp45378 _L43222_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp45379 + (let ((__tmp45380 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _L43223_ _body43262_)))) + (declare (not safe)) + (cons '%#lambda __tmp45380)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp45379 + _L42866_)))) + _tl4319443219_ + _hd4319543217_))) + (let () + (declare (not safe)) + (_g4318743201_ _g4318843204_))))) + (let () + (declare (not safe)) + (_g4318743201_ _g4318843204_)))))) + (declare (not safe)) + (_g4318643265_ _L42866_)))) + (_make-specializer-case-lambda-expr43407_ + (lambda (_struct-type-check143270_ _struct-type-check243271_) + (let* ((_g4327343292_ + (lambda (_g4327443289_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4327443289_)))) + (_g4327243404_ + (lambda (_g4327443295_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g4327443295_)) + (let ((_e4327843297_ + (let () + (declare (not safe)) + (gx#stx-e _g4327443295_)))) + (let ((_hd4327743300_ + (let () + (declare (not safe)) + (##car _e4327843297_))) + (_tl4327643302_ + (let () + (declare (not safe)) + (##cdr _e4327843297_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl4327643302_)) + (let ((_g45381_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl4327643302_ + '0)))) + (begin + (let ((_g45382_ + (let () + (declare (not safe)) + (if (##values? _g45381_) + (##vector-length + _g45381_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g45382_ 2))) + (error "Context expects 2 values" + _g45382_))) + (let ((_target4327943305_ (let () (declare (not safe)) - (##car _e3978339868_))) - (_tl3978539873_ + (##vector-ref + _g45381_ + 0))) + (_tl4328143307_ (let () (declare (not safe)) - (##cdr _e3978339868_)))) - (if (gx#identifier? - _hd3978439871_) - (if (gx#stx-eq? - '%#ref - _hd3978439871_) - (if (gx#stx-pair? - _tl3978539873_) - (let ((_e3978639876_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl3978539873_))) - (let ((_hd3978739879_ - (let () - (declare (not safe)) - (##car _e3978639876_))) - (_tl3978839881_ - (let () - (declare (not safe)) - (##cdr _e3978639876_)))) - (if (gx#stx-null? _tl3978839881_) - (if (gx#stx-pair? _tl3978239865_) - (let ((_e3978939884_ - (gx#stx-e _tl3978239865_))) - (let ((_hd3979039887_ - (let () - (declare (not safe)) - (##car _e3978939884_))) - (_tl3979139889_ - (let () - (declare (not safe)) - (##cdr _e3978939884_)))) - (if (gx#stx-pair? _hd3979039887_) - (let ((_e3979239892_ - (gx#stx-e _hd3979039887_))) - (let ((_hd3979339895_ - (let () - (declare (not safe)) - (##car _e3979239892_))) - (_tl3979439897_ - (let () - (declare (not safe)) - (##cdr _e3979239892_)))) - (if (gx#identifier? _hd3979339895_) - (if (gx#stx-eq? - '%#ref - _hd3979339895_) - (if (gx#stx-pair? - _tl3979439897_) - (let ((_e3979539900_ - (gx#stx-e - _tl3979439897_))) - (let ((_hd3979639903_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e3979539900_))) - (_tl3979739905_ - (let () (declare (not safe)) (##cdr _e3979539900_)))) - (if (gx#stx-null? _tl3979739905_) - (if (gx#stx-pair? _tl3979139889_) - (let ((_e3979839908_ (gx#stx-e _tl3979139889_))) - (let ((_hd3979939911_ + (##vector-ref + _g45381_ + 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4328143307_)) + (letrec ((_loop4328243310_ + (lambda (_hd4328043313_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _clause4328643315_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4328043313_)) + (let ((_e4328343318_ + (let () + (declare (not safe)) + (gx#stx-e _hd4328043313_)))) + (let ((_lp-hd4328443321_ (let () (declare (not safe)) - (##car _e3979839908_))) - (_tl3980039913_ + (##car _e4328343318_))) + (_lp-tl4328543323_ (let () (declare (not safe)) - (##cdr _e3979839908_)))) - (if (gx#stx-pair? _hd3979939911_) - (let ((_e3980139916_ - (gx#stx-e _hd3979939911_))) - (let ((_hd3980239919_ - (let () - (declare (not safe)) - (##car _e3980139916_))) - (_tl3980339921_ - (let () - (declare (not safe)) - (##cdr _e3980139916_)))) - (if (gx#identifier? _hd3980239919_) - (if (gx#stx-eq? - '%#ref - _hd3980239919_) - (if (gx#stx-pair? - _tl3980339921_) - (let ((_e3980439924_ - (gx#stx-e - _tl3980339921_))) - (let ((_hd3980539927_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e3980439924_))) - (_tl3980639929_ - (let () (declare (not safe)) (##cdr _e3980439924_)))) - (if (gx#stx-null? _tl3980639929_) - (if (gx#stx-pair/null? _tl3980039913_) - (if (fx>= (gx#stx-length _tl3980039913_) '1) - (let ((_g42617_ - (gx#syntax-split-splice _tl3980039913_ '1))) - (begin - (let ((_g42618_ + (##cdr _e4328343318_)))) + (let ((__tmp45388 (let () (declare (not safe)) - (if (##values? _g42617_) - (##vector-length _g42617_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g42618_ 2))) - (error "Context expects 2 values" - _g42618_))) - (let ((_target3980739932_ + (cons _lp-hd4328443321_ + _clause4328643315_)))) + (declare (not safe)) + (_loop4328243310_ + _lp-tl4328543323_ + __tmp45388)))) + (let ((_clause4328743326_ + (let () + (declare (not safe)) + (reverse _clause4328643315_)))) + ((lambda (_L43329_) + (let* ((_clauses43402_ + (let ((__tmp45385 + (lambda (_clause43344_) + (let* ((_g4334643357_ + (lambda (_g4334743354_) + (let () + (declare + (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g4334743354_)))) + (_g4334543392_ + (lambda (_g4334743360_) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _g4334743360_)) + (let ((_e4335243362_ + (let () + (declare (not safe)) + (gx#stx-e _g4334743360_)))) + (let ((_hd4335143365_ + (let () + (declare (not safe)) + (##car _e4335243362_))) + (_tl4335043367_ + (let () + (declare (not safe)) + (##cdr _e4335243362_)))) + ((lambda (_L43370_ _L43371_) + (let* ((_self43383_ (let () (declare (not safe)) - (##vector-ref _g42617_ 0))) - (_tl3980939934_ - (let () + (list-ref + _L43371_ + _self-index42583_))) + (_body43389_ + (let ((__tmp45386 + (lambda (_g4338443386_) + (let () + (declare (not safe)) + (gxc#apply-subst-object-refs + _g4338443386_ + _self43383_ + _$t43090_ + _method-calls40288_ + _slot-refs40289_ + _class-type-check40290_ + _struct-type-check143270_ + _struct-type-check243271_))))) (declare (not safe)) - (##vector-ref _g42617_ 1)))) - (if (gx#stx-pair? _tl3980939934_) - (let ((_e3981639937_ - (gx#stx-e _tl3980939934_))) - (let ((_hd3981739940_ - (let () - (declare (not safe)) - (##car _e3981639937_))) - (_tl3981839942_ - (let () - (declare (not safe)) - (##cdr _e3981639937_)))) - (if (gx#stx-null? _tl3981839942_) - (letrec ((_loop3981039945_ - (lambda (_hd3980839948_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _kw-ref3981439950_) - (if (gx#stx-pair? _hd3980839948_) - (let ((_e3981139953_ (gx#stx-e _hd3980839948_))) - (let ((_lp-hd3981239956_ + (map __tmp45386 _L43370_)))) + (let () + (declare (not safe)) + (cons _L43371_ _body43389_)))) + _tl4335043367_ + _hd4335143365_))) + (let () + (declare (not safe)) + (_g4334643357_ _g4334743360_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g4334543392_ + _clause43344_)))) + (__tmp45383 + (let ((__tmp45384 + (lambda (_g4339443397_ + _g4339543399_) + (let () + (declare (not safe)) + (cons _g4339443397_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g4339543399_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp45384 + '() + _L43329_)))) + (declare (not safe)) + (map __tmp45385 __tmp45383))) + (__tmp45387 + (let () + (declare (not safe)) + (cons '%#case-lambda + _clauses43402_)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp45387 + _L42865_))) + _clause4328743326_)))))) + (let () + (declare (not safe)) + (_loop4328243310_ _target4327943305_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4327343292_ + _g4327443295_)))))) + (let () + (declare (not safe)) + (_g4327343292_ _g4327443295_))))) + (let () + (declare (not safe)) + (_g4327343292_ _g4327443295_)))))) + (declare (not safe)) + (_g4327243404_ _L42865_)))) + (_make-specializer-impl43412_ + (lambda (_specializer-lambda-expr43409_ + _specializer-case-lambda-expr43410_) + (let ((__tmp45389 + (let ((__tmp45390 + (let ((__tmp45392 + (let ((__tmp45393 + (let ((__tmp45410 + (let () + (declare (not safe)) + (cons _L42284_ '()))) + (__tmp45394 + (let ((__tmp45395 + (let ((__tmp45396 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp45398 + (let ((__tmp45399 + (let ((__tmp45409 + (let () + (declare (not safe)) + (cons _L42283_ '()))) + (__tmp45400 + (let ((__tmp45401 + (let ((__tmp45402 + (let ((__tmp45403 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp45405 + (let ((__tmp45406 + (let ((__tmp45408 + (let () + (declare (not safe)) + (cons _L42867_ '()))) + (__tmp45407 + (let () + (declare (not safe)) + (cons _specializer-lambda-expr43409_ + '())))) + (declare (not safe)) + (cons __tmp45408 __tmp45407)))) + (declare (not safe)) + (cons __tmp45406 '()))) + (__tmp45404 + (let () + (declare (not safe)) + (cons _specializer-case-lambda-expr43410_ + '())))) + (declare (not safe)) + (cons __tmp45405 __tmp45404)))) + (declare (not safe)) + (cons '%#let-values __tmp45403)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45402 _stx40194_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45401 '())))) + (declare (not safe)) + (cons __tmp45409 __tmp45400)))) + (declare (not safe)) + (cons __tmp45399 '()))) + (__tmp45397 + (let () + (declare (not safe)) + (cons _L42281_ '())))) + (declare (not safe)) + (cons __tmp45398 __tmp45397)))) + (declare (not safe)) + (cons '%#let-values __tmp45396)))) + (declare (not safe)) + (cons __tmp45395 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45410 + __tmp45394)))) + (declare (not safe)) + (cons __tmp45393 '()))) + (__tmp45391 + (let () + (declare (not safe)) + (cons _L42280_ '())))) + (declare (not safe)) + (cons __tmp45392 __tmp45391)))) + (declare (not safe)) + (cons '%#let-values __tmp45390)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45389 _stx40194_)))) + (_specializer-lambda-expr43414_ + (let () + (declare (not safe)) + (_make-specializer-lambda-expr43268_ + _struct-check-all43160_ + _empty40293_))) + (_specializer-case-lambda-expr43416_ + (let () + (declare (not safe)) + (_make-specializer-case-lambda-expr43407_ + _struct-check-all43160_ + _empty40293_))) + (_specializer-impl43418_ + (let () + (declare (not safe)) + (_make-specializer-impl43412_ + _specializer-lambda-expr43414_ + _specializer-case-lambda-expr43416_))) + (_unchecked-specializer-lambda-expr43420_ + (if (let () + (declare (not safe)) + (_unchecked-specializer?40296_)) + (let () + (declare (not safe)) + (_make-specializer-lambda-expr43268_ + _empty40293_ + _struct-check-all43160_)) + '#f)) + (_unchecked-specializer-case-lambda-expr43422_ + (if (let () + (declare (not safe)) + (_unchecked-specializer?40296_)) + (let () + (declare (not safe)) + (_make-specializer-case-lambda-expr43407_ + _empty40293_ + _struct-check-all43160_)) + '#f)) + (_unchecked-specializer-impl43424_ + (if (let () + (declare (not safe)) + (_unchecked-specializer?40296_)) + (let () + (declare (not safe)) + (_make-specializer-impl43412_ + _unchecked-specializer-lambda-expr43420_ + _unchecked-specializer-case-lambda-expr43422_)) + '#f)) + (_specializer-impl43426_ + (let () + (declare (not safe)) + (_generate-specializer-impl40200_ + _$t43090_ + _methods-bind43113_ + _slots-bind43136_ + _class-check-bind43158_ + _struct-check-bind43182_ + _specializer-impl43418_ + _lifted-specializer-id43088_ + _unchecked-specializer-impl43424_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp45412 + (let () + (declare + (not safe)) + (gx#stx-e + _L40269_))) + (__tmp45411 + (let () + (declare + (not safe)) + (gx#stx-e + _specializer-id43081_)))) + (declare (not safe)) + (gxc#verbose + '"generate method specializer " + __tmp45412 + '" => " + __tmp45411)) + (let () + (declare (not safe)) + (_generate-specializer-def40201_ + _L40269_ + _specializer-id43081_ + _specializer-impl43426_ + _lifted-specializer-id43088_ + _unchecked-specializer-impl43424_))))) + _hd4279842860_ + _hd4279542852_ + _hd4279242844_) + (let () + (declare (not safe)) + (_g4277442804_ _g4277542807_))))) + (let () + (declare (not safe)) + (_g4277442804_ _g4277542807_))) (let () (declare (not safe)) - (##car _e3981139953_))) - (_lp-tl3981339958_ + (_g4277442804_ _g4277542807_))) + (let () + (declare (not safe)) + (_g4277442804_ _g4277542807_))))) + (let () (declare (not safe)) (_g4277442804_ _g4277542807_))) + (let () (declare (not safe)) (_g4277442804_ _g4277542807_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4277442804_ + _g4277542807_))))) + (let () + (declare (not safe)) + (_g4277442804_ _g4277542807_))))) (let () (declare (not safe)) - (##cdr _e3981139953_)))) - (_loop3981039945_ - _lp-tl3981339958_ - (cons _lp-hd3981239956_ _kw-ref3981439950_)))) - (let ((_kw-ref3981539961_ (reverse _kw-ref3981439950_))) - (if (gx#stx-null? _tl3977639849_) - ((lambda (_L39964_ - _L39965_ - _L39966_ - _L39967_ - _L39968_) - (let* ((_kw-count40019_ - (length (foldr1 (lambda (_g4001140014_ - _g4001240016_) - (cons _g4001140014_ - _g4001240016_)) - '() - _L39965_))) - (_self-index40021_ - (fx+ _kw-count40019_ '1))) - (if (gxc#lambda-expr? _L39720_) - (let* ((_g4002440038_ - (lambda (_g4002540035_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4002540035_))) - (_g4002340209_ - (lambda (_g4002540041_) - (if (gx#stx-pair? _g4002540041_) - (let ((_e4002840043_ - (gx#stx-e - _g4002540041_))) - (let ((_hd4002940046_ - (let () - (declare - (not safe)) - (##car _e4002840043_))) - (_tl4003040048_ - (let () - (declare - (not safe)) - (##cdr _e4002840043_)))) - (if (gx#stx-pair? - _tl4003040048_) - (let ((_e4003140051_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4003040048_))) - (let ((_hd4003240054_ + (_g4277442804_ _g4277542807_))))) + (let () + (declare (not safe)) + (_g4277442804_ _g4277542807_))))) + (let () (declare (not safe)) (_g4277442804_ _g4277542807_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g4277343429_ _L42282_)) + _stx40194_)))) + _hd4237942502_ + _kw-ref4237742523_ + _hd4236742489_ + _hd4235842465_ + _hd4234942441_) (let () (declare (not safe)) - (##car _e4003140051_))) - (_tl4003340056_ + (_g4232342385_ _g4232442388_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop4237242507_ + _target4236942494_ + '()))) + (let () + (declare (not safe)) + (_g4232342385_ + _g4232442388_))))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_)))))) (let () (declare (not safe)) - (##cdr _e4003140051_)))) - ((lambda (_L40059_ _L40060_) - (let ((_self40076_ - (list-ref _L40060_ _self-index40021_))) - (for-each - (lambda (_g4007740079_) - (gxc#apply-collect-object-refs - _g4007740079_ - _self40076_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check37729_ - _struct-type-assert37730_)) - _L40059_) - (if (_no-specializer?37733_) - _stx37632_ - (let* ((_specializer-id40088_ - (let* ((_id40082_ - (make-symbol - (gx#stx-e _L37707_) - '"::specialize")) - (_specializer-id40085_ - (gx#core-quote-syntax__1 - _id40082_ - (gx#stx-source _stx37632_)))) - (gx#core-bind-runtime!__0 - _specializer-id40085_) - _specializer-id40085_)) - (_lifted-specializer-id40095_ - (if (_lift-unchecked-specializer?37735_) - (let* ((_id40090_ - (make-symbol - (gx#stx-e _L37707_) - '"::specialize::unchecked")) - (_lifted-specializer-id40092_ - (gx#core-quote-syntax__1 - _id40090_ - (gx#stx-source - _stx37632_)))) - (gx#core-bind-runtime!__0 - _lifted-specializer-id40092_) - _lifted-specializer-id40092_) - '#f)) - (_$t40097_ (make-symbol (gensym '__t))) - (_methods40099_ - (hash-keys _method-calls37726_)) - (_$methods40103_ - (map (lambda (_id40101_) - (make-symbol - '"__" - (gensym _id40101_))) - _methods40099_)) - (_g42619_ - (for-each - (lambda (_g4010440107_ _g4010540109_) - (table-set! - _method-calls37726_ - _g4010440107_ - _g4010540109_)) - _methods40099_ - _$methods40103_)) - (_methods-bind40120_ - (map (lambda (_g4011240115_ - _g4011340117_) - (_generate-method-bind37634_ - _$t40097_ - _g4011240115_ - _g4011340117_)) - _methods40099_ - _$methods40103_)) - (_slots40122_ - (hash-keys _slot-refs37727_)) - (_$slots40126_ - (map (lambda (_id40124_) - (make-symbol - '"__" - (gensym _id40124_))) - _slots40122_)) - (_g42620_ - (for-each - (lambda (_g4012740130_ _g4012840132_) - (table-set! - _slot-refs37727_ - _g4012740130_ - _g4012840132_)) - _slots40122_ - _$slots40126_)) - (_slots-bind40143_ - (map (lambda (_g4013540138_ - _g4013640140_) - (_generate-slot-bind37635_ - _$t40097_ - _g4013540138_ - _g4013640140_)) - _slots40122_ - _$slots40126_)) - (_class-check40145_ - (hash-keys _class-type-check37728_)) - (_$class-check40148_ - (map (lambda (_g42621_) - (make-symbol (gensym '__class))) - _class-check40145_)) - (_g42622_ - (for-each - (lambda (_g4014940152_ _g4015040154_) - (table-set! - _class-type-check37728_ - _g4014940152_ - _g4015040154_)) - _class-check40145_ - _$class-check40148_)) - (_class-check-bind40165_ - (map (lambda (_g4015740160_ - _g4015840162_) - (_generate-class-check-bind37636_ - _$t40097_ - _g4015740160_ - _g4015840162_)) - _class-check40145_ - _$class-check40148_)) - (_struct-check-all40167_ - (hash-merge - _struct-type-check37729_ - _struct-type-assert37730_)) - (_struct-check40169_ - (hash-keys _struct-check-all40167_)) - (_$struct-check40172_ - (map (lambda (_g42623_) - (make-symbol (gensym '__class))) - _struct-check40169_)) - (_g42624_ - (for-each - (lambda (_g4017340176_ _g4017440178_) - (table-set! - _struct-check-all40167_ - _g4017340176_ - _g4017440178_)) - _struct-check40169_ - _$struct-check40172_)) - (_struct-check-bind40189_ - (map (lambda (_g4018140184_ - _g4018240186_) - (_generate-struct-check-bind37637_ - _$t40097_ - _g4018140184_ - _g4018240186_)) - _struct-check40169_ - _$struct-check40172_)) - (_make-specializer-impl40200_ - (lambda (_struct-type-check140191_ - _struct-type-check240192_) - (let ((_specializer-body40198_ - (map (lambda (_g4019340195_) - (gxc#apply-subst-object-refs - _g4019340195_ - _self40076_ - _$t40097_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check140191_ - _struct-type-check240192_)) - _L40059_))) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (cons (cons (cons _L39722_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (cons '%#let-values - (cons (cons (cons (cons _L39721_ '()) - (cons (gxc#xform-wrap-source -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '%#lambda - (cons _L40060_ _specializer-body40198_)) - _L39720_) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons _L39719_ '()))) - '())) - '()) - (cons _L39718_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx37632_)))) - (_specializer-impl40202_ - (_make-specializer-impl40200_ - _struct-check-all40167_ - _empty37731_)) - (_unchecked-specializer-impl40204_ - (if (_unchecked-specializer?37734_) - (_make-specializer-impl40200_ - _empty37731_ - _struct-check-all40167_) - '#f)) - (_specializer-impl40206_ - (_generate-specializer-impl37638_ - _$t40097_ - _methods-bind40120_ - _slots-bind40143_ - _class-check-bind40165_ - _struct-check-bind40189_ - _specializer-impl40202_ - _lifted-specializer-id40095_ - _unchecked-specializer-impl40204_))) - (gxc#verbose - '"generate method specializer " - (gx#stx-e _L37707_) - '" => " - (gx#stx-e _specializer-id40088_)) - (_generate-specializer-def37639_ - _L37707_ - _specializer-id40088_ - _specializer-impl40206_ - _lifted-specializer-id40095_ - _unchecked-specializer-impl40204_))))) - _tl4003340056_ - _hd4003240054_))) - (_g4002440038_ _g4002540041_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4002440038_ - _g4002540041_))))) - (_g4002340209_ _L39720_)) - (if (gxc#opt-lambda-expr? _L39720_) - (let* ((_g4021240242_ - (lambda (_g4021340239_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4021340239_))) - (_g4021140867_ - (lambda (_g4021340245_) - (if (gx#stx-pair? - _g4021340245_) - (let ((_e4021740247_ - (gx#stx-e - _g4021340245_))) - (let ((_hd4021840250_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (_g4232342385_ _g4232442388_))) + (let () (declare (not safe)) - (##car _e4021740247_))) - (_tl4021940252_ - (let () (declare (not safe)) (##cdr _e4021740247_)))) - (if (gx#stx-pair? _tl4021940252_) - (let ((_e4022040255_ (gx#stx-e _tl4021940252_))) - (let ((_hd4022140258_ - (let () - (declare (not safe)) - (##car _e4022040255_))) - (_tl4022240260_ - (let () - (declare (not safe)) - (##cdr _e4022040255_)))) - (if (gx#stx-pair? _hd4022140258_) - (let ((_e4022340263_ (gx#stx-e _hd4022140258_))) - (let ((_hd4022440266_ - (let () - (declare (not safe)) - (##car _e4022340263_))) - (_tl4022540268_ - (let () - (declare (not safe)) - (##cdr _e4022340263_)))) - (if (gx#stx-pair? _hd4022440266_) - (let ((_e4022640271_ - (gx#stx-e _hd4022440266_))) - (let ((_hd4022740274_ - (let () - (declare (not safe)) - (##car _e4022640271_))) - (_tl4022840276_ + (_g4232342385_ _g4232442388_))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4232342385_ + _g4232442388_))) (let () (declare (not safe)) - (##cdr _e4022640271_)))) - (if (gx#stx-pair? _hd4022740274_) - (let ((_e4022940279_ - (gx#stx-e - _hd4022740274_))) - (let ((_hd4023040282_ - (let () - (declare (not safe)) - (##car _e4022940279_))) - (_tl4023140284_ - (let () - (declare (not safe)) - (##cdr _e4022940279_)))) - (if (gx#stx-null? - _tl4023140284_) - (if (gx#stx-pair? - _tl4022840276_) - (let ((_e4023240287_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl4022840276_))) - (let ((_hd4023340290_ + (_g4232342385_ + _g4232442388_))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))))) (let () (declare (not safe)) - (##car _e4023240287_))) - (_tl4023440292_ + (_g4232342385_ _g4232442388_))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))))) + (let () (declare (not safe)) (_g4232342385_ _g4232442388_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4232342385_ + _g4232442388_))) + (let () + (declare (not safe)) + (_g4232342385_ + _g4232442388_))))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))) (let () (declare (not safe)) - (##cdr _e4023240287_)))) - (if (gx#stx-null? _tl4023440292_) - (if (gx#stx-null? _tl4022540268_) - (if (gx#stx-pair? _tl4022240260_) - (let ((_e4023540295_ - (gx#stx-e _tl4022240260_))) - (let ((_hd4023640298_ + (_g4232342385_ _g4232442388_))))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))) + (let () (declare (not safe)) (_g4232342385_ _g4232442388_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4232342385_ + _g4232442388_))))) (let () (declare (not safe)) - (##car _e4023540295_))) - (_tl4023740300_ + (_g4232342385_ _g4232442388_))))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4232342385_ + _g4232442388_))))) (let () (declare (not safe)) - (##cdr _e4023540295_)))) - (if (gx#stx-null? _tl4023740300_) - ((lambda (_L40303_ - _L40304_ - _L40305_) - (let* ((_g4032840342_ - (lambda (_g4032940339_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4032940339_))) - (_g4032740383_ - (lambda (_g4032940345_) - (if (gx#stx-pair? - _g4032940345_) - (let ((_e4033240347_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _g4032940345_))) - (let ((_hd4033340350_ - (let () - (declare (not safe)) - (##car _e4033240347_))) - (_tl4033440352_ - (let () - (declare (not safe)) - (##cdr _e4033240347_)))) - (if (gx#stx-pair? _tl4033440352_) - (let ((_e4033540355_ (gx#stx-e _tl4033440352_))) - (let ((_hd4033640358_ - (let () - (declare (not safe)) - (##car _e4033540355_))) - (_tl4033740360_ - (let () - (declare (not safe)) - (##cdr _e4033540355_)))) - ((lambda (_L40363_ _L40364_) - (let ((_self40377_ - (list-ref - _L40364_ - _self-index40021_))) - (for-each - (lambda (_g4037840380_) - (gxc#apply-collect-object-refs - _g4037840380_ - _self40377_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check37729_ - _struct-type-assert37730_)) - _L40363_))) - _tl4033740360_ - _hd4033640358_))) - (_g4032840342_ _g4032940345_)))) - (_g4032840342_ _g4032940345_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4032740383_ _L40304_)) - (let* ((_g4038640405_ - (lambda (_g4038740402_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4038740402_))) - (_g4038540510_ - (lambda (_g4038740408_) - (if (gx#stx-pair? - _g4038740408_) - (let ((_e4038940410_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _g4038740408_))) - (let ((_hd4039040413_ - (let () - (declare (not safe)) - (##car _e4038940410_))) - (_tl4039140415_ - (let () - (declare (not safe)) - (##cdr _e4038940410_)))) - (if (gx#stx-pair/null? _tl4039140415_) - (let ((_g42625_ - (gx#syntax-split-splice _tl4039140415_ '0))) - (begin - (let ((_g42626_ - (let () - (declare (not safe)) - (if (##values? _g42625_) - (##vector-length _g42625_) - 1)))) - (if (not (let () + (_g4232342385_ _g4232442388_))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_))))) + (let () + (declare (not safe)) + (_g4232342385_ _g4232442388_)))))) + (declare (not safe)) + (_g4232243432_ _L42281_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd4215742275_ + _hd4215442267_ + _hd4215142259_ + _hd4214842251_ + _hd4213042203_) + (let () + (declare (not safe)) + (_g4211042163_ + _g4211142166_))))) + (let () (declare (not safe)) - (##fx= _g42626_ 2))) - (error "Context expects 2 values" - _g42626_))) - (let ((_target4039240418_ - (let () - (declare (not safe)) - (##vector-ref _g42625_ 0))) - (_tl4039440420_ + (_g4211042163_ _g4211142166_))) (let () (declare (not safe)) - (##vector-ref _g42625_ 1)))) - (if (gx#stx-null? _tl4039440420_) - (letrec ((_loop4039540423_ - (lambda (_hd4039340426_ - _clause4039940428_) - (if (gx#stx-pair? - _hd4039340426_) - (let ((_e4039640431_ - (gx#stx-e - _hd4039340426_))) - (let ((_lp-hd4039740434_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (_g4211042163_ _g4211142166_))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))))) + (let () (declare (not safe)) - (##car _e4039640431_))) - (_lp-tl4039840436_ - (let () (declare (not safe)) (##cdr _e4039640431_)))) - (_loop4039540423_ - _lp-tl4039840436_ - (cons _lp-hd4039740434_ _clause4039940428_)))) - (let ((_clause4040040439_ (reverse _clause4039940428_))) - ((lambda (_L40442_) - (for-each - (lambda (_clause40455_) - (let* ((_g4045740468_ - (lambda (_g4045840465_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4045840465_))) - (_g4045640500_ - (lambda (_g4045840471_) - (if (gx#stx-pair? _g4045840471_) - (let ((_e4046140473_ - (gx#stx-e _g4045840471_))) - (let ((_hd4046240476_ - (let () - (declare (not safe)) - (##car _e4046140473_))) - (_tl4046340478_ - (let () - (declare (not safe)) - (##cdr _e4046140473_)))) - ((lambda (_L40481_ _L40482_) - (let ((_self40494_ - (list-ref - _L40482_ - _self-index40021_))) - (for-each - (lambda (_g4049540497_) - (gxc#apply-collect-object-refs - _g4049540497_ - _self40494_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check37729_ - _struct-type-assert37730_)) - _L40481_))) - _tl4046340478_ - _hd4046240476_))) - (_g4045740468_ _g4045840471_))))) - (_g4045640500_ _clause40455_))) - (foldr1 (lambda (_g4050240505_ _g4050340507_) - (cons _g4050240505_ _g4050340507_)) - '() - _L40442_))) - _clause4040040439_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop4039540423_ - _target4039240418_ - '())) - (_g4038640405_ _g4038740408_))))) - (_g4038640405_ _g4038740408_)))) - (_g4038640405_ _g4038740408_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4038540510_ _L40303_)) - (if (_no-specializer?37733_) - _stx37632_ - (let* ((_specializer-id40519_ - (let* ((_id40513_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (make-symbol (gx#stx-e _L37707_) '"::specialize")) - (_specializer-id40516_ - (gx#core-quote-syntax__1 - _id40513_ - (gx#stx-source _stx37632_)))) - (gx#core-bind-runtime!__0 _specializer-id40516_) - _specializer-id40516_)) - (_lifted-specializer-id40526_ - (if (_lift-unchecked-specializer?37735_) - (let* ((_id40521_ - (make-symbol - (gx#stx-e _L37707_) - '"::specialize::unchecked")) - (_lifted-specializer-id40523_ - (gx#core-quote-syntax__1 - _id40521_ - (gx#stx-source _stx37632_)))) - (gx#core-bind-runtime!__0 _lifted-specializer-id40523_) - _lifted-specializer-id40523_) - '#f)) - (_$t40528_ (make-symbol (gensym '__t))) - (_methods40530_ (hash-keys _method-calls37726_)) - (_$methods40534_ - (map (lambda (_id40532_) - (make-symbol '"__" (gensym _id40532_))) - _methods40530_)) - (_g42627_ - (for-each - (lambda (_g4053540538_ _g4053640540_) - (table-set! - _method-calls37726_ - _g4053540538_ - _g4053640540_)) - _methods40530_ - _$methods40534_)) - (_methods-bind40551_ - (map (lambda (_g4054340546_ _g4054440548_) - (_generate-method-bind37634_ - _$t40528_ - _g4054340546_ - _g4054440548_)) - _methods40530_ - _$methods40534_)) - (_slots40553_ (hash-keys _slot-refs37727_)) - (_$slots40557_ - (map (lambda (_id40555_) - (make-symbol '"__" (gensym _id40555_))) - _slots40553_)) - (_g42628_ - (for-each - (lambda (_g4055840561_ _g4055940563_) - (table-set! _slot-refs37727_ _g4055840561_ _g4055940563_)) - _slots40553_ - _$slots40557_)) - (_slots-bind40574_ - (map (lambda (_g4056640569_ _g4056740571_) - (_generate-slot-bind37635_ - _$t40528_ - _g4056640569_ - _g4056740571_)) - _slots40553_ - _$slots40557_)) - (_class-check40576_ (hash-keys _class-type-check37728_)) - (_$class-check40579_ - (map (lambda (_g42629_) (make-symbol (gensym '__class))) - _class-check40576_)) - (_g42630_ - (for-each - (lambda (_g4058040583_ _g4058140585_) - (table-set! - _class-type-check37728_ - _g4058040583_ - _g4058140585_)) - _class-check40576_ - _$class-check40579_)) - (_class-check-bind40596_ - (map (lambda (_g4058840591_ _g4058940593_) - (_generate-class-check-bind37636_ - _$t40528_ - _g4058840591_ - _g4058940593_)) - _class-check40576_ - _$class-check40579_)) - (_struct-check-all40598_ - (hash-merge - _struct-type-check37729_ - _struct-type-assert37730_)) - (_struct-check40600_ (hash-keys _struct-check-all40598_)) - (_$struct-check40603_ - (map (lambda (_g42631_) (make-symbol (gensym '__class))) - _struct-check40600_)) - (_g42632_ - (for-each - (lambda (_g4060440607_ _g4060540609_) - (table-set! - _struct-check-all40598_ - _g4060440607_ - _g4060540609_)) - _struct-check40600_ - _$struct-check40603_)) - (_struct-check-bind40620_ - (map (lambda (_g4061240615_ _g4061340617_) - (_generate-struct-check-bind37637_ - _$t40528_ - _g4061240615_ - _g4061340617_)) - _struct-check40600_ - _$struct-check40603_)) - (_make-specializer-lambda-expr40706_ - (lambda (_struct-type-check140622_ _struct-type-check240623_) - (let* ((_g4062540639_ - (lambda (_g4062640636_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4062640636_))) - (_g4062440703_ - (lambda (_g4062640642_) - (if (gx#stx-pair? _g4062640642_) - (let ((_e4062940644_ - (gx#stx-e _g4062640642_))) - (let ((_hd4063040647_ - (let () - (declare (not safe)) - (##car _e4062940644_))) - (_tl4063140649_ - (let () - (declare (not safe)) - (##cdr _e4062940644_)))) - (if (gx#stx-pair? _tl4063140649_) - (let ((_e4063240652_ - (gx#stx-e _tl4063140649_))) - (let ((_hd4063340655_ - (let () - (declare (not safe)) - (##car _e4063240652_))) - (_tl4063440657_ - (let () - (declare (not safe)) - (##cdr _e4063240652_)))) - ((lambda (_L40660_ _L40661_) - (let* ((_self40694_ - (list-ref - _L40661_ - _self-index40021_)) - (_body40700_ - (map (lambda (_g4069540697_) - (gxc#apply-subst-object-refs -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g4069540697_ - _self40694_ - _$t40528_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check140622_ - _struct-type-check240623_)) - _L40660_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gxc#xform-wrap-source - (cons '%#lambda - (cons _L40661_ - _body40700_)) - _L40304_))) - _tl4063440657_ - _hd4063340655_))) - (_g4062540639_ _g4062640642_)))) - (_g4062540639_ _g4062640642_))))) - (_g4062440703_ _L40304_)))) - (_make-specializer-case-lambda-expr40845_ - (lambda (_struct-type-check140708_ _struct-type-check240709_) - (let* ((_g4071140730_ - (lambda (_g4071240727_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4071240727_))) - (_g4071040842_ - (lambda (_g4071240733_) - (if (gx#stx-pair? _g4071240733_) - (let ((_e4071440735_ - (gx#stx-e _g4071240733_))) - (let ((_hd4071540738_ + (_g4211042163_ _g4211142166_))) + (let () (declare (not safe)) (_g4211042163_ _g4211142166_))) + (let () (declare (not safe)) (_g4211042163_ _g4211142166_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4211042163_ + _g4211142166_))) (let () (declare (not safe)) - (##car _e4071440735_))) - (_tl4071640740_ + (_g4211042163_ _g4211142166_))))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4211042163_ + _g4211142166_))) + (let () + (declare (not safe)) + (_g4211042163_ + _g4211142166_))) (let () (declare (not safe)) - (##cdr _e4071440735_)))) - (if (gx#stx-pair/null? _tl4071640740_) - (let ((_g42633_ - (gx#syntax-split-splice - _tl4071640740_ - '0))) - (begin - (let ((_g42634_ - (let () - (declare (not safe)) - (if (##values? _g42633_) - (##vector-length - _g42633_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g42634_ 2))) - (error "Context expects 2 values" - _g42634_))) - (let ((_target4071740743_ - (let () - (declare (not safe)) - (##vector-ref - _g42633_ - 0))) - (_tl4071940745_ - (let () - (declare (not safe)) - (##vector-ref - _g42633_ - 1)))) - (if (gx#stx-null? - _tl4071940745_) - (letrec ((_loop4072040748_ - (lambda (_hd4071840751_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause4072440753_) - (if (gx#stx-pair? _hd4071840751_) - (let ((_e4072140756_ (gx#stx-e _hd4071840751_))) - (let ((_lp-hd4072240759_ - (let () - (declare (not safe)) - (##car _e4072140756_))) - (_lp-tl4072340761_ - (let () - (declare (not safe)) - (##cdr _e4072140756_)))) - (_loop4072040748_ - _lp-tl4072340761_ - (cons _lp-hd4072240759_ _clause4072440753_)))) - (let ((_clause4072540764_ - (reverse _clause4072440753_))) - ((lambda (_L40767_) - (let ((_clauses40840_ - (map (lambda (_clause40782_) - (let* ((_g4078440795_ - (lambda (_g4078540792_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g4078540792_))) - (_g4078340830_ - (lambda (_g4078540798_) - (if (gx#stx-pair? - _g4078540798_) - (let ((_e4078840800_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _g4078540798_))) - (let ((_hd4078940803_ - (let () - (declare (not safe)) - (##car _e4078840800_))) - (_tl4079040805_ - (let () - (declare (not safe)) - (##cdr _e4078840800_)))) - ((lambda (_L40808_ _L40809_) - (let* ((_self40821_ - (list-ref _L40809_ _self-index40021_)) - (_body40827_ - (map (lambda (_g4082240824_) - (gxc#apply-subst-object-refs - _g4082240824_ - _self40821_ - _$t40528_ - _method-calls37726_ - _slot-refs37727_ - _class-type-check37728_ - _struct-type-check140708_ - _struct-type-check240709_)) - _L40808_))) - (cons _L40809_ _body40827_))) - _tl4079040805_ - _hd4078940803_))) - (_g4078440795_ _g4078540798_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4078340830_ - _clause40782_))) - (foldr1 (lambda (_g4083240835_ - _g4083340837_) - (cons _g4083240835_ - _g4083340837_)) - '() - _L40767_)))) - (gxc#xform-wrap-source - (cons '%#case-lambda _clauses40840_) - _L40303_))) - _clause4072540764_)))))) - (_loop4072040748_ _target4071740743_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4071140730_ - _g4071240733_))))) - (_g4071140730_ _g4071240733_)))) - (_g4071140730_ _g4071240733_))))) - (_g4071040842_ _L40303_)))) - (_make-specializer-impl40850_ - (lambda (_specializer-lambda-expr40847_ - _specializer-case-lambda-expr40848_) - (gxc#xform-wrap-source - (cons '%#let-values - (cons (cons (cons (cons _L39722_ '()) - (cons (cons '%#let-values - (cons (cons (cons (cons _L39721_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (gxc#xform-wrap-source - (cons '%#let-values - (cons (cons (cons (cons _L40305_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _specializer-lambda-expr40847_ '())) - '()) - (cons _specializer-case-lambda-expr40848_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx37632_) - '())) - '()) - (cons _L39719_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '()) - (cons _L39718_ '()))) - _stx37632_))) - (_specializer-lambda-expr40852_ - (_make-specializer-lambda-expr40706_ - _struct-check-all40598_ - _empty37731_)) - (_specializer-case-lambda-expr40854_ - (_make-specializer-case-lambda-expr40845_ - _struct-check-all40598_ - _empty37731_)) - (_specializer-impl40856_ - (_make-specializer-impl40850_ - _specializer-lambda-expr40852_ - _specializer-case-lambda-expr40854_)) - (_unchecked-specializer-lambda-expr40858_ - (if (_unchecked-specializer?37734_) - (_make-specializer-lambda-expr40706_ - _empty37731_ - _struct-check-all40598_) - '#f)) - (_unchecked-specializer-case-lambda-expr40860_ - (if (_unchecked-specializer?37734_) - (_make-specializer-case-lambda-expr40845_ - _empty37731_ - _struct-check-all40598_) - '#f)) - (_unchecked-specializer-impl40862_ - (if (_unchecked-specializer?37734_) - (_make-specializer-impl40850_ - _unchecked-specializer-lambda-expr40858_ - _unchecked-specializer-case-lambda-expr40860_) - '#f)) - (_specializer-impl40864_ - (_generate-specializer-impl37638_ - _$t40528_ - _methods-bind40551_ - _slots-bind40574_ - _class-check-bind40596_ - _struct-check-bind40620_ - _specializer-impl40856_ - _lifted-specializer-id40526_ - _unchecked-specializer-impl40862_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gxc#verbose - '"generate method specializer " - (gx#stx-e _L37707_) - '" => " - (gx#stx-e - _specializer-id40519_)) - (_generate-specializer-def37639_ - _L37707_ - _specializer-id40519_ - _specializer-impl40864_ - _lifted-specializer-id40526_ - _unchecked-specializer-impl40862_)))) - _hd4023640298_ - _hd4023340290_ - _hd4023040282_) - (_g4021240242_ _g4021340245_)))) - (_g4021240242_ _g4021340245_)) - (_g4021240242_ _g4021340245_)) - (_g4021240242_ _g4021340245_)))) - (_g4021240242_ _g4021340245_)) - (_g4021240242_ _g4021340245_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4021240242_ _g4021340245_)))) - (_g4021240242_ _g4021340245_)))) - (_g4021240242_ _g4021340245_)))) - (_g4021240242_ _g4021340245_)))) - (_g4021240242_ _g4021340245_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g4021140867_ _L39720_)) - _stx37632_)))) - _hd3981739940_ - _kw-ref3981539961_ - _hd3980539927_ - _hd3979639903_ - _hd3978739879_) - (_g3976139823_ _g3976239826_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3981039945_ - _target3980739932_ - '())) - (_g3976139823_ _g3976239826_)))) - (_g3976139823_ _g3976239826_))))) - (_g3976139823_ _g3976239826_)) - (_g3976139823_ _g3976239826_)) - (_g3976139823_ _g3976239826_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3976139823_ - _g3976239826_)) - (_g3976139823_ _g3976239826_)) - (_g3976139823_ _g3976239826_)))) - (_g3976139823_ _g3976239826_)))) - (_g3976139823_ _g3976239826_)) - (_g3976139823_ _g3976239826_)))) - (_g3976139823_ _g3976239826_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3976139823_ - _g3976239826_)) - (_g3976139823_ - _g3976239826_)))) - (_g3976139823_ _g3976239826_)))) - (_g3976139823_ _g3976239826_)) - (_g3976139823_ _g3976239826_)))) - (_g3976139823_ _g3976239826_)) - (_g3976139823_ _g3976239826_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3976139823_ - _g3976239826_)))) - (_g3976139823_ _g3976239826_)))) - (_g3976139823_ _g3976239826_)) - (_g3976139823_ _g3976239826_)) - (_g3976139823_ _g3976239826_)))) - (_g3976139823_ _g3976239826_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3976139823_ - _g3976239826_)))) - (_g3976139823_ _g3976239826_)) - (_g3976139823_ _g3976239826_)) - (_g3976139823_ _g3976239826_)))) - (_g3976139823_ _g3976239826_))))) - (_g3976040870_ _L39719_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd3959539713_ - _hd3959239705_ - _hd3958939697_ - _hd3958639689_ - _hd3956839641_) - (_g3954839601_ - _g3954939604_)))) - (_g3954839601_ _g3954939604_)) - (_g3954839601_ _g3954939604_)) - (_g3954839601_ _g3954939604_)) - (_g3954839601_ _g3954939604_)))) - (_g3954839601_ _g3954939604_)) - (_g3954839601_ _g3954939604_)) - (_g3954839601_ _g3954939604_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3954839601_ _g3954939604_)) - (_g3954839601_ _g3954939604_)))) - (_g3954839601_ _g3954939604_)))) - (_g3954839601_ _g3954939604_)))) - (_g3954839601_ _g3954939604_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3954839601_ - _g3954939604_)) - (_g3954839601_ _g3954939604_)) - (_g3954839601_ _g3954939604_)))) - (_g3954839601_ _g3954939604_)))) - (_g3954839601_ _g3954939604_)) - (_g3954839601_ _g3954939604_)))) - (_g3954839601_ _g3954939604_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3954839601_ _g3954939604_)))) - (_g3954839601_ _g3954939604_)))) - (_g3954839601_ _g3954939604_)) - (_g3954839601_ _g3954939604_)) - (_g3954839601_ _g3954939604_)))) - (_g3954839601_ _g3954939604_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3954740873_ _L37706_)) - _stx37632_)))))))) - (___kont4108241083_ (lambda () _stx37632_))) - (let ((___match4111141112_ - (lambda (_e3764637674_ - _hd3764737677_ - _tl3764837679_ - _e3764937682_ - _hd3765037685_ - _tl3765137687_ - _e3765237690_ - _hd3765337693_ - _tl3765437695_ - _e3765537698_ - _hd3765637701_ - _tl3765737703_) - (let ((_L37706_ _hd3765637701_) - (_L37707_ _hd3765337693_)) - (if (gxc#optimizer-top-level-method? - (gxc#identifier-symbol _L37707_)) - (___kont4108041081_ _L37706_ _L37707_) - (___kont4108241083_)))))) - (if (gx#stx-pair? ___stx4107841079_) - (let ((_e3764637674_ (gx#stx-e ___stx4107841079_))) - (let ((_tl3764837679_ + (_g4211042163_ _g4211142166_))))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))))) + (let () (declare (not safe)) (_g4211042163_ _g4211142166_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g4211042163_ + _g4211142166_))))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))) + (let () + (declare (not safe)) + (_g4211042163_ _g4211142166_))))) + (let () (declare (not safe)) (_g4211042163_ _g4211142166_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g4210943435_ _L40268_)) + _stx40194_)))))))) + (___kont4364443645_ (lambda () _stx40194_))) + (let ((___match4367343674_ + (lambda (_e4021040236_ + _hd4020940239_ + _tl4020840241_ + _e4021340244_ + _hd4021240247_ + _tl4021140249_ + _e4021640252_ + _hd4021540255_ + _tl4021440257_ + _e4021940260_ + _hd4021840263_ + _tl4021740265_) + (let ((_L40268_ _hd4021840263_) + (_L40269_ _hd4021540255_)) + (if (let ((__tmp45567 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L40269_)))) + (declare (not safe)) + (gxc#optimizer-top-level-method? __tmp45567)) + (___kont4364243643_ _L40268_ _L40269_) + (___kont4364443645_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx4364043641_)) + (let ((_e4021040236_ + (let () + (declare (not safe)) + (gx#stx-e ___stx4364043641_)))) + (let ((_tl4020840241_ (let () (declare (not safe)) - (##cdr _e3764637674_))) - (_hd3764737677_ + (##cdr _e4021040236_))) + (_hd4020940239_ (let () (declare (not safe)) - (##car _e3764637674_)))) - (if (gx#stx-pair? _tl3764837679_) - (let ((_e3764937682_ (gx#stx-e _tl3764837679_))) - (let ((_tl3765137687_ + (##car _e4021040236_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl4020840241_)) + (let ((_e4021340244_ + (let () + (declare (not safe)) + (gx#stx-e _tl4020840241_)))) + (let ((_tl4021140249_ (let () (declare (not safe)) - (##cdr _e3764937682_))) - (_hd3765037685_ + (##cdr _e4021340244_))) + (_hd4021240247_ (let () (declare (not safe)) - (##car _e3764937682_)))) - (if (gx#stx-pair? _hd3765037685_) - (let ((_e3765237690_ - (gx#stx-e _hd3765037685_))) - (let ((_tl3765437695_ + (##car _e4021340244_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd4021240247_)) + (let ((_e4021640252_ + (let () + (declare (not safe)) + (gx#stx-e _hd4021240247_)))) + (let ((_tl4021440257_ (let () (declare (not safe)) - (##cdr _e3765237690_))) - (_hd3765337693_ + (##cdr _e4021640252_))) + (_hd4021540255_ (let () (declare (not safe)) - (##car _e3765237690_)))) - (if (gx#stx-null? _tl3765437695_) - (if (gx#stx-pair? _tl3765137687_) - (let ((_e3765537698_ - (gx#stx-e - _tl3765137687_))) - (let ((_tl3765737703_ + (##car _e4021640252_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl4021440257_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl4021140249_)) + (let ((_e4021940260_ + (let () + (declare (not safe)) + (gx#stx-e + _tl4021140249_)))) + (let ((_tl4021740265_ (let () (declare (not safe)) - (##cdr _e3765537698_))) - (_hd3765637701_ + (##cdr _e4021940260_))) + (_hd4021840263_ (let () (declare (not safe)) - (##car _e3765537698_)))) - (if (gx#stx-null? - _tl3765737703_) - (___match4111141112_ - _e3764637674_ - _hd3764737677_ - _tl3764837679_ - _e3764937682_ - _hd3765037685_ - _tl3765137687_ - _e3765237690_ - _hd3765337693_ - _tl3765437695_ - _e3765537698_ - _hd3765637701_ - _tl3765737703_) - (___kont4108241083_)))) - (___kont4108241083_)) - (___kont4108241083_)))) - (___kont4108241083_)))) - (___kont4108241083_)))) - (___kont4108241083_)))))))) + (##car _e4021940260_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl4021740265_)) + (___match4367343674_ + _e4021040236_ + _hd4020940239_ + _tl4020840241_ + _e4021340244_ + _hd4021240247_ + _tl4021140249_ + _e4021640252_ + _hd4021540255_ + _tl4021440257_ + _e4021940260_ + _hd4021840263_ + _tl4021740265_) + (___kont4364443645_)))) + (___kont4364443645_)) + (___kont4364443645_)))) + (___kont4364443645_)))) + (___kont4364443645_)))) + (___kont4364443645_)))))))) (define gxc#collect-object-refs-call% - (lambda (_stx36134_ - _self36135_ - _methods36136_ - _slots36137_ - _class-check36138_ - _struct-check36139_ - _struct-assert36140_) - (let* ((___stx4111441115_ _stx36134_) - (_g3615236470_ + (lambda (_stx38696_ + _self38697_ + _methods38698_ + _slots38699_ + _class-check38700_ + _struct-check38701_ + _struct-assert38702_) + (let* ((___stx4367643677_ _stx38696_) + (_g3871439032_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx4111441115_)))) - (let ((___kont4111641117_ - (lambda (_L37581_ _L37582_ _L37583_ _L37584_) - (table-set! _methods36136_ (gx#stx-e _L37582_) '#t) - (for-each - (lambda (_g3761737619_) - (gxc#compile-e - _g3761737619_ - _self36135_ - _methods36136_ - _slots36137_ - _class-check36138_ - _struct-check36139_ - _struct-assert36140_)) - (foldr1 (lambda (_g3762137624_ _g3762237626_) - (cons _g3762137624_ _g3762237626_)) - '() - _L37581_)))) - (___kont4112041121_ - (lambda (_L37416_ _L37417_ _L37418_ _L37419_ _L37420_) - (table-set! _methods36136_ (gx#stx-e _L37417_) '#t) - (for-each - (lambda (_g3746037462_) - (gxc#compile-e - _g3746037462_ - _self36135_ - _methods36136_ - _slots36137_ - _class-check36138_ - _struct-check36139_ - _struct-assert36140_)) - (foldr1 (lambda (_g3746437467_ _g3746537469_) - (cons _g3746437467_ _g3746537469_)) - '() - _L37416_)))) - (___kont4112441125_ - (lambda (_L37249_ _L37250_ _L37251_) - (table-set! _slots36137_ (gx#stx-e _L37249_) '#t))) - (___kont4112641127_ - (lambda (_L37126_ _L37127_ _L37128_ _L37129_) - (table-set! _slots36137_ (gx#stx-e _L37127_) '#t) - (gxc#compile-e - _L37126_ - _self36135_ - _methods36136_ - _slots36137_ - _class-check36138_ - _struct-check36139_ - _struct-assert36140_))) - (___kont4112841129_ - (lambda (_L37010_ _L37011_) - (table-set! - _slots36137_ - (##structure-ref - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L37011_)) - '2 - gxc#!class-getf::t - '#f) - '#t))) - (___kont4113041131_ - (lambda (_L36922_ _L36923_ _L36924_) - (table-set! - _slots36137_ - (##structure-ref - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L36924_)) - '2 - gxc#!class-setf::t - '#f) - '#t) - (gxc#compile-e - _L36922_ - _self36135_ - _methods36136_ - _slots36137_ - _class-check36138_ - _struct-check36139_ - _struct-assert36140_))) - (___kont4113241133_ - (lambda (_L36830_ _L36831_) - (table-set! - _class-check36138_ - (##structure-ref - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L36831_)) - '1 - gxc#!type::t - '#f) - '#t))) - (___kont4113441135_ - (lambda (_L36746_ _L36747_) - (table-set! - _struct-check36139_ - (##structure-ref - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L36747_)) - '1 - gxc#!type::t - '#f) - '#t))) - (___kont4113641137_ - (lambda (_L36649_ _L36650_) - (let ((_getf36683_ - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L36650_)))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx4367643677_))))) + (let ((___kont4367843679_ + (lambda (_L40143_ _L40144_ _L40145_ _L40146_) + (let ((__tmp45568 + (let () (declare (not safe)) (gx#stx-e _L40144_)))) + (declare (not safe)) + (table-set! _methods38698_ __tmp45568 '#t)) + (let ((__tmp45571 + (lambda (_g4017940181_) + (let () + (declare (not safe)) + (gxc#compile-e + _g4017940181_ + _self38697_ + _methods38698_ + _slots38699_ + _class-check38700_ + _struct-check38701_ + _struct-assert38702_)))) + (__tmp45569 + (let ((__tmp45570 + (lambda (_g4018340186_ _g4018440188_) + (let () + (declare (not safe)) + (cons _g4018340186_ _g4018440188_))))) + (declare (not safe)) + (foldr1 __tmp45570 '() _L40143_)))) + (declare (not safe)) + (for-each __tmp45571 __tmp45569)))) + (___kont4368243683_ + (lambda (_L39978_ _L39979_ _L39980_ _L39981_ _L39982_) + (let ((__tmp45572 + (let () (declare (not safe)) (gx#stx-e _L39979_)))) + (declare (not safe)) + (table-set! _methods38698_ __tmp45572 '#t)) + (let ((__tmp45575 + (lambda (_g4002240024_) + (let () + (declare (not safe)) + (gxc#compile-e + _g4002240024_ + _self38697_ + _methods38698_ + _slots38699_ + _class-check38700_ + _struct-check38701_ + _struct-assert38702_)))) + (__tmp45573 + (let ((__tmp45574 + (lambda (_g4002640029_ _g4002740031_) + (let () + (declare (not safe)) + (cons _g4002640029_ _g4002740031_))))) + (declare (not safe)) + (foldr1 __tmp45574 '() _L39978_)))) + (declare (not safe)) + (for-each __tmp45575 __tmp45573)))) + (___kont4368643687_ + (lambda (_L39811_ _L39812_ _L39813_) + (let ((__tmp45576 + (let () (declare (not safe)) (gx#stx-e _L39811_)))) + (declare (not safe)) + (table-set! _slots38699_ __tmp45576 '#t)))) + (___kont4368843689_ + (lambda (_L39688_ _L39689_ _L39690_ _L39691_) + (let ((__tmp45577 + (let () (declare (not safe)) (gx#stx-e _L39689_)))) + (declare (not safe)) + (table-set! _slots38699_ __tmp45577 '#t)) + (let () + (declare (not safe)) + (gxc#compile-e + _L39688_ + _self38697_ + _methods38698_ + _slots38699_ + _class-check38700_ + _struct-check38701_ + _struct-assert38702_)))) + (___kont4369043691_ + (lambda (_L39572_ _L39573_) + (let ((__tmp45578 + (##structure-ref + (let ((__tmp45579 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L39573_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp45579)) + '2 + gxc#!class-getf::t + '#f))) + (declare (not safe)) + (table-set! _slots38699_ __tmp45578 '#t)))) + (___kont4369243693_ + (lambda (_L39484_ _L39485_ _L39486_) + (let ((__tmp45580 + (##structure-ref + (let ((__tmp45581 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L39486_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp45581)) + '2 + gxc#!class-setf::t + '#f))) + (declare (not safe)) + (table-set! _slots38699_ __tmp45580 '#t)) + (let () + (declare (not safe)) + (gxc#compile-e + _L39484_ + _self38697_ + _methods38698_ + _slots38699_ + _class-check38700_ + _struct-check38701_ + _struct-assert38702_)))) + (___kont4369443695_ + (lambda (_L39392_ _L39393_) + (let ((__tmp45582 + (##structure-ref + (let ((__tmp45583 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L39393_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp45583)) + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (table-set! _class-check38700_ __tmp45582 '#t)))) + (___kont4369643697_ + (lambda (_L39308_ _L39309_) + (let ((__tmp45584 + (##structure-ref + (let ((__tmp45585 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L39309_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp45585)) + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (table-set! _struct-check38701_ __tmp45584 '#t)))) + (___kont4369843699_ + (lambda (_L39211_ _L39212_) + (let ((_getf39245_ + (let ((__tmp45586 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L39212_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp45586)))) (if (##structure-ref - _getf36683_ + _getf39245_ '3 gxc#!struct-getf::t '#f) '#!void - (table-set! - _struct-assert36140_ - (##structure-ref _getf36683_ '1 gxc#!type::t '#f) - '#t))))) - (___kont4113841139_ - (lambda (_L36546_ _L36547_ _L36548_) - (let ((_setf36586_ - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L36548_)))) + (let ((__tmp45587 + (##structure-ref + _getf39245_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (table-set! + _struct-assert38702_ + __tmp45587 + '#t)))))) + (___kont4370043701_ + (lambda (_L39108_ _L39109_ _L39110_) + (let ((_setf39148_ + (let ((__tmp45588 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L39110_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp45588)))) (if (##structure-ref - _setf36586_ + _setf39148_ '3 gxc#!struct-setf::t '#f) '#!void - (table-set! - _struct-assert36140_ - (##structure-ref _setf36586_ '1 gxc#!type::t '#f) - '#t)) - (gxc#compile-e - _L36546_ - _self36135_ - _methods36136_ - _slots36137_ - _class-check36138_ - _struct-check36139_ - _struct-assert36140_)))) - (___kont4114041141_ + (let ((__tmp45589 + (##structure-ref + _setf39148_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (table-set! _struct-assert38702_ __tmp45589 '#t))) + (let () + (declare (not safe)) + (gxc#compile-e + _L39108_ + _self38697_ + _methods38698_ + _slots38699_ + _class-check38700_ + _struct-check38701_ + _struct-assert38702_))))) + (___kont4370243703_ (lambda () - (gxc#collect-operands - _stx36134_ - _self36135_ - _methods36136_ - _slots36137_ - _class-check36138_ - _struct-check36139_ - _struct-assert36140_)))) - (let* ((___match4185141852_ - (lambda (_e3644236482_ - _hd3644336485_ - _tl3644436487_ - _e3644536490_ - _hd3644636493_ - _tl3644736495_ - _e3644836498_ - _hd3644936501_ - _tl3645036503_ - _e3645136506_ - _hd3645236509_ - _tl3645336511_ - _e3645436514_ - _hd3645536517_ - _tl3645636519_ - _e3645736522_ - _hd3645836525_ - _tl3645936527_ - _e3646036530_ - _hd3646136533_ - _tl3646236535_ - _e3646336538_ - _hd3646436541_ - _tl3646536543_) - (let ((_L36546_ _hd3646436541_) - (_L36547_ _hd3646136533_) - (_L36548_ _hd3645236509_)) - (if (if (not (gx#free-identifier=? - _L36547_ - _self36135_)) + (let () + (declare (not safe)) + (gxc#collect-operands + _stx38696_ + _self38697_ + _methods38698_ + _slots38699_ + _class-check38700_ + _struct-check38701_ + _struct-assert38702_))))) + (let* ((___match4441344414_ + (lambda (_e3900639044_ + _hd3900539047_ + _tl3900439049_ + _e3900939052_ + _hd3900839055_ + _tl3900739057_ + _e3901239060_ + _hd3901139063_ + _tl3901039065_ + _e3901539068_ + _hd3901439071_ + _tl3901339073_ + _e3901839076_ + _hd3901739079_ + _tl3901639081_ + _e3902139084_ + _hd3902039087_ + _tl3901939089_ + _e3902439092_ + _hd3902339095_ + _tl3902239097_ + _e3902739100_ + _hd3902639103_ + _tl3902539105_) + (let ((_L39108_ _hd3902639103_) + (_L39109_ _hd3902339095_) + (_L39110_ _hd3901439071_)) + (if (if (let ((__tmp45592 + (let () + (declare (not safe)) + (gx#free-identifier=? + _L39109_ + _self38697_)))) + (declare (not safe)) + (not __tmp45592)) '#f - (let ((_$e36575_ - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L36548_)))) - (and _$e36575_ - ((lambda (_t36578_) + (let ((_$e39137_ + (let ((__tmp45590 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L39110_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45590)))) + (and _$e39137_ + ((lambda (_t39140_) (and (let () (declare (not safe)) (##structure-instance-of? - _t36578_ + _t39140_ 'gxc#!struct-setf::t)) - (let ((_struct-t3657936581_ - (gxc#optimizer-resolve-type - (##structure-ref - _t36578_ - '1 - gxc#!type::t - '#f)))) - (and _struct-t3657936581_ - (let ((_struct-t36584_ - _struct-t3657936581_)) + (let ((_struct-t3914139143_ + (let ((__tmp45591 + (##structure-ref + _t39140_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45591)))) + (and _struct-t3914139143_ + (let ((_struct-t39146_ + _struct-t3914139143_)) (##structure-ref - _struct-t36584_ + _struct-t39146_ '4 gxc#!struct-type::t '#f)))))) - _$e36575_)))) - (___kont4113841139_ _L36546_ _L36547_ _L36548_) - (___kont4114041141_))))) - (___match4184341844_ - (lambda (_e3644236482_ - _hd3644336485_ - _tl3644436487_ - _e3644536490_ - _hd3644636493_ - _tl3644736495_ - _e3644836498_ - _hd3644936501_ - _tl3645036503_ - _e3645136506_ - _hd3645236509_ - _tl3645336511_ - _e3645436514_ - _hd3645536517_ - _tl3645636519_ - _e3645736522_ - _hd3645836525_ - _tl3645936527_ - _e3646036530_ - _hd3646136533_ - _tl3646236535_) - (if (gx#stx-pair? _tl3645636519_) - (let ((_e3646336538_ (gx#stx-e _tl3645636519_))) - (let ((_tl3646536543_ + _$e39137_)))) + (___kont4370043701_ _L39108_ _L39109_ _L39110_) + (___kont4370243703_))))) + (___match4440544406_ + (lambda (_e3900639044_ + _hd3900539047_ + _tl3900439049_ + _e3900939052_ + _hd3900839055_ + _tl3900739057_ + _e3901239060_ + _hd3901139063_ + _tl3901039065_ + _e3901539068_ + _hd3901439071_ + _tl3901339073_ + _e3901839076_ + _hd3901739079_ + _tl3901639081_ + _e3902139084_ + _hd3902039087_ + _tl3901939089_ + _e3902439092_ + _hd3902339095_ + _tl3902239097_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3901639081_)) + (let ((_e3902739100_ + (let () + (declare (not safe)) + (gx#stx-e _tl3901639081_)))) + (let ((_tl3902539105_ (let () (declare (not safe)) - (##cdr _e3646336538_))) - (_hd3646436541_ + (##cdr _e3902739100_))) + (_hd3902639103_ (let () (declare (not safe)) - (##car _e3646336538_)))) - (if (gx#stx-null? _tl3646536543_) - (___match4185141852_ - _e3644236482_ - _hd3644336485_ - _tl3644436487_ - _e3644536490_ - _hd3644636493_ - _tl3644736495_ - _e3644836498_ - _hd3644936501_ - _tl3645036503_ - _e3645136506_ - _hd3645236509_ - _tl3645336511_ - _e3645436514_ - _hd3645536517_ - _tl3645636519_ - _e3645736522_ - _hd3645836525_ - _tl3645936527_ - _e3646036530_ - _hd3646136533_ - _tl3646236535_ - _e3646336538_ - _hd3646436541_ - _tl3646536543_) - (___kont4114041141_)))) - (___kont4114041141_)))) - (___match4178941790_ - (lambda (_e3641836593_ - _hd3641936596_ - _tl3642036598_ - _e3642136601_ - _hd3642236604_ - _tl3642336606_ - _e3642436609_ - _hd3642536612_ - _tl3642636614_ - _e3642736617_ - _hd3642836620_ - _tl3642936622_ - _e3643036625_ - _hd3643136628_ - _tl3643236630_ - _e3643336633_ - _hd3643436636_ - _tl3643536638_ - _e3643636641_ - _hd3643736644_ - _tl3643836646_) - (let ((_L36649_ _hd3643736644_) - (_L36650_ _hd3642836620_)) - (if (if (not (gx#free-identifier=? - _L36649_ - _self36135_)) + (##car _e3902739100_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3902539105_)) + (___match4441344414_ + _e3900639044_ + _hd3900539047_ + _tl3900439049_ + _e3900939052_ + _hd3900839055_ + _tl3900739057_ + _e3901239060_ + _hd3901139063_ + _tl3901039065_ + _e3901539068_ + _hd3901439071_ + _tl3901339073_ + _e3901839076_ + _hd3901739079_ + _tl3901639081_ + _e3902139084_ + _hd3902039087_ + _tl3901939089_ + _e3902439092_ + _hd3902339095_ + _tl3902239097_ + _e3902739100_ + _hd3902639103_ + _tl3902539105_) + (___kont4370243703_)))) + (___kont4370243703_)))) + (___match4435144352_ + (lambda (_e3898239155_ + _hd3898139158_ + _tl3898039160_ + _e3898539163_ + _hd3898439166_ + _tl3898339168_ + _e3898839171_ + _hd3898739174_ + _tl3898639176_ + _e3899139179_ + _hd3899039182_ + _tl3898939184_ + _e3899439187_ + _hd3899339190_ + _tl3899239192_ + _e3899739195_ + _hd3899639198_ + _tl3899539200_ + _e3900039203_ + _hd3899939206_ + _tl3899839208_) + (let ((_L39211_ _hd3899939206_) + (_L39212_ _hd3899039182_)) + (if (if (let ((__tmp45595 + (let () + (declare (not safe)) + (gx#free-identifier=? + _L39211_ + _self38697_)))) + (declare (not safe)) + (not __tmp45595)) '#f - (let ((_$e36672_ - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L36650_)))) - (and _$e36672_ - ((lambda (_t36675_) + (let ((_$e39234_ + (let ((__tmp45593 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L39212_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45593)))) + (and _$e39234_ + ((lambda (_t39237_) (and (let () (declare (not safe)) (##structure-instance-of? - _t36675_ + _t39237_ 'gxc#!struct-getf::t)) - (let ((_struct-t3667636678_ - (gxc#optimizer-resolve-type - (##structure-ref - _t36675_ - '1 - gxc#!type::t - '#f)))) - (and _struct-t3667636678_ - (let ((_struct-t36681_ - _struct-t3667636678_)) + (let ((_struct-t3923839240_ + (let ((__tmp45594 + (##structure-ref + _t39237_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45594)))) + (and _struct-t3923839240_ + (let ((_struct-t39243_ + _struct-t3923839240_)) (##structure-ref - _struct-t36681_ + _struct-t39243_ '4 gxc#!struct-type::t '#f)))))) - _$e36672_)))) - (___kont4113641137_ _L36649_ _L36650_) - (___kont4114041141_))))) - (___match4173341734_ - (lambda (_e3639536690_ - _hd3639636693_ - _tl3639736695_ - _e3639836698_ - _hd3639936701_ - _tl3640036703_ - _e3640136706_ - _hd3640236709_ - _tl3640336711_ - _e3640436714_ - _hd3640536717_ - _tl3640636719_ - _e3640736722_ - _hd3640836725_ - _tl3640936727_ - _e3641036730_ - _hd3641136733_ - _tl3641236735_ - _e3641336738_ - _hd3641436741_ - _tl3641536743_) - (let ((_L36746_ _hd3641436741_) - (_L36747_ _hd3640536717_)) - (if (and (let ((__tmp42635 - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L36747_)))) + _$e39234_)))) + (___kont4369843699_ _L39211_ _L39212_) + (___kont4370243703_))))) + (___match4429544296_ + (lambda (_e3895939252_ + _hd3895839255_ + _tl3895739257_ + _e3896239260_ + _hd3896139263_ + _tl3896039265_ + _e3896539268_ + _hd3896439271_ + _tl3896339273_ + _e3896839276_ + _hd3896739279_ + _tl3896639281_ + _e3897139284_ + _hd3897039287_ + _tl3896939289_ + _e3897439292_ + _hd3897339295_ + _tl3897239297_ + _e3897739300_ + _hd3897639303_ + _tl3897539305_) + (let ((_L39308_ _hd3897639303_) + (_L39309_ _hd3896739279_)) + (if (and (let ((__tmp45596 + (let ((__tmp45597 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L39309_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45597)))) (declare (not safe)) (##structure-instance-of? - __tmp42635 + __tmp45596 'gxc#!struct-pred::t)) - (gx#free-identifier=? _L36746_ _self36135_)) - (___kont4113441135_ _L36746_ _L36747_) - (___match4178941790_ - _e3639536690_ - _hd3639636693_ - _tl3639736695_ - _e3639836698_ - _hd3639936701_ - _tl3640036703_ - _e3640136706_ - _hd3640236709_ - _tl3640336711_ - _e3640436714_ - _hd3640536717_ - _tl3640636719_ - _e3640736722_ - _hd3640836725_ - _tl3640936727_ - _e3641036730_ - _hd3641136733_ - _tl3641236735_ - _e3641336738_ - _hd3641436741_ - _tl3641536743_))))) - (___match4167741678_ - (lambda (_e3637236774_ - _hd3637336777_ - _tl3637436779_ - _e3637536782_ - _hd3637636785_ - _tl3637736787_ - _e3637836790_ - _hd3637936793_ - _tl3638036795_ - _e3638136798_ - _hd3638236801_ - _tl3638336803_ - _e3638436806_ - _hd3638536809_ - _tl3638636811_ - _e3638736814_ - _hd3638836817_ - _tl3638936819_ - _e3639036822_ - _hd3639136825_ - _tl3639236827_) - (let ((_L36830_ _hd3639136825_) - (_L36831_ _hd3638236801_)) - (if (and (let ((__tmp42636 - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L36831_)))) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L39308_ + _self38697_))) + (___kont4369643697_ _L39308_ _L39309_) + (___match4435144352_ + _e3895939252_ + _hd3895839255_ + _tl3895739257_ + _e3896239260_ + _hd3896139263_ + _tl3896039265_ + _e3896539268_ + _hd3896439271_ + _tl3896339273_ + _e3896839276_ + _hd3896739279_ + _tl3896639281_ + _e3897139284_ + _hd3897039287_ + _tl3896939289_ + _e3897439292_ + _hd3897339295_ + _tl3897239297_ + _e3897739300_ + _hd3897639303_ + _tl3897539305_))))) + (___match4423944240_ + (lambda (_e3893639336_ + _hd3893539339_ + _tl3893439341_ + _e3893939344_ + _hd3893839347_ + _tl3893739349_ + _e3894239352_ + _hd3894139355_ + _tl3894039357_ + _e3894539360_ + _hd3894439363_ + _tl3894339365_ + _e3894839368_ + _hd3894739371_ + _tl3894639373_ + _e3895139376_ + _hd3895039379_ + _tl3894939381_ + _e3895439384_ + _hd3895339387_ + _tl3895239389_) + (let ((_L39392_ _hd3895339387_) + (_L39393_ _hd3894439363_)) + (if (and (let ((__tmp45598 + (let ((__tmp45599 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L39393_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45599)))) (declare (not safe)) (##structure-instance-of? - __tmp42636 + __tmp45598 'gxc#!class-pred::t)) - (gx#free-identifier=? _L36830_ _self36135_)) - (___kont4113241133_ _L36830_ _L36831_) - (___match4173341734_ - _e3637236774_ - _hd3637336777_ - _tl3637436779_ - _e3637536782_ - _hd3637636785_ - _tl3637736787_ - _e3637836790_ - _hd3637936793_ - _tl3638036795_ - _e3638136798_ - _hd3638236801_ - _tl3638336803_ - _e3638436806_ - _hd3638536809_ - _tl3638636811_ - _e3638736814_ - _hd3638836817_ - _tl3638936819_ - _e3639036822_ - _hd3639136825_ - _tl3639236827_))))) - (___match4167541676_ - (lambda (_e3637236774_ - _hd3637336777_ - _tl3637436779_ - _e3637536782_ - _hd3637636785_ - _tl3637736787_ - _e3637836790_ - _hd3637936793_ - _tl3638036795_ - _e3638136798_ - _hd3638236801_ - _tl3638336803_ - _e3638436806_ - _hd3638536809_ - _tl3638636811_ - _e3638736814_ - _hd3638836817_ - _tl3638936819_ - _e3639036822_ - _hd3639136825_ - _tl3639236827_) - (if (gx#stx-null? _tl3638636811_) - (___match4167741678_ - _e3637236774_ - _hd3637336777_ - _tl3637436779_ - _e3637536782_ - _hd3637636785_ - _tl3637736787_ - _e3637836790_ - _hd3637936793_ - _tl3638036795_ - _e3638136798_ - _hd3638236801_ - _tl3638336803_ - _e3638436806_ - _hd3638536809_ - _tl3638636811_ - _e3638736814_ - _hd3638836817_ - _tl3638936819_ - _e3639036822_ - _hd3639136825_ - _tl3639236827_) - (___match4184341844_ - _e3637236774_ - _hd3637336777_ - _tl3637436779_ - _e3637536782_ - _hd3637636785_ - _tl3637736787_ - _e3637836790_ - _hd3637936793_ - _tl3638036795_ - _e3638136798_ - _hd3638236801_ - _tl3638336803_ - _e3638436806_ - _hd3638536809_ - _tl3638636811_ - _e3638736814_ - _hd3638836817_ - _tl3638936819_ - _e3639036822_ - _hd3639136825_ - _tl3639236827_)))) - (___match4162141622_ - (lambda (_e3634636858_ - _hd3634736861_ - _tl3634836863_ - _e3634936866_ - _hd3635036869_ - _tl3635136871_ - _e3635236874_ - _hd3635336877_ - _tl3635436879_ - _e3635536882_ - _hd3635636885_ - _tl3635736887_ - _e3635836890_ - _hd3635936893_ - _tl3636036895_ - _e3636136898_ - _hd3636236901_ - _tl3636336903_ - _e3636436906_ - _hd3636536909_ - _tl3636636911_ - _e3636736914_ - _hd3636836917_ - _tl3636936919_) - (let ((_L36922_ _hd3636836917_) - (_L36923_ _hd3636536909_) - (_L36924_ _hd3635636885_)) - (if (and (let ((__tmp42637 - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L36924_)))) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L39392_ + _self38697_))) + (___kont4369443695_ _L39392_ _L39393_) + (___match4429544296_ + _e3893639336_ + _hd3893539339_ + _tl3893439341_ + _e3893939344_ + _hd3893839347_ + _tl3893739349_ + _e3894239352_ + _hd3894139355_ + _tl3894039357_ + _e3894539360_ + _hd3894439363_ + _tl3894339365_ + _e3894839368_ + _hd3894739371_ + _tl3894639373_ + _e3895139376_ + _hd3895039379_ + _tl3894939381_ + _e3895439384_ + _hd3895339387_ + _tl3895239389_))))) + (___match4423744238_ + (lambda (_e3893639336_ + _hd3893539339_ + _tl3893439341_ + _e3893939344_ + _hd3893839347_ + _tl3893739349_ + _e3894239352_ + _hd3894139355_ + _tl3894039357_ + _e3894539360_ + _hd3894439363_ + _tl3894339365_ + _e3894839368_ + _hd3894739371_ + _tl3894639373_ + _e3895139376_ + _hd3895039379_ + _tl3894939381_ + _e3895439384_ + _hd3895339387_ + _tl3895239389_) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3894639373_)) + (___match4423944240_ + _e3893639336_ + _hd3893539339_ + _tl3893439341_ + _e3893939344_ + _hd3893839347_ + _tl3893739349_ + _e3894239352_ + _hd3894139355_ + _tl3894039357_ + _e3894539360_ + _hd3894439363_ + _tl3894339365_ + _e3894839368_ + _hd3894739371_ + _tl3894639373_ + _e3895139376_ + _hd3895039379_ + _tl3894939381_ + _e3895439384_ + _hd3895339387_ + _tl3895239389_) + (___match4440544406_ + _e3893639336_ + _hd3893539339_ + _tl3893439341_ + _e3893939344_ + _hd3893839347_ + _tl3893739349_ + _e3894239352_ + _hd3894139355_ + _tl3894039357_ + _e3894539360_ + _hd3894439363_ + _tl3894339365_ + _e3894839368_ + _hd3894739371_ + _tl3894639373_ + _e3895139376_ + _hd3895039379_ + _tl3894939381_ + _e3895439384_ + _hd3895339387_ + _tl3895239389_)))) + (___match4418344184_ + (lambda (_e3891039420_ + _hd3890939423_ + _tl3890839425_ + _e3891339428_ + _hd3891239431_ + _tl3891139433_ + _e3891639436_ + _hd3891539439_ + _tl3891439441_ + _e3891939444_ + _hd3891839447_ + _tl3891739449_ + _e3892239452_ + _hd3892139455_ + _tl3892039457_ + _e3892539460_ + _hd3892439463_ + _tl3892339465_ + _e3892839468_ + _hd3892739471_ + _tl3892639473_ + _e3893139476_ + _hd3893039479_ + _tl3892939481_) + (let ((_L39484_ _hd3893039479_) + (_L39485_ _hd3892739471_) + (_L39486_ _hd3891839447_)) + (if (and (let ((__tmp45600 + (let ((__tmp45601 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L39486_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45601)))) (declare (not safe)) (##structure-instance-of? - __tmp42637 + __tmp45600 'gxc#!class-setf::t)) - (gx#free-identifier=? _L36923_ _self36135_)) - (___kont4113041131_ _L36922_ _L36923_ _L36924_) - (___match4185141852_ - _e3634636858_ - _hd3634736861_ - _tl3634836863_ - _e3634936866_ - _hd3635036869_ - _tl3635136871_ - _e3635236874_ - _hd3635336877_ - _tl3635436879_ - _e3635536882_ - _hd3635636885_ - _tl3635736887_ - _e3635836890_ - _hd3635936893_ - _tl3636036895_ - _e3636136898_ - _hd3636236901_ - _tl3636336903_ - _e3636436906_ - _hd3636536909_ - _tl3636636911_ - _e3636736914_ - _hd3636836917_ - _tl3636936919_))))) - (___match4161941620_ - (lambda (_e3634636858_ - _hd3634736861_ - _tl3634836863_ - _e3634936866_ - _hd3635036869_ - _tl3635136871_ - _e3635236874_ - _hd3635336877_ - _tl3635436879_ - _e3635536882_ - _hd3635636885_ - _tl3635736887_ - _e3635836890_ - _hd3635936893_ - _tl3636036895_ - _e3636136898_ - _hd3636236901_ - _tl3636336903_ - _e3636436906_ - _hd3636536909_ - _tl3636636911_ - _e3636736914_ - _hd3636836917_ - _tl3636936919_) - (if (gx#stx-null? _tl3636936919_) - (___match4162141622_ - _e3634636858_ - _hd3634736861_ - _tl3634836863_ - _e3634936866_ - _hd3635036869_ - _tl3635136871_ - _e3635236874_ - _hd3635336877_ - _tl3635436879_ - _e3635536882_ - _hd3635636885_ - _tl3635736887_ - _e3635836890_ - _hd3635936893_ - _tl3636036895_ - _e3636136898_ - _hd3636236901_ - _tl3636336903_ - _e3636436906_ - _hd3636536909_ - _tl3636636911_ - _e3636736914_ - _hd3636836917_ - _tl3636936919_) - (___kont4114041141_)))) - (___match4161341614_ - (lambda (_e3634636858_ - _hd3634736861_ - _tl3634836863_ - _e3634936866_ - _hd3635036869_ - _tl3635136871_ - _e3635236874_ - _hd3635336877_ - _tl3635436879_ - _e3635536882_ - _hd3635636885_ - _tl3635736887_ - _e3635836890_ - _hd3635936893_ - _tl3636036895_ - _e3636136898_ - _hd3636236901_ - _tl3636336903_ - _e3636436906_ - _hd3636536909_ - _tl3636636911_) - (if (gx#stx-pair? _tl3636036895_) - (let ((_e3636736914_ (gx#stx-e _tl3636036895_))) - (let ((_tl3636936919_ + (let () + (declare (not safe)) + (gx#free-identifier=? + _L39485_ + _self38697_))) + (___kont4369243693_ _L39484_ _L39485_ _L39486_) + (___match4441344414_ + _e3891039420_ + _hd3890939423_ + _tl3890839425_ + _e3891339428_ + _hd3891239431_ + _tl3891139433_ + _e3891639436_ + _hd3891539439_ + _tl3891439441_ + _e3891939444_ + _hd3891839447_ + _tl3891739449_ + _e3892239452_ + _hd3892139455_ + _tl3892039457_ + _e3892539460_ + _hd3892439463_ + _tl3892339465_ + _e3892839468_ + _hd3892739471_ + _tl3892639473_ + _e3893139476_ + _hd3893039479_ + _tl3892939481_))))) + (___match4418144182_ + (lambda (_e3891039420_ + _hd3890939423_ + _tl3890839425_ + _e3891339428_ + _hd3891239431_ + _tl3891139433_ + _e3891639436_ + _hd3891539439_ + _tl3891439441_ + _e3891939444_ + _hd3891839447_ + _tl3891739449_ + _e3892239452_ + _hd3892139455_ + _tl3892039457_ + _e3892539460_ + _hd3892439463_ + _tl3892339465_ + _e3892839468_ + _hd3892739471_ + _tl3892639473_ + _e3893139476_ + _hd3893039479_ + _tl3892939481_) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3892939481_)) + (___match4418344184_ + _e3891039420_ + _hd3890939423_ + _tl3890839425_ + _e3891339428_ + _hd3891239431_ + _tl3891139433_ + _e3891639436_ + _hd3891539439_ + _tl3891439441_ + _e3891939444_ + _hd3891839447_ + _tl3891739449_ + _e3892239452_ + _hd3892139455_ + _tl3892039457_ + _e3892539460_ + _hd3892439463_ + _tl3892339465_ + _e3892839468_ + _hd3892739471_ + _tl3892639473_ + _e3893139476_ + _hd3893039479_ + _tl3892939481_) + (___kont4370243703_)))) + (___match4417544176_ + (lambda (_e3891039420_ + _hd3890939423_ + _tl3890839425_ + _e3891339428_ + _hd3891239431_ + _tl3891139433_ + _e3891639436_ + _hd3891539439_ + _tl3891439441_ + _e3891939444_ + _hd3891839447_ + _tl3891739449_ + _e3892239452_ + _hd3892139455_ + _tl3892039457_ + _e3892539460_ + _hd3892439463_ + _tl3892339465_ + _e3892839468_ + _hd3892739471_ + _tl3892639473_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3892039457_)) + (let ((_e3893139476_ + (let () + (declare (not safe)) + (gx#stx-e _tl3892039457_)))) + (let ((_tl3892939481_ (let () (declare (not safe)) - (##cdr _e3636736914_))) - (_hd3636836917_ + (##cdr _e3893139476_))) + (_hd3893039479_ (let () (declare (not safe)) - (##car _e3636736914_)))) - (if (gx#stx-null? _tl3636936919_) - (___match4162141622_ - _e3634636858_ - _hd3634736861_ - _tl3634836863_ - _e3634936866_ - _hd3635036869_ - _tl3635136871_ - _e3635236874_ - _hd3635336877_ - _tl3635436879_ - _e3635536882_ - _hd3635636885_ - _tl3635736887_ - _e3635836890_ - _hd3635936893_ - _tl3636036895_ - _e3636136898_ - _hd3636236901_ - _tl3636336903_ - _e3636436906_ - _hd3636536909_ - _tl3636636911_ - _e3636736914_ - _hd3636836917_ - _tl3636936919_) - (___kont4114041141_)))) - (___match4167541676_ - _e3634636858_ - _hd3634736861_ - _tl3634836863_ - _e3634936866_ - _hd3635036869_ - _tl3635136871_ - _e3635236874_ - _hd3635336877_ - _tl3635436879_ - _e3635536882_ - _hd3635636885_ - _tl3635736887_ - _e3635836890_ - _hd3635936893_ - _tl3636036895_ - _e3636136898_ - _hd3636236901_ - _tl3636336903_ - _e3636436906_ - _hd3636536909_ - _tl3636636911_)))) - (___match4155941560_ - (lambda (_e3632236954_ - _hd3632336957_ - _tl3632436959_ - _e3632536962_ - _hd3632636965_ - _tl3632736967_ - _e3632836970_ - _hd3632936973_ - _tl3633036975_ - _e3633136978_ - _hd3633236981_ - _tl3633336983_ - _e3633436986_ - _hd3633536989_ - _tl3633636991_ - _e3633736994_ - _hd3633836997_ - _tl3633936999_ - _e3634037002_ - _hd3634137005_ - _tl3634237007_) - (let ((_L37010_ _hd3634137005_) - (_L37011_ _hd3633236981_)) - (if (and (let ((__tmp42638 - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L37011_)))) + (##car _e3893139476_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3892939481_)) + (___match4418344184_ + _e3891039420_ + _hd3890939423_ + _tl3890839425_ + _e3891339428_ + _hd3891239431_ + _tl3891139433_ + _e3891639436_ + _hd3891539439_ + _tl3891439441_ + _e3891939444_ + _hd3891839447_ + _tl3891739449_ + _e3892239452_ + _hd3892139455_ + _tl3892039457_ + _e3892539460_ + _hd3892439463_ + _tl3892339465_ + _e3892839468_ + _hd3892739471_ + _tl3892639473_ + _e3893139476_ + _hd3893039479_ + _tl3892939481_) + (___kont4370243703_)))) + (___match4423744238_ + _e3891039420_ + _hd3890939423_ + _tl3890839425_ + _e3891339428_ + _hd3891239431_ + _tl3891139433_ + _e3891639436_ + _hd3891539439_ + _tl3891439441_ + _e3891939444_ + _hd3891839447_ + _tl3891739449_ + _e3892239452_ + _hd3892139455_ + _tl3892039457_ + _e3892539460_ + _hd3892439463_ + _tl3892339465_ + _e3892839468_ + _hd3892739471_ + _tl3892639473_)))) + (___match4412144122_ + (lambda (_e3888639516_ + _hd3888539519_ + _tl3888439521_ + _e3888939524_ + _hd3888839527_ + _tl3888739529_ + _e3889239532_ + _hd3889139535_ + _tl3889039537_ + _e3889539540_ + _hd3889439543_ + _tl3889339545_ + _e3889839548_ + _hd3889739551_ + _tl3889639553_ + _e3890139556_ + _hd3890039559_ + _tl3889939561_ + _e3890439564_ + _hd3890339567_ + _tl3890239569_) + (let ((_L39572_ _hd3890339567_) + (_L39573_ _hd3889439543_)) + (if (and (let ((__tmp45602 + (let ((__tmp45603 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L39573_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45603)))) (declare (not safe)) (##structure-instance-of? - __tmp42638 + __tmp45602 'gxc#!class-getf::t)) - (gx#free-identifier=? _L37010_ _self36135_)) - (___kont4112841129_ _L37010_ _L37011_) - (___match4167741678_ - _e3632236954_ - _hd3632336957_ - _tl3632436959_ - _e3632536962_ - _hd3632636965_ - _tl3632736967_ - _e3632836970_ - _hd3632936973_ - _tl3633036975_ - _e3633136978_ - _hd3633236981_ - _tl3633336983_ - _e3633436986_ - _hd3633536989_ - _tl3633636991_ - _e3633736994_ - _hd3633836997_ - _tl3633936999_ - _e3634037002_ - _hd3634137005_ - _tl3634237007_))))) - (___match4155741558_ - (lambda (_e3632236954_ - _hd3632336957_ - _tl3632436959_ - _e3632536962_ - _hd3632636965_ - _tl3632736967_ - _e3632836970_ - _hd3632936973_ - _tl3633036975_ - _e3633136978_ - _hd3633236981_ - _tl3633336983_ - _e3633436986_ - _hd3633536989_ - _tl3633636991_ - _e3633736994_ - _hd3633836997_ - _tl3633936999_ - _e3634037002_ - _hd3634137005_ - _tl3634237007_) - (if (gx#stx-null? _tl3633636991_) - (___match4155941560_ - _e3632236954_ - _hd3632336957_ - _tl3632436959_ - _e3632536962_ - _hd3632636965_ - _tl3632736967_ - _e3632836970_ - _hd3632936973_ - _tl3633036975_ - _e3633136978_ - _hd3633236981_ - _tl3633336983_ - _e3633436986_ - _hd3633536989_ - _tl3633636991_ - _e3633736994_ - _hd3633836997_ - _tl3633936999_ - _e3634037002_ - _hd3634137005_ - _tl3634237007_) - (___match4161341614_ - _e3632236954_ - _hd3632336957_ - _tl3632436959_ - _e3632536962_ - _hd3632636965_ - _tl3632736967_ - _e3632836970_ - _hd3632936973_ - _tl3633036975_ - _e3633136978_ - _hd3633236981_ - _tl3633336983_ - _e3633436986_ - _hd3633536989_ - _tl3633636991_ - _e3633736994_ - _hd3633836997_ - _tl3633936999_ - _e3634037002_ - _hd3634137005_ - _tl3634237007_)))) - (___match4150341504_ - (lambda (_e3628737038_ - _hd3628837041_ - _tl3628937043_ - _e3629037046_ - _hd3629137049_ - _tl3629237051_ - _e3629337054_ - _hd3629437057_ - _tl3629537059_ - _e3629637062_ - _hd3629737065_ - _tl3629837067_ - _e3629937070_ - _hd3630037073_ - _tl3630137075_ - _e3630237078_ - _hd3630337081_ - _tl3630437083_ - _e3630537086_ - _hd3630637089_ - _tl3630737091_ - _e3630837094_ - _hd3630937097_ - _tl3631037099_ - _e3631137102_ - _hd3631237105_ - _tl3631337107_ - _e3631437110_ - _hd3631537113_ - _tl3631637115_ - _e3631737118_ - _hd3631837121_ - _tl3631937123_) - (let ((_L37126_ _hd3631837121_) - (_L37127_ _hd3631537113_) - (_L37128_ _hd3630637089_) - (_L37129_ _hd3629737065_)) - (if (and (or (gxc#runtime-identifier=? - _L37129_ - 'slot-set!) - (gxc#runtime-identifier=? - _L37129_ - 'unchecked-slot-set!)) - (gx#free-identifier=? _L37128_ _self36135_)) - (___kont4112641127_ - _L37126_ - _L37127_ - _L37128_ - _L37129_) - (___kont4114041141_))))) - (___match4149541496_ - (lambda (_e3628737038_ - _hd3628837041_ - _tl3628937043_ - _e3629037046_ - _hd3629137049_ - _tl3629237051_ - _e3629337054_ - _hd3629437057_ - _tl3629537059_ - _e3629637062_ - _hd3629737065_ - _tl3629837067_ - _e3629937070_ - _hd3630037073_ - _tl3630137075_ - _e3630237078_ - _hd3630337081_ - _tl3630437083_ - _e3630537086_ - _hd3630637089_ - _tl3630737091_ - _e3630837094_ - _hd3630937097_ - _tl3631037099_ - _e3631137102_ - _hd3631237105_ - _tl3631337107_ - _e3631437110_ - _hd3631537113_ - _tl3631637115_) - (if (gx#stx-pair? _tl3631037099_) - (let ((_e3631737118_ (gx#stx-e _tl3631037099_))) - (let ((_tl3631937123_ + (let () + (declare (not safe)) + (gx#free-identifier=? + _L39572_ + _self38697_))) + (___kont4369043691_ _L39572_ _L39573_) + (___match4423944240_ + _e3888639516_ + _hd3888539519_ + _tl3888439521_ + _e3888939524_ + _hd3888839527_ + _tl3888739529_ + _e3889239532_ + _hd3889139535_ + _tl3889039537_ + _e3889539540_ + _hd3889439543_ + _tl3889339545_ + _e3889839548_ + _hd3889739551_ + _tl3889639553_ + _e3890139556_ + _hd3890039559_ + _tl3889939561_ + _e3890439564_ + _hd3890339567_ + _tl3890239569_))))) + (___match4411944120_ + (lambda (_e3888639516_ + _hd3888539519_ + _tl3888439521_ + _e3888939524_ + _hd3888839527_ + _tl3888739529_ + _e3889239532_ + _hd3889139535_ + _tl3889039537_ + _e3889539540_ + _hd3889439543_ + _tl3889339545_ + _e3889839548_ + _hd3889739551_ + _tl3889639553_ + _e3890139556_ + _hd3890039559_ + _tl3889939561_ + _e3890439564_ + _hd3890339567_ + _tl3890239569_) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3889639553_)) + (___match4412144122_ + _e3888639516_ + _hd3888539519_ + _tl3888439521_ + _e3888939524_ + _hd3888839527_ + _tl3888739529_ + _e3889239532_ + _hd3889139535_ + _tl3889039537_ + _e3889539540_ + _hd3889439543_ + _tl3889339545_ + _e3889839548_ + _hd3889739551_ + _tl3889639553_ + _e3890139556_ + _hd3890039559_ + _tl3889939561_ + _e3890439564_ + _hd3890339567_ + _tl3890239569_) + (___match4417544176_ + _e3888639516_ + _hd3888539519_ + _tl3888439521_ + _e3888939524_ + _hd3888839527_ + _tl3888739529_ + _e3889239532_ + _hd3889139535_ + _tl3889039537_ + _e3889539540_ + _hd3889439543_ + _tl3889339545_ + _e3889839548_ + _hd3889739551_ + _tl3889639553_ + _e3890139556_ + _hd3890039559_ + _tl3889939561_ + _e3890439564_ + _hd3890339567_ + _tl3890239569_)))) + (___match4406544066_ + (lambda (_e3885139600_ + _hd3885039603_ + _tl3884939605_ + _e3885439608_ + _hd3885339611_ + _tl3885239613_ + _e3885739616_ + _hd3885639619_ + _tl3885539621_ + _e3886039624_ + _hd3885939627_ + _tl3885839629_ + _e3886339632_ + _hd3886239635_ + _tl3886139637_ + _e3886639640_ + _hd3886539643_ + _tl3886439645_ + _e3886939648_ + _hd3886839651_ + _tl3886739653_ + _e3887239656_ + _hd3887139659_ + _tl3887039661_ + _e3887539664_ + _hd3887439667_ + _tl3887339669_ + _e3887839672_ + _hd3887739675_ + _tl3887639677_ + _e3888139680_ + _hd3888039683_ + _tl3887939685_) + (let ((_L39688_ _hd3888039683_) + (_L39689_ _hd3887739675_) + (_L39690_ _hd3886839651_) + (_L39691_ _hd3885939627_)) + (if (and (or (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L39691_ + 'slot-set!)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L39691_ + 'unchecked-slot-set!))) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L39690_ + _self38697_))) + (___kont4368843689_ + _L39688_ + _L39689_ + _L39690_ + _L39691_) + (___kont4370243703_))))) + (___match4405744058_ + (lambda (_e3885139600_ + _hd3885039603_ + _tl3884939605_ + _e3885439608_ + _hd3885339611_ + _tl3885239613_ + _e3885739616_ + _hd3885639619_ + _tl3885539621_ + _e3886039624_ + _hd3885939627_ + _tl3885839629_ + _e3886339632_ + _hd3886239635_ + _tl3886139637_ + _e3886639640_ + _hd3886539643_ + _tl3886439645_ + _e3886939648_ + _hd3886839651_ + _tl3886739653_ + _e3887239656_ + _hd3887139659_ + _tl3887039661_ + _e3887539664_ + _hd3887439667_ + _tl3887339669_ + _e3887839672_ + _hd3887739675_ + _tl3887639677_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3887039661_)) + (let ((_e3888139680_ + (let () + (declare (not safe)) + (gx#stx-e _tl3887039661_)))) + (let ((_tl3887939685_ (let () (declare (not safe)) - (##cdr _e3631737118_))) - (_hd3631837121_ + (##cdr _e3888139680_))) + (_hd3888039683_ (let () (declare (not safe)) - (##car _e3631737118_)))) - (if (gx#stx-null? _tl3631937123_) - (___match4150341504_ - _e3628737038_ - _hd3628837041_ - _tl3628937043_ - _e3629037046_ - _hd3629137049_ - _tl3629237051_ - _e3629337054_ - _hd3629437057_ - _tl3629537059_ - _e3629637062_ - _hd3629737065_ - _tl3629837067_ - _e3629937070_ - _hd3630037073_ - _tl3630137075_ - _e3630237078_ - _hd3630337081_ - _tl3630437083_ - _e3630537086_ - _hd3630637089_ - _tl3630737091_ - _e3630837094_ - _hd3630937097_ - _tl3631037099_ - _e3631137102_ - _hd3631237105_ - _tl3631337107_ - _e3631437110_ - _hd3631537113_ - _tl3631637115_ - _e3631737118_ - _hd3631837121_ - _tl3631937123_) - (___kont4114041141_)))) - (___match4161941620_ - _e3628737038_ - _hd3628837041_ - _tl3628937043_ - _e3629037046_ - _hd3629137049_ - _tl3629237051_ - _e3629337054_ - _hd3629437057_ - _tl3629537059_ - _e3629637062_ - _hd3629737065_ - _tl3629837067_ - _e3629937070_ - _hd3630037073_ - _tl3630137075_ - _e3630237078_ - _hd3630337081_ - _tl3630437083_ - _e3630537086_ - _hd3630637089_ - _tl3630737091_ - _e3630837094_ - _hd3630937097_ - _tl3631037099_)))) - (___match4141741418_ - (lambda (_e3625337169_ - _hd3625437172_ - _tl3625537174_ - _e3625637177_ - _hd3625737180_ - _tl3625837182_ - _e3625937185_ - _hd3626037188_ - _tl3626137190_ - _e3626237193_ - _hd3626337196_ - _tl3626437198_ - _e3626537201_ - _hd3626637204_ - _tl3626737206_ - _e3626837209_ - _hd3626937212_ - _tl3627037214_ - _e3627137217_ - _hd3627237220_ - _tl3627337222_ - _e3627437225_ - _hd3627537228_ - _tl3627637230_ - _e3627737233_ - _hd3627837236_ - _tl3627937238_ - _e3628037241_ - _hd3628137244_ - _tl3628237246_) - (let ((_L37249_ _hd3628137244_) - (_L37250_ _hd3627237220_) - (_L37251_ _hd3626337196_)) - (if (and (or (gxc#runtime-identifier=? - _L37251_ - 'slot-ref) - (gxc#runtime-identifier=? - _L37251_ - 'unchecked-slot-ref)) - (gx#free-identifier=? _L37250_ _self36135_)) - (___kont4112441125_ _L37249_ _L37250_ _L37251_) - (___match4162141622_ - _e3625337169_ - _hd3625437172_ - _tl3625537174_ - _e3625637177_ - _hd3625737180_ - _tl3625837182_ - _e3625937185_ - _hd3626037188_ - _tl3626137190_ - _e3626237193_ - _hd3626337196_ - _tl3626437198_ - _e3626537201_ - _hd3626637204_ - _tl3626737206_ - _e3626837209_ - _hd3626937212_ - _tl3627037214_ - _e3627137217_ - _hd3627237220_ - _tl3627337222_ - _e3627437225_ - _hd3627537228_ - _tl3627637230_))))) - (___match4141541416_ - (lambda (_e3625337169_ - _hd3625437172_ - _tl3625537174_ - _e3625637177_ - _hd3625737180_ - _tl3625837182_ - _e3625937185_ - _hd3626037188_ - _tl3626137190_ - _e3626237193_ - _hd3626337196_ - _tl3626437198_ - _e3626537201_ - _hd3626637204_ - _tl3626737206_ - _e3626837209_ - _hd3626937212_ - _tl3627037214_ - _e3627137217_ - _hd3627237220_ - _tl3627337222_ - _e3627437225_ - _hd3627537228_ - _tl3627637230_ - _e3627737233_ - _hd3627837236_ - _tl3627937238_ - _e3628037241_ - _hd3628137244_ - _tl3628237246_) - (if (gx#stx-null? _tl3627637230_) - (___match4141741418_ - _e3625337169_ - _hd3625437172_ - _tl3625537174_ - _e3625637177_ - _hd3625737180_ - _tl3625837182_ - _e3625937185_ - _hd3626037188_ - _tl3626137190_ - _e3626237193_ - _hd3626337196_ - _tl3626437198_ - _e3626537201_ - _hd3626637204_ - _tl3626737206_ - _e3626837209_ - _hd3626937212_ - _tl3627037214_ - _e3627137217_ - _hd3627237220_ - _tl3627337222_ - _e3627437225_ - _hd3627537228_ - _tl3627637230_ - _e3627737233_ - _hd3627837236_ - _tl3627937238_ - _e3628037241_ - _hd3628137244_ - _tl3628237246_) - (___match4149541496_ - _e3625337169_ - _hd3625437172_ - _tl3625537174_ - _e3625637177_ - _hd3625737180_ - _tl3625837182_ - _e3625937185_ - _hd3626037188_ - _tl3626137190_ - _e3626237193_ - _hd3626337196_ - _tl3626437198_ - _e3626537201_ - _hd3626637204_ - _tl3626737206_ - _e3626837209_ - _hd3626937212_ - _tl3627037214_ - _e3627137217_ - _hd3627237220_ - _tl3627337222_ - _e3627437225_ - _hd3627537228_ - _tl3627637230_ - _e3627737233_ - _hd3627837236_ - _tl3627937238_ - _e3628037241_ - _hd3628137244_ - _tl3628237246_)))) - (___match4140541406_ - (lambda (_e3625337169_ - _hd3625437172_ - _tl3625537174_ - _e3625637177_ - _hd3625737180_ - _tl3625837182_ - _e3625937185_ - _hd3626037188_ - _tl3626137190_ - _e3626237193_ - _hd3626337196_ - _tl3626437198_ - _e3626537201_ - _hd3626637204_ - _tl3626737206_ - _e3626837209_ - _hd3626937212_ - _tl3627037214_ - _e3627137217_ - _hd3627237220_ - _tl3627337222_ - _e3627437225_ - _hd3627537228_ - _tl3627637230_ - _e3627737233_ - _hd3627837236_ - _tl3627937238_) - (if (gx#stx-eq? '%#quote _hd3627837236_) - (if (gx#stx-pair? _tl3627937238_) - (let ((_e3628037241_ (gx#stx-e _tl3627937238_))) - (let ((_tl3628237246_ + (##car _e3888139680_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3887939685_)) + (___match4406544066_ + _e3885139600_ + _hd3885039603_ + _tl3884939605_ + _e3885439608_ + _hd3885339611_ + _tl3885239613_ + _e3885739616_ + _hd3885639619_ + _tl3885539621_ + _e3886039624_ + _hd3885939627_ + _tl3885839629_ + _e3886339632_ + _hd3886239635_ + _tl3886139637_ + _e3886639640_ + _hd3886539643_ + _tl3886439645_ + _e3886939648_ + _hd3886839651_ + _tl3886739653_ + _e3887239656_ + _hd3887139659_ + _tl3887039661_ + _e3887539664_ + _hd3887439667_ + _tl3887339669_ + _e3887839672_ + _hd3887739675_ + _tl3887639677_ + _e3888139680_ + _hd3888039683_ + _tl3887939685_) + (___kont4370243703_)))) + (___match4418144182_ + _e3885139600_ + _hd3885039603_ + _tl3884939605_ + _e3885439608_ + _hd3885339611_ + _tl3885239613_ + _e3885739616_ + _hd3885639619_ + _tl3885539621_ + _e3886039624_ + _hd3885939627_ + _tl3885839629_ + _e3886339632_ + _hd3886239635_ + _tl3886139637_ + _e3886639640_ + _hd3886539643_ + _tl3886439645_ + _e3886939648_ + _hd3886839651_ + _tl3886739653_ + _e3887239656_ + _hd3887139659_ + _tl3887039661_)))) + (___match4397943980_ + (lambda (_e3881739731_ + _hd3881639734_ + _tl3881539736_ + _e3882039739_ + _hd3881939742_ + _tl3881839744_ + _e3882339747_ + _hd3882239750_ + _tl3882139752_ + _e3882639755_ + _hd3882539758_ + _tl3882439760_ + _e3882939763_ + _hd3882839766_ + _tl3882739768_ + _e3883239771_ + _hd3883139774_ + _tl3883039776_ + _e3883539779_ + _hd3883439782_ + _tl3883339784_ + _e3883839787_ + _hd3883739790_ + _tl3883639792_ + _e3884139795_ + _hd3884039798_ + _tl3883939800_ + _e3884439803_ + _hd3884339806_ + _tl3884239808_) + (let ((_L39811_ _hd3884339806_) + (_L39812_ _hd3883439782_) + (_L39813_ _hd3882539758_)) + (if (and (or (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L39813_ + 'slot-ref)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L39813_ + 'unchecked-slot-ref))) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L39812_ + _self38697_))) + (___kont4368643687_ _L39811_ _L39812_ _L39813_) + (___match4418344184_ + _e3881739731_ + _hd3881639734_ + _tl3881539736_ + _e3882039739_ + _hd3881939742_ + _tl3881839744_ + _e3882339747_ + _hd3882239750_ + _tl3882139752_ + _e3882639755_ + _hd3882539758_ + _tl3882439760_ + _e3882939763_ + _hd3882839766_ + _tl3882739768_ + _e3883239771_ + _hd3883139774_ + _tl3883039776_ + _e3883539779_ + _hd3883439782_ + _tl3883339784_ + _e3883839787_ + _hd3883739790_ + _tl3883639792_))))) + (___match4397743978_ + (lambda (_e3881739731_ + _hd3881639734_ + _tl3881539736_ + _e3882039739_ + _hd3881939742_ + _tl3881839744_ + _e3882339747_ + _hd3882239750_ + _tl3882139752_ + _e3882639755_ + _hd3882539758_ + _tl3882439760_ + _e3882939763_ + _hd3882839766_ + _tl3882739768_ + _e3883239771_ + _hd3883139774_ + _tl3883039776_ + _e3883539779_ + _hd3883439782_ + _tl3883339784_ + _e3883839787_ + _hd3883739790_ + _tl3883639792_ + _e3884139795_ + _hd3884039798_ + _tl3883939800_ + _e3884439803_ + _hd3884339806_ + _tl3884239808_) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3883639792_)) + (___match4397943980_ + _e3881739731_ + _hd3881639734_ + _tl3881539736_ + _e3882039739_ + _hd3881939742_ + _tl3881839744_ + _e3882339747_ + _hd3882239750_ + _tl3882139752_ + _e3882639755_ + _hd3882539758_ + _tl3882439760_ + _e3882939763_ + _hd3882839766_ + _tl3882739768_ + _e3883239771_ + _hd3883139774_ + _tl3883039776_ + _e3883539779_ + _hd3883439782_ + _tl3883339784_ + _e3883839787_ + _hd3883739790_ + _tl3883639792_ + _e3884139795_ + _hd3884039798_ + _tl3883939800_ + _e3884439803_ + _hd3884339806_ + _tl3884239808_) + (___match4405744058_ + _e3881739731_ + _hd3881639734_ + _tl3881539736_ + _e3882039739_ + _hd3881939742_ + _tl3881839744_ + _e3882339747_ + _hd3882239750_ + _tl3882139752_ + _e3882639755_ + _hd3882539758_ + _tl3882439760_ + _e3882939763_ + _hd3882839766_ + _tl3882739768_ + _e3883239771_ + _hd3883139774_ + _tl3883039776_ + _e3883539779_ + _hd3883439782_ + _tl3883339784_ + _e3883839787_ + _hd3883739790_ + _tl3883639792_ + _e3884139795_ + _hd3884039798_ + _tl3883939800_ + _e3884439803_ + _hd3884339806_ + _tl3884239808_)))) + (___match4396743968_ + (lambda (_e3881739731_ + _hd3881639734_ + _tl3881539736_ + _e3882039739_ + _hd3881939742_ + _tl3881839744_ + _e3882339747_ + _hd3882239750_ + _tl3882139752_ + _e3882639755_ + _hd3882539758_ + _tl3882439760_ + _e3882939763_ + _hd3882839766_ + _tl3882739768_ + _e3883239771_ + _hd3883139774_ + _tl3883039776_ + _e3883539779_ + _hd3883439782_ + _tl3883339784_ + _e3883839787_ + _hd3883739790_ + _tl3883639792_ + _e3884139795_ + _hd3884039798_ + _tl3883939800_) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd3884039798_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3883939800_)) + (let ((_e3884439803_ + (let () + (declare (not safe)) + (gx#stx-e _tl3883939800_)))) + (let ((_tl3884239808_ (let () (declare (not safe)) - (##cdr _e3628037241_))) - (_hd3628137244_ + (##cdr _e3884439803_))) + (_hd3884339806_ (let () (declare (not safe)) - (##car _e3628037241_)))) - (if (gx#stx-null? _tl3628237246_) - (if (gx#stx-null? _tl3627637230_) - (___match4141741418_ - _e3625337169_ - _hd3625437172_ - _tl3625537174_ - _e3625637177_ - _hd3625737180_ - _tl3625837182_ - _e3625937185_ - _hd3626037188_ - _tl3626137190_ - _e3626237193_ - _hd3626337196_ - _tl3626437198_ - _e3626537201_ - _hd3626637204_ - _tl3626737206_ - _e3626837209_ - _hd3626937212_ - _tl3627037214_ - _e3627137217_ - _hd3627237220_ - _tl3627337222_ - _e3627437225_ - _hd3627537228_ - _tl3627637230_ - _e3627737233_ - _hd3627837236_ - _tl3627937238_ - _e3628037241_ - _hd3628137244_ - _tl3628237246_) - (___match4149541496_ - _e3625337169_ - _hd3625437172_ - _tl3625537174_ - _e3625637177_ - _hd3625737180_ - _tl3625837182_ - _e3625937185_ - _hd3626037188_ - _tl3626137190_ - _e3626237193_ - _hd3626337196_ - _tl3626437198_ - _e3626537201_ - _hd3626637204_ - _tl3626737206_ - _e3626837209_ - _hd3626937212_ - _tl3627037214_ - _e3627137217_ - _hd3627237220_ - _tl3627337222_ - _e3627437225_ - _hd3627537228_ - _tl3627637230_ - _e3627737233_ - _hd3627837236_ - _tl3627937238_ - _e3628037241_ - _hd3628137244_ - _tl3628237246_)) - (___match4161941620_ - _e3625337169_ - _hd3625437172_ - _tl3625537174_ - _e3625637177_ - _hd3625737180_ - _tl3625837182_ - _e3625937185_ - _hd3626037188_ - _tl3626137190_ - _e3626237193_ - _hd3626337196_ - _tl3626437198_ - _e3626537201_ - _hd3626637204_ - _tl3626737206_ - _e3626837209_ - _hd3626937212_ - _tl3627037214_ - _e3627137217_ - _hd3627237220_ - _tl3627337222_ - _e3627437225_ - _hd3627537228_ - _tl3627637230_)))) - (___match4161941620_ - _e3625337169_ - _hd3625437172_ - _tl3625537174_ - _e3625637177_ - _hd3625737180_ - _tl3625837182_ - _e3625937185_ - _hd3626037188_ - _tl3626137190_ - _e3626237193_ - _hd3626337196_ - _tl3626437198_ - _e3626537201_ - _hd3626637204_ - _tl3626737206_ - _e3626837209_ - _hd3626937212_ - _tl3627037214_ - _e3627137217_ - _hd3627237220_ - _tl3627337222_ - _e3627437225_ - _hd3627537228_ - _tl3627637230_)) - (___match4161941620_ - _e3625337169_ - _hd3625437172_ - _tl3625537174_ - _e3625637177_ - _hd3625737180_ - _tl3625837182_ - _e3625937185_ - _hd3626037188_ - _tl3626137190_ - _e3626237193_ - _hd3626337196_ - _tl3626437198_ - _e3626537201_ - _hd3626637204_ - _tl3626737206_ - _e3626837209_ - _hd3626937212_ - _tl3627037214_ - _e3627137217_ - _hd3627237220_ - _tl3627337222_ - _e3627437225_ - _hd3627537228_ - _tl3627637230_)))) - (___match4133741338_ - (lambda (_e3620237288_ - _hd3620337291_ - _tl3620437293_ - _e3620537296_ - _hd3620637299_ - _tl3620737301_ - _e3620837304_ - _hd3620937307_ - _tl3621037309_ - _e3621137312_ - _hd3621237315_ - _tl3621337317_ - _e3621437320_ - _hd3621537323_ - _tl3621637325_ - _e3621737328_ - _hd3621837331_ - _tl3621937333_ - _e3622037336_ - _hd3622137339_ - _tl3622237341_ - _e3622337344_ - _hd3622437347_ - _tl3622537349_ - _e3622637352_ - _hd3622737355_ - _tl3622837357_ - _e3622937360_ - _hd3623037363_ - _tl3623137365_ - _e3623237368_ - _hd3623337371_ - _tl3623437373_ - _e3623537376_ - _hd3623637379_ - _tl3623737381_ - _e3623837384_ - _hd3623937387_ - _tl3624037389_ - ___splice4112241123_ - _target3624137392_ - _tl3624337394_) - (letrec ((_loop3624437397_ - (lambda (_hd3624237400_ _args3624837402_) - (if (gx#stx-pair? _hd3624237400_) - (let ((_e3624537405_ - (gx#stx-e _hd3624237400_))) - (let ((_lp-tl3624737410_ + (##car _e3884439803_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3884239808_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3883639792_)) + (___match4397943980_ + _e3881739731_ + _hd3881639734_ + _tl3881539736_ + _e3882039739_ + _hd3881939742_ + _tl3881839744_ + _e3882339747_ + _hd3882239750_ + _tl3882139752_ + _e3882639755_ + _hd3882539758_ + _tl3882439760_ + _e3882939763_ + _hd3882839766_ + _tl3882739768_ + _e3883239771_ + _hd3883139774_ + _tl3883039776_ + _e3883539779_ + _hd3883439782_ + _tl3883339784_ + _e3883839787_ + _hd3883739790_ + _tl3883639792_ + _e3884139795_ + _hd3884039798_ + _tl3883939800_ + _e3884439803_ + _hd3884339806_ + _tl3884239808_) + (___match4405744058_ + _e3881739731_ + _hd3881639734_ + _tl3881539736_ + _e3882039739_ + _hd3881939742_ + _tl3881839744_ + _e3882339747_ + _hd3882239750_ + _tl3882139752_ + _e3882639755_ + _hd3882539758_ + _tl3882439760_ + _e3882939763_ + _hd3882839766_ + _tl3882739768_ + _e3883239771_ + _hd3883139774_ + _tl3883039776_ + _e3883539779_ + _hd3883439782_ + _tl3883339784_ + _e3883839787_ + _hd3883739790_ + _tl3883639792_ + _e3884139795_ + _hd3884039798_ + _tl3883939800_ + _e3884439803_ + _hd3884339806_ + _tl3884239808_)) + (___match4418144182_ + _e3881739731_ + _hd3881639734_ + _tl3881539736_ + _e3882039739_ + _hd3881939742_ + _tl3881839744_ + _e3882339747_ + _hd3882239750_ + _tl3882139752_ + _e3882639755_ + _hd3882539758_ + _tl3882439760_ + _e3882939763_ + _hd3882839766_ + _tl3882739768_ + _e3883239771_ + _hd3883139774_ + _tl3883039776_ + _e3883539779_ + _hd3883439782_ + _tl3883339784_ + _e3883839787_ + _hd3883739790_ + _tl3883639792_)))) + (___match4418144182_ + _e3881739731_ + _hd3881639734_ + _tl3881539736_ + _e3882039739_ + _hd3881939742_ + _tl3881839744_ + _e3882339747_ + _hd3882239750_ + _tl3882139752_ + _e3882639755_ + _hd3882539758_ + _tl3882439760_ + _e3882939763_ + _hd3882839766_ + _tl3882739768_ + _e3883239771_ + _hd3883139774_ + _tl3883039776_ + _e3883539779_ + _hd3883439782_ + _tl3883339784_ + _e3883839787_ + _hd3883739790_ + _tl3883639792_)) + (___match4418144182_ + _e3881739731_ + _hd3881639734_ + _tl3881539736_ + _e3882039739_ + _hd3881939742_ + _tl3881839744_ + _e3882339747_ + _hd3882239750_ + _tl3882139752_ + _e3882639755_ + _hd3882539758_ + _tl3882439760_ + _e3882939763_ + _hd3882839766_ + _tl3882739768_ + _e3883239771_ + _hd3883139774_ + _tl3883039776_ + _e3883539779_ + _hd3883439782_ + _tl3883339784_ + _e3883839787_ + _hd3883739790_ + _tl3883639792_)))) + (___match4389943900_ + (lambda (_e3876639850_ + _hd3876539853_ + _tl3876439855_ + _e3876939858_ + _hd3876839861_ + _tl3876739863_ + _e3877239866_ + _hd3877139869_ + _tl3877039871_ + _e3877539874_ + _hd3877439877_ + _tl3877339879_ + _e3877839882_ + _hd3877739885_ + _tl3877639887_ + _e3878139890_ + _hd3878039893_ + _tl3877939895_ + _e3878439898_ + _hd3878339901_ + _tl3878239903_ + _e3878739906_ + _hd3878639909_ + _tl3878539911_ + _e3879039914_ + _hd3878939917_ + _tl3878839919_ + _e3879339922_ + _hd3879239925_ + _tl3879139927_ + _e3879639930_ + _hd3879539933_ + _tl3879439935_ + _e3879939938_ + _hd3879839941_ + _tl3879739943_ + _e3880239946_ + _hd3880139949_ + _tl3880039951_ + ___splice4368443685_ + _target3880339954_ + _tl3880539956_) + (letrec ((_loop3880639959_ + (lambda (_hd3880439962_ _args3881039964_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3880439962_)) + (let ((_e3880739967_ + (let () + (declare (not safe)) + (gx#stx-e _hd3880439962_)))) + (let ((_lp-tl3880939972_ (let () (declare (not safe)) - (##cdr _e3624537405_))) - (_lp-hd3624637408_ + (##cdr _e3880739967_))) + (_lp-hd3880839970_ (let () (declare (not safe)) - (##car _e3624537405_)))) - (_loop3624437397_ - _lp-tl3624737410_ - (cons _lp-hd3624637408_ - _args3624837402_)))) - (let ((_args3624937413_ - (reverse _args3624837402_))) - (let ((_L37416_ _args3624937413_) - (_L37417_ _hd3623937387_) - (_L37418_ _hd3623037363_) - (_L37419_ _hd3622137339_) - (_L37420_ _hd3621237315_)) - (if (and (gxc#runtime-identifier=? - _L37420_ - 'apply) - (gxc#runtime-identifier=? - _L37419_ - 'call-method) - (gx#free-identifier=? - _L37418_ - _self36135_)) - (___kont4112041121_ - _L37416_ - _L37417_ - _L37418_ - _L37419_ - _L37420_) - (___kont4114041141_)))))))) - (_loop3624437397_ _target3624137392_ '())))) - (___match4129541296_ - (lambda (_e3620237288_ - _hd3620337291_ - _tl3620437293_ - _e3620537296_ - _hd3620637299_ - _tl3620737301_ - _e3620837304_ - _hd3620937307_ - _tl3621037309_ - _e3621137312_ - _hd3621237315_ - _tl3621337317_ - _e3621437320_ - _hd3621537323_ - _tl3621637325_ - _e3621737328_ - _hd3621837331_ - _tl3621937333_ - _e3622037336_ - _hd3622137339_ - _tl3622237341_ - _e3622337344_ - _hd3622437347_ - _tl3622537349_ - _e3622637352_ - _hd3622737355_ - _tl3622837357_) - (if (gx#stx-eq? '%#ref _hd3622737355_) - (if (gx#stx-pair? _tl3622837357_) - (let ((_e3622937360_ (gx#stx-e _tl3622837357_))) - (let ((_tl3623137365_ + (##car _e3880739967_)))) + (let ((__tmp45604 + (let () + (declare (not safe)) + (cons _lp-hd3880839970_ + _args3881039964_)))) + (declare (not safe)) + (_loop3880639959_ + _lp-tl3880939972_ + __tmp45604)))) + (let ((_args3881139975_ + (let () + (declare (not safe)) + (reverse _args3881039964_)))) + (let ((_L39978_ _args3881139975_) + (_L39979_ _hd3880139949_) + (_L39980_ _hd3879239925_) + (_L39981_ _hd3878339901_) + (_L39982_ _hd3877439877_)) + (if (and (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L39982_ + 'apply)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L39981_ + 'call-method)) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L39980_ + _self38697_))) + (___kont4368243683_ + _L39978_ + _L39979_ + _L39980_ + _L39981_ + _L39982_) + (___kont4370243703_)))))))) + (let () + (declare (not safe)) + (_loop3880639959_ _target3880339954_ '()))))) + (___match4385743858_ + (lambda (_e3876639850_ + _hd3876539853_ + _tl3876439855_ + _e3876939858_ + _hd3876839861_ + _tl3876739863_ + _e3877239866_ + _hd3877139869_ + _tl3877039871_ + _e3877539874_ + _hd3877439877_ + _tl3877339879_ + _e3877839882_ + _hd3877739885_ + _tl3877639887_ + _e3878139890_ + _hd3878039893_ + _tl3877939895_ + _e3878439898_ + _hd3878339901_ + _tl3878239903_ + _e3878739906_ + _hd3878639909_ + _tl3878539911_ + _e3879039914_ + _hd3878939917_ + _tl3878839919_) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3878939917_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3878839919_)) + (let ((_e3879339922_ + (let () + (declare (not safe)) + (gx#stx-e _tl3878839919_)))) + (let ((_tl3879139927_ (let () (declare (not safe)) - (##cdr _e3622937360_))) - (_hd3623037363_ + (##cdr _e3879339922_))) + (_hd3879239925_ (let () (declare (not safe)) - (##car _e3622937360_)))) - (if (gx#stx-null? _tl3623137365_) - (if (gx#stx-pair? _tl3622537349_) - (let ((_e3623237368_ - (gx#stx-e _tl3622537349_))) - (let ((_tl3623437373_ + (##car _e3879339922_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3879139927_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3878539911_)) + (let ((_e3879639930_ + (let () + (declare (not safe)) + (gx#stx-e _tl3878539911_)))) + (let ((_tl3879439935_ (let () (declare (not safe)) - (##cdr _e3623237368_))) - (_hd3623337371_ + (##cdr _e3879639930_))) + (_hd3879539933_ (let () (declare (not safe)) - (##car _e3623237368_)))) - (if (gx#stx-pair? _hd3623337371_) - (let ((_e3623537376_ - (gx#stx-e - _hd3623337371_))) - (let ((_tl3623737381_ + (##car _e3879639930_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd3879539933_)) + (let ((_e3879939938_ + (let () + (declare (not safe)) + (gx#stx-e + _hd3879539933_)))) + (let ((_tl3879739943_ (let () (declare (not safe)) - (##cdr _e3623537376_))) - (_hd3623637379_ + (##cdr _e3879939938_))) + (_hd3879839941_ (let () (declare (not safe)) - (##car _e3623537376_)))) - (if (gx#identifier? - _hd3623637379_) - (if (gx#stx-eq? - '%#quote - _hd3623637379_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl3623737381_) - (let ((_e3623837384_ (gx#stx-e _tl3623737381_))) - (let ((_tl3624037389_ + (##car _e3879939938_)))) + (if (let () + (declare + (not safe)) + (gx#identifier? + _hd3879839941_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-eq? '%#quote _hd3879839941_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3879739943_)) + (let ((_e3880239946_ + (let () + (declare (not safe)) + (gx#stx-e _tl3879739943_)))) + (let ((_tl3880039951_ (let () (declare (not safe)) - (##cdr _e3623837384_))) - (_hd3623937387_ + (##cdr _e3880239946_))) + (_hd3880139949_ (let () (declare (not safe)) - (##car _e3623837384_)))) - (if (gx#stx-null? _tl3624037389_) - (if (gx#stx-pair/null? _tl3623437373_) - (let ((___splice4112241123_ - (gx#syntax-split-splice - _tl3623437373_ - '0))) - (let ((_tl3624337394_ + (##car _e3880239946_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3880039951_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3879439935_)) + (let ((___splice4368443685_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3879439935_ + '0)))) + (let ((_tl3880539956_ (let () (declare (not safe)) (##vector-ref - ___splice4112241123_ + ___splice4368443685_ '1))) - (_target3624137392_ + (_target3880339954_ (let () (declare (not safe)) (##vector-ref - ___splice4112241123_ + ___splice4368443685_ '0)))) - (if (gx#stx-null? _tl3624337394_) - (___match4133741338_ - _e3620237288_ - _hd3620337291_ - _tl3620437293_ - _e3620537296_ - _hd3620637299_ - _tl3620737301_ - _e3620837304_ - _hd3620937307_ - _tl3621037309_ - _e3621137312_ - _hd3621237315_ - _tl3621337317_ - _e3621437320_ - _hd3621537323_ - _tl3621637325_ - _e3621737328_ - _hd3621837331_ - _tl3621937333_ - _e3622037336_ - _hd3622137339_ - _tl3622237341_ - _e3622337344_ - _hd3622437347_ - _tl3622537349_ - _e3622637352_ - _hd3622737355_ - _tl3622837357_ - _e3622937360_ - _hd3623037363_ - _tl3623137365_ - _e3623237368_ - _hd3623337371_ - _tl3623437373_ - _e3623537376_ - _hd3623637379_ - _tl3623737381_ - _e3623837384_ - _hd3623937387_ - _tl3624037389_ - ___splice4112241123_ - _target3624137392_ - _tl3624337394_) - (___kont4114041141_)))) - (___kont4114041141_)) - (___kont4114041141_)))) - (___kont4114041141_)) - (___kont4114041141_)) - (___kont4114041141_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4114041141_)))) - (___match4161941620_ - _e3620237288_ - _hd3620337291_ - _tl3620437293_ - _e3620537296_ - _hd3620637299_ - _tl3620737301_ - _e3620837304_ - _hd3620937307_ - _tl3621037309_ - _e3621137312_ - _hd3621237315_ - _tl3621337317_ - _e3621437320_ - _hd3621537323_ - _tl3621637325_ - _e3621737328_ - _hd3621837331_ - _tl3621937333_ - _e3622037336_ - _hd3622137339_ - _tl3622237341_ - _e3622337344_ - _hd3622437347_ - _tl3622537349_)) - (___match4161941620_ - _e3620237288_ - _hd3620337291_ - _tl3620437293_ - _e3620537296_ - _hd3620637299_ - _tl3620737301_ - _e3620837304_ - _hd3620937307_ - _tl3621037309_ - _e3621137312_ - _hd3621237315_ - _tl3621337317_ - _e3621437320_ - _hd3621537323_ - _tl3621637325_ - _e3621737328_ - _hd3621837331_ - _tl3621937333_ - _e3622037336_ - _hd3622137339_ - _tl3622237341_ - _e3622337344_ - _hd3622437347_ - _tl3622537349_)))) - (___match4161941620_ - _e3620237288_ - _hd3620337291_ - _tl3620437293_ - _e3620537296_ - _hd3620637299_ - _tl3620737301_ - _e3620837304_ - _hd3620937307_ - _tl3621037309_ - _e3621137312_ - _hd3621237315_ - _tl3621337317_ - _e3621437320_ - _hd3621537323_ - _tl3621637325_ - _e3621737328_ - _hd3621837331_ - _tl3621937333_ - _e3622037336_ - _hd3622137339_ - _tl3622237341_ - _e3622337344_ - _hd3622437347_ - _tl3622537349_)) - (___match4140541406_ - _e3620237288_ - _hd3620337291_ - _tl3620437293_ - _e3620537296_ - _hd3620637299_ - _tl3620737301_ - _e3620837304_ - _hd3620937307_ - _tl3621037309_ - _e3621137312_ - _hd3621237315_ - _tl3621337317_ - _e3621437320_ - _hd3621537323_ - _tl3621637325_ - _e3621737328_ - _hd3621837331_ - _tl3621937333_ - _e3622037336_ - _hd3622137339_ - _tl3622237341_ - _e3622337344_ - _hd3622437347_ - _tl3622537349_ - _e3622637352_ - _hd3622737355_ - _tl3622837357_)))) - (___match4122741228_ - (lambda (_e3615837477_ - _hd3615937480_ - _tl3616037482_ - _e3616137485_ - _hd3616237488_ - _tl3616337490_ - _e3616437493_ - _hd3616537496_ - _tl3616637498_ - _e3616737501_ - _hd3616837504_ - _tl3616937506_ - _e3617037509_ - _hd3617137512_ - _tl3617237514_ - _e3617337517_ - _hd3617437520_ - _tl3617537522_ - _e3617637525_ - _hd3617737528_ - _tl3617837530_ - _e3617937533_ - _hd3618037536_ - _tl3618137538_ - _e3618237541_ - _hd3618337544_ - _tl3618437546_ - _e3618537549_ - _hd3618637552_ - _tl3618737554_ - ___splice4111841119_ - _target3618837557_ - _tl3619037559_) - (letrec ((_loop3619137562_ - (lambda (_hd3618937565_ _args3619537567_) - (if (gx#stx-pair? _hd3618937565_) - (let ((_e3619237570_ - (gx#stx-e _hd3618937565_))) - (let ((_lp-tl3619437575_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3880539956_)) + (___match4389943900_ + _e3876639850_ + _hd3876539853_ + _tl3876439855_ + _e3876939858_ + _hd3876839861_ + _tl3876739863_ + _e3877239866_ + _hd3877139869_ + _tl3877039871_ + _e3877539874_ + _hd3877439877_ + _tl3877339879_ + _e3877839882_ + _hd3877739885_ + _tl3877639887_ + _e3878139890_ + _hd3878039893_ + _tl3877939895_ + _e3878439898_ + _hd3878339901_ + _tl3878239903_ + _e3878739906_ + _hd3878639909_ + _tl3878539911_ + _e3879039914_ + _hd3878939917_ + _tl3878839919_ + _e3879339922_ + _hd3879239925_ + _tl3879139927_ + _e3879639930_ + _hd3879539933_ + _tl3879439935_ + _e3879939938_ + _hd3879839941_ + _tl3879739943_ + _e3880239946_ + _hd3880139949_ + _tl3880039951_ + ___splice4368443685_ + _target3880339954_ + _tl3880539956_) + (___kont4370243703_)))) + (___kont4370243703_)) + (___kont4370243703_)))) + (___kont4370243703_)) + (___kont4370243703_)) + (___kont4370243703_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4370243703_)))) + (___match4418144182_ + _e3876639850_ + _hd3876539853_ + _tl3876439855_ + _e3876939858_ + _hd3876839861_ + _tl3876739863_ + _e3877239866_ + _hd3877139869_ + _tl3877039871_ + _e3877539874_ + _hd3877439877_ + _tl3877339879_ + _e3877839882_ + _hd3877739885_ + _tl3877639887_ + _e3878139890_ + _hd3878039893_ + _tl3877939895_ + _e3878439898_ + _hd3878339901_ + _tl3878239903_ + _e3878739906_ + _hd3878639909_ + _tl3878539911_)) + (___match4418144182_ + _e3876639850_ + _hd3876539853_ + _tl3876439855_ + _e3876939858_ + _hd3876839861_ + _tl3876739863_ + _e3877239866_ + _hd3877139869_ + _tl3877039871_ + _e3877539874_ + _hd3877439877_ + _tl3877339879_ + _e3877839882_ + _hd3877739885_ + _tl3877639887_ + _e3878139890_ + _hd3878039893_ + _tl3877939895_ + _e3878439898_ + _hd3878339901_ + _tl3878239903_ + _e3878739906_ + _hd3878639909_ + _tl3878539911_)))) + (___match4418144182_ + _e3876639850_ + _hd3876539853_ + _tl3876439855_ + _e3876939858_ + _hd3876839861_ + _tl3876739863_ + _e3877239866_ + _hd3877139869_ + _tl3877039871_ + _e3877539874_ + _hd3877439877_ + _tl3877339879_ + _e3877839882_ + _hd3877739885_ + _tl3877639887_ + _e3878139890_ + _hd3878039893_ + _tl3877939895_ + _e3878439898_ + _hd3878339901_ + _tl3878239903_ + _e3878739906_ + _hd3878639909_ + _tl3878539911_)) + (___match4396743968_ + _e3876639850_ + _hd3876539853_ + _tl3876439855_ + _e3876939858_ + _hd3876839861_ + _tl3876739863_ + _e3877239866_ + _hd3877139869_ + _tl3877039871_ + _e3877539874_ + _hd3877439877_ + _tl3877339879_ + _e3877839882_ + _hd3877739885_ + _tl3877639887_ + _e3878139890_ + _hd3878039893_ + _tl3877939895_ + _e3878439898_ + _hd3878339901_ + _tl3878239903_ + _e3878739906_ + _hd3878639909_ + _tl3878539911_ + _e3879039914_ + _hd3878939917_ + _tl3878839919_)))) + (___match4378943790_ + (lambda (_e3872240039_ + _hd3872140042_ + _tl3872040044_ + _e3872540047_ + _hd3872440050_ + _tl3872340052_ + _e3872840055_ + _hd3872740058_ + _tl3872640060_ + _e3873140063_ + _hd3873040066_ + _tl3872940068_ + _e3873440071_ + _hd3873340074_ + _tl3873240076_ + _e3873740079_ + _hd3873640082_ + _tl3873540084_ + _e3874040087_ + _hd3873940090_ + _tl3873840092_ + _e3874340095_ + _hd3874240098_ + _tl3874140100_ + _e3874640103_ + _hd3874540106_ + _tl3874440108_ + _e3874940111_ + _hd3874840114_ + _tl3874740116_ + ___splice4368043681_ + _target3875040119_ + _tl3875240121_) + (letrec ((_loop3875340124_ + (lambda (_hd3875140127_ _args3875740129_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3875140127_)) + (let ((_e3875440132_ + (let () + (declare (not safe)) + (gx#stx-e _hd3875140127_)))) + (let ((_lp-tl3875640137_ (let () (declare (not safe)) - (##cdr _e3619237570_))) - (_lp-hd3619337573_ + (##cdr _e3875440132_))) + (_lp-hd3875540135_ (let () (declare (not safe)) - (##car _e3619237570_)))) - (_loop3619137562_ - _lp-tl3619437575_ - (cons _lp-hd3619337573_ - _args3619537567_)))) - (let ((_args3619637578_ - (reverse _args3619537567_))) - (let ((_L37581_ _args3619637578_) - (_L37582_ _hd3618637552_) - (_L37583_ _hd3617737528_) - (_L37584_ _hd3616837504_)) - (if (and (gxc#runtime-identifier=? - _L37584_ - 'call-method) - (gx#free-identifier=? - _L37583_ - _self36135_)) - (___kont4111641117_ - _L37581_ - _L37582_ - _L37583_ - _L37584_) - (___match4141541416_ - _e3615837477_ - _hd3615937480_ - _tl3616037482_ - _e3616137485_ - _hd3616237488_ - _tl3616337490_ - _e3616437493_ - _hd3616537496_ - _tl3616637498_ - _e3616737501_ - _hd3616837504_ - _tl3616937506_ - _e3617037509_ - _hd3617137512_ - _tl3617237514_ - _e3617337517_ - _hd3617437520_ - _tl3617537522_ - _e3617637525_ - _hd3617737528_ - _tl3617837530_ - _e3617937533_ - _hd3618037536_ - _tl3618137538_ - _e3618237541_ - _hd3618337544_ - _tl3618437546_ - _e3618537549_ - _hd3618637552_ - _tl3618737554_)))))))) - (_loop3619137562_ _target3618837557_ '()))))) - (if (gx#stx-pair? ___stx4111441115_) - (let ((_e3615837477_ (gx#stx-e ___stx4111441115_))) - (let ((_tl3616037482_ - (let () (declare (not safe)) (##cdr _e3615837477_))) - (_hd3615937480_ + (##car _e3875440132_)))) + (let ((__tmp45605 + (let () + (declare (not safe)) + (cons _lp-hd3875540135_ + _args3875740129_)))) + (declare (not safe)) + (_loop3875340124_ + _lp-tl3875640137_ + __tmp45605)))) + (let ((_args3875840140_ + (let () + (declare (not safe)) + (reverse _args3875740129_)))) + (let ((_L40143_ _args3875840140_) + (_L40144_ _hd3874840114_) + (_L40145_ _hd3873940090_) + (_L40146_ _hd3873040066_)) + (if (and (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L40146_ + 'call-method)) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L40145_ + _self38697_))) + (___kont4367843679_ + _L40143_ + _L40144_ + _L40145_ + _L40146_) + (___match4397743978_ + _e3872240039_ + _hd3872140042_ + _tl3872040044_ + _e3872540047_ + _hd3872440050_ + _tl3872340052_ + _e3872840055_ + _hd3872740058_ + _tl3872640060_ + _e3873140063_ + _hd3873040066_ + _tl3872940068_ + _e3873440071_ + _hd3873340074_ + _tl3873240076_ + _e3873740079_ + _hd3873640082_ + _tl3873540084_ + _e3874040087_ + _hd3873940090_ + _tl3873840092_ + _e3874340095_ + _hd3874240098_ + _tl3874140100_ + _e3874640103_ + _hd3874540106_ + _tl3874440108_ + _e3874940111_ + _hd3874840114_ + _tl3874740116_)))))))) + (let () + (declare (not safe)) + (_loop3875340124_ _target3875040119_ '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx4367643677_)) + (let ((_e3872240039_ + (let () + (declare (not safe)) + (gx#stx-e ___stx4367643677_)))) + (let ((_tl3872040044_ + (let () (declare (not safe)) (##cdr _e3872240039_))) + (_hd3872140042_ (let () (declare (not safe)) - (##car _e3615837477_)))) - (if (gx#stx-pair? _tl3616037482_) - (let ((_e3616137485_ (gx#stx-e _tl3616037482_))) - (let ((_tl3616337490_ + (##car _e3872240039_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3872040044_)) + (let ((_e3872540047_ + (let () + (declare (not safe)) + (gx#stx-e _tl3872040044_)))) + (let ((_tl3872340052_ (let () (declare (not safe)) - (##cdr _e3616137485_))) - (_hd3616237488_ + (##cdr _e3872540047_))) + (_hd3872440050_ (let () (declare (not safe)) - (##car _e3616137485_)))) - (if (gx#stx-pair? _hd3616237488_) - (let ((_e3616437493_ - (gx#stx-e _hd3616237488_))) - (let ((_tl3616637498_ + (##car _e3872540047_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3872440050_)) + (let ((_e3872840055_ + (let () + (declare (not safe)) + (gx#stx-e _hd3872440050_)))) + (let ((_tl3872640060_ (let () (declare (not safe)) - (##cdr _e3616437493_))) - (_hd3616537496_ + (##cdr _e3872840055_))) + (_hd3872740058_ (let () (declare (not safe)) - (##car _e3616437493_)))) - (if (gx#identifier? _hd3616537496_) - (if (gx#stx-eq? - '%#ref - _hd3616537496_) - (if (gx#stx-pair? _tl3616637498_) - (let ((_e3616737501_ - (gx#stx-e - _tl3616637498_))) - (let ((_tl3616937506_ + (##car _e3872840055_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3872740058_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd3872740058_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3872640060_)) + (let ((_e3873140063_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3872640060_)))) + (let ((_tl3872940068_ (let () (declare (not safe)) - (##cdr _e3616737501_))) - (_hd3616837504_ + (##cdr _e3873140063_))) + (_hd3873040066_ (let () (declare (not safe)) - (##car _e3616737501_)))) - (if (gx#stx-null? - _tl3616937506_) - (if (gx#stx-pair? - _tl3616337490_) - (let ((_e3617037509_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl3616337490_))) - (let ((_tl3617237514_ + (##car _e3873140063_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl3872940068_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl3872340052_)) + (let ((_e3873440071_ + (let () + (declare (not safe)) + (gx#stx-e _tl3872340052_)))) + (let ((_tl3873240076_ (let () (declare (not safe)) - (##cdr _e3617037509_))) - (_hd3617137512_ + (##cdr _e3873440071_))) + (_hd3873340074_ (let () (declare (not safe)) - (##car _e3617037509_)))) - (if (gx#stx-pair? _hd3617137512_) - (let ((_e3617337517_ (gx#stx-e _hd3617137512_))) - (let ((_tl3617537522_ + (##car _e3873440071_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3873340074_)) + (let ((_e3873740079_ + (let () + (declare (not safe)) + (gx#stx-e _hd3873340074_)))) + (let ((_tl3873540084_ (let () (declare (not safe)) - (##cdr _e3617337517_))) - (_hd3617437520_ + (##cdr _e3873740079_))) + (_hd3873640082_ (let () (declare (not safe)) - (##car _e3617337517_)))) - (if (gx#identifier? _hd3617437520_) - (if (gx#stx-eq? '%#ref _hd3617437520_) - (if (gx#stx-pair? _tl3617537522_) - (let ((_e3617637525_ - (gx#stx-e - _tl3617537522_))) - (let ((_tl3617837530_ + (##car _e3873740079_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3873640082_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3873640082_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3873540084_)) + (let ((_e3874040087_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3873540084_)))) + (let ((_tl3873840092_ (let () (declare (not safe)) - (##cdr _e3617637525_))) - (_hd3617737528_ + (##cdr _e3874040087_))) + (_hd3873940090_ (let () (declare (not safe)) - (##car _e3617637525_)))) - (if (gx#stx-null? - _tl3617837530_) - (if (gx#stx-pair? - _tl3617237514_) - (let ((_e3617937533_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl3617237514_))) - (let ((_tl3618137538_ - (let () (declare (not safe)) (##cdr _e3617937533_))) - (_hd3618037536_ + (##car _e3874040087_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3873840092_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl3873240076_)) + (let ((_e3874340095_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl3873240076_)))) + (let ((_tl3874140100_ + (let () (declare (not safe)) (##cdr _e3874340095_))) + (_hd3874240098_ (let () (declare (not safe)) - (##car _e3617937533_)))) - (if (gx#stx-pair? _hd3618037536_) - (let ((_e3618237541_ (gx#stx-e _hd3618037536_))) - (let ((_tl3618437546_ + (##car _e3874340095_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3874240098_)) + (let ((_e3874640103_ + (let () + (declare (not safe)) + (gx#stx-e _hd3874240098_)))) + (let ((_tl3874440108_ (let () (declare (not safe)) - (##cdr _e3618237541_))) - (_hd3618337544_ + (##cdr _e3874640103_))) + (_hd3874540106_ (let () (declare (not safe)) - (##car _e3618237541_)))) - (if (gx#identifier? _hd3618337544_) - (if (gx#stx-eq? '%#quote _hd3618337544_) - (if (gx#stx-pair? _tl3618437546_) - (let ((_e3618537549_ - (gx#stx-e _tl3618437546_))) - (let ((_tl3618737554_ + (##car _e3874640103_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3874540106_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd3874540106_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3874440108_)) + (let ((_e3874940111_ + (let () + (declare (not safe)) + (gx#stx-e _tl3874440108_)))) + (let ((_tl3874740116_ (let () (declare (not safe)) - (##cdr _e3618537549_))) - (_hd3618637552_ + (##cdr _e3874940111_))) + (_hd3874840114_ (let () (declare (not safe)) - (##car _e3618537549_)))) - (if (gx#stx-null? _tl3618737554_) - (if (gx#stx-pair/null? - _tl3618137538_) - (let ((___splice4111841119_ - (gx#syntax-split-splice - _tl3618137538_ - '0))) - (let ((_tl3619037559_ - (let () + (##car _e3874940111_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3874740116_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3874140100_)) + (let ((___splice4368043681_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#syntax-split-splice _tl3874140100_ '0)))) + (let ((_tl3875240121_ + (let () (declare (not safe)) - (##vector-ref ___splice4111841119_ '1))) - (_target3618837557_ + (##vector-ref ___splice4368043681_ '1))) + (_target3875040119_ (let () (declare (not safe)) - (##vector-ref ___splice4111841119_ '0)))) - (if (gx#stx-null? _tl3619037559_) - (___match4122741228_ - _e3615837477_ - _hd3615937480_ - _tl3616037482_ - _e3616137485_ - _hd3616237488_ - _tl3616337490_ - _e3616437493_ - _hd3616537496_ - _tl3616637498_ - _e3616737501_ - _hd3616837504_ - _tl3616937506_ - _e3617037509_ - _hd3617137512_ - _tl3617237514_ - _e3617337517_ - _hd3617437520_ - _tl3617537522_ - _e3617637525_ - _hd3617737528_ - _tl3617837530_ - _e3617937533_ - _hd3618037536_ - _tl3618137538_ - _e3618237541_ - _hd3618337544_ - _tl3618437546_ - _e3618537549_ - _hd3618637552_ - _tl3618737554_ - ___splice4111841119_ - _target3618837557_ - _tl3619037559_) - (___match4141541416_ - _e3615837477_ - _hd3615937480_ - _tl3616037482_ - _e3616137485_ - _hd3616237488_ - _tl3616337490_ - _e3616437493_ - _hd3616537496_ - _tl3616637498_ - _e3616737501_ - _hd3616837504_ - _tl3616937506_ - _e3617037509_ - _hd3617137512_ - _tl3617237514_ - _e3617337517_ - _hd3617437520_ - _tl3617537522_ - _e3617637525_ - _hd3617737528_ - _tl3617837530_ - _e3617937533_ - _hd3618037536_ - _tl3618137538_ - _e3618237541_ - _hd3618337544_ - _tl3618437546_ - _e3618537549_ - _hd3618637552_ - _tl3618737554_)))) - (___match4141541416_ - _e3615837477_ - _hd3615937480_ - _tl3616037482_ - _e3616137485_ - _hd3616237488_ - _tl3616337490_ - _e3616437493_ - _hd3616537496_ - _tl3616637498_ - _e3616737501_ - _hd3616837504_ - _tl3616937506_ - _e3617037509_ - _hd3617137512_ - _tl3617237514_ - _e3617337517_ - _hd3617437520_ - _tl3617537522_ - _e3617637525_ - _hd3617737528_ - _tl3617837530_ - _e3617937533_ - _hd3618037536_ - _tl3618137538_ - _e3618237541_ - _hd3618337544_ - _tl3618437546_ - _e3618537549_ - _hd3618637552_ - _tl3618737554_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4161941620_ - _e3615837477_ - _hd3615937480_ - _tl3616037482_ - _e3616137485_ - _hd3616237488_ - _tl3616337490_ - _e3616437493_ - _hd3616537496_ - _tl3616637498_ - _e3616737501_ - _hd3616837504_ - _tl3616937506_ - _e3617037509_ - _hd3617137512_ - _tl3617237514_ - _e3617337517_ - _hd3617437520_ - _tl3617537522_ - _e3617637525_ - _hd3617737528_ - _tl3617837530_ - _e3617937533_ - _hd3618037536_ - _tl3618137538_)))) - (___match4161941620_ - _e3615837477_ - _hd3615937480_ - _tl3616037482_ - _e3616137485_ - _hd3616237488_ - _tl3616337490_ - _e3616437493_ - _hd3616537496_ - _tl3616637498_ - _e3616737501_ - _hd3616837504_ - _tl3616937506_ - _e3617037509_ - _hd3617137512_ - _tl3617237514_ - _e3617337517_ - _hd3617437520_ - _tl3617537522_ - _e3617637525_ - _hd3617737528_ - _tl3617837530_ - _e3617937533_ - _hd3618037536_ - _tl3618137538_)) - (___match4129541296_ - _e3615837477_ - _hd3615937480_ - _tl3616037482_ - _e3616137485_ - _hd3616237488_ - _tl3616337490_ - _e3616437493_ - _hd3616537496_ - _tl3616637498_ - _e3616737501_ - _hd3616837504_ - _tl3616937506_ - _e3617037509_ - _hd3617137512_ - _tl3617237514_ - _e3617337517_ - _hd3617437520_ - _tl3617537522_ - _e3617637525_ - _hd3617737528_ - _tl3617837530_ - _e3617937533_ - _hd3618037536_ - _tl3618137538_ - _e3618237541_ - _hd3618337544_ - _tl3618437546_)) - (___match4161941620_ - _e3615837477_ - _hd3615937480_ - _tl3616037482_ - _e3616137485_ - _hd3616237488_ - _tl3616337490_ - _e3616437493_ - _hd3616537496_ - _tl3616637498_ - _e3616737501_ - _hd3616837504_ - _tl3616937506_ - _e3617037509_ - _hd3617137512_ - _tl3617237514_ - _e3617337517_ - _hd3617437520_ - _tl3617537522_ - _e3617637525_ - _hd3617737528_ - _tl3617837530_ - _e3617937533_ - _hd3618037536_ - _tl3618137538_)))) - (___match4161941620_ - _e3615837477_ - _hd3615937480_ - _tl3616037482_ - _e3616137485_ - _hd3616237488_ - _tl3616337490_ - _e3616437493_ - _hd3616537496_ - _tl3616637498_ - _e3616737501_ - _hd3616837504_ - _tl3616937506_ - _e3617037509_ - _hd3617137512_ - _tl3617237514_ - _e3617337517_ - _hd3617437520_ - _tl3617537522_ - _e3617637525_ - _hd3617737528_ - _tl3617837530_ - _e3617937533_ - _hd3618037536_ - _tl3618137538_)))) - (___match4155741558_ - _e3615837477_ - _hd3615937480_ - _tl3616037482_ - _e3616137485_ - _hd3616237488_ - _tl3616337490_ - _e3616437493_ - _hd3616537496_ - _tl3616637498_ - _e3616737501_ - _hd3616837504_ - _tl3616937506_ - _e3617037509_ - _hd3617137512_ - _tl3617237514_ - _e3617337517_ - _hd3617437520_ - _tl3617537522_ - _e3617637525_ - _hd3617737528_ - _tl3617837530_)) - (___kont4114041141_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4114041141_)) - (___kont4114041141_)) - (___kont4114041141_)))) - (___kont4114041141_)))) - (___kont4114041141_)) - (___kont4114041141_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4114041141_)) - (___kont4114041141_)) - (___kont4114041141_)))) - (___kont4114041141_)))) - (___kont4114041141_)))) - (___kont4114041141_))))))) + (##vector-ref ___splice4368043681_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3875240121_)) + (___match4378943790_ + _e3872240039_ + _hd3872140042_ + _tl3872040044_ + _e3872540047_ + _hd3872440050_ + _tl3872340052_ + _e3872840055_ + _hd3872740058_ + _tl3872640060_ + _e3873140063_ + _hd3873040066_ + _tl3872940068_ + _e3873440071_ + _hd3873340074_ + _tl3873240076_ + _e3873740079_ + _hd3873640082_ + _tl3873540084_ + _e3874040087_ + _hd3873940090_ + _tl3873840092_ + _e3874340095_ + _hd3874240098_ + _tl3874140100_ + _e3874640103_ + _hd3874540106_ + _tl3874440108_ + _e3874940111_ + _hd3874840114_ + _tl3874740116_ + ___splice4368043681_ + _target3875040119_ + _tl3875240121_) + (___match4397743978_ + _e3872240039_ + _hd3872140042_ + _tl3872040044_ + _e3872540047_ + _hd3872440050_ + _tl3872340052_ + _e3872840055_ + _hd3872740058_ + _tl3872640060_ + _e3873140063_ + _hd3873040066_ + _tl3872940068_ + _e3873440071_ + _hd3873340074_ + _tl3873240076_ + _e3873740079_ + _hd3873640082_ + _tl3873540084_ + _e3874040087_ + _hd3873940090_ + _tl3873840092_ + _e3874340095_ + _hd3874240098_ + _tl3874140100_ + _e3874640103_ + _hd3874540106_ + _tl3874440108_ + _e3874940111_ + _hd3874840114_ + _tl3874740116_)))) + (___match4397743978_ + _e3872240039_ + _hd3872140042_ + _tl3872040044_ + _e3872540047_ + _hd3872440050_ + _tl3872340052_ + _e3872840055_ + _hd3872740058_ + _tl3872640060_ + _e3873140063_ + _hd3873040066_ + _tl3872940068_ + _e3873440071_ + _hd3873340074_ + _tl3873240076_ + _e3873740079_ + _hd3873640082_ + _tl3873540084_ + _e3874040087_ + _hd3873940090_ + _tl3873840092_ + _e3874340095_ + _hd3874240098_ + _tl3874140100_ + _e3874640103_ + _hd3874540106_ + _tl3874440108_ + _e3874940111_ + _hd3874840114_ + _tl3874740116_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match4418144182_ + _e3872240039_ + _hd3872140042_ + _tl3872040044_ + _e3872540047_ + _hd3872440050_ + _tl3872340052_ + _e3872840055_ + _hd3872740058_ + _tl3872640060_ + _e3873140063_ + _hd3873040066_ + _tl3872940068_ + _e3873440071_ + _hd3873340074_ + _tl3873240076_ + _e3873740079_ + _hd3873640082_ + _tl3873540084_ + _e3874040087_ + _hd3873940090_ + _tl3873840092_ + _e3874340095_ + _hd3874240098_ + _tl3874140100_)))) + (___match4418144182_ + _e3872240039_ + _hd3872140042_ + _tl3872040044_ + _e3872540047_ + _hd3872440050_ + _tl3872340052_ + _e3872840055_ + _hd3872740058_ + _tl3872640060_ + _e3873140063_ + _hd3873040066_ + _tl3872940068_ + _e3873440071_ + _hd3873340074_ + _tl3873240076_ + _e3873740079_ + _hd3873640082_ + _tl3873540084_ + _e3874040087_ + _hd3873940090_ + _tl3873840092_ + _e3874340095_ + _hd3874240098_ + _tl3874140100_)) + (___match4385743858_ + _e3872240039_ + _hd3872140042_ + _tl3872040044_ + _e3872540047_ + _hd3872440050_ + _tl3872340052_ + _e3872840055_ + _hd3872740058_ + _tl3872640060_ + _e3873140063_ + _hd3873040066_ + _tl3872940068_ + _e3873440071_ + _hd3873340074_ + _tl3873240076_ + _e3873740079_ + _hd3873640082_ + _tl3873540084_ + _e3874040087_ + _hd3873940090_ + _tl3873840092_ + _e3874340095_ + _hd3874240098_ + _tl3874140100_ + _e3874640103_ + _hd3874540106_ + _tl3874440108_)) + (___match4418144182_ + _e3872240039_ + _hd3872140042_ + _tl3872040044_ + _e3872540047_ + _hd3872440050_ + _tl3872340052_ + _e3872840055_ + _hd3872740058_ + _tl3872640060_ + _e3873140063_ + _hd3873040066_ + _tl3872940068_ + _e3873440071_ + _hd3873340074_ + _tl3873240076_ + _e3873740079_ + _hd3873640082_ + _tl3873540084_ + _e3874040087_ + _hd3873940090_ + _tl3873840092_ + _e3874340095_ + _hd3874240098_ + _tl3874140100_)))) + (___match4418144182_ + _e3872240039_ + _hd3872140042_ + _tl3872040044_ + _e3872540047_ + _hd3872440050_ + _tl3872340052_ + _e3872840055_ + _hd3872740058_ + _tl3872640060_ + _e3873140063_ + _hd3873040066_ + _tl3872940068_ + _e3873440071_ + _hd3873340074_ + _tl3873240076_ + _e3873740079_ + _hd3873640082_ + _tl3873540084_ + _e3874040087_ + _hd3873940090_ + _tl3873840092_ + _e3874340095_ + _hd3874240098_ + _tl3874140100_)))) + (___match4411944120_ + _e3872240039_ + _hd3872140042_ + _tl3872040044_ + _e3872540047_ + _hd3872440050_ + _tl3872340052_ + _e3872840055_ + _hd3872740058_ + _tl3872640060_ + _e3873140063_ + _hd3873040066_ + _tl3872940068_ + _e3873440071_ + _hd3873340074_ + _tl3873240076_ + _e3873740079_ + _hd3873640082_ + _tl3873540084_ + _e3874040087_ + _hd3873940090_ + _tl3873840092_)) + (___kont4370243703_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4370243703_)) + (___kont4370243703_)) + (___kont4370243703_)))) + (___kont4370243703_)))) + (___kont4370243703_)) + (___kont4370243703_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4370243703_)) + (___kont4370243703_)) + (___kont4370243703_)))) + (___kont4370243703_)))) + (___kont4370243703_)))) + (___kont4370243703_))))))) (define gxc#subst-object-refs-call% - (lambda (_stx34561_ - _self34562_ - _$t34563_ - _methods34564_ - _slots34565_ - _class-check34566_ - _struct-check34567_ - _struct-assert34568_) - (letrec ((_force-e34570_ - (lambda (_what36132_) - (cons '%#call - (cons (cons '%#ref (cons 'force '())) - (cons (cons '%#ref (cons _what36132_ '())) - '())))))) - (let* ((___stx4185441855_ _stx34561_) - (_g3458234900_ + (lambda (_stx37123_ + _self37124_ + _$t37125_ + _methods37126_ + _slots37127_ + _class-check37128_ + _struct-check37129_ + _struct-assert37130_) + (letrec ((_force-e37132_ + (lambda (_what38694_) + (let ((__tmp45606 + (let ((__tmp45610 + (let ((__tmp45611 + (let () + (declare (not safe)) + (cons 'force '())))) + (declare (not safe)) + (cons '%#ref __tmp45611))) + (__tmp45607 + (let ((__tmp45608 + (let ((__tmp45609 + (let () + (declare (not safe)) + (cons _what38694_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45609)))) + (declare (not safe)) + (cons __tmp45608 '())))) + (declare (not safe)) + (cons __tmp45610 __tmp45607)))) + (declare (not safe)) + (cons '%#call __tmp45606))))) + (let* ((___stx4441644417_ _stx37123_) + (_g3714437462_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx4185441855_)))) - (let ((___kont4185641857_ - (lambda (_L36078_ _L36079_ _L36080_ _L36081_) - (let ((_$method36126_ - (table-ref _methods34564_ (gx#stx-e _L36079_))) - (_args36127_ - (map (lambda (_g3611436116_) - (gxc#compile-e - _g3611436116_ - _self34562_ - _$t34563_ - _methods34564_ - _slots34565_ - _class-check34566_ - _struct-check34567_ - _struct-assert34568_)) - (foldr1 (lambda (_g3611836121_ _g3611936123_) - (cons _g3611836121_ _g3611936123_)) - '() - _L36078_)))) - (gxc#xform-wrap-source - (cons '%#call - (cons (_force-e34570_ _$method36126_) - (cons (cons '%#ref (cons _self34562_ '())) - _args36127_))) - _stx34561_)))) - (___kont4186041861_ - (lambda (_L35910_ _L35911_ _L35912_ _L35913_ _L35914_) - (let ((_$method35966_ - (table-ref _methods34564_ (gx#stx-e _L35911_))) - (_args35967_ - (map (lambda (_g3595435956_) - (gxc#compile-e - _g3595435956_ - _self34562_ - _$t34563_ - _methods34564_ - _slots34565_ - _class-check34566_ - _struct-check34567_ - _struct-assert34568_)) - (foldr1 (lambda (_g3595835961_ _g3595935963_) - (cons _g3595835961_ _g3595935963_)) - '() - _L35910_)))) - (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref (cons 'apply '())) - (cons (_force-e34570_ _$method35966_) - (cons (cons '%#ref - (cons _self34562_ '())) - _args35967_)))) - _stx34561_)))) - (___kont4186441865_ - (lambda (_L35741_ _L35742_ _L35743_) - (let ((_$field35775_ - (table-ref _slots34565_ (gx#stx-e _L35741_)))) - (gxc#xform-wrap-source - (cons '%#struct-unchecked-ref - (cons (cons '%#ref (cons _$t34563_ '())) - (cons (cons '%#ref - (cons _$field35775_ '())) - (cons (cons '%#ref - (cons _self34562_ '())) - '())))) - _stx34561_)))) - (___kont4186641867_ - (lambda (_L35615_ _L35616_ _L35617_ _L35618_) - (let ((_$field35653_ - (table-ref _slots34565_ (gx#stx-e _L35616_))) - (_expr35654_ - (gxc#compile-e - _L35615_ - _self34562_ - _$t34563_ - _methods34564_ - _slots34565_ - _class-check34566_ - _struct-check34567_ - _struct-assert34568_))) - (gxc#xform-wrap-source - (cons '%#struct-unchecked-set! - (cons (cons '%#ref (cons _$t34563_ '())) - (cons (cons '%#ref - (cons _$field35653_ '())) - (cons (cons '%#ref - (cons _self34562_ '())) - (cons _expr35654_ '()))))) - _stx34561_)))) - (___kont4186841869_ - (lambda (_L35494_ _L35495_) - (let* ((_slot35517_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx4441644417_))))) + (let ((___kont4441844419_ + (lambda (_L38640_ _L38641_ _L38642_ _L38643_) + (let ((_$method38688_ + (let ((__tmp45612 + (let () + (declare (not safe)) + (gx#stx-e _L38641_)))) + (declare (not safe)) + (table-ref _methods37126_ __tmp45612))) + (_args38689_ + (let ((__tmp45615 + (lambda (_g3867638678_) + (let () + (declare (not safe)) + (gxc#compile-e + _g3867638678_ + _self37124_ + _$t37125_ + _methods37126_ + _slots37127_ + _class-check37128_ + _struct-check37129_ + _struct-assert37130_)))) + (__tmp45613 + (let ((__tmp45614 + (lambda (_g3868038683_ _g3868138685_) + (let () + (declare (not safe)) + (cons _g3868038683_ + _g3868138685_))))) + (declare (not safe)) + (foldr1 __tmp45614 '() _L38640_)))) + (declare (not safe)) + (map __tmp45615 __tmp45613)))) + (let ((__tmp45616 + (let ((__tmp45617 + (let ((__tmp45621 + (let () + (declare (not safe)) + (_force-e37132_ _$method38688_))) + (__tmp45618 + (let ((__tmp45619 + (let ((__tmp45620 + (let () + (declare + (not safe)) + (cons _self37124_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref + __tmp45620)))) + (declare (not safe)) + (cons __tmp45619 _args38689_)))) + (declare (not safe)) + (cons __tmp45621 __tmp45618)))) + (declare (not safe)) + (cons '%#call __tmp45617)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45616 _stx37123_))))) + (___kont4442244423_ + (lambda (_L38472_ _L38473_ _L38474_ _L38475_ _L38476_) + (let ((_$method38528_ + (let ((__tmp45622 + (let () + (declare (not safe)) + (gx#stx-e _L38473_)))) + (declare (not safe)) + (table-ref _methods37126_ __tmp45622))) + (_args38529_ + (let ((__tmp45625 + (lambda (_g3851638518_) + (let () + (declare (not safe)) + (gxc#compile-e + _g3851638518_ + _self37124_ + _$t37125_ + _methods37126_ + _slots37127_ + _class-check37128_ + _struct-check37129_ + _struct-assert37130_)))) + (__tmp45623 + (let ((__tmp45624 + (lambda (_g3852038523_ _g3852138525_) + (let () + (declare (not safe)) + (cons _g3852038523_ + _g3852138525_))))) + (declare (not safe)) + (foldr1 __tmp45624 '() _L38472_)))) + (declare (not safe)) + (map __tmp45625 __tmp45623)))) + (let ((__tmp45626 + (let ((__tmp45627 + (let ((__tmp45633 + (let ((__tmp45634 + (let () + (declare (not safe)) + (cons 'apply '())))) + (declare (not safe)) + (cons '%#ref __tmp45634))) + (__tmp45628 + (let ((__tmp45632 + (let () + (declare (not safe)) + (_force-e37132_ + _$method38528_))) + (__tmp45629 + (let ((__tmp45630 + (let ((__tmp45631 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _self37124_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45631)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45630 + _args38529_)))) + (declare (not safe)) + (cons __tmp45632 __tmp45629)))) + (declare (not safe)) + (cons __tmp45633 __tmp45628)))) + (declare (not safe)) + (cons '%#call __tmp45627)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45626 _stx37123_))))) + (___kont4442644427_ + (lambda (_L38303_ _L38304_ _L38305_) + (let* ((_$field38337_ + (let ((__tmp45635 + (let () + (declare (not safe)) + (gx#stx-e _L38303_)))) + (declare (not safe)) + (table-ref _slots37127_ __tmp45635))) + (__tmp45636 + (let ((__tmp45637 + (let ((__tmp45644 + (let ((__tmp45645 + (let () + (declare (not safe)) + (cons _$t37125_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45645))) + (__tmp45638 + (let ((__tmp45642 + (let ((__tmp45643 + (let () + (declare (not safe)) + (cons _$field38337_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref __tmp45643))) + (__tmp45639 + (let ((__tmp45640 + (let ((__tmp45641 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _self37124_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45641)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45640 '())))) + (declare (not safe)) + (cons __tmp45642 __tmp45639)))) + (declare (not safe)) + (cons __tmp45644 __tmp45638)))) + (declare (not safe)) + (cons '%#struct-unchecked-ref __tmp45637)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45636 _stx37123_)))) + (___kont4442844429_ + (lambda (_L38177_ _L38178_ _L38179_ _L38180_) + (let ((_$field38215_ + (let ((__tmp45646 + (let () + (declare (not safe)) + (gx#stx-e _L38178_)))) + (declare (not safe)) + (table-ref _slots37127_ __tmp45646))) + (_expr38216_ + (let () + (declare (not safe)) + (gxc#compile-e + _L38177_ + _self37124_ + _$t37125_ + _methods37126_ + _slots37127_ + _class-check37128_ + _struct-check37129_ + _struct-assert37130_)))) + (let ((__tmp45647 + (let ((__tmp45648 + (let ((__tmp45656 + (let ((__tmp45657 + (let () + (declare (not safe)) + (cons _$t37125_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45657))) + (__tmp45649 + (let ((__tmp45654 + (let ((__tmp45655 + (let () + (declare + (not safe)) + (cons _$field38215_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref __tmp45655))) + (__tmp45650 + (let ((__tmp45652 + (let ((__tmp45653 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _self37124_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45653))) + (__tmp45651 + (let () (declare (not safe)) (cons _expr38216_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45652 + __tmp45651)))) + (declare (not safe)) + (cons __tmp45654 __tmp45650)))) + (declare (not safe)) + (cons __tmp45656 __tmp45649)))) + (declare (not safe)) + (cons '%#struct-unchecked-set! __tmp45648)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45647 _stx37123_))))) + (___kont4443044431_ + (lambda (_L38056_ _L38057_) + (let* ((_slot38079_ (##structure-ref - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L35495_)) + (let ((__tmp45658 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L38057_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp45658)) '2 gxc#!class-getf::t '#f)) - (_$field35519_ - (table-ref _slots34565_ _slot35517_))) - (gxc#xform-wrap-source - (cons '%#struct-unchecked-ref - (cons (cons '%#ref (cons _$t34563_ '())) - (cons (cons '%#ref - (cons _$field35519_ '())) - (cons (cons '%#ref - (cons _self34562_ '())) - '())))) - _stx34561_)))) - (___kont4187041871_ - (lambda (_L35399_ _L35400_ _L35401_) - (let* ((_slot35426_ + (_$field38081_ + (let () + (declare (not safe)) + (table-ref _slots37127_ _slot38079_)))) + (let ((__tmp45659 + (let ((__tmp45660 + (let ((__tmp45667 + (let ((__tmp45668 + (let () + (declare (not safe)) + (cons _$t37125_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45668))) + (__tmp45661 + (let ((__tmp45665 + (let ((__tmp45666 + (let () + (declare + (not safe)) + (cons _$field38081_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref __tmp45666))) + (__tmp45662 + (let ((__tmp45663 + (let ((__tmp45664 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _self37124_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45664)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45663 '())))) + (declare (not safe)) + (cons __tmp45665 __tmp45662)))) + (declare (not safe)) + (cons __tmp45667 __tmp45661)))) + (declare (not safe)) + (cons '%#struct-unchecked-ref __tmp45660)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45659 _stx37123_))))) + (___kont4443244433_ + (lambda (_L37961_ _L37962_ _L37963_) + (let* ((_slot37988_ (##structure-ref - (gxc#optimizer-resolve-type - (gxc#identifier-symbol - (gx#datum->syntax__0 '#f 'getf))) + (let ((__tmp45669 + (let ((__tmp45670 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'getf)))) + (declare (not safe)) + (gxc#identifier-symbol __tmp45670)))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp45669)) '2 gxc#!class-setf::t '#f)) - (_$field35428_ - (table-ref _slots34565_ _slot35426_)) - (_expr35430_ - (gxc#compile-e - _L35399_ - _self34562_ - _$t34563_ - _methods34564_ - _slots34565_ - _class-check34566_ - _struct-check34567_ - _struct-assert34568_))) - (gxc#xform-wrap-source - (cons '%#struct-unchecked-set! - (cons (cons '%#ref (cons _$t34563_ '())) - (cons (cons '%#ref - (cons _$field35428_ '())) - (cons (cons '%#ref - (cons _self34562_ '())) - (cons _expr35430_ '()))))) - _stx34561_)))) - (___kont4187241873_ - (lambda (_L35307_ _L35308_) - (cons '%#ref - (cons (table-ref - _class-check34566_ - (##structure-ref - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L35308_)) - '1 - gxc#!type::t - '#f)) - '())))) - (___kont4187441875_ - (lambda (_L35216_ _L35217_) - (let ((_t35239_ + (_$field37990_ + (let () + (declare (not safe)) + (table-ref _slots37127_ _slot37988_))) + (_expr37992_ + (let () + (declare (not safe)) + (gxc#compile-e + _L37961_ + _self37124_ + _$t37125_ + _methods37126_ + _slots37127_ + _class-check37128_ + _struct-check37129_ + _struct-assert37130_)))) + (let ((__tmp45671 + (let ((__tmp45672 + (let ((__tmp45680 + (let ((__tmp45681 + (let () + (declare (not safe)) + (cons _$t37125_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45681))) + (__tmp45673 + (let ((__tmp45678 + (let ((__tmp45679 + (let () + (declare + (not safe)) + (cons _$field37990_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref __tmp45679))) + (__tmp45674 + (let ((__tmp45676 + (let ((__tmp45677 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _self37124_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45677))) + (__tmp45675 + (let () (declare (not safe)) (cons _expr37992_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45676 + __tmp45675)))) + (declare (not safe)) + (cons __tmp45678 __tmp45674)))) + (declare (not safe)) + (cons __tmp45680 __tmp45673)))) + (declare (not safe)) + (cons '%#struct-unchecked-set! __tmp45672)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp45671 _stx37123_))))) + (___kont4443444435_ + (lambda (_L37869_ _L37870_) + (let ((__tmp45682 + (let ((__tmp45683 + (let ((__tmp45684 + (##structure-ref + (let ((__tmp45685 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L37870_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45685)) + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (table-ref + _class-check37128_ + __tmp45684)))) + (declare (not safe)) + (cons __tmp45683 '())))) + (declare (not safe)) + (cons '%#ref __tmp45682)))) + (___kont4443644437_ + (lambda (_L37778_ _L37779_) + (let ((_t37801_ (##structure-ref - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L35217_)) + (let ((__tmp45686 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L37779_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp45686)) '1 gxc#!type::t '#f))) - (if (table-ref _struct-assert34568_ _t35239_ '#f) + (if (let () + (declare (not safe)) + (table-ref _struct-assert37130_ _t37801_ '#f)) '(%#quote #t) - (let ((_$e35241_ - (table-ref - _struct-check34567_ - _t35239_ - '#f))) - (if _$e35241_ - ((lambda (_checkq35244_) - (cons '%#ref (cons _checkq35244_ '()))) - _$e35241_) - _stx34561_)))))) - (___kont4187641877_ - (lambda (_L35101_ _L35102_) - (let* ((_getf35135_ - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L35102_))) - (_t35137_ + (let ((_$e37803_ + (let () + (declare (not safe)) + (table-ref + _struct-check37129_ + _t37801_ + '#f)))) + (if _$e37803_ + ((lambda (_checkq37806_) + (let ((__tmp45687 + (let () + (declare (not safe)) + (cons _checkq37806_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45687))) + _$e37803_) + _stx37123_)))))) + (___kont4443844439_ + (lambda (_L37663_ _L37664_) + (let* ((_getf37697_ + (let ((__tmp45688 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L37664_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp45688))) + (_t37699_ (##structure-ref - _getf35135_ + _getf37697_ '1 gxc#!type::t '#f))) (if (##structure-ref - _getf35135_ + _getf37697_ '3 gxc#!struct-getf::t '#f) - _stx34561_ - (if (table-ref _struct-assert34568_ _t35137_ '#f) - (let* ((_struct-t35140_ - (gxc#optimizer-resolve-type _t35137_)) - (_off35142_ + _stx37123_ + (if (let () + (declare (not safe)) + (table-ref _struct-assert37130_ _t37699_ '#f)) + (let* ((_struct-t37702_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type + _t37699_))) + (_off37704_ (fx+ (##structure-ref - _getf35135_ + _getf37697_ '2 gxc#!struct-getf::t '#f) (##structure-ref - _struct-t35140_ + _struct-t37702_ '4 gxc#!struct-type::t '#f) '1))) - (cons '%#struct-unchecked-ref - (cons (cons '%#ref (cons _t35137_ '())) - (cons (cons '%#quote - (cons _off35142_ '())) - (cons (cons '%#ref - (cons _self34562_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_$e35145_ - (table-ref - _struct-check34567_ - _t35137_ - '#f))) - (if _$e35145_ - ((lambda (_checkq35148_) - (let* ((_struct-t35150_ - (gxc#optimizer-resolve-type - _t35137_)) - (_off35152_ + (let ((__tmp45717 + (let ((__tmp45724 + (let ((__tmp45725 + (let () + (declare (not safe)) + (cons _t37699_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45725))) + (__tmp45718 + (let ((__tmp45722 + (let ((__tmp45723 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _off37704_ '())))) + (declare (not safe)) + (cons '%#quote __tmp45723))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp45719 + (let ((__tmp45720 + (let ((__tmp45721 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _self37124_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45721)))) + (declare (not safe)) + (cons __tmp45720 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45722 + __tmp45719)))) + (declare (not safe)) + (cons __tmp45724 __tmp45718)))) + (declare (not safe)) + (cons '%#struct-unchecked-ref __tmp45717))) + (let ((_$e37707_ + (let () + (declare (not safe)) + (table-ref + _struct-check37129_ + _t37699_ + '#f)))) + (if _$e37707_ + ((lambda (_checkq37710_) + (let* ((_struct-t37712_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type + _t37699_))) + (_off37714_ (fx+ (##structure-ref - _getf35135_ + _getf37697_ '2 gxc#!struct-getf::t '#f) (##structure-ref - _struct-t35150_ + _struct-t37712_ '4 gxc#!struct-type::t '#f) '1))) - (cons '%#if - (cons (cons '%#ref - (cons _checkq35148_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '%#struct-unchecked-ref - (cons (cons '%#ref (cons _t35137_ '())) - (cons (cons '%#quote (cons _off35152_ '())) - (cons (cons '%#ref - (cons _self34562_ '())) - '())))) - (cons (cons '%#call - (cons (cons '%#ref (cons 'error '())) - (cons (cons '%#quote - (cons '"Type error; concrete type is not a subclass of expected type" - '())) - (cons (cons '%#ref - (cons _t35137_ '())) - (cons (cons '%#ref - (cons _self34562_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e35145_) - _stx34561_))))))) - (___kont4187841879_ - (lambda (_L34976_ _L34977_ _L34978_) - (let* ((_setf35018_ - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L34978_))) - (_t35020_ - (##structure-ref _setf35018_ '1 gxc#!type::t '#f)) - (_expr35022_ - (gxc#compile-e - _L34976_ - _self34562_ - _$t34563_ - _methods34564_ - _slots34565_ - _class-check34566_ - _struct-check34567_ - _struct-assert34568_))) + (let ((__tmp45689 + (let ((__tmp45715 + (let ((__tmp45716 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _checkq37710_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45716))) + (__tmp45690 + (let ((__tmp45705 + (let ((__tmp45706 + (let ((__tmp45713 + (let ((__tmp45714 + (let () + (declare (not safe)) + (cons _t37699_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45714))) + (__tmp45707 + (let ((__tmp45711 + (let ((__tmp45712 + (let () + (declare (not safe)) + (cons _off37714_ '())))) + (declare (not safe)) + (cons '%#quote __tmp45712))) + (__tmp45708 + (let ((__tmp45709 + (let ((__tmp45710 + (let () + (declare + (not safe)) + (cons _self37124_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref + __tmp45710)))) + (declare (not safe)) + (cons __tmp45709 '())))) + (declare (not safe)) + (cons __tmp45711 __tmp45708)))) + (declare (not safe)) + (cons __tmp45713 __tmp45707)))) + (declare (not safe)) + (cons '%#struct-unchecked-ref __tmp45706))) + (__tmp45691 + (let ((__tmp45692 + (let ((__tmp45693 + (let ((__tmp45703 + (let ((__tmp45704 + (let () + (declare (not safe)) + (cons 'error '())))) + (declare (not safe)) + (cons '%#ref __tmp45704))) + (__tmp45694 + (let ((__tmp45701 + (let ((__tmp45702 + (let () + (declare + (not safe)) + (cons '"Type error; concrete type is not a subclass of expected type" +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#quote + __tmp45702))) + (__tmp45695 + (let ((__tmp45699 + (let ((__tmp45700 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _t37699_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45700))) + (__tmp45696 + (let ((__tmp45697 + (let ((__tmp45698 + (let () + (declare (not safe)) + (cons _self37124_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45698)))) + (declare (not safe)) + (cons __tmp45697 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45699 + __tmp45696)))) + (declare (not safe)) + (cons __tmp45701 __tmp45695)))) + (declare (not safe)) + (cons __tmp45703 __tmp45694)))) + (declare (not safe)) + (cons '%#call __tmp45693)))) + (declare (not safe)) + (cons __tmp45692 '())))) + (declare (not safe)) + (cons __tmp45705 __tmp45691)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45715 + __tmp45690)))) + (declare (not safe)) + (cons '%#if __tmp45689)))) + _$e37707_) + _stx37123_))))))) + (___kont4444044441_ + (lambda (_L37538_ _L37539_ _L37540_) + (let* ((_setf37580_ + (let ((__tmp45726 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L37540_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type __tmp45726))) + (_t37582_ + (##structure-ref _setf37580_ '1 gxc#!type::t '#f)) + (_expr37584_ + (let () + (declare (not safe)) + (gxc#compile-e + _L37538_ + _self37124_ + _$t37125_ + _methods37126_ + _slots37127_ + _class-check37128_ + _struct-check37129_ + _struct-assert37130_)))) (if (##structure-ref - _setf35018_ + _setf37580_ '3 gxc#!struct-setf::t '#f) - (cons '%#call - (cons (cons (gx#datum->syntax__0 '#f '%#ref) - (cons (gx#datum->syntax__0 - '#f - 'setf) - '())) - (cons (cons (gx#datum->syntax__0 - '#f - '%#ref) - (cons _L34977_ '())) - (cons _expr35022_ '())))) - (if (table-ref _struct-assert34568_ _t35020_ '#f) - (let* ((_struct-t35025_ - (gxc#optimizer-resolve-type _t35020_)) - (_off35027_ + (let ((__tmp45776 + (let ((__tmp45782 + (let ((__tmp45785 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp45783 + (let ((__tmp45784 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'setf)))) + (declare (not safe)) + (cons __tmp45784 '())))) + (declare (not safe)) + (cons __tmp45785 __tmp45783))) + (__tmp45777 + (let ((__tmp45779 + (let ((__tmp45781 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp45780 + (let () + (declare (not safe)) + (cons _L37539_ '())))) + (declare (not safe)) + (cons __tmp45781 + __tmp45780))) + (__tmp45778 + (let () + (declare (not safe)) + (cons _expr37584_ '())))) + (declare (not safe)) + (cons __tmp45779 __tmp45778)))) + (declare (not safe)) + (cons __tmp45782 __tmp45777)))) + (declare (not safe)) + (cons '%#call __tmp45776)) + (if (let () + (declare (not safe)) + (table-ref _struct-assert37130_ _t37582_ '#f)) + (let* ((_struct-t37587_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type + _t37582_))) + (_off37589_ (fx+ (##structure-ref - _setf35018_ + _setf37580_ '2 gxc#!struct-setf::t '#f) (##structure-ref - _struct-t35025_ + _struct-t37587_ '4 gxc#!struct-type::t '#f) '1))) - (cons '%#struct-unchecked-set! - (cons (cons '%#ref (cons _t35020_ '())) - (cons (cons '%#quote - (cons _off35027_ '())) - (cons (cons '%#ref - (cons _self34562_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons _expr35022_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_$e35030_ - (table-ref - _struct-check34567_ - _t35020_ - '#f))) - (if _$e35030_ - ((lambda (_checkq35033_) - (let* ((_struct-t35035_ - (gxc#optimizer-resolve-type - _t35020_)) - (_off35037_ + (let ((__tmp45766 + (let ((__tmp45774 + (let ((__tmp45775 + (let () + (declare (not safe)) + (cons _t37582_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45775))) + (__tmp45767 + (let ((__tmp45772 + (let ((__tmp45773 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _off37589_ '())))) + (declare (not safe)) + (cons '%#quote __tmp45773))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp45768 + (let ((__tmp45770 + (let ((__tmp45771 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _self37124_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45771))) + (__tmp45769 + (let () (declare (not safe)) (cons _expr37584_ '())))) + (declare (not safe)) + (cons __tmp45770 __tmp45769)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45772 + __tmp45768)))) + (declare (not safe)) + (cons __tmp45774 __tmp45767)))) + (declare (not safe)) + (cons '%#struct-unchecked-set! __tmp45766))) + (let ((_$e37592_ + (let () + (declare (not safe)) + (table-ref + _struct-check37129_ + _t37582_ + '#f)))) + (if _$e37592_ + ((lambda (_checkq37595_) + (let* ((_struct-t37597_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type + _t37582_))) + (_off37599_ (fx+ (##structure-ref - _setf35018_ + _setf37580_ '2 gxc#!struct-setf::t '#f) (##structure-ref - _struct-t35035_ + _struct-t37597_ '4 gxc#!struct-type::t '#f) '1))) - (cons '%#if - (cons (cons '%#ref - (cons _checkq35033_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '%#struct-unchecked-set! - (cons (cons '%#ref (cons _t35020_ '())) - (cons (cons '%#quote (cons _off35037_ '())) - (cons (cons '%#ref - (cons _self34562_ '())) - (cons _expr35022_ '()))))) - (cons (cons '%#call - (cons (cons '%#ref (cons 'error '())) - (cons (cons '%#quote - (cons '"Type error; concrete type is not a subclass of expected type" - '())) - (cons (cons '%#ref - (cons _t35020_ '())) - (cons (cons '%#ref - (cons _self34562_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e35030_) - (cons '%#call - (cons (cons (gx#datum->syntax__0 - '#f - '%#ref) - (cons (gx#datum->syntax__0 - '#f - 'setf) - '())) - (cons (cons (gx#datum->syntax__0 - '#f - '%#ref) - (cons _L34977_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons _expr35022_ '()))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4188041881_ + (let ((__tmp45737 + (let ((__tmp45764 + (let ((__tmp45765 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _checkq37595_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45765))) + (__tmp45738 + (let ((__tmp45753 + (let ((__tmp45754 + (let ((__tmp45762 + (let ((__tmp45763 + (let () + (declare (not safe)) + (cons _t37582_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45763))) + (__tmp45755 + (let ((__tmp45760 + (let ((__tmp45761 + (let () + (declare (not safe)) + (cons _off37599_ '())))) + (declare (not safe)) + (cons '%#quote __tmp45761))) + (__tmp45756 + (let ((__tmp45758 + (let ((__tmp45759 + (let () + (declare + (not safe)) + (cons _self37124_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref __tmp45759))) + (__tmp45757 + (let () + (declare (not safe)) + (cons _expr37584_ '())))) + (declare (not safe)) + (cons __tmp45758 __tmp45757)))) + (declare (not safe)) + (cons __tmp45760 __tmp45756)))) + (declare (not safe)) + (cons __tmp45762 __tmp45755)))) + (declare (not safe)) + (cons '%#struct-unchecked-set! __tmp45754))) + (__tmp45739 + (let ((__tmp45740 + (let ((__tmp45741 + (let ((__tmp45751 + (let ((__tmp45752 + (let () + (declare (not safe)) + (cons 'error '())))) + (declare (not safe)) + (cons '%#ref __tmp45752))) + (__tmp45742 + (let ((__tmp45749 + (let ((__tmp45750 + (let () + (declare + (not safe)) + (cons '"Type error; concrete type is not a subclass of expected type" +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#quote + __tmp45750))) + (__tmp45743 + (let ((__tmp45747 + (let ((__tmp45748 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _t37582_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45748))) + (__tmp45744 + (let ((__tmp45745 + (let ((__tmp45746 + (let () + (declare (not safe)) + (cons _self37124_ '())))) + (declare (not safe)) + (cons '%#ref __tmp45746)))) + (declare (not safe)) + (cons __tmp45745 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45747 + __tmp45744)))) + (declare (not safe)) + (cons __tmp45749 __tmp45743)))) + (declare (not safe)) + (cons __tmp45751 __tmp45742)))) + (declare (not safe)) + (cons '%#call __tmp45741)))) + (declare (not safe)) + (cons __tmp45740 '())))) + (declare (not safe)) + (cons __tmp45753 __tmp45739)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45764 + __tmp45738)))) + (declare (not safe)) + (cons '%#if __tmp45737)))) + _$e37592_) + (let ((__tmp45727 + (let ((__tmp45733 + (let ((__tmp45736 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp45734 + (let ((__tmp45735 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'setf)))) + (declare (not safe)) + (cons __tmp45735 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45736 + __tmp45734))) + (__tmp45728 + (let ((__tmp45730 + (let ((__tmp45732 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#ref))) + (__tmp45731 + (let () (declare (not safe)) (cons _L37539_ '())))) + (declare (not safe)) + (cons __tmp45732 __tmp45731))) + (__tmp45729 + (let () (declare (not safe)) (cons _expr37584_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp45730 + __tmp45729)))) + (declare (not safe)) + (cons __tmp45733 __tmp45728)))) + (declare (not safe)) + (cons '%#call __tmp45727))))))))) + (___kont4444244443_ (lambda () - (gxc#xform-operands - _stx34561_ - _self34562_ - _$t34563_ - _methods34564_ - _slots34565_ - _class-check34566_ - _struct-check34567_ - _struct-assert34568_)))) - (let* ((___match4259142592_ - (lambda (_e3487234912_ - _hd3487334915_ - _tl3487434917_ - _e3487534920_ - _hd3487634923_ - _tl3487734925_ - _e3487834928_ - _hd3487934931_ - _tl3488034933_ - _e3488134936_ - _hd3488234939_ - _tl3488334941_ - _e3488434944_ - _hd3488534947_ - _tl3488634949_ - _e3488734952_ - _hd3488834955_ - _tl3488934957_ - _e3489034960_ - _hd3489134963_ - _tl3489234965_ - _e3489334968_ - _hd3489434971_ - _tl3489534973_) - (let ((_L34976_ _hd3489434971_) - (_L34977_ _hd3489134963_) - (_L34978_ _hd3488234939_)) - (if (if (not (gx#free-identifier=? - _L34977_ - _self34562_)) + (let () + (declare (not safe)) + (gxc#xform-operands + _stx37123_ + _self37124_ + _$t37125_ + _methods37126_ + _slots37127_ + _class-check37128_ + _struct-check37129_ + _struct-assert37130_))))) + (let* ((___match4515345154_ + (lambda (_e3743637474_ + _hd3743537477_ + _tl3743437479_ + _e3743937482_ + _hd3743837485_ + _tl3743737487_ + _e3744237490_ + _hd3744137493_ + _tl3744037495_ + _e3744537498_ + _hd3744437501_ + _tl3744337503_ + _e3744837506_ + _hd3744737509_ + _tl3744637511_ + _e3745137514_ + _hd3745037517_ + _tl3744937519_ + _e3745437522_ + _hd3745337525_ + _tl3745237527_ + _e3745737530_ + _hd3745637533_ + _tl3745537535_) + (let ((_L37538_ _hd3745637533_) + (_L37539_ _hd3745337525_) + (_L37540_ _hd3744437501_)) + (if (if (let ((__tmp45788 + (let () + (declare (not safe)) + (gx#free-identifier=? + _L37539_ + _self37124_)))) + (declare (not safe)) + (not __tmp45788)) '#f - (let ((_$e35007_ - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L34978_)))) - (and _$e35007_ - ((lambda (_t35010_) + (let ((_$e37569_ + (let ((__tmp45786 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L37540_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45786)))) + (and _$e37569_ + ((lambda (_t37572_) (and (let () (declare (not safe)) (##structure-instance-of? - _t35010_ + _t37572_ 'gxc#!struct-setf::t)) - (let ((_struct-t3501135013_ - (gxc#optimizer-resolve-type - (##structure-ref - _t35010_ - '1 - gxc#!type::t - '#f)))) - (and _struct-t3501135013_ - (let ((_struct-t35016_ - _struct-t3501135013_)) + (let ((_struct-t3757337575_ + (let ((__tmp45787 + (##structure-ref + _t37572_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45787)))) + (and _struct-t3757337575_ + (let ((_struct-t37578_ + _struct-t3757337575_)) (##structure-ref - _struct-t35016_ + _struct-t37578_ '4 gxc#!struct-type::t '#f)))))) - _$e35007_)))) - (___kont4187841879_ _L34976_ _L34977_ _L34978_) - (___kont4188041881_))))) - (___match4258342584_ - (lambda (_e3487234912_ - _hd3487334915_ - _tl3487434917_ - _e3487534920_ - _hd3487634923_ - _tl3487734925_ - _e3487834928_ - _hd3487934931_ - _tl3488034933_ - _e3488134936_ - _hd3488234939_ - _tl3488334941_ - _e3488434944_ - _hd3488534947_ - _tl3488634949_ - _e3488734952_ - _hd3488834955_ - _tl3488934957_ - _e3489034960_ - _hd3489134963_ - _tl3489234965_) - (if (gx#stx-pair? _tl3488634949_) - (let ((_e3489334968_ (gx#stx-e _tl3488634949_))) - (let ((_tl3489534973_ + _$e37569_)))) + (___kont4444044441_ _L37538_ _L37539_ _L37540_) + (___kont4444244443_))))) + (___match4514545146_ + (lambda (_e3743637474_ + _hd3743537477_ + _tl3743437479_ + _e3743937482_ + _hd3743837485_ + _tl3743737487_ + _e3744237490_ + _hd3744137493_ + _tl3744037495_ + _e3744537498_ + _hd3744437501_ + _tl3744337503_ + _e3744837506_ + _hd3744737509_ + _tl3744637511_ + _e3745137514_ + _hd3745037517_ + _tl3744937519_ + _e3745437522_ + _hd3745337525_ + _tl3745237527_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3744637511_)) + (let ((_e3745737530_ + (let () + (declare (not safe)) + (gx#stx-e _tl3744637511_)))) + (let ((_tl3745537535_ (let () (declare (not safe)) - (##cdr _e3489334968_))) - (_hd3489434971_ + (##cdr _e3745737530_))) + (_hd3745637533_ (let () (declare (not safe)) - (##car _e3489334968_)))) - (if (gx#stx-null? _tl3489534973_) - (___match4259142592_ - _e3487234912_ - _hd3487334915_ - _tl3487434917_ - _e3487534920_ - _hd3487634923_ - _tl3487734925_ - _e3487834928_ - _hd3487934931_ - _tl3488034933_ - _e3488134936_ - _hd3488234939_ - _tl3488334941_ - _e3488434944_ - _hd3488534947_ - _tl3488634949_ - _e3488734952_ - _hd3488834955_ - _tl3488934957_ - _e3489034960_ - _hd3489134963_ - _tl3489234965_ - _e3489334968_ - _hd3489434971_ - _tl3489534973_) - (___kont4188041881_)))) - (___kont4188041881_)))) - (___match4252942530_ - (lambda (_e3484835045_ - _hd3484935048_ - _tl3485035050_ - _e3485135053_ - _hd3485235056_ - _tl3485335058_ - _e3485435061_ - _hd3485535064_ - _tl3485635066_ - _e3485735069_ - _hd3485835072_ - _tl3485935074_ - _e3486035077_ - _hd3486135080_ - _tl3486235082_ - _e3486335085_ - _hd3486435088_ - _tl3486535090_ - _e3486635093_ - _hd3486735096_ - _tl3486835098_) - (let ((_L35101_ _hd3486735096_) - (_L35102_ _hd3485835072_)) - (if (if (not (gx#free-identifier=? - _L35101_ - _self34562_)) + (##car _e3745737530_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3745537535_)) + (___match4515345154_ + _e3743637474_ + _hd3743537477_ + _tl3743437479_ + _e3743937482_ + _hd3743837485_ + _tl3743737487_ + _e3744237490_ + _hd3744137493_ + _tl3744037495_ + _e3744537498_ + _hd3744437501_ + _tl3744337503_ + _e3744837506_ + _hd3744737509_ + _tl3744637511_ + _e3745137514_ + _hd3745037517_ + _tl3744937519_ + _e3745437522_ + _hd3745337525_ + _tl3745237527_ + _e3745737530_ + _hd3745637533_ + _tl3745537535_) + (___kont4444244443_)))) + (___kont4444244443_)))) + (___match4509145092_ + (lambda (_e3741237607_ + _hd3741137610_ + _tl3741037612_ + _e3741537615_ + _hd3741437618_ + _tl3741337620_ + _e3741837623_ + _hd3741737626_ + _tl3741637628_ + _e3742137631_ + _hd3742037634_ + _tl3741937636_ + _e3742437639_ + _hd3742337642_ + _tl3742237644_ + _e3742737647_ + _hd3742637650_ + _tl3742537652_ + _e3743037655_ + _hd3742937658_ + _tl3742837660_) + (let ((_L37663_ _hd3742937658_) + (_L37664_ _hd3742037634_)) + (if (if (let ((__tmp45791 + (let () + (declare (not safe)) + (gx#free-identifier=? + _L37663_ + _self37124_)))) + (declare (not safe)) + (not __tmp45791)) '#f - (let ((_$e35124_ - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L35102_)))) - (and _$e35124_ - ((lambda (_t35127_) + (let ((_$e37686_ + (let ((__tmp45789 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L37664_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45789)))) + (and _$e37686_ + ((lambda (_t37689_) (and (let () (declare (not safe)) (##structure-instance-of? - _t35127_ + _t37689_ 'gxc#!struct-getf::t)) - (let ((_struct-t3512835130_ - (gxc#optimizer-resolve-type - (##structure-ref - _t35127_ - '1 - gxc#!type::t - '#f)))) - (and _struct-t3512835130_ - (let ((_struct-t35133_ - _struct-t3512835130_)) + (let ((_struct-t3769037692_ + (let ((__tmp45790 + (##structure-ref + _t37689_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45790)))) + (and _struct-t3769037692_ + (let ((_struct-t37695_ + _struct-t3769037692_)) (##structure-ref - _struct-t35133_ + _struct-t37695_ '4 gxc#!struct-type::t '#f)))))) - _$e35124_)))) - (___kont4187641877_ _L35101_ _L35102_) - (___kont4188041881_))))) - (___match4247342474_ - (lambda (_e3482535160_ - _hd3482635163_ - _tl3482735165_ - _e3482835168_ - _hd3482935171_ - _tl3483035173_ - _e3483135176_ - _hd3483235179_ - _tl3483335181_ - _e3483435184_ - _hd3483535187_ - _tl3483635189_ - _e3483735192_ - _hd3483835195_ - _tl3483935197_ - _e3484035200_ - _hd3484135203_ - _tl3484235205_ - _e3484335208_ - _hd3484435211_ - _tl3484535213_) - (let ((_L35216_ _hd3484435211_) - (_L35217_ _hd3483535187_)) - (if (and (gx#free-identifier=? _L35216_ _self34562_) - (let ((__tmp42639 - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L35217_)))) + _$e37686_)))) + (___kont4443844439_ _L37663_ _L37664_) + (___kont4444244443_))))) + (___match4503545036_ + (lambda (_e3738937722_ + _hd3738837725_ + _tl3738737727_ + _e3739237730_ + _hd3739137733_ + _tl3739037735_ + _e3739537738_ + _hd3739437741_ + _tl3739337743_ + _e3739837746_ + _hd3739737749_ + _tl3739637751_ + _e3740137754_ + _hd3740037757_ + _tl3739937759_ + _e3740437762_ + _hd3740337765_ + _tl3740237767_ + _e3740737770_ + _hd3740637773_ + _tl3740537775_) + (let ((_L37778_ _hd3740637773_) + (_L37779_ _hd3739737749_)) + (if (and (let () + (declare (not safe)) + (gx#free-identifier=? + _L37778_ + _self37124_)) + (let ((__tmp45792 + (let ((__tmp45793 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L37779_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45793)))) (declare (not safe)) (##structure-instance-of? - __tmp42639 + __tmp45792 'gxc#!struct-pred::t))) - (___kont4187441875_ _L35216_ _L35217_) - (___match4252942530_ - _e3482535160_ - _hd3482635163_ - _tl3482735165_ - _e3482835168_ - _hd3482935171_ - _tl3483035173_ - _e3483135176_ - _hd3483235179_ - _tl3483335181_ - _e3483435184_ - _hd3483535187_ - _tl3483635189_ - _e3483735192_ - _hd3483835195_ - _tl3483935197_ - _e3484035200_ - _hd3484135203_ - _tl3484235205_ - _e3484335208_ - _hd3484435211_ - _tl3484535213_))))) - (___match4241742418_ - (lambda (_e3480235251_ - _hd3480335254_ - _tl3480435256_ - _e3480535259_ - _hd3480635262_ - _tl3480735264_ - _e3480835267_ - _hd3480935270_ - _tl3481035272_ - _e3481135275_ - _hd3481235278_ - _tl3481335280_ - _e3481435283_ - _hd3481535286_ - _tl3481635288_ - _e3481735291_ - _hd3481835294_ - _tl3481935296_ - _e3482035299_ - _hd3482135302_ - _tl3482235304_) - (let ((_L35307_ _hd3482135302_) - (_L35308_ _hd3481235278_)) - (if (and (gx#free-identifier=? _L35307_ _self34562_) - (let ((__tmp42640 - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L35308_)))) + (___kont4443644437_ _L37778_ _L37779_) + (___match4509145092_ + _e3738937722_ + _hd3738837725_ + _tl3738737727_ + _e3739237730_ + _hd3739137733_ + _tl3739037735_ + _e3739537738_ + _hd3739437741_ + _tl3739337743_ + _e3739837746_ + _hd3739737749_ + _tl3739637751_ + _e3740137754_ + _hd3740037757_ + _tl3739937759_ + _e3740437762_ + _hd3740337765_ + _tl3740237767_ + _e3740737770_ + _hd3740637773_ + _tl3740537775_))))) + (___match4497944980_ + (lambda (_e3736637813_ + _hd3736537816_ + _tl3736437818_ + _e3736937821_ + _hd3736837824_ + _tl3736737826_ + _e3737237829_ + _hd3737137832_ + _tl3737037834_ + _e3737537837_ + _hd3737437840_ + _tl3737337842_ + _e3737837845_ + _hd3737737848_ + _tl3737637850_ + _e3738137853_ + _hd3738037856_ + _tl3737937858_ + _e3738437861_ + _hd3738337864_ + _tl3738237866_) + (let ((_L37869_ _hd3738337864_) + (_L37870_ _hd3737437840_)) + (if (and (let () + (declare (not safe)) + (gx#free-identifier=? + _L37869_ + _self37124_)) + (let ((__tmp45794 + (let ((__tmp45795 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L37870_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45795)))) (declare (not safe)) (##structure-instance-of? - __tmp42640 + __tmp45794 'gxc#!class-pred::t))) - (___kont4187241873_ _L35307_ _L35308_) - (___match4247342474_ - _e3480235251_ - _hd3480335254_ - _tl3480435256_ - _e3480535259_ - _hd3480635262_ - _tl3480735264_ - _e3480835267_ - _hd3480935270_ - _tl3481035272_ - _e3481135275_ - _hd3481235278_ - _tl3481335280_ - _e3481435283_ - _hd3481535286_ - _tl3481635288_ - _e3481735291_ - _hd3481835294_ - _tl3481935296_ - _e3482035299_ - _hd3482135302_ - _tl3482235304_))))) - (___match4241542416_ - (lambda (_e3480235251_ - _hd3480335254_ - _tl3480435256_ - _e3480535259_ - _hd3480635262_ - _tl3480735264_ - _e3480835267_ - _hd3480935270_ - _tl3481035272_ - _e3481135275_ - _hd3481235278_ - _tl3481335280_ - _e3481435283_ - _hd3481535286_ - _tl3481635288_ - _e3481735291_ - _hd3481835294_ - _tl3481935296_ - _e3482035299_ - _hd3482135302_ - _tl3482235304_) - (if (gx#stx-null? _tl3481635288_) - (___match4241742418_ - _e3480235251_ - _hd3480335254_ - _tl3480435256_ - _e3480535259_ - _hd3480635262_ - _tl3480735264_ - _e3480835267_ - _hd3480935270_ - _tl3481035272_ - _e3481135275_ - _hd3481235278_ - _tl3481335280_ - _e3481435283_ - _hd3481535286_ - _tl3481635288_ - _e3481735291_ - _hd3481835294_ - _tl3481935296_ - _e3482035299_ - _hd3482135302_ - _tl3482235304_) - (___match4258342584_ - _e3480235251_ - _hd3480335254_ - _tl3480435256_ - _e3480535259_ - _hd3480635262_ - _tl3480735264_ - _e3480835267_ - _hd3480935270_ - _tl3481035272_ - _e3481135275_ - _hd3481235278_ - _tl3481335280_ - _e3481435283_ - _hd3481535286_ - _tl3481635288_ - _e3481735291_ - _hd3481835294_ - _tl3481935296_ - _e3482035299_ - _hd3482135302_ - _tl3482235304_)))) - (___match4236142362_ - (lambda (_e3477635335_ - _hd3477735338_ - _tl3477835340_ - _e3477935343_ - _hd3478035346_ - _tl3478135348_ - _e3478235351_ - _hd3478335354_ - _tl3478435356_ - _e3478535359_ - _hd3478635362_ - _tl3478735364_ - _e3478835367_ - _hd3478935370_ - _tl3479035372_ - _e3479135375_ - _hd3479235378_ - _tl3479335380_ - _e3479435383_ - _hd3479535386_ - _tl3479635388_ - _e3479735391_ - _hd3479835394_ - _tl3479935396_) - (let ((_L35399_ _hd3479835394_) - (_L35400_ _hd3479535386_) - (_L35401_ _hd3478635362_)) - (if (and (gx#free-identifier=? _L35400_ _self34562_) - (let ((__tmp42641 - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L35401_)))) + (___kont4443444435_ _L37869_ _L37870_) + (___match4503545036_ + _e3736637813_ + _hd3736537816_ + _tl3736437818_ + _e3736937821_ + _hd3736837824_ + _tl3736737826_ + _e3737237829_ + _hd3737137832_ + _tl3737037834_ + _e3737537837_ + _hd3737437840_ + _tl3737337842_ + _e3737837845_ + _hd3737737848_ + _tl3737637850_ + _e3738137853_ + _hd3738037856_ + _tl3737937858_ + _e3738437861_ + _hd3738337864_ + _tl3738237866_))))) + (___match4497744978_ + (lambda (_e3736637813_ + _hd3736537816_ + _tl3736437818_ + _e3736937821_ + _hd3736837824_ + _tl3736737826_ + _e3737237829_ + _hd3737137832_ + _tl3737037834_ + _e3737537837_ + _hd3737437840_ + _tl3737337842_ + _e3737837845_ + _hd3737737848_ + _tl3737637850_ + _e3738137853_ + _hd3738037856_ + _tl3737937858_ + _e3738437861_ + _hd3738337864_ + _tl3738237866_) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3737637850_)) + (___match4497944980_ + _e3736637813_ + _hd3736537816_ + _tl3736437818_ + _e3736937821_ + _hd3736837824_ + _tl3736737826_ + _e3737237829_ + _hd3737137832_ + _tl3737037834_ + _e3737537837_ + _hd3737437840_ + _tl3737337842_ + _e3737837845_ + _hd3737737848_ + _tl3737637850_ + _e3738137853_ + _hd3738037856_ + _tl3737937858_ + _e3738437861_ + _hd3738337864_ + _tl3738237866_) + (___match4514545146_ + _e3736637813_ + _hd3736537816_ + _tl3736437818_ + _e3736937821_ + _hd3736837824_ + _tl3736737826_ + _e3737237829_ + _hd3737137832_ + _tl3737037834_ + _e3737537837_ + _hd3737437840_ + _tl3737337842_ + _e3737837845_ + _hd3737737848_ + _tl3737637850_ + _e3738137853_ + _hd3738037856_ + _tl3737937858_ + _e3738437861_ + _hd3738337864_ + _tl3738237866_)))) + (___match4492344924_ + (lambda (_e3734037897_ + _hd3733937900_ + _tl3733837902_ + _e3734337905_ + _hd3734237908_ + _tl3734137910_ + _e3734637913_ + _hd3734537916_ + _tl3734437918_ + _e3734937921_ + _hd3734837924_ + _tl3734737926_ + _e3735237929_ + _hd3735137932_ + _tl3735037934_ + _e3735537937_ + _hd3735437940_ + _tl3735337942_ + _e3735837945_ + _hd3735737948_ + _tl3735637950_ + _e3736137953_ + _hd3736037956_ + _tl3735937958_) + (let ((_L37961_ _hd3736037956_) + (_L37962_ _hd3735737948_) + (_L37963_ _hd3734837924_)) + (if (and (let () + (declare (not safe)) + (gx#free-identifier=? + _L37962_ + _self37124_)) + (let ((__tmp45796 + (let ((__tmp45797 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L37963_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45797)))) (declare (not safe)) (##structure-instance-of? - __tmp42641 + __tmp45796 'gxc#!class-setf::t))) - (___kont4187041871_ _L35399_ _L35400_ _L35401_) - (___match4259142592_ - _e3477635335_ - _hd3477735338_ - _tl3477835340_ - _e3477935343_ - _hd3478035346_ - _tl3478135348_ - _e3478235351_ - _hd3478335354_ - _tl3478435356_ - _e3478535359_ - _hd3478635362_ - _tl3478735364_ - _e3478835367_ - _hd3478935370_ - _tl3479035372_ - _e3479135375_ - _hd3479235378_ - _tl3479335380_ - _e3479435383_ - _hd3479535386_ - _tl3479635388_ - _e3479735391_ - _hd3479835394_ - _tl3479935396_))))) - (___match4235942360_ - (lambda (_e3477635335_ - _hd3477735338_ - _tl3477835340_ - _e3477935343_ - _hd3478035346_ - _tl3478135348_ - _e3478235351_ - _hd3478335354_ - _tl3478435356_ - _e3478535359_ - _hd3478635362_ - _tl3478735364_ - _e3478835367_ - _hd3478935370_ - _tl3479035372_ - _e3479135375_ - _hd3479235378_ - _tl3479335380_ - _e3479435383_ - _hd3479535386_ - _tl3479635388_ - _e3479735391_ - _hd3479835394_ - _tl3479935396_) - (if (gx#stx-null? _tl3479935396_) - (___match4236142362_ - _e3477635335_ - _hd3477735338_ - _tl3477835340_ - _e3477935343_ - _hd3478035346_ - _tl3478135348_ - _e3478235351_ - _hd3478335354_ - _tl3478435356_ - _e3478535359_ - _hd3478635362_ - _tl3478735364_ - _e3478835367_ - _hd3478935370_ - _tl3479035372_ - _e3479135375_ - _hd3479235378_ - _tl3479335380_ - _e3479435383_ - _hd3479535386_ - _tl3479635388_ - _e3479735391_ - _hd3479835394_ - _tl3479935396_) - (___kont4188041881_)))) - (___match4235342354_ - (lambda (_e3477635335_ - _hd3477735338_ - _tl3477835340_ - _e3477935343_ - _hd3478035346_ - _tl3478135348_ - _e3478235351_ - _hd3478335354_ - _tl3478435356_ - _e3478535359_ - _hd3478635362_ - _tl3478735364_ - _e3478835367_ - _hd3478935370_ - _tl3479035372_ - _e3479135375_ - _hd3479235378_ - _tl3479335380_ - _e3479435383_ - _hd3479535386_ - _tl3479635388_) - (if (gx#stx-pair? _tl3479035372_) - (let ((_e3479735391_ (gx#stx-e _tl3479035372_))) - (let ((_tl3479935396_ + (___kont4443244433_ _L37961_ _L37962_ _L37963_) + (___match4515345154_ + _e3734037897_ + _hd3733937900_ + _tl3733837902_ + _e3734337905_ + _hd3734237908_ + _tl3734137910_ + _e3734637913_ + _hd3734537916_ + _tl3734437918_ + _e3734937921_ + _hd3734837924_ + _tl3734737926_ + _e3735237929_ + _hd3735137932_ + _tl3735037934_ + _e3735537937_ + _hd3735437940_ + _tl3735337942_ + _e3735837945_ + _hd3735737948_ + _tl3735637950_ + _e3736137953_ + _hd3736037956_ + _tl3735937958_))))) + (___match4492144922_ + (lambda (_e3734037897_ + _hd3733937900_ + _tl3733837902_ + _e3734337905_ + _hd3734237908_ + _tl3734137910_ + _e3734637913_ + _hd3734537916_ + _tl3734437918_ + _e3734937921_ + _hd3734837924_ + _tl3734737926_ + _e3735237929_ + _hd3735137932_ + _tl3735037934_ + _e3735537937_ + _hd3735437940_ + _tl3735337942_ + _e3735837945_ + _hd3735737948_ + _tl3735637950_ + _e3736137953_ + _hd3736037956_ + _tl3735937958_) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3735937958_)) + (___match4492344924_ + _e3734037897_ + _hd3733937900_ + _tl3733837902_ + _e3734337905_ + _hd3734237908_ + _tl3734137910_ + _e3734637913_ + _hd3734537916_ + _tl3734437918_ + _e3734937921_ + _hd3734837924_ + _tl3734737926_ + _e3735237929_ + _hd3735137932_ + _tl3735037934_ + _e3735537937_ + _hd3735437940_ + _tl3735337942_ + _e3735837945_ + _hd3735737948_ + _tl3735637950_ + _e3736137953_ + _hd3736037956_ + _tl3735937958_) + (___kont4444244443_)))) + (___match4491544916_ + (lambda (_e3734037897_ + _hd3733937900_ + _tl3733837902_ + _e3734337905_ + _hd3734237908_ + _tl3734137910_ + _e3734637913_ + _hd3734537916_ + _tl3734437918_ + _e3734937921_ + _hd3734837924_ + _tl3734737926_ + _e3735237929_ + _hd3735137932_ + _tl3735037934_ + _e3735537937_ + _hd3735437940_ + _tl3735337942_ + _e3735837945_ + _hd3735737948_ + _tl3735637950_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3735037934_)) + (let ((_e3736137953_ + (let () + (declare (not safe)) + (gx#stx-e _tl3735037934_)))) + (let ((_tl3735937958_ (let () (declare (not safe)) - (##cdr _e3479735391_))) - (_hd3479835394_ + (##cdr _e3736137953_))) + (_hd3736037956_ (let () (declare (not safe)) - (##car _e3479735391_)))) - (if (gx#stx-null? _tl3479935396_) - (___match4236142362_ - _e3477635335_ - _hd3477735338_ - _tl3477835340_ - _e3477935343_ - _hd3478035346_ - _tl3478135348_ - _e3478235351_ - _hd3478335354_ - _tl3478435356_ - _e3478535359_ - _hd3478635362_ - _tl3478735364_ - _e3478835367_ - _hd3478935370_ - _tl3479035372_ - _e3479135375_ - _hd3479235378_ - _tl3479335380_ - _e3479435383_ - _hd3479535386_ - _tl3479635388_ - _e3479735391_ - _hd3479835394_ - _tl3479935396_) - (___kont4188041881_)))) - (___match4241542416_ - _e3477635335_ - _hd3477735338_ - _tl3477835340_ - _e3477935343_ - _hd3478035346_ - _tl3478135348_ - _e3478235351_ - _hd3478335354_ - _tl3478435356_ - _e3478535359_ - _hd3478635362_ - _tl3478735364_ - _e3478835367_ - _hd3478935370_ - _tl3479035372_ - _e3479135375_ - _hd3479235378_ - _tl3479335380_ - _e3479435383_ - _hd3479535386_ - _tl3479635388_)))) - (___match4229942300_ - (lambda (_e3475235438_ - _hd3475335441_ - _tl3475435443_ - _e3475535446_ - _hd3475635449_ - _tl3475735451_ - _e3475835454_ - _hd3475935457_ - _tl3476035459_ - _e3476135462_ - _hd3476235465_ - _tl3476335467_ - _e3476435470_ - _hd3476535473_ - _tl3476635475_ - _e3476735478_ - _hd3476835481_ - _tl3476935483_ - _e3477035486_ - _hd3477135489_ - _tl3477235491_) - (let ((_L35494_ _hd3477135489_) - (_L35495_ _hd3476235465_)) - (if (and (gx#free-identifier=? _L35494_ _self34562_) - (let ((__tmp42642 - (gxc#optimizer-resolve-type - (gxc#identifier-symbol _L35495_)))) + (##car _e3736137953_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3735937958_)) + (___match4492344924_ + _e3734037897_ + _hd3733937900_ + _tl3733837902_ + _e3734337905_ + _hd3734237908_ + _tl3734137910_ + _e3734637913_ + _hd3734537916_ + _tl3734437918_ + _e3734937921_ + _hd3734837924_ + _tl3734737926_ + _e3735237929_ + _hd3735137932_ + _tl3735037934_ + _e3735537937_ + _hd3735437940_ + _tl3735337942_ + _e3735837945_ + _hd3735737948_ + _tl3735637950_ + _e3736137953_ + _hd3736037956_ + _tl3735937958_) + (___kont4444244443_)))) + (___match4497744978_ + _e3734037897_ + _hd3733937900_ + _tl3733837902_ + _e3734337905_ + _hd3734237908_ + _tl3734137910_ + _e3734637913_ + _hd3734537916_ + _tl3734437918_ + _e3734937921_ + _hd3734837924_ + _tl3734737926_ + _e3735237929_ + _hd3735137932_ + _tl3735037934_ + _e3735537937_ + _hd3735437940_ + _tl3735337942_ + _e3735837945_ + _hd3735737948_ + _tl3735637950_)))) + (___match4486144862_ + (lambda (_e3731638000_ + _hd3731538003_ + _tl3731438005_ + _e3731938008_ + _hd3731838011_ + _tl3731738013_ + _e3732238016_ + _hd3732138019_ + _tl3732038021_ + _e3732538024_ + _hd3732438027_ + _tl3732338029_ + _e3732838032_ + _hd3732738035_ + _tl3732638037_ + _e3733138040_ + _hd3733038043_ + _tl3732938045_ + _e3733438048_ + _hd3733338051_ + _tl3733238053_) + (let ((_L38056_ _hd3733338051_) + (_L38057_ _hd3732438027_)) + (if (and (let () + (declare (not safe)) + (gx#free-identifier=? + _L38056_ + _self37124_)) + (let ((__tmp45798 + (let ((__tmp45799 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L38057_)))) + (declare (not safe)) + (gxc#optimizer-resolve-type + __tmp45799)))) (declare (not safe)) (##structure-instance-of? - __tmp42642 + __tmp45798 'gxc#!class-getf::t))) - (___kont4186841869_ _L35494_ _L35495_) - (___match4241742418_ - _e3475235438_ - _hd3475335441_ - _tl3475435443_ - _e3475535446_ - _hd3475635449_ - _tl3475735451_ - _e3475835454_ - _hd3475935457_ - _tl3476035459_ - _e3476135462_ - _hd3476235465_ - _tl3476335467_ - _e3476435470_ - _hd3476535473_ - _tl3476635475_ - _e3476735478_ - _hd3476835481_ - _tl3476935483_ - _e3477035486_ - _hd3477135489_ - _tl3477235491_))))) - (___match4229742298_ - (lambda (_e3475235438_ - _hd3475335441_ - _tl3475435443_ - _e3475535446_ - _hd3475635449_ - _tl3475735451_ - _e3475835454_ - _hd3475935457_ - _tl3476035459_ - _e3476135462_ - _hd3476235465_ - _tl3476335467_ - _e3476435470_ - _hd3476535473_ - _tl3476635475_ - _e3476735478_ - _hd3476835481_ - _tl3476935483_ - _e3477035486_ - _hd3477135489_ - _tl3477235491_) - (if (gx#stx-null? _tl3476635475_) - (___match4229942300_ - _e3475235438_ - _hd3475335441_ - _tl3475435443_ - _e3475535446_ - _hd3475635449_ - _tl3475735451_ - _e3475835454_ - _hd3475935457_ - _tl3476035459_ - _e3476135462_ - _hd3476235465_ - _tl3476335467_ - _e3476435470_ - _hd3476535473_ - _tl3476635475_ - _e3476735478_ - _hd3476835481_ - _tl3476935483_ - _e3477035486_ - _hd3477135489_ - _tl3477235491_) - (___match4235342354_ - _e3475235438_ - _hd3475335441_ - _tl3475435443_ - _e3475535446_ - _hd3475635449_ - _tl3475735451_ - _e3475835454_ - _hd3475935457_ - _tl3476035459_ - _e3476135462_ - _hd3476235465_ - _tl3476335467_ - _e3476435470_ - _hd3476535473_ - _tl3476635475_ - _e3476735478_ - _hd3476835481_ - _tl3476935483_ - _e3477035486_ - _hd3477135489_ - _tl3477235491_)))) - (___match4224342244_ - (lambda (_e3471735527_ - _hd3471835530_ - _tl3471935532_ - _e3472035535_ - _hd3472135538_ - _tl3472235540_ - _e3472335543_ - _hd3472435546_ - _tl3472535548_ - _e3472635551_ - _hd3472735554_ - _tl3472835556_ - _e3472935559_ - _hd3473035562_ - _tl3473135564_ - _e3473235567_ - _hd3473335570_ - _tl3473435572_ - _e3473535575_ - _hd3473635578_ - _tl3473735580_ - _e3473835583_ - _hd3473935586_ - _tl3474035588_ - _e3474135591_ - _hd3474235594_ - _tl3474335596_ - _e3474435599_ - _hd3474535602_ - _tl3474635604_ - _e3474735607_ - _hd3474835610_ - _tl3474935612_) - (let ((_L35615_ _hd3474835610_) - (_L35616_ _hd3474535602_) - (_L35617_ _hd3473635578_) - (_L35618_ _hd3472735554_)) - (if (and (or (gxc#runtime-identifier=? - _L35618_ - 'slot-set!) - (gxc#runtime-identifier=? - _L35618_ - 'unchecked-slot-set!)) - (gx#free-identifier=? _L35617_ _self34562_)) - (___kont4186641867_ - _L35615_ - _L35616_ - _L35617_ - _L35618_) - (___kont4188041881_))))) - (___match4223542236_ - (lambda (_e3471735527_ - _hd3471835530_ - _tl3471935532_ - _e3472035535_ - _hd3472135538_ - _tl3472235540_ - _e3472335543_ - _hd3472435546_ - _tl3472535548_ - _e3472635551_ - _hd3472735554_ - _tl3472835556_ - _e3472935559_ - _hd3473035562_ - _tl3473135564_ - _e3473235567_ - _hd3473335570_ - _tl3473435572_ - _e3473535575_ - _hd3473635578_ - _tl3473735580_ - _e3473835583_ - _hd3473935586_ - _tl3474035588_ - _e3474135591_ - _hd3474235594_ - _tl3474335596_ - _e3474435599_ - _hd3474535602_ - _tl3474635604_) - (if (gx#stx-pair? _tl3474035588_) - (let ((_e3474735607_ (gx#stx-e _tl3474035588_))) - (let ((_tl3474935612_ + (___kont4443044431_ _L38056_ _L38057_) + (___match4497944980_ + _e3731638000_ + _hd3731538003_ + _tl3731438005_ + _e3731938008_ + _hd3731838011_ + _tl3731738013_ + _e3732238016_ + _hd3732138019_ + _tl3732038021_ + _e3732538024_ + _hd3732438027_ + _tl3732338029_ + _e3732838032_ + _hd3732738035_ + _tl3732638037_ + _e3733138040_ + _hd3733038043_ + _tl3732938045_ + _e3733438048_ + _hd3733338051_ + _tl3733238053_))))) + (___match4485944860_ + (lambda (_e3731638000_ + _hd3731538003_ + _tl3731438005_ + _e3731938008_ + _hd3731838011_ + _tl3731738013_ + _e3732238016_ + _hd3732138019_ + _tl3732038021_ + _e3732538024_ + _hd3732438027_ + _tl3732338029_ + _e3732838032_ + _hd3732738035_ + _tl3732638037_ + _e3733138040_ + _hd3733038043_ + _tl3732938045_ + _e3733438048_ + _hd3733338051_ + _tl3733238053_) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3732638037_)) + (___match4486144862_ + _e3731638000_ + _hd3731538003_ + _tl3731438005_ + _e3731938008_ + _hd3731838011_ + _tl3731738013_ + _e3732238016_ + _hd3732138019_ + _tl3732038021_ + _e3732538024_ + _hd3732438027_ + _tl3732338029_ + _e3732838032_ + _hd3732738035_ + _tl3732638037_ + _e3733138040_ + _hd3733038043_ + _tl3732938045_ + _e3733438048_ + _hd3733338051_ + _tl3733238053_) + (___match4491544916_ + _e3731638000_ + _hd3731538003_ + _tl3731438005_ + _e3731938008_ + _hd3731838011_ + _tl3731738013_ + _e3732238016_ + _hd3732138019_ + _tl3732038021_ + _e3732538024_ + _hd3732438027_ + _tl3732338029_ + _e3732838032_ + _hd3732738035_ + _tl3732638037_ + _e3733138040_ + _hd3733038043_ + _tl3732938045_ + _e3733438048_ + _hd3733338051_ + _tl3733238053_)))) + (___match4480544806_ + (lambda (_e3728138089_ + _hd3728038092_ + _tl3727938094_ + _e3728438097_ + _hd3728338100_ + _tl3728238102_ + _e3728738105_ + _hd3728638108_ + _tl3728538110_ + _e3729038113_ + _hd3728938116_ + _tl3728838118_ + _e3729338121_ + _hd3729238124_ + _tl3729138126_ + _e3729638129_ + _hd3729538132_ + _tl3729438134_ + _e3729938137_ + _hd3729838140_ + _tl3729738142_ + _e3730238145_ + _hd3730138148_ + _tl3730038150_ + _e3730538153_ + _hd3730438156_ + _tl3730338158_ + _e3730838161_ + _hd3730738164_ + _tl3730638166_ + _e3731138169_ + _hd3731038172_ + _tl3730938174_) + (let ((_L38177_ _hd3731038172_) + (_L38178_ _hd3730738164_) + (_L38179_ _hd3729838140_) + (_L38180_ _hd3728938116_)) + (if (and (or (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L38180_ + 'slot-set!)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L38180_ + 'unchecked-slot-set!))) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L38179_ + _self37124_))) + (___kont4442844429_ + _L38177_ + _L38178_ + _L38179_ + _L38180_) + (___kont4444244443_))))) + (___match4479744798_ + (lambda (_e3728138089_ + _hd3728038092_ + _tl3727938094_ + _e3728438097_ + _hd3728338100_ + _tl3728238102_ + _e3728738105_ + _hd3728638108_ + _tl3728538110_ + _e3729038113_ + _hd3728938116_ + _tl3728838118_ + _e3729338121_ + _hd3729238124_ + _tl3729138126_ + _e3729638129_ + _hd3729538132_ + _tl3729438134_ + _e3729938137_ + _hd3729838140_ + _tl3729738142_ + _e3730238145_ + _hd3730138148_ + _tl3730038150_ + _e3730538153_ + _hd3730438156_ + _tl3730338158_ + _e3730838161_ + _hd3730738164_ + _tl3730638166_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3730038150_)) + (let ((_e3731138169_ + (let () + (declare (not safe)) + (gx#stx-e _tl3730038150_)))) + (let ((_tl3730938174_ (let () (declare (not safe)) - (##cdr _e3474735607_))) - (_hd3474835610_ + (##cdr _e3731138169_))) + (_hd3731038172_ (let () (declare (not safe)) - (##car _e3474735607_)))) - (if (gx#stx-null? _tl3474935612_) - (___match4224342244_ - _e3471735527_ - _hd3471835530_ - _tl3471935532_ - _e3472035535_ - _hd3472135538_ - _tl3472235540_ - _e3472335543_ - _hd3472435546_ - _tl3472535548_ - _e3472635551_ - _hd3472735554_ - _tl3472835556_ - _e3472935559_ - _hd3473035562_ - _tl3473135564_ - _e3473235567_ - _hd3473335570_ - _tl3473435572_ - _e3473535575_ - _hd3473635578_ - _tl3473735580_ - _e3473835583_ - _hd3473935586_ - _tl3474035588_ - _e3474135591_ - _hd3474235594_ - _tl3474335596_ - _e3474435599_ - _hd3474535602_ - _tl3474635604_ - _e3474735607_ - _hd3474835610_ - _tl3474935612_) - (___kont4188041881_)))) - (___match4235942360_ - _e3471735527_ - _hd3471835530_ - _tl3471935532_ - _e3472035535_ - _hd3472135538_ - _tl3472235540_ - _e3472335543_ - _hd3472435546_ - _tl3472535548_ - _e3472635551_ - _hd3472735554_ - _tl3472835556_ - _e3472935559_ - _hd3473035562_ - _tl3473135564_ - _e3473235567_ - _hd3473335570_ - _tl3473435572_ - _e3473535575_ - _hd3473635578_ - _tl3473735580_ - _e3473835583_ - _hd3473935586_ - _tl3474035588_)))) - (___match4215742158_ - (lambda (_e3468335661_ - _hd3468435664_ - _tl3468535666_ - _e3468635669_ - _hd3468735672_ - _tl3468835674_ - _e3468935677_ - _hd3469035680_ - _tl3469135682_ - _e3469235685_ - _hd3469335688_ - _tl3469435690_ - _e3469535693_ - _hd3469635696_ - _tl3469735698_ - _e3469835701_ - _hd3469935704_ - _tl3470035706_ - _e3470135709_ - _hd3470235712_ - _tl3470335714_ - _e3470435717_ - _hd3470535720_ - _tl3470635722_ - _e3470735725_ - _hd3470835728_ - _tl3470935730_ - _e3471035733_ - _hd3471135736_ - _tl3471235738_) - (let ((_L35741_ _hd3471135736_) - (_L35742_ _hd3470235712_) - (_L35743_ _hd3469335688_)) - (if (and (or (gxc#runtime-identifier=? - _L35743_ - 'slot-ref) - (gxc#runtime-identifier=? - _L35743_ - 'unchecked-slot-ref)) - (gx#free-identifier=? _L35742_ _self34562_)) - (___kont4186441865_ _L35741_ _L35742_ _L35743_) - (___match4236142362_ - _e3468335661_ - _hd3468435664_ - _tl3468535666_ - _e3468635669_ - _hd3468735672_ - _tl3468835674_ - _e3468935677_ - _hd3469035680_ - _tl3469135682_ - _e3469235685_ - _hd3469335688_ - _tl3469435690_ - _e3469535693_ - _hd3469635696_ - _tl3469735698_ - _e3469835701_ - _hd3469935704_ - _tl3470035706_ - _e3470135709_ - _hd3470235712_ - _tl3470335714_ - _e3470435717_ - _hd3470535720_ - _tl3470635722_))))) - (___match4215542156_ - (lambda (_e3468335661_ - _hd3468435664_ - _tl3468535666_ - _e3468635669_ - _hd3468735672_ - _tl3468835674_ - _e3468935677_ - _hd3469035680_ - _tl3469135682_ - _e3469235685_ - _hd3469335688_ - _tl3469435690_ - _e3469535693_ - _hd3469635696_ - _tl3469735698_ - _e3469835701_ - _hd3469935704_ - _tl3470035706_ - _e3470135709_ - _hd3470235712_ - _tl3470335714_ - _e3470435717_ - _hd3470535720_ - _tl3470635722_ - _e3470735725_ - _hd3470835728_ - _tl3470935730_ - _e3471035733_ - _hd3471135736_ - _tl3471235738_) - (if (gx#stx-null? _tl3470635722_) - (___match4215742158_ - _e3468335661_ - _hd3468435664_ - _tl3468535666_ - _e3468635669_ - _hd3468735672_ - _tl3468835674_ - _e3468935677_ - _hd3469035680_ - _tl3469135682_ - _e3469235685_ - _hd3469335688_ - _tl3469435690_ - _e3469535693_ - _hd3469635696_ - _tl3469735698_ - _e3469835701_ - _hd3469935704_ - _tl3470035706_ - _e3470135709_ - _hd3470235712_ - _tl3470335714_ - _e3470435717_ - _hd3470535720_ - _tl3470635722_ - _e3470735725_ - _hd3470835728_ - _tl3470935730_ - _e3471035733_ - _hd3471135736_ - _tl3471235738_) - (___match4223542236_ - _e3468335661_ - _hd3468435664_ - _tl3468535666_ - _e3468635669_ - _hd3468735672_ - _tl3468835674_ - _e3468935677_ - _hd3469035680_ - _tl3469135682_ - _e3469235685_ - _hd3469335688_ - _tl3469435690_ - _e3469535693_ - _hd3469635696_ - _tl3469735698_ - _e3469835701_ - _hd3469935704_ - _tl3470035706_ - _e3470135709_ - _hd3470235712_ - _tl3470335714_ - _e3470435717_ - _hd3470535720_ - _tl3470635722_ - _e3470735725_ - _hd3470835728_ - _tl3470935730_ - _e3471035733_ - _hd3471135736_ - _tl3471235738_)))) - (___match4214542146_ - (lambda (_e3468335661_ - _hd3468435664_ - _tl3468535666_ - _e3468635669_ - _hd3468735672_ - _tl3468835674_ - _e3468935677_ - _hd3469035680_ - _tl3469135682_ - _e3469235685_ - _hd3469335688_ - _tl3469435690_ - _e3469535693_ - _hd3469635696_ - _tl3469735698_ - _e3469835701_ - _hd3469935704_ - _tl3470035706_ - _e3470135709_ - _hd3470235712_ - _tl3470335714_ - _e3470435717_ - _hd3470535720_ - _tl3470635722_ - _e3470735725_ - _hd3470835728_ - _tl3470935730_) - (if (gx#stx-eq? '%#quote _hd3470835728_) - (if (gx#stx-pair? _tl3470935730_) - (let ((_e3471035733_ - (gx#stx-e _tl3470935730_))) - (let ((_tl3471235738_ + (##car _e3731138169_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3730938174_)) + (___match4480544806_ + _e3728138089_ + _hd3728038092_ + _tl3727938094_ + _e3728438097_ + _hd3728338100_ + _tl3728238102_ + _e3728738105_ + _hd3728638108_ + _tl3728538110_ + _e3729038113_ + _hd3728938116_ + _tl3728838118_ + _e3729338121_ + _hd3729238124_ + _tl3729138126_ + _e3729638129_ + _hd3729538132_ + _tl3729438134_ + _e3729938137_ + _hd3729838140_ + _tl3729738142_ + _e3730238145_ + _hd3730138148_ + _tl3730038150_ + _e3730538153_ + _hd3730438156_ + _tl3730338158_ + _e3730838161_ + _hd3730738164_ + _tl3730638166_ + _e3731138169_ + _hd3731038172_ + _tl3730938174_) + (___kont4444244443_)))) + (___match4492144922_ + _e3728138089_ + _hd3728038092_ + _tl3727938094_ + _e3728438097_ + _hd3728338100_ + _tl3728238102_ + _e3728738105_ + _hd3728638108_ + _tl3728538110_ + _e3729038113_ + _hd3728938116_ + _tl3728838118_ + _e3729338121_ + _hd3729238124_ + _tl3729138126_ + _e3729638129_ + _hd3729538132_ + _tl3729438134_ + _e3729938137_ + _hd3729838140_ + _tl3729738142_ + _e3730238145_ + _hd3730138148_ + _tl3730038150_)))) + (___match4471944720_ + (lambda (_e3724738223_ + _hd3724638226_ + _tl3724538228_ + _e3725038231_ + _hd3724938234_ + _tl3724838236_ + _e3725338239_ + _hd3725238242_ + _tl3725138244_ + _e3725638247_ + _hd3725538250_ + _tl3725438252_ + _e3725938255_ + _hd3725838258_ + _tl3725738260_ + _e3726238263_ + _hd3726138266_ + _tl3726038268_ + _e3726538271_ + _hd3726438274_ + _tl3726338276_ + _e3726838279_ + _hd3726738282_ + _tl3726638284_ + _e3727138287_ + _hd3727038290_ + _tl3726938292_ + _e3727438295_ + _hd3727338298_ + _tl3727238300_) + (let ((_L38303_ _hd3727338298_) + (_L38304_ _hd3726438274_) + (_L38305_ _hd3725538250_)) + (if (and (or (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L38305_ + 'slot-ref)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L38305_ + 'unchecked-slot-ref))) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L38304_ + _self37124_))) + (___kont4442644427_ _L38303_ _L38304_ _L38305_) + (___match4492344924_ + _e3724738223_ + _hd3724638226_ + _tl3724538228_ + _e3725038231_ + _hd3724938234_ + _tl3724838236_ + _e3725338239_ + _hd3725238242_ + _tl3725138244_ + _e3725638247_ + _hd3725538250_ + _tl3725438252_ + _e3725938255_ + _hd3725838258_ + _tl3725738260_ + _e3726238263_ + _hd3726138266_ + _tl3726038268_ + _e3726538271_ + _hd3726438274_ + _tl3726338276_ + _e3726838279_ + _hd3726738282_ + _tl3726638284_))))) + (___match4471744718_ + (lambda (_e3724738223_ + _hd3724638226_ + _tl3724538228_ + _e3725038231_ + _hd3724938234_ + _tl3724838236_ + _e3725338239_ + _hd3725238242_ + _tl3725138244_ + _e3725638247_ + _hd3725538250_ + _tl3725438252_ + _e3725938255_ + _hd3725838258_ + _tl3725738260_ + _e3726238263_ + _hd3726138266_ + _tl3726038268_ + _e3726538271_ + _hd3726438274_ + _tl3726338276_ + _e3726838279_ + _hd3726738282_ + _tl3726638284_ + _e3727138287_ + _hd3727038290_ + _tl3726938292_ + _e3727438295_ + _hd3727338298_ + _tl3727238300_) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3726638284_)) + (___match4471944720_ + _e3724738223_ + _hd3724638226_ + _tl3724538228_ + _e3725038231_ + _hd3724938234_ + _tl3724838236_ + _e3725338239_ + _hd3725238242_ + _tl3725138244_ + _e3725638247_ + _hd3725538250_ + _tl3725438252_ + _e3725938255_ + _hd3725838258_ + _tl3725738260_ + _e3726238263_ + _hd3726138266_ + _tl3726038268_ + _e3726538271_ + _hd3726438274_ + _tl3726338276_ + _e3726838279_ + _hd3726738282_ + _tl3726638284_ + _e3727138287_ + _hd3727038290_ + _tl3726938292_ + _e3727438295_ + _hd3727338298_ + _tl3727238300_) + (___match4479744798_ + _e3724738223_ + _hd3724638226_ + _tl3724538228_ + _e3725038231_ + _hd3724938234_ + _tl3724838236_ + _e3725338239_ + _hd3725238242_ + _tl3725138244_ + _e3725638247_ + _hd3725538250_ + _tl3725438252_ + _e3725938255_ + _hd3725838258_ + _tl3725738260_ + _e3726238263_ + _hd3726138266_ + _tl3726038268_ + _e3726538271_ + _hd3726438274_ + _tl3726338276_ + _e3726838279_ + _hd3726738282_ + _tl3726638284_ + _e3727138287_ + _hd3727038290_ + _tl3726938292_ + _e3727438295_ + _hd3727338298_ + _tl3727238300_)))) + (___match4470744708_ + (lambda (_e3724738223_ + _hd3724638226_ + _tl3724538228_ + _e3725038231_ + _hd3724938234_ + _tl3724838236_ + _e3725338239_ + _hd3725238242_ + _tl3725138244_ + _e3725638247_ + _hd3725538250_ + _tl3725438252_ + _e3725938255_ + _hd3725838258_ + _tl3725738260_ + _e3726238263_ + _hd3726138266_ + _tl3726038268_ + _e3726538271_ + _hd3726438274_ + _tl3726338276_ + _e3726838279_ + _hd3726738282_ + _tl3726638284_ + _e3727138287_ + _hd3727038290_ + _tl3726938292_) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd3727038290_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3726938292_)) + (let ((_e3727438295_ + (let () + (declare (not safe)) + (gx#stx-e _tl3726938292_)))) + (let ((_tl3727238300_ (let () (declare (not safe)) - (##cdr _e3471035733_))) - (_hd3471135736_ + (##cdr _e3727438295_))) + (_hd3727338298_ (let () (declare (not safe)) - (##car _e3471035733_)))) - (if (gx#stx-null? _tl3471235738_) - (if (gx#stx-null? _tl3470635722_) - (___match4215742158_ - _e3468335661_ - _hd3468435664_ - _tl3468535666_ - _e3468635669_ - _hd3468735672_ - _tl3468835674_ - _e3468935677_ - _hd3469035680_ - _tl3469135682_ - _e3469235685_ - _hd3469335688_ - _tl3469435690_ - _e3469535693_ - _hd3469635696_ - _tl3469735698_ - _e3469835701_ - _hd3469935704_ - _tl3470035706_ - _e3470135709_ - _hd3470235712_ - _tl3470335714_ - _e3470435717_ - _hd3470535720_ - _tl3470635722_ - _e3470735725_ - _hd3470835728_ - _tl3470935730_ - _e3471035733_ - _hd3471135736_ - _tl3471235738_) - (___match4223542236_ - _e3468335661_ - _hd3468435664_ - _tl3468535666_ - _e3468635669_ - _hd3468735672_ - _tl3468835674_ - _e3468935677_ - _hd3469035680_ - _tl3469135682_ - _e3469235685_ - _hd3469335688_ - _tl3469435690_ - _e3469535693_ - _hd3469635696_ - _tl3469735698_ - _e3469835701_ - _hd3469935704_ - _tl3470035706_ - _e3470135709_ - _hd3470235712_ - _tl3470335714_ - _e3470435717_ - _hd3470535720_ - _tl3470635722_ - _e3470735725_ - _hd3470835728_ - _tl3470935730_ - _e3471035733_ - _hd3471135736_ - _tl3471235738_)) - (___match4235942360_ - _e3468335661_ - _hd3468435664_ - _tl3468535666_ - _e3468635669_ - _hd3468735672_ - _tl3468835674_ - _e3468935677_ - _hd3469035680_ - _tl3469135682_ - _e3469235685_ - _hd3469335688_ - _tl3469435690_ - _e3469535693_ - _hd3469635696_ - _tl3469735698_ - _e3469835701_ - _hd3469935704_ - _tl3470035706_ - _e3470135709_ - _hd3470235712_ - _tl3470335714_ - _e3470435717_ - _hd3470535720_ - _tl3470635722_)))) - (___match4235942360_ - _e3468335661_ - _hd3468435664_ - _tl3468535666_ - _e3468635669_ - _hd3468735672_ - _tl3468835674_ - _e3468935677_ - _hd3469035680_ - _tl3469135682_ - _e3469235685_ - _hd3469335688_ - _tl3469435690_ - _e3469535693_ - _hd3469635696_ - _tl3469735698_ - _e3469835701_ - _hd3469935704_ - _tl3470035706_ - _e3470135709_ - _hd3470235712_ - _tl3470335714_ - _e3470435717_ - _hd3470535720_ - _tl3470635722_)) - (___match4235942360_ - _e3468335661_ - _hd3468435664_ - _tl3468535666_ - _e3468635669_ - _hd3468735672_ - _tl3468835674_ - _e3468935677_ - _hd3469035680_ - _tl3469135682_ - _e3469235685_ - _hd3469335688_ - _tl3469435690_ - _e3469535693_ - _hd3469635696_ - _tl3469735698_ - _e3469835701_ - _hd3469935704_ - _tl3470035706_ - _e3470135709_ - _hd3470235712_ - _tl3470335714_ - _e3470435717_ - _hd3470535720_ - _tl3470635722_)))) - (___match4207742078_ - (lambda (_e3463235782_ - _hd3463335785_ - _tl3463435787_ - _e3463535790_ - _hd3463635793_ - _tl3463735795_ - _e3463835798_ - _hd3463935801_ - _tl3464035803_ - _e3464135806_ - _hd3464235809_ - _tl3464335811_ - _e3464435814_ - _hd3464535817_ - _tl3464635819_ - _e3464735822_ - _hd3464835825_ - _tl3464935827_ - _e3465035830_ - _hd3465135833_ - _tl3465235835_ - _e3465335838_ - _hd3465435841_ - _tl3465535843_ - _e3465635846_ - _hd3465735849_ - _tl3465835851_ - _e3465935854_ - _hd3466035857_ - _tl3466135859_ - _e3466235862_ - _hd3466335865_ - _tl3466435867_ - _e3466535870_ - _hd3466635873_ - _tl3466735875_ - _e3466835878_ - _hd3466935881_ - _tl3467035883_ - ___splice4186241863_ - _target3467135886_ - _tl3467335888_) - (letrec ((_loop3467435891_ - (lambda (_hd3467235894_ _args3467835896_) - (if (gx#stx-pair? _hd3467235894_) - (let ((_e3467535899_ - (gx#stx-e _hd3467235894_))) - (let ((_lp-tl3467735904_ + (##car _e3727438295_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3727238300_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3726638284_)) + (___match4471944720_ + _e3724738223_ + _hd3724638226_ + _tl3724538228_ + _e3725038231_ + _hd3724938234_ + _tl3724838236_ + _e3725338239_ + _hd3725238242_ + _tl3725138244_ + _e3725638247_ + _hd3725538250_ + _tl3725438252_ + _e3725938255_ + _hd3725838258_ + _tl3725738260_ + _e3726238263_ + _hd3726138266_ + _tl3726038268_ + _e3726538271_ + _hd3726438274_ + _tl3726338276_ + _e3726838279_ + _hd3726738282_ + _tl3726638284_ + _e3727138287_ + _hd3727038290_ + _tl3726938292_ + _e3727438295_ + _hd3727338298_ + _tl3727238300_) + (___match4479744798_ + _e3724738223_ + _hd3724638226_ + _tl3724538228_ + _e3725038231_ + _hd3724938234_ + _tl3724838236_ + _e3725338239_ + _hd3725238242_ + _tl3725138244_ + _e3725638247_ + _hd3725538250_ + _tl3725438252_ + _e3725938255_ + _hd3725838258_ + _tl3725738260_ + _e3726238263_ + _hd3726138266_ + _tl3726038268_ + _e3726538271_ + _hd3726438274_ + _tl3726338276_ + _e3726838279_ + _hd3726738282_ + _tl3726638284_ + _e3727138287_ + _hd3727038290_ + _tl3726938292_ + _e3727438295_ + _hd3727338298_ + _tl3727238300_)) + (___match4492144922_ + _e3724738223_ + _hd3724638226_ + _tl3724538228_ + _e3725038231_ + _hd3724938234_ + _tl3724838236_ + _e3725338239_ + _hd3725238242_ + _tl3725138244_ + _e3725638247_ + _hd3725538250_ + _tl3725438252_ + _e3725938255_ + _hd3725838258_ + _tl3725738260_ + _e3726238263_ + _hd3726138266_ + _tl3726038268_ + _e3726538271_ + _hd3726438274_ + _tl3726338276_ + _e3726838279_ + _hd3726738282_ + _tl3726638284_)))) + (___match4492144922_ + _e3724738223_ + _hd3724638226_ + _tl3724538228_ + _e3725038231_ + _hd3724938234_ + _tl3724838236_ + _e3725338239_ + _hd3725238242_ + _tl3725138244_ + _e3725638247_ + _hd3725538250_ + _tl3725438252_ + _e3725938255_ + _hd3725838258_ + _tl3725738260_ + _e3726238263_ + _hd3726138266_ + _tl3726038268_ + _e3726538271_ + _hd3726438274_ + _tl3726338276_ + _e3726838279_ + _hd3726738282_ + _tl3726638284_)) + (___match4492144922_ + _e3724738223_ + _hd3724638226_ + _tl3724538228_ + _e3725038231_ + _hd3724938234_ + _tl3724838236_ + _e3725338239_ + _hd3725238242_ + _tl3725138244_ + _e3725638247_ + _hd3725538250_ + _tl3725438252_ + _e3725938255_ + _hd3725838258_ + _tl3725738260_ + _e3726238263_ + _hd3726138266_ + _tl3726038268_ + _e3726538271_ + _hd3726438274_ + _tl3726338276_ + _e3726838279_ + _hd3726738282_ + _tl3726638284_)))) + (___match4463944640_ + (lambda (_e3719638344_ + _hd3719538347_ + _tl3719438349_ + _e3719938352_ + _hd3719838355_ + _tl3719738357_ + _e3720238360_ + _hd3720138363_ + _tl3720038365_ + _e3720538368_ + _hd3720438371_ + _tl3720338373_ + _e3720838376_ + _hd3720738379_ + _tl3720638381_ + _e3721138384_ + _hd3721038387_ + _tl3720938389_ + _e3721438392_ + _hd3721338395_ + _tl3721238397_ + _e3721738400_ + _hd3721638403_ + _tl3721538405_ + _e3722038408_ + _hd3721938411_ + _tl3721838413_ + _e3722338416_ + _hd3722238419_ + _tl3722138421_ + _e3722638424_ + _hd3722538427_ + _tl3722438429_ + _e3722938432_ + _hd3722838435_ + _tl3722738437_ + _e3723238440_ + _hd3723138443_ + _tl3723038445_ + ___splice4442444425_ + _target3723338448_ + _tl3723538450_) + (letrec ((_loop3723638453_ + (lambda (_hd3723438456_ _args3724038458_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3723438456_)) + (let ((_e3723738461_ + (let () + (declare (not safe)) + (gx#stx-e _hd3723438456_)))) + (let ((_lp-tl3723938466_ (let () (declare (not safe)) - (##cdr _e3467535899_))) - (_lp-hd3467635902_ + (##cdr _e3723738461_))) + (_lp-hd3723838464_ (let () (declare (not safe)) - (##car _e3467535899_)))) - (_loop3467435891_ - _lp-tl3467735904_ - (cons _lp-hd3467635902_ - _args3467835896_)))) - (let ((_args3467935907_ - (reverse _args3467835896_))) - (let ((_L35910_ _args3467935907_) - (_L35911_ _hd3466935881_) - (_L35912_ _hd3466035857_) - (_L35913_ _hd3465135833_) - (_L35914_ _hd3464235809_)) - (if (and (gxc#runtime-identifier=? - _L35914_ - 'apply) - (gxc#runtime-identifier=? - _L35913_ - 'call-method) - (gx#free-identifier=? - _L35912_ - _self34562_)) - (___kont4186041861_ - _L35910_ - _L35911_ - _L35912_ - _L35913_ - _L35914_) - (___kont4188041881_)))))))) - (_loop3467435891_ _target3467135886_ '())))) - (___match4203542036_ - (lambda (_e3463235782_ - _hd3463335785_ - _tl3463435787_ - _e3463535790_ - _hd3463635793_ - _tl3463735795_ - _e3463835798_ - _hd3463935801_ - _tl3464035803_ - _e3464135806_ - _hd3464235809_ - _tl3464335811_ - _e3464435814_ - _hd3464535817_ - _tl3464635819_ - _e3464735822_ - _hd3464835825_ - _tl3464935827_ - _e3465035830_ - _hd3465135833_ - _tl3465235835_ - _e3465335838_ - _hd3465435841_ - _tl3465535843_ - _e3465635846_ - _hd3465735849_ - _tl3465835851_) - (if (gx#stx-eq? '%#ref _hd3465735849_) - (if (gx#stx-pair? _tl3465835851_) - (let ((_e3465935854_ - (gx#stx-e _tl3465835851_))) - (let ((_tl3466135859_ + (##car _e3723738461_)))) + (let ((__tmp45800 + (let () + (declare (not safe)) + (cons _lp-hd3723838464_ + _args3724038458_)))) + (declare (not safe)) + (_loop3723638453_ + _lp-tl3723938466_ + __tmp45800)))) + (let ((_args3724138469_ + (let () + (declare (not safe)) + (reverse _args3724038458_)))) + (let ((_L38472_ _args3724138469_) + (_L38473_ _hd3723138443_) + (_L38474_ _hd3722238419_) + (_L38475_ _hd3721338395_) + (_L38476_ _hd3720438371_)) + (if (and (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L38476_ + 'apply)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L38475_ + 'call-method)) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L38474_ + _self37124_))) + (___kont4442244423_ + _L38472_ + _L38473_ + _L38474_ + _L38475_ + _L38476_) + (___kont4444244443_)))))))) + (let () + (declare (not safe)) + (_loop3723638453_ _target3723338448_ '()))))) + (___match4459744598_ + (lambda (_e3719638344_ + _hd3719538347_ + _tl3719438349_ + _e3719938352_ + _hd3719838355_ + _tl3719738357_ + _e3720238360_ + _hd3720138363_ + _tl3720038365_ + _e3720538368_ + _hd3720438371_ + _tl3720338373_ + _e3720838376_ + _hd3720738379_ + _tl3720638381_ + _e3721138384_ + _hd3721038387_ + _tl3720938389_ + _e3721438392_ + _hd3721338395_ + _tl3721238397_ + _e3721738400_ + _hd3721638403_ + _tl3721538405_ + _e3722038408_ + _hd3721938411_ + _tl3721838413_) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3721938411_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3721838413_)) + (let ((_e3722338416_ + (let () + (declare (not safe)) + (gx#stx-e _tl3721838413_)))) + (let ((_tl3722138421_ (let () (declare (not safe)) - (##cdr _e3465935854_))) - (_hd3466035857_ + (##cdr _e3722338416_))) + (_hd3722238419_ (let () (declare (not safe)) - (##car _e3465935854_)))) - (if (gx#stx-null? _tl3466135859_) - (if (gx#stx-pair? _tl3465535843_) - (let ((_e3466235862_ - (gx#stx-e _tl3465535843_))) - (let ((_tl3466435867_ + (##car _e3722338416_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3722138421_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3721538405_)) + (let ((_e3722638424_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3721538405_)))) + (let ((_tl3722438429_ (let () (declare (not safe)) - (##cdr _e3466235862_))) - (_hd3466335865_ + (##cdr _e3722638424_))) + (_hd3722538427_ (let () (declare (not safe)) - (##car _e3466235862_)))) - (if (gx#stx-pair? - _hd3466335865_) - (let ((_e3466535870_ - (gx#stx-e - _hd3466335865_))) - (let ((_tl3466735875_ + (##car _e3722638424_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd3722538427_)) + (let ((_e3722938432_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd3722538427_)))) + (let ((_tl3722738437_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3466535870_))) - (_hd3466635873_ - (let () (declare (not safe)) (##car _e3466535870_)))) - (if (gx#identifier? _hd3466635873_) - (if (gx#stx-eq? '%#quote _hd3466635873_) - (if (gx#stx-pair? _tl3466735875_) - (let ((_e3466835878_ (gx#stx-e _tl3466735875_))) - (let ((_tl3467035883_ + (##cdr _e3722938432_))) + (_hd3722838435_ + (let () (declare (not safe)) (##car _e3722938432_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3722838435_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd3722838435_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3722738437_)) + (let ((_e3723238440_ + (let () + (declare (not safe)) + (gx#stx-e _tl3722738437_)))) + (let ((_tl3723038445_ (let () (declare (not safe)) - (##cdr _e3466835878_))) - (_hd3466935881_ + (##cdr _e3723238440_))) + (_hd3723138443_ (let () (declare (not safe)) - (##car _e3466835878_)))) - (if (gx#stx-null? _tl3467035883_) - (if (gx#stx-pair/null? _tl3466435867_) - (let ((___splice4186241863_ - (gx#syntax-split-splice - _tl3466435867_ - '0))) - (let ((_tl3467335888_ + (##car _e3723238440_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3723038445_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3722438429_)) + (let ((___splice4442444425_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3722438429_ + '0)))) + (let ((_tl3723538450_ (let () (declare (not safe)) (##vector-ref - ___splice4186241863_ + ___splice4442444425_ '1))) - (_target3467135886_ + (_target3723338448_ (let () (declare (not safe)) (##vector-ref - ___splice4186241863_ + ___splice4442444425_ '0)))) - (if (gx#stx-null? _tl3467335888_) - (___match4207742078_ - _e3463235782_ - _hd3463335785_ - _tl3463435787_ - _e3463535790_ - _hd3463635793_ - _tl3463735795_ - _e3463835798_ - _hd3463935801_ - _tl3464035803_ - _e3464135806_ - _hd3464235809_ - _tl3464335811_ - _e3464435814_ - _hd3464535817_ - _tl3464635819_ - _e3464735822_ - _hd3464835825_ - _tl3464935827_ - _e3465035830_ - _hd3465135833_ - _tl3465235835_ - _e3465335838_ - _hd3465435841_ - _tl3465535843_ - _e3465635846_ - _hd3465735849_ - _tl3465835851_ - _e3465935854_ - _hd3466035857_ - _tl3466135859_ - _e3466235862_ - _hd3466335865_ - _tl3466435867_ - _e3466535870_ - _hd3466635873_ - _tl3466735875_ - _e3466835878_ - _hd3466935881_ - _tl3467035883_ - ___splice4186241863_ - _target3467135886_ - _tl3467335888_) - (___kont4188041881_)))) - (___kont4188041881_)) - (___kont4188041881_)))) - (___kont4188041881_)) - (___kont4188041881_)) - (___kont4188041881_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4188041881_)))) - (___match4235942360_ - _e3463235782_ - _hd3463335785_ - _tl3463435787_ - _e3463535790_ - _hd3463635793_ - _tl3463735795_ - _e3463835798_ - _hd3463935801_ - _tl3464035803_ - _e3464135806_ - _hd3464235809_ - _tl3464335811_ - _e3464435814_ - _hd3464535817_ - _tl3464635819_ - _e3464735822_ - _hd3464835825_ - _tl3464935827_ - _e3465035830_ - _hd3465135833_ - _tl3465235835_ - _e3465335838_ - _hd3465435841_ - _tl3465535843_)) - (___match4235942360_ - _e3463235782_ - _hd3463335785_ - _tl3463435787_ - _e3463535790_ - _hd3463635793_ - _tl3463735795_ - _e3463835798_ - _hd3463935801_ - _tl3464035803_ - _e3464135806_ - _hd3464235809_ - _tl3464335811_ - _e3464435814_ - _hd3464535817_ - _tl3464635819_ - _e3464735822_ - _hd3464835825_ - _tl3464935827_ - _e3465035830_ - _hd3465135833_ - _tl3465235835_ - _e3465335838_ - _hd3465435841_ - _tl3465535843_)))) - (___match4235942360_ - _e3463235782_ - _hd3463335785_ - _tl3463435787_ - _e3463535790_ - _hd3463635793_ - _tl3463735795_ - _e3463835798_ - _hd3463935801_ - _tl3464035803_ - _e3464135806_ - _hd3464235809_ - _tl3464335811_ - _e3464435814_ - _hd3464535817_ - _tl3464635819_ - _e3464735822_ - _hd3464835825_ - _tl3464935827_ - _e3465035830_ - _hd3465135833_ - _tl3465235835_ - _e3465335838_ - _hd3465435841_ - _tl3465535843_)) - (___match4214542146_ - _e3463235782_ - _hd3463335785_ - _tl3463435787_ - _e3463535790_ - _hd3463635793_ - _tl3463735795_ - _e3463835798_ - _hd3463935801_ - _tl3464035803_ - _e3464135806_ - _hd3464235809_ - _tl3464335811_ - _e3464435814_ - _hd3464535817_ - _tl3464635819_ - _e3464735822_ - _hd3464835825_ - _tl3464935827_ - _e3465035830_ - _hd3465135833_ - _tl3465235835_ - _e3465335838_ - _hd3465435841_ - _tl3465535843_ - _e3465635846_ - _hd3465735849_ - _tl3465835851_)))) - (___match4196741968_ - (lambda (_e3458835974_ - _hd3458935977_ - _tl3459035979_ - _e3459135982_ - _hd3459235985_ - _tl3459335987_ - _e3459435990_ - _hd3459535993_ - _tl3459635995_ - _e3459735998_ - _hd3459836001_ - _tl3459936003_ - _e3460036006_ - _hd3460136009_ - _tl3460236011_ - _e3460336014_ - _hd3460436017_ - _tl3460536019_ - _e3460636022_ - _hd3460736025_ - _tl3460836027_ - _e3460936030_ - _hd3461036033_ - _tl3461136035_ - _e3461236038_ - _hd3461336041_ - _tl3461436043_ - _e3461536046_ - _hd3461636049_ - _tl3461736051_ - ___splice4185841859_ - _target3461836054_ - _tl3462036056_) - (letrec ((_loop3462136059_ - (lambda (_hd3461936062_ _args3462536064_) - (if (gx#stx-pair? _hd3461936062_) - (let ((_e3462236067_ - (gx#stx-e _hd3461936062_))) - (let ((_lp-tl3462436072_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3723538450_)) + (___match4463944640_ + _e3719638344_ + _hd3719538347_ + _tl3719438349_ + _e3719938352_ + _hd3719838355_ + _tl3719738357_ + _e3720238360_ + _hd3720138363_ + _tl3720038365_ + _e3720538368_ + _hd3720438371_ + _tl3720338373_ + _e3720838376_ + _hd3720738379_ + _tl3720638381_ + _e3721138384_ + _hd3721038387_ + _tl3720938389_ + _e3721438392_ + _hd3721338395_ + _tl3721238397_ + _e3721738400_ + _hd3721638403_ + _tl3721538405_ + _e3722038408_ + _hd3721938411_ + _tl3721838413_ + _e3722338416_ + _hd3722238419_ + _tl3722138421_ + _e3722638424_ + _hd3722538427_ + _tl3722438429_ + _e3722938432_ + _hd3722838435_ + _tl3722738437_ + _e3723238440_ + _hd3723138443_ + _tl3723038445_ + ___splice4442444425_ + _target3723338448_ + _tl3723538450_) + (___kont4444244443_)))) + (___kont4444244443_)) + (___kont4444244443_)))) + (___kont4444244443_)) + (___kont4444244443_)) + (___kont4444244443_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4444244443_)))) + (___match4492144922_ + _e3719638344_ + _hd3719538347_ + _tl3719438349_ + _e3719938352_ + _hd3719838355_ + _tl3719738357_ + _e3720238360_ + _hd3720138363_ + _tl3720038365_ + _e3720538368_ + _hd3720438371_ + _tl3720338373_ + _e3720838376_ + _hd3720738379_ + _tl3720638381_ + _e3721138384_ + _hd3721038387_ + _tl3720938389_ + _e3721438392_ + _hd3721338395_ + _tl3721238397_ + _e3721738400_ + _hd3721638403_ + _tl3721538405_)) + (___match4492144922_ + _e3719638344_ + _hd3719538347_ + _tl3719438349_ + _e3719938352_ + _hd3719838355_ + _tl3719738357_ + _e3720238360_ + _hd3720138363_ + _tl3720038365_ + _e3720538368_ + _hd3720438371_ + _tl3720338373_ + _e3720838376_ + _hd3720738379_ + _tl3720638381_ + _e3721138384_ + _hd3721038387_ + _tl3720938389_ + _e3721438392_ + _hd3721338395_ + _tl3721238397_ + _e3721738400_ + _hd3721638403_ + _tl3721538405_)))) + (___match4492144922_ + _e3719638344_ + _hd3719538347_ + _tl3719438349_ + _e3719938352_ + _hd3719838355_ + _tl3719738357_ + _e3720238360_ + _hd3720138363_ + _tl3720038365_ + _e3720538368_ + _hd3720438371_ + _tl3720338373_ + _e3720838376_ + _hd3720738379_ + _tl3720638381_ + _e3721138384_ + _hd3721038387_ + _tl3720938389_ + _e3721438392_ + _hd3721338395_ + _tl3721238397_ + _e3721738400_ + _hd3721638403_ + _tl3721538405_)) + (___match4470744708_ + _e3719638344_ + _hd3719538347_ + _tl3719438349_ + _e3719938352_ + _hd3719838355_ + _tl3719738357_ + _e3720238360_ + _hd3720138363_ + _tl3720038365_ + _e3720538368_ + _hd3720438371_ + _tl3720338373_ + _e3720838376_ + _hd3720738379_ + _tl3720638381_ + _e3721138384_ + _hd3721038387_ + _tl3720938389_ + _e3721438392_ + _hd3721338395_ + _tl3721238397_ + _e3721738400_ + _hd3721638403_ + _tl3721538405_ + _e3722038408_ + _hd3721938411_ + _tl3721838413_)))) + (___match4452944530_ + (lambda (_e3715238536_ + _hd3715138539_ + _tl3715038541_ + _e3715538544_ + _hd3715438547_ + _tl3715338549_ + _e3715838552_ + _hd3715738555_ + _tl3715638557_ + _e3716138560_ + _hd3716038563_ + _tl3715938565_ + _e3716438568_ + _hd3716338571_ + _tl3716238573_ + _e3716738576_ + _hd3716638579_ + _tl3716538581_ + _e3717038584_ + _hd3716938587_ + _tl3716838589_ + _e3717338592_ + _hd3717238595_ + _tl3717138597_ + _e3717638600_ + _hd3717538603_ + _tl3717438605_ + _e3717938608_ + _hd3717838611_ + _tl3717738613_ + ___splice4442044421_ + _target3718038616_ + _tl3718238618_) + (letrec ((_loop3718338621_ + (lambda (_hd3718138624_ _args3718738626_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3718138624_)) + (let ((_e3718438629_ + (let () + (declare (not safe)) + (gx#stx-e _hd3718138624_)))) + (let ((_lp-tl3718638634_ (let () (declare (not safe)) - (##cdr _e3462236067_))) - (_lp-hd3462336070_ + (##cdr _e3718438629_))) + (_lp-hd3718538632_ (let () (declare (not safe)) - (##car _e3462236067_)))) - (_loop3462136059_ - _lp-tl3462436072_ - (cons _lp-hd3462336070_ - _args3462536064_)))) - (let ((_args3462636075_ - (reverse _args3462536064_))) - (let ((_L36078_ _args3462636075_) - (_L36079_ _hd3461636049_) - (_L36080_ _hd3460736025_) - (_L36081_ _hd3459836001_)) - (if (and (gxc#runtime-identifier=? - _L36081_ - 'call-method) - (gx#free-identifier=? - _L36080_ - _self34562_)) - (___kont4185641857_ - _L36078_ - _L36079_ - _L36080_ - _L36081_) - (___match4215542156_ - _e3458835974_ - _hd3458935977_ - _tl3459035979_ - _e3459135982_ - _hd3459235985_ - _tl3459335987_ - _e3459435990_ - _hd3459535993_ - _tl3459635995_ - _e3459735998_ - _hd3459836001_ - _tl3459936003_ - _e3460036006_ - _hd3460136009_ - _tl3460236011_ - _e3460336014_ - _hd3460436017_ - _tl3460536019_ - _e3460636022_ - _hd3460736025_ - _tl3460836027_ - _e3460936030_ - _hd3461036033_ - _tl3461136035_ - _e3461236038_ - _hd3461336041_ - _tl3461436043_ - _e3461536046_ - _hd3461636049_ - _tl3461736051_)))))))) - (_loop3462136059_ _target3461836054_ '()))))) - (if (gx#stx-pair? ___stx4185441855_) - (let ((_e3458835974_ (gx#stx-e ___stx4185441855_))) - (let ((_tl3459035979_ + (##car _e3718438629_)))) + (let ((__tmp45801 + (let () + (declare (not safe)) + (cons _lp-hd3718538632_ + _args3718738626_)))) + (declare (not safe)) + (_loop3718338621_ + _lp-tl3718638634_ + __tmp45801)))) + (let ((_args3718838637_ + (let () + (declare (not safe)) + (reverse _args3718738626_)))) + (let ((_L38640_ _args3718838637_) + (_L38641_ _hd3717838611_) + (_L38642_ _hd3716938587_) + (_L38643_ _hd3716038563_)) + (if (and (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L38643_ + 'call-method)) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L38642_ + _self37124_))) + (___kont4441844419_ + _L38640_ + _L38641_ + _L38642_ + _L38643_) + (___match4471744718_ + _e3715238536_ + _hd3715138539_ + _tl3715038541_ + _e3715538544_ + _hd3715438547_ + _tl3715338549_ + _e3715838552_ + _hd3715738555_ + _tl3715638557_ + _e3716138560_ + _hd3716038563_ + _tl3715938565_ + _e3716438568_ + _hd3716338571_ + _tl3716238573_ + _e3716738576_ + _hd3716638579_ + _tl3716538581_ + _e3717038584_ + _hd3716938587_ + _tl3716838589_ + _e3717338592_ + _hd3717238595_ + _tl3717138597_ + _e3717638600_ + _hd3717538603_ + _tl3717438605_ + _e3717938608_ + _hd3717838611_ + _tl3717738613_)))))))) + (let () + (declare (not safe)) + (_loop3718338621_ _target3718038616_ '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx4441644417_)) + (let ((_e3715238536_ + (let () + (declare (not safe)) + (gx#stx-e ___stx4441644417_)))) + (let ((_tl3715038541_ (let () (declare (not safe)) - (##cdr _e3458835974_))) - (_hd3458935977_ + (##cdr _e3715238536_))) + (_hd3715138539_ (let () (declare (not safe)) - (##car _e3458835974_)))) - (if (gx#stx-pair? _tl3459035979_) - (let ((_e3459135982_ (gx#stx-e _tl3459035979_))) - (let ((_tl3459335987_ + (##car _e3715238536_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3715038541_)) + (let ((_e3715538544_ + (let () + (declare (not safe)) + (gx#stx-e _tl3715038541_)))) + (let ((_tl3715338549_ (let () (declare (not safe)) - (##cdr _e3459135982_))) - (_hd3459235985_ + (##cdr _e3715538544_))) + (_hd3715438547_ (let () (declare (not safe)) - (##car _e3459135982_)))) - (if (gx#stx-pair? _hd3459235985_) - (let ((_e3459435990_ - (gx#stx-e _hd3459235985_))) - (let ((_tl3459635995_ + (##car _e3715538544_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3715438547_)) + (let ((_e3715838552_ + (let () + (declare (not safe)) + (gx#stx-e _hd3715438547_)))) + (let ((_tl3715638557_ (let () (declare (not safe)) - (##cdr _e3459435990_))) - (_hd3459535993_ + (##cdr _e3715838552_))) + (_hd3715738555_ (let () (declare (not safe)) - (##car _e3459435990_)))) - (if (gx#identifier? _hd3459535993_) - (if (gx#stx-eq? - '%#ref - _hd3459535993_) - (if (gx#stx-pair? - _tl3459635995_) - (let ((_e3459735998_ - (gx#stx-e - _tl3459635995_))) - (let ((_tl3459936003_ + (##car _e3715838552_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3715738555_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd3715738555_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3715638557_)) + (let ((_e3716138560_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl3715638557_)))) + (let ((_tl3715938565_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3459735998_))) - (_hd3459836001_ - (let () (declare (not safe)) (##car _e3459735998_)))) - (if (gx#stx-null? _tl3459936003_) - (if (gx#stx-pair? _tl3459335987_) - (let ((_e3460036006_ (gx#stx-e _tl3459335987_))) - (let ((_tl3460236011_ + (##cdr _e3716138560_))) + (_hd3716038563_ + (let () (declare (not safe)) (##car _e3716138560_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl3715938565_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3715338549_)) + (let ((_e3716438568_ + (let () + (declare (not safe)) + (gx#stx-e _tl3715338549_)))) + (let ((_tl3716238573_ (let () (declare (not safe)) - (##cdr _e3460036006_))) - (_hd3460136009_ + (##cdr _e3716438568_))) + (_hd3716338571_ (let () (declare (not safe)) - (##car _e3460036006_)))) - (if (gx#stx-pair? _hd3460136009_) - (let ((_e3460336014_ - (gx#stx-e _hd3460136009_))) - (let ((_tl3460536019_ + (##car _e3716438568_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3716338571_)) + (let ((_e3716738576_ + (let () + (declare (not safe)) + (gx#stx-e _hd3716338571_)))) + (let ((_tl3716538581_ (let () (declare (not safe)) - (##cdr _e3460336014_))) - (_hd3460436017_ + (##cdr _e3716738576_))) + (_hd3716638579_ (let () (declare (not safe)) - (##car _e3460336014_)))) - (if (gx#identifier? _hd3460436017_) - (if (gx#stx-eq? '%#ref _hd3460436017_) - (if (gx#stx-pair? _tl3460536019_) - (let ((_e3460636022_ - (gx#stx-e - _tl3460536019_))) - (let ((_tl3460836027_ + (##car _e3716738576_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3716638579_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd3716638579_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3716538581_)) + (let ((_e3717038584_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3716538581_)))) + (let ((_tl3716838589_ (let () (declare (not safe)) - (##cdr _e3460636022_))) - (_hd3460736025_ + (##cdr _e3717038584_))) + (_hd3716938587_ (let () (declare (not safe)) - (##car _e3460636022_)))) - (if (gx#stx-null? - _tl3460836027_) - (if (gx#stx-pair? - _tl3460236011_) - (let ((_e3460936030_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl3460236011_))) - (let ((_tl3461136035_ + (##car _e3717038584_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3716838589_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl3716238573_)) + (let ((_e3717338592_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl3716238573_)))) + (let ((_tl3717138597_ (let () (declare (not safe)) - (##cdr _e3460936030_))) - (_hd3461036033_ + (##cdr _e3717338592_))) + (_hd3717238595_ (let () (declare (not safe)) - (##car _e3460936030_)))) - (if (gx#stx-pair? _hd3461036033_) - (let ((_e3461236038_ (gx#stx-e _hd3461036033_))) - (let ((_tl3461436043_ + (##car _e3717338592_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3717238595_)) + (let ((_e3717638600_ + (let () + (declare (not safe)) + (gx#stx-e _hd3717238595_)))) + (let ((_tl3717438605_ (let () (declare (not safe)) - (##cdr _e3461236038_))) - (_hd3461336041_ + (##cdr _e3717638600_))) + (_hd3717538603_ (let () (declare (not safe)) - (##car _e3461236038_)))) - (if (gx#identifier? _hd3461336041_) - (if (gx#stx-eq? '%#quote _hd3461336041_) - (if (gx#stx-pair? _tl3461436043_) - (let ((_e3461536046_ - (gx#stx-e _tl3461436043_))) - (let ((_tl3461736051_ + (##car _e3717638600_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3717538603_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd3717538603_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3717438605_)) + (let ((_e3717938608_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3717438605_)))) + (let ((_tl3717738613_ (let () (declare (not safe)) - (##cdr _e3461536046_))) - (_hd3461636049_ + (##cdr _e3717938608_))) + (_hd3717838611_ (let () (declare (not safe)) - (##car _e3461536046_)))) - (if (gx#stx-null? - _tl3461736051_) - (if (gx#stx-pair/null? - _tl3461136035_) - (let ((___splice4185841859_ - (gx#syntax-split-splice - _tl3461136035_ - '0))) - (let ((_tl3462036056_ + (##car _e3717938608_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3717738613_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3717138597_)) + (let ((___splice4442044421_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#syntax-split-splice _tl3717138597_ '0)))) + (let ((_tl3718238618_ (let () (declare (not safe)) - (##vector-ref ___splice4185841859_ '1))) - (_target3461836054_ + (##vector-ref ___splice4442044421_ '1))) + (_target3718038616_ (let () (declare (not safe)) - (##vector-ref ___splice4185841859_ '0)))) - (if (gx#stx-null? _tl3462036056_) - (___match4196741968_ - _e3458835974_ - _hd3458935977_ - _tl3459035979_ - _e3459135982_ - _hd3459235985_ - _tl3459335987_ - _e3459435990_ - _hd3459535993_ - _tl3459635995_ - _e3459735998_ - _hd3459836001_ - _tl3459936003_ - _e3460036006_ - _hd3460136009_ - _tl3460236011_ - _e3460336014_ - _hd3460436017_ - _tl3460536019_ - _e3460636022_ - _hd3460736025_ - _tl3460836027_ - _e3460936030_ - _hd3461036033_ - _tl3461136035_ - _e3461236038_ - _hd3461336041_ - _tl3461436043_ - _e3461536046_ - _hd3461636049_ - _tl3461736051_ - ___splice4185841859_ - _target3461836054_ - _tl3462036056_) - (___match4215542156_ - _e3458835974_ - _hd3458935977_ - _tl3459035979_ - _e3459135982_ - _hd3459235985_ - _tl3459335987_ - _e3459435990_ - _hd3459535993_ - _tl3459635995_ - _e3459735998_ - _hd3459836001_ - _tl3459936003_ - _e3460036006_ - _hd3460136009_ - _tl3460236011_ - _e3460336014_ - _hd3460436017_ - _tl3460536019_ - _e3460636022_ - _hd3460736025_ - _tl3460836027_ - _e3460936030_ - _hd3461036033_ - _tl3461136035_ - _e3461236038_ - _hd3461336041_ - _tl3461436043_ - _e3461536046_ - _hd3461636049_ - _tl3461736051_)))) - (___match4215542156_ - _e3458835974_ - _hd3458935977_ - _tl3459035979_ - _e3459135982_ - _hd3459235985_ - _tl3459335987_ - _e3459435990_ - _hd3459535993_ - _tl3459635995_ - _e3459735998_ - _hd3459836001_ - _tl3459936003_ - _e3460036006_ - _hd3460136009_ - _tl3460236011_ - _e3460336014_ - _hd3460436017_ - _tl3460536019_ - _e3460636022_ - _hd3460736025_ - _tl3460836027_ - _e3460936030_ - _hd3461036033_ - _tl3461136035_ - _e3461236038_ - _hd3461336041_ - _tl3461436043_ - _e3461536046_ - _hd3461636049_ - _tl3461736051_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4235942360_ - _e3458835974_ - _hd3458935977_ - _tl3459035979_ - _e3459135982_ - _hd3459235985_ - _tl3459335987_ - _e3459435990_ - _hd3459535993_ - _tl3459635995_ - _e3459735998_ - _hd3459836001_ - _tl3459936003_ - _e3460036006_ - _hd3460136009_ - _tl3460236011_ - _e3460336014_ - _hd3460436017_ - _tl3460536019_ - _e3460636022_ - _hd3460736025_ - _tl3460836027_ - _e3460936030_ - _hd3461036033_ - _tl3461136035_)))) - (___match4235942360_ - _e3458835974_ - _hd3458935977_ - _tl3459035979_ - _e3459135982_ - _hd3459235985_ - _tl3459335987_ - _e3459435990_ - _hd3459535993_ - _tl3459635995_ - _e3459735998_ - _hd3459836001_ - _tl3459936003_ - _e3460036006_ - _hd3460136009_ - _tl3460236011_ - _e3460336014_ - _hd3460436017_ - _tl3460536019_ - _e3460636022_ - _hd3460736025_ - _tl3460836027_ - _e3460936030_ - _hd3461036033_ - _tl3461136035_)) - (___match4203542036_ - _e3458835974_ - _hd3458935977_ - _tl3459035979_ - _e3459135982_ - _hd3459235985_ - _tl3459335987_ - _e3459435990_ - _hd3459535993_ - _tl3459635995_ - _e3459735998_ - _hd3459836001_ - _tl3459936003_ - _e3460036006_ - _hd3460136009_ - _tl3460236011_ - _e3460336014_ - _hd3460436017_ - _tl3460536019_ - _e3460636022_ - _hd3460736025_ - _tl3460836027_ - _e3460936030_ - _hd3461036033_ - _tl3461136035_ - _e3461236038_ - _hd3461336041_ - _tl3461436043_)) - (___match4235942360_ - _e3458835974_ - _hd3458935977_ - _tl3459035979_ - _e3459135982_ - _hd3459235985_ - _tl3459335987_ - _e3459435990_ - _hd3459535993_ - _tl3459635995_ - _e3459735998_ - _hd3459836001_ - _tl3459936003_ - _e3460036006_ - _hd3460136009_ - _tl3460236011_ - _e3460336014_ - _hd3460436017_ - _tl3460536019_ - _e3460636022_ - _hd3460736025_ - _tl3460836027_ - _e3460936030_ - _hd3461036033_ - _tl3461136035_)))) - (___match4235942360_ - _e3458835974_ - _hd3458935977_ - _tl3459035979_ - _e3459135982_ - _hd3459235985_ - _tl3459335987_ - _e3459435990_ - _hd3459535993_ - _tl3459635995_ - _e3459735998_ - _hd3459836001_ - _tl3459936003_ - _e3460036006_ - _hd3460136009_ - _tl3460236011_ - _e3460336014_ - _hd3460436017_ - _tl3460536019_ - _e3460636022_ - _hd3460736025_ - _tl3460836027_ - _e3460936030_ - _hd3461036033_ - _tl3461136035_)))) - (___match4229742298_ - _e3458835974_ - _hd3458935977_ - _tl3459035979_ - _e3459135982_ - _hd3459235985_ - _tl3459335987_ - _e3459435990_ - _hd3459535993_ - _tl3459635995_ - _e3459735998_ - _hd3459836001_ - _tl3459936003_ - _e3460036006_ - _hd3460136009_ - _tl3460236011_ - _e3460336014_ - _hd3460436017_ - _tl3460536019_ - _e3460636022_ - _hd3460736025_ - _tl3460836027_)) - (___kont4188041881_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4188041881_)) - (___kont4188041881_)) - (___kont4188041881_)))) - (___kont4188041881_)))) - (___kont4188041881_)) - (___kont4188041881_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4188041881_)) - (___kont4188041881_)) - (___kont4188041881_)))) - (___kont4188041881_)))) - (___kont4188041881_)))) - (___kont4188041881_)))))))))) + (##vector-ref ___splice4442044421_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3718238618_)) + (___match4452944530_ + _e3715238536_ + _hd3715138539_ + _tl3715038541_ + _e3715538544_ + _hd3715438547_ + _tl3715338549_ + _e3715838552_ + _hd3715738555_ + _tl3715638557_ + _e3716138560_ + _hd3716038563_ + _tl3715938565_ + _e3716438568_ + _hd3716338571_ + _tl3716238573_ + _e3716738576_ + _hd3716638579_ + _tl3716538581_ + _e3717038584_ + _hd3716938587_ + _tl3716838589_ + _e3717338592_ + _hd3717238595_ + _tl3717138597_ + _e3717638600_ + _hd3717538603_ + _tl3717438605_ + _e3717938608_ + _hd3717838611_ + _tl3717738613_ + ___splice4442044421_ + _target3718038616_ + _tl3718238618_) + (___match4471744718_ + _e3715238536_ + _hd3715138539_ + _tl3715038541_ + _e3715538544_ + _hd3715438547_ + _tl3715338549_ + _e3715838552_ + _hd3715738555_ + _tl3715638557_ + _e3716138560_ + _hd3716038563_ + _tl3715938565_ + _e3716438568_ + _hd3716338571_ + _tl3716238573_ + _e3716738576_ + _hd3716638579_ + _tl3716538581_ + _e3717038584_ + _hd3716938587_ + _tl3716838589_ + _e3717338592_ + _hd3717238595_ + _tl3717138597_ + _e3717638600_ + _hd3717538603_ + _tl3717438605_ + _e3717938608_ + _hd3717838611_ + _tl3717738613_)))) + (___match4471744718_ + _e3715238536_ + _hd3715138539_ + _tl3715038541_ + _e3715538544_ + _hd3715438547_ + _tl3715338549_ + _e3715838552_ + _hd3715738555_ + _tl3715638557_ + _e3716138560_ + _hd3716038563_ + _tl3715938565_ + _e3716438568_ + _hd3716338571_ + _tl3716238573_ + _e3716738576_ + _hd3716638579_ + _tl3716538581_ + _e3717038584_ + _hd3716938587_ + _tl3716838589_ + _e3717338592_ + _hd3717238595_ + _tl3717138597_ + _e3717638600_ + _hd3717538603_ + _tl3717438605_ + _e3717938608_ + _hd3717838611_ + _tl3717738613_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match4492144922_ + _e3715238536_ + _hd3715138539_ + _tl3715038541_ + _e3715538544_ + _hd3715438547_ + _tl3715338549_ + _e3715838552_ + _hd3715738555_ + _tl3715638557_ + _e3716138560_ + _hd3716038563_ + _tl3715938565_ + _e3716438568_ + _hd3716338571_ + _tl3716238573_ + _e3716738576_ + _hd3716638579_ + _tl3716538581_ + _e3717038584_ + _hd3716938587_ + _tl3716838589_ + _e3717338592_ + _hd3717238595_ + _tl3717138597_)))) + (___match4492144922_ + _e3715238536_ + _hd3715138539_ + _tl3715038541_ + _e3715538544_ + _hd3715438547_ + _tl3715338549_ + _e3715838552_ + _hd3715738555_ + _tl3715638557_ + _e3716138560_ + _hd3716038563_ + _tl3715938565_ + _e3716438568_ + _hd3716338571_ + _tl3716238573_ + _e3716738576_ + _hd3716638579_ + _tl3716538581_ + _e3717038584_ + _hd3716938587_ + _tl3716838589_ + _e3717338592_ + _hd3717238595_ + _tl3717138597_)) + (___match4459744598_ + _e3715238536_ + _hd3715138539_ + _tl3715038541_ + _e3715538544_ + _hd3715438547_ + _tl3715338549_ + _e3715838552_ + _hd3715738555_ + _tl3715638557_ + _e3716138560_ + _hd3716038563_ + _tl3715938565_ + _e3716438568_ + _hd3716338571_ + _tl3716238573_ + _e3716738576_ + _hd3716638579_ + _tl3716538581_ + _e3717038584_ + _hd3716938587_ + _tl3716838589_ + _e3717338592_ + _hd3717238595_ + _tl3717138597_ + _e3717638600_ + _hd3717538603_ + _tl3717438605_)) + (___match4492144922_ + _e3715238536_ + _hd3715138539_ + _tl3715038541_ + _e3715538544_ + _hd3715438547_ + _tl3715338549_ + _e3715838552_ + _hd3715738555_ + _tl3715638557_ + _e3716138560_ + _hd3716038563_ + _tl3715938565_ + _e3716438568_ + _hd3716338571_ + _tl3716238573_ + _e3716738576_ + _hd3716638579_ + _tl3716538581_ + _e3717038584_ + _hd3716938587_ + _tl3716838589_ + _e3717338592_ + _hd3717238595_ + _tl3717138597_)))) + (___match4492144922_ + _e3715238536_ + _hd3715138539_ + _tl3715038541_ + _e3715538544_ + _hd3715438547_ + _tl3715338549_ + _e3715838552_ + _hd3715738555_ + _tl3715638557_ + _e3716138560_ + _hd3716038563_ + _tl3715938565_ + _e3716438568_ + _hd3716338571_ + _tl3716238573_ + _e3716738576_ + _hd3716638579_ + _tl3716538581_ + _e3717038584_ + _hd3716938587_ + _tl3716838589_ + _e3717338592_ + _hd3717238595_ + _tl3717138597_)))) + (___match4485944860_ + _e3715238536_ + _hd3715138539_ + _tl3715038541_ + _e3715538544_ + _hd3715438547_ + _tl3715338549_ + _e3715838552_ + _hd3715738555_ + _tl3715638557_ + _e3716138560_ + _hd3716038563_ + _tl3715938565_ + _e3716438568_ + _hd3716338571_ + _tl3716238573_ + _e3716738576_ + _hd3716638579_ + _tl3716538581_ + _e3717038584_ + _hd3716938587_ + _tl3716838589_)) + (___kont4444244443_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4444244443_)) + (___kont4444244443_)) + (___kont4444244443_)))) + (___kont4444244443_)))) + (___kont4444244443_)) + (___kont4444244443_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4444244443_)) + (___kont4444244443_)) + (___kont4444244443_)))) + (___kont4444244443_)))) + (___kont4444244443_)))) + (___kont4444244443_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index 53b4913dd..340ab95e2 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__0.scm @@ -1,15363 +1,21596 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1695199292) + (define gerbil/compiler/optimize-top::timestamp 1695292406) (begin (define gxc#&collect-top-level-type-info - (make-promise - (lambda () - (let ((_tbl31177_ (make-table 'test: eq?))) - (hash-copy! _tbl31177_ (force gxc#&void)) - (table-set! _tbl31177_ '%#begin gxc#collect-begin%) - (table-set! _tbl31177_ '%#begin-syntax gxc#collect-begin-syntax%) - (table-set! _tbl31177_ '%#module gxc#collect-module%) - (table-set! - _tbl31177_ - '%#define-values - gxc#collect-top-level-type-define-values%) - _tbl31177_)))) + (let ((__tmp36668 + (lambda () + (let ((_tbl33340_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp36669 + (let () (declare (not safe)) (force gxc#&void)))) + (declare (not safe)) + (hash-copy! _tbl33340_ __tmp36669)) + (let () + (declare (not safe)) + (table-set! _tbl33340_ '%#begin gxc#collect-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl33340_ + '%#begin-syntax + gxc#collect-begin-syntax%)) + (let () + (declare (not safe)) + (table-set! _tbl33340_ '%#module gxc#collect-module%)) + (let () + (declare (not safe)) + (table-set! + _tbl33340_ + '%#define-values + gxc#collect-top-level-type-define-values%)) + _tbl33340_)))) + (declare (not safe)) + (make-promise __tmp36668))) (define gxc#apply-collect-top-level-type-info - (lambda (_stx31170_ . _args31172_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx31170_ _args31172_)) - gxc#current-compile-methods - (force gxc#&collect-top-level-type-info)))) + (lambda (_stx33333_ . _args33335_) + (let ((__tmp36671 + (lambda () (apply gxc#compile-e _stx33333_ _args33335_))) + (__tmp36670 + (let () + (declare (not safe)) + (force gxc#&collect-top-level-type-info)))) + (declare (not safe)) + (call-with-parameters + __tmp36671 + gxc#current-compile-methods + __tmp36670)))) (define gxc#&basic-expression-top-level-type - (make-promise - (lambda () - (let ((_tbl31167_ (make-table 'test: eq?))) - (hash-copy! _tbl31167_ (force gxc#&false)) - (table-set! _tbl31167_ '%#call gxc#basic-expression-type-call%) - _tbl31167_)))) + (let ((__tmp36672 + (lambda () + (let ((_tbl33330_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp36673 + (let () (declare (not safe)) (force gxc#&false)))) + (declare (not safe)) + (hash-copy! _tbl33330_ __tmp36673)) + (let () + (declare (not safe)) + (table-set! + _tbl33330_ + '%#call + gxc#basic-expression-type-call%)) + _tbl33330_)))) + (declare (not safe)) + (make-promise __tmp36672))) (define gxc#apply-basic-expression-top-level-type - (lambda (_stx31160_ . _args31162_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx31160_ _args31162_)) - gxc#current-compile-methods - (force gxc#&basic-expression-top-level-type)))) + (lambda (_stx33323_ . _args33325_) + (let ((__tmp36675 + (lambda () (apply gxc#compile-e _stx33323_ _args33325_))) + (__tmp36674 + (let () + (declare (not safe)) + (force gxc#&basic-expression-top-level-type)))) + (declare (not safe)) + (call-with-parameters + __tmp36675 + gxc#current-compile-methods + __tmp36674)))) (define gxc#&collect-type-info - (make-promise - (lambda () - (let ((_tbl31157_ (make-table 'test: eq?))) - (hash-copy! _tbl31157_ (force gxc#&void)) - (table-set! _tbl31157_ '%#begin gxc#collect-begin%) - (table-set! _tbl31157_ '%#begin-syntax gxc#collect-begin-syntax%) - (table-set! _tbl31157_ '%#module gxc#collect-module%) - (table-set! - _tbl31157_ - '%#define-values - gxc#collect-type-define-values%) - (table-set! - _tbl31157_ - '%#begin-annotation - gxc#collect-begin-annotation%) - (table-set! _tbl31157_ '%#lambda gxc#collect-body-lambda%) - (table-set! _tbl31157_ '%#case-lambda gxc#collect-body-case-lambda%) - (table-set! _tbl31157_ '%#let-values gxc#collect-type-let-values%) - (table-set! - _tbl31157_ - '%#letrec-values - gxc#collect-type-let-values%) - (table-set! - _tbl31157_ - '%#letrec*-values - gxc#collect-type-let-values%) - (table-set! _tbl31157_ '%#call gxc#collect-type-call%) - (table-set! _tbl31157_ '%#if gxc#collect-operands) - (table-set! _tbl31157_ '%#set! gxc#collect-body-setq%) - _tbl31157_)))) + (let ((__tmp36676 + (lambda () + (let ((_tbl33320_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp36677 + (let () (declare (not safe)) (force gxc#&void)))) + (declare (not safe)) + (hash-copy! _tbl33320_ __tmp36677)) + (let () + (declare (not safe)) + (table-set! _tbl33320_ '%#begin gxc#collect-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl33320_ + '%#begin-syntax + gxc#collect-begin-syntax%)) + (let () + (declare (not safe)) + (table-set! _tbl33320_ '%#module gxc#collect-module%)) + (let () + (declare (not safe)) + (table-set! + _tbl33320_ + '%#define-values + gxc#collect-type-define-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl33320_ + '%#begin-annotation + gxc#collect-begin-annotation%)) + (let () + (declare (not safe)) + (table-set! _tbl33320_ '%#lambda gxc#collect-body-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl33320_ + '%#case-lambda + gxc#collect-body-case-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl33320_ + '%#let-values + gxc#collect-type-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl33320_ + '%#letrec-values + gxc#collect-type-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl33320_ + '%#letrec*-values + gxc#collect-type-let-values%)) + (let () + (declare (not safe)) + (table-set! _tbl33320_ '%#call gxc#collect-type-call%)) + (let () + (declare (not safe)) + (table-set! _tbl33320_ '%#if gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! _tbl33320_ '%#set! gxc#collect-body-setq%)) + _tbl33320_)))) + (declare (not safe)) + (make-promise __tmp36676))) (define gxc#apply-collect-type-info - (lambda (_stx31150_ . _args31152_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx31150_ _args31152_)) - gxc#current-compile-methods - (force gxc#&collect-type-info)))) + (lambda (_stx33313_ . _args33315_) + (let ((__tmp36679 + (lambda () (apply gxc#compile-e _stx33313_ _args33315_))) + (__tmp36678 + (let () (declare (not safe)) (force gxc#&collect-type-info)))) + (declare (not safe)) + (call-with-parameters + __tmp36679 + gxc#current-compile-methods + __tmp36678)))) (define gxc#&basic-expression-type - (make-promise - (lambda () - (let ((_tbl31147_ (make-table 'test: eq?))) - (hash-copy! _tbl31147_ (force gxc#&false)) - (table-set! _tbl31147_ '%#begin gxc#basic-expression-type-begin%) - (table-set! - _tbl31147_ - '%#begin-annotation - gxc#basic-expression-type-begin-annotation%) - (table-set! _tbl31147_ '%#lambda gxc#basic-expression-type-lambda%) - (table-set! - _tbl31147_ - '%#case-lambda - gxc#basic-expression-type-case-lambda%) - (table-set! - _tbl31147_ - '%#let-values - gxc#basic-expression-type-let-values%) - (table-set! - _tbl31147_ - '%#letrec-values - gxc#basic-expression-type-let-values%) - (table-set! - _tbl31147_ - '%#letrec*-values - gxc#basic-expression-type-let-values%) - (table-set! _tbl31147_ '%#call gxc#basic-expression-type-call%) - (table-set! _tbl31147_ '%#ref gxc#basic-expression-type-ref%) - _tbl31147_)))) + (let ((__tmp36680 + (lambda () + (let ((_tbl33310_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp36681 + (let () (declare (not safe)) (force gxc#&false)))) + (declare (not safe)) + (hash-copy! _tbl33310_ __tmp36681)) + (let () + (declare (not safe)) + (table-set! + _tbl33310_ + '%#begin + gxc#basic-expression-type-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl33310_ + '%#begin-annotation + gxc#basic-expression-type-begin-annotation%)) + (let () + (declare (not safe)) + (table-set! + _tbl33310_ + '%#lambda + gxc#basic-expression-type-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl33310_ + '%#case-lambda + gxc#basic-expression-type-case-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl33310_ + '%#let-values + gxc#basic-expression-type-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl33310_ + '%#letrec-values + gxc#basic-expression-type-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl33310_ + '%#letrec*-values + gxc#basic-expression-type-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl33310_ + '%#call + gxc#basic-expression-type-call%)) + (let () + (declare (not safe)) + (table-set! + _tbl33310_ + '%#ref + gxc#basic-expression-type-ref%)) + _tbl33310_)))) + (declare (not safe)) + (make-promise __tmp36680))) (define gxc#apply-basic-expression-type - (lambda (_stx31140_ . _args31142_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx31140_ _args31142_)) - gxc#current-compile-methods - (force gxc#&basic-expression-type)))) + (lambda (_stx33303_ . _args33305_) + (let ((__tmp36683 + (lambda () (apply gxc#compile-e _stx33303_ _args33305_))) + (__tmp36682 + (let () + (declare (not safe)) + (force gxc#&basic-expression-type)))) + (declare (not safe)) + (call-with-parameters + __tmp36683 + gxc#current-compile-methods + __tmp36682)))) (define gxc#&lift-top-lambdas - (make-promise - (lambda () - (let ((_tbl31137_ (make-table 'test: eq?))) - (hash-copy! _tbl31137_ (force gxc#&basic-xform)) - (table-set! - _tbl31137_ - '%#define-values - gxc#lift-top-lambda-define-values%) - (table-set! - _tbl31137_ - '%#let-values - gxc#lift-top-lambda-let-values%) - (table-set! - _tbl31137_ - '%#letrec-values - gxc#lift-top-lambda-letrec-values%) - (table-set! - _tbl31137_ - '%#letrec*-values - gxc#lift-top-lambda-letrec-values%) - _tbl31137_)))) + (let ((__tmp36684 + (lambda () + (let ((_tbl33300_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp36685 + (let () + (declare (not safe)) + (force gxc#&basic-xform)))) + (declare (not safe)) + (hash-copy! _tbl33300_ __tmp36685)) + (let () + (declare (not safe)) + (table-set! + _tbl33300_ + '%#define-values + gxc#lift-top-lambda-define-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl33300_ + '%#let-values + gxc#lift-top-lambda-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl33300_ + '%#letrec-values + gxc#lift-top-lambda-letrec-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl33300_ + '%#letrec*-values + gxc#lift-top-lambda-letrec-values%)) + _tbl33300_)))) + (declare (not safe)) + (make-promise __tmp36684))) (define gxc#apply-lift-top-lambdas - (lambda (_stx31130_ . _args31132_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx31130_ _args31132_)) - gxc#current-compile-methods - (force gxc#&lift-top-lambdas)))) + (lambda (_stx33293_ . _args33295_) + (let ((__tmp36687 + (lambda () (apply gxc#compile-e _stx33293_ _args33295_))) + (__tmp36686 + (let () (declare (not safe)) (force gxc#&lift-top-lambdas)))) + (declare (not safe)) + (call-with-parameters + __tmp36687 + gxc#current-compile-methods + __tmp36686)))) (define gxc#collect-top-level-type-define-values% - (lambda (_stx31033_) - (let* ((___stx3119031191_ _stx31033_) - (_g3103631056_ + (lambda (_stx33196_) + (let* ((___stx3335333354_ _stx33196_) + (_g3319933219_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3119031191_)))) - (let ((___kont3119231193_ - (lambda (_L31100_ _L31101_) - (let ((_sym31119_ (gxc#identifier-symbol _L31101_))) - (if (table-ref - (gxc#current-compile-mutators) - _sym31119_ - '#f) - (gxc#verbose - '"skipping type inference for mutable binding " - _sym31119_) - (let ((_type3112031122_ - (gxc#apply-basic-expression-top-level-type - _L31100_))) - (if _type3112031122_ - (let ((_type31125_ _type3112031122_)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3335333354_))))) + (let ((___kont3335533356_ + (lambda (_L33263_ _L33264_) + (let ((_sym33282_ + (let () + (declare (not safe)) + (gxc#identifier-symbol _L33264_)))) + (if (let ((__tmp36688 (gxc#current-compile-mutators))) + (declare (not safe)) + (table-ref __tmp36688 _sym33282_ '#f)) + (let () + (declare (not safe)) + (gxc#verbose + '"skipping type inference for mutable binding " + _sym33282_)) + (let ((_type3328333285_ + (let () + (declare (not safe)) + (gxc#apply-basic-expression-top-level-type + _L33263_)))) + (if _type3328333285_ + (let ((_type33288_ _type3328333285_)) + (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym31119_ - _type31125_)) + _sym33282_ + _type33288_)) '#f)))))) - (___kont3119431195_ (lambda () '#!void))) - (let ((___match3122331224_ - (lambda (_e3104031068_ - _hd3104131071_ - _tl3104231073_ - _e3104331076_ - _hd3104431079_ - _tl3104531081_ - _e3104631084_ - _hd3104731087_ - _tl3104831089_ - _e3104931092_ - _hd3105031095_ - _tl3105131097_) - (let ((_L31100_ _hd3105031095_) (_L31101_ _hd3104731087_)) - (if (gx#identifier? _L31101_) - (___kont3119231193_ _L31100_ _L31101_) - (___kont3119431195_)))))) - (if (gx#stx-pair? ___stx3119031191_) - (let ((_e3104031068_ (gx#stx-e ___stx3119031191_))) - (let ((_tl3104231073_ - (let () (declare (not safe)) (##cdr _e3104031068_))) - (_hd3104131071_ + (___kont3335733358_ (lambda () '#!void))) + (let ((___match3338633387_ + (lambda (_e3320533231_ + _hd3320433234_ + _tl3320333236_ + _e3320833239_ + _hd3320733242_ + _tl3320633244_ + _e3321133247_ + _hd3321033250_ + _tl3320933252_ + _e3321433255_ + _hd3321333258_ + _tl3321233260_) + (let ((_L33263_ _hd3321333258_) (_L33264_ _hd3321033250_)) + (if (let () + (declare (not safe)) + (gx#identifier? _L33264_)) + (___kont3335533356_ _L33263_ _L33264_) + (___kont3335733358_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3335333354_)) + (let ((_e3320533231_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3335333354_)))) + (let ((_tl3320333236_ + (let () (declare (not safe)) (##cdr _e3320533231_))) + (_hd3320433234_ (let () (declare (not safe)) - (##car _e3104031068_)))) - (if (gx#stx-pair? _tl3104231073_) - (let ((_e3104331076_ (gx#stx-e _tl3104231073_))) - (let ((_tl3104531081_ + (##car _e3320533231_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3320333236_)) + (let ((_e3320833239_ + (let () + (declare (not safe)) + (gx#stx-e _tl3320333236_)))) + (let ((_tl3320633244_ (let () (declare (not safe)) - (##cdr _e3104331076_))) - (_hd3104431079_ + (##cdr _e3320833239_))) + (_hd3320733242_ (let () (declare (not safe)) - (##car _e3104331076_)))) - (if (gx#stx-pair? _hd3104431079_) - (let ((_e3104631084_ - (gx#stx-e _hd3104431079_))) - (let ((_tl3104831089_ + (##car _e3320833239_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3320733242_)) + (let ((_e3321133247_ + (let () + (declare (not safe)) + (gx#stx-e _hd3320733242_)))) + (let ((_tl3320933252_ (let () (declare (not safe)) - (##cdr _e3104631084_))) - (_hd3104731087_ + (##cdr _e3321133247_))) + (_hd3321033250_ (let () (declare (not safe)) - (##car _e3104631084_)))) - (if (gx#stx-null? _tl3104831089_) - (if (gx#stx-pair? _tl3104531081_) - (let ((_e3104931092_ - (gx#stx-e - _tl3104531081_))) - (let ((_tl3105131097_ + (##car _e3321133247_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3320933252_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3320633244_)) + (let ((_e3321433255_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3320633244_)))) + (let ((_tl3321233260_ (let () (declare (not safe)) - (##cdr _e3104931092_))) - (_hd3105031095_ + (##cdr _e3321433255_))) + (_hd3321333258_ (let () (declare (not safe)) - (##car _e3104931092_)))) - (if (gx#stx-null? - _tl3105131097_) - (___match3122331224_ - _e3104031068_ - _hd3104131071_ - _tl3104231073_ - _e3104331076_ - _hd3104431079_ - _tl3104531081_ - _e3104631084_ - _hd3104731087_ - _tl3104831089_ - _e3104931092_ - _hd3105031095_ - _tl3105131097_) - (___kont3119431195_)))) - (___kont3119431195_)) - (___kont3119431195_)))) - (___kont3119431195_)))) - (___kont3119431195_)))) - (___kont3119431195_))))))) + (##car _e3321433255_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3321233260_)) + (___match3338633387_ + _e3320533231_ + _hd3320433234_ + _tl3320333236_ + _e3320833239_ + _hd3320733242_ + _tl3320633244_ + _e3321133247_ + _hd3321033250_ + _tl3320933252_ + _e3321433255_ + _hd3321333258_ + _tl3321233260_) + (___kont3335733358_)))) + (___kont3335733358_)) + (___kont3335733358_)))) + (___kont3335733358_)))) + (___kont3335733358_)))) + (___kont3335733358_))))))) (define gxc#collect-type-define-values% - (lambda (_stx30889_) - (let* ((___stx3122631227_ _stx30889_) - (_g3089230923_ + (lambda (_stx33052_) + (let* ((___stx3338933390_ _stx33052_) + (_g3305533086_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3122631227_)))) - (let ((___kont3122831229_ - (lambda (_L31005_ _L31006_) - (let ((_sym31022_ (gxc#identifier-symbol _L31006_))) - (if (table-ref - (gxc#current-compile-mutators) - _sym31022_ - '#f) - (gxc#verbose - '"skipping type inference for mutable binding " - _sym31022_) - (if (gxc#optimizer-lookup-type _sym31022_) - (gxc#verbose - '"skipping type inference for already declared type " - _sym31022_) - (let ((_type3102331025_ - (gxc#apply-basic-expression-type - _L31005_))) - (if _type3102331025_ - (let ((_type31028_ _type3102331025_)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3338933390_))))) + (let ((___kont3339133392_ + (lambda (_L33168_ _L33169_) + (let ((_sym33185_ + (let () + (declare (not safe)) + (gxc#identifier-symbol _L33169_)))) + (if (let ((__tmp36689 (gxc#current-compile-mutators))) + (declare (not safe)) + (table-ref __tmp36689 _sym33185_ '#f)) + (let () + (declare (not safe)) + (gxc#verbose + '"skipping type inference for mutable binding " + _sym33185_)) + (if (let () + (declare (not safe)) + (gxc#optimizer-lookup-type _sym33185_)) + (let () + (declare (not safe)) + (gxc#verbose + '"skipping type inference for already declared type " + _sym33185_)) + (let ((_type3318633188_ + (let () + (declare (not safe)) + (gxc#apply-basic-expression-type + _L33168_)))) + (if _type3318633188_ + (let ((_type33191_ _type3318633188_)) + (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym31022_ - _type31028_)) + _sym33185_ + _type33191_)) '#f)))) - (gxc#compile-e _L31005_)))) - (___kont3123031231_ - (lambda (_L30952_ _L30953_) (gxc#compile-e _L30952_)))) - (let ((___match3125931260_ - (lambda (_e3089630973_ - _hd3089730976_ - _tl3089830978_ - _e3089930981_ - _hd3090030984_ - _tl3090130986_ - _e3090230989_ - _hd3090330992_ - _tl3090430994_ - _e3090530997_ - _hd3090631000_ - _tl3090731002_) - (let ((_L31005_ _hd3090631000_) (_L31006_ _hd3090330992_)) - (if (gx#identifier? _L31006_) - (___kont3122831229_ _L31005_ _L31006_) - (___kont3123031231_ - _hd3090631000_ - _hd3090030984_)))))) - (if (gx#stx-pair? ___stx3122631227_) - (let ((_e3089630973_ (gx#stx-e ___stx3122631227_))) - (let ((_tl3089830978_ - (let () (declare (not safe)) (##cdr _e3089630973_))) - (_hd3089730976_ + (let () (declare (not safe)) (gxc#compile-e _L33168_))))) + (___kont3339333394_ + (lambda (_L33115_ _L33116_) + (let () (declare (not safe)) (gxc#compile-e _L33115_))))) + (let ((___match3342233423_ + (lambda (_e3306133136_ + _hd3306033139_ + _tl3305933141_ + _e3306433144_ + _hd3306333147_ + _tl3306233149_ + _e3306733152_ + _hd3306633155_ + _tl3306533157_ + _e3307033160_ + _hd3306933163_ + _tl3306833165_) + (let ((_L33168_ _hd3306933163_) (_L33169_ _hd3306633155_)) + (if (let () + (declare (not safe)) + (gx#identifier? _L33169_)) + (___kont3339133392_ _L33168_ _L33169_) + (___kont3339333394_ + _hd3306933163_ + _hd3306333147_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3338933390_)) + (let ((_e3306133136_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3338933390_)))) + (let ((_tl3305933141_ + (let () (declare (not safe)) (##cdr _e3306133136_))) + (_hd3306033139_ (let () (declare (not safe)) - (##car _e3089630973_)))) - (if (gx#stx-pair? _tl3089830978_) - (let ((_e3089930981_ (gx#stx-e _tl3089830978_))) - (let ((_tl3090130986_ + (##car _e3306133136_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3305933141_)) + (let ((_e3306433144_ + (let () + (declare (not safe)) + (gx#stx-e _tl3305933141_)))) + (let ((_tl3306233149_ (let () (declare (not safe)) - (##cdr _e3089930981_))) - (_hd3090030984_ + (##cdr _e3306433144_))) + (_hd3306333147_ (let () (declare (not safe)) - (##car _e3089930981_)))) - (if (gx#stx-pair? _hd3090030984_) - (let ((_e3090230989_ - (gx#stx-e _hd3090030984_))) - (let ((_tl3090430994_ + (##car _e3306433144_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3306333147_)) + (let ((_e3306733152_ + (let () + (declare (not safe)) + (gx#stx-e _hd3306333147_)))) + (let ((_tl3306533157_ (let () (declare (not safe)) - (##cdr _e3090230989_))) - (_hd3090330992_ + (##cdr _e3306733152_))) + (_hd3306633155_ (let () (declare (not safe)) - (##car _e3090230989_)))) - (if (gx#stx-null? _tl3090430994_) - (if (gx#stx-pair? _tl3090130986_) - (let ((_e3090530997_ - (gx#stx-e - _tl3090130986_))) - (let ((_tl3090731002_ + (##car _e3306733152_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3306533157_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3306233149_)) + (let ((_e3307033160_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3306233149_)))) + (let ((_tl3306833165_ (let () (declare (not safe)) - (##cdr _e3090530997_))) - (_hd3090631000_ + (##cdr _e3307033160_))) + (_hd3306933163_ (let () (declare (not safe)) - (##car _e3090530997_)))) - (if (gx#stx-null? - _tl3090731002_) - (___match3125931260_ - _e3089630973_ - _hd3089730976_ - _tl3089830978_ - _e3089930981_ - _hd3090030984_ - _tl3090130986_ - _e3090230989_ - _hd3090330992_ - _tl3090430994_ - _e3090530997_ - _hd3090631000_ - _tl3090731002_) - (_g3089230923_)))) - (_g3089230923_)) - (if (gx#stx-pair? _tl3090130986_) - (let ((_e3091630944_ - (gx#stx-e - _tl3090130986_))) - (let ((_tl3091830949_ + (##car _e3307033160_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3306833165_)) + (___match3342233423_ + _e3306133136_ + _hd3306033139_ + _tl3305933141_ + _e3306433144_ + _hd3306333147_ + _tl3306233149_ + _e3306733152_ + _hd3306633155_ + _tl3306533157_ + _e3307033160_ + _hd3306933163_ + _tl3306833165_) + (let () + (declare (not safe)) + (_g3305533086_))))) + (let () + (declare (not safe)) + (_g3305533086_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3306233149_)) + (let ((_e3308133107_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3306233149_)))) + (let ((_tl3307933112_ (let () (declare (not safe)) - (##cdr _e3091630944_))) - (_hd3091730947_ + (##cdr _e3308133107_))) + (_hd3308033110_ (let () (declare (not safe)) - (##car _e3091630944_)))) - (if (gx#stx-null? - _tl3091830949_) - (___kont3123031231_ - _hd3091730947_ - _hd3090030984_) - (_g3089230923_)))) - (_g3089230923_))))) - (if (gx#stx-pair? _tl3090130986_) - (let ((_e3091630944_ - (gx#stx-e _tl3090130986_))) - (let ((_tl3091830949_ + (##car _e3308133107_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3307933112_)) + (___kont3339333394_ + _hd3308033110_ + _hd3306333147_) + (let () + (declare (not safe)) + (_g3305533086_))))) + (let () + (declare (not safe)) + (_g3305533086_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3306233149_)) + (let ((_e3308133107_ + (let () + (declare (not safe)) + (gx#stx-e _tl3306233149_)))) + (let ((_tl3307933112_ (let () (declare (not safe)) - (##cdr _e3091630944_))) - (_hd3091730947_ + (##cdr _e3308133107_))) + (_hd3308033110_ (let () (declare (not safe)) - (##car _e3091630944_)))) - (if (gx#stx-null? _tl3091830949_) - (___kont3123031231_ - _hd3091730947_ - _hd3090030984_) - (_g3089230923_)))) - (_g3089230923_))))) - (_g3089230923_)))) - (_g3089230923_))))))) + (##car _e3308133107_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3307933112_)) + (___kont3339333394_ + _hd3308033110_ + _hd3306333147_) + (let () + (declare (not safe)) + (_g3305533086_))))) + (let () + (declare (not safe)) + (_g3305533086_)))))) + (let () (declare (not safe)) (_g3305533086_))))) + (let () (declare (not safe)) (_g3305533086_)))))))) (define gxc#collect-type-let-values% - (lambda (_stx30674_) - (letrec ((_collect-e30676_ - (lambda (_hd30833_ _expr30834_) - (let* ((___stx3128231283_ _hd30833_) - (_g3083730847_ + (lambda (_stx32837_) + (letrec ((_collect-e32839_ + (lambda (_hd32996_ _expr32997_) + (let* ((___stx3344533446_ _hd32996_) + (_g3300033010_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3128231283_)))) - (let ((___kont3128431285_ - (lambda (_L30867_) - (let ((_sym30878_ - (gxc#identifier-symbol _L30867_))) - (if (table-ref - (gxc#current-compile-mutators) - _sym30878_ - '#f) - (gxc#verbose - '"skipping type declaration for mutable binding " - _sym30878_) - (let ((_type3087930881_ - (gxc#apply-basic-expression-type - _expr30834_))) - (if _type3087930881_ - (let ((_type30884_ - _type3087930881_)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3344533446_))))) + (let ((___kont3344733448_ + (lambda (_L33030_) + (let ((_sym33041_ + (let () + (declare (not safe)) + (gxc#identifier-symbol _L33030_)))) + (if (let ((__tmp36690 + (gxc#current-compile-mutators))) + (declare (not safe)) + (table-ref __tmp36690 _sym33041_ '#f)) + (let () + (declare (not safe)) + (gxc#verbose + '"skipping type declaration for mutable binding " + _sym33041_)) + (let ((_type3304233044_ + (let () + (declare (not safe)) + (gxc#apply-basic-expression-type + _expr32997_)))) + (if _type3304233044_ + (let ((_type33047_ + _type3304233044_)) + (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym30878_ - _type30884_ + _sym33041_ + _type33047_ '#t)) '#f)))))) - (___kont3128631287_ (lambda () '#!void))) - (let ((___match3129531296_ - (lambda (_e3084030859_ - _hd3084130862_ - _tl3084230864_) - (let ((_L30867_ _hd3084130862_)) - (if (gx#identifier? _L30867_) - (___kont3128431285_ _L30867_) - (___kont3128631287_)))))) - (if (gx#stx-pair? ___stx3128231283_) - (let ((_e3084030859_ - (gx#stx-e ___stx3128231283_))) - (let ((_tl3084230864_ + (___kont3344933450_ (lambda () '#!void))) + (let ((___match3345833459_ + (lambda (_e3300533022_ + _hd3300433025_ + _tl3300333027_) + (let ((_L33030_ _hd3300433025_)) + (if (let () + (declare (not safe)) + (gx#identifier? _L33030_)) + (___kont3344733448_ _L33030_) + (___kont3344933450_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3344533446_)) + (let ((_e3300533022_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3344533446_)))) + (let ((_tl3300333027_ (let () (declare (not safe)) - (##cdr _e3084030859_))) - (_hd3084130862_ + (##cdr _e3300533022_))) + (_hd3300433025_ (let () (declare (not safe)) - (##car _e3084030859_)))) - (if (gx#stx-null? _tl3084230864_) - (___match3129531296_ - _e3084030859_ - _hd3084130862_ - _tl3084230864_) - (___kont3128631287_)))) - (___kont3128631287_)))))))) - (let* ((_g3067830713_ - (lambda (_g3067930710_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3067930710_))) - (_g3067730830_ - (lambda (_g3067930716_) - (if (gx#stx-pair? _g3067930716_) - (let ((_e3068330718_ (gx#stx-e _g3067930716_))) - (let ((_hd3068430721_ + (##car _e3300533022_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3300333027_)) + (___match3345833459_ + _e3300533022_ + _hd3300433025_ + _tl3300333027_) + (___kont3344933450_)))) + (___kont3344933450_)))))))) + (let* ((_g3284132876_ + (lambda (_g3284232873_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g3284232873_)))) + (_g3284032993_ + (lambda (_g3284232879_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g3284232879_)) + (let ((_e3284832881_ + (let () + (declare (not safe)) + (gx#stx-e _g3284232879_)))) + (let ((_hd3284732884_ (let () (declare (not safe)) - (##car _e3068330718_))) - (_tl3068530723_ + (##car _e3284832881_))) + (_tl3284632886_ (let () (declare (not safe)) - (##cdr _e3068330718_)))) - (if (gx#stx-pair? _tl3068530723_) - (let ((_e3068630726_ - (gx#stx-e _tl3068530723_))) - (let ((_hd3068730729_ + (##cdr _e3284832881_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3284632886_)) + (let ((_e3285132889_ + (let () + (declare (not safe)) + (gx#stx-e _tl3284632886_)))) + (let ((_hd3285032892_ (let () (declare (not safe)) - (##car _e3068630726_))) - (_tl3068830731_ + (##car _e3285132889_))) + (_tl3284932894_ (let () (declare (not safe)) - (##cdr _e3068630726_)))) - (if (gx#stx-pair/null? _hd3068730729_) - (let ((_g34507_ - (gx#syntax-split-splice - _hd3068730729_ - '0))) + (##cdr _e3285132889_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd3285032892_)) + (let ((_g36691_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd3285032892_ + '0)))) (begin - (let ((_g34508_ + (let ((_g36692_ (let () (declare (not safe)) - (if (##values? _g34507_) + (if (##values? _g36691_) (##vector-length - _g34507_) + _g36691_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g34508_ 2))) + (##fx= _g36692_ 2))) (error "Context expects 2 values" - _g34508_))) - (let ((_target3068930734_ + _g36692_))) + (let ((_target3285232897_ (let () (declare (not safe)) (##vector-ref - _g34507_ + _g36691_ 0))) - (_tl3069130736_ + (_tl3285432899_ (let () (declare (not safe)) (##vector-ref - _g34507_ + _g36691_ 1)))) - (if (gx#stx-null? _tl3069130736_) - (letrec ((_loop3069230739_ - (lambda (_hd3069030742_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr3069630744_ - _hd3069730746_) - (if (gx#stx-pair? _hd3069030742_) - (let ((_e3069330749_ (gx#stx-e _hd3069030742_))) - (let ((_lp-hd3069430752_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3285432899_)) + (letrec ((_loop3285532902_ + (lambda (_hd3285332905_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _expr3285932907_ + _hd3286032909_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3285332905_)) + (let ((_e3285632912_ + (let () + (declare (not safe)) + (gx#stx-e _hd3285332905_)))) + (let ((_lp-hd3285732915_ (let () (declare (not safe)) - (##car _e3069330749_))) - (_lp-tl3069530754_ + (##car _e3285632912_))) + (_lp-tl3285832917_ (let () (declare (not safe)) - (##cdr _e3069330749_)))) - (if (gx#stx-pair? _lp-hd3069430752_) - (let ((_e3070030757_ - (gx#stx-e _lp-hd3069430752_))) - (let ((_hd3070130760_ + (##cdr _e3285632912_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd3285732915_)) + (let ((_e3286532920_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd3285732915_)))) + (let ((_hd3286432923_ (let () (declare (not safe)) - (##car _e3070030757_))) - (_tl3070230762_ + (##car _e3286532920_))) + (_tl3286332925_ (let () (declare (not safe)) - (##cdr _e3070030757_)))) - (if (gx#stx-pair? _tl3070230762_) - (let ((_e3070330765_ - (gx#stx-e _tl3070230762_))) - (let ((_hd3070430768_ + (##cdr _e3286532920_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3286332925_)) + (let ((_e3286832928_ + (let () + (declare (not safe)) + (gx#stx-e _tl3286332925_)))) + (let ((_hd3286732931_ (let () (declare (not safe)) - (##car _e3070330765_))) - (_tl3070530770_ + (##car _e3286832928_))) + (_tl3286632933_ (let () (declare (not safe)) - (##cdr _e3070330765_)))) - (if (gx#stx-null? _tl3070530770_) - (_loop3069230739_ - _lp-tl3069530754_ - (cons _hd3070430768_ - _expr3069630744_) - (cons _hd3070130760_ - _hd3069730746_)) - (_g3067830713_ - _g3067930716_)))) - (_g3067830713_ _g3067930716_)))) - (_g3067830713_ _g3067930716_)))) - (let ((_expr3069830773_ (reverse _expr3069630744_)) - (_hd3069930775_ (reverse _hd3069730746_))) - (if (gx#stx-pair? _tl3068830731_) - (let ((_e3070630778_ - (gx#stx-e _tl3068830731_))) - (let ((_hd3070730781_ + (##cdr _e3286832928_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3286632933_)) + (let ((__tmp36700 + (let () + (declare (not safe)) + (cons _hd3286732931_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _expr3285932907_))) + (__tmp36699 + (let () + (declare (not safe)) + (cons _hd3286432923_ _hd3286032909_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_loop3285532902_ + _lp-tl3285832917_ + __tmp36700 + __tmp36699)) + (let () + (declare (not safe)) + (_g3284132876_ + _g3284232879_))))) + (let () + (declare (not safe)) + (_g3284132876_ _g3284232879_))))) + (let () + (declare (not safe)) + (_g3284132876_ _g3284232879_))))) + (let ((_expr3286132936_ + (let () + (declare (not safe)) + (reverse _expr3285932907_))) + (_hd3286232938_ + (let () + (declare (not safe)) + (reverse _hd3286032909_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3284932894_)) + (let ((_e3287132941_ + (let () + (declare (not safe)) + (gx#stx-e _tl3284932894_)))) + (let ((_hd3287032944_ (let () (declare (not safe)) - (##car _e3070630778_))) - (_tl3070830783_ + (##car _e3287132941_))) + (_tl3286932946_ (let () (declare (not safe)) - (##cdr _e3070630778_)))) - (if (gx#stx-null? _tl3070830783_) - ((lambda (_L30786_ _L30787_ _L30788_) - (for-each - _collect-e30676_ - (foldr1 (lambda (_g3080830811_ - _g3080930813_) - (cons _g3080830811_ - _g3080930813_)) - '() - _L30788_) - (foldr1 (lambda (_g3081530818_ - _g3081630820_) - (cons _g3081530818_ - _g3081630820_)) - '() - _L30787_)) - (for-each - gxc#compile-e - (foldr1 (lambda (_g3082230825_ - _g3082330827_) - (cons _g3082230825_ - _g3082330827_)) - '() - _L30787_)) - (gxc#compile-e _L30786_)) - _hd3070730781_ - _expr3069830773_ - _hd3069930775_) - (_g3067830713_ _g3067930716_)))) - (_g3067830713_ _g3067930716_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3069230739_ - _target3068930734_ - '() - '())) - (_g3067830713_ - _g3067930716_))))) - (_g3067830713_ _g3067930716_)))) - (_g3067830713_ _g3067930716_)))) - (_g3067830713_ _g3067930716_))))) - (_g3067730830_ _stx30674_))))) + (##cdr _e3287132941_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3286932946_)) + ((lambda (_L32949_ _L32950_ _L32951_) + (let ((__tmp36695 + (let ((__tmp36696 + (lambda (_g3297132974_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g3297232976_) + (let () + (declare (not safe)) + (cons _g3297132974_ _g3297232976_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp36696 + '() + _L32951_))) + (__tmp36693 + (let ((__tmp36694 + (lambda (_g3297832981_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g3297932983_) + (let () + (declare (not safe)) + (cons _g3297832981_ _g3297932983_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp36694 + '() + _L32950_)))) + (declare (not safe)) + (for-each + _collect-e32839_ + __tmp36695 + __tmp36693)) + (let ((__tmp36697 + (let ((__tmp36698 + (lambda (_g3298532988_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g3298632990_) + (let () + (declare (not safe)) + (cons _g3298532988_ _g3298632990_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp36698 + '() + _L32950_)))) + (declare (not safe)) + (for-each + gxc#compile-e + __tmp36697)) + (let () + (declare (not safe)) + (gxc#compile-e _L32949_))) + _hd3287032944_ + _expr3286132936_ + _hd3286232938_) + (let () + (declare (not safe)) + (_g3284132876_ _g3284232879_))))) + (let () + (declare (not safe)) + (_g3284132876_ _g3284232879_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop3285532902_ + _target3285232897_ + '() + '()))) + (let () + (declare (not safe)) + (_g3284132876_ + _g3284232879_)))))) + (let () + (declare (not safe)) + (_g3284132876_ _g3284232879_))))) + (let () + (declare (not safe)) + (_g3284132876_ _g3284232879_))))) + (let () + (declare (not safe)) + (_g3284132876_ _g3284232879_)))))) + (declare (not safe)) + (_g3284032993_ _stx32837_))))) (define gxc#collect-type-call% - (lambda (_stx30166_) - (let* ((___stx3129831299_ _stx30166_) - (_g3017030285_ + (lambda (_stx32329_) + (let* ((___stx3346133462_ _stx32329_) + (_g3233332448_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3129831299_)))) - (let ((___kont3130031301_ - (lambda (_L30624_ _L30625_ _L30626_ _L30627_ _L30628_) - (gxc#optimizer-declare-method!__% - (gxc#identifier-symbol _L30627_) - (gx#stx-e _L30626_) - (gxc#identifier-symbol _L30625_) - (gx#stx-e _L30624_)))) - (___kont3130231303_ - (lambda (_L30452_ _L30453_ _L30454_ _L30455_) - (gxc#optimizer-declare-method!__% - (gxc#identifier-symbol _L30454_) - (gx#stx-e _L30453_) - (gxc#identifier-symbol _L30452_) - '#f))) - (___kont3130431305_ - (lambda (_L30322_) - (for-each - gxc#compile-e - (foldr1 (lambda (_g3033530338_ _g3033630340_) - (cons _g3033530338_ _g3033630340_)) - '() - _L30322_))))) - (let* ((___match3155531556_ - (lambda (_e3026930290_ - _hd3027030293_ - _tl3027130295_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (letrec ((_loop3027530303_ - (lambda (_hd3027330306_ _expr3027930308_) - (if (gx#stx-pair? _hd3027330306_) - (let ((_e3027630311_ - (gx#stx-e _hd3027330306_))) - (let ((_lp-tl3027830316_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3346133462_))))) + (let ((___kont3346333464_ + (lambda (_L32787_ _L32788_ _L32789_ _L32790_ _L32791_) + (let ((__tmp36704 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L32790_))) + (__tmp36703 + (let () (declare (not safe)) (gx#stx-e _L32789_))) + (__tmp36702 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L32788_))) + (__tmp36701 + (let () (declare (not safe)) (gx#stx-e _L32787_)))) + (declare (not safe)) + (gxc#optimizer-declare-method!__% + __tmp36704 + __tmp36703 + __tmp36702 + __tmp36701)))) + (___kont3346533466_ + (lambda (_L32615_ _L32616_ _L32617_ _L32618_) + (let ((__tmp36707 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L32617_))) + (__tmp36706 + (let () (declare (not safe)) (gx#stx-e _L32616_))) + (__tmp36705 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L32615_)))) + (declare (not safe)) + (gxc#optimizer-declare-method!__% + __tmp36707 + __tmp36706 + __tmp36705 + '#f)))) + (___kont3346733468_ + (lambda (_L32485_) + (let ((__tmp36708 + (let ((__tmp36709 + (lambda (_g3249832501_ _g3249932503_) + (let () + (declare (not safe)) + (cons _g3249832501_ _g3249932503_))))) + (declare (not safe)) + (foldr1 __tmp36709 '() _L32485_)))) + (declare (not safe)) + (for-each gxc#compile-e __tmp36708))))) + (let* ((___match3371833719_ + (lambda (_e3243432453_ + _hd3243332456_ + _tl3243232458_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (letrec ((_loop3243832466_ + (lambda (_hd3243632469_ _expr3244232471_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3243632469_)) + (let ((_e3243932474_ + (let () + (declare (not safe)) + (gx#stx-e _hd3243632469_)))) + (let ((_lp-tl3244132479_ (let () (declare (not safe)) - (##cdr _e3027630311_))) - (_lp-hd3027730314_ + (##cdr _e3243932474_))) + (_lp-hd3244032477_ (let () (declare (not safe)) - (##car _e3027630311_)))) - (_loop3027530303_ - _lp-tl3027830316_ - (cons _lp-hd3027730314_ - _expr3027930308_)))) - (let ((_expr3028030319_ - (reverse _expr3027930308_))) - (___kont3130431305_ - _expr3028030319_)))))) - (_loop3027530303_ _target3027230298_ '())))) - (___match3143531436_ - (lambda (_e3017730496_ - _hd3017830499_ - _tl3017930501_ - _e3018030504_ - _hd3018130507_ - _tl3018230509_ - _e3018330512_ - _hd3018430515_ - _tl3018530517_ - _e3018630520_ - _hd3018730523_ - _tl3018830525_ - _e3018930528_ - _hd3019030531_ - _tl3019130533_ - _e3019230536_ - _hd3019330539_ - _tl3019430541_ - _e3019530544_ - _hd3019630547_ - _tl3019730549_ - _e3019830552_ - _hd3019930555_ - _tl3020030557_ - _e3020130560_ - _hd3020230563_ - _tl3020330565_ - _e3020430568_ - _hd3020530571_ - _tl3020630573_ - _e3020730576_ - _hd3020830579_ - _tl3020930581_ - _e3021030584_ - _hd3021130587_ - _tl3021230589_ - _e3021330592_ - _hd3021430595_ - _tl3021530597_ - _e3021630600_ - _hd3021730603_ - _tl3021830605_ - _e3021930608_ - _hd3022030611_ - _tl3022130613_ - _e3022230616_ - _hd3022330619_ - _tl3022430621_) - (let ((_L30624_ _hd3022330619_) - (_L30625_ _hd3021430595_) - (_L30626_ _hd3020530571_) - (_L30627_ _hd3019630547_) - (_L30628_ _hd3018730523_)) - (if (gxc#runtime-identifier=? _L30628_ 'bind-method!) - (___kont3130031301_ - _L30624_ - _L30625_ - _L30626_ - _L30627_ - _L30628_) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (##car _e3243932474_)))) + (let ((__tmp36710 + (let () + (declare (not safe)) + (cons _lp-hd3244032477_ + _expr3244232471_)))) + (declare (not safe)) + (_loop3243832466_ + _lp-tl3244132479_ + __tmp36710)))) + (let ((_expr3244332482_ + (let () + (declare (not safe)) + (reverse _expr3244232471_)))) + (___kont3346733468_ + _expr3244332482_)))))) + (let () + (declare (not safe)) + (_loop3243832466_ _target3243532461_ '()))))) + (___match3359833599_ + (lambda (_e3234232659_ + _hd3234132662_ + _tl3234032664_ + _e3234532667_ + _hd3234432670_ + _tl3234332672_ + _e3234832675_ + _hd3234732678_ + _tl3234632680_ + _e3235132683_ + _hd3235032686_ + _tl3234932688_ + _e3235432691_ + _hd3235332694_ + _tl3235232696_ + _e3235732699_ + _hd3235632702_ + _tl3235532704_ + _e3236032707_ + _hd3235932710_ + _tl3235832712_ + _e3236332715_ + _hd3236232718_ + _tl3236132720_ + _e3236632723_ + _hd3236532726_ + _tl3236432728_ + _e3236932731_ + _hd3236832734_ + _tl3236732736_ + _e3237232739_ + _hd3237132742_ + _tl3237032744_ + _e3237532747_ + _hd3237432750_ + _tl3237332752_ + _e3237832755_ + _hd3237732758_ + _tl3237632760_ + _e3238132763_ + _hd3238032766_ + _tl3237932768_ + _e3238432771_ + _hd3238332774_ + _tl3238232776_ + _e3238732779_ + _hd3238632782_ + _tl3238532784_) + (let ((_L32787_ _hd3238632782_) + (_L32788_ _hd3237732758_) + (_L32789_ _hd3236832734_) + (_L32790_ _hd3235932710_) + (_L32791_ _hd3235032686_)) + (if (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L32791_ + 'bind-method!)) + (___kont3346333464_ + _L32787_ + _L32788_ + _L32789_ + _L32790_ + _L32791_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))))) - (if (gx#stx-pair? ___stx3129831299_) - (let ((_e3017730496_ (gx#stx-e ___stx3129831299_))) - (let ((_tl3017930501_ - (let () (declare (not safe)) (##cdr _e3017730496_))) - (_hd3017830499_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3346133462_)) + (let ((_e3234232659_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3346133462_)))) + (let ((_tl3234032664_ + (let () (declare (not safe)) (##cdr _e3234232659_))) + (_hd3234132662_ (let () (declare (not safe)) - (##car _e3017730496_)))) - (if (gx#stx-pair? _tl3017930501_) - (let ((_e3018030504_ (gx#stx-e _tl3017930501_))) - (let ((_tl3018230509_ + (##car _e3234232659_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3234032664_)) + (let ((_e3234532667_ + (let () + (declare (not safe)) + (gx#stx-e _tl3234032664_)))) + (let ((_tl3234332672_ (let () (declare (not safe)) - (##cdr _e3018030504_))) - (_hd3018130507_ + (##cdr _e3234532667_))) + (_hd3234432670_ (let () (declare (not safe)) - (##car _e3018030504_)))) - (if (gx#stx-pair? _hd3018130507_) - (let ((_e3018330512_ - (gx#stx-e _hd3018130507_))) - (let ((_tl3018530517_ + (##car _e3234532667_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3234432670_)) + (let ((_e3234832675_ + (let () + (declare (not safe)) + (gx#stx-e _hd3234432670_)))) + (let ((_tl3234632680_ (let () (declare (not safe)) - (##cdr _e3018330512_))) - (_hd3018430515_ + (##cdr _e3234832675_))) + (_hd3234732678_ (let () (declare (not safe)) - (##car _e3018330512_)))) - (if (gx#identifier? _hd3018430515_) - (if (gx#stx-eq? - '%#ref - _hd3018430515_) - (if (gx#stx-pair? _tl3018530517_) - (let ((_e3018630520_ - (gx#stx-e - _tl3018530517_))) - (let ((_tl3018830525_ + (##car _e3234832675_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3234732678_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd3234732678_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3234632680_)) + (let ((_e3235132683_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3234632680_)))) + (let ((_tl3234932688_ (let () (declare (not safe)) - (##cdr _e3018630520_))) - (_hd3018730523_ + (##cdr _e3235132683_))) + (_hd3235032686_ (let () (declare (not safe)) - (##car _e3018630520_)))) - (if (gx#stx-null? - _tl3018830525_) - (if (gx#stx-pair? - _tl3018230509_) - (let ((_e3018930528_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl3018230509_))) - (let ((_tl3019130533_ + (##car _e3235132683_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl3234932688_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl3234332672_)) + (let ((_e3235432691_ + (let () + (declare (not safe)) + (gx#stx-e _tl3234332672_)))) + (let ((_tl3235232696_ (let () (declare (not safe)) - (##cdr _e3018930528_))) - (_hd3019030531_ + (##cdr _e3235432691_))) + (_hd3235332694_ (let () (declare (not safe)) - (##car _e3018930528_)))) - (if (gx#stx-pair? _hd3019030531_) - (let ((_e3019230536_ (gx#stx-e _hd3019030531_))) - (let ((_tl3019430541_ + (##car _e3235432691_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3235332694_)) + (let ((_e3235732699_ + (let () + (declare (not safe)) + (gx#stx-e _hd3235332694_)))) + (let ((_tl3235532704_ (let () (declare (not safe)) - (##cdr _e3019230536_))) - (_hd3019330539_ + (##cdr _e3235732699_))) + (_hd3235632702_ (let () (declare (not safe)) - (##car _e3019230536_)))) - (if (gx#identifier? _hd3019330539_) - (if (gx#stx-eq? '%#ref _hd3019330539_) - (if (gx#stx-pair? _tl3019430541_) - (let ((_e3019530544_ - (gx#stx-e - _tl3019430541_))) - (let ((_tl3019730549_ - (let () - (declare (not safe)) - (##cdr _e3019530544_))) - (_hd3019630547_ - (let () - (declare (not safe)) - (##car _e3019530544_)))) - (if (gx#stx-null? - _tl3019730549_) - (if (gx#stx-pair? - _tl3019130533_) - (let ((_e3019830552_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl3019130533_))) - (let ((_tl3020030557_ - (let () (declare (not safe)) (##cdr _e3019830552_))) - (_hd3019930555_ - (let () - (declare (not safe)) - (##car _e3019830552_)))) - (if (gx#stx-pair? _hd3019930555_) - (let ((_e3020130560_ (gx#stx-e _hd3019930555_))) - (let ((_tl3020330565_ - (let () + (##car _e3235732699_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3235632702_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3235632702_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3235532704_)) + (let ((_e3236032707_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3235532704_)))) + (let ((_tl3235832712_ + (let () + (declare (not safe)) + (##cdr _e3236032707_))) + (_hd3235932710_ + (let () + (declare (not safe)) + (##car _e3236032707_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3235832712_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl3235232696_)) + (let ((_e3236332715_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl3235232696_)))) + (let ((_tl3236132720_ + (let () (declare (not safe)) (##cdr _e3236332715_))) + (_hd3236232718_ + (let () + (declare (not safe)) + (##car _e3236332715_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3236232718_)) + (let ((_e3236632723_ + (let () + (declare (not safe)) + (gx#stx-e _hd3236232718_)))) + (let ((_tl3236432728_ + (let () (declare (not safe)) - (##cdr _e3020130560_))) - (_hd3020230563_ + (##cdr _e3236632723_))) + (_hd3236532726_ (let () (declare (not safe)) - (##car _e3020130560_)))) - (if (gx#identifier? _hd3020230563_) - (if (gx#stx-eq? '%#quote _hd3020230563_) - (if (gx#stx-pair? _tl3020330565_) - (let ((_e3020430568_ - (gx#stx-e _tl3020330565_))) - (let ((_tl3020630573_ + (##car _e3236632723_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3236532726_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd3236532726_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3236432728_)) + (let ((_e3236932731_ + (let () + (declare (not safe)) + (gx#stx-e _tl3236432728_)))) + (let ((_tl3236732736_ (let () (declare (not safe)) - (##cdr _e3020430568_))) - (_hd3020530571_ + (##cdr _e3236932731_))) + (_hd3236832734_ (let () (declare (not safe)) - (##car _e3020430568_)))) - (if (gx#stx-null? _tl3020630573_) - (if (gx#stx-pair? - _tl3020030557_) - (let ((_e3020730576_ - (gx#stx-e - _tl3020030557_))) - (let ((_tl3020930581_ - (let () + (##car _e3236932731_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3236732736_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3236132720_)) + (let ((_e3237232739_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e3020730576_))) - (_hd3020830579_ - (let () (declare (not safe)) (##car _e3020730576_)))) - (if (gx#stx-pair? _hd3020830579_) - (let ((_e3021030584_ (gx#stx-e _hd3020830579_))) - (let ((_tl3021230589_ + (not safe)) + (gx#stx-e _tl3236132720_)))) + (let ((_tl3237032744_ + (let () (declare (not safe)) (##cdr _e3237232739_))) + (_hd3237132742_ + (let () (declare (not safe)) (##car _e3237232739_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3237132742_)) + (let ((_e3237532747_ + (let () + (declare (not safe)) + (gx#stx-e _hd3237132742_)))) + (let ((_tl3237332752_ (let () (declare (not safe)) - (##cdr _e3021030584_))) - (_hd3021130587_ + (##cdr _e3237532747_))) + (_hd3237432750_ (let () (declare (not safe)) - (##car _e3021030584_)))) - (if (gx#identifier? _hd3021130587_) - (if (gx#stx-eq? '%#ref _hd3021130587_) - (if (gx#stx-pair? _tl3021230589_) - (let ((_e3021330592_ - (gx#stx-e _tl3021230589_))) - (let ((_tl3021530597_ + (##car _e3237532747_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3237432750_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3237432750_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3237332752_)) + (let ((_e3237832755_ + (let () + (declare (not safe)) + (gx#stx-e _tl3237332752_)))) + (let ((_tl3237632760_ (let () (declare (not safe)) - (##cdr _e3021330592_))) - (_hd3021430595_ + (##cdr _e3237832755_))) + (_hd3237732758_ (let () (declare (not safe)) - (##car _e3021330592_)))) - (if (gx#stx-null? _tl3021530597_) - (if (gx#stx-pair? _tl3020930581_) - (let ((_e3021630600_ - (gx#stx-e - _tl3020930581_))) - (let ((_tl3021830605_ + (##car _e3237832755_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3237632760_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3237032744_)) + (let ((_e3238132763_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3237032744_)))) + (let ((_tl3237932768_ (let () (declare (not safe)) - (##cdr _e3021630600_))) - (_hd3021730603_ + (##cdr _e3238132763_))) + (_hd3238032766_ (let () (declare (not safe)) - (##car _e3021630600_)))) - (if (gx#stx-pair? - _hd3021730603_) - (let ((_e3021930608_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd3021730603_))) - (let ((_tl3022130613_ - (let () (declare (not safe)) (##cdr _e3021930608_))) - (_hd3022030611_ + (##car _e3238132763_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd3238032766_)) + (let ((_e3238432771_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd3238032766_)))) + (let ((_tl3238232776_ + (let () (declare (not safe)) (##cdr _e3238432771_))) + (_hd3238332774_ (let () (declare (not safe)) - (##car _e3021930608_)))) - (if (gx#identifier? _hd3022030611_) - (if (gx#stx-eq? '%#quote _hd3022030611_) - (if (gx#stx-pair? _tl3022130613_) - (let ((_e3022230616_ - (gx#stx-e _tl3022130613_))) - (let ((_tl3022430621_ + (##car _e3238432771_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3238332774_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd3238332774_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3238232776_)) + (let ((_e3238732779_ + (let () + (declare (not safe)) + (gx#stx-e _tl3238232776_)))) + (let ((_tl3238532784_ (let () (declare (not safe)) - (##cdr _e3022230616_))) - (_hd3022330619_ + (##cdr _e3238732779_))) + (_hd3238632782_ (let () (declare (not safe)) - (##car _e3022230616_)))) - (if (gx#stx-null? _tl3022430621_) - (if (gx#stx-null? _tl3021830605_) - (___match3143531436_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - _e3018030504_ - _hd3018130507_ - _tl3018230509_ - _e3018330512_ - _hd3018430515_ - _tl3018530517_ - _e3018630520_ - _hd3018730523_ - _tl3018830525_ - _e3018930528_ - _hd3019030531_ - _tl3019130533_ - _e3019230536_ - _hd3019330539_ - _tl3019430541_ - _e3019530544_ - _hd3019630547_ - _tl3019730549_ - _e3019830552_ - _hd3019930555_ - _tl3020030557_ - _e3020130560_ - _hd3020230563_ - _tl3020330565_ - _e3020430568_ - _hd3020530571_ - _tl3020630573_ - _e3020730576_ - _hd3020830579_ - _tl3020930581_ - _e3021030584_ - _hd3021130587_ - _tl3021230589_ - _e3021330592_ - _hd3021430595_ - _tl3021530597_ - _e3021630600_ - _hd3021730603_ - _tl3021830605_ - _e3021930608_ - _hd3022030611_ - _tl3022130613_ - _e3022230616_ - _hd3022330619_ - _tl3022430621_) - (if (gx#stx-pair/null? - _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (##car _e3238732779_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3238532784_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3237932768_)) + (___match3359833599_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + _e3234532667_ + _hd3234432670_ + _tl3234332672_ + _e3234832675_ + _hd3234732678_ + _tl3234632680_ + _e3235132683_ + _hd3235032686_ + _tl3234932688_ + _e3235432691_ + _hd3235332694_ + _tl3235232696_ + _e3235732699_ + _hd3235632702_ + _tl3235532704_ + _e3236032707_ + _hd3235932710_ + _tl3235832712_ + _e3236332715_ + _hd3236232718_ + _tl3236132720_ + _e3236632723_ + _hd3236532726_ + _tl3236432728_ + _e3236932731_ + _hd3236832734_ + _tl3236732736_ + _e3237232739_ + _hd3237132742_ + _tl3237032744_ + _e3237532747_ + _hd3237432750_ + _tl3237332752_ + _e3237832755_ + _hd3237732758_ + _tl3237632760_ + _e3238132763_ + _hd3238032766_ + _tl3237932768_ + _e3238432771_ + _hd3238332774_ + _tl3238232776_ + _e3238732779_ + _hd3238632782_ + _tl3238532784_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? - _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? - _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare + (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? - _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice _tl3017930501_ '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl3234032664_ '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '1))) - (_target3027230298_ + (##vector-ref ___splice3346933470_ '1))) + (_target3243532461_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? - _tl3020930581_) - (if (gxc#runtime-identifier=? - (gx#datum->syntax__0 - '#f - '-bind-method) - 'bind-method!) - (let ((_L30452_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd3021430595_) - (_L30453_ _hd3020530571_) - (_L30454_ _hd3019630547_) - (_L30455_ _hd3018730523_)) - (___kont3130231303_ _L30452_ _L30453_ _L30454_ _L30455_)) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice _tl3017930501_ '0))) - (let ((_tl3027430300_ + (##vector-ref ___splice3346933470_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () (declare (not safe)) (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3237032744_)) + (if (let ((__tmp36711 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '-bind-method)))) + (declare (not safe)) + (gxc#runtime-identifier=? __tmp36711 'bind-method!)) + (let ((_L32615_ _hd3237732758_) + (_L32616_ _hd3236832734_) + (_L32617_ _hd3235932710_) + (_L32618_ _hd3235032686_)) + (___kont3346533466_ _L32615_ _L32616_ _L32617_ _L32618_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl3234032664_ '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '1))) - (_target3027230298_ + (##vector-ref ___splice3346933470_ '1))) + (_target3243532461_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice _tl3017930501_ '0))) - (let ((_tl3027430300_ + (##vector-ref ___splice3346933470_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () (declare (not safe)) (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl3234032664_ '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '1))) - (_target3027230298_ + (##vector-ref ___splice3346933470_ '1))) + (_target3243532461_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? - _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (##vector-ref ___splice3346933470_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () (declare (not safe)) (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? - _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare + (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice _tl3017930501_ '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '1))) - (_target3027230298_ + (##vector-ref ___splice3346933470_ '1))) + (_target3243532461_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice _tl3017930501_ '0))) - (let ((_tl3027430300_ + (##vector-ref ___splice3346933470_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl3234032664_ '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '1))) - (_target3027230298_ + (##vector-ref ___splice3346933470_ '1))) + (_target3243532461_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? - _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ - (let () + (##vector-ref ___splice3346933470_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () (declare (not safe)) (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#syntax-split-splice _tl3234032664_ '0)))) + (let ((_tl3243732463_ + (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '1))) - (_target3027230298_ + (##vector-ref ___splice3346933470_ '1))) + (_target3243532461_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? - _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (##vector-ref ___splice3346933470_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () (declare (not safe)) (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? - _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice _tl3017930501_ '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl3234032664_ '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '1))) - (_target3027230298_ + (##vector-ref ___splice3346933470_ '1))) + (_target3243532461_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice _tl3017930501_ '0))) - (let ((_tl3027430300_ + (##vector-ref ___splice3346933470_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () (declare (not safe)) (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl3234032664_ '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '1))) - (_target3027230298_ + (##vector-ref ___splice3346933470_ '1))) + (_target3243532461_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? - _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (##vector-ref ___splice3346933470_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () (declare (not safe)) (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? - _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? - _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare + (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? - _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ - (let () + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ + (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice _tl3017930501_ '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '1))) - (_target3027230298_ + (##vector-ref ___splice3346933470_ '1))) + (_target3243532461_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice _tl3017930501_ '0))) - (let ((_tl3027430300_ + (##vector-ref ___splice3346933470_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl3234032664_ '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '1))) - (_target3027230298_ + (##vector-ref ___splice3346933470_ '1))) + (_target3243532461_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? - _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ - (let () + (##vector-ref ___splice3346933470_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () (declare (not safe)) (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#syntax-split-splice _tl3234032664_ '0)))) + (let ((_tl3243732463_ + (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '1))) - (_target3027230298_ + (##vector-ref ___splice3346933470_ '1))) + (_target3243532461_ (let () (declare (not safe)) - (##vector-ref ___splice3130631307_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? - _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (##vector-ref ___splice3346933470_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () (declare (not safe)) (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? - _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))) - (if (gx#stx-pair/null? - _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare + (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? - _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (if (gx#stx-pair/null? _tl3017930501_) - (let ((___splice3130631307_ - (gx#syntax-split-splice - _tl3017930501_ - '0))) - (let ((_tl3027430300_ + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () + (declare (not safe)) + (_g3233332448_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl3234032664_)) + (let ((___splice3346933470_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3234032664_ + '0)))) + (let ((_tl3243732463_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '1))) - (_target3027230298_ + (_target3243532461_ (let () (declare (not safe)) (##vector-ref - ___splice3130631307_ + ___splice3346933470_ '0)))) - (if (gx#stx-null? _tl3027430300_) - (___match3155531556_ - _e3017730496_ - _hd3017830499_ - _tl3017930501_ - ___splice3130631307_ - _target3027230298_ - _tl3027430300_) - (_g3017030285_)))) - (_g3017030285_))))) - (_g3017030285_))))))) - (define gxc#current-compile-type-closure (make-parameter '#f)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3243732463_)) + (___match3371833719_ + _e3234232659_ + _hd3234132662_ + _tl3234032664_ + ___splice3346933470_ + _target3243532461_ + _tl3243732463_) + (let () + (declare (not safe)) + (_g3233332448_))))) + (let () (declare (not safe)) (_g3233332448_)))))) + (let () (declare (not safe)) (_g3233332448_)))))))) + (define gxc#current-compile-type-closure + (let () (declare (not safe)) (make-parameter '#f))) (define gxc#basic-expression-type-begin% - (lambda (_stx30106_) - (let* ((___stx3155831559_ _stx30106_) - (_g3010930122_ + (lambda (_stx32269_) + (let* ((___stx3372133722_ _stx32269_) + (_g3227232285_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3155831559_)))) - (let ((___kont3156031561_ - (lambda (_L30150_) (gxc#compile-e _L30150_))) - (___kont3156231563_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3155831559_) - (let ((_e3011230134_ (gx#stx-e ___stx3155831559_))) - (let ((_tl3011430139_ - (let () (declare (not safe)) (##cdr _e3011230134_))) - (_hd3011330137_ - (let () (declare (not safe)) (##car _e3011230134_)))) - (if (gx#stx-pair? _tl3011430139_) - (let ((_e3011530142_ (gx#stx-e _tl3011430139_))) - (let ((_tl3011730147_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3372133722_))))) + (let ((___kont3372333724_ + (lambda (_L32313_) + (let () (declare (not safe)) (gxc#compile-e _L32313_)))) + (___kont3372533726_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3372133722_)) + (let ((_e3227732297_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3372133722_)))) + (let ((_tl3227532302_ + (let () (declare (not safe)) (##cdr _e3227732297_))) + (_hd3227632300_ + (let () (declare (not safe)) (##car _e3227732297_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3227532302_)) + (let ((_e3228032305_ + (let () + (declare (not safe)) + (gx#stx-e _tl3227532302_)))) + (let ((_tl3227832310_ (let () (declare (not safe)) - (##cdr _e3011530142_))) - (_hd3011630145_ + (##cdr _e3228032305_))) + (_hd3227932308_ (let () (declare (not safe)) - (##car _e3011530142_)))) - (if (gx#stx-null? _tl3011730147_) - (___kont3156031561_ _hd3011630145_) - (___kont3156231563_)))) - (___kont3156231563_)))) - (___kont3156231563_)))))) + (##car _e3228032305_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3227832310_)) + (___kont3372333724_ _hd3227932308_) + (___kont3372533726_)))) + (___kont3372533726_)))) + (___kont3372533726_)))))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_stx30039_) - (let* ((_g3004130058_ - (lambda (_g3004230055_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3004230055_))) - (_g3004030103_ - (lambda (_g3004230061_) - (if (gx#stx-pair? _g3004230061_) - (let ((_e3004530063_ (gx#stx-e _g3004230061_))) - (let ((_hd3004630066_ + (lambda (_stx32202_) + (let* ((_g3220432221_ + (lambda (_g3220532218_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g3220532218_)))) + (_g3220332266_ + (lambda (_g3220532224_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g3220532224_)) + (let ((_e3221032226_ + (let () + (declare (not safe)) + (gx#stx-e _g3220532224_)))) + (let ((_hd3220932229_ (let () (declare (not safe)) - (##car _e3004530063_))) - (_tl3004730068_ + (##car _e3221032226_))) + (_tl3220832231_ (let () (declare (not safe)) - (##cdr _e3004530063_)))) - (if (gx#stx-pair? _tl3004730068_) - (let ((_e3004830071_ (gx#stx-e _tl3004730068_))) - (let ((_hd3004930074_ + (##cdr _e3221032226_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3220832231_)) + (let ((_e3221332234_ + (let () + (declare (not safe)) + (gx#stx-e _tl3220832231_)))) + (let ((_hd3221232237_ (let () (declare (not safe)) - (##car _e3004830071_))) - (_tl3005030076_ + (##car _e3221332234_))) + (_tl3221132239_ (let () (declare (not safe)) - (##cdr _e3004830071_)))) - (if (gx#stx-pair? _tl3005030076_) - (let ((_e3005130079_ - (gx#stx-e _tl3005030076_))) - (let ((_hd3005230082_ + (##cdr _e3221332234_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3221132239_)) + (let ((_e3221632242_ + (let () + (declare (not safe)) + (gx#stx-e _tl3221132239_)))) + (let ((_hd3221532245_ (let () (declare (not safe)) - (##car _e3005130079_))) - (_tl3005330084_ + (##car _e3221632242_))) + (_tl3221432247_ (let () (declare (not safe)) - (##cdr _e3005130079_)))) - (if (gx#stx-null? _tl3005330084_) - ((lambda (_L30087_ _L30088_) - (gxc#compile-e _L30087_)) - _hd3005230082_ - _hd3004930074_) - (_g3004130058_ _g3004230061_)))) - (_g3004130058_ _g3004230061_)))) - (_g3004130058_ _g3004230061_)))) - (_g3004130058_ _g3004230061_))))) - (_g3004030103_ _stx30039_)))) + (##cdr _e3221632242_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3221432247_)) + ((lambda (_L32250_ _L32251_) + (let () + (declare (not safe)) + (gxc#compile-e _L32250_))) + _hd3221532245_ + _hd3221232237_) + (let () + (declare (not safe)) + (_g3220432221_ + _g3220532224_))))) + (let () + (declare (not safe)) + (_g3220432221_ _g3220532224_))))) + (let () + (declare (not safe)) + (_g3220432221_ _g3220532224_))))) + (let () + (declare (not safe)) + (_g3220432221_ _g3220532224_)))))) + (declare (not safe)) + (_g3220332266_ _stx32202_)))) (define gxc#basic-expression-type-lambda% - (lambda (_stx28392_) - (let* ((___stx3158031581_ _stx28392_) - (_g2840128761_ + (lambda (_stx30555_) + (let* ((___stx3374333744_ _stx30555_) + (_g3056430924_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3158031581_)))) - (let ((___kont3158231583_ - (lambda (_L30027_) - (let ((__obj34495 (make-object gxc#!lambda::t '5))) - (gxc#!lambda:::init!__0 - __obj34495 - 'lambda - (gxc#lambda-form-arity _L30027_) - '#f) - __obj34495))) - (___kont3158431585_ - (lambda (_L29962_ _L29963_ _L29964_ _L29965_ _L29966_) - (let* ((_type-t30009_ (gxc#identifier-symbol _L29963_)) - (_type30011_ - (gxc#optimizer-resolve-type _type-t30009_))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3374333744_))))) + (let ((___kont3374533746_ + (lambda (_L32190_) + (let ((__obj36658 (make-object gxc#!lambda::t '5))) + (let ((__tmp36712 + (let () + (declare (not safe)) + (gxc#lambda-form-arity _L32190_)))) + (declare (not safe)) + (gxc#!lambda:::init!__0 + __obj36658 + 'lambda + __tmp36712 + '#f)) + __obj36658))) + (___kont3374733748_ + (lambda (_L32125_ _L32126_ _L32127_ _L32128_ _L32129_) + (let* ((_type-t32172_ + (let () + (declare (not safe)) + (gxc#identifier-symbol _L32126_))) + (_type32174_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _type-t32172_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _type30011_ + _type32174_ 'gxc#!struct-type::t)) (let () (declare (not safe)) - (##structure gxc#!struct-cons::t _type-t30009_)) + (##structure gxc#!struct-cons::t _type-t32172_)) '#f)))) - (___kont3158631587_ - (lambda (_L29777_ _L29778_ _L29779_ _L29780_ _L29781_) - (let* ((_type-t29824_ (gxc#identifier-symbol _L29778_)) - (_type29826_ - (gxc#optimizer-resolve-type _type-t29824_))) + (___kont3374933750_ + (lambda (_L31940_ _L31941_ _L31942_ _L31943_ _L31944_) + (let* ((_type-t31987_ + (let () + (declare (not safe)) + (gxc#identifier-symbol _L31941_))) + (_type31989_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _type-t31987_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _type29826_ + _type31989_ 'gxc#!class-type::t)) (let () (declare (not safe)) - (##structure gxc#!class-cons::t _type-t29824_)) + (##structure gxc#!class-cons::t _type-t31987_)) '#f)))) - (___kont3158831589_ - (lambda (_L29563_ _L29564_ _L29565_ _L29566_) - (let* ((_type-t29639_ (gxc#identifier-symbol _L29564_)) - (_type29641_ - (gxc#optimizer-resolve-type _type-t29639_))) + (___kont3375133752_ + (lambda (_L31726_ _L31727_ _L31728_ _L31729_) + (let* ((_type-t31802_ + (let () + (declare (not safe)) + (gxc#identifier-symbol _L31727_))) + (_type31804_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _type-t31802_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _type29641_ + _type31804_ 'gxc#!struct-type::t)) (let () (declare (not safe)) - (##structure gxc#!struct-cons::t _type-t29639_)) + (##structure gxc#!struct-cons::t _type-t31802_)) '#f)))) - (___kont3159431595_ - (lambda (_L29354_ - _L29355_ - _L29356_ - _L29357_ - _L29358_ - _L29359_) - (let* ((_tab29409_ (gx#stx-e _L29356_)) - (_keys29411_ - (if _tab29409_ - (filter values (vector->list _tab29409_)) + (___kont3375733758_ + (lambda (_L31517_ + _L31518_ + _L31519_ + _L31520_ + _L31521_ + _L31522_) + (let* ((_tab31572_ + (let () (declare (not safe)) (gx#stx-e _L31519_))) + (_keys31574_ + (if _tab31572_ + (filter values + (let () + (declare (not safe)) + (vector->list _tab31572_))) '#f))) - (let ((__tmp34509 (gxc#identifier-symbol _L29355_))) + (let ((__tmp36713 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L31518_)))) (declare (not safe)) (##structure gxc#!kw-lambda::t 'kw-lambda - _keys29411_ - __tmp34509))))) - (___kont3159631597_ - (lambda (_L29087_ - _L29088_ - _L29089_ - _L29090_ - _L29091_ - _L29092_ - _L29093_ - _L29094_ - _L29095_ - _L29096_) - (let ((__tmp34511 - (map gx#stx-e - (foldr1 (lambda (_g2918929192_ _g2919029194_) - (cons _g2918929192_ _g2919029194_)) - '() - _L29089_))) - (__tmp34510 (gxc#identifier-symbol _L29093_))) + _keys31574_ + __tmp36713))))) + (___kont3375933760_ + (lambda (_L31250_ + _L31251_ + _L31252_ + _L31253_ + _L31254_ + _L31255_ + _L31256_ + _L31257_ + _L31258_ + _L31259_) + (let ((__tmp36715 + (let ((__tmp36716 + (let ((__tmp36717 + (lambda (_g3135231355_ _g3135331357_) + (let () + (declare (not safe)) + (cons _g3135231355_ + _g3135331357_))))) + (declare (not safe)) + (foldr1 __tmp36717 '() _L31252_)))) + (declare (not safe)) + (map gx#stx-e __tmp36716))) + (__tmp36714 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L31256_)))) (declare (not safe)) (##structure gxc#!kw-lambda-primary::t 'kw-lambda-dispatch - __tmp34511 - __tmp34510)))) - (___kont3160031601_ - (lambda (_L28797_) - (let ((__obj34496 (make-object gxc#!lambda::t '5))) - (gxc#!lambda:::init!__0 - __obj34496 - 'lambda - (gxc#lambda-form-arity _L28797_) - (gxc#dispatch-lambda-form-delegate _L28797_)) - __obj34496))) - (___kont3160231603_ - (lambda (_L28774_) - (let ((__obj34497 (make-object gxc#!lambda::t '5))) - (gxc#!lambda:::init!__0 - __obj34497 - 'lambda - (gxc#lambda-form-arity _L28774_) - '#f) - __obj34497)))) - (let* ((___match3218532186_ - (lambda (_e2875028789_ _hd2875128792_ _tl2875228794_) - (let ((_L28797_ _tl2875228794_)) - (if (gxc#dispatch-lambda-form? _L28797_) - (___kont3160031601_ _L28797_) - (___kont3160231603_ _tl2875228794_))))) - (___match3217932180_ - (lambda (_e2864428811_ - _hd2864528814_ - _tl2864628816_ - _e2864728819_ - _hd2864828822_ - _tl2864928824_ - _e2865028827_ - _hd2865128830_ - _tl2865228832_ - _e2865328835_ - _hd2865428838_ - _tl2865528840_ - _e2865628843_ - _hd2865728846_ - _tl2865828848_ - _e2865928851_ - _hd2866028854_ - _tl2866128856_ - _e2866228859_ - _hd2866328862_ - _tl2866428864_ - _e2866528867_ - _hd2866628870_ - _tl2866728872_ - _e2866828875_ - _hd2866928878_ - _tl2867028880_ - _e2867128883_ - _hd2867228886_ - _tl2867328888_ - _e2867428891_ - _hd2867528894_ - _tl2867628896_ - _e2867728899_ - _hd2867828902_ - _tl2867928904_ - _e2868028907_ - _hd2868128910_ - _tl2868228912_ - _e2868328915_ - _hd2868428918_ - _tl2868528920_ - ___splice3159831599_ - _target2868628923_ - _tl2868828925_ - _e2870128928_ - _hd2870228931_ - _tl2870328933_ - _e2870428936_ - _hd2870528939_ - _tl2870628941_ - _e2870728944_ - _hd2870828947_ - _tl2870928949_) - (letrec ((_loop2868928952_ - (lambda (_hd2868728955_ - _-absent-value2869328957_ - _key2869428959_ - _-xkwvar2869528961_ - _-hash-ref2869628963_) - (if (gx#stx-pair? _hd2868728955_) - (let ((_e2869028966_ - (gx#stx-e _hd2868728955_))) - (let ((_lp-tl2869228971_ + __tmp36715 + __tmp36714)))) + (___kont3376333764_ + (lambda (_L30960_) + (let ((__obj36659 (make-object gxc#!lambda::t '5))) + (let ((__tmp36719 + (let () + (declare (not safe)) + (gxc#lambda-form-arity _L30960_))) + (__tmp36718 + (let () + (declare (not safe)) + (gxc#dispatch-lambda-form-delegate _L30960_)))) + (declare (not safe)) + (gxc#!lambda:::init!__0 + __obj36659 + 'lambda + __tmp36719 + __tmp36718)) + __obj36659))) + (___kont3376533766_ + (lambda (_L30937_) + (let ((__obj36660 (make-object gxc#!lambda::t '5))) + (let ((__tmp36720 + (let () + (declare (not safe)) + (gxc#lambda-form-arity _L30937_)))) + (declare (not safe)) + (gxc#!lambda:::init!__0 + __obj36660 + 'lambda + __tmp36720 + '#f)) + __obj36660)))) + (let* ((___match3434834349_ + (lambda (_e3091530952_ _hd3091430955_ _tl3091330957_) + (let ((_L30960_ _tl3091330957_)) + (if (let () + (declare (not safe)) + (gxc#dispatch-lambda-form? _L30960_)) + (___kont3376333764_ _L30960_) + (___kont3376533766_ _tl3091330957_))))) + (___match3434234343_ + (lambda (_e3080930974_ + _hd3080830977_ + _tl3080730979_ + _e3081230982_ + _hd3081130985_ + _tl3081030987_ + _e3081530990_ + _hd3081430993_ + _tl3081330995_ + _e3081830998_ + _hd3081731001_ + _tl3081631003_ + _e3082131006_ + _hd3082031009_ + _tl3081931011_ + _e3082431014_ + _hd3082331017_ + _tl3082231019_ + _e3082731022_ + _hd3082631025_ + _tl3082531027_ + _e3083031030_ + _hd3082931033_ + _tl3082831035_ + _e3083331038_ + _hd3083231041_ + _tl3083131043_ + _e3083631046_ + _hd3083531049_ + _tl3083431051_ + _e3083931054_ + _hd3083831057_ + _tl3083731059_ + _e3084231062_ + _hd3084131065_ + _tl3084031067_ + _e3084531070_ + _hd3084431073_ + _tl3084331075_ + _e3084831078_ + _hd3084731081_ + _tl3084631083_ + ___splice3376133762_ + _target3084931086_ + _tl3085131088_ + _e3086631091_ + _hd3086531094_ + _tl3086431096_ + _e3086931099_ + _hd3086831102_ + _tl3086731104_ + _e3087231107_ + _hd3087131110_ + _tl3087031112_) + (letrec ((_loop3085231115_ + (lambda (_hd3085031118_ + _-absent-value3085631120_ + _key3085731122_ + _-xkwvar3085831124_ + _-hash-ref3085931126_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3085031118_)) + (let ((_e3085331129_ + (let () + (declare (not safe)) + (gx#stx-e _hd3085031118_)))) + (let ((_lp-tl3085531134_ (let () (declare (not safe)) - (##cdr _e2869028966_))) - (_lp-hd2869128969_ + (##cdr _e3085331129_))) + (_lp-hd3085431132_ (let () (declare (not safe)) - (##car _e2869028966_)))) - (if (gx#stx-pair? _lp-hd2869128969_) - (let ((_e2871028974_ - (gx#stx-e - _lp-hd2869128969_))) - (let ((_tl2871228979_ + (##car _e3085331129_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _lp-hd3085431132_)) + (let ((_e3087531137_ + (let () + (declare (not safe)) + (gx#stx-e + _lp-hd3085431132_)))) + (let ((_tl3087331142_ (let () (declare (not safe)) - (##cdr _e2871028974_))) - (_hd2871128977_ + (##cdr _e3087531137_))) + (_hd3087431140_ (let () (declare (not safe)) - (##car _e2871028974_)))) - (if (gx#identifier? - _hd2871128977_) - (if (gx#stx-eq? - '%#call - _hd2871128977_) - (if (gx#stx-pair? - _tl2871228979_) - (let ((_e2871328982_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2871228979_))) - (let ((_tl2871528987_ + (##car _e3087531137_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd3087431140_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#call + _hd3087431140_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl3087331142_)) + (let ((_e3087831145_ + (let () + (declare (not safe)) + (gx#stx-e _tl3087331142_)))) + (let ((_tl3087631150_ (let () (declare (not safe)) - (##cdr _e2871328982_))) - (_hd2871428985_ + (##cdr _e3087831145_))) + (_hd3087731148_ (let () (declare (not safe)) - (##car _e2871328982_)))) - (if (gx#stx-pair? _hd2871428985_) - (let ((_e2871628990_ (gx#stx-e _hd2871428985_))) - (let ((_tl2871828995_ + (##car _e3087831145_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3087731148_)) + (let ((_e3088131153_ + (let () + (declare (not safe)) + (gx#stx-e _hd3087731148_)))) + (let ((_tl3087931158_ (let () (declare (not safe)) - (##cdr _e2871628990_))) - (_hd2871728993_ + (##cdr _e3088131153_))) + (_hd3088031156_ (let () (declare (not safe)) - (##car _e2871628990_)))) - (if (gx#identifier? _hd2871728993_) - (if (gx#stx-eq? '%#ref _hd2871728993_) - (if (gx#stx-pair? _tl2871828995_) - (let ((_e2871928998_ - (gx#stx-e - _tl2871828995_))) - (let ((_tl2872129003_ + (##car _e3088131153_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3088031156_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3088031156_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3087931158_)) + (let ((_e3088431161_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3087931158_)))) + (let ((_tl3088231166_ (let () (declare (not safe)) - (##cdr _e2871928998_))) - (_hd2872029001_ + (##cdr _e3088431161_))) + (_hd3088331164_ (let () (declare (not safe)) - (##car _e2871928998_)))) - (if (gx#stx-null? - _tl2872129003_) - (if (gx#stx-pair? - _tl2871528987_) - (let ((_e2872229006_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2871528987_))) - (let ((_tl2872429011_ - (let () (declare (not safe)) (##cdr _e2872229006_))) - (_hd2872329009_ + (##car _e3088431161_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3088231166_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl3087631150_)) + (let ((_e3088731169_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl3087631150_)))) + (let ((_tl3088531174_ + (let () (declare (not safe)) (##cdr _e3088731169_))) + (_hd3088631172_ (let () (declare (not safe)) - (##car _e2872229006_)))) - (if (gx#stx-pair? _hd2872329009_) - (let ((_e2872529014_ (gx#stx-e _hd2872329009_))) - (let ((_tl2872729019_ + (##car _e3088731169_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3088631172_)) + (let ((_e3089031177_ + (let () + (declare (not safe)) + (gx#stx-e _hd3088631172_)))) + (let ((_tl3088831182_ (let () (declare (not safe)) - (##cdr _e2872529014_))) - (_hd2872629017_ + (##cdr _e3089031177_))) + (_hd3088931180_ (let () (declare (not safe)) - (##car _e2872529014_)))) - (if (gx#identifier? _hd2872629017_) - (if (gx#stx-eq? '%#ref _hd2872629017_) - (if (gx#stx-pair? _tl2872729019_) - (let ((_e2872829022_ - (gx#stx-e _tl2872729019_))) - (let ((_tl2873029027_ + (##car _e3089031177_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3088931180_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3088931180_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3088831182_)) + (let ((_e3089331185_ + (let () + (declare (not safe)) + (gx#stx-e _tl3088831182_)))) + (let ((_tl3089131190_ (let () (declare (not safe)) - (##cdr _e2872829022_))) - (_hd2872929025_ + (##cdr _e3089331185_))) + (_hd3089231188_ (let () (declare (not safe)) - (##car _e2872829022_)))) - (if (gx#stx-null? _tl2873029027_) - (if (gx#stx-pair? - _tl2872429011_) - (let ((_e2873129030_ - (gx#stx-e - _tl2872429011_))) - (let ((_tl2873329035_ - (let () + (##car _e3089331185_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3089131190_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3088531174_)) + (let ((_e3089631193_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2873129030_))) - (_hd2873229033_ - (let () (declare (not safe)) (##car _e2873129030_)))) - (if (gx#stx-pair? _hd2873229033_) - (let ((_e2873429038_ (gx#stx-e _hd2873229033_))) - (let ((_tl2873629043_ + (not safe)) + (gx#stx-e _tl3088531174_)))) + (let ((_tl3089431198_ + (let () (declare (not safe)) (##cdr _e3089631193_))) + (_hd3089531196_ + (let () (declare (not safe)) (##car _e3089631193_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3089531196_)) + (let ((_e3089931201_ + (let () + (declare (not safe)) + (gx#stx-e _hd3089531196_)))) + (let ((_tl3089731206_ (let () (declare (not safe)) - (##cdr _e2873429038_))) - (_hd2873529041_ + (##cdr _e3089931201_))) + (_hd3089831204_ (let () (declare (not safe)) - (##car _e2873429038_)))) - (if (gx#identifier? _hd2873529041_) - (if (gx#stx-eq? '%#quote _hd2873529041_) - (if (gx#stx-pair? _tl2873629043_) - (let ((_e2873729046_ - (gx#stx-e _tl2873629043_))) - (let ((_tl2873929051_ + (##car _e3089931201_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3089831204_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd3089831204_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3089731206_)) + (let ((_e3090231209_ + (let () + (declare (not safe)) + (gx#stx-e _tl3089731206_)))) + (let ((_tl3090031214_ (let () (declare (not safe)) - (##cdr _e2873729046_))) - (_hd2873829049_ + (##cdr _e3090231209_))) + (_hd3090131212_ (let () (declare (not safe)) - (##car _e2873729046_)))) - (if (gx#stx-null? _tl2873929051_) - (if (gx#stx-pair? _tl2873329035_) - (let ((_e2874029054_ - (gx#stx-e - _tl2873329035_))) - (let ((_tl2874229059_ + (##car _e3090231209_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3090031214_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3089431198_)) + (let ((_e3090531217_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3089431198_)))) + (let ((_tl3090331222_ (let () (declare (not safe)) - (##cdr _e2874029054_))) - (_hd2874129057_ + (##cdr _e3090531217_))) + (_hd3090431220_ (let () (declare (not safe)) - (##car _e2874029054_)))) - (if (gx#stx-pair? - _hd2874129057_) - (let ((_e2874329062_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd2874129057_))) - (let ((_tl2874529067_ - (let () (declare (not safe)) (##cdr _e2874329062_))) - (_hd2874429065_ + (##car _e3090531217_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd3090431220_)) + (let ((_e3090831225_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd3090431220_)))) + (let ((_tl3090631230_ + (let () (declare (not safe)) (##cdr _e3090831225_))) + (_hd3090731228_ (let () (declare (not safe)) - (##car _e2874329062_)))) - (if (gx#identifier? _hd2874429065_) - (if (gx#stx-eq? '%#ref _hd2874429065_) - (if (gx#stx-pair? _tl2874529067_) - (let ((_e2874629070_ - (gx#stx-e _tl2874529067_))) - (let ((_tl2874829075_ - (let () - (declare (not safe)) - (##cdr _e2874629070_))) - (_hd2874729073_ - (let () - (declare (not safe)) - (##car _e2874629070_)))) - (if (gx#stx-null? _tl2874829075_) - (if (gx#stx-null? _tl2874229059_) - (_loop2868928952_ - _lp-tl2869228971_ - (cons _hd2874729073_ - _-absent-value2869328957_) - (cons _hd2873829049_ - _key2869428959_) - (cons _hd2872929025_ - _-xkwvar2869528961_) - (cons _hd2872029001_ - _-hash-ref2869628963_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (let ((_-hash-ref2870029084_ - (reverse _-hash-ref2869628963_)) - (_-xkwvar2869929082_ - (reverse _-xkwvar2869528961_)) - (_key2869829080_ - (reverse _key2869428959_)) - (_-absent-value2869729078_ - (reverse _-absent-value2869328957_))) - (if (gx#stx-null? _tl2865528840_) - (let ((_L29087_ _hd2870828947_) - (_L29088_ - _-absent-value2869729078_) - (_L29089_ _key2869829080_) - (_L29090_ - _-xkwvar2869929082_) - (_L29091_ - _-hash-ref2870029084_) - (_L29092_ _hd2868428918_) - (_L29093_ _hd2867528894_) - (_L29094_ _hd2866628870_) - (_L29095_ _tl2865228832_) - (_L29096_ _hd2865128830_)) - (if (and (gx#identifier? - _L29096_) - (gx#identifier? - _L29095_) - (gxc#runtime-identifier=? - _L29094_ - 'apply) - (gx#free-identifier=? - _L29096_ - _L29092_) - (andmap1 gx#stx-keyword? - (foldr1 (lambda (_g2914929152_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2915029154_) - (cons _g2914929152_ _g2915029154_)) - '() - _L29089_)) - (andmap1 (lambda (_g2915629158_) - (gxc#runtime-identifier=? _g2915629158_ 'hash-ref)) - (foldr1 (lambda (_g2916029163_ _g2916129165_) - (cons _g2916029163_ _g2916129165_)) - '() - _L29091_)) - (andmap1 (lambda (_g2916729169_) - (gxc#runtime-identifier=? - _g2916729169_ - 'absent-value)) - (foldr1 (lambda (_g2917129174_ _g2917229176_) - (cons _g2917129174_ _g2917229176_)) - '() - _L29088_)) - (andmap1 (lambda (_g2917829180_) - (gx#free-identifier=? _g2917829180_ _L29096_)) - (foldr1 (lambda (_g2918229185_ _g2918329187_) - (cons _g2918229185_ _g2918329187_)) - '() - _L29090_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3159631597_ - _L29087_ - _L29088_ - _L29089_ - _L29090_ - _L29091_ - _L29092_ - _L29093_ - _L29094_ - _L29095_ - _L29096_) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_))))))) - (_loop2868928952_ - _target2868628923_ - '() - '() - '() - '())))) - (___match3205132052_ - (lambda (_e2864428811_ - _hd2864528814_ - _tl2864628816_ - _e2864728819_ - _hd2864828822_ - _tl2864928824_) - (if (gx#stx-pair? _hd2864828822_) - (let ((_e2865028827_ (gx#stx-e _hd2864828822_))) - (let ((_tl2865228832_ - (let () - (declare (not safe)) - (##cdr _e2865028827_))) - (_hd2865128830_ - (let () - (declare (not safe)) - (##car _e2865028827_)))) - (if (gx#stx-pair? _tl2864928824_) - (let ((_e2865328835_ - (gx#stx-e _tl2864928824_))) - (let ((_tl2865528840_ + (##car _e3090831225_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3090731228_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3090731228_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3090631230_)) + (let ((_e3091131233_ + (let () + (declare (not safe)) + (gx#stx-e _tl3090631230_)))) + (let ((_tl3090931238_ (let () (declare (not safe)) - (##cdr _e2865328835_))) - (_hd2865428838_ + (##cdr _e3091131233_))) + (_hd3091031236_ (let () (declare (not safe)) - (##car _e2865328835_)))) - (if (gx#stx-pair? _hd2865428838_) - (let ((_e2865628843_ - (gx#stx-e _hd2865428838_))) - (let ((_tl2865828848_ - (let () - (declare (not safe)) - (##cdr _e2865628843_))) - (_hd2865728846_ - (let () - (declare (not safe)) - (##car _e2865628843_)))) - (if (gx#identifier? - _hd2865728846_) - (if (gx#stx-eq? - '%#call - _hd2865728846_) - (if (gx#stx-pair? - _tl2865828848_) - (let ((_e2865928851_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2865828848_))) - (let ((_tl2866128856_ - (let () (declare (not safe)) (##cdr _e2865928851_))) - (_hd2866028854_ - (let () - (declare (not safe)) - (##car _e2865928851_)))) - (if (gx#stx-pair? _hd2866028854_) - (let ((_e2866228859_ (gx#stx-e _hd2866028854_))) - (let ((_tl2866428864_ - (let () - (declare (not safe)) - (##cdr _e2866228859_))) - (_hd2866328862_ - (let () - (declare (not safe)) - (##car _e2866228859_)))) - (if (gx#identifier? _hd2866328862_) - (if (gx#stx-eq? '%#ref _hd2866328862_) - (if (gx#stx-pair? _tl2866428864_) - (let ((_e2866528867_ - (gx#stx-e _tl2866428864_))) - (let ((_tl2866728872_ - (let () - (declare (not safe)) - (##cdr _e2866528867_))) - (_hd2866628870_ - (let () - (declare (not safe)) - (##car _e2866528867_)))) - (if (gx#stx-null? _tl2866728872_) - (if (gx#stx-pair? - _tl2866128856_) - (let ((_e2866828875_ - (gx#stx-e - _tl2866128856_))) - (let ((_tl2867028880_ - (let () + (##car _e3091131233_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3090931238_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3090331222_)) + (let ((__tmp36735 + (let () + (declare (not safe)) + (cons _hd3091031236_ + _-absent-value3085631120_))) + (__tmp36734 + (let () + (declare (not safe)) + (cons _hd3090131212_ + _key3085731122_))) + (__tmp36733 + (let () + (declare (not safe)) + (cons _hd3089231188_ + _-xkwvar3085831124_))) + (__tmp36732 + (let () + (declare (not safe)) + (cons _hd3088331164_ + _-hash-ref3085931126_)))) + (declare (not safe)) + (_loop3085231115_ + _lp-tl3085531134_ + __tmp36735 + __tmp36734 + __tmp36733 + __tmp36732)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (let ((_-hash-ref3086331247_ + (let () + (declare (not safe)) + (reverse _-hash-ref3085931126_))) + (_-xkwvar3086231245_ + (let () + (declare (not safe)) + (reverse _-xkwvar3085831124_))) + (_key3086131243_ + (let () + (declare (not safe)) + (reverse _key3085731122_))) + (_-absent-value3086031241_ + (let () + (declare (not safe)) + (reverse _-absent-value3085631120_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3081631003_)) + (let ((_L31250_ _hd3087131110_) + (_L31251_ + _-absent-value3086031241_) + (_L31252_ _key3086131243_) + (_L31253_ + _-xkwvar3086231245_) + (_L31254_ + _-hash-ref3086331247_) + (_L31255_ _hd3084731081_) + (_L31256_ _hd3083831057_) + (_L31257_ _hd3082931033_) + (_L31258_ _tl3081330995_) + (_L31259_ _hd3081430993_)) + (if (and (let () + (declare (not safe)) + (gx#identifier? + _L31259_)) + (let () + (declare (not safe)) + (gx#identifier? + _L31258_)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L31257_ + 'apply)) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L31259_ + _L31255_)) + (let ((__tmp36730 + (let ((__tmp36731 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2866828875_))) - (_hd2866928878_ - (let () (declare (not safe)) (##car _e2866828875_)))) - (if (gx#stx-pair? _hd2866928878_) - (let ((_e2867128883_ (gx#stx-e _hd2866928878_))) - (let ((_tl2867328888_ + (lambda (_g3131231315_ _g3131331317_) + (let () + (declare (not safe)) + (cons _g3131231315_ _g3131331317_))))) + (declare (not safe)) + (foldr1 __tmp36731 '() _L31252_)))) + (declare (not safe)) + (andmap1 gx#stx-keyword? __tmp36730)) + (let ((__tmp36729 + (lambda (_g3131931321_) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? _g3131931321_ 'hash-ref)))) + (__tmp36727 + (let ((__tmp36728 + (lambda (_g3132331326_ _g3132431328_) + (let () + (declare (not safe)) + (cons _g3132331326_ _g3132431328_))))) + (declare (not safe)) + (foldr1 __tmp36728 '() _L31254_)))) + (declare (not safe)) + (andmap1 __tmp36729 __tmp36727)) + (let ((__tmp36726 + (lambda (_g3133031332_) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _g3133031332_ + 'absent-value)))) + (__tmp36724 + (let ((__tmp36725 + (lambda (_g3133431337_ _g3133531339_) + (let () + (declare (not safe)) + (cons _g3133431337_ _g3133531339_))))) + (declare (not safe)) + (foldr1 __tmp36725 '() _L31251_)))) + (declare (not safe)) + (andmap1 __tmp36726 __tmp36724)) + (let ((__tmp36723 + (lambda (_g3134131343_) + (let () + (declare (not safe)) + (gx#free-identifier=? _g3134131343_ _L31259_)))) + (__tmp36721 + (let ((__tmp36722 + (lambda (_g3134531348_ _g3134631350_) + (let () + (declare (not safe)) + (cons _g3134531348_ _g3134631350_))))) + (declare (not safe)) + (foldr1 __tmp36722 '() _L31253_)))) + (declare (not safe)) + (andmap1 __tmp36723 __tmp36721))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3375933760_ + _L31250_ + _L31251_ + _L31252_ + _L31253_ + _L31254_ + _L31255_ + _L31256_ + _L31257_ + _L31258_ + _L31259_) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_))))))) + (let () + (declare (not safe)) + (_loop3085231115_ + _target3084931086_ + '() + '() + '() + '()))))) + (___match3421434215_ + (lambda (_e3080930974_ + _hd3080830977_ + _tl3080730979_ + _e3081230982_ + _hd3081130985_ + _tl3081030987_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3081130985_)) + (let ((_e3081530990_ + (let () + (declare (not safe)) + (gx#stx-e _hd3081130985_)))) + (let ((_tl3081330995_ + (let () + (declare (not safe)) + (##cdr _e3081530990_))) + (_hd3081430993_ + (let () + (declare (not safe)) + (##car _e3081530990_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3081030987_)) + (let ((_e3081830998_ + (let () + (declare (not safe)) + (gx#stx-e _tl3081030987_)))) + (let ((_tl3081631003_ + (let () + (declare (not safe)) + (##cdr _e3081830998_))) + (_hd3081731001_ + (let () + (declare (not safe)) + (##car _e3081830998_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3081731001_)) + (let ((_e3082131006_ + (let () + (declare (not safe)) + (gx#stx-e _hd3081731001_)))) + (let ((_tl3081931011_ + (let () + (declare (not safe)) + (##cdr _e3082131006_))) + (_hd3082031009_ + (let () + (declare (not safe)) + (##car _e3082131006_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd3082031009_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd3082031009_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl3081931011_)) + (let ((_e3082431014_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl3081931011_)))) + (let ((_tl3082231019_ + (let () (declare (not safe)) (##cdr _e3082431014_))) + (_hd3082331017_ + (let () + (declare (not safe)) + (##car _e3082431014_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3082331017_)) + (let ((_e3082731022_ + (let () + (declare (not safe)) + (gx#stx-e _hd3082331017_)))) + (let ((_tl3082531027_ + (let () + (declare (not safe)) + (##cdr _e3082731022_))) + (_hd3082631025_ + (let () + (declare (not safe)) + (##car _e3082731022_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3082631025_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3082631025_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3082531027_)) + (let ((_e3083031030_ + (let () + (declare (not safe)) + (gx#stx-e _tl3082531027_)))) + (let ((_tl3082831035_ + (let () + (declare (not safe)) + (##cdr _e3083031030_))) + (_hd3082931033_ + (let () + (declare (not safe)) + (##car _e3083031030_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3082831035_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3082231019_)) + (let ((_e3083331038_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _tl3082231019_)))) + (let ((_tl3083131043_ + (let () (declare (not safe)) (##cdr _e3083331038_))) + (_hd3083231041_ + (let () (declare (not safe)) (##car _e3083331038_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3083231041_)) + (let ((_e3083631046_ + (let () + (declare (not safe)) + (gx#stx-e _hd3083231041_)))) + (let ((_tl3083431051_ (let () (declare (not safe)) - (##cdr _e2867128883_))) - (_hd2867228886_ + (##cdr _e3083631046_))) + (_hd3083531049_ (let () (declare (not safe)) - (##car _e2867128883_)))) - (if (gx#identifier? _hd2867228886_) - (if (gx#stx-eq? '%#ref _hd2867228886_) - (if (gx#stx-pair? _tl2867328888_) - (let ((_e2867428891_ - (gx#stx-e _tl2867328888_))) - (let ((_tl2867628896_ + (##car _e3083631046_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3083531049_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3083531049_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3083431051_)) + (let ((_e3083931054_ + (let () + (declare (not safe)) + (gx#stx-e _tl3083431051_)))) + (let ((_tl3083731059_ (let () (declare (not safe)) - (##cdr _e2867428891_))) - (_hd2867528894_ + (##cdr _e3083931054_))) + (_hd3083831057_ (let () (declare (not safe)) - (##car _e2867428891_)))) - (if (gx#stx-null? _tl2867628896_) - (if (gx#stx-pair? _tl2867028880_) - (let ((_e2867728899_ - (gx#stx-e - _tl2867028880_))) - (let ((_tl2867928904_ + (##car _e3083931054_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3083731059_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3083131043_)) + (let ((_e3084231062_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3083131043_)))) + (let ((_tl3084031067_ (let () (declare (not safe)) - (##cdr _e2867728899_))) - (_hd2867828902_ + (##cdr _e3084231062_))) + (_hd3084131065_ (let () (declare (not safe)) - (##car _e2867728899_)))) - (if (gx#stx-pair? - _hd2867828902_) - (let ((_e2868028907_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd2867828902_))) - (let ((_tl2868228912_ - (let () (declare (not safe)) (##cdr _e2868028907_))) - (_hd2868128910_ + (##car _e3084231062_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd3084131065_)) + (let ((_e3084531070_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd3084131065_)))) + (let ((_tl3084331075_ + (let () (declare (not safe)) (##cdr _e3084531070_))) + (_hd3084431073_ (let () (declare (not safe)) - (##car _e2868028907_)))) - (if (gx#identifier? _hd2868128910_) - (if (gx#stx-eq? '%#ref _hd2868128910_) - (if (gx#stx-pair? _tl2868228912_) - (let ((_e2868328915_ - (gx#stx-e _tl2868228912_))) - (let ((_tl2868528920_ + (##car _e3084531070_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3084431073_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3084431073_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3084331075_)) + (let ((_e3084831078_ + (let () + (declare (not safe)) + (gx#stx-e _tl3084331075_)))) + (let ((_tl3084631083_ (let () (declare (not safe)) - (##cdr _e2868328915_))) - (_hd2868428918_ + (##cdr _e3084831078_))) + (_hd3084731081_ (let () (declare (not safe)) - (##car _e2868328915_)))) - (if (gx#stx-null? _tl2868528920_) - (if (gx#stx-pair/null? - _tl2867928904_) - (if (fx>= (gx#stx-length - _tl2867928904_) + (##car _e3084831078_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3084631083_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl3084031067_)) + (if (fx>= (let () + (declare (not safe)) + (gx#stx-length + _tl3084031067_)) '1) - (let ((___splice3159831599_ - (gx#syntax-split-splice - _tl2867928904_ - '1))) - (let ((_tl2868828925_ + (let ((___splice3376133762_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl3084031067_ + '1)))) + (let ((_tl3085131088_ (let () (declare (not safe)) (##vector-ref - ___splice3159831599_ + ___splice3376133762_ '1))) - (_target2868628923_ + (_target3084931086_ (let () (declare (not safe)) (##vector-ref - ___splice3159831599_ + ___splice3376133762_ '0)))) - (if (gx#stx-pair? - _tl2868828925_) - (let ((_e2870128928_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2868828925_))) - (let ((_tl2870328933_ - (let () (declare (not safe)) (##cdr _e2870128928_))) - (_hd2870228931_ + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl3085131088_)) + (let ((_e3086631091_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl3085131088_)))) + (let ((_tl3086431096_ + (let () (declare (not safe)) (##cdr _e3086631091_))) + (_hd3086531094_ (let () (declare (not safe)) - (##car _e2870128928_)))) - (if (gx#stx-pair? _hd2870228931_) - (let ((_e2870428936_ (gx#stx-e _hd2870228931_))) - (let ((_tl2870628941_ + (##car _e3086631091_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3086531094_)) + (let ((_e3086931099_ + (let () + (declare (not safe)) + (gx#stx-e _hd3086531094_)))) + (let ((_tl3086731104_ (let () (declare (not safe)) - (##cdr _e2870428936_))) - (_hd2870528939_ + (##cdr _e3086931099_))) + (_hd3086831102_ (let () (declare (not safe)) - (##car _e2870428936_)))) - (if (gx#identifier? _hd2870528939_) - (if (gx#stx-eq? '%#ref _hd2870528939_) - (if (gx#stx-pair? _tl2870628941_) - (let ((_e2870728944_ - (gx#stx-e _tl2870628941_))) - (let ((_tl2870928949_ + (##car _e3086931099_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3086831102_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3086831102_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3086731104_)) + (let ((_e3087231107_ + (let () + (declare (not safe)) + (gx#stx-e _tl3086731104_)))) + (let ((_tl3087031112_ (let () (declare (not safe)) - (##cdr _e2870728944_))) - (_hd2870828947_ + (##cdr _e3087231107_))) + (_hd3087131110_ (let () (declare (not safe)) - (##car _e2870728944_)))) - (if (gx#stx-null? _tl2870928949_) - (if (gx#stx-null? - _tl2870328933_) - (___match3217932180_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_ - _e2864728819_ - _hd2864828822_ - _tl2864928824_ - _e2865028827_ - _hd2865128830_ - _tl2865228832_ - _e2865328835_ - _hd2865428838_ - _tl2865528840_ - _e2865628843_ - _hd2865728846_ - _tl2865828848_ - _e2865928851_ - _hd2866028854_ - _tl2866128856_ - _e2866228859_ - _hd2866328862_ - _tl2866428864_ - _e2866528867_ - _hd2866628870_ - _tl2866728872_ - _e2866828875_ - _hd2866928878_ - _tl2867028880_ - _e2867128883_ - _hd2867228886_ - _tl2867328888_ - _e2867428891_ - _hd2867528894_ - _tl2867628896_ - _e2867728899_ - _hd2867828902_ - _tl2867928904_ - _e2868028907_ - _hd2868128910_ - _tl2868228912_ - _e2868328915_ - _hd2868428918_ - _tl2868528920_ - ___splice3159831599_ - _target2868628923_ - _tl2868828925_ - _e2870128928_ - _hd2870228931_ - _tl2870328933_ - _e2870428936_ - _hd2870528939_ - _tl2870628941_ - _e2870728944_ - _hd2870828947_ - _tl2870928949_) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3218532186_ - _e2864428811_ - _hd2864528814_ - _tl2864628816_)))) - (___match3203932040_ - (lambda (_e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_ - _e2858329218_ - _hd2858429221_ - _tl2858529223_ - _e2858629226_ - _hd2858729229_ - _tl2858829231_ - _e2858929234_ - _hd2859029237_ - _tl2859129239_ - _e2859229242_ - _hd2859329245_ - _tl2859429247_ - _e2859529250_ - _hd2859629253_ - _tl2859729255_ - _e2859829258_ - _hd2859929261_ - _tl2860029263_ - _e2860129266_ - _hd2860229269_ - _tl2860329271_ - _e2860429274_ - _hd2860529277_ - _tl2860629279_ - _e2860729282_ - _hd2860829285_ - _tl2860929287_ - _e2861029290_ - _hd2861129293_ - _tl2861229295_ - _e2861329298_ - _hd2861429301_ - _tl2861529303_ - _e2861629306_ - _hd2861729309_ - _tl2861829311_ - _e2861929314_ - _hd2862029317_ - _tl2862129319_ - _e2862229322_ - _hd2862329325_ - _tl2862429327_ - _e2862529330_ - _hd2862629333_ - _tl2862729335_ - _e2862829338_ - _hd2862929341_ - _tl2863029343_ - _e2863129346_ - _hd2863229349_ - _tl2863329351_) - (let ((_L29354_ _hd2863229349_) - (_L29355_ _hd2862329325_) - (_L29356_ _hd2861429301_) - (_L29357_ _hd2860529277_) - (_L29358_ _hd2859629253_) - (_L29359_ _hd2858129213_)) - (if (and (gx#identifier? _L29359_) - (gxc#runtime-identifier=? _L29358_ 'apply) - (gxc#runtime-identifier=? - _L29357_ - 'keyword-dispatch) - (gx#free-identifier=? _L29359_ _L29354_)) - (___kont3159431595_ - _L29354_ - _L29355_ - _L29356_ - _L29357_ - _L29358_ - _L29359_) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_))))) - (___match3196331964_ - (lambda (_e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_ - _e2858329218_ - _hd2858429221_ - _tl2858529223_ - _e2858629226_ - _hd2858729229_ - _tl2858829231_ - _e2858929234_ - _hd2859029237_ - _tl2859129239_ - _e2859229242_ - _hd2859329245_ - _tl2859429247_ - _e2859529250_ - _hd2859629253_ - _tl2859729255_ - _e2859829258_ - _hd2859929261_ - _tl2860029263_ - _e2860129266_ - _hd2860229269_ - _tl2860329271_ - _e2860429274_ - _hd2860529277_ - _tl2860629279_) - (if (gx#stx-pair? _tl2860029263_) - (let ((_e2860729282_ (gx#stx-e _tl2860029263_))) - (let ((_tl2860929287_ + (##car _e3087231107_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3087031112_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3086431096_)) + (___match3434234343_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_ + _e3081230982_ + _hd3081130985_ + _tl3081030987_ + _e3081530990_ + _hd3081430993_ + _tl3081330995_ + _e3081830998_ + _hd3081731001_ + _tl3081631003_ + _e3082131006_ + _hd3082031009_ + _tl3081931011_ + _e3082431014_ + _hd3082331017_ + _tl3082231019_ + _e3082731022_ + _hd3082631025_ + _tl3082531027_ + _e3083031030_ + _hd3082931033_ + _tl3082831035_ + _e3083331038_ + _hd3083231041_ + _tl3083131043_ + _e3083631046_ + _hd3083531049_ + _tl3083431051_ + _e3083931054_ + _hd3083831057_ + _tl3083731059_ + _e3084231062_ + _hd3084131065_ + _tl3084031067_ + _e3084531070_ + _hd3084431073_ + _tl3084331075_ + _e3084831078_ + _hd3084731081_ + _tl3084631083_ + ___splice3376133762_ + _target3084931086_ + _tl3085131088_ + _e3086631091_ + _hd3086531094_ + _tl3086431096_ + _e3086931099_ + _hd3086831102_ + _tl3086731104_ + _e3087231107_ + _hd3087131110_ + _tl3087031112_) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3434834349_ + _e3080930974_ + _hd3080830977_ + _tl3080730979_)))) + (___match3420234203_ + (lambda (_e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_ + _e3074831381_ + _hd3074731384_ + _tl3074631386_ + _e3075131389_ + _hd3075031392_ + _tl3074931394_ + _e3075431397_ + _hd3075331400_ + _tl3075231402_ + _e3075731405_ + _hd3075631408_ + _tl3075531410_ + _e3076031413_ + _hd3075931416_ + _tl3075831418_ + _e3076331421_ + _hd3076231424_ + _tl3076131426_ + _e3076631429_ + _hd3076531432_ + _tl3076431434_ + _e3076931437_ + _hd3076831440_ + _tl3076731442_ + _e3077231445_ + _hd3077131448_ + _tl3077031450_ + _e3077531453_ + _hd3077431456_ + _tl3077331458_ + _e3077831461_ + _hd3077731464_ + _tl3077631466_ + _e3078131469_ + _hd3078031472_ + _tl3077931474_ + _e3078431477_ + _hd3078331480_ + _tl3078231482_ + _e3078731485_ + _hd3078631488_ + _tl3078531490_ + _e3079031493_ + _hd3078931496_ + _tl3078831498_ + _e3079331501_ + _hd3079231504_ + _tl3079131506_ + _e3079631509_ + _hd3079531512_ + _tl3079431514_) + (let ((_L31517_ _hd3079531512_) + (_L31518_ _hd3078631488_) + (_L31519_ _hd3077731464_) + (_L31520_ _hd3076831440_) + (_L31521_ _hd3075931416_) + (_L31522_ _hd3074431376_)) + (if (and (let () + (declare (not safe)) + (gx#identifier? _L31522_)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? _L31521_ 'apply)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L31520_ + 'keyword-dispatch)) + (let () + (declare (not safe)) + (gx#free-identifier=? _L31522_ _L31517_))) + (___kont3375733758_ + _L31517_ + _L31518_ + _L31519_ + _L31520_ + _L31521_ + _L31522_) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_))))) + (___match3412634127_ + (lambda (_e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_ + _e3074831381_ + _hd3074731384_ + _tl3074631386_ + _e3075131389_ + _hd3075031392_ + _tl3074931394_ + _e3075431397_ + _hd3075331400_ + _tl3075231402_ + _e3075731405_ + _hd3075631408_ + _tl3075531410_ + _e3076031413_ + _hd3075931416_ + _tl3075831418_ + _e3076331421_ + _hd3076231424_ + _tl3076131426_ + _e3076631429_ + _hd3076531432_ + _tl3076431434_ + _e3076931437_ + _hd3076831440_ + _tl3076731442_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3076131426_)) + (let ((_e3077231445_ + (let () + (declare (not safe)) + (gx#stx-e _tl3076131426_)))) + (let ((_tl3077031450_ (let () (declare (not safe)) - (##cdr _e2860729282_))) - (_hd2860829285_ + (##cdr _e3077231445_))) + (_hd3077131448_ (let () (declare (not safe)) - (##car _e2860729282_)))) - (if (gx#stx-pair? _hd2860829285_) - (let ((_e2861029290_ - (gx#stx-e _hd2860829285_))) - (let ((_tl2861229295_ + (##car _e3077231445_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3077131448_)) + (let ((_e3077531453_ + (let () + (declare (not safe)) + (gx#stx-e _hd3077131448_)))) + (let ((_tl3077331458_ (let () (declare (not safe)) - (##cdr _e2861029290_))) - (_hd2861129293_ + (##cdr _e3077531453_))) + (_hd3077431456_ (let () (declare (not safe)) - (##car _e2861029290_)))) - (if (gx#identifier? _hd2861129293_) - (if (gx#stx-eq? - '%#quote - _hd2861129293_) - (if (gx#stx-pair? _tl2861229295_) - (let ((_e2861329298_ - (gx#stx-e - _tl2861229295_))) - (let ((_tl2861529303_ + (##car _e3077531453_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3077431456_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd3077431456_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3077331458_)) + (let ((_e3077831461_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3077331458_)))) + (let ((_tl3077631466_ (let () (declare (not safe)) - (##cdr _e2861329298_))) - (_hd2861429301_ + (##cdr _e3077831461_))) + (_hd3077731464_ (let () (declare (not safe)) - (##car _e2861329298_)))) - (if (gx#stx-null? - _tl2861529303_) - (if (gx#stx-pair? - _tl2860929287_) - (let ((_e2861629306_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2860929287_))) - (let ((_tl2861829311_ + (##car _e3077831461_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl3077631466_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl3077031450_)) + (let ((_e3078131469_ + (let () + (declare (not safe)) + (gx#stx-e _tl3077031450_)))) + (let ((_tl3077931474_ (let () (declare (not safe)) - (##cdr _e2861629306_))) - (_hd2861729309_ + (##cdr _e3078131469_))) + (_hd3078031472_ (let () (declare (not safe)) - (##car _e2861629306_)))) - (if (gx#stx-pair? _hd2861729309_) - (let ((_e2861929314_ (gx#stx-e _hd2861729309_))) - (let ((_tl2862129319_ + (##car _e3078131469_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3078031472_)) + (let ((_e3078431477_ + (let () + (declare (not safe)) + (gx#stx-e _hd3078031472_)))) + (let ((_tl3078231482_ (let () (declare (not safe)) - (##cdr _e2861929314_))) - (_hd2862029317_ + (##cdr _e3078431477_))) + (_hd3078331480_ (let () (declare (not safe)) - (##car _e2861929314_)))) - (if (gx#identifier? _hd2862029317_) - (if (gx#stx-eq? '%#ref _hd2862029317_) - (if (gx#stx-pair? _tl2862129319_) - (let ((_e2862229322_ - (gx#stx-e - _tl2862129319_))) - (let ((_tl2862429327_ + (##car _e3078431477_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3078331480_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3078331480_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3078231482_)) + (let ((_e3078731485_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3078231482_)))) + (let ((_tl3078531490_ (let () (declare (not safe)) - (##cdr _e2862229322_))) - (_hd2862329325_ + (##cdr _e3078731485_))) + (_hd3078631488_ (let () (declare (not safe)) - (##car _e2862229322_)))) - (if (gx#stx-null? - _tl2862429327_) - (if (gx#stx-pair? - _tl2861829311_) - (let ((_e2862529330_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2861829311_))) - (let ((_tl2862729335_ - (let () (declare (not safe)) (##cdr _e2862529330_))) - (_hd2862629333_ + (##car _e3078731485_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3078531490_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl3077931474_)) + (let ((_e3079031493_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl3077931474_)))) + (let ((_tl3078831498_ + (let () (declare (not safe)) (##cdr _e3079031493_))) + (_hd3078931496_ (let () (declare (not safe)) - (##car _e2862529330_)))) - (if (gx#stx-pair? _hd2862629333_) - (let ((_e2862829338_ (gx#stx-e _hd2862629333_))) - (let ((_tl2863029343_ + (##car _e3079031493_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3078931496_)) + (let ((_e3079331501_ + (let () + (declare (not safe)) + (gx#stx-e _hd3078931496_)))) + (let ((_tl3079131506_ (let () (declare (not safe)) - (##cdr _e2862829338_))) - (_hd2862929341_ + (##cdr _e3079331501_))) + (_hd3079231504_ (let () (declare (not safe)) - (##car _e2862829338_)))) - (if (gx#identifier? _hd2862929341_) - (if (gx#stx-eq? '%#ref _hd2862929341_) - (if (gx#stx-pair? _tl2863029343_) - (let ((_e2863129346_ - (gx#stx-e _tl2863029343_))) - (let ((_tl2863329351_ + (##car _e3079331501_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3079231504_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3079231504_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3079131506_)) + (let ((_e3079631509_ + (let () + (declare (not safe)) + (gx#stx-e _tl3079131506_)))) + (let ((_tl3079431514_ (let () (declare (not safe)) - (##cdr _e2863129346_))) - (_hd2863229349_ + (##cdr _e3079631509_))) + (_hd3079531512_ (let () (declare (not safe)) - (##car _e2863129346_)))) - (if (gx#stx-null? _tl2863329351_) - (if (gx#stx-null? - _tl2862729335_) - (if (gx#stx-null? - _tl2858529223_) - (___match3203932040_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_ - _e2858329218_ - _hd2858429221_ - _tl2858529223_ - _e2858629226_ - _hd2858729229_ - _tl2858829231_ - _e2858929234_ - _hd2859029237_ - _tl2859129239_ - _e2859229242_ - _hd2859329245_ - _tl2859429247_ - _e2859529250_ - _hd2859629253_ - _tl2859729255_ - _e2859829258_ - _hd2859929261_ - _tl2860029263_ - _e2860129266_ - _hd2860229269_ - _tl2860329271_ - _e2860429274_ - _hd2860529277_ - _tl2860629279_ - _e2860729282_ - _hd2860829285_ - _tl2860929287_ - _e2861029290_ - _hd2861129293_ - _tl2861229295_ - _e2861329298_ - _hd2861429301_ - _tl2861529303_ - _e2861629306_ - _hd2861729309_ - _tl2861829311_ - _e2861929314_ - _hd2862029317_ - _tl2862129319_ - _e2862229322_ - _hd2862329325_ - _tl2862429327_ - _e2862529330_ - _hd2862629333_ - _tl2862729335_ - _e2862829338_ - _hd2862929341_ - _tl2863029343_ - _e2863129346_ - _hd2863229349_ - _tl2863329351_) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3189931900_ - (lambda (_e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_) - (if (gx#stx-pair? _tl2858229215_) - (let ((_e2858329218_ (gx#stx-e _tl2858229215_))) - (let ((_tl2858529223_ + (##car _e3079631509_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3079431514_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3078831498_)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl3074631386_)) + (___match3420234203_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_ + _e3074831381_ + _hd3074731384_ + _tl3074631386_ + _e3075131389_ + _hd3075031392_ + _tl3074931394_ + _e3075431397_ + _hd3075331400_ + _tl3075231402_ + _e3075731405_ + _hd3075631408_ + _tl3075531410_ + _e3076031413_ + _hd3075931416_ + _tl3075831418_ + _e3076331421_ + _hd3076231424_ + _tl3076131426_ + _e3076631429_ + _hd3076531432_ + _tl3076431434_ + _e3076931437_ + _hd3076831440_ + _tl3076731442_ + _e3077231445_ + _hd3077131448_ + _tl3077031450_ + _e3077531453_ + _hd3077431456_ + _tl3077331458_ + _e3077831461_ + _hd3077731464_ + _tl3077631466_ + _e3078131469_ + _hd3078031472_ + _tl3077931474_ + _e3078431477_ + _hd3078331480_ + _tl3078231482_ + _e3078731485_ + _hd3078631488_ + _tl3078531490_ + _e3079031493_ + _hd3078931496_ + _tl3078831498_ + _e3079331501_ + _hd3079231504_ + _tl3079131506_ + _e3079631509_ + _hd3079531512_ + _tl3079431514_) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3406234063_ + (lambda (_e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3074331378_)) + (let ((_e3074831381_ + (let () + (declare (not safe)) + (gx#stx-e _tl3074331378_)))) + (let ((_tl3074631386_ (let () (declare (not safe)) - (##cdr _e2858329218_))) - (_hd2858429221_ + (##cdr _e3074831381_))) + (_hd3074731384_ (let () (declare (not safe)) - (##car _e2858329218_)))) - (if (gx#stx-pair? _hd2858429221_) - (let ((_e2858629226_ - (gx#stx-e _hd2858429221_))) - (let ((_tl2858829231_ + (##car _e3074831381_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3074731384_)) + (let ((_e3075131389_ + (let () + (declare (not safe)) + (gx#stx-e _hd3074731384_)))) + (let ((_tl3074931394_ (let () (declare (not safe)) - (##cdr _e2858629226_))) - (_hd2858729229_ + (##cdr _e3075131389_))) + (_hd3075031392_ (let () (declare (not safe)) - (##car _e2858629226_)))) - (if (gx#identifier? _hd2858729229_) - (if (gx#stx-eq? - '%#call - _hd2858729229_) - (if (gx#stx-pair? _tl2858829231_) - (let ((_e2858929234_ - (gx#stx-e - _tl2858829231_))) - (let ((_tl2859129239_ + (##car _e3075131389_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3075031392_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd3075031392_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3074931394_)) + (let ((_e3075431397_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3074931394_)))) + (let ((_tl3075231402_ (let () (declare (not safe)) - (##cdr _e2858929234_))) - (_hd2859029237_ + (##cdr _e3075431397_))) + (_hd3075331400_ (let () (declare (not safe)) - (##car _e2858929234_)))) - (if (gx#stx-pair? - _hd2859029237_) - (let ((_e2859229242_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd2859029237_))) - (let ((_tl2859429247_ - (let () (declare (not safe)) (##cdr _e2859229242_))) - (_hd2859329245_ + (##car _e3075431397_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd3075331400_)) + (let ((_e3075731405_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd3075331400_)))) + (let ((_tl3075531410_ + (let () (declare (not safe)) (##cdr _e3075731405_))) + (_hd3075631408_ (let () (declare (not safe)) - (##car _e2859229242_)))) - (if (gx#identifier? _hd2859329245_) - (if (gx#stx-eq? '%#ref _hd2859329245_) - (if (gx#stx-pair? _tl2859429247_) - (let ((_e2859529250_ - (gx#stx-e _tl2859429247_))) - (let ((_tl2859729255_ - (let () - (declare (not safe)) - (##cdr _e2859529250_))) - (_hd2859629253_ + (##car _e3075731405_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3075631408_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3075631408_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3075531410_)) + (let ((_e3076031413_ + (let () + (declare (not safe)) + (gx#stx-e _tl3075531410_)))) + (let ((_tl3075831418_ (let () (declare (not safe)) - (##car _e2859529250_)))) - (if (gx#stx-null? _tl2859729255_) - (if (gx#stx-pair? _tl2859129239_) - (let ((_e2859829258_ - (gx#stx-e - _tl2859129239_))) - (let ((_tl2860029263_ + (##cdr _e3076031413_))) + (_hd3075931416_ + (let () + (declare (not safe)) + (##car _e3076031413_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3075831418_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3075231402_)) + (let ((_e3076331421_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3075231402_)))) + (let ((_tl3076131426_ (let () (declare (not safe)) - (##cdr _e2859829258_))) - (_hd2859929261_ + (##cdr _e3076331421_))) + (_hd3076231424_ (let () (declare (not safe)) - (##car _e2859829258_)))) - (if (gx#stx-pair? - _hd2859929261_) - (let ((_e2860129266_ - (gx#stx-e - _hd2859929261_))) - (let ((_tl2860329271_ - (let () + (##car _e3076331421_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd3076231424_)) + (let ((_e3076631429_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2860129266_))) - (_hd2860229269_ - (let () (declare (not safe)) (##car _e2860129266_)))) - (if (gx#identifier? _hd2860229269_) - (if (gx#stx-eq? '%#ref _hd2860229269_) - (if (gx#stx-pair? _tl2860329271_) - (let ((_e2860429274_ (gx#stx-e _tl2860329271_))) - (let ((_tl2860629279_ + (not safe)) + (gx#stx-e _hd3076231424_)))) + (let ((_tl3076431434_ + (let () (declare (not safe)) (##cdr _e3076631429_))) + (_hd3076531432_ + (let () (declare (not safe)) (##car _e3076631429_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3076531432_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3076531432_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3076431434_)) + (let ((_e3076931437_ + (let () + (declare (not safe)) + (gx#stx-e _tl3076431434_)))) + (let ((_tl3076731442_ (let () (declare (not safe)) - (##cdr _e2860429274_))) - (_hd2860529277_ + (##cdr _e3076931437_))) + (_hd3076831440_ (let () (declare (not safe)) - (##car _e2860429274_)))) - (if (gx#stx-null? _tl2860629279_) - (if (gx#stx-pair? _tl2860029263_) - (let ((_e2860729282_ - (gx#stx-e _tl2860029263_))) - (let ((_tl2860929287_ + (##car _e3076931437_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3076731442_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3076131426_)) + (let ((_e3077231445_ + (let () + (declare (not safe)) + (gx#stx-e _tl3076131426_)))) + (let ((_tl3077031450_ (let () (declare (not safe)) - (##cdr _e2860729282_))) - (_hd2860829285_ + (##cdr _e3077231445_))) + (_hd3077131448_ (let () (declare (not safe)) - (##car _e2860729282_)))) - (if (gx#stx-pair? _hd2860829285_) - (let ((_e2861029290_ - (gx#stx-e - _hd2860829285_))) - (let ((_tl2861229295_ + (##car _e3077231445_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd3077131448_)) + (let ((_e3077531453_ + (let () + (declare (not safe)) + (gx#stx-e + _hd3077131448_)))) + (let ((_tl3077331458_ (let () (declare (not safe)) - (##cdr _e2861029290_))) - (_hd2861129293_ + (##cdr _e3077531453_))) + (_hd3077431456_ (let () (declare (not safe)) - (##car _e2861029290_)))) - (if (gx#identifier? - _hd2861129293_) - (if (gx#stx-eq? - '%#quote - _hd2861129293_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2861229295_) - (let ((_e2861329298_ (gx#stx-e _tl2861229295_))) - (let ((_tl2861529303_ + (##car _e3077531453_)))) + (if (let () + (declare + (not safe)) + (gx#identifier? + _hd3077431456_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-eq? '%#quote _hd3077431456_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3077331458_)) + (let ((_e3077831461_ + (let () + (declare (not safe)) + (gx#stx-e _tl3077331458_)))) + (let ((_tl3077631466_ (let () (declare (not safe)) - (##cdr _e2861329298_))) - (_hd2861429301_ + (##cdr _e3077831461_))) + (_hd3077731464_ (let () (declare (not safe)) - (##car _e2861329298_)))) - (if (gx#stx-null? _tl2861529303_) - (if (gx#stx-pair? _tl2860929287_) - (let ((_e2861629306_ - (gx#stx-e _tl2860929287_))) - (let ((_tl2861829311_ + (##car _e3077831461_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3077631466_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3077031450_)) + (let ((_e3078131469_ + (let () + (declare (not safe)) + (gx#stx-e _tl3077031450_)))) + (let ((_tl3077931474_ (let () (declare (not safe)) - (##cdr _e2861629306_))) - (_hd2861729309_ + (##cdr _e3078131469_))) + (_hd3078031472_ (let () (declare (not safe)) - (##car _e2861629306_)))) - (if (gx#stx-pair? _hd2861729309_) - (let ((_e2861929314_ - (gx#stx-e - _hd2861729309_))) - (let ((_tl2862129319_ + (##car _e3078131469_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3078031472_)) + (let ((_e3078431477_ + (let () + (declare (not safe)) + (gx#stx-e + _hd3078031472_)))) + (let ((_tl3078231482_ (let () (declare (not safe)) - (##cdr _e2861929314_))) - (_hd2862029317_ + (##cdr _e3078431477_))) + (_hd3078331480_ (let () (declare (not safe)) - (##car _e2861929314_)))) - (if (gx#identifier? - _hd2862029317_) - (if (gx#stx-eq? - '%#ref - _hd2862029317_) - (if (gx#stx-pair? - _tl2862129319_) - (let ((_e2862229322_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2862129319_))) - (let ((_tl2862429327_ + (##car _e3078431477_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd3078331480_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#ref + _hd3078331480_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl3078231482_)) + (let ((_e3078731485_ + (let () + (declare (not safe)) + (gx#stx-e _tl3078231482_)))) + (let ((_tl3078531490_ (let () (declare (not safe)) - (##cdr _e2862229322_))) - (_hd2862329325_ + (##cdr _e3078731485_))) + (_hd3078631488_ (let () (declare (not safe)) - (##car _e2862229322_)))) - (if (gx#stx-null? _tl2862429327_) - (if (gx#stx-pair? _tl2861829311_) - (let ((_e2862529330_ - (gx#stx-e _tl2861829311_))) - (let ((_tl2862729335_ + (##car _e3078731485_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3078531490_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3077931474_)) + (let ((_e3079031493_ + (let () + (declare (not safe)) + (gx#stx-e _tl3077931474_)))) + (let ((_tl3078831498_ (let () (declare (not safe)) - (##cdr _e2862529330_))) - (_hd2862629333_ + (##cdr _e3079031493_))) + (_hd3078931496_ (let () (declare (not safe)) - (##car _e2862529330_)))) - (if (gx#stx-pair? _hd2862629333_) - (let ((_e2862829338_ - (gx#stx-e _hd2862629333_))) - (let ((_tl2863029343_ + (##car _e3079031493_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3078931496_)) + (let ((_e3079331501_ + (let () + (declare (not safe)) + (gx#stx-e _hd3078931496_)))) + (let ((_tl3079131506_ (let () (declare (not safe)) - (##cdr _e2862829338_))) - (_hd2862929341_ + (##cdr _e3079331501_))) + (_hd3079231504_ (let () (declare (not safe)) - (##car _e2862829338_)))) - (if (gx#identifier? - _hd2862929341_) - (if (gx#stx-eq? - '%#ref - _hd2862929341_) - (if (gx#stx-pair? - _tl2863029343_) - (let ((_e2863129346_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2863029343_))) - (let ((_tl2863329351_ - (let () (declare (not safe)) (##cdr _e2863129346_))) - (_hd2863229349_ + (##car _e3079331501_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd3079231504_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd3079231504_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl3079131506_)) + (let ((_e3079631509_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl3079131506_)))) + (let ((_tl3079431514_ + (let () (declare (not safe)) (##cdr _e3079631509_))) + (_hd3079531512_ (let () (declare (not safe)) - (##car _e2863129346_)))) - (if (gx#stx-null? _tl2863329351_) - (if (gx#stx-null? _tl2862729335_) - (if (gx#stx-null? _tl2858529223_) - (___match3203932040_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_ - _e2858329218_ - _hd2858429221_ - _tl2858529223_ - _e2858629226_ - _hd2858729229_ - _tl2858829231_ - _e2858929234_ - _hd2859029237_ - _tl2859129239_ - _e2859229242_ - _hd2859329245_ - _tl2859429247_ - _e2859529250_ - _hd2859629253_ - _tl2859729255_ - _e2859829258_ - _hd2859929261_ - _tl2860029263_ - _e2860129266_ - _hd2860229269_ - _tl2860329271_ - _e2860429274_ - _hd2860529277_ - _tl2860629279_ - _e2860729282_ - _hd2860829285_ - _tl2860929287_ - _e2861029290_ - _hd2861129293_ - _tl2861229295_ - _e2861329298_ - _hd2861429301_ - _tl2861529303_ - _e2861629306_ - _hd2861729309_ - _tl2861829311_ - _e2861929314_ - _hd2862029317_ - _tl2862129319_ - _e2862229322_ - _hd2862329325_ - _tl2862429327_ - _e2862529330_ - _hd2862629333_ - _tl2862729335_ - _e2862829338_ - _hd2862929341_ - _tl2863029343_ - _e2863129346_ - _hd2863229349_ - _tl2863329351_) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3205132052_ - _e2857729202_ - _hd2857829205_ - _tl2857929207_ - _e2858029210_ - _hd2858129213_ - _tl2858229215_)))) - (___match3188731888_ - (lambda (_e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_ - ___splice3159031591_ - _target2852329435_ - _tl2852529437_) - (letrec ((_loop2852629440_ - (lambda (_hd2852429443_ _arg2853029445_) - (if (gx#stx-pair? _hd2852429443_) - (let ((_e2852729448_ - (gx#stx-e _hd2852429443_))) - (let ((_lp-tl2852929453_ + (##car _e3079631509_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3079431514_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3078831498_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3074631386_)) + (___match3420234203_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_ + _e3074831381_ + _hd3074731384_ + _tl3074631386_ + _e3075131389_ + _hd3075031392_ + _tl3074931394_ + _e3075431397_ + _hd3075331400_ + _tl3075231402_ + _e3075731405_ + _hd3075631408_ + _tl3075531410_ + _e3076031413_ + _hd3075931416_ + _tl3075831418_ + _e3076331421_ + _hd3076231424_ + _tl3076131426_ + _e3076631429_ + _hd3076531432_ + _tl3076431434_ + _e3076931437_ + _hd3076831440_ + _tl3076731442_ + _e3077231445_ + _hd3077131448_ + _tl3077031450_ + _e3077531453_ + _hd3077431456_ + _tl3077331458_ + _e3077831461_ + _hd3077731464_ + _tl3077631466_ + _e3078131469_ + _hd3078031472_ + _tl3077931474_ + _e3078431477_ + _hd3078331480_ + _tl3078231482_ + _e3078731485_ + _hd3078631488_ + _tl3078531490_ + _e3079031493_ + _hd3078931496_ + _tl3078831498_ + _e3079331501_ + _hd3079231504_ + _tl3079131506_ + _e3079631509_ + _hd3079531512_ + _tl3079431514_) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3421434215_ + _e3074231365_ + _hd3074131368_ + _tl3074031370_ + _e3074531373_ + _hd3074431376_ + _tl3074331378_)))) + (___match3405034051_ + (lambda (_e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_ + ___splice3375333754_ + _target3068631598_ + _tl3068831600_) + (letrec ((_loop3068931603_ + (lambda (_hd3068731606_ _arg3069331608_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3068731606_)) + (let ((_e3069031611_ + (let () + (declare (not safe)) + (gx#stx-e _hd3068731606_)))) + (let ((_lp-tl3069231616_ (let () (declare (not safe)) - (##cdr _e2852729448_))) - (_lp-hd2852829451_ + (##cdr _e3069031611_))) + (_lp-hd3069131614_ (let () (declare (not safe)) - (##car _e2852729448_)))) - (_loop2852629440_ - _lp-tl2852929453_ - (cons _lp-hd2852829451_ - _arg2853029445_)))) - (let ((_arg2853129456_ - (reverse _arg2853029445_))) - (if (gx#stx-pair? _tl2852229432_) - (let ((_e2853229459_ - (gx#stx-e _tl2852229432_))) - (let ((_tl2853429464_ + (##car _e3069031611_)))) + (let ((__tmp36745 + (let () + (declare (not safe)) + (cons _lp-hd3069131614_ + _arg3069331608_)))) + (declare (not safe)) + (_loop3068931603_ + _lp-tl3069231616_ + __tmp36745)))) + (let ((_arg3069431619_ + (let () + (declare (not safe)) + (reverse _arg3069331608_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3068331595_)) + (let ((_e3069731622_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3068331595_)))) + (let ((_tl3069531627_ (let () (declare (not safe)) - (##cdr _e2853229459_))) - (_hd2853329462_ + (##cdr _e3069731622_))) + (_hd3069631625_ (let () (declare (not safe)) - (##car _e2853229459_)))) - (if (gx#stx-pair? - _hd2853329462_) - (let ((_e2853529467_ - (gx#stx-e - _hd2853329462_))) - (let ((_tl2853729472_ + (##car _e3069731622_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd3069631625_)) + (let ((_e3070031630_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd3069631625_)))) + (let ((_tl3069831635_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2853529467_))) - (_hd2853629470_ - (let () (declare (not safe)) (##car _e2853529467_)))) - (if (gx#identifier? _hd2853629470_) - (if (gx#stx-eq? '%#call _hd2853629470_) - (if (gx#stx-pair? _tl2853729472_) - (let ((_e2853829475_ (gx#stx-e _tl2853729472_))) - (let ((_tl2854029480_ + (##cdr _e3070031630_))) + (_hd3069931633_ + (let () (declare (not safe)) (##car _e3070031630_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3069931633_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd3069931633_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3069831635_)) + (let ((_e3070331638_ + (let () + (declare (not safe)) + (gx#stx-e _tl3069831635_)))) + (let ((_tl3070131643_ (let () (declare (not safe)) - (##cdr _e2853829475_))) - (_hd2853929478_ + (##cdr _e3070331638_))) + (_hd3070231641_ (let () (declare (not safe)) - (##car _e2853829475_)))) - (if (gx#stx-pair? _hd2853929478_) - (let ((_e2854129483_ - (gx#stx-e _hd2853929478_))) - (let ((_tl2854329488_ + (##car _e3070331638_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3070231641_)) + (let ((_e3070631646_ + (let () + (declare (not safe)) + (gx#stx-e _hd3070231641_)))) + (let ((_tl3070431651_ (let () (declare (not safe)) - (##cdr _e2854129483_))) - (_hd2854229486_ + (##cdr _e3070631646_))) + (_hd3070531649_ (let () (declare (not safe)) - (##car _e2854129483_)))) - (if (gx#identifier? _hd2854229486_) - (if (gx#stx-eq? - '%#ref - _hd2854229486_) - (if (gx#stx-pair? - _tl2854329488_) - (let ((_e2854429491_ - (gx#stx-e - _tl2854329488_))) - (let ((_tl2854629496_ + (##car _e3070631646_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3070531649_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd3070531649_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3070431651_)) + (let ((_e3070931654_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl3070431651_)))) + (let ((_tl3070731659_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2854429491_))) - (_hd2854529494_ - (let () (declare (not safe)) (##car _e2854429491_)))) - (if (gx#stx-null? _tl2854629496_) - (if (gx#stx-pair? _tl2854029480_) - (let ((_e2854729499_ (gx#stx-e _tl2854029480_))) - (let ((_tl2854929504_ + (##cdr _e3070931654_))) + (_hd3070831657_ + (let () (declare (not safe)) (##car _e3070931654_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl3070731659_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3070131643_)) + (let ((_e3071231662_ + (let () + (declare (not safe)) + (gx#stx-e _tl3070131643_)))) + (let ((_tl3071031667_ (let () (declare (not safe)) - (##cdr _e2854729499_))) - (_hd2854829502_ + (##cdr _e3071231662_))) + (_hd3071131665_ (let () (declare (not safe)) - (##car _e2854729499_)))) - (if (gx#stx-pair? _hd2854829502_) - (let ((_e2855029507_ - (gx#stx-e _hd2854829502_))) - (let ((_tl2855229512_ + (##car _e3071231662_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3071131665_)) + (let ((_e3071531670_ + (let () + (declare (not safe)) + (gx#stx-e _hd3071131665_)))) + (let ((_tl3071331675_ (let () (declare (not safe)) - (##cdr _e2855029507_))) - (_hd2855129510_ + (##cdr _e3071531670_))) + (_hd3071431673_ (let () (declare (not safe)) - (##car _e2855029507_)))) - (if (gx#identifier? _hd2855129510_) - (if (gx#stx-eq? '%#ref _hd2855129510_) - (if (gx#stx-pair? _tl2855229512_) - (let ((_e2855329515_ - (gx#stx-e - _tl2855229512_))) - (let ((_tl2855529520_ + (##car _e3071531670_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3071431673_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd3071431673_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3071331675_)) + (let ((_e3071831678_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3071331675_)))) + (let ((_tl3071631683_ (let () (declare (not safe)) - (##cdr _e2855329515_))) - (_hd2855429518_ + (##cdr _e3071831678_))) + (_hd3071731681_ (let () (declare (not safe)) - (##car _e2855329515_)))) - (if (gx#stx-null? - _tl2855529520_) - (if (gx#stx-pair/null? - _tl2854929504_) - (let ((___splice3159231593_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl2854929504_ '0))) - (let ((_tl2855829525_ + (##car _e3071831678_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3071631683_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair/null? + _tl3071031667_)) + (let ((___splice3375533756_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl3071031667_ '0)))) + (let ((_tl3072131688_ (let () (declare (not safe)) - (##vector-ref ___splice3159231593_ '1))) - (_target2855629523_ + (##vector-ref ___splice3375533756_ '1))) + (_target3071931686_ (let () (declare (not safe)) - (##vector-ref ___splice3159231593_ '0)))) - (if (gx#stx-null? _tl2855829525_) - (letrec ((_loop2855929528_ - (lambda (_hd2855729531_ _xarg2856329533_) - (if (gx#stx-pair? _hd2855729531_) - (let ((_e2856029536_ - (gx#stx-e _hd2855729531_))) - (let ((_lp-tl2856229541_ + (##vector-ref ___splice3375533756_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3072131688_)) + (letrec ((_loop3072231691_ + (lambda (_hd3072031694_ _xarg3072631696_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3072031694_)) + (let ((_e3072331699_ + (let () + (declare (not safe)) + (gx#stx-e + _hd3072031694_)))) + (let ((_lp-tl3072531704_ (let () (declare (not safe)) - (##cdr _e2856029536_))) - (_lp-hd2856129539_ + (##cdr _e3072331699_))) + (_lp-hd3072431702_ (let () (declare (not safe)) - (##car _e2856029536_)))) - (if (gx#stx-pair? - _lp-hd2856129539_) - (let ((_e2856529544_ - (gx#stx-e - _lp-hd2856129539_))) - (let ((_tl2856729549_ + (##car _e3072331699_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _lp-hd3072431702_)) + (let ((_e3073031707_ + (let () + (declare + (not safe)) + (gx#stx-e + _lp-hd3072431702_)))) + (let ((_tl3072831712_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2856529544_))) - (_hd2856629547_ - (let () (declare (not safe)) (##car _e2856529544_)))) - (if (gx#identifier? _hd2856629547_) - (if (gx#stx-eq? '%#ref _hd2856629547_) - (if (gx#stx-pair? _tl2856729549_) - (let ((_e2856829552_ (gx#stx-e _tl2856729549_))) - (let ((_tl2857029557_ + (##cdr _e3073031707_))) + (_hd3072931710_ + (let () (declare (not safe)) (##car _e3073031707_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3072931710_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3072931710_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3072831712_)) + (let ((_e3073331715_ + (let () + (declare (not safe)) + (gx#stx-e _tl3072831712_)))) + (let ((_tl3073131720_ + (let () + (declare (not safe)) + (##cdr _e3073331715_))) + (_hd3073231718_ + (let () + (declare (not safe)) + (##car _e3073331715_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3073131720_)) + (let ((__tmp36744 + (let () + (declare (not safe)) + (cons _hd3073231718_ + _xarg3072631696_)))) + (declare (not safe)) + (_loop3072231691_ + _lp-tl3072531704_ + __tmp36744)) + (___match3412634127_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_ + _e3069731622_ + _hd3069631625_ + _tl3069531627_ + _e3070031630_ + _hd3069931633_ + _tl3069831635_ + _e3070331638_ + _hd3070231641_ + _tl3070131643_ + _e3070631646_ + _hd3070531649_ + _tl3070431651_ + _e3070931654_ + _hd3070831657_ + _tl3070731659_ + _e3071231662_ + _hd3071131665_ + _tl3071031667_ + _e3071531670_ + _hd3071431673_ + _tl3071331675_ + _e3071831678_ + _hd3071731681_ + _tl3071631683_)))) + (___match3412634127_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_ + _e3069731622_ + _hd3069631625_ + _tl3069531627_ + _e3070031630_ + _hd3069931633_ + _tl3069831635_ + _e3070331638_ + _hd3070231641_ + _tl3070131643_ + _e3070631646_ + _hd3070531649_ + _tl3070431651_ + _e3070931654_ + _hd3070831657_ + _tl3070731659_ + _e3071231662_ + _hd3071131665_ + _tl3071031667_ + _e3071531670_ + _hd3071431673_ + _tl3071331675_ + _e3071831678_ + _hd3071731681_ + _tl3071631683_)) + (___match3412634127_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_ + _e3069731622_ + _hd3069631625_ + _tl3069531627_ + _e3070031630_ + _hd3069931633_ + _tl3069831635_ + _e3070331638_ + _hd3070231641_ + _tl3070131643_ + _e3070631646_ + _hd3070531649_ + _tl3070431651_ + _e3070931654_ + _hd3070831657_ + _tl3070731659_ + _e3071231662_ + _hd3071131665_ + _tl3071031667_ + _e3071531670_ + _hd3071431673_ + _tl3071331675_ + _e3071831678_ + _hd3071731681_ + _tl3071631683_)) + (___match3412634127_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_ + _e3069731622_ + _hd3069631625_ + _tl3069531627_ + _e3070031630_ + _hd3069931633_ + _tl3069831635_ + _e3070331638_ + _hd3070231641_ + _tl3070131643_ + _e3070631646_ + _hd3070531649_ + _tl3070431651_ + _e3070931654_ + _hd3070831657_ + _tl3070731659_ + _e3071231662_ + _hd3071131665_ + _tl3071031667_ + _e3071531670_ + _hd3071431673_ + _tl3071331675_ + _e3071831678_ + _hd3071731681_ + _tl3071631683_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3412634127_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_ + _e3069731622_ + _hd3069631625_ + _tl3069531627_ + _e3070031630_ + _hd3069931633_ + _tl3069831635_ + _e3070331638_ + _hd3070231641_ + _tl3070131643_ + _e3070631646_ + _hd3070531649_ + _tl3070431651_ + _e3070931654_ + _hd3070831657_ + _tl3070731659_ + _e3071231662_ + _hd3071131665_ + _tl3071031667_ + _e3071531670_ + _hd3071431673_ + _tl3071331675_ + _e3071831678_ + _hd3071731681_ + _tl3071631683_)))) + (let ((_xarg3072731723_ + (let () + (declare (not safe)) + (reverse _xarg3072631696_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3069531627_)) + (let ((_L31726_ + _xarg3072731723_) + (_L31727_ + _hd3071731681_) + (_L31728_ + _hd3070831657_) + (_L31729_ + _arg3069431619_)) + (if (and (let ((__tmp36742 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp36743 + (lambda (_g3176631769_ _g3176731771_) + (let () + (declare (not safe)) + (cons _g3176631769_ _g3176731771_))))) + (declare (not safe)) + (foldr1 __tmp36743 '() _L31729_)))) + (declare (not safe)) + (gx#identifier-list? __tmp36742)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L31728_ + 'make-struct-instance)) + (fx= (length (let ((__tmp36740 + (lambda (_g3177331776_ _g3177431778_) + (let () + (declare (not safe)) + (cons _g3177331776_ + _g3177431778_))))) + (declare (not safe)) + (foldr1 __tmp36740 '() _L31729_))) + (length (let ((__tmp36741 + (lambda (_g3178031783_ _g3178131785_) + (let () + (declare (not safe)) + (cons _g3178031783_ + _g3178131785_))))) + (declare (not safe)) + (foldr1 __tmp36741 '() _L31726_)))) + (let ((__tmp36738 + (let ((__tmp36739 + (lambda (_g3178731790_ _g3178831792_) (let () (declare (not safe)) - (##cdr _e2856829552_))) - (_hd2856929555_ + (cons _g3178731790_ _g3178831792_))))) + (declare (not safe)) + (foldr1 __tmp36739 '() _L31729_))) + (__tmp36736 + (let ((__tmp36737 + (lambda (_g3179431797_ _g3179531799_) (let () (declare (not safe)) - (##car _e2856829552_)))) - (if (gx#stx-null? _tl2857029557_) - (_loop2855929528_ - _lp-tl2856229541_ - (cons _hd2856929555_ _xarg2856329533_)) - (___match3196331964_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_ - _e2853229459_ - _hd2853329462_ - _tl2853429464_ - _e2853529467_ - _hd2853629470_ - _tl2853729472_ - _e2853829475_ - _hd2853929478_ - _tl2854029480_ - _e2854129483_ - _hd2854229486_ - _tl2854329488_ - _e2854429491_ - _hd2854529494_ - _tl2854629496_ - _e2854729499_ - _hd2854829502_ - _tl2854929504_ - _e2855029507_ - _hd2855129510_ - _tl2855229512_ - _e2855329515_ - _hd2855429518_ - _tl2855529520_)))) - (___match3196331964_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_ - _e2853229459_ - _hd2853329462_ - _tl2853429464_ - _e2853529467_ - _hd2853629470_ - _tl2853729472_ - _e2853829475_ - _hd2853929478_ - _tl2854029480_ - _e2854129483_ - _hd2854229486_ - _tl2854329488_ - _e2854429491_ - _hd2854529494_ - _tl2854629496_ - _e2854729499_ - _hd2854829502_ - _tl2854929504_ - _e2855029507_ - _hd2855129510_ - _tl2855229512_ - _e2855329515_ - _hd2855429518_ - _tl2855529520_)) - (___match3196331964_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_ - _e2853229459_ - _hd2853329462_ - _tl2853429464_ - _e2853529467_ - _hd2853629470_ - _tl2853729472_ - _e2853829475_ - _hd2853929478_ - _tl2854029480_ - _e2854129483_ - _hd2854229486_ - _tl2854329488_ - _e2854429491_ - _hd2854529494_ - _tl2854629496_ - _e2854729499_ - _hd2854829502_ - _tl2854929504_ - _e2855029507_ - _hd2855129510_ - _tl2855229512_ - _e2855329515_ - _hd2855429518_ - _tl2855529520_)) - (___match3196331964_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_ - _e2853229459_ - _hd2853329462_ - _tl2853429464_ - _e2853529467_ - _hd2853629470_ - _tl2853729472_ - _e2853829475_ - _hd2853929478_ - _tl2854029480_ - _e2854129483_ - _hd2854229486_ - _tl2854329488_ - _e2854429491_ - _hd2854529494_ - _tl2854629496_ - _e2854729499_ - _hd2854829502_ - _tl2854929504_ - _e2855029507_ - _hd2855129510_ - _tl2855229512_ - _e2855329515_ - _hd2855429518_ - _tl2855529520_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3196331964_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_ - _e2853229459_ - _hd2853329462_ - _tl2853429464_ - _e2853529467_ - _hd2853629470_ - _tl2853729472_ - _e2853829475_ - _hd2853929478_ - _tl2854029480_ - _e2854129483_ - _hd2854229486_ - _tl2854329488_ - _e2854429491_ - _hd2854529494_ - _tl2854629496_ - _e2854729499_ - _hd2854829502_ - _tl2854929504_ - _e2855029507_ - _hd2855129510_ - _tl2855229512_ - _e2855329515_ - _hd2855429518_ - _tl2855529520_)))) - (let ((_xarg2856429560_ - (reverse _xarg2856329533_))) - (if (gx#stx-null? _tl2853429464_) - (let ((_L29563_ - _xarg2856429560_) - (_L29564_ - _hd2855429518_) - (_L29565_ - _hd2854529494_) - (_L29566_ - _arg2853129456_)) - (if (and (gx#identifier-list? - (foldr1 (lambda (_g2960329606_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2960429608_) - (cons _g2960329606_ _g2960429608_)) - '() - _L29566_)) - (gxc#runtime-identifier=? _L29565_ 'make-struct-instance) - (fx= (length (foldr1 (lambda (_g2961029613_ _g2961129615_) - (cons _g2961029613_ _g2961129615_)) - '() - _L29566_)) - (length (foldr1 (lambda (_g2961729620_ _g2961829622_) - (cons _g2961729620_ _g2961829622_)) - '() - _L29563_))) - (andmap2 gx#free-identifier=? - (foldr1 (lambda (_g2962429627_ _g2962529629_) - (cons _g2962429627_ _g2962529629_)) - '() - _L29566_) - (foldr1 (lambda (_g2963129634_ _g2963229636_) - (cons _g2963129634_ _g2963229636_)) - '() - _L29563_))) - (___kont3158831589_ _L29563_ _L29564_ _L29565_ _L29566_) - (___match3196331964_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_ - _e2853229459_ - _hd2853329462_ - _tl2853429464_ - _e2853529467_ - _hd2853629470_ - _tl2853729472_ - _e2853829475_ - _hd2853929478_ - _tl2854029480_ - _e2854129483_ - _hd2854229486_ - _tl2854329488_ - _e2854429491_ - _hd2854529494_ - _tl2854629496_ - _e2854729499_ - _hd2854829502_ - _tl2854929504_ - _e2855029507_ - _hd2855129510_ - _tl2855229512_ - _e2855329515_ - _hd2855429518_ - _tl2855529520_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3196331964_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_ - _e2853229459_ - _hd2853329462_ - _tl2853429464_ - _e2853529467_ - _hd2853629470_ - _tl2853729472_ - _e2853829475_ - _hd2853929478_ - _tl2854029480_ - _e2854129483_ - _hd2854229486_ - _tl2854329488_ - _e2854429491_ - _hd2854529494_ - _tl2854629496_ - _e2854729499_ - _hd2854829502_ - _tl2854929504_ - _e2855029507_ - _hd2855129510_ - _tl2855229512_ - _e2855329515_ - _hd2855429518_ - _tl2855529520_))))))) - (_loop2855929528_ _target2855629523_ '())) - (___match3196331964_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_ - _e2853229459_ - _hd2853329462_ - _tl2853429464_ - _e2853529467_ - _hd2853629470_ - _tl2853729472_ - _e2853829475_ - _hd2853929478_ - _tl2854029480_ - _e2854129483_ - _hd2854229486_ - _tl2854329488_ - _e2854429491_ - _hd2854529494_ - _tl2854629496_ - _e2854729499_ - _hd2854829502_ - _tl2854929504_ - _e2855029507_ - _hd2855129510_ - _tl2855229512_ - _e2855329515_ - _hd2855429518_ - _tl2855529520_)))) - (___match3196331964_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_ - _e2853229459_ - _hd2853329462_ - _tl2853429464_ - _e2853529467_ - _hd2853629470_ - _tl2853729472_ - _e2853829475_ - _hd2853929478_ - _tl2854029480_ - _e2854129483_ - _hd2854229486_ - _tl2854329488_ - _e2854429491_ - _hd2854529494_ - _tl2854629496_ - _e2854729499_ - _hd2854829502_ - _tl2854929504_ - _e2855029507_ - _hd2855129510_ - _tl2855229512_ - _e2855329515_ - _hd2855429518_ - _tl2855529520_)) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)))) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)))) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)))) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)))) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)))) - (___match3205132052_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_))))))) - (_loop2852629440_ _target2852329435_ '())))) - (___match3187931880_ - (lambda (_e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_) - (if (gx#stx-pair/null? _hd2852129430_) - (let ((___splice3159031591_ - (gx#syntax-split-splice _hd2852129430_ '0))) - (let ((_tl2852529437_ + (cons _g3179431797_ _g3179531799_))))) + (declare (not safe)) + (foldr1 __tmp36737 '() _L31726_)))) + (declare (not safe)) + (andmap2 gx#free-identifier=? __tmp36738 __tmp36736))) + (___kont3375133752_ _L31726_ _L31727_ _L31728_ _L31729_) + (___match3412634127_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_ + _e3069731622_ + _hd3069631625_ + _tl3069531627_ + _e3070031630_ + _hd3069931633_ + _tl3069831635_ + _e3070331638_ + _hd3070231641_ + _tl3070131643_ + _e3070631646_ + _hd3070531649_ + _tl3070431651_ + _e3070931654_ + _hd3070831657_ + _tl3070731659_ + _e3071231662_ + _hd3071131665_ + _tl3071031667_ + _e3071531670_ + _hd3071431673_ + _tl3071331675_ + _e3071831678_ + _hd3071731681_ + _tl3071631683_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3412634127_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_ + _e3069731622_ + _hd3069631625_ + _tl3069531627_ + _e3070031630_ + _hd3069931633_ + _tl3069831635_ + _e3070331638_ + _hd3070231641_ + _tl3070131643_ + _e3070631646_ + _hd3070531649_ + _tl3070431651_ + _e3070931654_ + _hd3070831657_ + _tl3070731659_ + _e3071231662_ + _hd3071131665_ + _tl3071031667_ + _e3071531670_ + _hd3071431673_ + _tl3071331675_ + _e3071831678_ + _hd3071731681_ + _tl3071631683_))))))) + (let () + (declare (not safe)) + (_loop3072231691_ _target3071931686_ '()))) + (___match3412634127_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_ + _e3069731622_ + _hd3069631625_ + _tl3069531627_ + _e3070031630_ + _hd3069931633_ + _tl3069831635_ + _e3070331638_ + _hd3070231641_ + _tl3070131643_ + _e3070631646_ + _hd3070531649_ + _tl3070431651_ + _e3070931654_ + _hd3070831657_ + _tl3070731659_ + _e3071231662_ + _hd3071131665_ + _tl3071031667_ + _e3071531670_ + _hd3071431673_ + _tl3071331675_ + _e3071831678_ + _hd3071731681_ + _tl3071631683_)))) + (___match3412634127_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_ + _e3069731622_ + _hd3069631625_ + _tl3069531627_ + _e3070031630_ + _hd3069931633_ + _tl3069831635_ + _e3070331638_ + _hd3070231641_ + _tl3070131643_ + _e3070631646_ + _hd3070531649_ + _tl3070431651_ + _e3070931654_ + _hd3070831657_ + _tl3070731659_ + _e3071231662_ + _hd3071131665_ + _tl3071031667_ + _e3071531670_ + _hd3071431673_ + _tl3071331675_ + _e3071831678_ + _hd3071731681_ + _tl3071631683_)) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)))) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)))) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)))) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)))) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)))) + (___match3421434215_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_))))))) + (let () + (declare (not safe)) + (_loop3068931603_ _target3068631598_ '()))))) + (___match3404234043_ + (lambda (_e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd3068431593_)) + (let ((___splice3375333754_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd3068431593_ + '0)))) + (let ((_tl3068831600_ (let () (declare (not safe)) - (##vector-ref ___splice3159031591_ '1))) - (_target2852329435_ + (##vector-ref ___splice3375333754_ '1))) + (_target3068631598_ (let () (declare (not safe)) - (##vector-ref ___splice3159031591_ '0)))) - (if (gx#stx-null? _tl2852529437_) - (___match3188731888_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_ - ___splice3159031591_ - _target2852329435_ - _tl2852529437_) - (___match3189931900_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)))) - (___match3189931900_ - _e2851729419_ - _hd2851829422_ - _tl2851929424_ - _e2852029427_ - _hd2852129430_ - _tl2852229432_)))) - (___match3186731868_ - (lambda (_e2846529649_ - _hd2846629652_ - _tl2846729654_ - _e2846829657_ - _hd2846929660_ - _tl2847029662_ - _e2847129665_ - _hd2847229668_ - _tl2847329670_ - _e2847429673_ - _hd2847529676_ - _tl2847629678_ - _e2847729681_ - _hd2847829684_ - _tl2847929686_ - _e2848029689_ - _hd2848129692_ - _tl2848229694_ - _e2848329697_ - _hd2848429700_ - _tl2848529702_ - _e2848629705_ - _hd2848729708_ - _tl2848829710_ - _e2848929713_ - _hd2849029716_ - _tl2849129718_ - _e2849229721_ - _hd2849329724_ - _tl2849429726_ - _e2849529729_ - _hd2849629732_ - _tl2849729734_ - _e2849829737_ - _hd2849929740_ - _tl2850029742_ - _e2850129745_ - _hd2850229748_ - _tl2850329750_ - _e2850429753_ - _hd2850529756_ - _tl2850629758_ - _e2850729761_ - _hd2850829764_ - _tl2850929766_ - _e2851029769_ - _hd2851129772_ - _tl2851229774_) - (let ((_L29777_ _hd2851129772_) - (_L29778_ _hd2850229748_) - (_L29779_ _hd2849329724_) - (_L29780_ _hd2848429700_) - (_L29781_ _hd2846929660_)) - (if (and (gx#identifier? _L29781_) - (gxc#runtime-identifier=? _L29780_ 'apply) - (gxc#runtime-identifier=? - _L29779_ - 'make-class-instance) - (gx#free-identifier=? _L29781_ _L29777_)) - (___kont3158631587_ - _L29777_ - _L29778_ - _L29779_ - _L29780_ - _L29781_) - (___match3187931880_ - _e2846529649_ - _hd2846629652_ - _tl2846729654_ - _e2846829657_ - _hd2846929660_ - _tl2847029662_))))) - (___match3173931740_ - (lambda (_e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_ - _e2841829850_ - _hd2841929853_ - _tl2842029855_ - _e2842129858_ - _hd2842229861_ - _tl2842329863_ - _e2842429866_ - _hd2842529869_ - _tl2842629871_ - _e2842729874_ - _hd2842829877_ - _tl2842929879_ - _e2843029882_ - _hd2843129885_ - _tl2843229887_ - _e2843329890_ - _hd2843429893_ - _tl2843529895_ - _e2843629898_ - _hd2843729901_ - _tl2843829903_ - _e2843929906_ - _hd2844029909_ - _tl2844129911_ - _e2844229914_ - _hd2844329917_ - _tl2844429919_ - _e2844529922_ - _hd2844629925_ - _tl2844729927_ - _e2844829930_ - _hd2844929933_ - _tl2845029935_ - _e2845129938_ - _hd2845229941_ - _tl2845329943_ - _e2845429946_ - _hd2845529949_ - _tl2845629951_ - _e2845729954_ - _hd2845829957_ - _tl2845929959_) - (let ((_L29962_ _hd2845829957_) - (_L29963_ _hd2844929933_) - (_L29964_ _hd2844029909_) - (_L29965_ _hd2843129885_) - (_L29966_ _hd2841629845_)) - (if (and (gx#identifier? _L29966_) - (gxc#runtime-identifier=? _L29965_ 'apply) - (gxc#runtime-identifier=? - _L29964_ - 'make-struct-instance) - (gx#free-identifier=? _L29966_ _L29962_)) - (___kont3158431585_ - _L29962_ - _L29963_ - _L29964_ - _L29965_ - _L29966_) - (___match3186731868_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_ - _e2841829850_ - _hd2841929853_ - _tl2842029855_ - _e2842129858_ - _hd2842229861_ - _tl2842329863_ - _e2842429866_ - _hd2842529869_ - _tl2842629871_ - _e2842729874_ - _hd2842829877_ - _tl2842929879_ - _e2843029882_ - _hd2843129885_ - _tl2843229887_ - _e2843329890_ - _hd2843429893_ - _tl2843529895_ - _e2843629898_ - _hd2843729901_ - _tl2843829903_ - _e2843929906_ - _hd2844029909_ - _tl2844129911_ - _e2844229914_ - _hd2844329917_ - _tl2844429919_ - _e2844529922_ - _hd2844629925_ - _tl2844729927_ - _e2844829930_ - _hd2844929933_ - _tl2845029935_ - _e2845129938_ - _hd2845229941_ - _tl2845329943_ - _e2845429946_ - _hd2845529949_ - _tl2845629951_ - _e2845729954_ - _hd2845829957_ - _tl2845929959_))))) - (___match3161731618_ - (lambda (_e2841229834_ _hd2841329837_ _tl2841429839_) - (if (gx#stx-pair? _tl2841429839_) - (let ((_e2841529842_ (gx#stx-e _tl2841429839_))) - (let ((_tl2841729847_ + (##vector-ref ___splice3375333754_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3068831600_)) + (___match3405034051_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_ + ___splice3375333754_ + _target3068631598_ + _tl3068831600_) + (___match3406234063_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)))) + (___match3406234063_ + _e3068231582_ + _hd3068131585_ + _tl3068031587_ + _e3068531590_ + _hd3068431593_ + _tl3068331595_)))) + (___match3403034031_ + (lambda (_e3063031812_ + _hd3062931815_ + _tl3062831817_ + _e3063331820_ + _hd3063231823_ + _tl3063131825_ + _e3063631828_ + _hd3063531831_ + _tl3063431833_ + _e3063931836_ + _hd3063831839_ + _tl3063731841_ + _e3064231844_ + _hd3064131847_ + _tl3064031849_ + _e3064531852_ + _hd3064431855_ + _tl3064331857_ + _e3064831860_ + _hd3064731863_ + _tl3064631865_ + _e3065131868_ + _hd3065031871_ + _tl3064931873_ + _e3065431876_ + _hd3065331879_ + _tl3065231881_ + _e3065731884_ + _hd3065631887_ + _tl3065531889_ + _e3066031892_ + _hd3065931895_ + _tl3065831897_ + _e3066331900_ + _hd3066231903_ + _tl3066131905_ + _e3066631908_ + _hd3066531911_ + _tl3066431913_ + _e3066931916_ + _hd3066831919_ + _tl3066731921_ + _e3067231924_ + _hd3067131927_ + _tl3067031929_ + _e3067531932_ + _hd3067431935_ + _tl3067331937_) + (let ((_L31940_ _hd3067431935_) + (_L31941_ _hd3066531911_) + (_L31942_ _hd3065631887_) + (_L31943_ _hd3064731863_) + (_L31944_ _hd3063231823_)) + (if (and (let () + (declare (not safe)) + (gx#identifier? _L31944_)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? _L31943_ 'apply)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L31942_ + 'make-class-instance)) + (let () + (declare (not safe)) + (gx#free-identifier=? _L31944_ _L31940_))) + (___kont3374933750_ + _L31940_ + _L31941_ + _L31942_ + _L31943_ + _L31944_) + (___match3404234043_ + _e3063031812_ + _hd3062931815_ + _tl3062831817_ + _e3063331820_ + _hd3063231823_ + _tl3063131825_))))) + (___match3390233903_ + (lambda (_e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_ + _e3058332013_ + _hd3058232016_ + _tl3058132018_ + _e3058632021_ + _hd3058532024_ + _tl3058432026_ + _e3058932029_ + _hd3058832032_ + _tl3058732034_ + _e3059232037_ + _hd3059132040_ + _tl3059032042_ + _e3059532045_ + _hd3059432048_ + _tl3059332050_ + _e3059832053_ + _hd3059732056_ + _tl3059632058_ + _e3060132061_ + _hd3060032064_ + _tl3059932066_ + _e3060432069_ + _hd3060332072_ + _tl3060232074_ + _e3060732077_ + _hd3060632080_ + _tl3060532082_ + _e3061032085_ + _hd3060932088_ + _tl3060832090_ + _e3061332093_ + _hd3061232096_ + _tl3061132098_ + _e3061632101_ + _hd3061532104_ + _tl3061432106_ + _e3061932109_ + _hd3061832112_ + _tl3061732114_ + _e3062232117_ + _hd3062132120_ + _tl3062032122_) + (let ((_L32125_ _hd3062132120_) + (_L32126_ _hd3061232096_) + (_L32127_ _hd3060332072_) + (_L32128_ _hd3059432048_) + (_L32129_ _hd3057932008_)) + (if (and (let () + (declare (not safe)) + (gx#identifier? _L32129_)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? _L32128_ 'apply)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L32127_ + 'make-struct-instance)) + (let () + (declare (not safe)) + (gx#free-identifier=? _L32129_ _L32125_))) + (___kont3374733748_ + _L32125_ + _L32126_ + _L32127_ + _L32128_ + _L32129_) + (___match3403034031_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_ + _e3058332013_ + _hd3058232016_ + _tl3058132018_ + _e3058632021_ + _hd3058532024_ + _tl3058432026_ + _e3058932029_ + _hd3058832032_ + _tl3058732034_ + _e3059232037_ + _hd3059132040_ + _tl3059032042_ + _e3059532045_ + _hd3059432048_ + _tl3059332050_ + _e3059832053_ + _hd3059732056_ + _tl3059632058_ + _e3060132061_ + _hd3060032064_ + _tl3059932066_ + _e3060432069_ + _hd3060332072_ + _tl3060232074_ + _e3060732077_ + _hd3060632080_ + _tl3060532082_ + _e3061032085_ + _hd3060932088_ + _tl3060832090_ + _e3061332093_ + _hd3061232096_ + _tl3061132098_ + _e3061632101_ + _hd3061532104_ + _tl3061432106_ + _e3061932109_ + _hd3061832112_ + _tl3061732114_ + _e3062232117_ + _hd3062132120_ + _tl3062032122_))))) + (___match3378033781_ + (lambda (_e3057731997_ _hd3057632000_ _tl3057532002_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3057532002_)) + (let ((_e3058032005_ + (let () + (declare (not safe)) + (gx#stx-e _tl3057532002_)))) + (let ((_tl3057832010_ (let () (declare (not safe)) - (##cdr _e2841529842_))) - (_hd2841629845_ + (##cdr _e3058032005_))) + (_hd3057932008_ (let () (declare (not safe)) - (##car _e2841529842_)))) - (if (gx#stx-pair? _tl2841729847_) - (let ((_e2841829850_ - (gx#stx-e _tl2841729847_))) - (let ((_tl2842029855_ + (##car _e3058032005_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3057832010_)) + (let ((_e3058332013_ + (let () + (declare (not safe)) + (gx#stx-e _tl3057832010_)))) + (let ((_tl3058132018_ (let () (declare (not safe)) - (##cdr _e2841829850_))) - (_hd2841929853_ + (##cdr _e3058332013_))) + (_hd3058232016_ (let () (declare (not safe)) - (##car _e2841829850_)))) - (if (gx#stx-pair? _hd2841929853_) - (let ((_e2842129858_ - (gx#stx-e _hd2841929853_))) - (let ((_tl2842329863_ + (##car _e3058332013_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3058232016_)) + (let ((_e3058632021_ + (let () + (declare (not safe)) + (gx#stx-e _hd3058232016_)))) + (let ((_tl3058432026_ (let () (declare (not safe)) - (##cdr _e2842129858_))) - (_hd2842229861_ + (##cdr _e3058632021_))) + (_hd3058532024_ (let () (declare (not safe)) - (##car _e2842129858_)))) - (if (gx#identifier? - _hd2842229861_) - (if (gx#stx-eq? - '%#call - _hd2842229861_) - (if (gx#stx-pair? - _tl2842329863_) - (let ((_e2842429866_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2842329863_))) - (let ((_tl2842629871_ - (let () (declare (not safe)) (##cdr _e2842429866_))) - (_hd2842529869_ + (##car _e3058632021_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd3058532024_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd3058532024_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl3058432026_)) + (let ((_e3058932029_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl3058432026_)))) + (let ((_tl3058732034_ + (let () (declare (not safe)) (##cdr _e3058932029_))) + (_hd3058832032_ (let () (declare (not safe)) - (##car _e2842429866_)))) - (if (gx#stx-pair? _hd2842529869_) - (let ((_e2842729874_ (gx#stx-e _hd2842529869_))) - (let ((_tl2842929879_ + (##car _e3058932029_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3058832032_)) + (let ((_e3059232037_ + (let () + (declare (not safe)) + (gx#stx-e _hd3058832032_)))) + (let ((_tl3059032042_ (let () (declare (not safe)) - (##cdr _e2842729874_))) - (_hd2842829877_ + (##cdr _e3059232037_))) + (_hd3059132040_ (let () (declare (not safe)) - (##car _e2842729874_)))) - (if (gx#identifier? _hd2842829877_) - (if (gx#stx-eq? '%#ref _hd2842829877_) - (if (gx#stx-pair? _tl2842929879_) - (let ((_e2843029882_ - (gx#stx-e _tl2842929879_))) - (let ((_tl2843229887_ + (##car _e3059232037_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3059132040_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3059132040_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3059032042_)) + (let ((_e3059532045_ + (let () + (declare (not safe)) + (gx#stx-e _tl3059032042_)))) + (let ((_tl3059332050_ (let () (declare (not safe)) - (##cdr _e2843029882_))) - (_hd2843129885_ + (##cdr _e3059532045_))) + (_hd3059432048_ (let () (declare (not safe)) - (##car _e2843029882_)))) - (if (gx#stx-null? _tl2843229887_) - (if (gx#stx-pair? - _tl2842629871_) - (let ((_e2843329890_ - (gx#stx-e - _tl2842629871_))) - (let ((_tl2843529895_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2843329890_))) - (_hd2843429893_ - (let () (declare (not safe)) (##car _e2843329890_)))) - (if (gx#stx-pair? _hd2843429893_) - (let ((_e2843629898_ (gx#stx-e _hd2843429893_))) - (let ((_tl2843829903_ + (##car _e3059532045_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3059332050_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3058732034_)) + (let ((_e3059832053_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _tl3058732034_)))) + (let ((_tl3059632058_ + (let () (declare (not safe)) (##cdr _e3059832053_))) + (_hd3059732056_ + (let () (declare (not safe)) (##car _e3059832053_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3059732056_)) + (let ((_e3060132061_ + (let () + (declare (not safe)) + (gx#stx-e _hd3059732056_)))) + (let ((_tl3059932066_ (let () (declare (not safe)) - (##cdr _e2843629898_))) - (_hd2843729901_ + (##cdr _e3060132061_))) + (_hd3060032064_ (let () (declare (not safe)) - (##car _e2843629898_)))) - (if (gx#identifier? _hd2843729901_) - (if (gx#stx-eq? '%#ref _hd2843729901_) - (if (gx#stx-pair? _tl2843829903_) - (let ((_e2843929906_ - (gx#stx-e _tl2843829903_))) - (let ((_tl2844129911_ + (##car _e3060132061_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3060032064_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3060032064_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3059932066_)) + (let ((_e3060432069_ + (let () + (declare (not safe)) + (gx#stx-e _tl3059932066_)))) + (let ((_tl3060232074_ (let () (declare (not safe)) - (##cdr _e2843929906_))) - (_hd2844029909_ + (##cdr _e3060432069_))) + (_hd3060332072_ (let () (declare (not safe)) - (##car _e2843929906_)))) - (if (gx#stx-null? _tl2844129911_) - (if (gx#stx-pair? _tl2843529895_) - (let ((_e2844229914_ - (gx#stx-e - _tl2843529895_))) - (let ((_tl2844429919_ + (##car _e3060432069_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3060232074_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3059632058_)) + (let ((_e3060732077_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3059632058_)))) + (let ((_tl3060532082_ (let () (declare (not safe)) - (##cdr _e2844229914_))) - (_hd2844329917_ + (##cdr _e3060732077_))) + (_hd3060632080_ (let () (declare (not safe)) - (##car _e2844229914_)))) - (if (gx#stx-pair? - _hd2844329917_) - (let ((_e2844529922_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd2844329917_))) - (let ((_tl2844729927_ - (let () (declare (not safe)) (##cdr _e2844529922_))) - (_hd2844629925_ + (##car _e3060732077_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd3060632080_)) + (let ((_e3061032085_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd3060632080_)))) + (let ((_tl3060832090_ + (let () (declare (not safe)) (##cdr _e3061032085_))) + (_hd3060932088_ (let () (declare (not safe)) - (##car _e2844529922_)))) - (if (gx#identifier? _hd2844629925_) - (if (gx#stx-eq? '%#ref _hd2844629925_) - (if (gx#stx-pair? _tl2844729927_) - (let ((_e2844829930_ - (gx#stx-e _tl2844729927_))) - (let ((_tl2845029935_ + (##car _e3061032085_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3060932088_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3060932088_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3060832090_)) + (let ((_e3061332093_ + (let () + (declare (not safe)) + (gx#stx-e _tl3060832090_)))) + (let ((_tl3061132098_ (let () (declare (not safe)) - (##cdr _e2844829930_))) - (_hd2844929933_ + (##cdr _e3061332093_))) + (_hd3061232096_ (let () (declare (not safe)) - (##car _e2844829930_)))) - (if (gx#stx-null? _tl2845029935_) - (if (gx#stx-pair? _tl2844429919_) - (let ((_e2845129938_ - (gx#stx-e - _tl2844429919_))) - (let ((_tl2845329943_ + (##car _e3061332093_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3061132098_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3060532082_)) + (let ((_e3061632101_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3060532082_)))) + (let ((_tl3061432106_ (let () (declare (not safe)) - (##cdr _e2845129938_))) - (_hd2845229941_ + (##cdr _e3061632101_))) + (_hd3061532104_ (let () (declare (not safe)) - (##car _e2845129938_)))) - (if (gx#stx-pair? - _hd2845229941_) - (let ((_e2845429946_ - (gx#stx-e - _hd2845229941_))) - (let ((_tl2845629951_ - (let () + (##car _e3061632101_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd3061532104_)) + (let ((_e3061932109_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2845429946_))) - (_hd2845529949_ - (let () (declare (not safe)) (##car _e2845429946_)))) - (if (gx#identifier? _hd2845529949_) - (if (gx#stx-eq? '%#ref _hd2845529949_) - (if (gx#stx-pair? _tl2845629951_) - (let ((_e2845729954_ (gx#stx-e _tl2845629951_))) - (let ((_tl2845929959_ + (not safe)) + (gx#stx-e _hd3061532104_)))) + (let ((_tl3061732114_ + (let () (declare (not safe)) (##cdr _e3061932109_))) + (_hd3061832112_ + (let () (declare (not safe)) (##car _e3061932109_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3061832112_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd3061832112_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3061732114_)) + (let ((_e3062232117_ + (let () + (declare (not safe)) + (gx#stx-e _tl3061732114_)))) + (let ((_tl3062032122_ (let () (declare (not safe)) - (##cdr _e2845729954_))) - (_hd2845829957_ + (##cdr _e3062232117_))) + (_hd3062132120_ (let () (declare (not safe)) - (##car _e2845729954_)))) - (if (gx#stx-null? _tl2845929959_) - (if (gx#stx-null? _tl2845329943_) - (if (gx#stx-null? _tl2842029855_) - (___match3173931740_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_ - _e2841829850_ - _hd2841929853_ - _tl2842029855_ - _e2842129858_ - _hd2842229861_ - _tl2842329863_ - _e2842429866_ - _hd2842529869_ - _tl2842629871_ - _e2842729874_ - _hd2842829877_ - _tl2842929879_ - _e2843029882_ - _hd2843129885_ - _tl2843229887_ - _e2843329890_ - _hd2843429893_ - _tl2843529895_ - _e2843629898_ - _hd2843729901_ - _tl2843829903_ - _e2843929906_ - _hd2844029909_ - _tl2844129911_ - _e2844229914_ - _hd2844329917_ - _tl2844429919_ - _e2844529922_ - _hd2844629925_ - _tl2844729927_ - _e2844829930_ - _hd2844929933_ - _tl2845029935_ - _e2845129938_ - _hd2845229941_ - _tl2845329943_ - _e2845429946_ - _hd2845529949_ - _tl2845629951_ - _e2845729954_ - _hd2845829957_ - _tl2845929959_) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3187931880_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_ - _e2841529842_ - _hd2841629845_ - _tl2841729847_)))) - (___match3218532186_ - _e2841229834_ - _hd2841329837_ - _tl2841429839_))))) - (if (gx#stx-pair? ___stx3158031581_) - (let ((_e2840430019_ (gx#stx-e ___stx3158031581_))) - (let ((_tl2840630024_ - (let () (declare (not safe)) (##cdr _e2840430019_))) - (_hd2840530022_ + (##car _e3062232117_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3062032122_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3061432106_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3058132018_)) + (___match3390233903_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_ + _e3058332013_ + _hd3058232016_ + _tl3058132018_ + _e3058632021_ + _hd3058532024_ + _tl3058432026_ + _e3058932029_ + _hd3058832032_ + _tl3058732034_ + _e3059232037_ + _hd3059132040_ + _tl3059032042_ + _e3059532045_ + _hd3059432048_ + _tl3059332050_ + _e3059832053_ + _hd3059732056_ + _tl3059632058_ + _e3060132061_ + _hd3060032064_ + _tl3059932066_ + _e3060432069_ + _hd3060332072_ + _tl3060232074_ + _e3060732077_ + _hd3060632080_ + _tl3060532082_ + _e3061032085_ + _hd3060932088_ + _tl3060832090_ + _e3061332093_ + _hd3061232096_ + _tl3061132098_ + _e3061632101_ + _hd3061532104_ + _tl3061432106_ + _e3061932109_ + _hd3061832112_ + _tl3061732114_ + _e3062232117_ + _hd3062132120_ + _tl3062032122_) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3404234043_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_ + _e3058032005_ + _hd3057932008_ + _tl3057832010_)))) + (___match3434834349_ + _e3057731997_ + _hd3057632000_ + _tl3057532002_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3374333744_)) + (let ((_e3056932182_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3374333744_)))) + (let ((_tl3056732187_ + (let () (declare (not safe)) (##cdr _e3056932182_))) + (_hd3056832185_ (let () (declare (not safe)) - (##car _e2840430019_)))) + (##car _e3056932182_)))) (if (gxc#current-compile-type-closure) - (let ((_L30027_ _tl2840630024_)) - (___kont3158231583_ _L30027_)) - (___match3161731618_ - _e2840430019_ - _hd2840530022_ - _tl2840630024_)))) - (_g2840128761_))))))) + (let ((_L32190_ _tl3056732187_)) + (___kont3374533746_ _L32190_)) + (___match3378033781_ + _e3056932182_ + _hd3056832185_ + _tl3056732187_)))) + (let () (declare (not safe)) (_g3056430924_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_stx28347_) - (letrec ((_clause-e28349_ - (lambda (_form28390_) - (let ((__obj34498 (make-object gxc#!lambda::t '5))) - (gxc#!lambda:::init!__0 - __obj34498 - 'case-lambda-clause - (gxc#lambda-form-arity _form28390_) - (if (not (gxc#current-compile-type-closure)) - (if (gxc#dispatch-lambda-form? _form28390_) - (gxc#dispatch-lambda-form-delegate _form28390_) - '#f) - '#f)) - __obj34498)))) - (let* ((_g2835128361_ - (lambda (_g2835228358_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2835228358_))) - (_g2835028387_ - (lambda (_g2835228364_) - (if (gx#stx-pair? _g2835228364_) - (let ((_e2835428366_ (gx#stx-e _g2835228364_))) - (let ((_hd2835528369_ + (lambda (_stx30510_) + (letrec ((_clause-e30512_ + (lambda (_form30553_) + (let ((__obj36661 (make-object gxc#!lambda::t '5))) + (let ((__tmp36748 + (let () + (declare (not safe)) + (gxc#lambda-form-arity _form30553_))) + (__tmp36746 + (if (let ((__tmp36747 + (gxc#current-compile-type-closure))) + (declare (not safe)) + (not __tmp36747)) + (if (let () + (declare (not safe)) + (gxc#dispatch-lambda-form? _form30553_)) + (let () + (declare (not safe)) + (gxc#dispatch-lambda-form-delegate + _form30553_)) + '#f) + '#f))) + (declare (not safe)) + (gxc#!lambda:::init!__0 + __obj36661 + 'case-lambda-clause + __tmp36748 + __tmp36746)) + __obj36661)))) + (let* ((_g3051430524_ + (lambda (_g3051530521_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g3051530521_)))) + (_g3051330550_ + (lambda (_g3051530527_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g3051530527_)) + (let ((_e3051930529_ + (let () + (declare (not safe)) + (gx#stx-e _g3051530527_)))) + (let ((_hd3051830532_ (let () (declare (not safe)) - (##car _e2835428366_))) - (_tl2835628371_ + (##car _e3051930529_))) + (_tl3051730534_ (let () (declare (not safe)) - (##cdr _e2835428366_)))) - ((lambda (_L28374_) - (let ((_clauses28385_ - (map _clause-e28349_ _L28374_))) + (##cdr _e3051930529_)))) + ((lambda (_L30537_) + (let ((_clauses30548_ + (let () + (declare (not safe)) + (map _clause-e30512_ _L30537_)))) (declare (not safe)) (##structure gxc#!case-lambda::t 'case-lambda - _clauses28385_))) - _tl2835628371_))) - (_g2835128361_ _g2835228364_))))) - (_g2835028387_ _stx28347_))))) + _clauses30548_))) + _tl3051730534_))) + (let () + (declare (not safe)) + (_g3051430524_ _g3051530527_)))))) + (declare (not safe)) + (_g3051330550_ _stx30510_))))) (define gxc#basic-expression-type-let-values% - (lambda (_stx28279_) - (let* ((_g2828128298_ - (lambda (_g2828228295_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2828228295_))) - (_g2828028344_ - (lambda (_g2828228301_) - (if (gx#stx-pair? _g2828228301_) - (let ((_e2828528303_ (gx#stx-e _g2828228301_))) - (let ((_hd2828628306_ + (lambda (_stx30442_) + (let* ((_g3044430461_ + (lambda (_g3044530458_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g3044530458_)))) + (_g3044330507_ + (lambda (_g3044530464_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g3044530464_)) + (let ((_e3045030466_ + (let () + (declare (not safe)) + (gx#stx-e _g3044530464_)))) + (let ((_hd3044930469_ (let () (declare (not safe)) - (##car _e2828528303_))) - (_tl2828728308_ + (##car _e3045030466_))) + (_tl3044830471_ (let () (declare (not safe)) - (##cdr _e2828528303_)))) - (if (gx#stx-pair? _tl2828728308_) - (let ((_e2828828311_ (gx#stx-e _tl2828728308_))) - (let ((_hd2828928314_ + (##cdr _e3045030466_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3044830471_)) + (let ((_e3045330474_ + (let () + (declare (not safe)) + (gx#stx-e _tl3044830471_)))) + (let ((_hd3045230477_ (let () (declare (not safe)) - (##car _e2828828311_))) - (_tl2829028316_ + (##car _e3045330474_))) + (_tl3045130479_ (let () (declare (not safe)) - (##cdr _e2828828311_)))) - (if (gx#stx-pair? _tl2829028316_) - (let ((_e2829128319_ - (gx#stx-e _tl2829028316_))) - (let ((_hd2829228322_ + (##cdr _e3045330474_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3045130479_)) + (let ((_e3045630482_ + (let () + (declare (not safe)) + (gx#stx-e _tl3045130479_)))) + (let ((_hd3045530485_ (let () (declare (not safe)) - (##car _e2829128319_))) - (_tl2829328324_ + (##car _e3045630482_))) + (_tl3045430487_ (let () (declare (not safe)) - (##cdr _e2829128319_)))) - (if (gx#stx-null? _tl2829328324_) - ((lambda (_L28327_ _L28328_) - (call-with-parameters - (lambda () - (gxc#compile-e _L28327_)) - gxc#current-compile-type-closure - '#t)) - _hd2829228322_ - _hd2828928314_) - (_g2828128298_ _g2828228301_)))) - (_g2828128298_ _g2828228301_)))) - (_g2828128298_ _g2828228301_)))) - (_g2828128298_ _g2828228301_))))) - (_g2828028344_ _stx28279_)))) - (define gxc#basic-expression-type-builtin (make-table 'test: eq?)) + (##cdr _e3045630482_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl3045430487_)) + ((lambda (_L30490_ _L30491_) + (let ((__tmp36749 + (lambda () + (let () + (declare + (not safe)) + (gxc#compile-e + _L30490_))))) + (declare (not safe)) + (call-with-parameters + __tmp36749 + gxc#current-compile-type-closure + '#t))) + _hd3045530485_ + _hd3045230477_) + (let () + (declare (not safe)) + (_g3044430461_ + _g3044530464_))))) + (let () + (declare (not safe)) + (_g3044430461_ _g3044530464_))))) + (let () + (declare (not safe)) + (_g3044430461_ _g3044530464_))))) + (let () + (declare (not safe)) + (_g3044430461_ _g3044530464_)))))) + (declare (not safe)) + (_g3044330507_ _stx30442_)))) + (define gxc#basic-expression-type-builtin + (let () (declare (not safe)) (make-table 'test: eq?))) (define gxc#basic-expression-type-call% - (lambda (_stx28184_) - (let* ((___stx3219432195_ _stx28184_) - (_g2818728207_ + (lambda (_stx30347_) + (let* ((___stx3435734358_ _stx30347_) + (_g3035030370_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3219432195_)))) - (let ((___kont3219632197_ - (lambda (_L28251_ _L28252_) - (let ((_type-e2826928271_ - (table-ref - gxc#basic-expression-type-builtin - (gxc#identifier-symbol _L28252_) - '#f))) - (if _type-e2826928271_ - (let ((_type-e28274_ _type-e2826928271_)) - (_type-e28274_ _stx28184_ _L28251_)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3435734358_))))) + (let ((___kont3435934360_ + (lambda (_L30414_ _L30415_) + (let ((_type-e3043230434_ + (let ((__tmp36750 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L30415_)))) + (declare (not safe)) + (table-ref + gxc#basic-expression-type-builtin + __tmp36750 + '#f)))) + (if _type-e3043230434_ + (let ((_type-e30437_ _type-e3043230434_)) + (_type-e30437_ _stx30347_ _L30414_)) '#f)))) - (___kont3219832199_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3219432195_) - (let ((_e2819128219_ (gx#stx-e ___stx3219432195_))) - (let ((_tl2819328224_ - (let () (declare (not safe)) (##cdr _e2819128219_))) - (_hd2819228222_ - (let () (declare (not safe)) (##car _e2819128219_)))) - (if (gx#stx-pair? _tl2819328224_) - (let ((_e2819428227_ (gx#stx-e _tl2819328224_))) - (let ((_tl2819628232_ + (___kont3436134362_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3435734358_)) + (let ((_e3035630382_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3435734358_)))) + (let ((_tl3035430387_ + (let () (declare (not safe)) (##cdr _e3035630382_))) + (_hd3035530385_ + (let () (declare (not safe)) (##car _e3035630382_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl3035430387_)) + (let ((_e3035930390_ + (let () + (declare (not safe)) + (gx#stx-e _tl3035430387_)))) + (let ((_tl3035730395_ (let () (declare (not safe)) - (##cdr _e2819428227_))) - (_hd2819528230_ + (##cdr _e3035930390_))) + (_hd3035830393_ (let () (declare (not safe)) - (##car _e2819428227_)))) - (if (gx#stx-pair? _hd2819528230_) - (let ((_e2819728235_ - (gx#stx-e _hd2819528230_))) - (let ((_tl2819928240_ + (##car _e3035930390_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd3035830393_)) + (let ((_e3036230398_ + (let () + (declare (not safe)) + (gx#stx-e _hd3035830393_)))) + (let ((_tl3036030403_ (let () (declare (not safe)) - (##cdr _e2819728235_))) - (_hd2819828238_ + (##cdr _e3036230398_))) + (_hd3036130401_ (let () (declare (not safe)) - (##car _e2819728235_)))) - (if (gx#identifier? _hd2819828238_) - (if (gx#stx-eq? '%#ref _hd2819828238_) - (if (gx#stx-pair? _tl2819928240_) - (let ((_e2820028243_ - (gx#stx-e - _tl2819928240_))) - (let ((_tl2820228248_ + (##car _e3036230398_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd3036130401_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd3036130401_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl3036030403_)) + (let ((_e3036530406_ + (let () + (declare (not safe)) + (gx#stx-e + _tl3036030403_)))) + (let ((_tl3036330411_ (let () (declare (not safe)) - (##cdr _e2820028243_))) - (_hd2820128246_ + (##cdr _e3036530406_))) + (_hd3036430409_ (let () (declare (not safe)) - (##car _e2820028243_)))) - (if (gx#stx-null? - _tl2820228248_) - (___kont3219632197_ - _tl2819628232_ - _hd2820128246_) - (___kont3219832199_)))) - (___kont3219832199_)) - (___kont3219832199_)) - (___kont3219832199_)))) - (___kont3219832199_)))) - (___kont3219832199_)))) - (___kont3219832199_)))))) + (##car _e3036530406_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl3036330411_)) + (___kont3435934360_ + _tl3035730395_ + _hd3036430409_) + (___kont3436134362_)))) + (___kont3436134362_)) + (___kont3436134362_)) + (___kont3436134362_)))) + (___kont3436134362_)))) + (___kont3436134362_)))) + (___kont3436134362_)))))) (define gxc#basic-expression-type-make-struct-type - (lambda (_stx27664_ _args27665_) - (let* ((___stx3223232233_ _args27665_) - (_g2766927783_ + (lambda (_stx29827_ _args29828_) + (let* ((___stx3439534396_ _args29828_) + (_g2983229946_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3223232233_)))) - (let ((___kont3223432235_ - (lambda (_L28133_ _L28134_ _L28135_ _L28136_ _L28137_) - (let ((__obj34499 (make-object gxc#!struct-type::t '7))) - (gxc#!struct-type:::init! - __obj34499 - (gx#stx-e _L28137_) - '#f - (gx#stx-e _L28136_) - '0 - (gx#stx-e _L28133_) - (gx#stx-e _L28134_)) - __obj34499))) - (___kont3223632237_ - (lambda (_L27923_ - _L27924_ - _L27925_ - _L27926_ - _L27927_ - _L27928_) - (let* ((_super-t27974_ - (if (gx#stx-e _L27927_) - (gxc#identifier-symbol _L27927_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3439534396_))))) + (let ((___kont3439734398_ + (lambda (_L30296_ _L30297_ _L30298_ _L30299_ _L30300_) + (let ((__obj36662 (make-object gxc#!struct-type::t '7))) + (let ((__tmp36754 + (let () (declare (not safe)) (gx#stx-e _L30300_))) + (__tmp36753 + (let () (declare (not safe)) (gx#stx-e _L30299_))) + (__tmp36752 + (let () (declare (not safe)) (gx#stx-e _L30296_))) + (__tmp36751 + (let () (declare (not safe)) (gx#stx-e _L30297_)))) + (declare (not safe)) + (gxc#!struct-type:::init! + __obj36662 + __tmp36754 + '#f + __tmp36753 + '0 + __tmp36752 + __tmp36751)) + __obj36662))) + (___kont3439934400_ + (lambda (_L30086_ + _L30087_ + _L30088_ + _L30089_ + _L30090_ + _L30091_) + (let* ((_super-t30137_ + (if (let () + (declare (not safe)) + (gx#stx-e _L30090_)) + (let () + (declare (not safe)) + (gxc#identifier-symbol _L30090_)) '#f)) - (_super-type27976_ - (if _super-t27974_ - (gxc#optimizer-resolve-type _super-t27974_) + (_super-type30139_ + (if _super-t30137_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _super-t30137_)) '#f))) - (if (and _super-type27976_ - (not (let () - (declare (not safe)) - (##structure-instance-of? - _super-type27976_ - 'gxc#!struct-type::t)))) - (gxc#raise-compile-error - '"Illegal struct-type construction; invalid super type" - _stx27664_ - _L27927_) + (if (and _super-type30139_ + (let ((__tmp36755 + (let () + (declare (not safe)) + (##structure-instance-of? + _super-type30139_ + 'gxc#!struct-type::t)))) + (declare (not safe)) + (not __tmp36755))) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal struct-type construction; invalid super type" + _stx29827_ + _L30090_)) '#!void) - (let ((_fields27992_ (gx#stx-e _L27926_)) - (_xfields27993_ - (if _super-type27976_ - (let ((_super-fields2797827981_ + (let ((_fields30155_ + (let () (declare (not safe)) (gx#stx-e _L30089_))) + (_xfields30156_ + (if _super-type30139_ + (let ((_super-fields3014130144_ (##structure-ref - _super-type27976_ + _super-type30139_ '3 gxc#!struct-type::t '#f)) - (_super-xfields2797927983_ + (_super-xfields3014230146_ (##structure-ref - _super-type27976_ + _super-type30139_ '4 gxc#!struct-type::t '#f))) - (if _super-fields2797827981_ - (if _super-xfields2797927983_ - (let ((_super-fields27986_ - _super-fields2797827981_) - (_super-xfields27987_ - _super-xfields2797927983_)) - (fx+ _super-fields27986_ - _super-xfields27987_)) + (if _super-fields3014130144_ + (if _super-xfields3014230146_ + (let ((_super-fields30149_ + _super-fields3014130144_) + (_super-xfields30150_ + _super-xfields3014230146_)) + (fx+ _super-fields30149_ + _super-xfields30150_)) '#f) '#f)) '#f)) - (_plist27994_ (gx#stx-e _L27924_)) - (_ctor27995_ - (let ((_$e27989_ (gx#stx-e _L27923_))) - (if _$e27989_ - (values _$e27989_) - (if _super-type27976_ + (_plist30157_ + (let () (declare (not safe)) (gx#stx-e _L30087_))) + (_ctor30158_ + (let ((_$e30152_ + (let () + (declare (not safe)) + (gx#stx-e _L30086_)))) + (if _$e30152_ + (values _$e30152_) + (if _super-type30139_ (##structure-ref - _super-type27976_ + _super-type30139_ '5 gxc#!struct-type::t '#f) - (if _super-t27974_ '#!void '#f)))))) - (let ((__obj34500 (make-object gxc#!struct-type::t '7))) - (gxc#!struct-type:::init! - __obj34500 - (gx#stx-e _L27928_) - _super-t27974_ - _fields27992_ - _xfields27993_ - _ctor27995_ - _plist27994_) - __obj34500))))) - (___kont3223832239_ + (if _super-t30137_ '#!void '#f)))))) + (let ((__obj36663 (make-object gxc#!struct-type::t '7))) + (let ((__tmp36756 + (let () + (declare (not safe)) + (gx#stx-e _L30091_)))) + (declare (not safe)) + (gxc#!struct-type:::init! + __obj36663 + __tmp36756 + _super-t30137_ + _fields30155_ + _xfields30156_ + _ctor30158_ + _plist30157_)) + __obj36663))))) + (___kont3440134402_ (lambda () - (gxc#verbose - '"make-struct-type: can't infer type " - (gx#syntax->datum _stx27664_)) + (let ((__tmp36757 + (let () + (declare (not safe)) + (gx#syntax->datum _stx29827_)))) + (declare (not safe)) + (gxc#verbose + '"make-struct-type: can't infer type " + __tmp36757)) '#f))) - (if (gx#stx-pair? ___stx3223232233_) - (let ((_e2767628002_ (gx#stx-e ___stx3223232233_))) - (let ((_tl2767828007_ - (let () (declare (not safe)) (##cdr _e2767628002_))) - (_hd2767728005_ - (let () (declare (not safe)) (##car _e2767628002_)))) - (if (gx#stx-pair? _hd2767728005_) - (let ((_e2767928010_ (gx#stx-e _hd2767728005_))) - (let ((_tl2768128015_ + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3439534396_)) + (let ((_e2984130165_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3439534396_)))) + (let ((_tl2983930170_ + (let () (declare (not safe)) (##cdr _e2984130165_))) + (_hd2984030168_ + (let () (declare (not safe)) (##car _e2984130165_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2984030168_)) + (let ((_e2984430173_ + (let () + (declare (not safe)) + (gx#stx-e _hd2984030168_)))) + (let ((_tl2984230178_ (let () (declare (not safe)) - (##cdr _e2767928010_))) - (_hd2768028013_ + (##cdr _e2984430173_))) + (_hd2984330176_ (let () (declare (not safe)) - (##car _e2767928010_)))) - (if (gx#identifier? _hd2768028013_) - (if (gx#stx-eq? '%#quote _hd2768028013_) - (if (gx#stx-pair? _tl2768128015_) - (let ((_e2768228018_ - (gx#stx-e _tl2768128015_))) - (let ((_tl2768428023_ + (##car _e2984430173_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2984330176_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2984330176_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2984230178_)) + (let ((_e2984730181_ + (let () + (declare (not safe)) + (gx#stx-e _tl2984230178_)))) + (let ((_tl2984530186_ (let () (declare (not safe)) - (##cdr _e2768228018_))) - (_hd2768328021_ + (##cdr _e2984730181_))) + (_hd2984630184_ (let () (declare (not safe)) - (##car _e2768228018_)))) - (if (gx#stx-null? _tl2768428023_) - (if (gx#stx-pair? - _tl2767828007_) - (let ((_e2768528026_ - (gx#stx-e - _tl2767828007_))) - (let ((_tl2768728031_ + (##car _e2984730181_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2984530186_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2983930170_)) + (let ((_e2985030189_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2983930170_)))) + (let ((_tl2984830194_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2768528026_))) - (_hd2768628029_ - (let () (declare (not safe)) (##car _e2768528026_)))) - (if (gx#stx-pair? _hd2768628029_) - (let ((_e2768828034_ (gx#stx-e _hd2768628029_))) - (let ((_tl2769028039_ + (##cdr _e2985030189_))) + (_hd2984930192_ + (let () (declare (not safe)) (##car _e2985030189_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd2984930192_)) + (let ((_e2985330197_ + (let () + (declare (not safe)) + (gx#stx-e _hd2984930192_)))) + (let ((_tl2985130202_ (let () (declare (not safe)) - (##cdr _e2768828034_))) - (_hd2768928037_ + (##cdr _e2985330197_))) + (_hd2985230200_ (let () (declare (not safe)) - (##car _e2768828034_)))) - (if (gx#identifier? _hd2768928037_) - (if (gx#stx-eq? '%#quote _hd2768928037_) - (if (gx#stx-pair? _tl2769028039_) - (let ((_e2769128042_ - (gx#stx-e _tl2769028039_))) - (let ((_tl2769328047_ + (##car _e2985330197_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2985230200_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2985230200_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2985130202_)) + (let ((_e2985630205_ + (let () + (declare (not safe)) + (gx#stx-e _tl2985130202_)))) + (let ((_tl2985430210_ (let () (declare (not safe)) - (##cdr _e2769128042_))) - (_hd2769228045_ + (##cdr _e2985630205_))) + (_hd2985530208_ (let () (declare (not safe)) - (##car _e2769128042_)))) - (if (gx#stx-datum? _hd2769228045_) - (let ((_e2769428050_ - (gx#stx-e _hd2769228045_))) - (if (equal? _e2769428050_ '#f) - (if (gx#stx-null? - _tl2769328047_) - (if (gx#stx-pair? - _tl2768728031_) - (let ((_e2769528053_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2768728031_))) - (let ((_tl2769728058_ - (let () (declare (not safe)) (##cdr _e2769528053_))) - (_hd2769628056_ + (##car _e2985630205_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _hd2985530208_)) + (let ((_e2985730213_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2985530208_)))) + (if (let () + (declare (not safe)) + (equal? _e2985730213_ '#f)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2985430210_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl2984830194_)) + (let ((_e2986030216_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl2984830194_)))) + (let ((_tl2985830221_ + (let () (declare (not safe)) (##cdr _e2986030216_))) + (_hd2985930219_ (let () (declare (not safe)) - (##car _e2769528053_)))) - (if (gx#stx-pair? _hd2769628056_) - (let ((_e2769828061_ (gx#stx-e _hd2769628056_))) - (let ((_tl2770028066_ + (##car _e2986030216_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2985930219_)) + (let ((_e2986330224_ + (let () + (declare (not safe)) + (gx#stx-e _hd2985930219_)))) + (let ((_tl2986130229_ (let () (declare (not safe)) - (##cdr _e2769828061_))) - (_hd2769928064_ + (##cdr _e2986330224_))) + (_hd2986230227_ (let () (declare (not safe)) - (##car _e2769828061_)))) - (if (gx#identifier? _hd2769928064_) - (if (gx#stx-eq? '%#quote _hd2769928064_) - (if (gx#stx-pair? _tl2770028066_) - (let ((_e2770128069_ - (gx#stx-e _tl2770028066_))) - (let ((_tl2770328074_ + (##car _e2986330224_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2986230227_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2986230227_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2986130229_)) + (let ((_e2986630232_ + (let () + (declare (not safe)) + (gx#stx-e _tl2986130229_)))) + (let ((_tl2986430237_ (let () (declare (not safe)) - (##cdr _e2770128069_))) - (_hd2770228072_ + (##cdr _e2986630232_))) + (_hd2986530235_ (let () (declare (not safe)) - (##car _e2770128069_)))) - (if (gx#stx-null? _tl2770328074_) - (if (gx#stx-pair? - _tl2769728058_) - (let ((_e2770428077_ - (gx#stx-e - _tl2769728058_))) - (let ((_tl2770628082_ - (let () + (##car _e2986630232_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2986430237_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2985830221_)) + (let ((_e2986930240_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2770428077_))) - (_hd2770528080_ - (let () (declare (not safe)) (##car _e2770428077_)))) - (if (gx#stx-pair? _tl2770628082_) - (let ((_e2770728085_ (gx#stx-e _tl2770628082_))) - (let ((_tl2770928090_ + (not safe)) + (gx#stx-e _tl2985830221_)))) + (let ((_tl2986730245_ + (let () (declare (not safe)) (##cdr _e2986930240_))) + (_hd2986830243_ + (let () (declare (not safe)) (##car _e2986930240_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2986730245_)) + (let ((_e2987230248_ + (let () + (declare (not safe)) + (gx#stx-e _tl2986730245_)))) + (let ((_tl2987030253_ (let () (declare (not safe)) - (##cdr _e2770728085_))) - (_hd2770828088_ + (##cdr _e2987230248_))) + (_hd2987130251_ (let () (declare (not safe)) - (##car _e2770728085_)))) - (if (gx#stx-pair? _hd2770828088_) - (let ((_e2771028093_ (gx#stx-e _hd2770828088_))) - (let ((_tl2771228098_ + (##car _e2987230248_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2987130251_)) + (let ((_e2987530256_ + (let () + (declare (not safe)) + (gx#stx-e _hd2987130251_)))) + (let ((_tl2987330261_ (let () (declare (not safe)) - (##cdr _e2771028093_))) - (_hd2771128096_ + (##cdr _e2987530256_))) + (_hd2987430259_ (let () (declare (not safe)) - (##car _e2771028093_)))) - (if (gx#identifier? _hd2771128096_) - (if (gx#stx-eq? '%#quote _hd2771128096_) - (if (gx#stx-pair? _tl2771228098_) - (let ((_e2771328101_ - (gx#stx-e - _tl2771228098_))) - (let ((_tl2771528106_ + (##car _e2987530256_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2987430259_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd2987430259_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2987330261_)) + (let ((_e2987830264_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2987330261_)))) + (let ((_tl2987630269_ (let () (declare (not safe)) - (##cdr _e2771328101_))) - (_hd2771428104_ + (##cdr _e2987830264_))) + (_hd2987730267_ (let () (declare (not safe)) - (##car _e2771328101_)))) - (if (gx#stx-null? - _tl2771528106_) - (if (gx#stx-pair? - _tl2770928090_) - (let ((_e2771628109_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2770928090_))) - (let ((_tl2771828114_ - (let () (declare (not safe)) (##cdr _e2771628109_))) - (_hd2771728112_ + (##car _e2987830264_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2987630269_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl2987030253_)) + (let ((_e2988130272_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl2987030253_)))) + (let ((_tl2987930277_ + (let () (declare (not safe)) (##cdr _e2988130272_))) + (_hd2988030275_ (let () (declare (not safe)) - (##car _e2771628109_)))) - (if (gx#stx-pair? _hd2771728112_) - (let ((_e2771928117_ (gx#stx-e _hd2771728112_))) - (let ((_tl2772128122_ + (##car _e2988130272_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2988030275_)) + (let ((_e2988430280_ + (let () + (declare (not safe)) + (gx#stx-e _hd2988030275_)))) + (let ((_tl2988230285_ (let () (declare (not safe)) - (##cdr _e2771928117_))) - (_hd2772028120_ + (##cdr _e2988430280_))) + (_hd2988330283_ (let () (declare (not safe)) - (##car _e2771928117_)))) - (if (gx#identifier? _hd2772028120_) - (if (gx#stx-eq? '%#quote _hd2772028120_) - (if (gx#stx-pair? _tl2772128122_) - (let ((_e2772228125_ - (gx#stx-e _tl2772128122_))) - (let ((_tl2772428130_ + (##car _e2988430280_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2988330283_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2988330283_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2988230285_)) + (let ((_e2988730288_ + (let () + (declare (not safe)) + (gx#stx-e _tl2988230285_)))) + (let ((_tl2988530293_ (let () (declare (not safe)) - (##cdr _e2772228125_))) - (_hd2772328128_ + (##cdr _e2988730288_))) + (_hd2988630291_ (let () (declare (not safe)) - (##car _e2772228125_)))) - (if (gx#stx-null? _tl2772428130_) - (___kont3223432235_ - _hd2772328128_ - _hd2771428104_ - _hd2770528080_ - _hd2770228072_ - _hd2768328021_) - (___kont3223832239_)))) - (___kont3223832239_)) - (___kont3223832239_)) - (___kont3223832239_)))) - (___kont3223832239_)))) - (___kont3223832239_)) - (___kont3223832239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3223832239_)) - (___kont3223832239_)) - (___kont3223832239_)))) - (___kont3223832239_)))) - (___kont3223832239_)))) - (___kont3223832239_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3223832239_)))) - (___kont3223832239_)) - (___kont3223832239_)) - (___kont3223832239_)))) - (___kont3223832239_)))) - (___kont3223832239_)) - (___kont3223832239_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3223832239_))) - (___kont3223832239_)))) - (___kont3223832239_)) - (if (gx#stx-eq? '%#ref _hd2768928037_) - (if (gx#stx-pair? _tl2769028039_) - (let ((_e2774627835_ - (gx#stx-e _tl2769028039_))) - (let ((_tl2774827840_ + (##car _e2988730288_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2988530293_)) + (___kont3439734398_ + _hd2988630291_ + _hd2987730267_ + _hd2986830243_ + _hd2986530235_ + _hd2984630184_) + (___kont3440134402_)))) + (___kont3440134402_)) + (___kont3440134402_)) + (___kont3440134402_)))) + (___kont3440134402_)))) + (___kont3440134402_)) + (___kont3440134402_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3440134402_)) + (___kont3440134402_)) + (___kont3440134402_)))) + (___kont3440134402_)))) + (___kont3440134402_)))) + (___kont3440134402_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3440134402_)))) + (___kont3440134402_)) + (___kont3440134402_)) + (___kont3440134402_)))) + (___kont3440134402_)))) + (___kont3440134402_)) + (___kont3440134402_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3440134402_))) + (___kont3440134402_)))) + (___kont3440134402_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2985230200_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2985130202_)) + (let ((_e2991129998_ + (let () + (declare (not safe)) + (gx#stx-e _tl2985130202_)))) + (let ((_tl2990930003_ (let () (declare (not safe)) - (##cdr _e2774627835_))) - (_hd2774727838_ + (##cdr _e2991129998_))) + (_hd2991030001_ (let () (declare (not safe)) - (##car _e2774627835_)))) - (if (gx#stx-null? _tl2774827840_) - (if (gx#stx-pair? - _tl2768728031_) - (let ((_e2774927843_ - (gx#stx-e - _tl2768728031_))) - (let ((_tl2775127848_ - (let () + (##car _e2991129998_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2990930003_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2984830194_)) + (let ((_e2991430006_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2984830194_)))) + (let ((_tl2991230011_ + (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2774927843_))) - (_hd2775027846_ - (let () (declare (not safe)) (##car _e2774927843_)))) - (if (gx#stx-pair? _hd2775027846_) - (let ((_e2775227851_ (gx#stx-e _hd2775027846_))) - (let ((_tl2775427856_ + (##cdr _e2991430006_))) + (_hd2991330009_ + (let () (declare (not safe)) (##car _e2991430006_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd2991330009_)) + (let ((_e2991730014_ + (let () + (declare (not safe)) + (gx#stx-e _hd2991330009_)))) + (let ((_tl2991530019_ (let () (declare (not safe)) - (##cdr _e2775227851_))) - (_hd2775327854_ + (##cdr _e2991730014_))) + (_hd2991630017_ (let () (declare (not safe)) - (##car _e2775227851_)))) - (if (gx#identifier? _hd2775327854_) - (if (gx#stx-eq? '%#quote _hd2775327854_) - (if (gx#stx-pair? _tl2775427856_) - (let ((_e2775527859_ - (gx#stx-e _tl2775427856_))) - (let ((_tl2775727864_ + (##car _e2991730014_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2991630017_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2991630017_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2991530019_)) + (let ((_e2992030022_ + (let () + (declare (not safe)) + (gx#stx-e _tl2991530019_)))) + (let ((_tl2991830027_ (let () (declare (not safe)) - (##cdr _e2775527859_))) - (_hd2775627862_ + (##cdr _e2992030022_))) + (_hd2991930025_ (let () (declare (not safe)) - (##car _e2775527859_)))) - (if (gx#stx-null? _tl2775727864_) - (if (gx#stx-pair? _tl2775127848_) - (let ((_e2775827867_ - (gx#stx-e - _tl2775127848_))) - (let ((_tl2776027872_ + (##car _e2992030022_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2991830027_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2991230011_)) + (let ((_e2992330030_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2991230011_)))) + (let ((_tl2992130035_ (let () (declare (not safe)) - (##cdr _e2775827867_))) - (_hd2775927870_ + (##cdr _e2992330030_))) + (_hd2992230033_ (let () (declare (not safe)) - (##car _e2775827867_)))) - (if (gx#stx-pair? - _tl2776027872_) - (let ((_e2776127875_ - (gx#stx-e - _tl2776027872_))) - (let ((_tl2776327880_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e2776127875_))) - (_hd2776227878_ - (let () (declare (not safe)) (##car _e2776127875_)))) - (if (gx#stx-pair? _hd2776227878_) - (let ((_e2776427883_ (gx#stx-e _hd2776227878_))) - (let ((_tl2776627888_ + (##car _e2992330030_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2992130035_)) + (let ((_e2992630038_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl2992130035_)))) + (let ((_tl2992430043_ + (let () (declare (not safe)) (##cdr _e2992630038_))) + (_hd2992530041_ + (let () (declare (not safe)) (##car _e2992630038_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2992530041_)) + (let ((_e2992930046_ + (let () + (declare (not safe)) + (gx#stx-e _hd2992530041_)))) + (let ((_tl2992730051_ (let () (declare (not safe)) - (##cdr _e2776427883_))) - (_hd2776527886_ + (##cdr _e2992930046_))) + (_hd2992830049_ (let () (declare (not safe)) - (##car _e2776427883_)))) - (if (gx#identifier? _hd2776527886_) - (if (gx#stx-eq? '%#quote _hd2776527886_) - (if (gx#stx-pair? _tl2776627888_) - (let ((_e2776727891_ - (gx#stx-e _tl2776627888_))) - (let ((_tl2776927896_ + (##car _e2992930046_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2992830049_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2992830049_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2992730051_)) + (let ((_e2993230054_ + (let () + (declare (not safe)) + (gx#stx-e _tl2992730051_)))) + (let ((_tl2993030059_ (let () (declare (not safe)) - (##cdr _e2776727891_))) - (_hd2776827894_ + (##cdr _e2993230054_))) + (_hd2993130057_ (let () (declare (not safe)) - (##car _e2776727891_)))) - (if (gx#stx-null? _tl2776927896_) - (if (gx#stx-pair? - _tl2776327880_) - (let ((_e2777027899_ - (gx#stx-e - _tl2776327880_))) - (let ((_tl2777227904_ + (##car _e2993230054_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2993030059_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2992430043_)) + (let ((_e2993530062_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2992430043_)))) + (let ((_tl2993330067_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2777027899_))) - (_hd2777127902_ - (let () (declare (not safe)) (##car _e2777027899_)))) - (if (gx#stx-pair? _hd2777127902_) - (let ((_e2777327907_ (gx#stx-e _hd2777127902_))) - (let ((_tl2777527912_ + (##cdr _e2993530062_))) + (_hd2993430065_ + (let () (declare (not safe)) (##car _e2993530062_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd2993430065_)) + (let ((_e2993830070_ + (let () + (declare (not safe)) + (gx#stx-e _hd2993430065_)))) + (let ((_tl2993630075_ (let () (declare (not safe)) - (##cdr _e2777327907_))) - (_hd2777427910_ + (##cdr _e2993830070_))) + (_hd2993730073_ (let () (declare (not safe)) - (##car _e2777327907_)))) - (if (gx#identifier? _hd2777427910_) - (if (gx#stx-eq? '%#quote _hd2777427910_) - (if (gx#stx-pair? _tl2777527912_) - (let ((_e2777627915_ - (gx#stx-e _tl2777527912_))) - (let ((_tl2777827920_ + (##car _e2993830070_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2993730073_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2993730073_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2993630075_)) + (let ((_e2994130078_ + (let () + (declare (not safe)) + (gx#stx-e _tl2993630075_)))) + (let ((_tl2993930083_ (let () (declare (not safe)) - (##cdr _e2777627915_))) - (_hd2777727918_ + (##cdr _e2994130078_))) + (_hd2994030081_ (let () (declare (not safe)) - (##car _e2777627915_)))) - (if (gx#stx-null? _tl2777827920_) - (___kont3223632237_ - _hd2777727918_ - _hd2776827894_ - _hd2775927870_ - _hd2775627862_ - _hd2774727838_ - _hd2768328021_) - (___kont3223832239_)))) - (___kont3223832239_)) - (___kont3223832239_)) - (___kont3223832239_)))) - (___kont3223832239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3223832239_)) - (___kont3223832239_)))) - (___kont3223832239_)) - (___kont3223832239_)) - (___kont3223832239_)))) - (___kont3223832239_)))) - (___kont3223832239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3223832239_)) - (___kont3223832239_)))) - (___kont3223832239_)) - (___kont3223832239_)) - (___kont3223832239_)))) - (___kont3223832239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3223832239_)) - (___kont3223832239_)))) - (___kont3223832239_)) - (___kont3223832239_))) - (___kont3223832239_)))) - (___kont3223832239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3223832239_)) - (___kont3223832239_)))) - (___kont3223832239_)) - (___kont3223832239_)) - (___kont3223832239_)))) - (___kont3223832239_)))) - (___kont3223832239_)))))) + (##car _e2994130078_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2993930083_)) + (___kont3439934400_ + _hd2994030081_ + _hd2993130057_ + _hd2992230033_ + _hd2991930025_ + _hd2991030001_ + _hd2984630184_) + (___kont3440134402_)))) + (___kont3440134402_)) + (___kont3440134402_)) + (___kont3440134402_)))) + (___kont3440134402_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3440134402_)) + (___kont3440134402_)))) + (___kont3440134402_)) + (___kont3440134402_)) + (___kont3440134402_)))) + (___kont3440134402_)))) + (___kont3440134402_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3440134402_)) + (___kont3440134402_)))) + (___kont3440134402_)) + (___kont3440134402_)) + (___kont3440134402_)))) + (___kont3440134402_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3440134402_)) + (___kont3440134402_)))) + (___kont3440134402_)) + (___kont3440134402_))) + (___kont3440134402_)))) + (___kont3440134402_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3440134402_)) + (___kont3440134402_)))) + (___kont3440134402_)) + (___kont3440134402_)) + (___kont3440134402_)))) + (___kont3440134402_)))) + (___kont3440134402_)))))) (define gxc#basic-expression-type-make-struct-predicate - (lambda (_stx27590_ _args27591_) - (let* ((___stx3250032501_ _args27591_) - (_g2759427610_ + (lambda (_stx29753_ _args29754_) + (let* ((___stx3466334664_ _args29754_) + (_g2975729773_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3250032501_)))) - (let ((___kont3250232503_ - (lambda (_L27646_) - (let ((__tmp34512 (gxc#identifier-symbol _L27646_))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3466334664_))))) + (let ((___kont3466534666_ + (lambda (_L29809_) + (let ((__tmp36758 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L29809_)))) (declare (not safe)) - (##structure gxc#!struct-pred::t __tmp34512)))) - (___kont3250432505_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3250032501_) - (let ((_e2759727622_ (gx#stx-e ___stx3250032501_))) - (let ((_tl2759927627_ - (let () (declare (not safe)) (##cdr _e2759727622_))) - (_hd2759827625_ - (let () (declare (not safe)) (##car _e2759727622_)))) - (if (gx#stx-pair? _hd2759827625_) - (let ((_e2760027630_ (gx#stx-e _hd2759827625_))) - (let ((_tl2760227635_ + (##structure gxc#!struct-pred::t __tmp36758)))) + (___kont3466734668_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3466334664_)) + (let ((_e2976229785_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3466334664_)))) + (let ((_tl2976029790_ + (let () (declare (not safe)) (##cdr _e2976229785_))) + (_hd2976129788_ + (let () (declare (not safe)) (##car _e2976229785_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2976129788_)) + (let ((_e2976529793_ + (let () + (declare (not safe)) + (gx#stx-e _hd2976129788_)))) + (let ((_tl2976329798_ (let () (declare (not safe)) - (##cdr _e2760027630_))) - (_hd2760127633_ + (##cdr _e2976529793_))) + (_hd2976429796_ (let () (declare (not safe)) - (##car _e2760027630_)))) - (if (gx#identifier? _hd2760127633_) - (if (gx#stx-eq? '%#ref _hd2760127633_) - (if (gx#stx-pair? _tl2760227635_) - (let ((_e2760327638_ - (gx#stx-e _tl2760227635_))) - (let ((_tl2760527643_ + (##car _e2976529793_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2976429796_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2976429796_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2976329798_)) + (let ((_e2976829801_ + (let () + (declare (not safe)) + (gx#stx-e _tl2976329798_)))) + (let ((_tl2976629806_ (let () (declare (not safe)) - (##cdr _e2760327638_))) - (_hd2760427641_ + (##cdr _e2976829801_))) + (_hd2976729804_ (let () (declare (not safe)) - (##car _e2760327638_)))) - (if (gx#stx-null? _tl2760527643_) - (if (gx#stx-null? - _tl2759927627_) - (___kont3250232503_ - _hd2760427641_) - (___kont3250432505_)) - (___kont3250432505_)))) - (___kont3250432505_)) - (___kont3250432505_)) - (___kont3250432505_)))) - (___kont3250432505_)))) - (___kont3250432505_)))))) + (##car _e2976829801_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2976629806_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2976029790_)) + (___kont3466534666_ + _hd2976729804_) + (___kont3466734668_)) + (___kont3466734668_)))) + (___kont3466734668_)) + (___kont3466734668_)) + (___kont3466734668_)))) + (___kont3466734668_)))) + (___kont3466734668_)))))) (define gxc#basic-expression-type-make-struct-field-accessor__% - (lambda (_stx27461_ _args27462_ _unchecked?27463_) - (let* ((___stx3253432535_ _args27462_) - (_g2746627492_ + (lambda (_stx29624_ _args29625_ _unchecked?29626_) + (let* ((___stx3469734698_ _args29625_) + (_g2962929655_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3253432535_)))) - (let ((___kont3253632537_ - (lambda (_L27552_ _L27553_) - (let ((__tmp34514 (gxc#identifier-symbol _L27553_)) - (__tmp34513 (gx#stx-e _L27552_))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3469734698_))))) + (let ((___kont3469934700_ + (lambda (_L29715_ _L29716_) + (let ((__tmp36760 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L29716_))) + (__tmp36759 + (let () (declare (not safe)) (gx#stx-e _L29715_)))) (declare (not safe)) (##structure gxc#!struct-getf::t - __tmp34514 - __tmp34513 - _unchecked?27463_)))) - (___kont3253832539_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3253432535_) - (let ((_e2747027504_ (gx#stx-e ___stx3253432535_))) - (let ((_tl2747227509_ - (let () (declare (not safe)) (##cdr _e2747027504_))) - (_hd2747127507_ - (let () (declare (not safe)) (##car _e2747027504_)))) - (if (gx#stx-pair? _hd2747127507_) - (let ((_e2747327512_ (gx#stx-e _hd2747127507_))) - (let ((_tl2747527517_ + __tmp36760 + __tmp36759 + _unchecked?29626_)))) + (___kont3470134702_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3469734698_)) + (let ((_e2963529667_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3469734698_)))) + (let ((_tl2963329672_ + (let () (declare (not safe)) (##cdr _e2963529667_))) + (_hd2963429670_ + (let () (declare (not safe)) (##car _e2963529667_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2963429670_)) + (let ((_e2963829675_ + (let () + (declare (not safe)) + (gx#stx-e _hd2963429670_)))) + (let ((_tl2963629680_ (let () (declare (not safe)) - (##cdr _e2747327512_))) - (_hd2747427515_ + (##cdr _e2963829675_))) + (_hd2963729678_ (let () (declare (not safe)) - (##car _e2747327512_)))) - (if (gx#identifier? _hd2747427515_) - (if (gx#stx-eq? '%#ref _hd2747427515_) - (if (gx#stx-pair? _tl2747527517_) - (let ((_e2747627520_ - (gx#stx-e _tl2747527517_))) - (let ((_tl2747827525_ + (##car _e2963829675_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2963729678_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2963729678_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2963629680_)) + (let ((_e2964129683_ + (let () + (declare (not safe)) + (gx#stx-e _tl2963629680_)))) + (let ((_tl2963929688_ (let () (declare (not safe)) - (##cdr _e2747627520_))) - (_hd2747727523_ + (##cdr _e2964129683_))) + (_hd2964029686_ (let () (declare (not safe)) - (##car _e2747627520_)))) - (if (gx#stx-null? _tl2747827525_) - (if (gx#stx-pair? - _tl2747227509_) - (let ((_e2747927528_ - (gx#stx-e - _tl2747227509_))) - (let ((_tl2748127533_ + (##car _e2964129683_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2963929688_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2963329672_)) + (let ((_e2964429691_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2963329672_)))) + (let ((_tl2964229696_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2747927528_))) - (_hd2748027531_ - (let () (declare (not safe)) (##car _e2747927528_)))) - (if (gx#stx-pair? _hd2748027531_) - (let ((_e2748227536_ (gx#stx-e _hd2748027531_))) - (let ((_tl2748427541_ + (##cdr _e2964429691_))) + (_hd2964329694_ + (let () (declare (not safe)) (##car _e2964429691_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd2964329694_)) + (let ((_e2964729699_ + (let () + (declare (not safe)) + (gx#stx-e _hd2964329694_)))) + (let ((_tl2964529704_ (let () (declare (not safe)) - (##cdr _e2748227536_))) - (_hd2748327539_ + (##cdr _e2964729699_))) + (_hd2964629702_ (let () (declare (not safe)) - (##car _e2748227536_)))) - (if (gx#identifier? _hd2748327539_) - (if (gx#stx-eq? '%#quote _hd2748327539_) - (if (gx#stx-pair? _tl2748427541_) - (let ((_e2748527544_ - (gx#stx-e _tl2748427541_))) - (let ((_tl2748727549_ + (##car _e2964729699_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2964629702_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2964629702_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2964529704_)) + (let ((_e2965029707_ + (let () + (declare (not safe)) + (gx#stx-e _tl2964529704_)))) + (let ((_tl2964829712_ (let () (declare (not safe)) - (##cdr _e2748527544_))) - (_hd2748627547_ + (##cdr _e2965029707_))) + (_hd2964929710_ (let () (declare (not safe)) - (##car _e2748527544_)))) - (if (gx#stx-null? _tl2748727549_) - (if (gx#stx-null? _tl2748127533_) - (___kont3253632537_ - _hd2748627547_ - _hd2747727523_) - (___kont3253832539_)) - (___kont3253832539_)))) - (___kont3253832539_)) - (___kont3253832539_)) - (___kont3253832539_)))) - (___kont3253832539_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3253832539_)) - (___kont3253832539_)))) - (___kont3253832539_)) - (___kont3253832539_)) - (___kont3253832539_)))) - (___kont3253832539_)))) - (___kont3253832539_)))))) + (##car _e2965029707_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2964829712_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2964229696_)) + (___kont3469934700_ + _hd2964929710_ + _hd2964029686_) + (___kont3470134702_)) + (___kont3470134702_)))) + (___kont3470134702_)) + (___kont3470134702_)) + (___kont3470134702_)))) + (___kont3470134702_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3470134702_)) + (___kont3470134702_)))) + (___kont3470134702_)) + (___kont3470134702_)) + (___kont3470134702_)))) + (___kont3470134702_)))) + (___kont3470134702_)))))) (define gxc#basic-expression-type-make-struct-field-accessor__0 - (lambda (_stx27581_ _args27582_) - (let ((_unchecked?27584_ '#f)) + (lambda (_stx29744_ _args29745_) + (let ((_unchecked?29747_ '#f)) + (declare (not safe)) (gxc#basic-expression-type-make-struct-field-accessor__% - _stx27581_ - _args27582_ - _unchecked?27584_)))) + _stx29744_ + _args29745_ + _unchecked?29747_)))) (define gxc#basic-expression-type-make-struct-field-accessor - (lambda _g34516_ - (let ((_g34515_ (let () (declare (not safe)) (##length _g34516_)))) - (cond ((let () (declare (not safe)) (##fx= _g34515_ 2)) - (apply gxc#basic-expression-type-make-struct-field-accessor__0 - _g34516_)) - ((let () (declare (not safe)) (##fx= _g34515_ 3)) - (apply gxc#basic-expression-type-make-struct-field-accessor__% - _g34516_)) + (lambda _g36762_ + (let ((_g36761_ (let () (declare (not safe)) (##length _g36762_)))) + (cond ((let () (declare (not safe)) (##fx= _g36761_ 2)) + (apply (lambda (_stx29744_ _args29745_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-struct-field-accessor__0 + _stx29744_ + _args29745_))) + _g36762_)) + ((let () (declare (not safe)) (##fx= _g36761_ 3)) + (apply (lambda (_stx29749_ _args29750_ _unchecked?29751_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-struct-field-accessor__% + _stx29749_ + _args29750_ + _unchecked?29751_))) + _g36762_)) (else (##raise-wrong-number-of-arguments-exception gxc#basic-expression-type-make-struct-field-accessor - _g34516_)))))) + _g36762_)))))) (define gxc#basic-expression-type-make-struct-field-mutator__% - (lambda (_stx27331_ _args27332_ _unchecked?27333_) - (let* ((___stx3259232593_ _args27332_) - (_g2733627362_ + (lambda (_stx29494_ _args29495_ _unchecked?29496_) + (let* ((___stx3475534756_ _args29495_) + (_g2949929525_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3259232593_)))) - (let ((___kont3259432595_ - (lambda (_L27422_ _L27423_) - (let ((__tmp34518 (gxc#identifier-symbol _L27423_)) - (__tmp34517 (gx#stx-e _L27422_))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3475534756_))))) + (let ((___kont3475734758_ + (lambda (_L29585_ _L29586_) + (let ((__tmp36764 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L29586_))) + (__tmp36763 + (let () (declare (not safe)) (gx#stx-e _L29585_)))) (declare (not safe)) (##structure gxc#!struct-setf::t - __tmp34518 - __tmp34517 - _unchecked?27333_)))) - (___kont3259632597_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3259232593_) - (let ((_e2734027374_ (gx#stx-e ___stx3259232593_))) - (let ((_tl2734227379_ - (let () (declare (not safe)) (##cdr _e2734027374_))) - (_hd2734127377_ - (let () (declare (not safe)) (##car _e2734027374_)))) - (if (gx#stx-pair? _hd2734127377_) - (let ((_e2734327382_ (gx#stx-e _hd2734127377_))) - (let ((_tl2734527387_ + __tmp36764 + __tmp36763 + _unchecked?29496_)))) + (___kont3475934760_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3475534756_)) + (let ((_e2950529537_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3475534756_)))) + (let ((_tl2950329542_ + (let () (declare (not safe)) (##cdr _e2950529537_))) + (_hd2950429540_ + (let () (declare (not safe)) (##car _e2950529537_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2950429540_)) + (let ((_e2950829545_ + (let () + (declare (not safe)) + (gx#stx-e _hd2950429540_)))) + (let ((_tl2950629550_ (let () (declare (not safe)) - (##cdr _e2734327382_))) - (_hd2734427385_ + (##cdr _e2950829545_))) + (_hd2950729548_ (let () (declare (not safe)) - (##car _e2734327382_)))) - (if (gx#identifier? _hd2734427385_) - (if (gx#stx-eq? '%#ref _hd2734427385_) - (if (gx#stx-pair? _tl2734527387_) - (let ((_e2734627390_ - (gx#stx-e _tl2734527387_))) - (let ((_tl2734827395_ + (##car _e2950829545_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2950729548_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2950729548_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2950629550_)) + (let ((_e2951129553_ + (let () + (declare (not safe)) + (gx#stx-e _tl2950629550_)))) + (let ((_tl2950929558_ (let () (declare (not safe)) - (##cdr _e2734627390_))) - (_hd2734727393_ + (##cdr _e2951129553_))) + (_hd2951029556_ (let () (declare (not safe)) - (##car _e2734627390_)))) - (if (gx#stx-null? _tl2734827395_) - (if (gx#stx-pair? - _tl2734227379_) - (let ((_e2734927398_ - (gx#stx-e - _tl2734227379_))) - (let ((_tl2735127403_ + (##car _e2951129553_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2950929558_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2950329542_)) + (let ((_e2951429561_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2950329542_)))) + (let ((_tl2951229566_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2734927398_))) - (_hd2735027401_ - (let () (declare (not safe)) (##car _e2734927398_)))) - (if (gx#stx-pair? _hd2735027401_) - (let ((_e2735227406_ (gx#stx-e _hd2735027401_))) - (let ((_tl2735427411_ + (##cdr _e2951429561_))) + (_hd2951329564_ + (let () (declare (not safe)) (##car _e2951429561_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd2951329564_)) + (let ((_e2951729569_ + (let () + (declare (not safe)) + (gx#stx-e _hd2951329564_)))) + (let ((_tl2951529574_ (let () (declare (not safe)) - (##cdr _e2735227406_))) - (_hd2735327409_ + (##cdr _e2951729569_))) + (_hd2951629572_ (let () (declare (not safe)) - (##car _e2735227406_)))) - (if (gx#identifier? _hd2735327409_) - (if (gx#stx-eq? '%#quote _hd2735327409_) - (if (gx#stx-pair? _tl2735427411_) - (let ((_e2735527414_ - (gx#stx-e _tl2735427411_))) - (let ((_tl2735727419_ + (##car _e2951729569_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2951629572_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2951629572_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2951529574_)) + (let ((_e2952029577_ + (let () + (declare (not safe)) + (gx#stx-e _tl2951529574_)))) + (let ((_tl2951829582_ (let () (declare (not safe)) - (##cdr _e2735527414_))) - (_hd2735627417_ + (##cdr _e2952029577_))) + (_hd2951929580_ (let () (declare (not safe)) - (##car _e2735527414_)))) - (if (gx#stx-null? _tl2735727419_) - (if (gx#stx-null? _tl2735127403_) - (___kont3259432595_ - _hd2735627417_ - _hd2734727393_) - (___kont3259632597_)) - (___kont3259632597_)))) - (___kont3259632597_)) - (___kont3259632597_)) - (___kont3259632597_)))) - (___kont3259632597_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3259632597_)) - (___kont3259632597_)))) - (___kont3259632597_)) - (___kont3259632597_)) - (___kont3259632597_)))) - (___kont3259632597_)))) - (___kont3259632597_)))))) + (##car _e2952029577_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2951829582_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2951229566_)) + (___kont3475734758_ + _hd2951929580_ + _hd2951029556_) + (___kont3475934760_)) + (___kont3475934760_)))) + (___kont3475934760_)) + (___kont3475934760_)) + (___kont3475934760_)))) + (___kont3475934760_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3475934760_)) + (___kont3475934760_)))) + (___kont3475934760_)) + (___kont3475934760_)) + (___kont3475934760_)))) + (___kont3475934760_)))) + (___kont3475934760_)))))) (define gxc#basic-expression-type-make-struct-field-mutator__0 - (lambda (_stx27451_ _args27452_) - (let ((_unchecked?27454_ '#f)) + (lambda (_stx29614_ _args29615_) + (let ((_unchecked?29617_ '#f)) + (declare (not safe)) (gxc#basic-expression-type-make-struct-field-mutator__% - _stx27451_ - _args27452_ - _unchecked?27454_)))) + _stx29614_ + _args29615_ + _unchecked?29617_)))) (define gxc#basic-expression-type-make-struct-field-mutator - (lambda _g34520_ - (let ((_g34519_ (let () (declare (not safe)) (##length _g34520_)))) - (cond ((let () (declare (not safe)) (##fx= _g34519_ 2)) - (apply gxc#basic-expression-type-make-struct-field-mutator__0 - _g34520_)) - ((let () (declare (not safe)) (##fx= _g34519_ 3)) - (apply gxc#basic-expression-type-make-struct-field-mutator__% - _g34520_)) + (lambda _g36766_ + (let ((_g36765_ (let () (declare (not safe)) (##length _g36766_)))) + (cond ((let () (declare (not safe)) (##fx= _g36765_ 2)) + (apply (lambda (_stx29614_ _args29615_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-struct-field-mutator__0 + _stx29614_ + _args29615_))) + _g36766_)) + ((let () (declare (not safe)) (##fx= _g36765_ 3)) + (apply (lambda (_stx29619_ _args29620_ _unchecked?29621_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-struct-field-mutator__% + _stx29619_ + _args29620_ + _unchecked?29621_))) + _g36766_)) (else (##raise-wrong-number-of-arguments-exception gxc#basic-expression-type-make-struct-field-mutator - _g34520_)))))) + _g36766_)))))) (define gxc#basic-expression-type-make-struct-field-unchecked-accessor - (lambda (_stx27327_ _args27328_) - (gxc#basic-expression-type-make-struct-field-accessor__% - _stx27327_ - _args27328_ - '#t))) + (lambda (_stx29490_ _args29491_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-struct-field-accessor__% + _stx29490_ + _args29491_ + '#t)))) (define gxc#basic-expression-type-make-struct-field-unchecked-mutator - (lambda (_stx27324_ _args27325_) - (gxc#basic-expression-type-make-struct-field-mutator__% - _stx27324_ - _args27325_ - '#t))) + (lambda (_stx29487_ _args29488_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-struct-field-mutator__% + _stx29487_ + _args29488_ + '#t)))) (define gxc#basic-expression-type-make-class-type - (lambda (_stx26265_ _args26266_) - (letrec ((_mixin-expr->list26268_ - (lambda (_stx27005_) - (call-with-current-continuation - (lambda (_return27007_) - (let _recur27009_ ((_rest27011_ _stx27005_)) - (let* ((___stx3265032651_ _rest27011_) - (_g2701627084_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3265032651_)))) - (let ((___kont3265232653_ - (lambda (_L27293_ _L27294_ _L27295_) - (cons (gxc#identifier-symbol _L27294_) - (_recur27009_ _L27293_)))) - (___kont3265432655_ (lambda () '())) - (___kont3265632657_ - (lambda (_L27168_ _L27169_) - (map gxc#identifier-symbol - (foldr1 (lambda (_g2719327196_ - _g2719427198_) - (cons _g2719327196_ - _g2719427198_)) - '() - _L27168_)))) - (___kont3266032661_ - (lambda () (_return27007_ '#f)))) - (let* ((___match3278932790_ - (lambda (_e2705327096_ - _hd2705427099_ - _tl2705527101_ - _e2705627104_ - _hd2705727107_ - _tl2705827109_ - _e2705927112_ - _hd2706027115_ - _tl2706127117_ - _e2706227120_ - _hd2706327123_ - _tl2706427125_ - ___splice3265832659_ - _target2706527128_ - _tl2706727130_) - (letrec ((_loop2706827133_ - (lambda (_hd2706627136_ - _klass2707227138_) - (if (gx#stx-pair? - _hd2706627136_) - (let ((_e2706927141_ - (gx#stx-e - _hd2706627136_))) - (let ((_lp-tl2707127146_ + (lambda (_stx28428_ _args28429_) + (letrec ((_mixin-expr->list28431_ + (lambda (_stx29168_) + (let ((__tmp36767 + (lambda (_return29170_) + (let _recur29172_ ((_rest29174_ _stx29168_)) + (let* ((___stx3481334814_ _rest29174_) + (_g2917929247_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3481334814_))))) + (let ((___kont3481534816_ + (lambda (_L29456_ _L29457_ _L29458_) + (let ((__tmp36769 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L29457_))) + (__tmp36768 + (let () + (declare (not safe)) + (_recur29172_ _L29456_)))) + (declare (not safe)) + (cons __tmp36769 __tmp36768)))) + (___kont3481734818_ (lambda () '())) + (___kont3481934820_ + (lambda (_L29331_ _L29332_) + (let ((__tmp36770 + (let ((__tmp36771 + (lambda (_g2935629359_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2935729361_) + (let () + (declare (not safe)) + (cons _g2935629359_ _g2935729361_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp36771 + '() + _L29331_)))) + (declare (not safe)) + (map gxc#identifier-symbol + __tmp36770)))) + (___kont3482334824_ + (lambda () (_return29170_ '#f)))) + (let* ((___match3495234953_ + (lambda (_e2921829259_ + _hd2921729262_ + _tl2921629264_ + _e2922129267_ + _hd2922029270_ + _tl2921929272_ + _e2922429275_ + _hd2922329278_ + _tl2922229280_ + _e2922729283_ + _hd2922629286_ + _tl2922529288_ + ___splice3482134822_ + _target2922829291_ + _tl2923029293_) + (letrec ((_loop2923129296_ + (lambda (_hd2922929299_ + _klass2923529301_) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _hd2922929299_)) + (let ((_e2923229304_ + (let () + (declare (not safe)) + (gx#stx-e _hd2922929299_)))) + (let ((_lp-tl2923429309_ + (let () + (declare (not safe)) + (##cdr _e2923229304_))) + (_lp-hd2923329307_ + (let () + (declare (not safe)) + (##car _e2923229304_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd2923329307_)) + (let ((_e2923929312_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd2923329307_)))) + (let ((_tl2923729317_ + (let () + (declare (not safe)) + (##cdr _e2923929312_))) + (_hd2923829315_ + (let () + (declare (not safe)) + (##car _e2923929312_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2923829315_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2923829315_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2923729317_)) + (let ((_e2924229320_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2923729317_)))) + (let ((_tl2924029325_ + (let () + (declare (not safe)) + (##cdr _e2924229320_))) + (_hd2924129323_ + (let () + (declare (not safe)) + (##car _e2924229320_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2924029325_)) + (let ((__tmp36772 + (let () + (declare + (not safe)) + (cons _hd2924129323_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _klass2923529301_)))) + (declare (not safe)) + (_loop2923129296_ _lp-tl2923429309_ __tmp36772)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3482334824_)))) + (___kont3482334824_)) + (___kont3482334824_)) + (___kont3482334824_)))) + (___kont3482334824_)))) + (let ((_klass2923629328_ + (let () + (declare (not safe)) + (reverse _klass2923529301_)))) + (let ((_L29331_ _klass2923629328_) + (_L29332_ _hd2922629286_)) + (if (let () + (declare (not safe)) + (gxc#runtime-identifier=? _L29332_ 'list)) + (___kont3481934820_ _L29331_ _L29332_) + (___kont3482334824_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop2923129296_ + _target2922829291_ + '()))))) + (___match3489034891_ + (lambda (_e2918629392_ + _hd2918529395_ + _tl2918429397_ + _e2918929400_ + _hd2918829403_ + _tl2918729405_ + _e2919229408_ + _hd2919129411_ + _tl2919029413_ + _e2919529416_ + _hd2919429419_ + _tl2919329421_ + _e2919829424_ + _hd2919729427_ + _tl2919629429_ + _e2920129432_ + _hd2920029435_ + _tl2919929437_ + _e2920429440_ + _hd2920329443_ + _tl2920229445_ + _e2920729448_ + _hd2920629451_ + _tl2920529453_) + (let ((_L29456_ _hd2920629451_) + (_L29457_ _hd2920329443_) + (_L29458_ _hd2919429419_)) + (if (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L29458_ + 'cons)) + (___kont3481534816_ + _L29456_ + _L29457_ + _L29458_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl2918729405_)) + (let ((___splice3482134822_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#syntax-split-splice _tl2918729405_ '0)))) + (let ((_tl2923029293_ + (let () + (declare (not safe)) + (##vector-ref ___splice3482134822_ '1))) + (_target2922829291_ + (let () + (declare (not safe)) + (##vector-ref ___splice3482134822_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2923029293_)) + (___match3495234953_ + _e2918629392_ + _hd2918529395_ + _tl2918429397_ + _e2918929400_ + _hd2918829403_ + _tl2918729405_ + _e2919229408_ + _hd2919129411_ + _tl2919029413_ + _e2919529416_ + _hd2919429419_ + _tl2919329421_ + ___splice3482134822_ + _target2922829291_ + _tl2923029293_) + (___kont3482334824_)))) + (___kont3482334824_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3481334814_)) + (let ((_e2918629392_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx3481334814_)))) + (let ((_tl2918429397_ + (let () + (declare (not safe)) + (##cdr _e2918629392_))) + (_hd2918529395_ + (let () + (declare (not safe)) + (##car _e2918629392_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd2918529395_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd2918529395_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2918429397_)) + (let ((_e2918929400_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2706927141_))) - (_lp-hd2707027144_ - (let () (declare (not safe)) (##car _e2706927141_)))) - (if (gx#stx-pair? _lp-hd2707027144_) - (let ((_e2707427149_ (gx#stx-e _lp-hd2707027144_))) - (let ((_tl2707627154_ - (let () - (declare (not safe)) - (##cdr _e2707427149_))) - (_hd2707527152_ + (gx#stx-e _tl2918429397_)))) + (let ((_tl2918729405_ + (let () (declare (not safe)) (##cdr _e2918929400_))) + (_hd2918829403_ + (let () (declare (not safe)) (##car _e2918929400_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2918829403_)) + (let ((_e2919229408_ (let () (declare (not safe)) - (##car _e2707427149_)))) - (if (gx#identifier? _hd2707527152_) - (if (gx#stx-eq? '%#ref _hd2707527152_) - (if (gx#stx-pair? _tl2707627154_) - (let ((_e2707727157_ - (gx#stx-e _tl2707627154_))) - (let ((_tl2707927162_ - (let () - (declare (not safe)) - (##cdr _e2707727157_))) - (_hd2707827160_ + (gx#stx-e _hd2918829403_)))) + (let ((_tl2919029413_ + (let () + (declare (not safe)) + (##cdr _e2919229408_))) + (_hd2919129411_ + (let () + (declare (not safe)) + (##car _e2919229408_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2919129411_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2919129411_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2919029413_)) + (let ((_e2919529416_ (let () (declare (not safe)) - (##car _e2707727157_)))) - (if (gx#stx-null? _tl2707927162_) - (_loop2706827133_ - _lp-tl2707127146_ - (cons _hd2707827160_ - _klass2707227138_)) - (___kont3266032661_)))) - (___kont3266032661_)) - (___kont3266032661_)) - (___kont3266032661_)))) - (___kont3266032661_)))) - (let ((_klass2707327165_ (reverse _klass2707227138_))) - (let ((_L27168_ _klass2707327165_) (_L27169_ _hd2706327123_)) - (if (gxc#runtime-identifier=? _L27169_ 'list) - (___kont3265632657_ _L27168_ _L27169_) - (___kont3266032661_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop2706827133_ - _target2706527128_ - '())))) - (___match3272732728_ - (lambda (_e2702127229_ - _hd2702227232_ - _tl2702327234_ - _e2702427237_ - _hd2702527240_ - _tl2702627242_ - _e2702727245_ - _hd2702827248_ - _tl2702927250_ - _e2703027253_ - _hd2703127256_ - _tl2703227258_ - _e2703327261_ - _hd2703427264_ - _tl2703527266_ - _e2703627269_ - _hd2703727272_ - _tl2703827274_ - _e2703927277_ - _hd2704027280_ - _tl2704127282_ - _e2704227285_ - _hd2704327288_ - _tl2704427290_) - (let ((_L27293_ _hd2704327288_) - (_L27294_ _hd2704027280_) - (_L27295_ _hd2703127256_)) - (if (gxc#runtime-identifier=? - _L27295_ - 'cons) - (___kont3265232653_ - _L27293_ - _L27294_ - _L27295_) - (if (gx#stx-pair/null? - _tl2702627242_) - (let ((___splice3265832659_ - (gx#syntax-split-splice - _tl2702627242_ - '0))) - (let ((_tl2706727130_ - (let () - (declare - (not safe)) - (##vector-ref - ___splice3265832659_ - '1))) - (_target2706527128_ - (let () - (declare - (not safe)) - (##vector-ref - ___splice3265832659_ - '0)))) - (if (gx#stx-null? - _tl2706727130_) - (___match3278932790_ - _e2702127229_ - _hd2702227232_ - _tl2702327234_ - _e2702427237_ - _hd2702527240_ - _tl2702627242_ - _e2702727245_ - _hd2702827248_ - _tl2702927250_ - _e2703027253_ - _hd2703127256_ - _tl2703227258_ - ___splice3265832659_ - _target2706527128_ - _tl2706727130_) - (___kont3266032661_)))) - (___kont3266032661_))))))) - (if (gx#stx-pair? ___stx3265032651_) - (let ((_e2702127229_ - (gx#stx-e ___stx3265032651_))) - (let ((_tl2702327234_ - (let () - (declare (not safe)) - (##cdr _e2702127229_))) - (_hd2702227232_ - (let () - (declare (not safe)) - (##car _e2702127229_)))) - (if (gx#identifier? _hd2702227232_) - (if (gx#stx-eq? - '%#call - _hd2702227232_) - (if (gx#stx-pair? - _tl2702327234_) - (let ((_e2702427237_ - (gx#stx-e - _tl2702327234_))) - (let ((_tl2702627242_ + (gx#stx-e _tl2919029413_)))) + (let ((_tl2919329421_ + (let () + (declare (not safe)) + (##cdr _e2919529416_))) + (_hd2919429419_ + (let () + (declare (not safe)) + (##car _e2919529416_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2919329421_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2918729405_)) + (let ((_e2919829424_ (let () (declare (not safe)) - (##cdr _e2702427237_))) - (_hd2702527240_ - (let () - (declare - (not safe)) - (##car _e2702427237_)))) - (if (gx#stx-pair? - _hd2702527240_) - (let ((_e2702727245_ + (gx#stx-e + _tl2918729405_)))) + (let ((_tl2919629429_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd2702527240_))) - (let ((_tl2702927250_ - (let () - (declare (not safe)) - (##cdr _e2702727245_))) - (_hd2702827248_ + (not safe)) + (##cdr _e2919829424_))) + (_hd2919729427_ + (let () (declare (not safe)) (##car _e2919829424_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2919729427_)) + (let ((_e2920129432_ (let () (declare (not safe)) - (##car _e2702727245_)))) - (if (gx#identifier? _hd2702827248_) - (if (gx#stx-eq? '%#ref _hd2702827248_) - (if (gx#stx-pair? _tl2702927250_) - (let ((_e2703027253_ - (gx#stx-e _tl2702927250_))) - (let ((_tl2703227258_ - (let () - (declare (not safe)) - (##cdr _e2703027253_))) - (_hd2703127256_ + (gx#stx-e _hd2919729427_)))) + (let ((_tl2919929437_ + (let () + (declare (not safe)) + (##cdr _e2920129432_))) + (_hd2920029435_ + (let () + (declare (not safe)) + (##car _e2920129432_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2920029435_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2920029435_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2919929437_)) + (let ((_e2920429440_ (let () (declare (not safe)) - (##car _e2703027253_)))) - (if (gx#stx-null? _tl2703227258_) - (if (gx#stx-pair? _tl2702627242_) - (let ((_e2703327261_ - (gx#stx-e - _tl2702627242_))) - (let ((_tl2703527266_ - (let () - (declare (not safe)) - (##cdr _e2703327261_))) - (_hd2703427264_ + (gx#stx-e _tl2919929437_)))) + (let ((_tl2920229445_ + (let () + (declare (not safe)) + (##cdr _e2920429440_))) + (_hd2920329443_ + (let () + (declare (not safe)) + (##car _e2920429440_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2920229445_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2919629429_)) + (let ((_e2920729448_ (let () (declare (not safe)) - (##car _e2703327261_)))) - (if (gx#stx-pair? - _hd2703427264_) - (let ((_e2703627269_ - (gx#stx-e - _hd2703427264_))) - (let ((_tl2703827274_ - (let () + (gx#stx-e + _tl2919629429_)))) + (let ((_tl2920529453_ + (let () + (declare + (not safe)) + (##cdr _e2920729448_))) + (_hd2920629451_ + (let () + (declare + (not safe)) + (##car _e2920729448_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2920529453_)) + (___match3489034891_ + _e2918629392_ + _hd2918529395_ + _tl2918429397_ + _e2918929400_ + _hd2918829403_ + _tl2918729405_ + _e2919229408_ + _hd2919129411_ + _tl2919029413_ + _e2919529416_ + _hd2919429419_ + _tl2919329421_ + _e2919829424_ + _hd2919729427_ + _tl2919629429_ + _e2920129432_ + _hd2920029435_ + _tl2919929437_ + _e2920429440_ + _hd2920329443_ + _tl2920229445_ + _e2920729448_ + _hd2920629451_ + _tl2920529453_) + (if (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2703627269_))) - (_hd2703727272_ - (let () (declare (not safe)) (##car _e2703627269_)))) - (if (gx#identifier? _hd2703727272_) - (if (gx#stx-eq? '%#ref _hd2703727272_) - (if (gx#stx-pair? _tl2703827274_) - (let ((_e2703927277_ (gx#stx-e _tl2703827274_))) - (let ((_tl2704127282_ - (let () - (declare (not safe)) - (##cdr _e2703927277_))) - (_hd2704027280_ - (let () - (declare (not safe)) - (##car _e2703927277_)))) - (if (gx#stx-null? _tl2704127282_) - (if (gx#stx-pair? _tl2703527266_) - (let ((_e2704227285_ - (gx#stx-e _tl2703527266_))) - (let ((_tl2704427290_ - (let () - (declare (not safe)) - (##cdr _e2704227285_))) - (_hd2704327288_ - (let () - (declare (not safe)) - (##car _e2704227285_)))) - (if (gx#stx-null? - _tl2704427290_) - (___match3272732728_ - _e2702127229_ - _hd2702227232_ - _tl2702327234_ - _e2702427237_ - _hd2702527240_ - _tl2702627242_ - _e2702727245_ - _hd2702827248_ - _tl2702927250_ - _e2703027253_ - _hd2703127256_ - _tl2703227258_ - _e2703327261_ - _hd2703427264_ - _tl2703527266_ - _e2703627269_ - _hd2703727272_ - _tl2703827274_ - _e2703927277_ - _hd2704027280_ - _tl2704127282_ - _e2704227285_ - _hd2704327288_ - _tl2704427290_) - (if (gx#stx-pair/null? - _tl2702627242_) - (let ((___splice3265832659_ + (not safe)) + (gx#stx-pair/null? _tl2918729405_)) + (let ((___splice3482134822_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl2918729405_ '0)))) + (let ((_tl2923029293_ + (let () + (declare (not safe)) + (##vector-ref ___splice3482134822_ '1))) + (_target2922829291_ + (let () + (declare (not safe)) + (##vector-ref ___splice3482134822_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2923029293_)) + (___match3495234953_ + _e2918629392_ + _hd2918529395_ + _tl2918429397_ + _e2918929400_ + _hd2918829403_ + _tl2918729405_ + _e2919229408_ + _hd2919129411_ + _tl2919029413_ + _e2919529416_ + _hd2919429419_ + _tl2919329421_ + ___splice3482134822_ + _target2922829291_ + _tl2923029293_) + (___kont3482334824_)))) + (___kont3482334824_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl2918729405_)) + (let ((___splice3482134822_ + (let () + (declare + (not safe)) (gx#syntax-split-splice - _tl2702627242_ - '0))) - (let ((_tl2706727130_ - (let () + _tl2918729405_ + '0)))) + (let ((_tl2923029293_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##vector-ref ___splice3265832659_ '1))) - (_target2706527128_ - (let () - (declare (not safe)) - (##vector-ref ___splice3265832659_ '0)))) - (if (gx#stx-null? _tl2706727130_) - (___match3278932790_ - _e2702127229_ - _hd2702227232_ - _tl2702327234_ - _e2702427237_ - _hd2702527240_ - _tl2702627242_ - _e2702727245_ - _hd2702827248_ - _tl2702927250_ - _e2703027253_ - _hd2703127256_ - _tl2703227258_ - ___splice3265832659_ - _target2706527128_ - _tl2706727130_) - (___kont3266032661_)))) - (___kont3266032661_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? - _tl2702627242_) - (let ((___splice3265832659_ - (gx#syntax-split-splice - _tl2702627242_ - '0))) - (let ((_tl2706727130_ - (let () - (declare (not safe)) - (##vector-ref - ___splice3265832659_ - '1))) - (_target2706527128_ + (not safe)) + (##vector-ref ___splice3482134822_ '1))) + (_target2922829291_ + (let () + (declare (not safe)) + (##vector-ref ___splice3482134822_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2923029293_)) + (___match3495234953_ + _e2918629392_ + _hd2918529395_ + _tl2918429397_ + _e2918929400_ + _hd2918829403_ + _tl2918729405_ + _e2919229408_ + _hd2919129411_ + _tl2919029413_ + _e2919529416_ + _hd2919429419_ + _tl2919329421_ + ___splice3482134822_ + _target2922829291_ + _tl2923029293_) + (___kont3482334824_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3482334824_))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl2918729405_)) + (let ((___splice3482134822_ (let () (declare (not safe)) - (##vector-ref - ___splice3265832659_ + (gx#syntax-split-splice + _tl2918729405_ '0)))) - (if (gx#stx-null? - _tl2706727130_) - (___match3278932790_ - _e2702127229_ - _hd2702227232_ - _tl2702327234_ - _e2702427237_ - _hd2702527240_ - _tl2702627242_ - _e2702727245_ - _hd2702827248_ - _tl2702927250_ - _e2703027253_ - _hd2703127256_ - _tl2703227258_ - ___splice3265832659_ - _target2706527128_ - _tl2706727130_) - (___kont3266032661_)))) - (___kont3266032661_))) - (if (gx#stx-pair/null? _tl2702627242_) - (let ((___splice3265832659_ + (let ((_tl2923029293_ + (let () + (declare + (not safe)) + (##vector-ref + ___splice3482134822_ + '1))) + (_target2922829291_ + (let () + (declare + (not safe)) + (##vector-ref + ___splice3482134822_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2923029293_)) + (___match3495234953_ + _e2918629392_ + _hd2918529395_ + _tl2918429397_ + _e2918929400_ + _hd2918829403_ + _tl2918729405_ + _e2919229408_ + _hd2919129411_ + _tl2919029413_ + _e2919529416_ + _hd2919429419_ + _tl2919329421_ + ___splice3482134822_ + _target2922829291_ + _tl2923029293_) + (___kont3482334824_)))) + (___kont3482334824_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl2918729405_)) + (let ((___splice3482134822_ + (let () + (declare (not safe)) (gx#syntax-split-splice - _tl2702627242_ - '0))) - (let ((_tl2706727130_ - (let () - (declare (not safe)) - (##vector-ref - ___splice3265832659_ - '1))) - (_target2706527128_ - (let () - (declare (not safe)) - (##vector-ref - ___splice3265832659_ - '0)))) - (if (gx#stx-null? - _tl2706727130_) - (___match3278932790_ - _e2702127229_ - _hd2702227232_ - _tl2702327234_ - _e2702427237_ - _hd2702527240_ - _tl2702627242_ - _e2702727245_ - _hd2702827248_ - _tl2702927250_ - _e2703027253_ - _hd2703127256_ - _tl2703227258_ - ___splice3265832659_ - _target2706527128_ - _tl2706727130_) - (___kont3266032661_)))) - (___kont3266032661_))))) - (if (gx#stx-pair/null? _tl2702627242_) - (let ((___splice3265832659_ - (gx#syntax-split-splice - _tl2702627242_ - '0))) - (let ((_tl2706727130_ - (let () - (declare (not safe)) - (##vector-ref - ___splice3265832659_ - '1))) - (_target2706527128_ + _tl2918729405_ + '0)))) + (let ((_tl2923029293_ + (let () + (declare (not safe)) + (##vector-ref + ___splice3482134822_ + '1))) + (_target2922829291_ + (let () + (declare (not safe)) + (##vector-ref + ___splice3482134822_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2923029293_)) + (___match3495234953_ + _e2918629392_ + _hd2918529395_ + _tl2918429397_ + _e2918929400_ + _hd2918829403_ + _tl2918729405_ + _e2919229408_ + _hd2919129411_ + _tl2919029413_ + _e2919529416_ + _hd2919429419_ + _tl2919329421_ + ___splice3482134822_ + _target2922829291_ + _tl2923029293_) + (___kont3482334824_)))) + (___kont3482334824_))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl2918729405_)) + (let ((___splice3482134822_ (let () (declare (not safe)) - (##vector-ref - ___splice3265832659_ + (gx#syntax-split-splice + _tl2918729405_ '0)))) - (if (gx#stx-null? _tl2706727130_) - (___match3278932790_ - _e2702127229_ - _hd2702227232_ - _tl2702327234_ - _e2702427237_ - _hd2702527240_ - _tl2702627242_ - _e2702727245_ - _hd2702827248_ - _tl2702927250_ - _e2703027253_ - _hd2703127256_ - _tl2703227258_ - ___splice3265832659_ - _target2706527128_ - _tl2706727130_) - (___kont3266032661_)))) - (___kont3266032661_))) - (if (gx#stx-pair/null? _tl2702627242_) - (let ((___splice3265832659_ - (gx#syntax-split-splice - _tl2702627242_ - '0))) - (let ((_tl2706727130_ - (let () - (declare (not safe)) - (##vector-ref - ___splice3265832659_ - '1))) - (_target2706527128_ + (let ((_tl2923029293_ + (let () + (declare (not safe)) + (##vector-ref + ___splice3482134822_ + '1))) + (_target2922829291_ + (let () + (declare (not safe)) + (##vector-ref + ___splice3482134822_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2923029293_)) + (___match3495234953_ + _e2918629392_ + _hd2918529395_ + _tl2918429397_ + _e2918929400_ + _hd2918829403_ + _tl2918729405_ + _e2919229408_ + _hd2919129411_ + _tl2919029413_ + _e2919529416_ + _hd2919429419_ + _tl2919329421_ + ___splice3482134822_ + _target2922829291_ + _tl2923029293_) + (___kont3482334824_)))) + (___kont3482334824_))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl2918729405_)) + (let ((___splice3482134822_ (let () (declare (not safe)) - (##vector-ref - ___splice3265832659_ + (gx#syntax-split-splice + _tl2918729405_ '0)))) - (if (gx#stx-null? _tl2706727130_) - (___match3278932790_ - _e2702127229_ - _hd2702227232_ - _tl2702327234_ - _e2702427237_ - _hd2702527240_ - _tl2702627242_ - _e2702727245_ - _hd2702827248_ - _tl2702927250_ - _e2703027253_ - _hd2703127256_ - _tl2703227258_ - ___splice3265832659_ - _target2706527128_ - _tl2706727130_) - (___kont3266032661_)))) - (___kont3266032661_))) - (if (gx#stx-pair/null? _tl2702627242_) - (let ((___splice3265832659_ - (gx#syntax-split-splice _tl2702627242_ '0))) - (let ((_tl2706727130_ - (let () - (declare (not safe)) - (##vector-ref ___splice3265832659_ '1))) - (_target2706527128_ - (let () - (declare (not safe)) - (##vector-ref ___splice3265832659_ '0)))) - (if (gx#stx-null? _tl2706727130_) - (___match3278932790_ - _e2702127229_ - _hd2702227232_ - _tl2702327234_ - _e2702427237_ - _hd2702527240_ - _tl2702627242_ - _e2702727245_ - _hd2702827248_ - _tl2702927250_ - _e2703027253_ - _hd2703127256_ - _tl2703227258_ - ___splice3265832659_ - _target2706527128_ - _tl2706727130_) - (___kont3266032661_)))) - (___kont3266032661_))))) - (if (gx#stx-pair/null? _tl2702627242_) - (let ((___splice3265832659_ - (gx#syntax-split-splice _tl2702627242_ '0))) - (let ((_tl2706727130_ - (let () - (declare (not safe)) - (##vector-ref ___splice3265832659_ '1))) - (_target2706527128_ - (let () - (declare (not safe)) - (##vector-ref ___splice3265832659_ '0)))) - (if (gx#stx-null? _tl2706727130_) - (___match3278932790_ - _e2702127229_ - _hd2702227232_ - _tl2702327234_ - _e2702427237_ - _hd2702527240_ - _tl2702627242_ - _e2702727245_ - _hd2702827248_ - _tl2702927250_ - _e2703027253_ - _hd2703127256_ - _tl2703227258_ - ___splice3265832659_ - _target2706527128_ - _tl2706727130_) - (___kont3266032661_)))) - (___kont3266032661_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? - _tl2702627242_) - (let ((___splice3265832659_ - (gx#syntax-split-splice - _tl2702627242_ - '0))) - (let ((_tl2706727130_ - (let () - (declare - (not safe)) - (##vector-ref - ___splice3265832659_ - '1))) - (_target2706527128_ - (let () - (declare - (not safe)) - (##vector-ref - ___splice3265832659_ - '0)))) - (if (gx#stx-null? - _tl2706727130_) - (___match3278932790_ - _e2702127229_ - _hd2702227232_ - _tl2702327234_ - _e2702427237_ - _hd2702527240_ - _tl2702627242_ - _e2702727245_ - _hd2702827248_ - _tl2702927250_ - _e2703027253_ - _hd2703127256_ - _tl2703227258_ - ___splice3265832659_ - _target2706527128_ - _tl2706727130_) - (___kont3266032661_)))) - (___kont3266032661_))) - (___kont3266032661_)))) - (___kont3266032661_)) - (___kont3266032661_)) - (___kont3266032661_)))) - (___kont3266032661_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3266032661_)) - (if (gx#stx-eq? - '%#quote - _hd2702227232_) - (if (gx#stx-pair? - _tl2702327234_) - (let ((_e2704827214_ - (gx#stx-e - _tl2702327234_))) - (let ((_tl2705027219_ + (let ((_tl2923029293_ + (let () + (declare (not safe)) + (##vector-ref + ___splice3482134822_ + '1))) + (_target2922829291_ + (let () + (declare (not safe)) + (##vector-ref + ___splice3482134822_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2923029293_)) + (___match3495234953_ + _e2918629392_ + _hd2918529395_ + _tl2918429397_ + _e2918929400_ + _hd2918829403_ + _tl2918729405_ + _e2919229408_ + _hd2919129411_ + _tl2919029413_ + _e2919529416_ + _hd2919429419_ + _tl2919329421_ + ___splice3482134822_ + _target2922829291_ + _tl2923029293_) + (___kont3482334824_)))) + (___kont3482334824_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl2918729405_)) + (let ((___splice3482134822_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl2918729405_ '0)))) + (let ((_tl2923029293_ + (let () + (declare (not safe)) + (##vector-ref ___splice3482134822_ '1))) + (_target2922829291_ + (let () + (declare (not safe)) + (##vector-ref ___splice3482134822_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2923029293_)) + (___match3495234953_ + _e2918629392_ + _hd2918529395_ + _tl2918429397_ + _e2918929400_ + _hd2918829403_ + _tl2918729405_ + _e2919229408_ + _hd2919129411_ + _tl2919029413_ + _e2919529416_ + _hd2919429419_ + _tl2919329421_ + ___splice3482134822_ + _target2922829291_ + _tl2923029293_) + (___kont3482334824_)))) + (___kont3482334824_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl2918729405_)) + (let ((___splice3482134822_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2704827214_))) - (_hd2704927217_ - (let () (declare (not safe)) (##car _e2704827214_)))) - (if (gx#stx-null? _hd2704927217_) - (if (gx#stx-null? _tl2705027219_) - (___kont3265432655_) - (___kont3266032661_)) - (___kont3266032661_)))) - (___kont3266032661_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3266032661_))) - (___kont3266032661_)))) - (___kont3266032661_)))))))))) - (_mixin-resolve-type26269_ - (lambda (_mixin26994_) - (let ((_t2699526997_ - (gxc#optimizer-resolve-type _mixin26994_))) - (if _t2699526997_ - (let ((_t27000_ _t2699526997_)) + (gx#syntax-split-splice _tl2918729405_ '0)))) + (let ((_tl2923029293_ + (let () + (declare (not safe)) + (##vector-ref ___splice3482134822_ '1))) + (_target2922829291_ + (let () + (declare (not safe)) + (##vector-ref ___splice3482134822_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2923029293_)) + (___match3495234953_ + _e2918629392_ + _hd2918529395_ + _tl2918429397_ + _e2918929400_ + _hd2918829403_ + _tl2918729405_ + _e2919229408_ + _hd2919129411_ + _tl2919029413_ + _e2919529416_ + _hd2919429419_ + _tl2919329421_ + ___splice3482134822_ + _target2922829291_ + _tl2923029293_) + (___kont3482334824_)))) + (___kont3482334824_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3482334824_)))) + (___kont3482334824_)) + (___kont3482334824_)) + (___kont3482334824_)))) + (___kont3482334824_)))) + (___kont3482334824_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd2918529395_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl2918429397_)) + (let ((_e2921329377_ + (let () + (declare (not safe)) + (gx#stx-e _tl2918429397_)))) + (let ((_tl2921129382_ + (let () + (declare (not safe)) + (##cdr _e2921329377_))) + (_hd2921229380_ + (let () + (declare (not safe)) + (##car _e2921329377_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _hd2921229380_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2921129382_)) + (___kont3481734818_) + (___kont3482334824_)) + (___kont3482334824_)))) + (___kont3482334824_)) + (___kont3482334824_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3482334824_)))) + (___kont3482334824_))))))))) + (declare (not safe)) + (call-with-current-continuation __tmp36767)))) + (_mixin-resolve-type28432_ + (lambda (_mixin29157_) + (let ((_t2915829160_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type _mixin29157_)))) + (if _t2915829160_ + (let ((_t29163_ _t2915829160_)) (if (or (let () (declare (not safe)) (##structure-instance-of? - _t27000_ + _t29163_ 'gxc#!class-type::t)) (let () (declare (not safe)) (##structure-instance-of? - _t27000_ + _t29163_ 'gxc#!struct-type::t))) '#!void - (gxc#raise-compile-error - '"Illegal class-type construction; invalid mixin type" - _stx26265_ - _mixin26994_)) - _t27000_) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal class-type construction; invalid mixin type" + _stx28428_ + _mixin29157_))) + _t29163_) '#f)))) - (_mixin-super26270_ - (lambda (_mixins26866_ _ids26867_) - (letrec ((_super-e26869_ - (lambda (_a26988_ _b26989_) - (if (eq? _a26988_ '#!void) + (_mixin-super28433_ + (lambda (_mixins29029_ _ids29030_) + (letrec ((_super-e29032_ + (lambda (_a29151_ _b29152_) + (if (let () + (declare (not safe)) + (eq? _a29151_ '#!void)) '#!void - (if (not _b26989_) - _a26988_ - (if (eq? _a26988_ _b26989_) - _a26988_ - (let ((_ha26991_ - (_struct-hierarchy26870_ - _a26988_)) - (_hb26992_ - (_struct-hierarchy26870_ - _b26989_))) - (if (equal? _ha26991_ _hb26992_) - _a26988_ - (if (_struct<26871_ - _ha26991_ - _hb26992_) - _b26989_ - (if (_struct<26871_ - _hb26992_ - _ha26991_) - _a26988_ - (if (and (not (car _ha26991_)) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not (car _hb26992_))) + (if (let () + (declare (not safe)) + (not _b29152_)) + _a29151_ + (if (let () + (declare (not safe)) + (eq? _a29151_ _b29152_)) + _a29151_ + (let ((_ha29154_ + (let () + (declare (not safe)) + (_struct-hierarchy29033_ + _a29151_))) + (_hb29155_ + (let () + (declare (not safe)) + (_struct-hierarchy29033_ + _b29152_)))) + (if (let () + (declare (not safe)) + (equal? _ha29154_ + _hb29155_)) + _a29151_ + (if (let () + (declare (not safe)) + (_struct<29034_ + _ha29154_ + _hb29155_)) + _b29152_ + (if (let () + (declare + (not safe)) + (_struct<29034_ + _hb29155_ + _ha29154_)) + _a29151_ + (if (and (let ((__tmp36774 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (car _ha29154_)))) + (declare (not safe)) + (not __tmp36774)) + (let ((__tmp36773 + (let () + (declare (not safe)) + (car _hb29155_)))) + (declare (not safe)) + (not __tmp36773))) '#!void - (gxc#raise-compile-error - '"Illegal class-type construction; incompatible base classes" - _stx26265_ - _a26988_ - _b26989_))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_struct-hierarchy26870_ - (lambda (_id26976_) - (let _lp26978_ ((_id26980_ _id26976_) - (_h26981_ '())) - (if (not _id26980_) - _h26981_ - (let ((_$e26983_ - (gxc#optimizer-resolve-type - _id26980_))) - (if _$e26983_ - ((lambda (_t26986_) + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal class-type construction; incompatible base classes" + _stx28428_ + _a29151_ + _b29152_)))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_struct-hierarchy29033_ + (lambda (_id29139_) + (let _lp29141_ ((_id29143_ _id29139_) + (_h29144_ '())) + (if (let () + (declare (not safe)) + (not _id29143_)) + _h29144_ + (let ((_$e29146_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-type + _id29143_)))) + (if _$e29146_ + ((lambda (_t29149_) (if (let () (declare (not safe)) (##structure-instance-of? - _t26986_ + _t29149_ 'gxc#!struct-type::t)) - (_lp26978_ - (##structure-ref - _t26986_ - '2 - gxc#!struct-type::t - '#f) - (cons _id26980_ _h26981_)) + (let ((__tmp36776 + (##structure-ref + _t29149_ + '2 + gxc#!struct-type::t + '#f)) + (__tmp36775 + (let () + (declare + (not safe)) + (cons _id29143_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _h29144_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp29141_ + __tmp36776 + __tmp36775)) (error '"Unexpected struct type" - _id26980_ - _t26986_))) - _$e26983_) - (cons '#f _h26981_))))))) - (_struct<26871_ - (lambda (_ha26919_ _hb26920_) - (if (fx< (length _ha26919_) (length _hb26920_)) - (let _lp26922_ ((_rest-a26924_ _ha26919_) - (_rest-b26925_ _hb26920_)) - (let ((_rest-a2692626937_ _rest-a26924_) - (_rest-b2692726939_ _rest-b26925_)) - (let* ((_else2692926947_ + _id29143_ + _t29149_))) + _$e29146_) + (let () + (declare (not safe)) + (cons '#f _h29144_)))))))) + (_struct<29034_ + (lambda (_ha29082_ _hb29083_) + (if (fx< (length _ha29082_) (length _hb29083_)) + (let _lp29085_ ((_rest-a29087_ _ha29082_) + (_rest-b29088_ _hb29083_)) + (let ((_rest-a2908929100_ _rest-a29087_) + (_rest-b2909029102_ _rest-b29088_)) + (let* ((_else2909229110_ (lambda () '#t)) - (_K2693126955_ - (lambda (_rest-a26950_ - _a26951_ - _rest-b26952_ - _b26953_) - (if (eq? _a26951_ _b26953_) - (_lp26922_ - _rest-a26950_ - _rest-b26952_) + (_K2909429118_ + (lambda (_rest-a29113_ + _a29114_ + _rest-b29115_ + _b29116_) + (if (let () + (declare (not safe)) + (eq? _a29114_ + _b29116_)) + (let () + (declare (not safe)) + (_lp29085_ + _rest-a29113_ + _rest-b29115_)) '#f)))) (if (let () (declare (not safe)) - (##pair? _rest-a2692626937_)) - (let ((_hd2693426958_ + (##pair? _rest-a2908929100_)) + (let ((_hd2909729121_ (let () (declare (not safe)) - (##car _rest-a2692626937_))) - (_tl2693526960_ + (##car _rest-a2908929100_))) + (_tl2909829123_ (let () (declare (not safe)) - (##cdr _rest-a2692626937_)))) - (let* ((_a26963_ - _hd2693426958_) - (_rest-a26965_ - _tl2693526960_)) + (##cdr _rest-a2908929100_)))) + (let* ((_a29126_ + _hd2909729121_) + (_rest-a29128_ + _tl2909829123_)) (if (let () (declare (not safe)) - (##pair? _rest-b2692726939_)) - (let ((_hd2693226967_ + (##pair? _rest-b2909029102_)) + (let ((_hd2909529130_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _rest-b2692726939_))) - (_tl2693326969_ - (let () (declare (not safe)) (##cdr _rest-b2692726939_)))) - (let* ((_b26972_ _hd2693226967_) - (_rest-b26974_ _tl2693326969_)) - (_K2693126955_ - _rest-a26965_ - _a26963_ - _rest-b26974_ - _b26972_))) - (_else2692926947_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else2692926947_))))) + (##car _rest-b2909029102_))) + (_tl2909629132_ + (let () (declare (not safe)) (##cdr _rest-b2909029102_)))) + (let* ((_b29135_ _hd2909529130_) + (_rest-b29137_ _tl2909629132_)) + (declare (not safe)) + (_K2909429118_ + _rest-a29128_ + _a29126_ + _rest-b29137_ + _b29135_))) + (let () (declare (not safe)) (_else2909229110_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_else2909229110_)))))) '#f)))) - (let _lp26873_ ((_rest26875_ _mixins26866_) - (_rest-ids26876_ _ids26867_) - (_super26877_ '#f)) - (let* ((_rest2687826886_ _rest26875_) - (_else2688026894_ (lambda () _super26877_)) - (_K2688226907_ - (lambda (_rest26897_ _t26898_) + (let _lp29036_ ((_rest29038_ _mixins29029_) + (_rest-ids29039_ _ids29030_) + (_super29040_ '#f)) + (let* ((_rest2904129049_ _rest29038_) + (_else2904329057_ (lambda () _super29040_)) + (_K2904529070_ + (lambda (_rest29060_ _t29061_) (if (let () (declare (not safe)) (##structure-instance-of? - _t26898_ + _t29061_ 'gxc#!class-type::t)) - (let* ((_t-super26900_ + (let* ((_t-super29063_ (##structure-ref - _t26898_ + _t29061_ '2 gxc#!class-type::t '#f)) - (_super26902_ - (_super-e26869_ - _t-super26900_ - _super26877_))) - (if (eq? _super26902_ '#!void) + (_super29065_ + (let () + (declare (not safe)) + (_super-e29032_ + _t-super29063_ + _super29040_)))) + (if (let () + (declare (not safe)) + (eq? _super29065_ '#!void)) '#!void - (_lp26873_ - _rest26897_ - (cdr _rest-ids26876_) - _super26902_))) + (let ((__tmp36779 + (let () + (declare (not safe)) + (cdr _rest-ids29039_)))) + (declare (not safe)) + (_lp29036_ + _rest29060_ + __tmp36779 + _super29065_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _t26898_ + _t29061_ 'gxc#!struct-type::t)) - (let ((_super26905_ - (_super-e26869_ - (car _rest-ids26876_) - _super26877_))) - (if (eq? _super26905_ '#!void) + (let ((_super29068_ + (let ((__tmp36777 + (let () + (declare (not safe)) + (car _rest-ids29039_)))) + (declare (not safe)) + (_super-e29032_ + __tmp36777 + _super29040_)))) + (if (let () + (declare (not safe)) + (eq? _super29068_ '#!void)) '#!void - (_lp26873_ - _rest26897_ - (cdr _rest-ids26876_) - _super26905_))) + (let ((__tmp36778 + (let () + (declare (not safe)) + (cdr _rest-ids29039_)))) + (declare (not safe)) + (_lp29036_ + _rest29060_ + __tmp36778 + _super29068_)))) (error '"Unexpected mixin" - _t26898_)))))) + _t29061_)))))) (if (let () (declare (not safe)) - (##pair? _rest2687826886_)) - (let ((_hd2688326910_ + (##pair? _rest2904129049_)) + (let ((_hd2904629073_ (let () (declare (not safe)) - (##car _rest2687826886_))) - (_tl2688426912_ + (##car _rest2904129049_))) + (_tl2904729075_ (let () (declare (not safe)) - (##cdr _rest2687826886_)))) - (let* ((_t26915_ _hd2688326910_) - (_rest26917_ _tl2688426912_)) - (_K2688226907_ _rest26917_ _t26915_))) - (_else2688026894_))))))) - (_mixin-slots26271_ - (lambda (_mixins26821_) - (let _lp26823_ ((_rest26825_ _mixins26821_) - (_slots26826_ '())) - (let* ((_rest2682726835_ _rest26825_) - (_else2682926843_ (lambda () _slots26826_)) - (_K2683126854_ - (lambda (_rest26846_ _t26847_) + (##cdr _rest2904129049_)))) + (let* ((_t29078_ _hd2904629073_) + (_rest29080_ _tl2904729075_)) + (declare (not safe)) + (_K2904529070_ _rest29080_ _t29078_))) + (let () + (declare (not safe)) + (_else2904329057_)))))))) + (_mixin-slots28434_ + (lambda (_mixins28984_) + (let _lp28986_ ((_rest28988_ _mixins28984_) + (_slots28989_ '())) + (let* ((_rest2899028998_ _rest28988_) + (_else2899229006_ (lambda () _slots28989_)) + (_K2899429017_ + (lambda (_rest29009_ _t29010_) (if (let () (declare (not safe)) (##structure-instance-of? - _t26847_ + _t29010_ 'gxc#!class-type::t)) - (let ((_$e26849_ + (let ((_$e29012_ (##structure-ref - _t26847_ + _t29010_ '5 gxc#!class-type::t '#f))) - (if _$e26849_ - ((lambda (_xslots26852_) - (_lp26823_ - _rest26846_ - (foldl1 _cons-slot26273_ - _slots26826_ - _xslots26852_))) - _$e26849_) + (if _$e29012_ + ((lambda (_xslots29015_) + (let ((__tmp36781 + (let () + (declare (not safe)) + (foldl1 _cons-slot28436_ + _slots28989_ + _xslots29015_)))) + (declare (not safe)) + (_lp28986_ + _rest29009_ + __tmp36781))) + _$e29012_) (begin - (gxc#verbose - '"make-class-type: incomplete mixin class " - (##structure-ref - _t26847_ - '1 - gxc#!type::t - '#f)) + (let ((__tmp36780 + (##structure-ref + _t29010_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (gxc#verbose + '"make-class-type: incomplete mixin class " + __tmp36780)) '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _t26847_ + _t29010_ 'gxc#!struct-type::t)) - (_lp26823_ _rest26846_ _slots26826_) + (let () + (declare (not safe)) + (_lp28986_ _rest29009_ _slots28989_)) (error '"Unexpected mixin" - _t26847_)))))) + _t29010_)))))) (if (let () (declare (not safe)) - (##pair? _rest2682726835_)) - (let ((_hd2683226857_ + (##pair? _rest2899028998_)) + (let ((_hd2899529020_ (let () (declare (not safe)) - (##car _rest2682726835_))) - (_tl2683326859_ + (##car _rest2899028998_))) + (_tl2899629022_ (let () (declare (not safe)) - (##cdr _rest2682726835_)))) - (let* ((_t26862_ _hd2683226857_) - (_rest26864_ _tl2683326859_)) - (_K2683126854_ _rest26864_ _t26862_))) - (_else2682926843_)))))) - (_mixin-ctor26272_ - (lambda (_mixins26773_) - (letrec ((_ctor-e26775_ - (lambda (_a26815_ _b26816_) - (if (or (eq? _a26815_ '#!void) - (eq? _b26816_ '#!void)) + (##cdr _rest2899028998_)))) + (let* ((_t29025_ _hd2899529020_) + (_rest29027_ _tl2899629022_)) + (declare (not safe)) + (_K2899429017_ _rest29027_ _t29025_))) + (let () + (declare (not safe)) + (_else2899229006_))))))) + (_mixin-ctor28435_ + (lambda (_mixins28936_) + (letrec ((_ctor-e28938_ + (lambda (_a28978_ _b28979_) + (if (or (let () + (declare (not safe)) + (eq? _a28978_ '#!void)) + (let () + (declare (not safe)) + (eq? _b28979_ '#!void))) '#!void - (if (not _a26815_) - _b26816_ - (if (not _b26816_) - _a26815_ - (if (eq? _a26815_ _b26816_) - _a26815_ - (gxc#raise-compile-error - '"Illegal class-type construction; conflicting implicit constructors" - _stx26265_ - _a26815_ - _b26816_)))))))) - (let _lp26777_ ((_rest26779_ _mixins26773_) - (_ctor26780_ '#f)) - (if (eq? _ctor26780_ '#!void) + (if (let () + (declare (not safe)) + (not _a28978_)) + _b28979_ + (if (let () + (declare (not safe)) + (not _b28979_)) + _a28978_ + (if (let () + (declare (not safe)) + (eq? _a28978_ _b28979_)) + _a28978_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal class-type construction; conflicting implicit constructors" + _stx28428_ + _a28978_ + _b28979_))))))))) + (let _lp28940_ ((_rest28942_ _mixins28936_) + (_ctor28943_ '#f)) + (if (let () + (declare (not safe)) + (eq? _ctor28943_ '#!void)) '#!void - (let* ((_rest2678126789_ _rest26779_) - (_else2678326797_ (lambda () _ctor26780_)) - (_K2678526803_ - (lambda (_rest26800_ _t26801_) + (let* ((_rest2894428952_ _rest28942_) + (_else2894628960_ (lambda () _ctor28943_)) + (_K2894828966_ + (lambda (_rest28963_ _t28964_) (if (let () (declare (not safe)) (##structure-instance-of? - _t26801_ + _t28964_ 'gxc#!class-type::t)) - (_lp26777_ - _rest26800_ - (_ctor-e26775_ - _ctor26780_ - (##structure-ref - _t26801_ - '6 - gxc#!class-type::t - '#f))) + (let ((__tmp36784 + (let ((__tmp36785 + (##structure-ref + _t28964_ + '6 + gxc#!class-type::t + '#f))) + (declare (not safe)) + (_ctor-e28938_ + _ctor28943_ + __tmp36785)))) + (declare (not safe)) + (_lp28940_ _rest28963_ __tmp36784)) (if (let () (declare (not safe)) (##structure-instance-of? - _t26801_ + _t28964_ 'gxc#!struct-type::t)) - (_lp26777_ - _rest26800_ - (_ctor-e26775_ - _ctor26780_ - (##structure-ref - _t26801_ - '5 - gxc#!struct-type::t - '#f))) + (let ((__tmp36782 + (let ((__tmp36783 + (##structure-ref + _t28964_ + '5 + gxc#!struct-type::t + '#f))) + (declare (not safe)) + (_ctor-e28938_ + _ctor28943_ + __tmp36783)))) + (declare (not safe)) + (_lp28940_ + _rest28963_ + __tmp36782)) (error '"Unexpected mixin" - _t26801_)))))) + _t28964_)))))) (if (let () (declare (not safe)) - (##pair? _rest2678126789_)) - (let ((_hd2678626806_ + (##pair? _rest2894428952_)) + (let ((_hd2894928969_ (let () (declare (not safe)) - (##car _rest2678126789_))) - (_tl2678726808_ + (##car _rest2894428952_))) + (_tl2895028971_ (let () (declare (not safe)) - (##cdr _rest2678126789_)))) - (let* ((_t26811_ _hd2678626806_) - (_rest26813_ _tl2678726808_)) - (_K2678526803_ _rest26813_ _t26811_))) - (_else2678326797_)))))))) - (_cons-slot26273_ - (lambda (_slot26770_ _r26771_) - (if (memq _slot26770_ _r26771_) - _r26771_ - (cons _slot26770_ _r26771_))))) - (let* ((___stx3279232793_ _args26266_) - (_g2627726384_ + (##cdr _rest2894428952_)))) + (let* ((_t28974_ _hd2894928969_) + (_rest28976_ _tl2895028971_)) + (declare (not safe)) + (_K2894828966_ _rest28976_ _t28974_))) + (let () + (declare (not safe)) + (_else2894628960_))))))))) + (_cons-slot28436_ + (lambda (_slot28933_ _r28934_) + (if (let () + (declare (not safe)) + (memq _slot28933_ _r28934_)) + _r28934_ + (let () + (declare (not safe)) + (cons _slot28933_ _r28934_)))))) + (let* ((___stx3495534956_ _args28429_) + (_g2844028547_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3279232793_)))) - (let ((___kont3279432795_ - (lambda (_L26718_ _L26719_ _L26720_ _L26721_ _L26722_) - (let* ((_slots26765_ (gx#stx-e _L26721_)) - (__obj34501 (make-object gxc#!class-type::t '8))) - (gxc#!class-type:::init! - __obj34501 - (gx#stx-e _L26722_) - '#f - '() - _slots26765_ - _slots26765_ - (gx#stx-e _L26718_) - (gx#stx-e _L26719_)) - __obj34501))) - (___kont3279632797_ - (lambda (_L26508_ - _L26509_ - _L26510_ - _L26511_ - _L26512_ - _L26513_) - (let ((_$e26556_ (_mixin-expr->list26268_ _L26512_))) - (if _$e26556_ - ((lambda (_mixin26559_) - (let ((_mixin-t26561_ - (map _mixin-resolve-type26269_ - _mixin26559_))) - (if (ormap1 not _mixin-t26561_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3495534956_))))) + (let ((___kont3495734958_ + (lambda (_L28881_ _L28882_ _L28883_ _L28884_ _L28885_) + (let* ((_slots28928_ + (let () (declare (not safe)) (gx#stx-e _L28884_))) + (__obj36664 (make-object gxc#!class-type::t '8))) + (let ((__tmp36788 + (let () + (declare (not safe)) + (gx#stx-e _L28885_))) + (__tmp36787 + (let () + (declare (not safe)) + (gx#stx-e _L28881_))) + (__tmp36786 + (let () + (declare (not safe)) + (gx#stx-e _L28882_)))) + (declare (not safe)) + (gxc#!class-type:::init! + __obj36664 + __tmp36788 + '#f + '() + _slots28928_ + _slots28928_ + __tmp36787 + __tmp36786)) + __obj36664))) + (___kont3495934960_ + (lambda (_L28671_ + _L28672_ + _L28673_ + _L28674_ + _L28675_ + _L28676_) + (let ((_$e28719_ + (let () + (declare (not safe)) + (_mixin-expr->list28431_ _L28675_)))) + (if _$e28719_ + ((lambda (_mixin28722_) + (let ((_mixin-t28724_ + (let () + (declare (not safe)) + (map _mixin-resolve-type28432_ + _mixin28722_)))) + (if (let () + (declare (not safe)) + (ormap1 not _mixin-t28724_)) (begin - (gxc#verbose - '"make-class-type: incomplete class" - (gx#stx-e _L26513_)) - (let ((__obj34502 + (let ((__tmp36797 + (let () + (declare (not safe)) + (gx#stx-e _L28676_)))) + (declare (not safe)) + (gxc#verbose + '"make-class-type: incomplete class" + __tmp36797)) + (let ((__obj36665 (make-object gxc#!class-type::t '8))) - (gxc#!class-type:::init! - __obj34502 - (gx#stx-e _L26513_) - '#!void - _mixin26559_ - (gx#stx-e _L26511_) - '#f - (let ((_$e26563_ (gx#stx-e _L26508_))) - (if _$e26563_ _$e26563_ '#!void)) - (gx#stx-e _L26509_)) - __obj34502)) - (let* ((_super26566_ - (_mixin-super26270_ - _mixin-t26561_ - _mixin26559_)) - (_slots26568_ (gx#stx-e _L26511_)) - (_xslots26570_ - (_mixin-slots26271_ - _mixin-t26561_)) - (_xslots26572_ - (if _xslots26570_ - (reverse (foldl1 _cons-slot26273_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xslots26570_ - _slots26568_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp36801 + (let () + (declare (not safe)) + (gx#stx-e _L28676_))) + (__tmp36800 + (let () + (declare (not safe)) + (gx#stx-e _L28674_))) + (__tmp36799 + (let ((_$e28726_ + (let () + (declare (not safe)) + (gx#stx-e _L28671_)))) + (if _$e28726_ + _$e28726_ + '#!void))) + (__tmp36798 + (let () + (declare (not safe)) + (gx#stx-e _L28672_)))) + (declare (not safe)) + (gxc#!class-type:::init! + __obj36665 + __tmp36801 + '#!void + _mixin28722_ + __tmp36800 + '#f + __tmp36799 + __tmp36798)) + __obj36665)) + (let* ((_super28729_ + (let () + (declare (not safe)) + (_mixin-super28433_ + _mixin-t28724_ + _mixin28722_))) + (_slots28731_ + (let () + (declare (not safe)) + (gx#stx-e _L28674_))) + (_xslots28733_ + (let () + (declare (not safe)) + (_mixin-slots28434_ + _mixin-t28724_))) + (_xslots28735_ + (if _xslots28733_ + (let ((__tmp36794 + (let () + (declare (not safe)) + (foldl1 _cons-slot28436_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _xslots28733_ + _slots28731_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (reverse __tmp36794)) '#f)) - (_ctor26574_ (gx#stx-e _L26508_)) - (_ctor26579_ - (let ((_$e26576_ _ctor26574_)) - (if _$e26576_ - _$e26576_ - (_mixin-ctor26272_ - _mixin-t26561_))))) - (let ((__obj34503 + (_ctor28737_ + (let () + (declare (not safe)) + (gx#stx-e _L28671_))) + (_ctor28742_ + (let ((_$e28739_ _ctor28737_)) + (if _$e28739_ + _$e28739_ + (let () + (declare (not safe)) + (_mixin-ctor28435_ + _mixin-t28724_)))))) + (let ((__obj36666 (make-object gxc#!class-type::t '8))) - (gxc#!class-type:::init! - __obj34503 - (gx#stx-e _L26513_) - _super26566_ - _mixin26559_ - _slots26568_ - _xslots26572_ - _ctor26579_ - (gx#stx-e _L26509_)) - __obj34503))))) - _$e26556_) + (let ((__tmp36796 + (let () + (declare (not safe)) + (gx#stx-e _L28676_))) + (__tmp36795 + (let () + (declare (not safe)) + (gx#stx-e _L28672_)))) + (declare (not safe)) + (gxc#!class-type:::init! + __obj36666 + __tmp36796 + _super28729_ + _mixin28722_ + _slots28731_ + _xslots28735_ + _ctor28742_ + __tmp36795)) + __obj36666))))) + _$e28719_) (begin - (gxc#verbose - '"make-class-type: incomplete class " - (gx#stx-e _L26513_)) - (let ((__obj34504 + (let ((__tmp36789 + (let () + (declare (not safe)) + (gx#stx-e _L28676_)))) + (declare (not safe)) + (gxc#verbose + '"make-class-type: incomplete class " + __tmp36789)) + (let ((__obj36667 (make-object gxc#!class-type::t '8))) - (gxc#!class-type:::init! - __obj34504 - (gx#stx-e _L26513_) - '#!void - '#f - (gx#stx-e _L26511_) - '#f - (let ((_$e26582_ (gx#stx-e _L26508_))) - (if _$e26582_ _$e26582_ '#!void)) - (gx#stx-e _L26509_)) - __obj34504)))))) - (___kont3279832799_ + (let ((__tmp36793 + (let () + (declare (not safe)) + (gx#stx-e _L28676_))) + (__tmp36792 + (let () + (declare (not safe)) + (gx#stx-e _L28674_))) + (__tmp36791 + (let ((_$e28745_ + (let () + (declare (not safe)) + (gx#stx-e _L28671_)))) + (if _$e28745_ _$e28745_ '#!void))) + (__tmp36790 + (let () + (declare (not safe)) + (gx#stx-e _L28672_)))) + (declare (not safe)) + (gxc#!class-type:::init! + __obj36667 + __tmp36793 + '#!void + '#f + __tmp36792 + '#f + __tmp36791 + __tmp36790)) + __obj36667)))))) + (___kont3496134962_ (lambda () - (gxc#verbose - '"make-class-type: can't infer type " - (gx#syntax->datum _stx26265_)) + (let ((__tmp36802 + (let () + (declare (not safe)) + (gx#syntax->datum _stx28428_)))) + (declare (not safe)) + (gxc#verbose + '"make-class-type: can't infer type " + __tmp36802)) '#f))) - (if (gx#stx-pair? ___stx3279232793_) - (let ((_e2628426590_ (gx#stx-e ___stx3279232793_))) - (let ((_tl2628626595_ - (let () (declare (not safe)) (##cdr _e2628426590_))) - (_hd2628526593_ + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3495534956_)) + (let ((_e2844928753_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3495534956_)))) + (let ((_tl2844728758_ + (let () (declare (not safe)) (##cdr _e2844928753_))) + (_hd2844828756_ (let () (declare (not safe)) - (##car _e2628426590_)))) - (if (gx#stx-pair? _hd2628526593_) - (let ((_e2628726598_ (gx#stx-e _hd2628526593_))) - (let ((_tl2628926603_ + (##car _e2844928753_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2844828756_)) + (let ((_e2845228761_ + (let () + (declare (not safe)) + (gx#stx-e _hd2844828756_)))) + (let ((_tl2845028766_ (let () (declare (not safe)) - (##cdr _e2628726598_))) - (_hd2628826601_ + (##cdr _e2845228761_))) + (_hd2845128764_ (let () (declare (not safe)) - (##car _e2628726598_)))) - (if (gx#identifier? _hd2628826601_) - (if (gx#stx-eq? '%#quote _hd2628826601_) - (if (gx#stx-pair? _tl2628926603_) - (let ((_e2629026606_ - (gx#stx-e _tl2628926603_))) - (let ((_tl2629226611_ + (##car _e2845228761_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2845128764_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2845128764_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2845028766_)) + (let ((_e2845528769_ + (let () + (declare (not safe)) + (gx#stx-e _tl2845028766_)))) + (let ((_tl2845328774_ (let () (declare (not safe)) - (##cdr _e2629026606_))) - (_hd2629126609_ + (##cdr _e2845528769_))) + (_hd2845428772_ (let () (declare (not safe)) - (##car _e2629026606_)))) - (if (gx#stx-null? _tl2629226611_) - (if (gx#stx-pair? - _tl2628626595_) - (let ((_e2629326614_ - (gx#stx-e - _tl2628626595_))) - (let ((_tl2629526619_ - (let () + (##car _e2845528769_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2845328774_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2844728758_)) + (let ((_e2845828777_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2629326614_))) - (_hd2629426617_ - (let () (declare (not safe)) (##car _e2629326614_)))) - (if (gx#stx-pair? _hd2629426617_) - (let ((_e2629626622_ (gx#stx-e _hd2629426617_))) - (let ((_tl2629826627_ + (not safe)) + (gx#stx-e _tl2844728758_)))) + (let ((_tl2845628782_ + (let () (declare (not safe)) (##cdr _e2845828777_))) + (_hd2845728780_ + (let () (declare (not safe)) (##car _e2845828777_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2845728780_)) + (let ((_e2846128785_ + (let () + (declare (not safe)) + (gx#stx-e _hd2845728780_)))) + (let ((_tl2845928790_ (let () (declare (not safe)) - (##cdr _e2629626622_))) - (_hd2629726625_ + (##cdr _e2846128785_))) + (_hd2846028788_ (let () (declare (not safe)) - (##car _e2629626622_)))) - (if (gx#identifier? _hd2629726625_) - (if (gx#stx-eq? '%#quote _hd2629726625_) - (if (gx#stx-pair? _tl2629826627_) - (let ((_e2629926630_ - (gx#stx-e _tl2629826627_))) - (let ((_tl2630126635_ + (##car _e2846128785_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2846028788_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2846028788_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2845928790_)) + (let ((_e2846428793_ + (let () + (declare (not safe)) + (gx#stx-e _tl2845928790_)))) + (let ((_tl2846228798_ (let () (declare (not safe)) - (##cdr _e2629926630_))) - (_hd2630026633_ + (##cdr _e2846428793_))) + (_hd2846328796_ (let () (declare (not safe)) - (##car _e2629926630_)))) - (if (gx#stx-null? _hd2630026633_) - (if (gx#stx-null? _tl2630126635_) - (if (gx#stx-pair? - _tl2629526619_) - (let ((_e2630226638_ - (gx#stx-e - _tl2629526619_))) - (let ((_tl2630426643_ - (let () + (##car _e2846428793_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _hd2846328796_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2846228798_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2845628782_)) + (let ((_e2846728801_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2630226638_))) - (_hd2630326641_ - (let () (declare (not safe)) (##car _e2630226638_)))) - (if (gx#stx-pair? _hd2630326641_) - (let ((_e2630526646_ (gx#stx-e _hd2630326641_))) - (let ((_tl2630726651_ + (not safe)) + (gx#stx-e _tl2845628782_)))) + (let ((_tl2846528806_ + (let () (declare (not safe)) (##cdr _e2846728801_))) + (_hd2846628804_ + (let () (declare (not safe)) (##car _e2846728801_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2846628804_)) + (let ((_e2847028809_ + (let () + (declare (not safe)) + (gx#stx-e _hd2846628804_)))) + (let ((_tl2846828814_ (let () (declare (not safe)) - (##cdr _e2630526646_))) - (_hd2630626649_ + (##cdr _e2847028809_))) + (_hd2846928812_ (let () (declare (not safe)) - (##car _e2630526646_)))) - (if (gx#identifier? _hd2630626649_) - (if (gx#stx-eq? '%#quote _hd2630626649_) - (if (gx#stx-pair? _tl2630726651_) - (let ((_e2630826654_ - (gx#stx-e _tl2630726651_))) - (let ((_tl2631026659_ + (##car _e2847028809_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2846928812_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2846928812_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2846828814_)) + (let ((_e2847328817_ + (let () + (declare (not safe)) + (gx#stx-e _tl2846828814_)))) + (let ((_tl2847128822_ (let () (declare (not safe)) - (##cdr _e2630826654_))) - (_hd2630926657_ + (##cdr _e2847328817_))) + (_hd2847228820_ (let () (declare (not safe)) - (##car _e2630826654_)))) - (if (gx#stx-null? _tl2631026659_) - (if (gx#stx-pair? _tl2630426643_) - (let ((_e2631126662_ - (gx#stx-e - _tl2630426643_))) - (let ((_tl2631326667_ + (##car _e2847328817_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2847128822_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2846528806_)) + (let ((_e2847628825_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2846528806_)))) + (let ((_tl2847428830_ (let () (declare (not safe)) - (##cdr _e2631126662_))) - (_hd2631226665_ + (##cdr _e2847628825_))) + (_hd2847528828_ (let () (declare (not safe)) - (##car _e2631126662_)))) - (if (gx#stx-pair? - _tl2631326667_) - (let ((_e2631426670_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2631326667_))) - (let ((_tl2631626675_ - (let () (declare (not safe)) (##cdr _e2631426670_))) - (_hd2631526673_ + (##car _e2847628825_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl2847428830_)) + (let ((_e2847928833_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl2847428830_)))) + (let ((_tl2847728838_ + (let () (declare (not safe)) (##cdr _e2847928833_))) + (_hd2847828836_ (let () (declare (not safe)) - (##car _e2631426670_)))) - (if (gx#stx-pair? _hd2631526673_) - (let ((_e2631726678_ (gx#stx-e _hd2631526673_))) - (let ((_tl2631926683_ + (##car _e2847928833_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2847828836_)) + (let ((_e2848228841_ + (let () + (declare (not safe)) + (gx#stx-e _hd2847828836_)))) + (let ((_tl2848028846_ (let () (declare (not safe)) - (##cdr _e2631726678_))) - (_hd2631826681_ + (##cdr _e2848228841_))) + (_hd2848128844_ (let () (declare (not safe)) - (##car _e2631726678_)))) - (if (gx#identifier? _hd2631826681_) - (if (gx#stx-eq? '%#quote _hd2631826681_) - (if (gx#stx-pair? _tl2631926683_) - (let ((_e2632026686_ - (gx#stx-e _tl2631926683_))) - (let ((_tl2632226691_ + (##car _e2848228841_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2848128844_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2848128844_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2848028846_)) + (let ((_e2848528849_ + (let () + (declare (not safe)) + (gx#stx-e _tl2848028846_)))) + (let ((_tl2848328854_ (let () (declare (not safe)) - (##cdr _e2632026686_))) - (_hd2632126689_ + (##cdr _e2848528849_))) + (_hd2848428852_ (let () (declare (not safe)) - (##car _e2632026686_)))) - (if (gx#stx-null? _tl2632226691_) - (if (gx#stx-pair? - _tl2631626675_) - (let ((_e2632326694_ - (gx#stx-e - _tl2631626675_))) - (let ((_tl2632526699_ - (let () + (##car _e2848528849_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2848328854_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2847728838_)) + (let ((_e2848828857_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2632326694_))) - (_hd2632426697_ - (let () (declare (not safe)) (##car _e2632326694_)))) - (if (gx#stx-pair? _hd2632426697_) - (let ((_e2632626702_ (gx#stx-e _hd2632426697_))) - (let ((_tl2632826707_ + (not safe)) + (gx#stx-e _tl2847728838_)))) + (let ((_tl2848628862_ + (let () (declare (not safe)) (##cdr _e2848828857_))) + (_hd2848728860_ + (let () (declare (not safe)) (##car _e2848828857_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2848728860_)) + (let ((_e2849128865_ + (let () + (declare (not safe)) + (gx#stx-e _hd2848728860_)))) + (let ((_tl2848928870_ (let () (declare (not safe)) - (##cdr _e2632626702_))) - (_hd2632726705_ + (##cdr _e2849128865_))) + (_hd2849028868_ (let () (declare (not safe)) - (##car _e2632626702_)))) - (if (gx#identifier? _hd2632726705_) - (if (gx#stx-eq? '%#quote _hd2632726705_) - (if (gx#stx-pair? _tl2632826707_) - (let ((_e2632926710_ - (gx#stx-e _tl2632826707_))) - (let ((_tl2633126715_ + (##car _e2849128865_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2849028868_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2849028868_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2848928870_)) + (let ((_e2849428873_ + (let () + (declare (not safe)) + (gx#stx-e _tl2848928870_)))) + (let ((_tl2849228878_ (let () (declare (not safe)) - (##cdr _e2632926710_))) - (_hd2633026713_ + (##cdr _e2849428873_))) + (_hd2849328876_ (let () (declare (not safe)) - (##car _e2632926710_)))) - (if (gx#stx-null? _tl2633126715_) - (if (gx#stx-null? _tl2632526699_) - (___kont3279432795_ - _hd2633026713_ - _hd2632126689_ - _hd2631226665_ - _hd2630926657_ - _hd2629126609_) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _tl2629526619_) - (let ((_e2635026428_ - (gx#stx-e - _tl2629526619_))) - (let ((_tl2635226433_ - (let () + (##car _e2849428873_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2849228878_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2848628862_)) + (___kont3495734958_ + _hd2849328876_ + _hd2848428852_ + _hd2847528828_ + _hd2847228820_ + _hd2845428772_) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2845628782_)) + (let ((_e2851528591_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2635026428_))) - (_hd2635126431_ - (let () (declare (not safe)) (##car _e2635026428_)))) - (if (gx#stx-pair? _hd2635126431_) - (let ((_e2635326436_ (gx#stx-e _hd2635126431_))) - (let ((_tl2635526441_ + (not safe)) + (gx#stx-e _tl2845628782_)))) + (let ((_tl2851328596_ + (let () (declare (not safe)) (##cdr _e2851528591_))) + (_hd2851428594_ + (let () (declare (not safe)) (##car _e2851528591_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2851428594_)) + (let ((_e2851828599_ + (let () + (declare (not safe)) + (gx#stx-e _hd2851428594_)))) + (let ((_tl2851628604_ (let () (declare (not safe)) - (##cdr _e2635326436_))) - (_hd2635426439_ + (##cdr _e2851828599_))) + (_hd2851728602_ (let () (declare (not safe)) - (##car _e2635326436_)))) - (if (gx#identifier? _hd2635426439_) - (if (gx#stx-eq? '%#quote _hd2635426439_) - (if (gx#stx-pair? _tl2635526441_) - (let ((_e2635626444_ - (gx#stx-e _tl2635526441_))) - (let ((_tl2635826449_ + (##car _e2851828599_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2851728602_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2851728602_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2851628604_)) + (let ((_e2852128607_ + (let () + (declare (not safe)) + (gx#stx-e _tl2851628604_)))) + (let ((_tl2851928612_ (let () (declare (not safe)) - (##cdr _e2635626444_))) - (_hd2635726447_ + (##cdr _e2852128607_))) + (_hd2852028610_ (let () (declare (not safe)) - (##car _e2635626444_)))) - (if (gx#stx-null? _tl2635826449_) - (if (gx#stx-pair? _tl2635226433_) - (let ((_e2635926452_ - (gx#stx-e - _tl2635226433_))) - (let ((_tl2636126457_ + (##car _e2852128607_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2851928612_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2851328596_)) + (let ((_e2852428615_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2851328596_)))) + (let ((_tl2852228620_ (let () (declare (not safe)) - (##cdr _e2635926452_))) - (_hd2636026455_ + (##cdr _e2852428615_))) + (_hd2852328618_ (let () (declare (not safe)) - (##car _e2635926452_)))) - (if (gx#stx-pair? - _tl2636126457_) - (let ((_e2636226460_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2636126457_))) - (let ((_tl2636426465_ - (let () (declare (not safe)) (##cdr _e2636226460_))) - (_hd2636326463_ + (##car _e2852428615_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl2852228620_)) + (let ((_e2852728623_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl2852228620_)))) + (let ((_tl2852528628_ + (let () (declare (not safe)) (##cdr _e2852728623_))) + (_hd2852628626_ (let () (declare (not safe)) - (##car _e2636226460_)))) - (if (gx#stx-pair? _hd2636326463_) - (let ((_e2636526468_ (gx#stx-e _hd2636326463_))) - (let ((_tl2636726473_ + (##car _e2852728623_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2852628626_)) + (let ((_e2853028631_ + (let () + (declare (not safe)) + (gx#stx-e _hd2852628626_)))) + (let ((_tl2852828636_ (let () (declare (not safe)) - (##cdr _e2636526468_))) - (_hd2636626471_ + (##cdr _e2853028631_))) + (_hd2852928634_ (let () (declare (not safe)) - (##car _e2636526468_)))) - (if (gx#identifier? _hd2636626471_) - (if (gx#stx-eq? '%#quote _hd2636626471_) - (if (gx#stx-pair? _tl2636726473_) - (let ((_e2636826476_ - (gx#stx-e _tl2636726473_))) - (let ((_tl2637026481_ + (##car _e2853028631_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2852928634_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2852928634_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852828636_)) + (let ((_e2853328639_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852828636_)))) + (let ((_tl2853128644_ (let () (declare (not safe)) - (##cdr _e2636826476_))) - (_hd2636926479_ + (##cdr _e2853328639_))) + (_hd2853228642_ (let () (declare (not safe)) - (##car _e2636826476_)))) - (if (gx#stx-null? _tl2637026481_) - (if (gx#stx-pair? - _tl2636426465_) - (let ((_e2637126484_ - (gx#stx-e - _tl2636426465_))) - (let ((_tl2637326489_ - (let () + (##car _e2853328639_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2853128644_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2852528628_)) + (let ((_e2853628647_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2637126484_))) - (_hd2637226487_ - (let () (declare (not safe)) (##car _e2637126484_)))) - (if (gx#stx-pair? _hd2637226487_) - (let ((_e2637426492_ (gx#stx-e _hd2637226487_))) - (let ((_tl2637626497_ + (not safe)) + (gx#stx-e _tl2852528628_)))) + (let ((_tl2853428652_ + (let () (declare (not safe)) (##cdr _e2853628647_))) + (_hd2853528650_ + (let () (declare (not safe)) (##car _e2853628647_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2853528650_)) + (let ((_e2853928655_ + (let () + (declare (not safe)) + (gx#stx-e _hd2853528650_)))) + (let ((_tl2853728660_ (let () (declare (not safe)) - (##cdr _e2637426492_))) - (_hd2637526495_ + (##cdr _e2853928655_))) + (_hd2853828658_ (let () (declare (not safe)) - (##car _e2637426492_)))) - (if (gx#identifier? _hd2637526495_) - (if (gx#stx-eq? '%#quote _hd2637526495_) - (if (gx#stx-pair? _tl2637626497_) - (let ((_e2637726500_ - (gx#stx-e _tl2637626497_))) - (let ((_tl2637926505_ + (##car _e2853928655_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2853828658_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2853828658_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2853728660_)) + (let ((_e2854228663_ + (let () + (declare (not safe)) + (gx#stx-e _tl2853728660_)))) + (let ((_tl2854028668_ (let () (declare (not safe)) - (##cdr _e2637726500_))) - (_hd2637826503_ + (##cdr _e2854228663_))) + (_hd2854128666_ (let () (declare (not safe)) - (##car _e2637726500_)))) - (if (gx#stx-null? _tl2637926505_) - (if (gx#stx-null? _tl2637326489_) - (___kont3279632797_ - _hd2637826503_ - _hd2636926479_ - _hd2636026455_ - _hd2635726447_ - _hd2629426617_ - _hd2629126609_) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl2629526619_) - (let ((_e2635026428_ - (gx#stx-e - _tl2629526619_))) - (let ((_tl2635226433_ + (##car _e2854228663_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2854028668_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2853428652_)) + (___kont3495934960_ + _hd2854128666_ + _hd2853228642_ + _hd2852328618_ + _hd2852028610_ + _hd2845728780_ + _hd2845428772_) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2845628782_)) + (let ((_e2851528591_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2845628782_)))) + (let ((_tl2851328596_ (let () (declare (not safe)) - (##cdr _e2635026428_))) - (_hd2635126431_ + (##cdr _e2851528591_))) + (_hd2851428594_ (let () (declare (not safe)) - (##car _e2635026428_)))) - (if (gx#stx-pair? - _hd2635126431_) - (let ((_e2635326436_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd2635126431_))) - (let ((_tl2635526441_ - (let () (declare (not safe)) (##cdr _e2635326436_))) - (_hd2635426439_ + (##car _e2851528591_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd2851428594_)) + (let ((_e2851828599_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd2851428594_)))) + (let ((_tl2851628604_ + (let () (declare (not safe)) (##cdr _e2851828599_))) + (_hd2851728602_ (let () (declare (not safe)) - (##car _e2635326436_)))) - (if (gx#identifier? _hd2635426439_) - (if (gx#stx-eq? '%#quote _hd2635426439_) - (if (gx#stx-pair? _tl2635526441_) - (let ((_e2635626444_ - (gx#stx-e _tl2635526441_))) - (let ((_tl2635826449_ + (##car _e2851828599_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2851728602_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2851728602_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2851628604_)) + (let ((_e2852128607_ + (let () + (declare (not safe)) + (gx#stx-e _tl2851628604_)))) + (let ((_tl2851928612_ (let () (declare (not safe)) - (##cdr _e2635626444_))) - (_hd2635726447_ + (##cdr _e2852128607_))) + (_hd2852028610_ (let () (declare (not safe)) - (##car _e2635626444_)))) - (if (gx#stx-null? _tl2635826449_) - (if (gx#stx-pair? _tl2635226433_) - (let ((_e2635926452_ - (gx#stx-e - _tl2635226433_))) - (let ((_tl2636126457_ + (##car _e2852128607_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2851928612_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2851328596_)) + (let ((_e2852428615_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2851328596_)))) + (let ((_tl2852228620_ (let () (declare (not safe)) - (##cdr _e2635926452_))) - (_hd2636026455_ + (##cdr _e2852428615_))) + (_hd2852328618_ (let () (declare (not safe)) - (##car _e2635926452_)))) - (if (gx#stx-pair? - _tl2636126457_) - (let ((_e2636226460_ - (gx#stx-e - _tl2636126457_))) - (let ((_tl2636426465_ - (let () + (##car _e2852428615_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2852228620_)) + (let ((_e2852728623_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2636226460_))) - (_hd2636326463_ - (let () (declare (not safe)) (##car _e2636226460_)))) - (if (gx#stx-pair? _hd2636326463_) - (let ((_e2636526468_ (gx#stx-e _hd2636326463_))) - (let ((_tl2636726473_ + (not safe)) + (gx#stx-e _tl2852228620_)))) + (let ((_tl2852528628_ + (let () (declare (not safe)) (##cdr _e2852728623_))) + (_hd2852628626_ + (let () (declare (not safe)) (##car _e2852728623_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2852628626_)) + (let ((_e2853028631_ + (let () + (declare (not safe)) + (gx#stx-e _hd2852628626_)))) + (let ((_tl2852828636_ (let () (declare (not safe)) - (##cdr _e2636526468_))) - (_hd2636626471_ + (##cdr _e2853028631_))) + (_hd2852928634_ (let () (declare (not safe)) - (##car _e2636526468_)))) - (if (gx#identifier? _hd2636626471_) - (if (gx#stx-eq? '%#quote _hd2636626471_) - (if (gx#stx-pair? _tl2636726473_) - (let ((_e2636826476_ - (gx#stx-e _tl2636726473_))) - (let ((_tl2637026481_ + (##car _e2853028631_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2852928634_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2852928634_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852828636_)) + (let ((_e2853328639_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852828636_)))) + (let ((_tl2853128644_ (let () (declare (not safe)) - (##cdr _e2636826476_))) - (_hd2636926479_ + (##cdr _e2853328639_))) + (_hd2853228642_ (let () (declare (not safe)) - (##car _e2636826476_)))) - (if (gx#stx-null? _tl2637026481_) - (if (gx#stx-pair? _tl2636426465_) - (let ((_e2637126484_ - (gx#stx-e - _tl2636426465_))) - (let ((_tl2637326489_ + (##car _e2853328639_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2853128644_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2852528628_)) + (let ((_e2853628647_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2852528628_)))) + (let ((_tl2853428652_ (let () (declare (not safe)) - (##cdr _e2637126484_))) - (_hd2637226487_ + (##cdr _e2853628647_))) + (_hd2853528650_ (let () (declare (not safe)) - (##car _e2637126484_)))) - (if (gx#stx-pair? - _hd2637226487_) - (let ((_e2637426492_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd2637226487_))) - (let ((_tl2637626497_ - (let () (declare (not safe)) (##cdr _e2637426492_))) - (_hd2637526495_ - (let () - (declare (not safe)) - (##car _e2637426492_)))) - (if (gx#identifier? _hd2637526495_) - (if (gx#stx-eq? '%#quote _hd2637526495_) - (if (gx#stx-pair? _tl2637626497_) - (let ((_e2637726500_ - (gx#stx-e _tl2637626497_))) - (let ((_tl2637926505_ - (let () - (declare (not safe)) - (##cdr _e2637726500_))) - (_hd2637826503_ + (##car _e2853628647_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd2853528650_)) + (let ((_e2853928655_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd2853528650_)))) + (let ((_tl2853728660_ + (let () (declare (not safe)) (##cdr _e2853928655_))) + (_hd2853828658_ + (let () + (declare (not safe)) + (##car _e2853928655_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2853828658_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2853828658_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2853728660_)) + (let ((_e2854228663_ + (let () + (declare (not safe)) + (gx#stx-e _tl2853728660_)))) + (let ((_tl2854028668_ + (let () + (declare (not safe)) + (##cdr _e2854228663_))) + (_hd2854128666_ (let () (declare (not safe)) - (##car _e2637726500_)))) - (if (gx#stx-null? _tl2637926505_) - (if (gx#stx-null? _tl2637326489_) - (___kont3279632797_ - _hd2637826503_ - _hd2636926479_ - _hd2636026455_ - _hd2635726447_ - _hd2629426617_ - _hd2629126609_) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_))))) - (if (gx#stx-pair? _tl2629526619_) - (let ((_e2635026428_ - (gx#stx-e _tl2629526619_))) - (let ((_tl2635226433_ + (##car _e2854228663_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2854028668_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2853428652_)) + (___kont3495934960_ + _hd2854128666_ + _hd2853228642_ + _hd2852328618_ + _hd2852028610_ + _hd2845728780_ + _hd2845428772_) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2845628782_)) + (let ((_e2851528591_ + (let () + (declare (not safe)) + (gx#stx-e _tl2845628782_)))) + (let ((_tl2851328596_ (let () (declare (not safe)) - (##cdr _e2635026428_))) - (_hd2635126431_ + (##cdr _e2851528591_))) + (_hd2851428594_ (let () (declare (not safe)) - (##car _e2635026428_)))) - (if (gx#stx-pair? _hd2635126431_) - (let ((_e2635326436_ - (gx#stx-e - _hd2635126431_))) - (let ((_tl2635526441_ + (##car _e2851528591_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2851428594_)) + (let ((_e2851828599_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2851428594_)))) + (let ((_tl2851628604_ (let () (declare (not safe)) - (##cdr _e2635326436_))) - (_hd2635426439_ + (##cdr _e2851828599_))) + (_hd2851728602_ (let () (declare (not safe)) - (##car _e2635326436_)))) - (if (gx#identifier? - _hd2635426439_) - (if (gx#stx-eq? - '%#quote - _hd2635426439_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2635526441_) - (let ((_e2635626444_ (gx#stx-e _tl2635526441_))) - (let ((_tl2635826449_ + (##car _e2851828599_)))) + (if (let () + (declare + (not safe)) + (gx#identifier? + _hd2851728602_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-eq? '%#quote _hd2851728602_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2851628604_)) + (let ((_e2852128607_ + (let () + (declare (not safe)) + (gx#stx-e _tl2851628604_)))) + (let ((_tl2851928612_ (let () (declare (not safe)) - (##cdr _e2635626444_))) - (_hd2635726447_ + (##cdr _e2852128607_))) + (_hd2852028610_ (let () (declare (not safe)) - (##car _e2635626444_)))) - (if (gx#stx-null? _tl2635826449_) - (if (gx#stx-pair? _tl2635226433_) - (let ((_e2635926452_ - (gx#stx-e _tl2635226433_))) - (let ((_tl2636126457_ + (##car _e2852128607_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2851928612_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2851328596_)) + (let ((_e2852428615_ + (let () + (declare (not safe)) + (gx#stx-e _tl2851328596_)))) + (let ((_tl2852228620_ (let () (declare (not safe)) - (##cdr _e2635926452_))) - (_hd2636026455_ + (##cdr _e2852428615_))) + (_hd2852328618_ (let () (declare (not safe)) - (##car _e2635926452_)))) - (if (gx#stx-pair? _tl2636126457_) - (let ((_e2636226460_ - (gx#stx-e - _tl2636126457_))) - (let ((_tl2636426465_ + (##car _e2852428615_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852228620_)) + (let ((_e2852728623_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2852228620_)))) + (let ((_tl2852528628_ (let () (declare (not safe)) - (##cdr _e2636226460_))) - (_hd2636326463_ + (##cdr _e2852728623_))) + (_hd2852628626_ (let () (declare (not safe)) - (##car _e2636226460_)))) - (if (gx#stx-pair? - _hd2636326463_) - (let ((_e2636526468_ - (gx#stx-e - _hd2636326463_))) - (let ((_tl2636726473_ - (let () + (##car _e2852728623_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2852628626_)) + (let ((_e2853028631_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2636526468_))) - (_hd2636626471_ - (let () (declare (not safe)) (##car _e2636526468_)))) - (if (gx#identifier? _hd2636626471_) - (if (gx#stx-eq? '%#quote _hd2636626471_) - (if (gx#stx-pair? _tl2636726473_) - (let ((_e2636826476_ (gx#stx-e _tl2636726473_))) - (let ((_tl2637026481_ + (not safe)) + (gx#stx-e _hd2852628626_)))) + (let ((_tl2852828636_ + (let () (declare (not safe)) (##cdr _e2853028631_))) + (_hd2852928634_ + (let () (declare (not safe)) (##car _e2853028631_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2852928634_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2852928634_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852828636_)) + (let ((_e2853328639_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852828636_)))) + (let ((_tl2853128644_ (let () (declare (not safe)) - (##cdr _e2636826476_))) - (_hd2636926479_ + (##cdr _e2853328639_))) + (_hd2853228642_ (let () (declare (not safe)) - (##car _e2636826476_)))) - (if (gx#stx-null? _tl2637026481_) - (if (gx#stx-pair? _tl2636426465_) - (let ((_e2637126484_ - (gx#stx-e _tl2636426465_))) - (let ((_tl2637326489_ + (##car _e2853328639_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2853128644_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852528628_)) + (let ((_e2853628647_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852528628_)))) + (let ((_tl2853428652_ (let () (declare (not safe)) - (##cdr _e2637126484_))) - (_hd2637226487_ + (##cdr _e2853628647_))) + (_hd2853528650_ (let () (declare (not safe)) - (##car _e2637126484_)))) - (if (gx#stx-pair? _hd2637226487_) - (let ((_e2637426492_ - (gx#stx-e - _hd2637226487_))) - (let ((_tl2637626497_ + (##car _e2853628647_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2853528650_)) + (let ((_e2853928655_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2853528650_)))) + (let ((_tl2853728660_ (let () (declare (not safe)) - (##cdr _e2637426492_))) - (_hd2637526495_ + (##cdr _e2853928655_))) + (_hd2853828658_ (let () (declare (not safe)) - (##car _e2637426492_)))) - (if (gx#identifier? - _hd2637526495_) - (if (gx#stx-eq? - '%#quote - _hd2637526495_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2637626497_) - (let ((_e2637726500_ (gx#stx-e _tl2637626497_))) - (let ((_tl2637926505_ + (##car _e2853928655_)))) + (if (let () + (declare + (not safe)) + (gx#identifier? + _hd2853828658_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-eq? '%#quote _hd2853828658_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2853728660_)) + (let ((_e2854228663_ + (let () + (declare (not safe)) + (gx#stx-e _tl2853728660_)))) + (let ((_tl2854028668_ (let () (declare (not safe)) - (##cdr _e2637726500_))) - (_hd2637826503_ + (##cdr _e2854228663_))) + (_hd2854128666_ (let () (declare (not safe)) - (##car _e2637726500_)))) - (if (gx#stx-null? _tl2637926505_) - (if (gx#stx-null? _tl2637326489_) - (___kont3279632797_ - _hd2637826503_ - _hd2636926479_ - _hd2636026455_ - _hd2635726447_ - _hd2629426617_ - _hd2629126609_) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_))) - (if (gx#stx-pair? _tl2629526619_) - (let ((_e2635026428_ - (gx#stx-e _tl2629526619_))) - (let ((_tl2635226433_ + (##car _e2854228663_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2854028668_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2853428652_)) + (___kont3495934960_ + _hd2854128666_ + _hd2853228642_ + _hd2852328618_ + _hd2852028610_ + _hd2845728780_ + _hd2845428772_) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2845628782_)) + (let ((_e2851528591_ + (let () + (declare (not safe)) + (gx#stx-e _tl2845628782_)))) + (let ((_tl2851328596_ (let () (declare (not safe)) - (##cdr _e2635026428_))) - (_hd2635126431_ + (##cdr _e2851528591_))) + (_hd2851428594_ (let () (declare (not safe)) - (##car _e2635026428_)))) - (if (gx#stx-pair? _hd2635126431_) - (let ((_e2635326436_ - (gx#stx-e - _hd2635126431_))) - (let ((_tl2635526441_ + (##car _e2851528591_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2851428594_)) + (let ((_e2851828599_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2851428594_)))) + (let ((_tl2851628604_ (let () (declare (not safe)) - (##cdr _e2635326436_))) - (_hd2635426439_ + (##cdr _e2851828599_))) + (_hd2851728602_ (let () (declare (not safe)) - (##car _e2635326436_)))) - (if (gx#identifier? - _hd2635426439_) - (if (gx#stx-eq? - '%#quote - _hd2635426439_) - (if (gx#stx-pair? - _tl2635526441_) - (let ((_e2635626444_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2635526441_))) - (let ((_tl2635826449_ + (##car _e2851828599_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd2851728602_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#quote + _hd2851728602_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl2851628604_)) + (let ((_e2852128607_ + (let () + (declare (not safe)) + (gx#stx-e _tl2851628604_)))) + (let ((_tl2851928612_ (let () (declare (not safe)) - (##cdr _e2635626444_))) - (_hd2635726447_ + (##cdr _e2852128607_))) + (_hd2852028610_ (let () (declare (not safe)) - (##car _e2635626444_)))) - (if (gx#stx-null? _tl2635826449_) - (if (gx#stx-pair? _tl2635226433_) - (let ((_e2635926452_ - (gx#stx-e _tl2635226433_))) - (let ((_tl2636126457_ + (##car _e2852128607_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2851928612_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2851328596_)) + (let ((_e2852428615_ + (let () + (declare (not safe)) + (gx#stx-e _tl2851328596_)))) + (let ((_tl2852228620_ (let () (declare (not safe)) - (##cdr _e2635926452_))) - (_hd2636026455_ + (##cdr _e2852428615_))) + (_hd2852328618_ (let () (declare (not safe)) - (##car _e2635926452_)))) - (if (gx#stx-pair? _tl2636126457_) - (let ((_e2636226460_ - (gx#stx-e _tl2636126457_))) - (let ((_tl2636426465_ + (##car _e2852428615_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852228620_)) + (let ((_e2852728623_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852228620_)))) + (let ((_tl2852528628_ (let () (declare (not safe)) - (##cdr _e2636226460_))) - (_hd2636326463_ + (##cdr _e2852728623_))) + (_hd2852628626_ (let () (declare (not safe)) - (##car _e2636226460_)))) - (if (gx#stx-pair? _hd2636326463_) - (let ((_e2636526468_ - (gx#stx-e - _hd2636326463_))) - (let ((_tl2636726473_ + (##car _e2852728623_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2852628626_)) + (let ((_e2853028631_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2852628626_)))) + (let ((_tl2852828636_ (let () (declare (not safe)) - (##cdr _e2636526468_))) - (_hd2636626471_ + (##cdr _e2853028631_))) + (_hd2852928634_ (let () (declare (not safe)) - (##car _e2636526468_)))) - (if (gx#identifier? - _hd2636626471_) - (if (gx#stx-eq? - '%#quote - _hd2636626471_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2636726473_) - (let ((_e2636826476_ (gx#stx-e _tl2636726473_))) - (let ((_tl2637026481_ + (##car _e2853028631_)))) + (if (let () + (declare + (not safe)) + (gx#identifier? + _hd2852928634_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-eq? '%#quote _hd2852928634_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852828636_)) + (let ((_e2853328639_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852828636_)))) + (let ((_tl2853128644_ (let () (declare (not safe)) - (##cdr _e2636826476_))) - (_hd2636926479_ + (##cdr _e2853328639_))) + (_hd2853228642_ (let () (declare (not safe)) - (##car _e2636826476_)))) - (if (gx#stx-null? _tl2637026481_) - (if (gx#stx-pair? _tl2636426465_) - (let ((_e2637126484_ - (gx#stx-e _tl2636426465_))) - (let ((_tl2637326489_ + (##car _e2853328639_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2853128644_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852528628_)) + (let ((_e2853628647_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852528628_)))) + (let ((_tl2853428652_ (let () (declare (not safe)) - (##cdr _e2637126484_))) - (_hd2637226487_ + (##cdr _e2853628647_))) + (_hd2853528650_ (let () (declare (not safe)) - (##car _e2637126484_)))) - (if (gx#stx-pair? _hd2637226487_) - (let ((_e2637426492_ - (gx#stx-e - _hd2637226487_))) - (let ((_tl2637626497_ + (##car _e2853628647_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2853528650_)) + (let ((_e2853928655_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2853528650_)))) + (let ((_tl2853728660_ (let () (declare (not safe)) - (##cdr _e2637426492_))) - (_hd2637526495_ + (##cdr _e2853928655_))) + (_hd2853828658_ (let () (declare (not safe)) - (##car _e2637426492_)))) - (if (gx#identifier? - _hd2637526495_) - (if (gx#stx-eq? - '%#quote - _hd2637526495_) - (if (gx#stx-pair? - _tl2637626497_) - (let ((_e2637726500_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2637626497_))) - (let ((_tl2637926505_ + (##car _e2853928655_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd2853828658_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#quote + _hd2853828658_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl2853728660_)) + (let ((_e2854228663_ + (let () + (declare (not safe)) + (gx#stx-e _tl2853728660_)))) + (let ((_tl2854028668_ (let () (declare (not safe)) - (##cdr _e2637726500_))) - (_hd2637826503_ + (##cdr _e2854228663_))) + (_hd2854128666_ (let () (declare (not safe)) - (##car _e2637726500_)))) - (if (gx#stx-null? _tl2637926505_) - (if (gx#stx-null? _tl2637326489_) - (___kont3279632797_ - _hd2637826503_ - _hd2636926479_ - _hd2636026455_ - _hd2635726447_ - _hd2629426617_ - _hd2629126609_) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_))) - (if (gx#stx-pair? _tl2629526619_) - (let ((_e2635026428_ - (gx#stx-e _tl2629526619_))) - (let ((_tl2635226433_ + (##car _e2854228663_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2854028668_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2853428652_)) + (___kont3495934960_ + _hd2854128666_ + _hd2853228642_ + _hd2852328618_ + _hd2852028610_ + _hd2845728780_ + _hd2845428772_) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2845628782_)) + (let ((_e2851528591_ + (let () + (declare (not safe)) + (gx#stx-e _tl2845628782_)))) + (let ((_tl2851328596_ (let () (declare (not safe)) - (##cdr _e2635026428_))) - (_hd2635126431_ + (##cdr _e2851528591_))) + (_hd2851428594_ (let () (declare (not safe)) - (##car _e2635026428_)))) - (if (gx#stx-pair? _hd2635126431_) - (let ((_e2635326436_ - (gx#stx-e _hd2635126431_))) - (let ((_tl2635526441_ + (##car _e2851528591_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2851428594_)) + (let ((_e2851828599_ + (let () + (declare (not safe)) + (gx#stx-e _hd2851428594_)))) + (let ((_tl2851628604_ (let () (declare (not safe)) - (##cdr _e2635326436_))) - (_hd2635426439_ + (##cdr _e2851828599_))) + (_hd2851728602_ (let () (declare (not safe)) - (##car _e2635326436_)))) - (if (gx#identifier? - _hd2635426439_) - (if (gx#stx-eq? - '%#quote - _hd2635426439_) - (if (gx#stx-pair? - _tl2635526441_) - (let ((_e2635626444_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2635526441_))) - (let ((_tl2635826449_ - (let () (declare (not safe)) (##cdr _e2635626444_))) - (_hd2635726447_ + (##car _e2851828599_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd2851728602_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd2851728602_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl2851628604_)) + (let ((_e2852128607_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl2851628604_)))) + (let ((_tl2851928612_ + (let () (declare (not safe)) (##cdr _e2852128607_))) + (_hd2852028610_ (let () (declare (not safe)) - (##car _e2635626444_)))) - (if (gx#stx-null? _tl2635826449_) - (if (gx#stx-pair? _tl2635226433_) - (let ((_e2635926452_ (gx#stx-e _tl2635226433_))) - (let ((_tl2636126457_ + (##car _e2852128607_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2851928612_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2851328596_)) + (let ((_e2852428615_ + (let () + (declare (not safe)) + (gx#stx-e _tl2851328596_)))) + (let ((_tl2852228620_ (let () (declare (not safe)) - (##cdr _e2635926452_))) - (_hd2636026455_ + (##cdr _e2852428615_))) + (_hd2852328618_ (let () (declare (not safe)) - (##car _e2635926452_)))) - (if (gx#stx-pair? _tl2636126457_) - (let ((_e2636226460_ - (gx#stx-e _tl2636126457_))) - (let ((_tl2636426465_ + (##car _e2852428615_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852228620_)) + (let ((_e2852728623_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852228620_)))) + (let ((_tl2852528628_ (let () (declare (not safe)) - (##cdr _e2636226460_))) - (_hd2636326463_ + (##cdr _e2852728623_))) + (_hd2852628626_ (let () (declare (not safe)) - (##car _e2636226460_)))) - (if (gx#stx-pair? _hd2636326463_) - (let ((_e2636526468_ - (gx#stx-e - _hd2636326463_))) - (let ((_tl2636726473_ + (##car _e2852728623_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2852628626_)) + (let ((_e2853028631_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2852628626_)))) + (let ((_tl2852828636_ (let () (declare (not safe)) - (##cdr _e2636526468_))) - (_hd2636626471_ + (##cdr _e2853028631_))) + (_hd2852928634_ (let () (declare (not safe)) - (##car _e2636526468_)))) - (if (gx#identifier? - _hd2636626471_) - (if (gx#stx-eq? - '%#quote - _hd2636626471_) - (if (gx#stx-pair? - _tl2636726473_) - (let ((_e2636826476_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2636726473_))) - (let ((_tl2637026481_ + (##car _e2853028631_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd2852928634_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#quote + _hd2852928634_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl2852828636_)) + (let ((_e2853328639_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852828636_)))) + (let ((_tl2853128644_ (let () (declare (not safe)) - (##cdr _e2636826476_))) - (_hd2636926479_ + (##cdr _e2853328639_))) + (_hd2853228642_ (let () (declare (not safe)) - (##car _e2636826476_)))) - (if (gx#stx-null? _tl2637026481_) - (if (gx#stx-pair? _tl2636426465_) - (let ((_e2637126484_ - (gx#stx-e _tl2636426465_))) - (let ((_tl2637326489_ + (##car _e2853328639_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2853128644_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852528628_)) + (let ((_e2853628647_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852528628_)))) + (let ((_tl2853428652_ (let () (declare (not safe)) - (##cdr _e2637126484_))) - (_hd2637226487_ + (##cdr _e2853628647_))) + (_hd2853528650_ (let () (declare (not safe)) - (##car _e2637126484_)))) - (if (gx#stx-pair? _hd2637226487_) - (let ((_e2637426492_ - (gx#stx-e _hd2637226487_))) - (let ((_tl2637626497_ + (##car _e2853628647_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2853528650_)) + (let ((_e2853928655_ + (let () + (declare (not safe)) + (gx#stx-e _hd2853528650_)))) + (let ((_tl2853728660_ (let () (declare (not safe)) - (##cdr _e2637426492_))) - (_hd2637526495_ + (##cdr _e2853928655_))) + (_hd2853828658_ (let () (declare (not safe)) - (##car _e2637426492_)))) - (if (gx#identifier? - _hd2637526495_) - (if (gx#stx-eq? - '%#quote - _hd2637526495_) - (if (gx#stx-pair? - _tl2637626497_) - (let ((_e2637726500_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2637626497_))) - (let ((_tl2637926505_ - (let () (declare (not safe)) (##cdr _e2637726500_))) - (_hd2637826503_ + (##car _e2853928655_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd2853828658_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd2853828658_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl2853728660_)) + (let ((_e2854228663_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl2853728660_)))) + (let ((_tl2854028668_ + (let () (declare (not safe)) (##cdr _e2854228663_))) + (_hd2854128666_ (let () (declare (not safe)) - (##car _e2637726500_)))) - (if (gx#stx-null? _tl2637926505_) - (if (gx#stx-null? _tl2637326489_) - (___kont3279632797_ - _hd2637826503_ - _hd2636926479_ - _hd2636026455_ - _hd2635726447_ - _hd2629426617_ - _hd2629126609_) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_))))) - (if (gx#stx-pair? _tl2629526619_) - (let ((_e2635026428_ (gx#stx-e _tl2629526619_))) - (let ((_tl2635226433_ + (##car _e2854228663_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2854028668_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2853428652_)) + (___kont3495934960_ + _hd2854128666_ + _hd2853228642_ + _hd2852328618_ + _hd2852028610_ + _hd2845728780_ + _hd2845428772_) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2845628782_)) + (let ((_e2851528591_ + (let () + (declare (not safe)) + (gx#stx-e _tl2845628782_)))) + (let ((_tl2851328596_ (let () (declare (not safe)) - (##cdr _e2635026428_))) - (_hd2635126431_ + (##cdr _e2851528591_))) + (_hd2851428594_ (let () (declare (not safe)) - (##car _e2635026428_)))) - (if (gx#stx-pair? _hd2635126431_) - (let ((_e2635326436_ - (gx#stx-e _hd2635126431_))) - (let ((_tl2635526441_ + (##car _e2851528591_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2851428594_)) + (let ((_e2851828599_ + (let () + (declare (not safe)) + (gx#stx-e _hd2851428594_)))) + (let ((_tl2851628604_ (let () (declare (not safe)) - (##cdr _e2635326436_))) - (_hd2635426439_ + (##cdr _e2851828599_))) + (_hd2851728602_ (let () (declare (not safe)) - (##car _e2635326436_)))) - (if (gx#identifier? _hd2635426439_) - (if (gx#stx-eq? - '%#quote - _hd2635426439_) - (if (gx#stx-pair? _tl2635526441_) - (let ((_e2635626444_ - (gx#stx-e - _tl2635526441_))) - (let ((_tl2635826449_ + (##car _e2851828599_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2851728602_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd2851728602_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2851628604_)) + (let ((_e2852128607_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2851628604_)))) + (let ((_tl2851928612_ (let () (declare (not safe)) - (##cdr _e2635626444_))) - (_hd2635726447_ + (##cdr _e2852128607_))) + (_hd2852028610_ (let () (declare (not safe)) - (##car _e2635626444_)))) - (if (gx#stx-null? - _tl2635826449_) - (if (gx#stx-pair? - _tl2635226433_) - (let ((_e2635926452_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2635226433_))) - (let ((_tl2636126457_ + (##car _e2852128607_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2851928612_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl2851328596_)) + (let ((_e2852428615_ + (let () + (declare (not safe)) + (gx#stx-e _tl2851328596_)))) + (let ((_tl2852228620_ (let () (declare (not safe)) - (##cdr _e2635926452_))) - (_hd2636026455_ + (##cdr _e2852428615_))) + (_hd2852328618_ (let () (declare (not safe)) - (##car _e2635926452_)))) - (if (gx#stx-pair? _tl2636126457_) - (let ((_e2636226460_ (gx#stx-e _tl2636126457_))) - (let ((_tl2636426465_ + (##car _e2852428615_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852228620_)) + (let ((_e2852728623_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852228620_)))) + (let ((_tl2852528628_ (let () (declare (not safe)) - (##cdr _e2636226460_))) - (_hd2636326463_ + (##cdr _e2852728623_))) + (_hd2852628626_ (let () (declare (not safe)) - (##car _e2636226460_)))) - (if (gx#stx-pair? _hd2636326463_) - (let ((_e2636526468_ - (gx#stx-e _hd2636326463_))) - (let ((_tl2636726473_ + (##car _e2852728623_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2852628626_)) + (let ((_e2853028631_ + (let () + (declare (not safe)) + (gx#stx-e _hd2852628626_)))) + (let ((_tl2852828636_ (let () (declare (not safe)) - (##cdr _e2636526468_))) - (_hd2636626471_ + (##cdr _e2853028631_))) + (_hd2852928634_ (let () (declare (not safe)) - (##car _e2636526468_)))) - (if (gx#identifier? _hd2636626471_) - (if (gx#stx-eq? - '%#quote - _hd2636626471_) - (if (gx#stx-pair? - _tl2636726473_) - (let ((_e2636826476_ - (gx#stx-e - _tl2636726473_))) - (let ((_tl2637026481_ - (let () + (##car _e2853028631_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd2852928634_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd2852928634_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2852828636_)) + (let ((_e2853328639_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2636826476_))) - (_hd2636926479_ - (let () (declare (not safe)) (##car _e2636826476_)))) - (if (gx#stx-null? _tl2637026481_) - (if (gx#stx-pair? _tl2636426465_) - (let ((_e2637126484_ (gx#stx-e _tl2636426465_))) - (let ((_tl2637326489_ + (not safe)) + (gx#stx-e _tl2852828636_)))) + (let ((_tl2853128644_ + (let () (declare (not safe)) (##cdr _e2853328639_))) + (_hd2853228642_ + (let () (declare (not safe)) (##car _e2853328639_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2853128644_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2852528628_)) + (let ((_e2853628647_ + (let () + (declare (not safe)) + (gx#stx-e _tl2852528628_)))) + (let ((_tl2853428652_ (let () (declare (not safe)) - (##cdr _e2637126484_))) - (_hd2637226487_ + (##cdr _e2853628647_))) + (_hd2853528650_ (let () (declare (not safe)) - (##car _e2637126484_)))) - (if (gx#stx-pair? _hd2637226487_) - (let ((_e2637426492_ - (gx#stx-e _hd2637226487_))) - (let ((_tl2637626497_ + (##car _e2853628647_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2853528650_)) + (let ((_e2853928655_ + (let () + (declare (not safe)) + (gx#stx-e _hd2853528650_)))) + (let ((_tl2853728660_ (let () (declare (not safe)) - (##cdr _e2637426492_))) - (_hd2637526495_ + (##cdr _e2853928655_))) + (_hd2853828658_ (let () (declare (not safe)) - (##car _e2637426492_)))) - (if (gx#identifier? _hd2637526495_) - (if (gx#stx-eq? - '%#quote - _hd2637526495_) - (if (gx#stx-pair? _tl2637626497_) - (let ((_e2637726500_ - (gx#stx-e - _tl2637626497_))) - (let ((_tl2637926505_ - (let () - (declare + (##car _e2853928655_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2853828658_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#quote + _hd2853828658_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2853728660_)) + (let ((_e2854228663_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2853728660_)))) + (let ((_tl2854028668_ + (let () + (declare (not safe)) - (##cdr _e2637726500_))) - (_hd2637826503_ + (##cdr _e2854228663_))) + (_hd2854128666_ (let () (declare (not safe)) - (##car _e2637726500_)))) - (if (gx#stx-null? - _tl2637926505_) - (if (gx#stx-null? - _tl2637326489_) - (___kont3279632797_ - _hd2637826503_ - _hd2636926479_ - _hd2636026455_ - _hd2635726447_ - _hd2629426617_ - _hd2629126609_) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_))))) - (___kont3279832799_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3279832799_)))) - (___kont3279832799_)) - (___kont3279832799_)) - (___kont3279832799_)))) - (___kont3279832799_)))) - (___kont3279832799_))))))) + (##car _e2854228663_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2854028668_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl2853428652_)) + (___kont3495934960_ + _hd2854128666_ + _hd2853228642_ + _hd2852328618_ + _hd2852028610_ + _hd2845728780_ + _hd2845428772_) + (___kont3496134962_)) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_))))) + (___kont3496134962_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3496134962_)))) + (___kont3496134962_)) + (___kont3496134962_)) + (___kont3496134962_)))) + (___kont3496134962_)))) + (___kont3496134962_))))))) (define gxc#basic-expression-type-make-class-predicate - (lambda (_stx26191_ _args26192_) - (let* ((___stx3304233043_ _args26192_) - (_g2619526211_ + (lambda (_stx28354_ _args28355_) + (let* ((___stx3520535206_ _args28355_) + (_g2835828374_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3304233043_)))) - (let ((___kont3304433045_ - (lambda (_L26247_) - (let ((__tmp34521 (gxc#identifier-symbol _L26247_))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3520535206_))))) + (let ((___kont3520735208_ + (lambda (_L28410_) + (let ((__tmp36803 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L28410_)))) (declare (not safe)) - (##structure gxc#!class-pred::t __tmp34521)))) - (___kont3304633047_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3304233043_) - (let ((_e2619826223_ (gx#stx-e ___stx3304233043_))) - (let ((_tl2620026228_ - (let () (declare (not safe)) (##cdr _e2619826223_))) - (_hd2619926226_ - (let () (declare (not safe)) (##car _e2619826223_)))) - (if (gx#stx-pair? _hd2619926226_) - (let ((_e2620126231_ (gx#stx-e _hd2619926226_))) - (let ((_tl2620326236_ + (##structure gxc#!class-pred::t __tmp36803)))) + (___kont3520935210_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3520535206_)) + (let ((_e2836328386_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3520535206_)))) + (let ((_tl2836128391_ + (let () (declare (not safe)) (##cdr _e2836328386_))) + (_hd2836228389_ + (let () (declare (not safe)) (##car _e2836328386_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2836228389_)) + (let ((_e2836628394_ + (let () + (declare (not safe)) + (gx#stx-e _hd2836228389_)))) + (let ((_tl2836428399_ (let () (declare (not safe)) - (##cdr _e2620126231_))) - (_hd2620226234_ + (##cdr _e2836628394_))) + (_hd2836528397_ (let () (declare (not safe)) - (##car _e2620126231_)))) - (if (gx#identifier? _hd2620226234_) - (if (gx#stx-eq? '%#ref _hd2620226234_) - (if (gx#stx-pair? _tl2620326236_) - (let ((_e2620426239_ - (gx#stx-e _tl2620326236_))) - (let ((_tl2620626244_ + (##car _e2836628394_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2836528397_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2836528397_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2836428399_)) + (let ((_e2836928402_ + (let () + (declare (not safe)) + (gx#stx-e _tl2836428399_)))) + (let ((_tl2836728407_ (let () (declare (not safe)) - (##cdr _e2620426239_))) - (_hd2620526242_ + (##cdr _e2836928402_))) + (_hd2836828405_ (let () (declare (not safe)) - (##car _e2620426239_)))) - (if (gx#stx-null? _tl2620626244_) - (if (gx#stx-null? - _tl2620026228_) - (___kont3304433045_ - _hd2620526242_) - (___kont3304633047_)) - (___kont3304633047_)))) - (___kont3304633047_)) - (___kont3304633047_)) - (___kont3304633047_)))) - (___kont3304633047_)))) - (___kont3304633047_)))))) + (##car _e2836928402_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2836728407_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2836128391_)) + (___kont3520735208_ + _hd2836828405_) + (___kont3520935210_)) + (___kont3520935210_)))) + (___kont3520935210_)) + (___kont3520935210_)) + (___kont3520935210_)))) + (___kont3520935210_)))) + (___kont3520935210_)))))) (define gxc#basic-expression-type-make-class-slot-accessor__% - (lambda (_stx26062_ _args26063_ _unchecked?26064_) - (let* ((___stx3307633077_ _args26063_) - (_g2606726093_ + (lambda (_stx28225_ _args28226_ _unchecked?28227_) + (let* ((___stx3523935240_ _args28226_) + (_g2823028256_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3307633077_)))) - (let ((___kont3307833079_ - (lambda (_L26153_ _L26154_) - (let ((__tmp34523 (gxc#identifier-symbol _L26154_)) - (__tmp34522 (gx#stx-e _L26153_))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3523935240_))))) + (let ((___kont3524135242_ + (lambda (_L28316_ _L28317_) + (let ((__tmp36805 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L28317_))) + (__tmp36804 + (let () (declare (not safe)) (gx#stx-e _L28316_)))) (declare (not safe)) (##structure gxc#!class-getf::t - __tmp34523 - __tmp34522 - _unchecked?26064_)))) - (___kont3308033081_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3307633077_) - (let ((_e2607126105_ (gx#stx-e ___stx3307633077_))) - (let ((_tl2607326110_ - (let () (declare (not safe)) (##cdr _e2607126105_))) - (_hd2607226108_ - (let () (declare (not safe)) (##car _e2607126105_)))) - (if (gx#stx-pair? _hd2607226108_) - (let ((_e2607426113_ (gx#stx-e _hd2607226108_))) - (let ((_tl2607626118_ + __tmp36805 + __tmp36804 + _unchecked?28227_)))) + (___kont3524335244_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3523935240_)) + (let ((_e2823628268_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3523935240_)))) + (let ((_tl2823428273_ + (let () (declare (not safe)) (##cdr _e2823628268_))) + (_hd2823528271_ + (let () (declare (not safe)) (##car _e2823628268_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2823528271_)) + (let ((_e2823928276_ + (let () + (declare (not safe)) + (gx#stx-e _hd2823528271_)))) + (let ((_tl2823728281_ (let () (declare (not safe)) - (##cdr _e2607426113_))) - (_hd2607526116_ + (##cdr _e2823928276_))) + (_hd2823828279_ (let () (declare (not safe)) - (##car _e2607426113_)))) - (if (gx#identifier? _hd2607526116_) - (if (gx#stx-eq? '%#ref _hd2607526116_) - (if (gx#stx-pair? _tl2607626118_) - (let ((_e2607726121_ - (gx#stx-e _tl2607626118_))) - (let ((_tl2607926126_ + (##car _e2823928276_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2823828279_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2823828279_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2823728281_)) + (let ((_e2824228284_ + (let () + (declare (not safe)) + (gx#stx-e _tl2823728281_)))) + (let ((_tl2824028289_ (let () (declare (not safe)) - (##cdr _e2607726121_))) - (_hd2607826124_ + (##cdr _e2824228284_))) + (_hd2824128287_ (let () (declare (not safe)) - (##car _e2607726121_)))) - (if (gx#stx-null? _tl2607926126_) - (if (gx#stx-pair? - _tl2607326110_) - (let ((_e2608026129_ - (gx#stx-e - _tl2607326110_))) - (let ((_tl2608226134_ + (##car _e2824228284_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2824028289_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2823428273_)) + (let ((_e2824528292_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2823428273_)))) + (let ((_tl2824328297_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2608026129_))) - (_hd2608126132_ - (let () (declare (not safe)) (##car _e2608026129_)))) - (if (gx#stx-pair? _hd2608126132_) - (let ((_e2608326137_ (gx#stx-e _hd2608126132_))) - (let ((_tl2608526142_ + (##cdr _e2824528292_))) + (_hd2824428295_ + (let () (declare (not safe)) (##car _e2824528292_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd2824428295_)) + (let ((_e2824828300_ + (let () + (declare (not safe)) + (gx#stx-e _hd2824428295_)))) + (let ((_tl2824628305_ (let () (declare (not safe)) - (##cdr _e2608326137_))) - (_hd2608426140_ + (##cdr _e2824828300_))) + (_hd2824728303_ (let () (declare (not safe)) - (##car _e2608326137_)))) - (if (gx#identifier? _hd2608426140_) - (if (gx#stx-eq? '%#quote _hd2608426140_) - (if (gx#stx-pair? _tl2608526142_) - (let ((_e2608626145_ - (gx#stx-e _tl2608526142_))) - (let ((_tl2608826150_ + (##car _e2824828300_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2824728303_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2824728303_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2824628305_)) + (let ((_e2825128308_ + (let () + (declare (not safe)) + (gx#stx-e _tl2824628305_)))) + (let ((_tl2824928313_ (let () (declare (not safe)) - (##cdr _e2608626145_))) - (_hd2608726148_ + (##cdr _e2825128308_))) + (_hd2825028311_ (let () (declare (not safe)) - (##car _e2608626145_)))) - (if (gx#stx-null? _tl2608826150_) - (if (gx#stx-null? _tl2608226134_) - (___kont3307833079_ - _hd2608726148_ - _hd2607826124_) - (___kont3308033081_)) - (___kont3308033081_)))) - (___kont3308033081_)) - (___kont3308033081_)) - (___kont3308033081_)))) - (___kont3308033081_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3308033081_)) - (___kont3308033081_)))) - (___kont3308033081_)) - (___kont3308033081_)) - (___kont3308033081_)))) - (___kont3308033081_)))) - (___kont3308033081_)))))) + (##car _e2825128308_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2824928313_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2824328297_)) + (___kont3524135242_ + _hd2825028311_ + _hd2824128287_) + (___kont3524335244_)) + (___kont3524335244_)))) + (___kont3524335244_)) + (___kont3524335244_)) + (___kont3524335244_)))) + (___kont3524335244_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3524335244_)) + (___kont3524335244_)))) + (___kont3524335244_)) + (___kont3524335244_)) + (___kont3524335244_)))) + (___kont3524335244_)))) + (___kont3524335244_)))))) (define gxc#basic-expression-type-make-class-slot-accessor__0 - (lambda (_stx26182_ _args26183_) - (let ((_unchecked?26185_ '#f)) + (lambda (_stx28345_ _args28346_) + (let ((_unchecked?28348_ '#f)) + (declare (not safe)) (gxc#basic-expression-type-make-class-slot-accessor__% - _stx26182_ - _args26183_ - _unchecked?26185_)))) + _stx28345_ + _args28346_ + _unchecked?28348_)))) (define gxc#basic-expression-type-make-class-slot-accessor - (lambda _g34525_ - (let ((_g34524_ (let () (declare (not safe)) (##length _g34525_)))) - (cond ((let () (declare (not safe)) (##fx= _g34524_ 2)) - (apply gxc#basic-expression-type-make-class-slot-accessor__0 - _g34525_)) - ((let () (declare (not safe)) (##fx= _g34524_ 3)) - (apply gxc#basic-expression-type-make-class-slot-accessor__% - _g34525_)) + (lambda _g36807_ + (let ((_g36806_ (let () (declare (not safe)) (##length _g36807_)))) + (cond ((let () (declare (not safe)) (##fx= _g36806_ 2)) + (apply (lambda (_stx28345_ _args28346_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-class-slot-accessor__0 + _stx28345_ + _args28346_))) + _g36807_)) + ((let () (declare (not safe)) (##fx= _g36806_ 3)) + (apply (lambda (_stx28350_ _args28351_ _unchecked?28352_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-class-slot-accessor__% + _stx28350_ + _args28351_ + _unchecked?28352_))) + _g36807_)) (else (##raise-wrong-number-of-arguments-exception gxc#basic-expression-type-make-class-slot-accessor - _g34525_)))))) + _g36807_)))))) (define gxc#basic-expression-type-make-class-slot-mutator__% - (lambda (_stx25932_ _args25933_ _unchecked?25934_) - (let* ((___stx3313433135_ _args25933_) - (_g2593725963_ + (lambda (_stx28095_ _args28096_ _unchecked?28097_) + (let* ((___stx3529735298_ _args28096_) + (_g2810028126_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3313433135_)))) - (let ((___kont3313633137_ - (lambda (_L26023_ _L26024_) - (let ((__tmp34527 (gxc#identifier-symbol _L26024_)) - (__tmp34526 (gx#stx-e _L26023_))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3529735298_))))) + (let ((___kont3529935300_ + (lambda (_L28186_ _L28187_) + (let ((__tmp36809 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L28187_))) + (__tmp36808 + (let () (declare (not safe)) (gx#stx-e _L28186_)))) (declare (not safe)) (##structure gxc#!class-setf::t - __tmp34527 - __tmp34526 - _unchecked?25934_)))) - (___kont3313833139_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3313433135_) - (let ((_e2594125975_ (gx#stx-e ___stx3313433135_))) - (let ((_tl2594325980_ - (let () (declare (not safe)) (##cdr _e2594125975_))) - (_hd2594225978_ - (let () (declare (not safe)) (##car _e2594125975_)))) - (if (gx#stx-pair? _hd2594225978_) - (let ((_e2594425983_ (gx#stx-e _hd2594225978_))) - (let ((_tl2594625988_ + __tmp36809 + __tmp36808 + _unchecked?28097_)))) + (___kont3530135302_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3529735298_)) + (let ((_e2810628138_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3529735298_)))) + (let ((_tl2810428143_ + (let () (declare (not safe)) (##cdr _e2810628138_))) + (_hd2810528141_ + (let () (declare (not safe)) (##car _e2810628138_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2810528141_)) + (let ((_e2810928146_ + (let () + (declare (not safe)) + (gx#stx-e _hd2810528141_)))) + (let ((_tl2810728151_ (let () (declare (not safe)) - (##cdr _e2594425983_))) - (_hd2594525986_ + (##cdr _e2810928146_))) + (_hd2810828149_ (let () (declare (not safe)) - (##car _e2594425983_)))) - (if (gx#identifier? _hd2594525986_) - (if (gx#stx-eq? '%#ref _hd2594525986_) - (if (gx#stx-pair? _tl2594625988_) - (let ((_e2594725991_ - (gx#stx-e _tl2594625988_))) - (let ((_tl2594925996_ + (##car _e2810928146_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2810828149_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2810828149_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2810728151_)) + (let ((_e2811228154_ + (let () + (declare (not safe)) + (gx#stx-e _tl2810728151_)))) + (let ((_tl2811028159_ (let () (declare (not safe)) - (##cdr _e2594725991_))) - (_hd2594825994_ + (##cdr _e2811228154_))) + (_hd2811128157_ (let () (declare (not safe)) - (##car _e2594725991_)))) - (if (gx#stx-null? _tl2594925996_) - (if (gx#stx-pair? - _tl2594325980_) - (let ((_e2595025999_ - (gx#stx-e - _tl2594325980_))) - (let ((_tl2595226004_ + (##car _e2811228154_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2811028159_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2810428143_)) + (let ((_e2811528162_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2810428143_)))) + (let ((_tl2811328167_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2595025999_))) - (_hd2595126002_ - (let () (declare (not safe)) (##car _e2595025999_)))) - (if (gx#stx-pair? _hd2595126002_) - (let ((_e2595326007_ (gx#stx-e _hd2595126002_))) - (let ((_tl2595526012_ + (##cdr _e2811528162_))) + (_hd2811428165_ + (let () (declare (not safe)) (##car _e2811528162_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd2811428165_)) + (let ((_e2811828170_ + (let () + (declare (not safe)) + (gx#stx-e _hd2811428165_)))) + (let ((_tl2811628175_ (let () (declare (not safe)) - (##cdr _e2595326007_))) - (_hd2595426010_ + (##cdr _e2811828170_))) + (_hd2811728173_ (let () (declare (not safe)) - (##car _e2595326007_)))) - (if (gx#identifier? _hd2595426010_) - (if (gx#stx-eq? '%#quote _hd2595426010_) - (if (gx#stx-pair? _tl2595526012_) - (let ((_e2595626015_ - (gx#stx-e _tl2595526012_))) - (let ((_tl2595826020_ + (##car _e2811828170_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2811728173_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2811728173_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2811628175_)) + (let ((_e2812128178_ + (let () + (declare (not safe)) + (gx#stx-e _tl2811628175_)))) + (let ((_tl2811928183_ (let () (declare (not safe)) - (##cdr _e2595626015_))) - (_hd2595726018_ + (##cdr _e2812128178_))) + (_hd2812028181_ (let () (declare (not safe)) - (##car _e2595626015_)))) - (if (gx#stx-null? _tl2595826020_) - (if (gx#stx-null? _tl2595226004_) - (___kont3313633137_ - _hd2595726018_ - _hd2594825994_) - (___kont3313833139_)) - (___kont3313833139_)))) - (___kont3313833139_)) - (___kont3313833139_)) - (___kont3313833139_)))) - (___kont3313833139_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3313833139_)) - (___kont3313833139_)))) - (___kont3313833139_)) - (___kont3313833139_)) - (___kont3313833139_)))) - (___kont3313833139_)))) - (___kont3313833139_)))))) + (##car _e2812128178_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2811928183_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2811328167_)) + (___kont3529935300_ + _hd2812028181_ + _hd2811128157_) + (___kont3530135302_)) + (___kont3530135302_)))) + (___kont3530135302_)) + (___kont3530135302_)) + (___kont3530135302_)))) + (___kont3530135302_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3530135302_)) + (___kont3530135302_)))) + (___kont3530135302_)) + (___kont3530135302_)) + (___kont3530135302_)))) + (___kont3530135302_)))) + (___kont3530135302_)))))) (define gxc#basic-expression-type-make-class-slot-mutator__0 - (lambda (_stx26052_ _args26053_) - (let ((_unchecked?26055_ '#f)) + (lambda (_stx28215_ _args28216_) + (let ((_unchecked?28218_ '#f)) + (declare (not safe)) (gxc#basic-expression-type-make-class-slot-mutator__% - _stx26052_ - _args26053_ - _unchecked?26055_)))) + _stx28215_ + _args28216_ + _unchecked?28218_)))) (define gxc#basic-expression-type-make-class-slot-mutator - (lambda _g34529_ - (let ((_g34528_ (let () (declare (not safe)) (##length _g34529_)))) - (cond ((let () (declare (not safe)) (##fx= _g34528_ 2)) - (apply gxc#basic-expression-type-make-class-slot-mutator__0 - _g34529_)) - ((let () (declare (not safe)) (##fx= _g34528_ 3)) - (apply gxc#basic-expression-type-make-class-slot-mutator__% - _g34529_)) + (lambda _g36811_ + (let ((_g36810_ (let () (declare (not safe)) (##length _g36811_)))) + (cond ((let () (declare (not safe)) (##fx= _g36810_ 2)) + (apply (lambda (_stx28215_ _args28216_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-class-slot-mutator__0 + _stx28215_ + _args28216_))) + _g36811_)) + ((let () (declare (not safe)) (##fx= _g36810_ 3)) + (apply (lambda (_stx28220_ _args28221_ _unchecked?28222_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-class-slot-mutator__% + _stx28220_ + _args28221_ + _unchecked?28222_))) + _g36811_)) (else (##raise-wrong-number-of-arguments-exception gxc#basic-expression-type-make-class-slot-mutator - _g34529_)))))) + _g36811_)))))) (define gxc#basic-expression-type-make-class-slot-unchecked-accessor - (lambda (_stx25928_ _args25929_) - (gxc#basic-expression-type-make-class-slot-accessor__% - _stx25928_ - _args25929_ - '#t))) + (lambda (_stx28091_ _args28092_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-class-slot-accessor__% + _stx28091_ + _args28092_ + '#t)))) (define gxc#basic-expression-type-make-class-slot-unchecked-mutator - (lambda (_stx25925_ _args25926_) - (gxc#basic-expression-type-make-class-slot-mutator__% - _stx25925_ - _args25926_ - '#t))) - (table-set! - gxc#basic-expression-type-builtin - 'make-struct-type - gxc#basic-expression-type-make-struct-type) - (table-set! - gxc#basic-expression-type-builtin - 'make-struct-predicate - gxc#basic-expression-type-make-struct-predicate) - (table-set! - gxc#basic-expression-type-builtin - 'make-struct-field-accessor - gxc#basic-expression-type-make-struct-field-accessor) - (table-set! - gxc#basic-expression-type-builtin - 'make-struct-field-mutator - gxc#basic-expression-type-make-struct-field-mutator) - (table-set! - gxc#basic-expression-type-builtin - 'make-struct-field-unchecked-accessor - gxc#basic-expression-type-make-struct-field-unchecked-accessor) - (table-set! - gxc#basic-expression-type-builtin - 'make-struct-field-unchecked-mutator - gxc#basic-expression-type-make-struct-field-unchecked-mutator) - (table-set! - gxc#basic-expression-type-builtin - 'make-class-type - gxc#basic-expression-type-make-class-type) - (table-set! - gxc#basic-expression-type-builtin - 'make-class-predicate - gxc#basic-expression-type-make-class-predicate) - (table-set! - gxc#basic-expression-type-builtin - 'make-class-slot-accessor - gxc#basic-expression-type-make-class-slot-accessor) - (table-set! - gxc#basic-expression-type-builtin - 'make-class-slot-mutator - gxc#basic-expression-type-make-class-slot-mutator) - (table-set! - gxc#basic-expression-type-builtin - 'make-class-slot-unchecked-accessor - gxc#basic-expression-type-make-class-slot-unchecked-accessor) - (table-set! - gxc#basic-expression-type-builtin - 'make-class-slot-unchecked-mutator - gxc#basic-expression-type-make-class-slot-unchecked-mutator) + (lambda (_stx28088_ _args28089_) + (let () + (declare (not safe)) + (gxc#basic-expression-type-make-class-slot-mutator__% + _stx28088_ + _args28089_ + '#t)))) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-struct-type + gxc#basic-expression-type-make-struct-type)) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-struct-predicate + gxc#basic-expression-type-make-struct-predicate)) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-struct-field-accessor + gxc#basic-expression-type-make-struct-field-accessor)) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-struct-field-mutator + gxc#basic-expression-type-make-struct-field-mutator)) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-struct-field-unchecked-accessor + gxc#basic-expression-type-make-struct-field-unchecked-accessor)) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-struct-field-unchecked-mutator + gxc#basic-expression-type-make-struct-field-unchecked-mutator)) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-class-type + gxc#basic-expression-type-make-class-type)) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-class-predicate + gxc#basic-expression-type-make-class-predicate)) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-class-slot-accessor + gxc#basic-expression-type-make-class-slot-accessor)) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-class-slot-mutator + gxc#basic-expression-type-make-class-slot-mutator)) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-class-slot-unchecked-accessor + gxc#basic-expression-type-make-class-slot-unchecked-accessor)) + (let () + (declare (not safe)) + (table-set! + gxc#basic-expression-type-builtin + 'make-class-slot-unchecked-mutator + gxc#basic-expression-type-make-class-slot-unchecked-mutator)) (define gxc#basic-expression-type-ref% - (lambda (_stx25874_) - (let* ((_g2587625889_ - (lambda (_g2587725886_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2587725886_))) - (_g2587525922_ - (lambda (_g2587725892_) - (if (gx#stx-pair? _g2587725892_) - (let ((_e2587925894_ (gx#stx-e _g2587725892_))) - (let ((_hd2588025897_ + (lambda (_stx28037_) + (let* ((_g2803928052_ + (lambda (_g2804028049_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2804028049_)))) + (_g2803828085_ + (lambda (_g2804028055_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2804028055_)) + (let ((_e2804428057_ + (let () + (declare (not safe)) + (gx#stx-e _g2804028055_)))) + (let ((_hd2804328060_ (let () (declare (not safe)) - (##car _e2587925894_))) - (_tl2588125899_ + (##car _e2804428057_))) + (_tl2804228062_ (let () (declare (not safe)) - (##cdr _e2587925894_)))) - (if (gx#stx-pair? _tl2588125899_) - (let ((_e2588225902_ (gx#stx-e _tl2588125899_))) - (let ((_hd2588325905_ + (##cdr _e2804428057_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2804228062_)) + (let ((_e2804728065_ + (let () + (declare (not safe)) + (gx#stx-e _tl2804228062_)))) + (let ((_hd2804628068_ (let () (declare (not safe)) - (##car _e2588225902_))) - (_tl2588425907_ + (##car _e2804728065_))) + (_tl2804528070_ (let () (declare (not safe)) - (##cdr _e2588225902_)))) - (if (gx#stx-null? _tl2588425907_) - ((lambda (_L25910_) - (gxc#optimizer-lookup-type - (gxc#identifier-symbol _L25910_))) - _hd2588325905_) - (_g2587625889_ _g2587725892_)))) - (_g2587625889_ _g2587725892_)))) - (_g2587625889_ _g2587725892_))))) - (_g2587525922_ _stx25874_)))) + (##cdr _e2804728065_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2804528070_)) + ((lambda (_L28073_) + (let ((__tmp36812 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L28073_)))) + (declare (not safe)) + (gxc#optimizer-lookup-type + __tmp36812))) + _hd2804628068_) + (let () + (declare (not safe)) + (_g2803928052_ _g2804028055_))))) + (let () + (declare (not safe)) + (_g2803928052_ _g2804028055_))))) + (let () + (declare (not safe)) + (_g2803928052_ _g2804028055_)))))) + (declare (not safe)) + (_g2803828085_ _stx28037_)))) (define gxc#dispatch-lambda-form? - (lambda (_form25108_) - (let* ((___stx3319233193_ _form25108_) - (_g2511325270_ + (lambda (_form27271_) + (let* ((___stx3535535356_ _form27271_) + (_g2727627433_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3319233193_)))) - (let ((___kont3319433195_ (lambda (_L25794_ _L25795_ _L25796_) '#t)) - (___kont3320033201_ - (lambda (_L25582_ - _L25583_ - _L25584_ - _L25585_ - _L25586_ - _L25587_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3535535356_))))) + (let ((___kont3535735358_ (lambda (_L27957_ _L27958_ _L27959_) '#t)) + (___kont3536335364_ + (lambda (_L27745_ + _L27746_ + _L27747_ + _L27748_ + _L27749_ + _L27750_) '#t)) - (___kont3320633207_ - (lambda (_L25378_ _L25379_ _L25380_ _L25381_) '#t)) - (___kont3320833209_ (lambda () '#f))) - (let* ((___match3333333334_ - (lambda (_e2523025282_ - _hd2523125285_ - _tl2523225287_ - _e2523325290_ - _hd2523425293_ - _tl2523525295_ - _e2523625298_ - _hd2523725301_ - _tl2523825303_ - _e2523925306_ - _hd2524025309_ - _tl2524125311_ - _e2524225314_ - _hd2524325317_ - _tl2524425319_ - _e2524525322_ - _hd2524625325_ - _tl2524725327_ - _e2524825330_ - _hd2524925333_ - _tl2525025335_ - _e2525125338_ - _hd2525225341_ - _tl2525325343_ - _e2525425346_ - _hd2525525349_ - _tl2525625351_ - _e2525725354_ - _hd2525825357_ - _tl2525925359_ - _e2526025362_ - _hd2526125365_ - _tl2526225367_ - _e2526325370_ - _hd2526425373_ - _tl2526525375_) - (let ((_L25378_ _hd2526425373_) - (_L25379_ _hd2525525349_) - (_L25380_ _hd2524625325_) - (_L25381_ _hd2523125285_)) - (if (and (gx#identifier? _L25381_) - (gxc#runtime-identifier=? _L25380_ 'apply) - (gx#free-identifier=? _L25381_ _L25378_) - (not (gx#free-identifier=? - _L25379_ - _L25381_))) - (___kont3320633207_ - _L25378_ - _L25379_ - _L25380_ - _L25381_) - (___kont3320833209_))))) - (___match3330533306_ - (lambda (_e2523025282_ - _hd2523125285_ - _tl2523225287_ - _e2523325290_ - _hd2523425293_ - _tl2523525295_ - _e2523625298_ - _hd2523725301_ - _tl2523825303_ - _e2523925306_ - _hd2524025309_ - _tl2524125311_ - _e2524225314_ - _hd2524325317_ - _tl2524425319_ - _e2524525322_ - _hd2524625325_ - _tl2524725327_ - _e2524825330_ - _hd2524925333_ - _tl2525025335_ - _e2525125338_ - _hd2525225341_ - _tl2525325343_ - _e2525425346_ - _hd2525525349_ - _tl2525625351_) - (if (gx#stx-pair? _tl2525025335_) - (let ((_e2525725354_ (gx#stx-e _tl2525025335_))) - (let ((_tl2525925359_ + (___kont3536935370_ + (lambda (_L27541_ _L27542_ _L27543_ _L27544_) '#t)) + (___kont3537135372_ (lambda () '#f))) + (let* ((___match3549635497_ + (lambda (_e2739527445_ + _hd2739427448_ + _tl2739327450_ + _e2739827453_ + _hd2739727456_ + _tl2739627458_ + _e2740127461_ + _hd2740027464_ + _tl2739927466_ + _e2740427469_ + _hd2740327472_ + _tl2740227474_ + _e2740727477_ + _hd2740627480_ + _tl2740527482_ + _e2741027485_ + _hd2740927488_ + _tl2740827490_ + _e2741327493_ + _hd2741227496_ + _tl2741127498_ + _e2741627501_ + _hd2741527504_ + _tl2741427506_ + _e2741927509_ + _hd2741827512_ + _tl2741727514_ + _e2742227517_ + _hd2742127520_ + _tl2742027522_ + _e2742527525_ + _hd2742427528_ + _tl2742327530_ + _e2742827533_ + _hd2742727536_ + _tl2742627538_) + (let ((_L27541_ _hd2742727536_) + (_L27542_ _hd2741827512_) + (_L27543_ _hd2740927488_) + (_L27544_ _hd2739427448_)) + (if (and (let () + (declare (not safe)) + (gx#identifier? _L27544_)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? _L27543_ 'apply)) + (let () + (declare (not safe)) + (gx#free-identifier=? _L27544_ _L27541_)) + (let ((__tmp36813 + (let () + (declare (not safe)) + (gx#free-identifier=? + _L27542_ + _L27544_)))) + (declare (not safe)) + (not __tmp36813))) + (___kont3536935370_ + _L27541_ + _L27542_ + _L27543_ + _L27544_) + (___kont3537135372_))))) + (___match3546835469_ + (lambda (_e2739527445_ + _hd2739427448_ + _tl2739327450_ + _e2739827453_ + _hd2739727456_ + _tl2739627458_ + _e2740127461_ + _hd2740027464_ + _tl2739927466_ + _e2740427469_ + _hd2740327472_ + _tl2740227474_ + _e2740727477_ + _hd2740627480_ + _tl2740527482_ + _e2741027485_ + _hd2740927488_ + _tl2740827490_ + _e2741327493_ + _hd2741227496_ + _tl2741127498_ + _e2741627501_ + _hd2741527504_ + _tl2741427506_ + _e2741927509_ + _hd2741827512_ + _tl2741727514_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2741127498_)) + (let ((_e2742227517_ + (let () + (declare (not safe)) + (gx#stx-e _tl2741127498_)))) + (let ((_tl2742027522_ (let () (declare (not safe)) - (##cdr _e2525725354_))) - (_hd2525825357_ + (##cdr _e2742227517_))) + (_hd2742127520_ (let () (declare (not safe)) - (##car _e2525725354_)))) - (if (gx#stx-pair? _hd2525825357_) - (let ((_e2526025362_ - (gx#stx-e _hd2525825357_))) - (let ((_tl2526225367_ + (##car _e2742227517_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2742127520_)) + (let ((_e2742527525_ + (let () + (declare (not safe)) + (gx#stx-e _hd2742127520_)))) + (let ((_tl2742327530_ (let () (declare (not safe)) - (##cdr _e2526025362_))) - (_hd2526125365_ + (##cdr _e2742527525_))) + (_hd2742427528_ (let () (declare (not safe)) - (##car _e2526025362_)))) - (if (gx#identifier? _hd2526125365_) - (if (gx#stx-eq? - '%#ref - _hd2526125365_) - (if (gx#stx-pair? _tl2526225367_) - (let ((_e2526325370_ - (gx#stx-e - _tl2526225367_))) - (let ((_tl2526525375_ + (##car _e2742527525_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2742427528_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd2742427528_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2742327530_)) + (let ((_e2742827533_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2742327530_)))) + (let ((_tl2742627538_ (let () (declare (not safe)) - (##cdr _e2526325370_))) - (_hd2526425373_ + (##cdr _e2742827533_))) + (_hd2742727536_ (let () (declare (not safe)) - (##car _e2526325370_)))) - (if (gx#stx-null? - _tl2526525375_) - (if (gx#stx-null? - _tl2525925359_) - (if (gx#stx-null? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2523525295_) - (___match3333333334_ - _e2523025282_ - _hd2523125285_ - _tl2523225287_ - _e2523325290_ - _hd2523425293_ - _tl2523525295_ - _e2523625298_ - _hd2523725301_ - _tl2523825303_ - _e2523925306_ - _hd2524025309_ - _tl2524125311_ - _e2524225314_ - _hd2524325317_ - _tl2524425319_ - _e2524525322_ - _hd2524625325_ - _tl2524725327_ - _e2524825330_ - _hd2524925333_ - _tl2525025335_ - _e2525125338_ - _hd2525225341_ - _tl2525325343_ - _e2525425346_ - _hd2525525349_ - _tl2525625351_ - _e2525725354_ - _hd2525825357_ - _tl2525925359_ - _e2526025362_ - _hd2526125365_ - _tl2526225367_ - _e2526325370_ - _hd2526425373_ - _tl2526525375_) - (___kont3320833209_)) - (___kont3320833209_)) - (___kont3320833209_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3320833209_)) - (___kont3320833209_)) - (___kont3320833209_)))) - (___kont3320833209_)))) - (___kont3320833209_)))) - (___match3323533236_ - (lambda (_e2516625422_ - _hd2516725425_ - _tl2516825427_ - ___splice3320233203_ - _target2516925430_ - _tl2517125432_) - (letrec ((_loop2517225435_ - (lambda (_hd2517025438_ _arg2517625440_) - (if (gx#stx-pair? _hd2517025438_) - (let ((_e2517325443_ - (gx#stx-e _hd2517025438_))) - (let ((_lp-tl2517525448_ + (##car _e2742827533_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2742627538_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl2742027522_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2739627458_)) + (___match3549635497_ + _e2739527445_ + _hd2739427448_ + _tl2739327450_ + _e2739827453_ + _hd2739727456_ + _tl2739627458_ + _e2740127461_ + _hd2740027464_ + _tl2739927466_ + _e2740427469_ + _hd2740327472_ + _tl2740227474_ + _e2740727477_ + _hd2740627480_ + _tl2740527482_ + _e2741027485_ + _hd2740927488_ + _tl2740827490_ + _e2741327493_ + _hd2741227496_ + _tl2741127498_ + _e2741627501_ + _hd2741527504_ + _tl2741427506_ + _e2741927509_ + _hd2741827512_ + _tl2741727514_ + _e2742227517_ + _hd2742127520_ + _tl2742027522_ + _e2742527525_ + _hd2742427528_ + _tl2742327530_ + _e2742827533_ + _hd2742727536_ + _tl2742627538_) + (___kont3537135372_)) + (___kont3537135372_)) + (___kont3537135372_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3537135372_)) + (___kont3537135372_)) + (___kont3537135372_)))) + (___kont3537135372_)))) + (___kont3537135372_)))) + (___match3539835399_ + (lambda (_e2733127585_ + _hd2733027588_ + _tl2732927590_ + ___splice3536535366_ + _target2733227593_ + _tl2733427595_) + (letrec ((_loop2733527598_ + (lambda (_hd2733327601_ _arg2733927603_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2733327601_)) + (let ((_e2733627606_ + (let () + (declare (not safe)) + (gx#stx-e _hd2733327601_)))) + (let ((_lp-tl2733827611_ (let () (declare (not safe)) - (##cdr _e2517325443_))) - (_lp-hd2517425446_ + (##cdr _e2733627606_))) + (_lp-hd2733727609_ (let () (declare (not safe)) - (##car _e2517325443_)))) - (_loop2517225435_ - _lp-tl2517525448_ - (cons _lp-hd2517425446_ - _arg2517625440_)))) - (let ((_arg2517725451_ - (reverse _arg2517625440_))) - (if (gx#stx-pair? _tl2516825427_) - (let ((_e2517825454_ - (gx#stx-e _tl2516825427_))) - (let ((_tl2518025459_ + (##car _e2733627606_)))) + (let ((__tmp36828 + (let () + (declare (not safe)) + (cons _lp-hd2733727609_ + _arg2733927603_)))) + (declare (not safe)) + (_loop2733527598_ + _lp-tl2733827611_ + __tmp36828)))) + (let ((_arg2734027614_ + (let () + (declare (not safe)) + (reverse _arg2733927603_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2732927590_)) + (let ((_e2734327617_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2732927590_)))) + (let ((_tl2734127622_ (let () (declare (not safe)) - (##cdr _e2517825454_))) - (_hd2517925457_ + (##cdr _e2734327617_))) + (_hd2734227620_ (let () (declare (not safe)) - (##car _e2517825454_)))) - (if (gx#stx-pair? - _hd2517925457_) - (let ((_e2518125462_ - (gx#stx-e - _hd2517925457_))) - (let ((_tl2518325467_ + (##car _e2734327617_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2734227620_)) + (let ((_e2734627625_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd2734227620_)))) + (let ((_tl2734427630_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2518125462_))) - (_hd2518225465_ - (let () (declare (not safe)) (##car _e2518125462_)))) - (if (gx#identifier? _hd2518225465_) - (if (gx#stx-eq? '%#call _hd2518225465_) - (if (gx#stx-pair? _tl2518325467_) - (let ((_e2518425470_ (gx#stx-e _tl2518325467_))) - (let ((_tl2518625475_ + (##cdr _e2734627625_))) + (_hd2734527628_ + (let () (declare (not safe)) (##car _e2734627625_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2734527628_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd2734527628_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2734427630_)) + (let ((_e2734927633_ + (let () + (declare (not safe)) + (gx#stx-e _tl2734427630_)))) + (let ((_tl2734727638_ (let () (declare (not safe)) - (##cdr _e2518425470_))) - (_hd2518525473_ + (##cdr _e2734927633_))) + (_hd2734827636_ (let () (declare (not safe)) - (##car _e2518425470_)))) - (if (gx#stx-pair? _hd2518525473_) - (let ((_e2518725478_ - (gx#stx-e _hd2518525473_))) - (let ((_tl2518925483_ + (##car _e2734927633_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2734827636_)) + (let ((_e2735227641_ + (let () + (declare (not safe)) + (gx#stx-e _hd2734827636_)))) + (let ((_tl2735027646_ (let () (declare (not safe)) - (##cdr _e2518725478_))) - (_hd2518825481_ + (##cdr _e2735227641_))) + (_hd2735127644_ (let () (declare (not safe)) - (##car _e2518725478_)))) - (if (gx#identifier? _hd2518825481_) - (if (gx#stx-eq? - '%#ref - _hd2518825481_) - (if (gx#stx-pair? - _tl2518925483_) - (let ((_e2519025486_ - (gx#stx-e - _tl2518925483_))) - (let ((_tl2519225491_ + (##car _e2735227641_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2735127644_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd2735127644_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2735027646_)) + (let ((_e2735527649_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2735027646_)))) + (let ((_tl2735327654_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2519025486_))) - (_hd2519125489_ - (let () (declare (not safe)) (##car _e2519025486_)))) - (if (gx#stx-null? _tl2519225491_) - (if (gx#stx-pair? _tl2518625475_) - (let ((_e2519325494_ (gx#stx-e _tl2518625475_))) - (let ((_tl2519525499_ + (##cdr _e2735527649_))) + (_hd2735427652_ + (let () (declare (not safe)) (##car _e2735527649_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl2735327654_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2734727638_)) + (let ((_e2735827657_ + (let () + (declare (not safe)) + (gx#stx-e _tl2734727638_)))) + (let ((_tl2735627662_ (let () (declare (not safe)) - (##cdr _e2519325494_))) - (_hd2519425497_ + (##cdr _e2735827657_))) + (_hd2735727660_ (let () (declare (not safe)) - (##car _e2519325494_)))) - (if (gx#stx-pair? _hd2519425497_) - (let ((_e2519625502_ - (gx#stx-e _hd2519425497_))) - (let ((_tl2519825507_ + (##car _e2735827657_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2735727660_)) + (let ((_e2736127665_ + (let () + (declare (not safe)) + (gx#stx-e _hd2735727660_)))) + (let ((_tl2735927670_ (let () (declare (not safe)) - (##cdr _e2519625502_))) - (_hd2519725505_ + (##cdr _e2736127665_))) + (_hd2736027668_ (let () (declare (not safe)) - (##car _e2519625502_)))) - (if (gx#identifier? _hd2519725505_) - (if (gx#stx-eq? '%#ref _hd2519725505_) - (if (gx#stx-pair? _tl2519825507_) - (let ((_e2519925510_ - (gx#stx-e - _tl2519825507_))) - (let ((_tl2520125515_ + (##car _e2736127665_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2736027668_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd2736027668_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2735927670_)) + (let ((_e2736427673_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2735927670_)))) + (let ((_tl2736227678_ (let () (declare (not safe)) - (##cdr _e2519925510_))) - (_hd2520025513_ + (##cdr _e2736427673_))) + (_hd2736327676_ (let () (declare (not safe)) - (##car _e2519925510_)))) - (if (gx#stx-null? - _tl2520125515_) - (if (gx#stx-pair/null? - _tl2519525499_) - (if (fx>= (gx#stx-length -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2519525499_) + (##car _e2736427673_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2736227678_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair/null? + _tl2735627662_)) + (if (fx>= (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-length _tl2735627662_)) '1) - (let ((___splice3320433205_ - (gx#syntax-split-splice _tl2519525499_ '1))) - (let ((_tl2520425520_ + (let ((___splice3536735368_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl2735627662_ '1)))) + (let ((_tl2736727683_ (let () (declare (not safe)) - (##vector-ref ___splice3320433205_ '1))) - (_target2520225518_ + (##vector-ref ___splice3536735368_ '1))) + (_target2736527681_ (let () (declare (not safe)) - (##vector-ref ___splice3320433205_ '0)))) - (if (gx#stx-pair? _tl2520425520_) - (let ((_e2521125523_ - (gx#stx-e _tl2520425520_))) - (let ((_tl2521325528_ + (##vector-ref ___splice3536735368_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2736727683_)) + (let ((_e2737627686_ + (let () + (declare (not safe)) + (gx#stx-e _tl2736727683_)))) + (let ((_tl2737427691_ (let () (declare (not safe)) - (##cdr _e2521125523_))) - (_hd2521225526_ + (##cdr _e2737627686_))) + (_hd2737527689_ (let () (declare (not safe)) - (##car _e2521125523_)))) - (if (gx#stx-pair? _hd2521225526_) - (let ((_e2521425531_ - (gx#stx-e _hd2521225526_))) - (let ((_tl2521625536_ + (##car _e2737627686_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2737527689_)) + (let ((_e2737927694_ + (let () + (declare (not safe)) + (gx#stx-e _hd2737527689_)))) + (let ((_tl2737727699_ (let () (declare (not safe)) - (##cdr _e2521425531_))) - (_hd2521525534_ + (##cdr _e2737927694_))) + (_hd2737827697_ (let () (declare (not safe)) - (##car _e2521425531_)))) - (if (gx#identifier? _hd2521525534_) - (if (gx#stx-eq? - '%#ref - _hd2521525534_) - (if (gx#stx-pair? - _tl2521625536_) - (let ((_e2521725539_ - (gx#stx-e - _tl2521625536_))) - (let ((_tl2521925544_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e2521725539_))) - (_hd2521825542_ - (let () (declare (not safe)) (##car _e2521725539_)))) - (if (gx#stx-null? _tl2521925544_) - (if (gx#stx-null? _tl2521325528_) - (letrec ((_loop2520525547_ - (lambda (_hd2520325550_ _xarg2520925552_) - (if (gx#stx-pair? _hd2520325550_) - (let ((_e2520625555_ - (gx#stx-e _hd2520325550_))) - (let ((_lp-tl2520825560_ + (##car _e2737927694_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd2737827697_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd2737827697_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2737727699_)) + (let ((_e2738227702_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl2737727699_)))) + (let ((_tl2738027707_ + (let () (declare (not safe)) (##cdr _e2738227702_))) + (_hd2738127705_ + (let () (declare (not safe)) (##car _e2738227702_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2738027707_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2737427691_)) + (letrec ((_loop2736827710_ + (lambda (_hd2736627713_ _xarg2737227715_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2736627713_)) + (let ((_e2736927718_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2736627713_)))) + (let ((_lp-tl2737127723_ (let () (declare (not safe)) - (##cdr _e2520625555_))) - (_lp-hd2520725558_ + (##cdr _e2736927718_))) + (_lp-hd2737027721_ (let () (declare (not safe)) - (##car _e2520625555_)))) - (if (gx#stx-pair? - _lp-hd2520725558_) - (let ((_e2522025563_ - (gx#stx-e - _lp-hd2520725558_))) - (let ((_tl2522225568_ + (##car _e2736927718_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _lp-hd2737027721_)) + (let ((_e2738527726_ + (let () + (declare + (not safe)) + (gx#stx-e + _lp-hd2737027721_)))) + (let ((_tl2738327731_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2522025563_))) - (_hd2522125566_ - (let () (declare (not safe)) (##car _e2522025563_)))) - (if (gx#identifier? _hd2522125566_) - (if (gx#stx-eq? '%#ref _hd2522125566_) - (if (gx#stx-pair? _tl2522225568_) - (let ((_e2522325571_ (gx#stx-e _tl2522225568_))) - (let ((_tl2522525576_ + (##cdr _e2738527726_))) + (_hd2738427729_ + (let () (declare (not safe)) (##car _e2738527726_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2738427729_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2738427729_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2738327731_)) + (let ((_e2738827734_ + (let () + (declare (not safe)) + (gx#stx-e _tl2738327731_)))) + (let ((_tl2738627739_ (let () (declare (not safe)) - (##cdr _e2522325571_))) - (_hd2522425574_ + (##cdr _e2738827734_))) + (_hd2738727737_ (let () (declare (not safe)) - (##car _e2522325571_)))) - (if (gx#stx-null? _tl2522525576_) - (_loop2520525547_ - _lp-tl2520825560_ - (cons _hd2522425574_ _xarg2520925552_)) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)))) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)))) - (let ((_xarg2521025579_ - (reverse _xarg2520925552_))) - (if (gx#stx-null? _tl2518025459_) - (let ((_L25582_ - _hd2521825542_) - (_L25583_ - _xarg2521025579_) - (_L25584_ - _hd2520025513_) - (_L25585_ - _hd2519125489_) - (_L25586_ - _tl2517125432_) - (_L25587_ - _arg2517725451_)) - (if (and (gx#identifier-list? - (foldr1 (lambda (_g2563025633_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2563125635_) - (cons _g2563025633_ _g2563125635_)) - '() - _L25587_)) - (gx#identifier? _L25586_) - (gxc#runtime-identifier=? _L25585_ 'apply) - (fx= (length (foldr1 (lambda (_g2563725640_ _g2563825642_) - (cons _g2563725640_ _g2563825642_)) - '() - _L25587_)) - (length (foldr1 (lambda (_g2564425647_ _g2564525649_) - (cons _g2564425647_ _g2564525649_)) - '() - _L25583_))) - (andmap2 gx#free-identifier=? - (foldr1 (lambda (_g2565125654_ _g2565225656_) - (cons _g2565125654_ _g2565225656_)) - '() - _L25587_) - (foldr1 (lambda (_g2565825661_ _g2565925663_) - (cons _g2565825661_ _g2565925663_)) - '() - _L25583_)) - (gx#free-identifier=? _L25586_ _L25582_) - (not (find (lambda (_g2566525667_) - (gx#free-identifier=? - _g2566525667_ - _L25584_)) - (foldr1 (lambda (_g2566925672_ _g2567025674_) - (cons _g2566925672_ _g2567025674_)) - (cons _L25586_ '()) - _L25587_)))) - (___kont3320033201_ - _L25582_ - _L25583_ - _L25584_ - _L25585_ - _L25586_ - _L25587_) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_))))))) - (_loop2520525547_ _target2520225518_ '())) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)))) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)))) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)))) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)))) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)) - (___match3330533306_ - _e2516625422_ - _hd2516725425_ - _tl2516825427_ - _e2517825454_ - _hd2517925457_ - _tl2518025459_ - _e2518125462_ - _hd2518225465_ - _tl2518325467_ - _e2518425470_ - _hd2518525473_ - _tl2518625475_ - _e2518725478_ - _hd2518825481_ - _tl2518925483_ - _e2519025486_ - _hd2519125489_ - _tl2519225491_ - _e2519325494_ - _hd2519425497_ - _tl2519525499_ - _e2519625502_ - _hd2519725505_ - _tl2519825507_ - _e2519925510_ - _hd2520025513_ - _tl2520125515_)) - (___kont3320833209_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3320833209_)) - (___kont3320833209_)) - (___kont3320833209_)))) - (___kont3320833209_)))) - (___kont3320833209_)) - (___kont3320833209_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3320833209_)) - (___kont3320833209_)) - (___kont3320833209_)))) - (___kont3320833209_)))) - (___kont3320833209_)) - (___kont3320833209_)) - (___kont3320833209_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3320833209_)))) - (___kont3320833209_))))))) - (_loop2517225435_ _target2516925430_ '())))) - (___match3322333224_ - (lambda (_e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_) - (letrec ((_loop2512425695_ - (lambda (_hd2512225698_ _arg2512825700_) - (if (gx#stx-pair? _hd2512225698_) - (let ((_e2512525703_ - (gx#stx-e _hd2512225698_))) - (let ((_lp-tl2512725708_ - (let () + (##car _e2738827734_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2738627739_)) + (let ((__tmp36827 + (let () + (declare (not safe)) + (cons _hd2738727737_ + _xarg2737227715_)))) + (declare (not safe)) + (_loop2736827710_ + _lp-tl2737127723_ + __tmp36827)) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)))) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)))) + (let ((_xarg2737327742_ + (let () + (declare (not safe)) + (reverse _xarg2737227715_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2734127622_)) + (let ((_L27745_ + _hd2738127705_) + (_L27746_ + _xarg2737327742_) + (_L27747_ + _hd2736327676_) + (_L27748_ + _hd2735427652_) + (_L27749_ + _tl2733427595_) + (_L27750_ + _arg2734027614_)) + (if (and (let ((__tmp36825 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp36826 + (lambda (_g2779327796_ _g2779427798_) + (let () + (declare (not safe)) + (cons _g2779327796_ _g2779427798_))))) + (declare (not safe)) + (foldr1 __tmp36826 '() _L27750_)))) + (declare (not safe)) + (gx#identifier-list? __tmp36825)) + (let () (declare (not safe)) (gx#identifier? _L27749_)) + (let () + (declare (not safe)) + (gxc#runtime-identifier=? _L27748_ 'apply)) + (fx= (length (let ((__tmp36823 + (lambda (_g2780027803_ _g2780127805_) + (let () + (declare (not safe)) + (cons _g2780027803_ + _g2780127805_))))) + (declare (not safe)) + (foldr1 __tmp36823 '() _L27750_))) + (length (let ((__tmp36824 + (lambda (_g2780727810_ _g2780827812_) + (let () + (declare (not safe)) + (cons _g2780727810_ + _g2780827812_))))) + (declare (not safe)) + (foldr1 __tmp36824 '() _L27746_)))) + (let ((__tmp36821 + (let ((__tmp36822 + (lambda (_g2781427817_ _g2781527819_) + (let () + (declare (not safe)) + (cons _g2781427817_ _g2781527819_))))) + (declare (not safe)) + (foldr1 __tmp36822 '() _L27750_))) + (__tmp36819 + (let ((__tmp36820 + (lambda (_g2782127824_ _g2782227826_) + (let () + (declare (not safe)) + (cons _g2782127824_ _g2782227826_))))) + (declare (not safe)) + (foldr1 __tmp36820 '() _L27746_)))) + (declare (not safe)) + (andmap2 gx#free-identifier=? __tmp36821 __tmp36819)) + (let () + (declare (not safe)) + (gx#free-identifier=? _L27749_ _L27745_)) + (let ((__tmp36814 + (let ((__tmp36818 + (lambda (_g2782827830_) + (let () + (declare (not safe)) + (gx#free-identifier=? + _g2782827830_ + _L27747_)))) + (__tmp36815 + (let ((__tmp36817 + (lambda (_g2783227835_ _g2783327837_) + (let () + (declare (not safe)) + (cons _g2783227835_ + _g2783327837_)))) + (__tmp36816 + (let () + (declare (not safe)) + (cons _L27749_ '())))) + (declare (not safe)) + (foldr1 __tmp36817 __tmp36816 _L27750_)))) + (declare (not safe)) + (find __tmp36818 __tmp36815)))) + (declare (not safe)) + (not __tmp36814))) + (___kont3536335364_ + _L27745_ + _L27746_ + _L27747_ + _L27748_ + _L27749_ + _L27750_) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_))))))) + (let () + (declare (not safe)) + (_loop2736827710_ _target2736527681_ '()))) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)))) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)))) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)))) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)))) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)) + (___match3546835469_ + _e2733127585_ + _hd2733027588_ + _tl2732927590_ + _e2734327617_ + _hd2734227620_ + _tl2734127622_ + _e2734627625_ + _hd2734527628_ + _tl2734427630_ + _e2734927633_ + _hd2734827636_ + _tl2734727638_ + _e2735227641_ + _hd2735127644_ + _tl2735027646_ + _e2735527649_ + _hd2735427652_ + _tl2735327654_ + _e2735827657_ + _hd2735727660_ + _tl2735627662_ + _e2736127665_ + _hd2736027668_ + _tl2735927670_ + _e2736427673_ + _hd2736327676_ + _tl2736227678_)) + (___kont3537135372_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3537135372_)) + (___kont3537135372_)) + (___kont3537135372_)))) + (___kont3537135372_)))) + (___kont3537135372_)) + (___kont3537135372_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3537135372_)) + (___kont3537135372_)) + (___kont3537135372_)))) + (___kont3537135372_)))) + (___kont3537135372_)) + (___kont3537135372_)) + (___kont3537135372_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3537135372_)))) + (___kont3537135372_))))))) + (let () + (declare (not safe)) + (_loop2733527598_ _target2733227593_ '()))))) + (___match3538635387_ + (lambda (_e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_) + (letrec ((_loop2728727858_ + (lambda (_hd2728527861_ _arg2729127863_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2728527861_)) + (let ((_e2728827866_ + (let () + (declare (not safe)) + (gx#stx-e _hd2728527861_)))) + (let ((_lp-tl2729027871_ + (let () (declare (not safe)) - (##cdr _e2512525703_))) - (_lp-hd2512625706_ + (##cdr _e2728827866_))) + (_lp-hd2728927869_ (let () (declare (not safe)) - (##car _e2512525703_)))) - (_loop2512425695_ - _lp-tl2512725708_ - (cons _lp-hd2512625706_ - _arg2512825700_)))) - (let ((_arg2512925711_ - (reverse _arg2512825700_))) - (if (gx#stx-pair? _tl2512025687_) - (let ((_e2513025714_ - (gx#stx-e _tl2512025687_))) - (let ((_tl2513225719_ + (##car _e2728827866_)))) + (let ((__tmp36842 + (let () + (declare (not safe)) + (cons _lp-hd2728927869_ + _arg2729127863_)))) + (declare (not safe)) + (_loop2728727858_ + _lp-tl2729027871_ + __tmp36842)))) + (let ((_arg2729227874_ + (let () + (declare (not safe)) + (reverse _arg2729127863_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2728127850_)) + (let ((_e2729527877_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2728127850_)))) + (let ((_tl2729327882_ (let () (declare (not safe)) - (##cdr _e2513025714_))) - (_hd2513125717_ + (##cdr _e2729527877_))) + (_hd2729427880_ (let () (declare (not safe)) - (##car _e2513025714_)))) - (if (gx#stx-pair? - _hd2513125717_) - (let ((_e2513325722_ - (gx#stx-e - _hd2513125717_))) - (let ((_tl2513525727_ + (##car _e2729527877_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2729427880_)) + (let ((_e2729827885_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd2729427880_)))) + (let ((_tl2729627890_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2513325722_))) - (_hd2513425725_ - (let () (declare (not safe)) (##car _e2513325722_)))) - (if (gx#identifier? _hd2513425725_) - (if (gx#stx-eq? '%#call _hd2513425725_) - (if (gx#stx-pair? _tl2513525727_) - (let ((_e2513625730_ (gx#stx-e _tl2513525727_))) - (let ((_tl2513825735_ + (##cdr _e2729827885_))) + (_hd2729727888_ + (let () (declare (not safe)) (##car _e2729827885_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2729727888_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd2729727888_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2729627890_)) + (let ((_e2730127893_ + (let () + (declare (not safe)) + (gx#stx-e _tl2729627890_)))) + (let ((_tl2729927898_ (let () (declare (not safe)) - (##cdr _e2513625730_))) - (_hd2513725733_ + (##cdr _e2730127893_))) + (_hd2730027896_ (let () (declare (not safe)) - (##car _e2513625730_)))) - (if (gx#stx-pair? _hd2513725733_) - (let ((_e2513925738_ - (gx#stx-e _hd2513725733_))) - (let ((_tl2514125743_ + (##car _e2730127893_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2730027896_)) + (let ((_e2730427901_ + (let () + (declare (not safe)) + (gx#stx-e _hd2730027896_)))) + (let ((_tl2730227906_ (let () (declare (not safe)) - (##cdr _e2513925738_))) - (_hd2514025741_ + (##cdr _e2730427901_))) + (_hd2730327904_ (let () (declare (not safe)) - (##car _e2513925738_)))) - (if (gx#identifier? _hd2514025741_) - (if (gx#stx-eq? - '%#ref - _hd2514025741_) - (if (gx#stx-pair? - _tl2514125743_) - (let ((_e2514225746_ - (gx#stx-e - _tl2514125743_))) - (let ((_tl2514425751_ + (##car _e2730427901_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2730327904_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd2730327904_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2730227906_)) + (let ((_e2730727909_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2730227906_)))) + (let ((_tl2730527914_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2514225746_))) - (_hd2514325749_ - (let () (declare (not safe)) (##car _e2514225746_)))) - (if (gx#stx-null? _tl2514425751_) - (if (gx#stx-pair/null? _tl2513825735_) - (let ((___splice3319833199_ - (gx#syntax-split-splice _tl2513825735_ '0))) - (let ((_tl2514725756_ + (##cdr _e2730727909_))) + (_hd2730627912_ + (let () (declare (not safe)) (##car _e2730727909_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl2730527914_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl2729927898_)) + (let ((___splice3536135362_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl2729927898_ '0)))) + (let ((_tl2731027919_ (let () (declare (not safe)) - (##vector-ref ___splice3319833199_ '1))) - (_target2514525754_ + (##vector-ref ___splice3536135362_ '1))) + (_target2730827917_ (let () (declare (not safe)) - (##vector-ref ___splice3319833199_ '0)))) - (if (gx#stx-null? _tl2514725756_) - (letrec ((_loop2514825759_ - (lambda (_hd2514625762_ - _xarg2515225764_) - (if (gx#stx-pair? _hd2514625762_) - (let ((_e2514925767_ - (gx#stx-e - _hd2514625762_))) - (let ((_lp-tl2515125772_ + (##vector-ref ___splice3536135362_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2731027919_)) + (letrec ((_loop2731127922_ + (lambda (_hd2730927925_ + _xarg2731527927_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2730927925_)) + (let ((_e2731227930_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2730927925_)))) + (let ((_lp-tl2731427935_ (let () (declare (not safe)) - (##cdr _e2514925767_))) - (_lp-hd2515025770_ + (##cdr _e2731227930_))) + (_lp-hd2731327933_ (let () (declare (not safe)) - (##car _e2514925767_)))) - (if (gx#stx-pair? - _lp-hd2515025770_) - (let ((_e2515425775_ - (gx#stx-e - _lp-hd2515025770_))) - (let ((_tl2515625780_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e2515425775_))) - (_hd2515525778_ - (let () (declare (not safe)) (##car _e2515425775_)))) - (if (gx#identifier? _hd2515525778_) - (if (gx#stx-eq? '%#ref _hd2515525778_) - (if (gx#stx-pair? _tl2515625780_) - (let ((_e2515725783_ - (gx#stx-e _tl2515625780_))) - (let ((_tl2515925788_ + (##car _e2731227930_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _lp-hd2731327933_)) + (let ((_e2731927938_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _lp-hd2731327933_)))) + (let ((_tl2731727943_ + (let () (declare (not safe)) (##cdr _e2731927938_))) + (_hd2731827941_ + (let () (declare (not safe)) (##car _e2731927938_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2731827941_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2731827941_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2731727943_)) + (let ((_e2732227946_ + (let () + (declare (not safe)) + (gx#stx-e _tl2731727943_)))) + (let ((_tl2732027951_ + (let () + (declare (not safe)) + (##cdr _e2732227946_))) + (_hd2732127949_ + (let () + (declare (not safe)) + (##car _e2732227946_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2732027951_)) + (let ((__tmp36841 + (let () + (declare (not safe)) + (cons _hd2732127949_ + _xarg2731527927_)))) + (declare (not safe)) + (_loop2731127922_ + _lp-tl2731427935_ + __tmp36841)) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)))) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)))) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg2731627954_ + (let () + (declare (not safe)) + (reverse _xarg2731527927_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2729327882_)) + (let ((_L27957_ + _xarg2731627954_) + (_L27958_ + _hd2730627912_) + (_L27959_ + _arg2729227874_)) + (if (and (let ((__tmp36839 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp36840 + (lambda (_g2798727990_ _g2798827992_) + (let () + (declare (not safe)) + (cons _g2798727990_ + _g2798827992_))))) + (declare (not safe)) + (foldr1 __tmp36840 '() _L27959_)))) + (declare (not safe)) + (gx#identifier-list? __tmp36839)) + (fx= (length (let ((__tmp36837 + (lambda (_g2799427997_ + _g2799527999_) + (let () + (declare (not safe)) + (cons _g2799427997_ + _g2799527999_))))) + (declare (not safe)) + (foldr1 __tmp36837 '() _L27959_))) + (length (let ((__tmp36838 + (lambda (_g2800128004_ + _g2800228006_) + (let () + (declare (not safe)) + (cons _g2800128004_ + _g2800228006_))))) + (declare (not safe)) + (foldr1 __tmp36838 '() _L27957_)))) + (let ((__tmp36835 + (let ((__tmp36836 + (lambda (_g2800828011_ _g2800928013_) + (let () + (declare (not safe)) + (cons _g2800828011_ + _g2800928013_))))) + (declare (not safe)) + (foldr1 __tmp36836 '() _L27959_))) + (__tmp36833 + (let ((__tmp36834 + (lambda (_g2801528018_ _g2801628020_) (let () (declare (not safe)) - (##cdr _e2515725783_))) - (_hd2515825786_ + (cons _g2801528018_ + _g2801628020_))))) + (declare (not safe)) + (foldr1 __tmp36834 '() _L27957_)))) + (declare (not safe)) + (andmap2 gx#free-identifier=? + __tmp36835 + __tmp36833)) + (let ((__tmp36829 + (let ((__tmp36832 + (lambda (_g2802228024_) (let () (declare (not safe)) - (##car _e2515725783_)))) - (if (gx#stx-null? _tl2515925788_) - (_loop2514825759_ - _lp-tl2515125772_ - (cons _hd2515825786_ - _xarg2515225764_)) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)))) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)))) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg2515325791_ - (reverse _xarg2515225764_))) - (if (gx#stx-null? - _tl2513225719_) - (let ((_L25794_ - _xarg2515325791_) - (_L25795_ - _hd2514325749_) - (_L25796_ - _arg2512925711_)) - (if (and (gx#identifier-list? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr1 (lambda (_g2582425827_ _g2582525829_) - (cons _g2582425827_ _g2582525829_)) - '() - _L25796_)) - (fx= (length (foldr1 (lambda (_g2583125834_ - _g2583225836_) - (cons _g2583125834_ - _g2583225836_)) - '() - _L25796_)) - (length (foldr1 (lambda (_g2583825841_ - _g2583925843_) - (cons _g2583825841_ - _g2583925843_)) - '() - _L25794_))) - (andmap2 gx#free-identifier=? - (foldr1 (lambda (_g2584525848_ _g2584625850_) - (cons _g2584525848_ _g2584625850_)) - '() - _L25796_) - (foldr1 (lambda (_g2585225855_ _g2585325857_) - (cons _g2585225855_ _g2585325857_)) - '() - _L25794_)) - (not (find (lambda (_g2585925861_) - (gx#free-identifier=? - _g2585925861_ - _L25795_)) - (foldr1 (lambda (_g2586325866_ - _g2586425868_) - (cons _g2586325866_ - _g2586425868_)) - '() - _L25796_)))) - (___kont3319433195_ _L25794_ _L25795_ _L25796_) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_))) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop2514825759_ _target2514525754_ '())) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)))) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)))) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)))) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)))) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_))))))) - (_loop2512425695_ _target2512125690_ '()))))) - (if (gx#stx-pair? ___stx3319233193_) - (let ((_e2511825682_ (gx#stx-e ___stx3319233193_))) - (let ((_tl2512025687_ - (let () (declare (not safe)) (##cdr _e2511825682_))) - (_hd2511925685_ + (gx#free-identifier=? + _g2802228024_ + _L27958_)))) + (__tmp36830 + (let ((__tmp36831 + (lambda (_g2802628029_ + _g2802728031_) + (let () + (declare (not safe)) + (cons _g2802628029_ + _g2802728031_))))) + (declare (not safe)) + (foldr1 __tmp36831 '() _L27959_)))) + (declare (not safe)) + (find __tmp36832 __tmp36830)))) + (declare (not safe)) + (not __tmp36829))) + (___kont3535735358_ _L27957_ _L27958_ _L27959_) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_))) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop2731127922_ _target2730827917_ '()))) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)))) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)))) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)))) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)))) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_))))))) + (let () + (declare (not safe)) + (_loop2728727858_ _target2728427853_ '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3535535356_)) + (let ((_e2728327845_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3535535356_)))) + (let ((_tl2728127850_ + (let () (declare (not safe)) (##cdr _e2728327845_))) + (_hd2728227848_ (let () (declare (not safe)) - (##car _e2511825682_)))) - (if (gx#stx-pair/null? _hd2511925685_) - (let ((___splice3319633197_ - (gx#syntax-split-splice _hd2511925685_ '0))) - (let ((_tl2512325692_ + (##car _e2728327845_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd2728227848_)) + (let ((___splice3535935360_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd2728227848_ + '0)))) + (let ((_tl2728627855_ (let () (declare (not safe)) - (##vector-ref ___splice3319633197_ '1))) - (_target2512125690_ + (##vector-ref ___splice3535935360_ '1))) + (_target2728427853_ (let () (declare (not safe)) - (##vector-ref ___splice3319633197_ '0)))) - (if (gx#stx-null? _tl2512325692_) - (___match3322333224_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_) - (___match3323533236_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - ___splice3319633197_ - _target2512125690_ - _tl2512325692_)))) - (if (gx#stx-pair? _tl2512025687_) - (let ((_e2523325290_ (gx#stx-e _tl2512025687_))) - (let ((_tl2523525295_ + (##vector-ref ___splice3535935360_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2728627855_)) + (___match3538635387_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_) + (___match3539835399_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + ___splice3535935360_ + _target2728427853_ + _tl2728627855_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2728127850_)) + (let ((_e2739827453_ + (let () + (declare (not safe)) + (gx#stx-e _tl2728127850_)))) + (let ((_tl2739627458_ (let () (declare (not safe)) - (##cdr _e2523325290_))) - (_hd2523425293_ + (##cdr _e2739827453_))) + (_hd2739727456_ (let () (declare (not safe)) - (##car _e2523325290_)))) - (if (gx#stx-pair? _hd2523425293_) - (let ((_e2523625298_ - (gx#stx-e _hd2523425293_))) - (let ((_tl2523825303_ + (##car _e2739827453_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2739727456_)) + (let ((_e2740127461_ + (let () + (declare (not safe)) + (gx#stx-e _hd2739727456_)))) + (let ((_tl2739927466_ (let () (declare (not safe)) - (##cdr _e2523625298_))) - (_hd2523725301_ + (##cdr _e2740127461_))) + (_hd2740027464_ (let () (declare (not safe)) - (##car _e2523625298_)))) - (if (gx#identifier? _hd2523725301_) - (if (gx#stx-eq? - '%#call - _hd2523725301_) - (if (gx#stx-pair? - _tl2523825303_) - (let ((_e2523925306_ - (gx#stx-e - _tl2523825303_))) - (let ((_tl2524125311_ - (let () + (##car _e2740127461_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd2740027464_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd2740027464_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2739927466_)) + (let ((_e2740427469_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2523925306_))) - (_hd2524025309_ - (let () (declare (not safe)) (##car _e2523925306_)))) - (if (gx#stx-pair? _hd2524025309_) - (let ((_e2524225314_ (gx#stx-e _hd2524025309_))) - (let ((_tl2524425319_ + (not safe)) + (gx#stx-e _tl2739927466_)))) + (let ((_tl2740227474_ + (let () (declare (not safe)) (##cdr _e2740427469_))) + (_hd2740327472_ + (let () (declare (not safe)) (##car _e2740427469_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2740327472_)) + (let ((_e2740727477_ + (let () + (declare (not safe)) + (gx#stx-e _hd2740327472_)))) + (let ((_tl2740527482_ (let () (declare (not safe)) - (##cdr _e2524225314_))) - (_hd2524325317_ + (##cdr _e2740727477_))) + (_hd2740627480_ (let () (declare (not safe)) - (##car _e2524225314_)))) - (if (gx#identifier? _hd2524325317_) - (if (gx#stx-eq? '%#ref _hd2524325317_) - (if (gx#stx-pair? _tl2524425319_) - (let ((_e2524525322_ - (gx#stx-e _tl2524425319_))) - (let ((_tl2524725327_ + (##car _e2740727477_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2740627480_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2740627480_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2740527482_)) + (let ((_e2741027485_ + (let () + (declare (not safe)) + (gx#stx-e _tl2740527482_)))) + (let ((_tl2740827490_ (let () (declare (not safe)) - (##cdr _e2524525322_))) - (_hd2524625325_ + (##cdr _e2741027485_))) + (_hd2740927488_ (let () (declare (not safe)) - (##car _e2524525322_)))) - (if (gx#stx-null? _tl2524725327_) - (if (gx#stx-pair? _tl2524125311_) - (let ((_e2524825330_ - (gx#stx-e - _tl2524125311_))) - (let ((_tl2525025335_ + (##car _e2741027485_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2740827490_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2740227474_)) + (let ((_e2741327493_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2740227474_)))) + (let ((_tl2741127498_ (let () (declare (not safe)) - (##cdr _e2524825330_))) - (_hd2524925333_ + (##cdr _e2741327493_))) + (_hd2741227496_ (let () (declare (not safe)) - (##car _e2524825330_)))) - (if (gx#stx-pair? - _hd2524925333_) - (let ((_e2525125338_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd2524925333_))) - (let ((_tl2525325343_ - (let () (declare (not safe)) (##cdr _e2525125338_))) - (_hd2525225341_ + (##car _e2741327493_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd2741227496_)) + (let ((_e2741627501_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd2741227496_)))) + (let ((_tl2741427506_ + (let () (declare (not safe)) (##cdr _e2741627501_))) + (_hd2741527504_ (let () (declare (not safe)) - (##car _e2525125338_)))) - (if (gx#identifier? _hd2525225341_) - (if (gx#stx-eq? '%#ref _hd2525225341_) - (if (gx#stx-pair? _tl2525325343_) - (let ((_e2525425346_ - (gx#stx-e _tl2525325343_))) - (let ((_tl2525625351_ + (##car _e2741627501_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2741527504_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2741527504_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2741427506_)) + (let ((_e2741927509_ + (let () + (declare (not safe)) + (gx#stx-e _tl2741427506_)))) + (let ((_tl2741727514_ (let () (declare (not safe)) - (##cdr _e2525425346_))) - (_hd2525525349_ + (##cdr _e2741927509_))) + (_hd2741827512_ (let () (declare (not safe)) - (##car _e2525425346_)))) - (if (gx#stx-null? _tl2525625351_) - (if (gx#stx-pair? _tl2525025335_) - (let ((_e2525725354_ - (gx#stx-e - _tl2525025335_))) - (let ((_tl2525925359_ + (##car _e2741927509_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2741727514_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2741127498_)) + (let ((_e2742227517_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2741127498_)))) + (let ((_tl2742027522_ (let () (declare (not safe)) - (##cdr _e2525725354_))) - (_hd2525825357_ + (##cdr _e2742227517_))) + (_hd2742127520_ (let () (declare (not safe)) - (##car _e2525725354_)))) - (if (gx#stx-pair? - _hd2525825357_) - (let ((_e2526025362_ - (gx#stx-e - _hd2525825357_))) - (let ((_tl2526225367_ - (let () + (##car _e2742227517_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2742127520_)) + (let ((_e2742527525_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2526025362_))) - (_hd2526125365_ - (let () (declare (not safe)) (##car _e2526025362_)))) - (if (gx#identifier? _hd2526125365_) - (if (gx#stx-eq? '%#ref _hd2526125365_) - (if (gx#stx-pair? _tl2526225367_) - (let ((_e2526325370_ (gx#stx-e _tl2526225367_))) - (let ((_tl2526525375_ + (not safe)) + (gx#stx-e _hd2742127520_)))) + (let ((_tl2742327530_ + (let () (declare (not safe)) (##cdr _e2742527525_))) + (_hd2742427528_ + (let () (declare (not safe)) (##car _e2742527525_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2742427528_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2742427528_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2742327530_)) + (let ((_e2742827533_ + (let () + (declare (not safe)) + (gx#stx-e _tl2742327530_)))) + (let ((_tl2742627538_ (let () (declare (not safe)) - (##cdr _e2526325370_))) - (_hd2526425373_ + (##cdr _e2742827533_))) + (_hd2742727536_ (let () (declare (not safe)) - (##car _e2526325370_)))) - (if (gx#stx-null? _tl2526525375_) - (if (gx#stx-null? _tl2525925359_) - (if (gx#stx-null? _tl2523525295_) - (___match3333333334_ - _e2511825682_ - _hd2511925685_ - _tl2512025687_ - _e2523325290_ - _hd2523425293_ - _tl2523525295_ - _e2523625298_ - _hd2523725301_ - _tl2523825303_ - _e2523925306_ - _hd2524025309_ - _tl2524125311_ - _e2524225314_ - _hd2524325317_ - _tl2524425319_ - _e2524525322_ - _hd2524625325_ - _tl2524725327_ - _e2524825330_ - _hd2524925333_ - _tl2525025335_ - _e2525125338_ - _hd2525225341_ - _tl2525325343_ - _e2525425346_ - _hd2525525349_ - _tl2525625351_ - _e2525725354_ - _hd2525825357_ - _tl2525925359_ - _e2526025362_ - _hd2526125365_ - _tl2526225367_ - _e2526325370_ - _hd2526425373_ - _tl2526525375_) - (___kont3320833209_)) - (___kont3320833209_)) - (___kont3320833209_)))) - (___kont3320833209_)) - (___kont3320833209_)) - (___kont3320833209_)))) - (___kont3320833209_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3320833209_)) - (___kont3320833209_)))) - (___kont3320833209_)) - (___kont3320833209_)) - (___kont3320833209_)))) - (___kont3320833209_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3320833209_)) - (___kont3320833209_)))) - (___kont3320833209_)) - (___kont3320833209_)) - (___kont3320833209_)))) - (___kont3320833209_)))) - (___kont3320833209_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3320833209_)) - (___kont3320833209_)))) - (___kont3320833209_)))) - (___kont3320833209_))))) - (___kont3320833209_))))))) + (##car _e2742827533_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2742627538_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2742027522_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2739627458_)) + (___match3549635497_ + _e2728327845_ + _hd2728227848_ + _tl2728127850_ + _e2739827453_ + _hd2739727456_ + _tl2739627458_ + _e2740127461_ + _hd2740027464_ + _tl2739927466_ + _e2740427469_ + _hd2740327472_ + _tl2740227474_ + _e2740727477_ + _hd2740627480_ + _tl2740527482_ + _e2741027485_ + _hd2740927488_ + _tl2740827490_ + _e2741327493_ + _hd2741227496_ + _tl2741127498_ + _e2741627501_ + _hd2741527504_ + _tl2741427506_ + _e2741927509_ + _hd2741827512_ + _tl2741727514_ + _e2742227517_ + _hd2742127520_ + _tl2742027522_ + _e2742527525_ + _hd2742427528_ + _tl2742327530_ + _e2742827533_ + _hd2742727536_ + _tl2742627538_) + (___kont3537135372_)) + (___kont3537135372_)) + (___kont3537135372_)))) + (___kont3537135372_)) + (___kont3537135372_)) + (___kont3537135372_)))) + (___kont3537135372_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3537135372_)) + (___kont3537135372_)))) + (___kont3537135372_)) + (___kont3537135372_)) + (___kont3537135372_)))) + (___kont3537135372_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3537135372_)) + (___kont3537135372_)))) + (___kont3537135372_)) + (___kont3537135372_)) + (___kont3537135372_)))) + (___kont3537135372_)))) + (___kont3537135372_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3537135372_)) + (___kont3537135372_)))) + (___kont3537135372_)))) + (___kont3537135372_))))) + (___kont3537135372_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_form24576_) - (let* ((___stx3333633337_ _form24576_) - (_g2458024704_ + (lambda (_form26739_) + (let* ((___stx3549935500_ _form26739_) + (_g2674326867_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3333633337_)))) - (let ((___kont3333833339_ - (lambda (_L25074_ _L25075_ _L25076_) - (gxc#identifier-symbol _L25075_))) - (___kont3334433345_ - (lambda (_L24922_ _L24923_ _L24924_ _L24925_) - (gxc#identifier-symbol _L24922_))) - (___kont3334833349_ - (lambda (_L24789_ _L24790_ _L24791_) - (gxc#identifier-symbol _L24789_)))) - (let* ((___match3344533446_ - (lambda (_e2467024709_ - _hd2467124712_ - _tl2467224714_ - _e2467324717_ - _hd2467424720_ - _tl2467524722_ - _e2467624725_ - _hd2467724728_ - _tl2467824730_ - _e2467924733_ - _hd2468024736_ - _tl2468124738_ - _e2468224741_ - _hd2468324744_ - _tl2468424746_ - _e2468524749_ - _hd2468624752_ - _tl2468724754_ - _e2468824757_ - _hd2468924760_ - _tl2469024762_ - _e2469124765_ - _hd2469224768_ - _tl2469324770_ - _e2469424773_ - _hd2469524776_ - _tl2469624778_) - (if (gx#stx-pair? _tl2469024762_) - (let ((_e2469724781_ (gx#stx-e _tl2469024762_))) - (let ((_tl2469924786_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3549935500_))))) + (let ((___kont3550135502_ + (lambda (_L27237_ _L27238_ _L27239_) + (let () + (declare (not safe)) + (gxc#identifier-symbol _L27238_)))) + (___kont3550735508_ + (lambda (_L27085_ _L27086_ _L27087_ _L27088_) + (let () + (declare (not safe)) + (gxc#identifier-symbol _L27085_)))) + (___kont3551135512_ + (lambda (_L26952_ _L26953_ _L26954_) + (let () + (declare (not safe)) + (gxc#identifier-symbol _L26952_))))) + (let* ((___match3560835609_ + (lambda (_e2683526872_ + _hd2683426875_ + _tl2683326877_ + _e2683826880_ + _hd2683726883_ + _tl2683626885_ + _e2684126888_ + _hd2684026891_ + _tl2683926893_ + _e2684426896_ + _hd2684326899_ + _tl2684226901_ + _e2684726904_ + _hd2684626907_ + _tl2684526909_ + _e2685026912_ + _hd2684926915_ + _tl2684826917_ + _e2685326920_ + _hd2685226923_ + _tl2685126925_ + _e2685626928_ + _hd2685526931_ + _tl2685426933_ + _e2685926936_ + _hd2685826939_ + _tl2685726941_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2685126925_)) + (let ((_e2686226944_ + (let () + (declare (not safe)) + (gx#stx-e _tl2685126925_)))) + (let ((_tl2686026949_ (let () (declare (not safe)) - (##cdr _e2469724781_))) - (_hd2469824784_ + (##cdr _e2686226944_))) + (_hd2686126947_ (let () (declare (not safe)) - (##car _e2469724781_)))) - (if (gx#stx-null? _tl2469924786_) - (if (gx#stx-null? _tl2467524722_) - (___kont3334833349_ - _hd2469524776_ - _hd2468624752_ - _hd2467124712_) - (_g2458024704_)) - (_g2458024704_)))) - (_g2458024704_)))) - (___match3337533376_ - (lambda (_e2463124826_ - _hd2463224829_ - _tl2463324831_ - ___splice3334633347_ - _target2463424834_ - _tl2463624836_) - (letrec ((_loop2463724839_ - (lambda (_hd2463524842_ _arg2464124844_) - (if (gx#stx-pair? _hd2463524842_) - (let ((_e2463824847_ - (gx#stx-e _hd2463524842_))) - (let ((_lp-tl2464024852_ + (##car _e2686226944_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2686026949_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2683626885_)) + (___kont3551135512_ + _hd2685826939_ + _hd2684926915_ + _hd2683426875_) + (let () + (declare (not safe)) + (_g2674326867_))) + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () (declare (not safe)) (_g2674326867_))))) + (___match3553835539_ + (lambda (_e2679626989_ + _hd2679526992_ + _tl2679426994_ + ___splice3550935510_ + _target2679726997_ + _tl2679926999_) + (letrec ((_loop2680027002_ + (lambda (_hd2679827005_ _arg2680427007_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2679827005_)) + (let ((_e2680127010_ + (let () + (declare (not safe)) + (gx#stx-e _hd2679827005_)))) + (let ((_lp-tl2680327015_ (let () (declare (not safe)) - (##cdr _e2463824847_))) - (_lp-hd2463924850_ + (##cdr _e2680127010_))) + (_lp-hd2680227013_ (let () (declare (not safe)) - (##car _e2463824847_)))) - (_loop2463724839_ - _lp-tl2464024852_ - (cons _lp-hd2463924850_ - _arg2464124844_)))) - (let ((_arg2464224855_ - (reverse _arg2464124844_))) - (if (gx#stx-pair? _tl2463324831_) - (let ((_e2464324858_ - (gx#stx-e _tl2463324831_))) - (let ((_tl2464524863_ + (##car _e2680127010_)))) + (let ((__tmp36843 + (let () + (declare (not safe)) + (cons _lp-hd2680227013_ + _arg2680427007_)))) + (declare (not safe)) + (_loop2680027002_ + _lp-tl2680327015_ + __tmp36843)))) + (let ((_arg2680527018_ + (let () + (declare (not safe)) + (reverse _arg2680427007_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2679426994_)) + (let ((_e2680827021_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2679426994_)))) + (let ((_tl2680627026_ (let () (declare (not safe)) - (##cdr _e2464324858_))) - (_hd2464424861_ + (##cdr _e2680827021_))) + (_hd2680727024_ (let () (declare (not safe)) - (##car _e2464324858_)))) - (if (gx#stx-pair? - _hd2464424861_) - (let ((_e2464624866_ - (gx#stx-e - _hd2464424861_))) - (let ((_tl2464824871_ + (##car _e2680827021_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2680727024_)) + (let ((_e2681127029_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd2680727024_)))) + (let ((_tl2680927034_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2464624866_))) - (_hd2464724869_ - (let () (declare (not safe)) (##car _e2464624866_)))) - (if (gx#identifier? _hd2464724869_) - (if (gx#stx-eq? '%#call _hd2464724869_) - (if (gx#stx-pair? _tl2464824871_) - (let ((_e2464924874_ (gx#stx-e _tl2464824871_))) - (let ((_tl2465124879_ + (##cdr _e2681127029_))) + (_hd2681027032_ + (let () (declare (not safe)) (##car _e2681127029_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2681027032_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd2681027032_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2680927034_)) + (let ((_e2681427037_ + (let () + (declare (not safe)) + (gx#stx-e _tl2680927034_)))) + (let ((_tl2681227042_ (let () (declare (not safe)) - (##cdr _e2464924874_))) - (_hd2465024877_ + (##cdr _e2681427037_))) + (_hd2681327040_ (let () (declare (not safe)) - (##car _e2464924874_)))) - (if (gx#stx-pair? _hd2465024877_) - (let ((_e2465224882_ - (gx#stx-e _hd2465024877_))) - (let ((_tl2465424887_ + (##car _e2681427037_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2681327040_)) + (let ((_e2681727045_ + (let () + (declare (not safe)) + (gx#stx-e _hd2681327040_)))) + (let ((_tl2681527050_ (let () (declare (not safe)) - (##cdr _e2465224882_))) - (_hd2465324885_ + (##cdr _e2681727045_))) + (_hd2681627048_ (let () (declare (not safe)) - (##car _e2465224882_)))) - (if (gx#identifier? _hd2465324885_) - (if (gx#stx-eq? - '%#ref - _hd2465324885_) - (if (gx#stx-pair? - _tl2465424887_) - (let ((_e2465524890_ - (gx#stx-e - _tl2465424887_))) - (let ((_tl2465724895_ + (##car _e2681727045_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2681627048_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd2681627048_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2681527050_)) + (let ((_e2682027053_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2681527050_)))) + (let ((_tl2681827058_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2465524890_))) - (_hd2465624893_ - (let () (declare (not safe)) (##car _e2465524890_)))) - (if (gx#stx-null? _tl2465724895_) - (if (gx#stx-pair? _tl2465124879_) - (let ((_e2465824898_ (gx#stx-e _tl2465124879_))) - (let ((_tl2466024903_ + (##cdr _e2682027053_))) + (_hd2681927056_ + (let () (declare (not safe)) (##car _e2682027053_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl2681827058_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2681227042_)) + (let ((_e2682327061_ + (let () + (declare (not safe)) + (gx#stx-e _tl2681227042_)))) + (let ((_tl2682127066_ (let () (declare (not safe)) - (##cdr _e2465824898_))) - (_hd2465924901_ + (##cdr _e2682327061_))) + (_hd2682227064_ (let () (declare (not safe)) - (##car _e2465824898_)))) - (if (gx#stx-pair? _hd2465924901_) - (let ((_e2466124906_ - (gx#stx-e _hd2465924901_))) - (let ((_tl2466324911_ + (##car _e2682327061_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2682227064_)) + (let ((_e2682627069_ + (let () + (declare (not safe)) + (gx#stx-e _hd2682227064_)))) + (let ((_tl2682427074_ (let () (declare (not safe)) - (##cdr _e2466124906_))) - (_hd2466224909_ + (##cdr _e2682627069_))) + (_hd2682527072_ (let () (declare (not safe)) - (##car _e2466124906_)))) - (if (gx#identifier? _hd2466224909_) - (if (gx#stx-eq? '%#ref _hd2466224909_) - (if (gx#stx-pair? _tl2466324911_) - (let ((_e2466424914_ - (gx#stx-e - _tl2466324911_))) - (let ((_tl2466624919_ + (##car _e2682627069_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2682527072_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd2682527072_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2682427074_)) + (let ((_e2682927077_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2682427074_)))) + (let ((_tl2682727082_ (let () (declare (not safe)) - (##cdr _e2466424914_))) - (_hd2466524917_ + (##cdr _e2682927077_))) + (_hd2682827080_ (let () (declare (not safe)) - (##car _e2466424914_)))) - (if (gx#stx-null? - _tl2466624919_) - (if (gx#stx-null? - _tl2464524863_) - (___kont3334433345_ - _hd2466524917_ - _hd2465624893_ - _tl2463624836_ - _arg2464224855_) - (___match3344533446_ - _e2463124826_ - _hd2463224829_ - _tl2463324831_ - _e2464324858_ - _hd2464424861_ - _tl2464524863_ - _e2464624866_ - _hd2464724869_ - _tl2464824871_ - _e2464924874_ - _hd2465024877_ - _tl2465124879_ - _e2465224882_ - _hd2465324885_ - _tl2465424887_ - _e2465524890_ - _hd2465624893_ - _tl2465724895_ - _e2465824898_ - _hd2465924901_ - _tl2466024903_ - _e2466124906_ - _hd2466224909_ - _tl2466324911_ - _e2466424914_ - _hd2466524917_ - _tl2466624919_)) - (_g2458024704_)))) - (_g2458024704_)) - (_g2458024704_)) - (_g2458024704_)))) - (_g2458024704_)))) - (_g2458024704_)) - (_g2458024704_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2458024704_)) - (_g2458024704_)) - (_g2458024704_)))) - (_g2458024704_)))) - (_g2458024704_)) - (_g2458024704_)) - (_g2458024704_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2458024704_)))) - (_g2458024704_))))))) - (_loop2463724839_ _target2463424834_ '())))) - (___match3336333364_ - (lambda (_e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_) - (letrec ((_loop2459124975_ - (lambda (_hd2458924978_ _arg2459524980_) - (if (gx#stx-pair? _hd2458924978_) - (let ((_e2459224983_ - (gx#stx-e _hd2458924978_))) - (let ((_lp-tl2459424988_ + (##car _e2682927077_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2682727082_)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2680627026_)) + (___kont3550735508_ + _hd2682827080_ + _hd2681927056_ + _tl2679926999_ + _arg2680527018_) + (___match3560835609_ + _e2679626989_ + _hd2679526992_ + _tl2679426994_ + _e2680827021_ + _hd2680727024_ + _tl2680627026_ + _e2681127029_ + _hd2681027032_ + _tl2680927034_ + _e2681427037_ + _hd2681327040_ + _tl2681227042_ + _e2681727045_ + _hd2681627048_ + _tl2681527050_ + _e2682027053_ + _hd2681927056_ + _tl2681827058_ + _e2682327061_ + _hd2682227064_ + _tl2682127066_ + _e2682627069_ + _hd2682527072_ + _tl2682427074_ + _e2682927077_ + _hd2682827080_ + _tl2682727082_)) + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () + (declare (not safe)) + (_g2674326867_))) + (let () + (declare (not safe)) + (_g2674326867_))) + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () (declare (not safe)) (_g2674326867_))) + (let () (declare (not safe)) (_g2674326867_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2674326867_))) + (let () + (declare (not safe)) + (_g2674326867_))) + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () (declare (not safe)) (_g2674326867_))) + (let () (declare (not safe)) (_g2674326867_))) + (let () (declare (not safe)) (_g2674326867_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () + (declare (not safe)) + (_g2674326867_)))))))) + (let () + (declare (not safe)) + (_loop2680027002_ _target2679726997_ '()))))) + (___match3552635527_ + (lambda (_e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_) + (letrec ((_loop2675427138_ + (lambda (_hd2675227141_ _arg2675827143_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2675227141_)) + (let ((_e2675527146_ + (let () + (declare (not safe)) + (gx#stx-e _hd2675227141_)))) + (let ((_lp-tl2675727151_ (let () (declare (not safe)) - (##cdr _e2459224983_))) - (_lp-hd2459324986_ + (##cdr _e2675527146_))) + (_lp-hd2675627149_ (let () (declare (not safe)) - (##car _e2459224983_)))) - (_loop2459124975_ - _lp-tl2459424988_ - (cons _lp-hd2459324986_ - _arg2459524980_)))) - (let ((_arg2459624991_ - (reverse _arg2459524980_))) - (if (gx#stx-pair? _tl2458724967_) - (let ((_e2459724994_ - (gx#stx-e _tl2458724967_))) - (let ((_tl2459924999_ + (##car _e2675527146_)))) + (let ((__tmp36845 + (let () + (declare (not safe)) + (cons _lp-hd2675627149_ + _arg2675827143_)))) + (declare (not safe)) + (_loop2675427138_ + _lp-tl2675727151_ + __tmp36845)))) + (let ((_arg2675927154_ + (let () + (declare (not safe)) + (reverse _arg2675827143_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2674827130_)) + (let ((_e2676227157_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2674827130_)))) + (let ((_tl2676027162_ (let () (declare (not safe)) - (##cdr _e2459724994_))) - (_hd2459824997_ + (##cdr _e2676227157_))) + (_hd2676127160_ (let () (declare (not safe)) - (##car _e2459724994_)))) - (if (gx#stx-pair? - _hd2459824997_) - (let ((_e2460025002_ - (gx#stx-e - _hd2459824997_))) - (let ((_tl2460225007_ + (##car _e2676227157_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2676127160_)) + (let ((_e2676527165_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd2676127160_)))) + (let ((_tl2676327170_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2460025002_))) - (_hd2460125005_ - (let () (declare (not safe)) (##car _e2460025002_)))) - (if (gx#identifier? _hd2460125005_) - (if (gx#stx-eq? '%#call _hd2460125005_) - (if (gx#stx-pair? _tl2460225007_) - (let ((_e2460325010_ (gx#stx-e _tl2460225007_))) - (let ((_tl2460525015_ + (##cdr _e2676527165_))) + (_hd2676427168_ + (let () (declare (not safe)) (##car _e2676527165_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2676427168_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd2676427168_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2676327170_)) + (let ((_e2676827173_ + (let () + (declare (not safe)) + (gx#stx-e _tl2676327170_)))) + (let ((_tl2676627178_ (let () (declare (not safe)) - (##cdr _e2460325010_))) - (_hd2460425013_ + (##cdr _e2676827173_))) + (_hd2676727176_ (let () (declare (not safe)) - (##car _e2460325010_)))) - (if (gx#stx-pair? _hd2460425013_) - (let ((_e2460625018_ - (gx#stx-e _hd2460425013_))) - (let ((_tl2460825023_ + (##car _e2676827173_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2676727176_)) + (let ((_e2677127181_ + (let () + (declare (not safe)) + (gx#stx-e _hd2676727176_)))) + (let ((_tl2676927186_ (let () (declare (not safe)) - (##cdr _e2460625018_))) - (_hd2460725021_ + (##cdr _e2677127181_))) + (_hd2677027184_ (let () (declare (not safe)) - (##car _e2460625018_)))) - (if (gx#identifier? _hd2460725021_) - (if (gx#stx-eq? - '%#ref - _hd2460725021_) - (if (gx#stx-pair? - _tl2460825023_) - (let ((_e2460925026_ - (gx#stx-e - _tl2460825023_))) - (let ((_tl2461125031_ + (##car _e2677127181_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2677027184_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd2677027184_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2676927186_)) + (let ((_e2677427189_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2676927186_)))) + (let ((_tl2677227194_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2460925026_))) - (_hd2461025029_ - (let () (declare (not safe)) (##car _e2460925026_)))) - (if (gx#stx-null? _tl2461125031_) - (if (gx#stx-pair/null? _tl2460525015_) - (let ((___splice3334233343_ - (gx#syntax-split-splice _tl2460525015_ '0))) - (let ((_tl2461425036_ + (##cdr _e2677427189_))) + (_hd2677327192_ + (let () (declare (not safe)) (##car _e2677427189_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl2677227194_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl2676627178_)) + (let ((___splice3550535506_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl2676627178_ '0)))) + (let ((_tl2677727199_ (let () (declare (not safe)) - (##vector-ref ___splice3334233343_ '1))) - (_target2461225034_ + (##vector-ref ___splice3550535506_ '1))) + (_target2677527197_ (let () (declare (not safe)) - (##vector-ref ___splice3334233343_ '0)))) - (if (gx#stx-null? _tl2461425036_) - (letrec ((_loop2461525039_ - (lambda (_hd2461325042_ - _xarg2461925044_) - (if (gx#stx-pair? _hd2461325042_) - (let ((_e2461625047_ - (gx#stx-e - _hd2461325042_))) - (let ((_lp-tl2461825052_ + (##vector-ref ___splice3550535506_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2677727199_)) + (letrec ((_loop2677827202_ + (lambda (_hd2677627205_ + _xarg2678227207_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2677627205_)) + (let ((_e2677927210_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2677627205_)))) + (let ((_lp-tl2678127215_ (let () (declare (not safe)) - (##cdr _e2461625047_))) - (_lp-hd2461725050_ + (##cdr _e2677927210_))) + (_lp-hd2678027213_ (let () (declare (not safe)) - (##car _e2461625047_)))) - (if (gx#stx-pair? - _lp-hd2461725050_) - (let ((_e2462125055_ - (gx#stx-e - _lp-hd2461725050_))) - (let ((_tl2462325060_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e2462125055_))) - (_hd2462225058_ - (let () (declare (not safe)) (##car _e2462125055_)))) - (if (gx#identifier? _hd2462225058_) - (if (gx#stx-eq? '%#ref _hd2462225058_) - (if (gx#stx-pair? _tl2462325060_) - (let ((_e2462425063_ - (gx#stx-e _tl2462325060_))) - (let ((_tl2462625068_ + (##car _e2677927210_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _lp-hd2678027213_)) + (let ((_e2678627218_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _lp-hd2678027213_)))) + (let ((_tl2678427223_ + (let () (declare (not safe)) (##cdr _e2678627218_))) + (_hd2678527221_ + (let () (declare (not safe)) (##car _e2678627218_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2678527221_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2678527221_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2678427223_)) + (let ((_e2678927226_ + (let () + (declare (not safe)) + (gx#stx-e _tl2678427223_)))) + (let ((_tl2678727231_ (let () (declare (not safe)) - (##cdr _e2462425063_))) - (_hd2462525066_ + (##cdr _e2678927226_))) + (_hd2678827229_ (let () (declare (not safe)) - (##car _e2462425063_)))) - (if (gx#stx-null? _tl2462625068_) - (_loop2461525039_ - _lp-tl2461825052_ - (cons _hd2462525066_ - _xarg2461925044_)) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)))) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)))) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg2462025071_ - (reverse _xarg2461925044_))) - (if (gx#stx-null? - _tl2459924999_) - (___kont3333833339_ - _xarg2462025071_ - _hd2461025029_ - _arg2459624991_) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_))))))) - (_loop2461525039_ _target2461225034_ '())) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)))) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)))) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)))) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)))) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_))))))) - (_loop2459124975_ _target2458824970_ '()))))) - (if (gx#stx-pair? ___stx3333633337_) - (let ((_e2458524962_ (gx#stx-e ___stx3333633337_))) - (let ((_tl2458724967_ - (let () (declare (not safe)) (##cdr _e2458524962_))) - (_hd2458624965_ + (##car _e2678927226_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2678727231_)) + (let ((__tmp36844 + (let () + (declare (not safe)) + (cons _hd2678827229_ + _xarg2678227207_)))) + (declare (not safe)) + (_loop2677827202_ + _lp-tl2678127215_ + __tmp36844)) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)))) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)))) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg2678327234_ + (let () + (declare (not safe)) + (reverse _xarg2678227207_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2676027162_)) + (___kont3550135502_ + _xarg2678327234_ + _hd2677327192_ + _arg2675927154_) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_))))))) + (let () + (declare (not safe)) + (_loop2677827202_ _target2677527197_ '()))) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)))) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)))) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)))) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)))) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_))))))) + (let () + (declare (not safe)) + (_loop2675427138_ _target2675127133_ '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3549935500_)) + (let ((_e2675027125_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3549935500_)))) + (let ((_tl2674827130_ + (let () (declare (not safe)) (##cdr _e2675027125_))) + (_hd2674927128_ (let () (declare (not safe)) - (##car _e2458524962_)))) - (if (gx#stx-pair/null? _hd2458624965_) - (let ((___splice3334033341_ - (gx#syntax-split-splice _hd2458624965_ '0))) - (let ((_tl2459024972_ + (##car _e2675027125_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd2674927128_)) + (let ((___splice3550335504_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd2674927128_ + '0)))) + (let ((_tl2675327135_ (let () (declare (not safe)) - (##vector-ref ___splice3334033341_ '1))) - (_target2458824970_ + (##vector-ref ___splice3550335504_ '1))) + (_target2675127133_ (let () (declare (not safe)) - (##vector-ref ___splice3334033341_ '0)))) - (if (gx#stx-null? _tl2459024972_) - (___match3336333364_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_) - (___match3337533376_ - _e2458524962_ - _hd2458624965_ - _tl2458724967_ - ___splice3334033341_ - _target2458824970_ - _tl2459024972_)))) - (if (gx#stx-pair? _tl2458724967_) - (let ((_e2467324717_ (gx#stx-e _tl2458724967_))) - (let ((_tl2467524722_ + (##vector-ref ___splice3550335504_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2675327135_)) + (___match3552635527_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_) + (___match3553835539_ + _e2675027125_ + _hd2674927128_ + _tl2674827130_ + ___splice3550335504_ + _target2675127133_ + _tl2675327135_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2674827130_)) + (let ((_e2683826880_ + (let () + (declare (not safe)) + (gx#stx-e _tl2674827130_)))) + (let ((_tl2683626885_ (let () (declare (not safe)) - (##cdr _e2467324717_))) - (_hd2467424720_ + (##cdr _e2683826880_))) + (_hd2683726883_ (let () (declare (not safe)) - (##car _e2467324717_)))) - (if (gx#stx-pair? _hd2467424720_) - (let ((_e2467624725_ - (gx#stx-e _hd2467424720_))) - (let ((_tl2467824730_ + (##car _e2683826880_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2683726883_)) + (let ((_e2684126888_ + (let () + (declare (not safe)) + (gx#stx-e _hd2683726883_)))) + (let ((_tl2683926893_ (let () (declare (not safe)) - (##cdr _e2467624725_))) - (_hd2467724728_ + (##cdr _e2684126888_))) + (_hd2684026891_ (let () (declare (not safe)) - (##car _e2467624725_)))) - (if (gx#identifier? _hd2467724728_) - (if (gx#stx-eq? - '%#call - _hd2467724728_) - (if (gx#stx-pair? - _tl2467824730_) - (let ((_e2467924733_ - (gx#stx-e - _tl2467824730_))) - (let ((_tl2468124738_ - (let () + (##car _e2684126888_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd2684026891_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd2684026891_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2683926893_)) + (let ((_e2684426896_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2467924733_))) - (_hd2468024736_ - (let () (declare (not safe)) (##car _e2467924733_)))) - (if (gx#stx-pair? _hd2468024736_) - (let ((_e2468224741_ (gx#stx-e _hd2468024736_))) - (let ((_tl2468424746_ + (not safe)) + (gx#stx-e _tl2683926893_)))) + (let ((_tl2684226901_ + (let () (declare (not safe)) (##cdr _e2684426896_))) + (_hd2684326899_ + (let () (declare (not safe)) (##car _e2684426896_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2684326899_)) + (let ((_e2684726904_ + (let () + (declare (not safe)) + (gx#stx-e _hd2684326899_)))) + (let ((_tl2684526909_ (let () (declare (not safe)) - (##cdr _e2468224741_))) - (_hd2468324744_ + (##cdr _e2684726904_))) + (_hd2684626907_ (let () (declare (not safe)) - (##car _e2468224741_)))) - (if (gx#identifier? _hd2468324744_) - (if (gx#stx-eq? '%#ref _hd2468324744_) - (if (gx#stx-pair? _tl2468424746_) - (let ((_e2468524749_ - (gx#stx-e _tl2468424746_))) - (let ((_tl2468724754_ + (##car _e2684726904_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2684626907_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2684626907_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2684526909_)) + (let ((_e2685026912_ + (let () + (declare (not safe)) + (gx#stx-e _tl2684526909_)))) + (let ((_tl2684826917_ (let () (declare (not safe)) - (##cdr _e2468524749_))) - (_hd2468624752_ + (##cdr _e2685026912_))) + (_hd2684926915_ (let () (declare (not safe)) - (##car _e2468524749_)))) - (if (gx#stx-null? _tl2468724754_) - (if (gx#stx-pair? _tl2468124738_) - (let ((_e2468824757_ - (gx#stx-e - _tl2468124738_))) - (let ((_tl2469024762_ + (##car _e2685026912_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2684826917_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2684226901_)) + (let ((_e2685326920_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2684226901_)))) + (let ((_tl2685126925_ (let () (declare (not safe)) - (##cdr _e2468824757_))) - (_hd2468924760_ + (##cdr _e2685326920_))) + (_hd2685226923_ (let () (declare (not safe)) - (##car _e2468824757_)))) - (if (gx#stx-pair? - _hd2468924760_) - (let ((_e2469124765_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd2468924760_))) - (let ((_tl2469324770_ - (let () (declare (not safe)) (##cdr _e2469124765_))) - (_hd2469224768_ + (##car _e2685326920_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd2685226923_)) + (let ((_e2685626928_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd2685226923_)))) + (let ((_tl2685426933_ + (let () (declare (not safe)) (##cdr _e2685626928_))) + (_hd2685526931_ (let () (declare (not safe)) - (##car _e2469124765_)))) - (if (gx#identifier? _hd2469224768_) - (if (gx#stx-eq? '%#ref _hd2469224768_) - (if (gx#stx-pair? _tl2469324770_) - (let ((_e2469424773_ - (gx#stx-e _tl2469324770_))) - (let ((_tl2469624778_ + (##car _e2685626928_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2685526931_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2685526931_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2685426933_)) + (let ((_e2685926936_ + (let () + (declare (not safe)) + (gx#stx-e _tl2685426933_)))) + (let ((_tl2685726941_ (let () (declare (not safe)) - (##cdr _e2469424773_))) - (_hd2469524776_ + (##cdr _e2685926936_))) + (_hd2685826939_ (let () (declare (not safe)) - (##car _e2469424773_)))) - (if (gx#stx-null? _tl2469624778_) - (if (gx#stx-pair? _tl2469024762_) - (let ((_e2469724781_ - (gx#stx-e - _tl2469024762_))) - (let ((_tl2469924786_ + (##car _e2685926936_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2685726941_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2685126925_)) + (let ((_e2686226944_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2685126925_)))) + (let ((_tl2686026949_ (let () (declare (not safe)) - (##cdr _e2469724781_))) - (_hd2469824784_ + (##cdr _e2686226944_))) + (_hd2686126947_ (let () (declare (not safe)) - (##car _e2469724781_)))) - (if (gx#stx-null? - _tl2469924786_) - (if (gx#stx-null? - _tl2467524722_) - (___kont3334833349_ - _hd2469524776_ - _hd2468624752_ - _hd2458624965_) - (_g2458024704_)) - (_g2458024704_)))) - (_g2458024704_)) - (_g2458024704_)))) - (_g2458024704_)) - (_g2458024704_)) - (_g2458024704_)))) - (_g2458024704_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2458024704_)) - (_g2458024704_)))) - (_g2458024704_)) - (_g2458024704_)) - (_g2458024704_)))) - (_g2458024704_)))) - (_g2458024704_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2458024704_)) - (_g2458024704_)))) - (_g2458024704_)))) - (_g2458024704_))))) - (_g2458024704_))))))) + (##car _e2686226944_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2686026949_)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2683626885_)) + (___kont3551135512_ + _hd2685826939_ + _hd2684926915_ + _hd2674927128_) + (let () + (declare + (not safe)) + (_g2674326867_))) + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () + (declare (not safe)) + (_g2674326867_))) + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () + (declare (not safe)) + (_g2674326867_))) + (let () (declare (not safe)) (_g2674326867_))) + (let () (declare (not safe)) (_g2674326867_))))) + (let () (declare (not safe)) (_g2674326867_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2674326867_))) + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () + (declare (not safe)) + (_g2674326867_))) + (let () + (declare (not safe)) + (_g2674326867_))) + (let () (declare (not safe)) (_g2674326867_))))) + (let () (declare (not safe)) (_g2674326867_))))) + (let () (declare (not safe)) (_g2674326867_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2674326867_))) + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () + (declare (not safe)) + (_g2674326867_))))) + (let () (declare (not safe)) (_g2674326867_)))))) + (let () (declare (not safe)) (_g2674326867_)))))))) (define gxc#lambda-form-arity - (lambda (_form24380_) - (let* ((_g2438224396_ - (lambda (_g2438324393_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2438324393_))) - (_g2438124573_ - (lambda (_g2438324399_) - (if (gx#stx-pair? _g2438324399_) - (let ((_e2438624401_ (gx#stx-e _g2438324399_))) - (let ((_hd2438724404_ + (lambda (_form26543_) + (let* ((_g2654526559_ + (lambda (_g2654626556_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2654626556_)))) + (_g2654426736_ + (lambda (_g2654626562_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2654626562_)) + (let ((_e2655126564_ + (let () + (declare (not safe)) + (gx#stx-e _g2654626562_)))) + (let ((_hd2655026567_ (let () (declare (not safe)) - (##car _e2438624401_))) - (_tl2438824406_ + (##car _e2655126564_))) + (_tl2654926569_ (let () (declare (not safe)) - (##cdr _e2438624401_)))) - (if (gx#stx-pair? _tl2438824406_) - (let ((_e2438924409_ (gx#stx-e _tl2438824406_))) - (let ((_hd2439024412_ + (##cdr _e2655126564_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2654926569_)) + (let ((_e2655426572_ + (let () + (declare (not safe)) + (gx#stx-e _tl2654926569_)))) + (let ((_hd2655326575_ (let () (declare (not safe)) - (##car _e2438924409_))) - (_tl2439124414_ + (##car _e2655426572_))) + (_tl2655226577_ (let () (declare (not safe)) - (##cdr _e2438924409_)))) - (if (gx#stx-null? _tl2439124414_) - ((lambda (_L24417_ _L24418_) - (let* ((___stx3345833459_ _L24418_) - (_g2443324461_ + (##cdr _e2655426572_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2655226577_)) + ((lambda (_L26580_ _L26581_) + (let* ((___stx3562135622_ _L26581_) + (_g2659626624_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3345833459_)))) - (let ((___kont3346033461_ - (lambda (_L24552_) - (length (foldr1 (lambda (_g2456224565_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2456324567_) - (cons _g2456224565_ _g2456324567_)) - '() - _L24552_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3346433465_ - (lambda (_L24503_ _L24504_) - (cons (length (foldr1 (lambda (_g2451524518_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2451624520_) - (cons _g2451524518_ _g2451624520_)) - '() - _L24504_)) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3346833469_ - (lambda (_L24466_) - (cons '0 '())))) - (let* ((___match3348333484_ - (lambda (___splice3346633467_ - _target2444724479_ - _tl2444924481_) - (letrec ((_loop2445024484_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd2444824487_ _arg2445424489_) - (if (gx#stx-pair? _hd2444824487_) - (let ((_e2445124492_ (gx#stx-e _hd2444824487_))) - (let ((_lp-tl2445324497_ - (let () - (declare (not safe)) - (##cdr _e2445124492_))) - (_lp-hd2445224495_ - (let () - (declare (not safe)) - (##car _e2445124492_)))) - (_loop2445024484_ - _lp-tl2445324497_ - (cons _lp-hd2445224495_ _arg2445424489_)))) - (let ((_arg2445524500_ - (reverse _arg2445424489_))) - (___kont3346433465_ - _tl2444924481_ - _arg2445524500_)))))) - (_loop2445024484_ _target2444724479_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3347733478_ - (lambda (___splice3346233463_ - _target2443624528_ - _tl2443824530_) - (letrec ((_loop2443924533_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd2443724536_ _arg2444324538_) - (if (gx#stx-pair? _hd2443724536_) - (let ((_e2444024541_ (gx#stx-e _hd2443724536_))) - (let ((_lp-tl2444224546_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3562135622_))))) + (let ((___kont3562335624_ + (lambda (_L26715_) + (length (let ((__tmp36846 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g2672526728_ _g2672626730_) + (let () + (declare (not safe)) + (cons _g2672526728_ _g2672626730_))))) + (declare (not safe)) + (foldr1 __tmp36846 '() _L26715_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3562735628_ + (lambda (_L26666_ _L26667_) + (let ((__tmp36847 + (length (let ((__tmp36848 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g2667826681_ _g2667926683_) + (let () + (declare (not safe)) + (cons _g2667826681_ _g2667926683_))))) + (declare (not safe)) + (foldr1 __tmp36848 '() _L26667_))))) + (declare (not safe)) + (cons __tmp36847 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3563135632_ + (lambda (_L26629_) + (let () + (declare (not safe)) + (cons '0 '()))))) + (let* ((___match3564635647_ + (lambda (___splice3562935630_ + _target2661026642_ + _tl2661226644_) + (letrec ((_loop2661326647_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd2661126650_ _arg2661726652_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2661126650_)) + (let ((_e2661426655_ + (let () + (declare (not safe)) + (gx#stx-e _hd2661126650_)))) + (let ((_lp-tl2661626660_ (let () (declare (not safe)) - (##cdr _e2444024541_))) - (_lp-hd2444124544_ + (##cdr _e2661426655_))) + (_lp-hd2661526658_ (let () (declare (not safe)) - (##car _e2444024541_)))) - (_loop2443924533_ - _lp-tl2444224546_ - (cons _lp-hd2444124544_ _arg2444324538_)))) - (let ((_arg2444424549_ - (reverse _arg2444324538_))) - (___kont3346033461_ _arg2444424549_)))))) - (_loop2443924533_ _target2443624528_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? - ___stx3345833459_) - (let ((___splice3346233463_ - (gx#syntax-split-splice - ___stx3345833459_ - '0))) - (let ((_tl2443824530_ - (let () - (declare - (not safe)) + (##car _e2661426655_)))) + (let ((__tmp36849 + (let () + (declare (not safe)) + (cons _lp-hd2661526658_ + _arg2661726652_)))) + (declare (not safe)) + (_loop2661326647_ + _lp-tl2661626660_ + __tmp36849)))) + (let ((_arg2661826663_ + (let () + (declare (not safe)) + (reverse _arg2661726652_)))) + (___kont3562735628_ + _tl2661226644_ + _arg2661826663_)))))) + (let () + (declare (not safe)) + (_loop2661326647_ _target2661026642_ '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match3564035641_ + (lambda (___splice3562535626_ + _target2659926691_ + _tl2660126693_) + (letrec ((_loop2660226696_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd2660026699_ _arg2660626701_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2660026699_)) + (let ((_e2660326704_ + (let () + (declare (not safe)) + (gx#stx-e _hd2660026699_)))) + (let ((_lp-tl2660526709_ + (let () + (declare (not safe)) + (##cdr _e2660326704_))) + (_lp-hd2660426707_ + (let () + (declare (not safe)) + (##car _e2660326704_)))) + (let ((__tmp36850 + (let () + (declare (not safe)) + (cons _lp-hd2660426707_ + _arg2660626701_)))) + (declare (not safe)) + (_loop2660226696_ + _lp-tl2660526709_ + __tmp36850)))) + (let ((_arg2660726712_ + (let () + (declare (not safe)) + (reverse _arg2660626701_)))) + (___kont3562335624_ _arg2660726712_)))))) + (let () + (declare (not safe)) + (_loop2660226696_ _target2659926691_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + ___stx3562135622_)) + (let ((___splice3562535626_ + (let () + (declare + (not safe)) + (gx#syntax-split-splice + ___stx3562135622_ + '0)))) + (let ((_tl2660126693_ + (let () + (declare + (not safe)) (##vector-ref - ___splice3346233463_ + ___splice3562535626_ '1))) - (_target2443624528_ + (_target2659926691_ (let () (declare (not safe)) (##vector-ref - ___splice3346233463_ + ___splice3562535626_ '0)))) - (if (gx#stx-null? - _tl2443824530_) - (___match3347733478_ - ___splice3346233463_ - _target2443624528_ - _tl2443824530_) - (___match3348333484_ - ___splice3346233463_ - _target2443624528_ - _tl2443824530_)))) - (___kont3346833469_ - ___stx3345833459_)))))) - _hd2439024412_ - _hd2438724404_) - (_g2438224396_ _g2438324399_)))) - (_g2438224396_ _g2438324399_)))) - (_g2438224396_ _g2438324399_))))) - (_g2438124573_ _form24380_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2660126693_)) + (___match3564035641_ + ___splice3562535626_ + _target2659926691_ + _tl2660126693_) + (___match3564635647_ + ___splice3562535626_ + _target2659926691_ + _tl2660126693_)))) + (___kont3563135632_ + ___stx3562135622_)))))) + _hd2655326575_ + _hd2655026567_) + (let () + (declare (not safe)) + (_g2654526559_ _g2654626562_))))) + (let () + (declare (not safe)) + (_g2654526559_ _g2654626562_))))) + (let () + (declare (not safe)) + (_g2654526559_ _g2654626562_)))))) + (declare (not safe)) + (_g2654426736_ _form26543_)))) (define gxc#lambda-expr? - (lambda (_expr24333_) - (let* ((___stx3348633487_ _expr24333_) - (_g2433624346_ + (lambda (_expr26496_) + (let* ((___stx3564935650_ _expr26496_) + (_g2649926509_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3348633487_)))) - (let ((___kont3348833489_ (lambda (_L24366_) '#t)) - (___kont3349033491_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3348633487_) - (let ((_e2433924358_ (gx#stx-e ___stx3348633487_))) - (let ((_tl2434124363_ - (let () (declare (not safe)) (##cdr _e2433924358_))) - (_hd2434024361_ - (let () (declare (not safe)) (##car _e2433924358_)))) - (if (gx#identifier? _hd2434024361_) - (if (gx#stx-eq? '%#lambda _hd2434024361_) - (___kont3348833489_ _tl2434124363_) - (___kont3349033491_)) - (___kont3349033491_)))) - (___kont3349033491_)))))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3564935650_))))) + (let ((___kont3565135652_ (lambda (_L26529_) '#t)) + (___kont3565335654_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3564935650_)) + (let ((_e2650426521_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3564935650_)))) + (let ((_tl2650226526_ + (let () (declare (not safe)) (##cdr _e2650426521_))) + (_hd2650326524_ + (let () (declare (not safe)) (##car _e2650426521_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2650326524_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#lambda _hd2650326524_)) + (___kont3565135652_ _tl2650226526_) + (___kont3565335654_)) + (___kont3565335654_)))) + (___kont3565335654_)))))) (define gxc#case-lambda-expr? - (lambda (_expr24286_) - (let* ((___stx3350433505_ _expr24286_) - (_g2428924299_ + (lambda (_expr26449_) + (let* ((___stx3566735668_ _expr26449_) + (_g2645226462_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3350433505_)))) - (let ((___kont3350633507_ (lambda (_L24319_) '#t)) - (___kont3350833509_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3350433505_) - (let ((_e2429224311_ (gx#stx-e ___stx3350433505_))) - (let ((_tl2429424316_ - (let () (declare (not safe)) (##cdr _e2429224311_))) - (_hd2429324314_ - (let () (declare (not safe)) (##car _e2429224311_)))) - (if (gx#identifier? _hd2429324314_) - (if (gx#stx-eq? '%#case-lambda _hd2429324314_) - (___kont3350633507_ _tl2429424316_) - (___kont3350833509_)) - (___kont3350833509_)))) - (___kont3350833509_)))))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3566735668_))))) + (let ((___kont3566935670_ (lambda (_L26482_) '#t)) + (___kont3567135672_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3566735668_)) + (let ((_e2645726474_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3566735668_)))) + (let ((_tl2645526479_ + (let () (declare (not safe)) (##cdr _e2645726474_))) + (_hd2645626477_ + (let () (declare (not safe)) (##car _e2645726474_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2645626477_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#case-lambda _hd2645626477_)) + (___kont3566935670_ _tl2645526479_) + (___kont3567135672_)) + (___kont3567135672_)))) + (___kont3567135672_)))))) (define gxc#opt-lambda-expr? - (lambda (_expr24155_) - (let* ((___stx3352233523_ _expr24155_) - (_g2415824188_ + (lambda (_expr26318_) + (let* ((___stx3568535686_ _expr26318_) + (_g2632126351_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3352233523_)))) - (let ((___kont3352433525_ - (lambda (_L24256_ _L24257_ _L24258_) - (if (gx#identifier? _L24258_) - (if (gxc#lambda-expr? _L24257_) - (gxc#case-lambda-expr? _L24256_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3568535686_))))) + (let ((___kont3568735688_ + (lambda (_L26419_ _L26420_ _L26421_) + (if (let () (declare (not safe)) (gx#identifier? _L26421_)) + (if (let () + (declare (not safe)) + (gxc#lambda-expr? _L26420_)) + (let () + (declare (not safe)) + (gxc#case-lambda-expr? _L26419_)) '#f) '#f))) - (___kont3352633527_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3352233523_) - (let ((_e2416324200_ (gx#stx-e ___stx3352233523_))) - (let ((_tl2416524205_ - (let () (declare (not safe)) (##cdr _e2416324200_))) - (_hd2416424203_ - (let () (declare (not safe)) (##car _e2416324200_)))) - (if (gx#identifier? _hd2416424203_) - (if (gx#stx-eq? '%#let-values _hd2416424203_) - (if (gx#stx-pair? _tl2416524205_) - (let ((_e2416624208_ - (gx#stx-e _tl2416524205_))) - (let ((_tl2416824213_ + (___kont3568935690_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3568535686_)) + (let ((_e2632826363_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3568535686_)))) + (let ((_tl2632626368_ + (let () (declare (not safe)) (##cdr _e2632826363_))) + (_hd2632726366_ + (let () (declare (not safe)) (##car _e2632826363_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2632726366_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#let-values _hd2632726366_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2632626368_)) + (let ((_e2633126371_ + (let () + (declare (not safe)) + (gx#stx-e _tl2632626368_)))) + (let ((_tl2632926376_ (let () (declare (not safe)) - (##cdr _e2416624208_))) - (_hd2416724211_ + (##cdr _e2633126371_))) + (_hd2633026374_ (let () (declare (not safe)) - (##car _e2416624208_)))) - (if (gx#stx-pair? _hd2416724211_) - (let ((_e2416924216_ - (gx#stx-e _hd2416724211_))) - (let ((_tl2417124221_ + (##car _e2633126371_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2633026374_)) + (let ((_e2633426379_ + (let () + (declare (not safe)) + (gx#stx-e _hd2633026374_)))) + (let ((_tl2633226384_ (let () (declare (not safe)) - (##cdr _e2416924216_))) - (_hd2417024219_ + (##cdr _e2633426379_))) + (_hd2633326382_ (let () (declare (not safe)) - (##car _e2416924216_)))) - (if (gx#stx-pair? _hd2417024219_) - (let ((_e2417224224_ - (gx#stx-e - _hd2417024219_))) - (let ((_tl2417424229_ + (##car _e2633426379_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2633326382_)) + (let ((_e2633726387_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2633326382_)))) + (let ((_tl2633526392_ (let () (declare (not safe)) - (##cdr _e2417224224_))) - (_hd2417324227_ + (##cdr _e2633726387_))) + (_hd2633626390_ (let () (declare (not safe)) - (##car _e2417224224_)))) - (if (gx#stx-pair? - _hd2417324227_) - (let ((_e2417524232_ - (gx#stx-e - _hd2417324227_))) - (let ((_tl2417724237_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e2417524232_))) - (_hd2417624235_ - (let () (declare (not safe)) (##car _e2417524232_)))) - (if (gx#stx-null? _tl2417724237_) - (if (gx#stx-pair? _tl2417424229_) - (let ((_e2417824240_ (gx#stx-e _tl2417424229_))) - (let ((_tl2418024245_ + (##car _e2633726387_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2633626390_)) + (let ((_e2634026395_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd2633626390_)))) + (let ((_tl2633826400_ + (let () (declare (not safe)) (##cdr _e2634026395_))) + (_hd2633926398_ + (let () (declare (not safe)) (##car _e2634026395_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2633826400_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2633526392_)) + (let ((_e2634326403_ + (let () + (declare (not safe)) + (gx#stx-e _tl2633526392_)))) + (let ((_tl2634126408_ (let () (declare (not safe)) - (##cdr _e2417824240_))) - (_hd2417924243_ + (##cdr _e2634326403_))) + (_hd2634226406_ (let () (declare (not safe)) - (##car _e2417824240_)))) - (if (gx#stx-null? _tl2418024245_) - (if (gx#stx-null? _tl2417124221_) - (if (gx#stx-pair? _tl2416824213_) - (let ((_e2418124248_ - (gx#stx-e _tl2416824213_))) - (let ((_tl2418324253_ + (##car _e2634326403_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2634126408_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2633226384_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2632926376_)) + (let ((_e2634626411_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2632926376_)))) + (let ((_tl2634426416_ (let () (declare (not safe)) - (##cdr _e2418124248_))) - (_hd2418224251_ + (##cdr _e2634626411_))) + (_hd2634526414_ (let () (declare (not safe)) - (##car _e2418124248_)))) - (if (gx#stx-null? - _tl2418324253_) - (___kont3352433525_ - _hd2418224251_ - _hd2417924243_ - _hd2417624235_) - (___kont3352633527_)))) - (___kont3352633527_)) - (___kont3352633527_)) - (___kont3352633527_)))) - (___kont3352633527_)) - (___kont3352633527_)))) - (___kont3352633527_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3352633527_)))) - (___kont3352633527_)))) - (___kont3352633527_)) - (___kont3352633527_)) - (___kont3352633527_)))) - (___kont3352633527_)))))) + (##car _e2634626411_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2634426416_)) + (___kont3568735688_ + _hd2634526414_ + _hd2634226406_ + _hd2633926398_) + (___kont3568935690_)))) + (___kont3568935690_)) + (___kont3568935690_)) + (___kont3568935690_)))) + (___kont3568935690_)) + (___kont3568935690_)))) + (___kont3568935690_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3568935690_)))) + (___kont3568935690_)))) + (___kont3568935690_)) + (___kont3568935690_)) + (___kont3568935690_)))) + (___kont3568935690_)))))) (define gxc#kw-lambda-expr? - (lambda (_expr23480_) - (let* ((___stx3358433585_ _expr23480_) - (_g2348323641_ + (lambda (_expr25643_) + (let* ((___stx3574735748_ _expr25643_) + (_g2564625804_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3358433585_)))) - (let ((___kont3358633587_ - (lambda (_L24029_ - _L24030_ - _L24031_ - _L24032_ - _L24033_ - _L24034_ - _L24035_ - _L24036_ - _L24037_ - _L24038_ - _L24039_) - (if (gxc#runtime-identifier=? _L24036_ 'apply) - (if (gxc#runtime-identifier=? _L24032_ 'apply) - (if (gxc#runtime-identifier=? - _L24031_ - 'keyword-dispatch) - (if (gx#free-identifier=? _L24039_ _L24030_) - (if (gx#free-identifier=? _L24038_ _L24035_) - (if (gx#free-identifier=? - _L24033_ - _L24029_) - (gx#free-identifier=? - _L24037_ - _L24034_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3574735748_))))) + (let ((___kont3574935750_ + (lambda (_L26192_ + _L26193_ + _L26194_ + _L26195_ + _L26196_ + _L26197_ + _L26198_ + _L26199_ + _L26200_ + _L26201_ + _L26202_) + (if (let () + (declare (not safe)) + (gxc#runtime-identifier=? _L26199_ 'apply)) + (if (let () + (declare (not safe)) + (gxc#runtime-identifier=? _L26195_ 'apply)) + (if (let () + (declare (not safe)) + (gxc#runtime-identifier=? + _L26194_ + 'keyword-dispatch)) + (if (let () + (declare (not safe)) + (gx#free-identifier=? _L26202_ _L26193_)) + (if (let () + (declare (not safe)) + (gx#free-identifier=? + _L26201_ + _L26198_)) + (if (let () + (declare (not safe)) + (gx#free-identifier=? + _L26196_ + _L26192_)) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L26200_ + _L26197_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (___kont3358833589_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3358433585_) - (let ((_e2349623653_ (gx#stx-e ___stx3358433585_))) - (let ((_tl2349823658_ - (let () (declare (not safe)) (##cdr _e2349623653_))) - (_hd2349723656_ - (let () (declare (not safe)) (##car _e2349623653_)))) - (if (gx#identifier? _hd2349723656_) - (if (gx#stx-eq? '%#let-values _hd2349723656_) - (if (gx#stx-pair? _tl2349823658_) - (let ((_e2349923661_ - (gx#stx-e _tl2349823658_))) - (let ((_tl2350123666_ + (___kont3575135752_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3574735748_)) + (let ((_e2566125816_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3574735748_)))) + (let ((_tl2565925821_ + (let () (declare (not safe)) (##cdr _e2566125816_))) + (_hd2566025819_ + (let () (declare (not safe)) (##car _e2566125816_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2566025819_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#let-values _hd2566025819_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2565925821_)) + (let ((_e2566425824_ + (let () + (declare (not safe)) + (gx#stx-e _tl2565925821_)))) + (let ((_tl2566225829_ (let () (declare (not safe)) - (##cdr _e2349923661_))) - (_hd2350023664_ + (##cdr _e2566425824_))) + (_hd2566325827_ (let () (declare (not safe)) - (##car _e2349923661_)))) - (if (gx#stx-pair? _hd2350023664_) - (let ((_e2350223669_ - (gx#stx-e _hd2350023664_))) - (let ((_tl2350423674_ + (##car _e2566425824_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2566325827_)) + (let ((_e2566725832_ + (let () + (declare (not safe)) + (gx#stx-e _hd2566325827_)))) + (let ((_tl2566525837_ (let () (declare (not safe)) - (##cdr _e2350223669_))) - (_hd2350323672_ + (##cdr _e2566725832_))) + (_hd2566625835_ (let () (declare (not safe)) - (##car _e2350223669_)))) - (if (gx#stx-pair? _hd2350323672_) - (let ((_e2350523677_ - (gx#stx-e - _hd2350323672_))) - (let ((_tl2350723682_ + (##car _e2566725832_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2566625835_)) + (let ((_e2567025840_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2566625835_)))) + (let ((_tl2566825845_ (let () (declare (not safe)) - (##cdr _e2350523677_))) - (_hd2350623680_ + (##cdr _e2567025840_))) + (_hd2566925843_ (let () (declare (not safe)) - (##car _e2350523677_)))) - (if (gx#stx-pair? - _hd2350623680_) - (let ((_e2350823685_ - (gx#stx-e - _hd2350623680_))) - (let ((_tl2351023690_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e2350823685_))) - (_hd2350923688_ - (let () (declare (not safe)) (##car _e2350823685_)))) - (if (gx#stx-null? _tl2351023690_) - (if (gx#stx-pair? _tl2350723682_) - (let ((_e2351123693_ (gx#stx-e _tl2350723682_))) - (let ((_tl2351323698_ + (##car _e2567025840_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2566925843_)) + (let ((_e2567325848_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd2566925843_)))) + (let ((_tl2567125853_ + (let () (declare (not safe)) (##cdr _e2567325848_))) + (_hd2567225851_ + (let () (declare (not safe)) (##car _e2567325848_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2567125853_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2566825845_)) + (let ((_e2567625856_ + (let () + (declare (not safe)) + (gx#stx-e _tl2566825845_)))) + (let ((_tl2567425861_ (let () (declare (not safe)) - (##cdr _e2351123693_))) - (_hd2351223696_ + (##cdr _e2567625856_))) + (_hd2567525859_ (let () (declare (not safe)) - (##car _e2351123693_)))) - (if (gx#stx-pair? _hd2351223696_) - (let ((_e2351423701_ - (gx#stx-e _hd2351223696_))) - (let ((_tl2351623706_ + (##car _e2567625856_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2567525859_)) + (let ((_e2567925864_ + (let () + (declare (not safe)) + (gx#stx-e _hd2567525859_)))) + (let ((_tl2567725869_ (let () (declare (not safe)) - (##cdr _e2351423701_))) - (_hd2351523704_ + (##cdr _e2567925864_))) + (_hd2567825867_ (let () (declare (not safe)) - (##car _e2351423701_)))) - (if (gx#identifier? _hd2351523704_) - (if (gx#stx-eq? - '%#let-values - _hd2351523704_) - (if (gx#stx-pair? - _tl2351623706_) - (let ((_e2351723709_ - (gx#stx-e - _tl2351623706_))) - (let ((_tl2351923714_ + (##car _e2567925864_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2567825867_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _hd2567825867_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2567725869_)) + (let ((_e2568225872_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2567725869_)))) + (let ((_tl2568025877_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2351723709_))) - (_hd2351823712_ - (let () (declare (not safe)) (##car _e2351723709_)))) - (if (gx#stx-pair? _hd2351823712_) - (let ((_e2352023717_ (gx#stx-e _hd2351823712_))) - (let ((_tl2352223722_ + (##cdr _e2568225872_))) + (_hd2568125875_ + (let () (declare (not safe)) (##car _e2568225872_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd2568125875_)) + (let ((_e2568525880_ + (let () + (declare (not safe)) + (gx#stx-e _hd2568125875_)))) + (let ((_tl2568325885_ (let () (declare (not safe)) - (##cdr _e2352023717_))) - (_hd2352123720_ + (##cdr _e2568525880_))) + (_hd2568425883_ (let () (declare (not safe)) - (##car _e2352023717_)))) - (if (gx#stx-pair? _hd2352123720_) - (let ((_e2352323725_ (gx#stx-e _hd2352123720_))) - (let ((_tl2352523730_ + (##car _e2568525880_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2568425883_)) + (let ((_e2568825888_ + (let () + (declare (not safe)) + (gx#stx-e _hd2568425883_)))) + (let ((_tl2568625893_ (let () (declare (not safe)) - (##cdr _e2352323725_))) - (_hd2352423728_ + (##cdr _e2568825888_))) + (_hd2568725891_ (let () (declare (not safe)) - (##car _e2352323725_)))) - (if (gx#stx-pair? _hd2352423728_) - (let ((_e2352623733_ - (gx#stx-e _hd2352423728_))) - (let ((_tl2352823738_ + (##car _e2568825888_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2568725891_)) + (let ((_e2569125896_ + (let () + (declare (not safe)) + (gx#stx-e _hd2568725891_)))) + (let ((_tl2568925901_ (let () (declare (not safe)) - (##cdr _e2352623733_))) - (_hd2352723736_ + (##cdr _e2569125896_))) + (_hd2569025899_ (let () (declare (not safe)) - (##car _e2352623733_)))) - (if (gx#stx-null? _tl2352823738_) - (if (gx#stx-pair? _tl2352523730_) - (let ((_e2352923741_ - (gx#stx-e - _tl2352523730_))) - (let ((_tl2353123746_ + (##car _e2569125896_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2568925901_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2568625893_)) + (let ((_e2569425904_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2568625893_)))) + (let ((_tl2569225909_ (let () (declare (not safe)) - (##cdr _e2352923741_))) - (_hd2353023744_ + (##cdr _e2569425904_))) + (_hd2569325907_ (let () (declare (not safe)) - (##car _e2352923741_)))) - (if (gx#stx-null? - _tl2353123746_) - (if (gx#stx-null? - _tl2352223722_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2351923714_) - (let ((_e2353223749_ (gx#stx-e _tl2351923714_))) - (let ((_tl2353423754_ + (##car _e2569425904_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2569225909_)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2568325885_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _tl2568025877_)) + (let ((_e2569725912_ + (let () + (declare (not safe)) + (gx#stx-e _tl2568025877_)))) + (let ((_tl2569525917_ (let () (declare (not safe)) - (##cdr _e2353223749_))) - (_hd2353323752_ + (##cdr _e2569725912_))) + (_hd2569625915_ (let () (declare (not safe)) - (##car _e2353223749_)))) - (if (gx#stx-pair? _hd2353323752_) - (let ((_e2353523757_ - (gx#stx-e _hd2353323752_))) - (let ((_tl2353723762_ + (##car _e2569725912_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2569625915_)) + (let ((_e2570025920_ + (let () + (declare (not safe)) + (gx#stx-e _hd2569625915_)))) + (let ((_tl2569825925_ (let () (declare (not safe)) - (##cdr _e2353523757_))) - (_hd2353623760_ + (##cdr _e2570025920_))) + (_hd2569925923_ (let () (declare (not safe)) - (##car _e2353523757_)))) - (if (gx#identifier? _hd2353623760_) - (if (gx#stx-eq? - '%#lambda - _hd2353623760_) - (if (gx#stx-pair? _tl2353723762_) - (let ((_e2353823765_ - (gx#stx-e - _tl2353723762_))) - (let ((_tl2354023770_ + (##car _e2570025920_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2569925923_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _hd2569925923_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2569825925_)) + (let ((_e2570325928_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2569825925_)))) + (let ((_tl2570125933_ (let () (declare (not safe)) - (##cdr _e2353823765_))) - (_hd2353923768_ + (##cdr _e2570325928_))) + (_hd2570225931_ (let () (declare (not safe)) - (##car _e2353823765_)))) - (if (gx#stx-pair? - _hd2353923768_) - (let ((_e2354123773_ - (gx#stx-e - _hd2353923768_))) - (let ((_tl2354323778_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e2354123773_))) - (_hd2354223776_ - (let () (declare (not safe)) (##car _e2354123773_)))) - (if (gx#stx-pair? _tl2354023770_) - (let ((_e2354423781_ (gx#stx-e _tl2354023770_))) - (let ((_tl2354623786_ + (##car _e2570325928_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2570225931_)) + (let ((_e2570625936_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd2570225931_)))) + (let ((_tl2570425941_ + (let () (declare (not safe)) (##cdr _e2570625936_))) + (_hd2570525939_ + (let () (declare (not safe)) (##car _e2570625936_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2570125933_)) + (let ((_e2570925944_ + (let () + (declare (not safe)) + (gx#stx-e _tl2570125933_)))) + (let ((_tl2570725949_ (let () (declare (not safe)) - (##cdr _e2354423781_))) - (_hd2354523784_ + (##cdr _e2570925944_))) + (_hd2570825947_ (let () (declare (not safe)) - (##car _e2354423781_)))) - (if (gx#stx-pair? _hd2354523784_) - (let ((_e2354723789_ - (gx#stx-e _hd2354523784_))) - (let ((_tl2354923794_ + (##car _e2570925944_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2570825947_)) + (let ((_e2571225952_ + (let () + (declare (not safe)) + (gx#stx-e _hd2570825947_)))) + (let ((_tl2571025957_ (let () (declare (not safe)) - (##cdr _e2354723789_))) - (_hd2354823792_ + (##cdr _e2571225952_))) + (_hd2571125955_ (let () (declare (not safe)) - (##car _e2354723789_)))) - (if (gx#identifier? _hd2354823792_) - (if (gx#stx-eq? '%#call _hd2354823792_) - (if (gx#stx-pair? _tl2354923794_) - (let ((_e2355023797_ - (gx#stx-e - _tl2354923794_))) - (let ((_tl2355223802_ + (##car _e2571225952_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2571125955_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _hd2571125955_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2571025957_)) + (let ((_e2571525960_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2571025957_)))) + (let ((_tl2571325965_ (let () (declare (not safe)) - (##cdr _e2355023797_))) - (_hd2355123800_ + (##cdr _e2571525960_))) + (_hd2571425963_ (let () (declare (not safe)) - (##car _e2355023797_)))) - (if (gx#stx-pair? - _hd2355123800_) - (let ((_e2355323805_ - (gx#stx-e - _hd2355123800_))) - (let ((_tl2355523810_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e2355323805_))) - (_hd2355423808_ - (let () (declare (not safe)) (##car _e2355323805_)))) - (if (gx#identifier? _hd2355423808_) - (if (gx#stx-eq? '%#ref _hd2355423808_) - (if (gx#stx-pair? _tl2355523810_) - (let ((_e2355623813_ - (gx#stx-e _tl2355523810_))) - (let ((_tl2355823818_ + (##car _e2571525960_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2571425963_)) + (let ((_e2571825968_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _hd2571425963_)))) + (let ((_tl2571625973_ + (let () (declare (not safe)) (##cdr _e2571825968_))) + (_hd2571725971_ + (let () (declare (not safe)) (##car _e2571825968_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2571725971_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2571725971_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2571625973_)) + (let ((_e2572125976_ + (let () + (declare (not safe)) + (gx#stx-e _tl2571625973_)))) + (let ((_tl2571925981_ (let () (declare (not safe)) - (##cdr _e2355623813_))) - (_hd2355723816_ + (##cdr _e2572125976_))) + (_hd2572025979_ (let () (declare (not safe)) - (##car _e2355623813_)))) - (if (gx#stx-null? _tl2355823818_) - (if (gx#stx-pair? _tl2355223802_) - (let ((_e2355923821_ - (gx#stx-e _tl2355223802_))) - (let ((_tl2356123826_ + (##car _e2572125976_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2571925981_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2571325965_)) + (let ((_e2572425984_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2571325965_)))) + (let ((_tl2572225989_ (let () (declare (not safe)) - (##cdr _e2355923821_))) - (_hd2356023824_ + (##cdr _e2572425984_))) + (_hd2572325987_ (let () (declare (not safe)) - (##car _e2355923821_)))) - (if (gx#stx-pair? - _hd2356023824_) - (let ((_e2356223829_ - (gx#stx-e - _hd2356023824_))) - (let ((_tl2356423834_ + (##car _e2572425984_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2572325987_)) + (let ((_e2572725992_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd2572325987_)))) + (let ((_tl2572525997_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2356223829_))) - (_hd2356323832_ - (let () (declare (not safe)) (##car _e2356223829_)))) - (if (gx#identifier? _hd2356323832_) - (if (gx#stx-eq? '%#ref _hd2356323832_) - (if (gx#stx-pair? _tl2356423834_) - (let ((_e2356523837_ (gx#stx-e _tl2356423834_))) - (let ((_tl2356723842_ + (##cdr _e2572725992_))) + (_hd2572625995_ + (let () (declare (not safe)) (##car _e2572725992_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2572625995_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2572625995_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2572525997_)) + (let ((_e2573026000_ + (let () + (declare (not safe)) + (gx#stx-e _tl2572525997_)))) + (let ((_tl2572826005_ (let () (declare (not safe)) - (##cdr _e2356523837_))) - (_hd2356623840_ + (##cdr _e2573026000_))) + (_hd2572926003_ (let () (declare (not safe)) - (##car _e2356523837_)))) - (if (gx#stx-null? _tl2356723842_) - (if (gx#stx-pair? _tl2356123826_) - (let ((_e2356823845_ - (gx#stx-e _tl2356123826_))) - (let ((_tl2357023850_ + (##car _e2573026000_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2572826005_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2572225989_)) + (let ((_e2573326008_ + (let () + (declare (not safe)) + (gx#stx-e _tl2572225989_)))) + (let ((_tl2573126013_ (let () (declare (not safe)) - (##cdr _e2356823845_))) - (_hd2356923848_ + (##cdr _e2573326008_))) + (_hd2573226011_ (let () (declare (not safe)) - (##car _e2356823845_)))) - (if (gx#stx-pair? _hd2356923848_) - (let ((_e2357123853_ - (gx#stx-e - _hd2356923848_))) - (let ((_tl2357323858_ + (##car _e2573326008_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2573226011_)) + (let ((_e2573626016_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2573226011_)))) + (let ((_tl2573426021_ (let () (declare (not safe)) - (##cdr _e2357123853_))) - (_hd2357223856_ + (##cdr _e2573626016_))) + (_hd2573526019_ (let () (declare (not safe)) - (##car _e2357123853_)))) - (if (gx#identifier? - _hd2357223856_) - (if (gx#stx-eq? - '%#ref - _hd2357223856_) - (if (gx#stx-pair? + (##car _e2573626016_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd2573526019_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#ref + _hd2573526019_)) + (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2357323858_) - (let ((_e2357423861_ (gx#stx-e _tl2357323858_))) - (let ((_tl2357623866_ + (declare (not safe)) + (gx#stx-pair? _tl2573426021_)) + (let ((_e2573926024_ + (let () + (declare (not safe)) + (gx#stx-e _tl2573426021_)))) + (let ((_tl2573726029_ (let () (declare (not safe)) - (##cdr _e2357423861_))) - (_hd2357523864_ + (##cdr _e2573926024_))) + (_hd2573826027_ (let () (declare (not safe)) - (##car _e2357423861_)))) - (if (gx#stx-null? _tl2357623866_) - (if (gx#stx-null? _tl2354623786_) - (if (gx#stx-null? _tl2353423754_) - (if (gx#stx-null? _tl2351323698_) - (if (gx#stx-null? _tl2350423674_) - (if (gx#stx-pair? - _tl2350123666_) - (let ((_e2357723869_ - (gx#stx-e - _tl2350123666_))) - (let ((_tl2357923874_ + (##car _e2573926024_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2573726029_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2570725949_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2569525917_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2567425861_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2566525837_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2566225829_)) + (let ((_e2574226032_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2566225829_)))) + (let ((_tl2574026037_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2357723869_))) - (_hd2357823872_ - (let () (declare (not safe)) (##car _e2357723869_)))) - (if (gx#stx-pair? _hd2357823872_) - (let ((_e2358023877_ (gx#stx-e _hd2357823872_))) - (let ((_tl2358223882_ + (##cdr _e2574226032_))) + (_hd2574126035_ + (let () (declare (not safe)) (##car _e2574226032_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd2574126035_)) + (let ((_e2574526040_ + (let () + (declare (not safe)) + (gx#stx-e _hd2574126035_)))) + (let ((_tl2574326045_ (let () (declare (not safe)) - (##cdr _e2358023877_))) - (_hd2358123880_ + (##cdr _e2574526040_))) + (_hd2574426043_ (let () (declare (not safe)) - (##car _e2358023877_)))) - (if (gx#identifier? _hd2358123880_) - (if (gx#stx-eq? '%#lambda _hd2358123880_) - (if (gx#stx-pair? _tl2358223882_) - (let ((_e2358323885_ - (gx#stx-e _tl2358223882_))) - (let ((_tl2358523890_ - (let () - (declare (not safe)) - (##cdr _e2358323885_))) - (_hd2358423888_ + (##car _e2574526040_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2574426043_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#lambda _hd2574426043_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2574326045_)) + (let ((_e2574826048_ + (let () + (declare (not safe)) + (gx#stx-e _tl2574326045_)))) + (let ((_tl2574626053_ + (let () + (declare (not safe)) + (##cdr _e2574826048_))) + (_hd2574726051_ (let () (declare (not safe)) - (##car _e2358323885_)))) - (if (gx#stx-pair? _tl2358523890_) - (let ((_e2358623893_ - (gx#stx-e _tl2358523890_))) - (let ((_tl2358823898_ + (##car _e2574826048_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2574626053_)) + (let ((_e2575126056_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2574626053_)))) + (let ((_tl2574926061_ (let () (declare (not safe)) - (##cdr _e2358623893_))) - (_hd2358723896_ + (##cdr _e2575126056_))) + (_hd2575026059_ (let () (declare (not safe)) - (##car _e2358623893_)))) - (if (gx#stx-pair? - _hd2358723896_) - (let ((_e2358923901_ - (gx#stx-e - _hd2358723896_))) - (let ((_tl2359123906_ + (##car _e2575126056_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2575026059_)) + (let ((_e2575426064_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd2575026059_)))) + (let ((_tl2575226069_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2358923901_))) - (_hd2359023904_ - (let () (declare (not safe)) (##car _e2358923901_)))) - (if (gx#identifier? _hd2359023904_) - (if (gx#stx-eq? '%#call _hd2359023904_) - (if (gx#stx-pair? _tl2359123906_) - (let ((_e2359223909_ (gx#stx-e _tl2359123906_))) - (let ((_tl2359423914_ + (##cdr _e2575426064_))) + (_hd2575326067_ + (let () (declare (not safe)) (##car _e2575426064_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2575326067_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _hd2575326067_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2575226069_)) + (let ((_e2575726072_ + (let () + (declare (not safe)) + (gx#stx-e _tl2575226069_)))) + (let ((_tl2575526077_ (let () (declare (not safe)) - (##cdr _e2359223909_))) - (_hd2359323912_ + (##cdr _e2575726072_))) + (_hd2575626075_ (let () (declare (not safe)) - (##car _e2359223909_)))) - (if (gx#stx-pair? _hd2359323912_) - (let ((_e2359523917_ - (gx#stx-e _hd2359323912_))) - (let ((_tl2359723922_ + (##car _e2575726072_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2575626075_)) + (let ((_e2576026080_ + (let () + (declare (not safe)) + (gx#stx-e _hd2575626075_)))) + (let ((_tl2575826085_ (let () (declare (not safe)) - (##cdr _e2359523917_))) - (_hd2359623920_ + (##cdr _e2576026080_))) + (_hd2575926083_ (let () (declare (not safe)) - (##car _e2359523917_)))) - (if (gx#identifier? _hd2359623920_) - (if (gx#stx-eq? - '%#ref - _hd2359623920_) - (if (gx#stx-pair? - _tl2359723922_) - (let ((_e2359823925_ - (gx#stx-e - _tl2359723922_))) - (let ((_tl2360023930_ + (##car _e2576026080_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2575926083_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd2575926083_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2575826085_)) + (let ((_e2576326088_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2575826085_)))) + (let ((_tl2576126093_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2359823925_))) - (_hd2359923928_ - (let () (declare (not safe)) (##car _e2359823925_)))) - (if (gx#stx-null? _tl2360023930_) - (if (gx#stx-pair? _tl2359423914_) - (let ((_e2360123933_ (gx#stx-e _tl2359423914_))) - (let ((_tl2360323938_ + (##cdr _e2576326088_))) + (_hd2576226091_ + (let () (declare (not safe)) (##car _e2576326088_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl2576126093_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2575526077_)) + (let ((_e2576626096_ + (let () + (declare (not safe)) + (gx#stx-e _tl2575526077_)))) + (let ((_tl2576426101_ (let () (declare (not safe)) - (##cdr _e2360123933_))) - (_hd2360223936_ + (##cdr _e2576626096_))) + (_hd2576526099_ (let () (declare (not safe)) - (##car _e2360123933_)))) - (if (gx#stx-pair? _hd2360223936_) - (let ((_e2360423941_ - (gx#stx-e _hd2360223936_))) - (let ((_tl2360623946_ + (##car _e2576626096_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2576526099_)) + (let ((_e2576926104_ + (let () + (declare (not safe)) + (gx#stx-e _hd2576526099_)))) + (let ((_tl2576726109_ (let () (declare (not safe)) - (##cdr _e2360423941_))) - (_hd2360523944_ + (##cdr _e2576926104_))) + (_hd2576826107_ (let () (declare (not safe)) - (##car _e2360423941_)))) - (if (gx#identifier? _hd2360523944_) - (if (gx#stx-eq? '%#ref _hd2360523944_) - (if (gx#stx-pair? _tl2360623946_) - (let ((_e2360723949_ - (gx#stx-e - _tl2360623946_))) - (let ((_tl2360923954_ + (##car _e2576926104_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2576826107_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd2576826107_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2576726109_)) + (let ((_e2577226112_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2576726109_)))) + (let ((_tl2577026117_ (let () (declare (not safe)) - (##cdr _e2360723949_))) - (_hd2360823952_ + (##cdr _e2577226112_))) + (_hd2577126115_ (let () (declare (not safe)) - (##car _e2360723949_)))) - (if (gx#stx-null? - _tl2360923954_) - (if (gx#stx-pair? - _tl2360323938_) - (let ((_e2361023957_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2360323938_))) - (let ((_tl2361223962_ + (##car _e2577226112_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2577026117_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl2576426101_)) + (let ((_e2577526120_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _tl2576426101_)))) + (let ((_tl2577326125_ (let () (declare (not safe)) - (##cdr _e2361023957_))) - (_hd2361123960_ + (##cdr _e2577526120_))) + (_hd2577426123_ (let () (declare (not safe)) - (##car _e2361023957_)))) - (if (gx#stx-pair? _hd2361123960_) - (let ((_e2361323965_ (gx#stx-e _hd2361123960_))) - (let ((_tl2361523970_ + (##car _e2577526120_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2577426123_)) + (let ((_e2577826128_ + (let () + (declare (not safe)) + (gx#stx-e _hd2577426123_)))) + (let ((_tl2577626133_ (let () (declare (not safe)) - (##cdr _e2361323965_))) - (_hd2361423968_ + (##cdr _e2577826128_))) + (_hd2577726131_ (let () (declare (not safe)) - (##car _e2361323965_)))) - (if (gx#identifier? _hd2361423968_) - (if (gx#stx-eq? '%#quote _hd2361423968_) - (if (gx#stx-pair? _tl2361523970_) - (let ((_e2361623973_ - (gx#stx-e _tl2361523970_))) - (let ((_tl2361823978_ + (##car _e2577826128_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2577726131_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2577726131_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2577626133_)) + (let ((_e2578126136_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2577626133_)))) + (let ((_tl2577926141_ (let () (declare (not safe)) - (##cdr _e2361623973_))) - (_hd2361723976_ + (##cdr _e2578126136_))) + (_hd2578026139_ (let () (declare (not safe)) - (##car _e2361623973_)))) - (if (gx#stx-null? - _tl2361823978_) - (if (gx#stx-pair? - _tl2361223962_) - (let ((_e2361923981_ - (gx#stx-e - _tl2361223962_))) - (let ((_tl2362123986_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e2361923981_))) - (_hd2362023984_ - (let () (declare (not safe)) (##car _e2361923981_)))) - (if (gx#stx-pair? _hd2362023984_) - (let ((_e2362223989_ (gx#stx-e _hd2362023984_))) - (let ((_tl2362423994_ + (##car _e2578126136_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2577926141_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2577326125_)) + (let ((_e2578426144_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _tl2577326125_)))) + (let ((_tl2578226149_ + (let () (declare (not safe)) (##cdr _e2578426144_))) + (_hd2578326147_ + (let () (declare (not safe)) (##car _e2578426144_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2578326147_)) + (let ((_e2578726152_ + (let () + (declare (not safe)) + (gx#stx-e _hd2578326147_)))) + (let ((_tl2578526157_ (let () (declare (not safe)) - (##cdr _e2362223989_))) - (_hd2362323992_ + (##cdr _e2578726152_))) + (_hd2578626155_ (let () (declare (not safe)) - (##car _e2362223989_)))) - (if (gx#identifier? _hd2362323992_) - (if (gx#stx-eq? '%#ref _hd2362323992_) - (if (gx#stx-pair? _tl2362423994_) - (let ((_e2362523997_ - (gx#stx-e _tl2362423994_))) - (let ((_tl2362724002_ + (##car _e2578726152_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2578626155_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2578626155_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2578526157_)) + (let ((_e2579026160_ + (let () + (declare (not safe)) + (gx#stx-e _tl2578526157_)))) + (let ((_tl2578826165_ (let () (declare (not safe)) - (##cdr _e2362523997_))) - (_hd2362624000_ + (##cdr _e2579026160_))) + (_hd2578926163_ (let () (declare (not safe)) - (##car _e2362523997_)))) - (if (gx#stx-null? _tl2362724002_) - (if (gx#stx-pair? - _tl2362123986_) - (let ((_e2362824005_ - (gx#stx-e - _tl2362123986_))) - (let ((_tl2363024010_ + (##car _e2579026160_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2578826165_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2578226149_)) + (let ((_e2579326168_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2578226149_)))) + (let ((_tl2579126173_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2362824005_))) - (_hd2362924008_ - (let () (declare (not safe)) (##car _e2362824005_)))) - (if (gx#stx-pair? _hd2362924008_) - (let ((_e2363124013_ (gx#stx-e _hd2362924008_))) - (let ((_tl2363324018_ + (##cdr _e2579326168_))) + (_hd2579226171_ + (let () (declare (not safe)) (##car _e2579326168_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _hd2579226171_)) + (let ((_e2579626176_ + (let () + (declare (not safe)) + (gx#stx-e _hd2579226171_)))) + (let ((_tl2579426181_ (let () (declare (not safe)) - (##cdr _e2363124013_))) - (_hd2363224016_ + (##cdr _e2579626176_))) + (_hd2579526179_ (let () (declare (not safe)) - (##car _e2363124013_)))) - (if (gx#identifier? _hd2363224016_) - (if (gx#stx-eq? '%#ref _hd2363224016_) - (if (gx#stx-pair? _tl2363324018_) - (let ((_e2363424021_ - (gx#stx-e _tl2363324018_))) - (let ((_tl2363624026_ + (##car _e2579626176_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2579526179_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2579526179_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2579426181_)) + (let ((_e2579926184_ + (let () + (declare (not safe)) + (gx#stx-e _tl2579426181_)))) + (let ((_tl2579726189_ (let () (declare (not safe)) - (##cdr _e2363424021_))) - (_hd2363524024_ + (##cdr _e2579926184_))) + (_hd2579826187_ (let () (declare (not safe)) - (##car _e2363424021_)))) - (if (gx#stx-null? _tl2363624026_) - (if (gx#stx-null? _tl2363024010_) - (if (gx#stx-null? - _tl2358823898_) - (if (gx#stx-null? - _tl2357923874_) - (___kont3358633587_ - _hd2363524024_ - _hd2362624000_ - _hd2360823952_ - _hd2359923928_ - _hd2358423888_ - _hd2357523864_ - _hd2356623840_ - _hd2355723816_ - _hd2354223776_ - _hd2352723736_ - _hd2350923688_) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3358833589_)))) - (___kont3358833589_)))) - (___kont3358833589_)) - (___kont3358833589_)) - (___kont3358833589_)))) - (___kont3358833589_)))))) + (##car _e2579926184_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2579726189_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2579126173_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2574926061_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2574026037_)) + (___kont3574935750_ + _hd2579826187_ + _hd2578926163_ + _hd2577126115_ + _hd2576226091_ + _hd2574726051_ + _hd2573826027_ + _hd2572926003_ + _hd2572025979_ + _hd2570525939_ + _hd2569025899_ + _hd2567225851_) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3575135752_)))) + (___kont3575135752_)))) + (___kont3575135752_)) + (___kont3575135752_)) + (___kont3575135752_)))) + (___kont3575135752_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_stx23222_ _id23223_ _clauses23224_ _gensym?23225_) - (let _lp23227_ ((_rest23229_ _clauses23224_) - (_ids23230_ '()) - (_impls23231_ '()) - (_clauses23232_ '())) - (let* ((_rest2323323241_ _rest23229_) - (_else2323523249_ + (lambda (_stx25385_ _id25386_ _clauses25387_ _gensym?25388_) + (let _lp25390_ ((_rest25392_ _clauses25387_) + (_ids25393_ '()) + (_impls25394_ '()) + (_clauses25395_ '())) + (let* ((_rest2539625404_ _rest25392_) + (_else2539825412_ (lambda () - (values (reverse _ids23230_) - (reverse _impls23231_) - (reverse _clauses23232_)))) - (_K2323723454_ - (lambda (_rest23252_ _clause23253_) - (if (gxc#dispatch-lambda-form? _clause23253_) - (_lp23227_ - _rest23252_ - _ids23230_ - _impls23231_ - (cons _clause23253_ _clauses23232_)) - (let* ((_g2325523266_ - (lambda (_g2325623263_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2325623263_))) - (_g2325423451_ - (lambda (_g2325623269_) - (if (gx#stx-pair? _g2325623269_) - (let ((_e2325923271_ - (gx#stx-e _g2325623269_))) - (let ((_hd2326023274_ + (values (let () (declare (not safe)) (reverse _ids25393_)) + (let () + (declare (not safe)) + (reverse _impls25394_)) + (let () + (declare (not safe)) + (reverse _clauses25395_))))) + (_K2540025617_ + (lambda (_rest25415_ _clause25416_) + (if (let () + (declare (not safe)) + (gxc#dispatch-lambda-form? _clause25416_)) + (let ((__tmp36903 + (let () + (declare (not safe)) + (cons _clause25416_ _clauses25395_)))) + (declare (not safe)) + (_lp25390_ + _rest25415_ + _ids25393_ + _impls25394_ + __tmp36903)) + (let* ((_g2541825429_ + (lambda (_g2541925426_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2541925426_)))) + (_g2541725614_ + (lambda (_g2541925432_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2541925432_)) + (let ((_e2542425434_ + (let () + (declare (not safe)) + (gx#stx-e _g2541925432_)))) + (let ((_hd2542325437_ (let () (declare (not safe)) - (##car _e2325923271_))) - (_tl2326123276_ + (##car _e2542425434_))) + (_tl2542225439_ (let () (declare (not safe)) - (##cdr _e2325923271_)))) - ((lambda (_L23279_ _L23280_) - (let* ((_id23297_ + (##cdr _e2542425434_)))) + ((lambda (_L25442_ _L25443_) + (let* ((_id25460_ (make-symbol - (gx#stx-e _id23223_) + (let () + (declare (not safe)) + (gx#stx-e _id25386_)) '"__" - (length _clauses23232_) - (if _gensym?23225_ - (gensym '__) + (length _clauses25395_) + (if _gensym?25388_ + (let () + (declare + (not safe)) + (gensym '__)) '""))) - (_id23299_ - (gx#core-quote-syntax__1 - _id23297_ - (gx#stx-source - _stx23222_))) - (_impl23301_ - (gxc#xform-wrap-source - (cons (gx#datum->syntax__0 - '#f - '%#lambda) - (cons _L23280_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L23279_)) - _stx23222_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_clause23448_ - (let* ((___stx3396833969_ - _L23280_) - (_g2330523333_ + (_id25462_ + (let ((__tmp36851 + (let () + (declare + (not safe)) + (gx#stx-source + _stx25385_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _id25460_ + __tmp36851))) + (_impl25464_ + (let ((__tmp36852 + (let ((__tmp36854 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#lambda))) + (__tmp36853 + (let () + (declare (not safe)) + (cons _L25443_ _L25442_)))) + (declare (not safe)) + (cons __tmp36854 __tmp36853)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp36852 _stx25385_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_clause25611_ + (let* ((___stx3613136132_ + _L25443_) + (_g2546825496_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3396833969_)))) - (let ((___kont3397033971_ - (lambda (_L23427_) - (cons _L23280_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref - (cons _id23299_ '())) - (foldr1 (lambda (_g2343723440_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2343823442_) - (cons (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _g2343723440_ '())) - _g2343823442_)) - '() - _L23427_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx23222_) - '())))) - (___kont3397433975_ - (lambda (_L23378_ _L23379_) - (cons _L23280_ - (cons (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref - (cons 'apply '())) - (cons (cons '%#ref - (cons _id23299_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (foldr1 cons - (cons (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _L23378_ '())) - '()) - (foldr1 (lambda (_g2339023393_ _g2339123395_) - (cons (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _g2339023393_ '())) - _g2339123395_)) - '() - _L23379_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx23222_) - '())))) - (___kont3397833979_ - (lambda (_L23338_) - (cons _L23280_ - (cons (gxc#xform-wrap-source - (cons '%#call - (cons (cons '%#ref - (cons 'apply '())) - (cons (cons '%#ref - (cons _id23299_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _L23338_ '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx23222_) - '()))))) - (let* ((___match3399333994_ - (lambda (___splice3397633977_ - _target2331923354_ - _tl2332123356_) - (letrec ((_loop2332223359_ - (lambda (_hd2332023362_ _arg2332623364_) - (if (gx#stx-pair? _hd2332023362_) - (let ((_e2332323367_ - (gx#stx-e _hd2332023362_))) - (let ((_lp-tl2332523372_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3613136132_))))) + (let ((___kont3613336134_ + (lambda (_L25590_) + (let ((__tmp36855 + (let ((__tmp36856 + (let ((__tmp36857 + (let ((__tmp36858 + (let ((__tmp36864 + (let ((__tmp36865 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _id25462_ '())))) + (declare (not safe)) + (cons '%#ref __tmp36865))) + (__tmp36859 + (let ((__tmp36860 + (lambda (_g2560025603_ _g2560125605_) + (let ((__tmp36861 + (let ((__tmp36863 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#ref))) + (__tmp36862 + (let () + (declare (not safe)) + (cons _g2560025603_ '())))) + (declare (not safe)) + (cons __tmp36863 __tmp36862)))) + (declare (not safe)) + (cons __tmp36861 _g2560125605_))))) + (declare (not safe)) + (foldr1 __tmp36860 '() _L25590_)))) + (declare (not safe)) + (cons __tmp36864 __tmp36859)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#call __tmp36858)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp36857 + _stx25385_)))) + (declare (not safe)) + (cons __tmp36856 '())))) + (declare (not safe)) + (cons _L25443_ __tmp36855)))) + (___kont3613736138_ + (lambda (_L25541_ _L25542_) + (let ((__tmp36866 + (let ((__tmp36867 + (let ((__tmp36868 + (let ((__tmp36869 + (let ((__tmp36883 + (let ((__tmp36884 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons 'apply '())))) + (declare (not safe)) + (cons '%#ref __tmp36884))) + (__tmp36870 + (let ((__tmp36881 + (let ((__tmp36882 + (let () + (declare (not safe)) + (cons _id25462_ '())))) + (declare (not safe)) + (cons '%#ref __tmp36882))) + (__tmp36871 + (let ((__tmp36877 + (let ((__tmp36878 + (let ((__tmp36880 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp36879 + (let () + (declare (not safe)) + (cons _L25541_ '())))) + (declare (not safe)) + (cons __tmp36880 __tmp36879)))) + (declare (not safe)) + (cons __tmp36878 '()))) + (__tmp36872 + (let ((__tmp36873 + (lambda (_g2555325556_ _g2555425558_) + (let ((__tmp36874 + (let ((__tmp36876 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref))) + (__tmp36875 + (let () + (declare (not safe)) + (cons _g2555325556_ + '())))) + (declare (not safe)) + (cons __tmp36876 + __tmp36875)))) + (declare (not safe)) + (cons __tmp36874 _g2555425558_))))) + (declare (not safe)) + (foldr1 __tmp36873 '() _L25542_)))) + (declare (not safe)) + (foldr1 cons __tmp36877 __tmp36872)))) + (declare (not safe)) + (cons __tmp36881 __tmp36871)))) + (declare (not safe)) + (cons __tmp36883 __tmp36870)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#call __tmp36869)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp36868 + _stx25385_)))) + (declare (not safe)) + (cons __tmp36867 '())))) + (declare (not safe)) + (cons _L25443_ __tmp36866)))) + (___kont3614136142_ + (lambda (_L25501_) + (let ((__tmp36885 + (let ((__tmp36886 + (let ((__tmp36887 + (let ((__tmp36888 + (let ((__tmp36896 + (let ((__tmp36897 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons 'apply '())))) + (declare (not safe)) + (cons '%#ref __tmp36897))) + (__tmp36889 + (let ((__tmp36894 + (let ((__tmp36895 + (let () + (declare (not safe)) + (cons _id25462_ '())))) + (declare (not safe)) + (cons '%#ref __tmp36895))) + (__tmp36890 + (let ((__tmp36891 + (let ((__tmp36893 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#ref))) + (__tmp36892 + (let () + (declare (not safe)) + (cons _L25501_ '())))) + (declare (not safe)) + (cons __tmp36893 __tmp36892)))) + (declare (not safe)) + (cons __tmp36891 '())))) + (declare (not safe)) + (cons __tmp36894 __tmp36890)))) + (declare (not safe)) + (cons __tmp36896 __tmp36889)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#call __tmp36888)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp36887 + _stx25385_)))) + (declare (not safe)) + (cons __tmp36886 '())))) + (declare (not safe)) + (cons _L25443_ __tmp36885))))) + (let* ((___match3615636157_ + (lambda (___splice3613936140_ + _target2548225517_ + _tl2548425519_) + (letrec ((_loop2548525522_ + (lambda (_hd2548325525_ _arg2548925527_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2548325525_)) + (let ((_e2548625530_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2548325525_)))) + (let ((_lp-tl2548825535_ (let () (declare (not safe)) - (##cdr _e2332323367_))) - (_lp-hd2332423370_ + (##cdr _e2548625530_))) + (_lp-hd2548725533_ (let () (declare (not safe)) - (##car _e2332323367_)))) - (_loop2332223359_ - _lp-tl2332523372_ - (cons _lp-hd2332423370_ - _arg2332623364_)))) - (let ((_arg2332723375_ - (reverse _arg2332623364_))) - (___kont3397433975_ - _tl2332123356_ - _arg2332723375_)))))) - (_loop2332223359_ _target2331923354_ '())))) - (___match3398733988_ - (lambda (___splice3397233973_ - _target2330823403_ - _tl2331023405_) - (letrec ((_loop2331123408_ - (lambda (_hd2330923411_ _arg2331523413_) - (if (gx#stx-pair? _hd2330923411_) - (let ((_e2331223416_ - (gx#stx-e _hd2330923411_))) - (let ((_lp-tl2331423421_ + (##car _e2548625530_)))) + (let ((__tmp36898 + (let () + (declare (not safe)) + (cons _lp-hd2548725533_ + _arg2548925527_)))) + (declare (not safe)) + (_loop2548525522_ + _lp-tl2548825535_ + __tmp36898)))) + (let ((_arg2549025538_ + (let () + (declare (not safe)) + (reverse _arg2548925527_)))) + (___kont3613736138_ + _tl2548425519_ + _arg2549025538_)))))) + (let () + (declare (not safe)) + (_loop2548525522_ _target2548225517_ '()))))) + (___match3615036151_ + (lambda (___splice3613536136_ + _target2547125566_ + _tl2547325568_) + (letrec ((_loop2547425571_ + (lambda (_hd2547225574_ _arg2547825576_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2547225574_)) + (let ((_e2547525579_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2547225574_)))) + (let ((_lp-tl2547725584_ (let () (declare (not safe)) - (##cdr _e2331223416_))) - (_lp-hd2331323419_ + (##cdr _e2547525579_))) + (_lp-hd2547625582_ (let () (declare (not safe)) - (##car _e2331223416_)))) - (_loop2331123408_ - _lp-tl2331423421_ - (cons _lp-hd2331323419_ - _arg2331523413_)))) - (let ((_arg2331623424_ - (reverse _arg2331523413_))) - (___kont3397033971_ - _arg2331623424_)))))) - (_loop2331123408_ _target2330823403_ '()))))) - (if (gx#stx-pair/null? ___stx3396833969_) - (let ((___splice3397233973_ - (gx#syntax-split-splice ___stx3396833969_ '0))) - (let ((_tl2331023405_ + (##car _e2547525579_)))) + (let ((__tmp36899 + (let () + (declare (not safe)) + (cons _lp-hd2547625582_ + _arg2547825576_)))) + (declare (not safe)) + (_loop2547425571_ + _lp-tl2547725584_ + __tmp36899)))) + (let ((_arg2547925587_ + (let () + (declare (not safe)) + (reverse _arg2547825576_)))) + (___kont3613336134_ + _arg2547925587_)))))) + (let () + (declare (not safe)) + (_loop2547425571_ _target2547125566_ '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? ___stx3613136132_)) + (let ((___splice3613536136_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + ___stx3613136132_ + '0)))) + (let ((_tl2547325568_ (let () (declare (not safe)) - (##vector-ref ___splice3397233973_ '1))) - (_target2330823403_ + (##vector-ref ___splice3613536136_ '1))) + (_target2547125566_ (let () (declare (not safe)) - (##vector-ref ___splice3397233973_ '0)))) - (if (gx#stx-null? _tl2331023405_) - (___match3398733988_ - ___splice3397233973_ - _target2330823403_ - _tl2331023405_) - (___match3399333994_ - ___splice3397233973_ - _target2330823403_ - _tl2331023405_)))) - (___kont3397833979_ ___stx3396833969_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp23227_ - _rest23252_ - (cons _id23299_ _ids23230_) - (cons _impl23301_ _impls23231_) - (cons _clause23448_ - _clauses23232_)))) - _tl2326123276_ - _hd2326023274_))) - (_g2325523266_ _g2325623269_))))) - (_g2325423451_ _clause23253_)))))) - (if (let () (declare (not safe)) (##pair? _rest2323323241_)) - (let ((_hd2323823457_ - (let () (declare (not safe)) (##car _rest2323323241_))) - (_tl2323923459_ - (let () (declare (not safe)) (##cdr _rest2323323241_)))) - (let* ((_clause23462_ _hd2323823457_) - (_rest23464_ _tl2323923459_)) - (_K2323723454_ _rest23464_ _clause23462_))) - (_else2323523249_)))))) + (##vector-ref ___splice3613536136_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2547325568_)) + (___match3615036151_ + ___splice3613536136_ + _target2547125566_ + _tl2547325568_) + (___match3615636157_ + ___splice3613536136_ + _target2547125566_ + _tl2547325568_)))) + (___kont3614136142_ ___stx3613136132_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp36902 + (let () + (declare (not safe)) + (cons _id25462_ + _ids25393_))) + (__tmp36901 + (let () + (declare (not safe)) + (cons _impl25464_ + _impls25394_))) + (__tmp36900 + (let () + (declare (not safe)) + (cons _clause25611_ + _clauses25395_)))) + (declare (not safe)) + (_lp25390_ + _rest25415_ + __tmp36902 + __tmp36901 + __tmp36900)))) + _tl2542225439_ + _hd2542325437_))) + (let () + (declare (not safe)) + (_g2541825429_ _g2541925432_)))))) + (declare (not safe)) + (_g2541725614_ _clause25416_)))))) + (if (let () (declare (not safe)) (##pair? _rest2539625404_)) + (let ((_hd2540125620_ + (let () (declare (not safe)) (##car _rest2539625404_))) + (_tl2540225622_ + (let () (declare (not safe)) (##cdr _rest2539625404_)))) + (let* ((_clause25625_ _hd2540125620_) + (_rest25627_ _tl2540225622_)) + (declare (not safe)) + (_K2540025617_ _rest25627_ _clause25625_))) + (let () (declare (not safe)) (_else2539825412_))))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_stx23469_ _id23470_ _clauses23471_) - (let ((_gensym?23473_ '#f)) + (lambda (_stx25632_ _id25633_ _clauses25634_) + (let ((_gensym?25636_ '#f)) + (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx23469_ - _id23470_ - _clauses23471_ - _gensym?23473_)))) + _stx25632_ + _id25633_ + _clauses25634_ + _gensym?25636_)))) (define gxc#lift-case-lambda-clauses - (lambda _g34531_ - (let ((_g34530_ (let () (declare (not safe)) (##length _g34531_)))) - (cond ((let () (declare (not safe)) (##fx= _g34530_ 3)) - (apply gxc#lift-case-lambda-clauses__0 _g34531_)) - ((let () (declare (not safe)) (##fx= _g34530_ 4)) - (apply gxc#lift-case-lambda-clauses__% _g34531_)) + (lambda _g36905_ + (let ((_g36904_ (let () (declare (not safe)) (##length _g36905_)))) + (cond ((let () (declare (not safe)) (##fx= _g36904_ 3)) + (apply (lambda (_stx25632_ _id25633_ _clauses25634_) + (let () + (declare (not safe)) + (gxc#lift-case-lambda-clauses__0 + _stx25632_ + _id25633_ + _clauses25634_))) + _g36905_)) + ((let () (declare (not safe)) (##fx= _g36904_ 4)) + (apply (lambda (_stx25638_ + _id25639_ + _clauses25640_ + _gensym?25641_) + (let () + (declare (not safe)) + (gxc#lift-case-lambda-clauses__% + _stx25638_ + _id25639_ + _clauses25640_ + _gensym?25641_))) + _g36905_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g34531_)))))) + _g36905_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_stx22499_) - (letrec ((_case-lambda-clause-def22501_ - (lambda (_id23218_ _impl23219_) - (gxc#xform-wrap-source - (cons '%#define-values - (cons (cons _id23218_ '()) - (cons (gxc#compile-e _impl23219_) '()))) - _stx22499_))) - (_opt-lambda-dispatch-name22502_ - (lambda (_id23214_) - (if (uninterned-symbol? _id23214_) - (let ((_str23216_ (symbol->string _id23214_))) - (if (string-prefix? '"opt-lambda" _str23216_) + (lambda (_stx24662_) + (letrec ((_case-lambda-clause-def24664_ + (lambda (_id25381_ _impl25382_) + (let ((__tmp36906 + (let ((__tmp36907 + (let ((__tmp36910 + (let () + (declare (not safe)) + (cons _id25381_ '()))) + (__tmp36908 + (let ((__tmp36909 + (let () + (declare (not safe)) + (gxc#compile-e + _impl25382_)))) + (declare (not safe)) + (cons __tmp36909 '())))) + (declare (not safe)) + (cons __tmp36910 __tmp36908)))) + (declare (not safe)) + (cons '%#define-values __tmp36907)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp36906 _stx24662_)))) + (_opt-lambda-dispatch-name24665_ + (lambda (_id25377_) + (if (let () + (declare (not safe)) + (uninterned-symbol? _id25377_)) + (let ((_str25379_ + (let () + (declare (not safe)) + (symbol->string _id25377_)))) + (if (let () + (declare (not safe)) + (string-prefix? '"opt-lambda" _str25379_)) '"%" - _id23214_)) - _id23214_))) - (_kw-lambda-dispatch-name22503_ - (lambda (_id23209_ _name23210_) - (if (uninterned-symbol? _id23209_) - (let ((_str23212_ (symbol->string _id23209_))) - (if (string-prefix? '"kw-lambda" _str23212_) - _name23210_ - _id23209_)) - _id23209_)))) - (let* ((___stx3401634017_ _stx22499_) - (_g2250822567_ + _id25377_)) + _id25377_))) + (_kw-lambda-dispatch-name24666_ + (lambda (_id25372_ _name25373_) + (if (let () + (declare (not safe)) + (uninterned-symbol? _id25372_)) + (let ((_str25375_ + (let () + (declare (not safe)) + (symbol->string _id25372_)))) + (if (let () + (declare (not safe)) + (string-prefix? '"kw-lambda" _str25375_)) + _name25373_ + _id25372_)) + _id25372_)))) + (let* ((___stx3617936180_ _stx24662_) + (_g2467124730_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3401634017_)))) - (let ((___kont3401834019_ - (lambda (_L23118_ _L23119_) - (let* ((___stx3399633997_ _L23118_) - (_g2313623150_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3617936180_))))) + (let ((___kont3618136182_ + (lambda (_L25281_ _L25282_) + (let* ((___stx3615936160_ _L25281_) + (_g2529925313_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3399633997_)))) - (let ((___kont3399833999_ - (lambda (_L23194_) _stx22499_)) - (___kont3400034001_ - (lambda (_L23163_) - (let ((_g34532_ - (gxc#lift-case-lambda-clauses__0 - _stx22499_ - _L23119_ - _L23163_))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3615936160_))))) + (let ((___kont3616136162_ + (lambda (_L25357_) _stx24662_)) + (___kont3616336164_ + (lambda (_L25326_) + (let ((_g36911_ + (let () + (declare (not safe)) + (gxc#lift-case-lambda-clauses__0 + _stx24662_ + _L25282_ + _L25326_)))) (begin - (let ((_g34533_ + (let ((_g36912_ (let () (declare (not safe)) - (if (##values? _g34532_) - (##vector-length _g34532_) + (if (##values? _g36911_) + (##vector-length _g36911_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g34533_ 3))) + (##fx= _g36912_ 3))) (error "Context expects 3 values" - _g34533_))) - (let ((_ids23173_ + _g36912_))) + (let ((_ids25336_ (let () (declare (not safe)) - (##vector-ref _g34532_ 0))) - (_impls23174_ + (##vector-ref _g36911_ 0))) + (_impls25337_ (let () (declare (not safe)) - (##vector-ref _g34532_ 1))) - (_clauses23175_ + (##vector-ref _g36911_ 1))) + (_clauses25338_ (let () (declare (not safe)) - (##vector-ref _g34532_ 2)))) - (let* ((_g34534_ - (for-each - gx#core-bind-runtime! - _ids23173_)) - (_defs23178_ - (map _case-lambda-clause-def22501_ - _ids23173_ - _impls23174_))) - (gxc#verbose - '"lift case-lambda clauses " - (gxc#identifier-symbol _L23119_) - '" => " - (map gxc#identifier-symbol - _ids23173_)) - (gxc#xform-wrap-source - (cons '%#begin - (foldr1 cons - (cons (gxc#xform-wrap-source - (cons '%#define-values -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _L23119_ '()) - (cons (gxc#xform-wrap-source - (cons '%#case-lambda _clauses23175_) - (gx#datum->syntax__0 - '#f - 'case-lambda-expr)) - '()))) - _stx22499_) - '()) - _defs23178_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx22499_)))))))) - (let ((___match3400734008_ - (lambda (_e2313923186_ - _hd2314023189_ - _tl2314123191_) - (let ((_L23194_ _tl2314123191_)) - (if (andmap1 gxc#dispatch-lambda-form? - _L23194_) - (___kont3399833999_ _L23194_) - (___kont3400034001_ - _tl2314123191_)))))) - (if (gx#stx-pair? ___stx3399633997_) - (let ((_e2313923186_ - (gx#stx-e ___stx3399633997_))) - (let ((_tl2314123191_ + (##vector-ref _g36911_ 2)))) + (let* ((_g36913_ + (let () + (declare (not safe)) + (for-each + gx#core-bind-runtime! + _ids25336_))) + (_defs25341_ + (let () + (declare (not safe)) + (map _case-lambda-clause-def24664_ + _ids25336_ + _impls25337_)))) + (let ((__tmp36915 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L25282_))) + (__tmp36914 + (let () + (declare (not safe)) + (map gxc#identifier-symbol + _ids25336_)))) + (declare (not safe)) + (gxc#verbose + '"lift case-lambda clauses " + __tmp36915 + '" => " + __tmp36914)) + (let ((__tmp36916 + (let ((__tmp36917 + (let ((__tmp36918 + (let ((__tmp36919 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp36920 + (let ((__tmp36921 + (let ((__tmp36926 + (let () + (declare (not safe)) + (cons _L25282_ '()))) + (__tmp36922 + (let ((__tmp36923 + (let ((__tmp36925 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons '%#case-lambda _clauses25338_))) + (__tmp36924 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'case-lambda-expr)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp36925 __tmp36924)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp36923 '())))) + (declare (not safe)) + (cons __tmp36926 __tmp36922)))) + (declare (not safe)) + (cons '%#define-values __tmp36921)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp36920 _stx24662_)))) + (declare (not safe)) + (cons __tmp36919 '())))) + (declare (not safe)) + (foldr1 cons __tmp36918 _defs25341_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#begin __tmp36917)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp36916 + _stx24662_))))))))) + (let ((___match3617036171_ + (lambda (_e2530425349_ + _hd2530325352_ + _tl2530225354_) + (let ((_L25357_ _tl2530225354_)) + (if (let () + (declare (not safe)) + (andmap1 gxc#dispatch-lambda-form? + _L25357_)) + (___kont3616136162_ _L25357_) + (___kont3616336164_ + _tl2530225354_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3615936160_)) + (let ((_e2530425349_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3615936160_)))) + (let ((_tl2530225354_ (let () (declare (not safe)) - (##cdr _e2313923186_))) - (_hd2314023189_ + (##cdr _e2530425349_))) + (_hd2530325352_ (let () (declare (not safe)) - (##car _e2313923186_)))) - (___match3400734008_ - _e2313923186_ - _hd2314023189_ - _tl2314123191_))) - (_g2313623150_))))))) - (___kont3402034021_ - (lambda (_L22936_ _L22937_) - (let* ((_g2295322983_ - (lambda (_g2295422980_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2295422980_))) - (_g2295223078_ - (lambda (_g2295422986_) - (if (gx#stx-pair? _g2295422986_) - (let ((_e2295822988_ - (gx#stx-e _g2295422986_))) - (let ((_hd2295922991_ + (##car _e2530425349_)))) + (___match3617036171_ + _e2530425349_ + _hd2530325352_ + _tl2530225354_))) + (let () + (declare (not safe)) + (_g2529925313_)))))))) + (___kont3618336184_ + (lambda (_L25099_ _L25100_) + (let* ((_g2511625146_ + (lambda (_g2511725143_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2511725143_)))) + (_g2511525241_ + (lambda (_g2511725149_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2511725149_)) + (let ((_e2512325151_ + (let () + (declare (not safe)) + (gx#stx-e _g2511725149_)))) + (let ((_hd2512225154_ (let () (declare (not safe)) - (##car _e2295822988_))) - (_tl2296022993_ + (##car _e2512325151_))) + (_tl2512125156_ (let () (declare (not safe)) - (##cdr _e2295822988_)))) - (if (gx#stx-pair? _tl2296022993_) - (let ((_e2296122996_ - (gx#stx-e _tl2296022993_))) - (let ((_hd2296222999_ + (##cdr _e2512325151_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2512125156_)) + (let ((_e2512625159_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2512125156_)))) + (let ((_hd2512525162_ (let () (declare (not safe)) - (##car _e2296122996_))) - (_tl2296323001_ + (##car _e2512625159_))) + (_tl2512425164_ (let () (declare (not safe)) - (##cdr _e2296122996_)))) - (if (gx#stx-pair? - _hd2296222999_) - (let ((_e2296423004_ - (gx#stx-e - _hd2296222999_))) - (let ((_hd2296523007_ + (##cdr _e2512625159_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2512525162_)) + (let ((_e2512925167_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd2512525162_)))) + (let ((_hd2512825170_ (let () (declare (not safe)) - (##car _e2296423004_))) - (_tl2296623009_ + (##car _e2512925167_))) + (_tl2512725172_ (let () (declare (not safe)) - (##cdr _e2296423004_)))) - (if (gx#stx-pair? - _hd2296523007_) - (let ((_e2296723012_ + (##cdr _e2512925167_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd2512825170_)) + (let ((_e2513225175_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd2296523007_))) - (let ((_hd2296823015_ + (let () + (declare (not safe)) + (gx#stx-e _hd2512825170_)))) + (let ((_hd2513125178_ (let () (declare (not safe)) - (##car _e2296723012_))) - (_tl2296923017_ + (##car _e2513225175_))) + (_tl2513025180_ (let () (declare (not safe)) - (##cdr _e2296723012_)))) - (if (gx#stx-pair? _hd2296823015_) - (let ((_e2297023020_ (gx#stx-e _hd2296823015_))) - (let ((_hd2297123023_ + (##cdr _e2513225175_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2513125178_)) + (let ((_e2513525183_ + (let () + (declare (not safe)) + (gx#stx-e _hd2513125178_)))) + (let ((_hd2513425186_ (let () (declare (not safe)) - (##car _e2297023020_))) - (_tl2297223025_ + (##car _e2513525183_))) + (_tl2513325188_ (let () (declare (not safe)) - (##cdr _e2297023020_)))) - (if (gx#stx-null? _tl2297223025_) - (if (gx#stx-pair? _tl2296923017_) - (let ((_e2297323028_ - (gx#stx-e _tl2296923017_))) - (let ((_hd2297423031_ + (##cdr _e2513525183_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2513325188_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2513025180_)) + (let ((_e2513825191_ + (let () + (declare (not safe)) + (gx#stx-e _tl2513025180_)))) + (let ((_hd2513725194_ (let () (declare (not safe)) - (##car _e2297323028_))) - (_tl2297523033_ + (##car _e2513825191_))) + (_tl2513625196_ (let () (declare (not safe)) - (##cdr _e2297323028_)))) - (if (gx#stx-null? _tl2297523033_) - (if (gx#stx-null? - _tl2296623009_) - (if (gx#stx-pair? - _tl2296323001_) - (let ((_e2297623036_ - (gx#stx-e - _tl2296323001_))) - (let ((_hd2297723039_ - (let () + (##cdr _e2513825191_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2513625196_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2512725172_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2512425164_)) + (let ((_e2514125199_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e2297623036_))) - (_tl2297823041_ - (let () (declare (not safe)) (##cdr _e2297623036_)))) - (if (gx#stx-null? _tl2297823041_) - ((lambda (_L23044_ _L23045_ _L23046_) - (let* ((_lambda-id23070_ + (not safe)) + (gx#stx-e _tl2512425164_)))) + (let ((_hd2514025202_ + (let () (declare (not safe)) (##car _e2514125199_))) + (_tl2513925204_ + (let () (declare (not safe)) (##cdr _e2514125199_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2513925204_)) + ((lambda (_L25207_ _L25208_ _L25209_) + (let* ((_lambda-id25233_ (make-symbol - (gx#stx-e _L22937_) + (let () + (declare (not safe)) + (gx#stx-e _L25100_)) '"__" - (_opt-lambda-dispatch-name22502_ - (gx#stx-e _L23046_)))) - (_lambda-id23072_ - (gx#core-quote-syntax__1 - _lambda-id23070_ - (gx#stx-source _stx22499_))) - (_g34535_ - (gx#core-bind-runtime!__0 _lambda-id23072_)) - (_new-case-lambda-expr23075_ - (gxc#apply-expression-subst - _L23044_ - _L23046_ - _lambda-id23072_))) - (gxc#verbose - '"lift opt-lambda dispatch " - (gxc#identifier-symbol _L22937_) - '" => " - (gxc#identifier-symbol _lambda-id23072_)) - (gxc#xform-wrap-source - (cons '%#begin - (cons (gxc#xform-wrap-source - (cons '%#define-values - (cons (cons _lambda-id23072_ - '()) - (cons (gxc#compile-e - _L23045_) - '()))) - _stx22499_) - (cons (gxc#lift-top-lambda-define-values% - (gxc#xform-wrap-source - (cons '%#define-values - (cons (cons _L22937_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _new-case-lambda-expr23075_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx22499_)) - '()))) - _stx22499_))) - _hd2297723039_ - _hd2297423031_ - _hd2297123023_) - (_g2295322983_ _g2295422986_)))) - (_g2295322983_ _g2295422986_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2295322983_ - _g2295422986_)) - (_g2295322983_ _g2295422986_)))) - (_g2295322983_ _g2295422986_)) - (_g2295322983_ _g2295422986_)))) - (_g2295322983_ _g2295422986_)))) - (_g2295322983_ _g2295422986_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2295322983_ - _g2295422986_)))) - (_g2295322983_ _g2295422986_)))) - (_g2295322983_ _g2295422986_))))) - (_g2295223078_ _L22936_)))) - (___kont3402234023_ - (lambda (_L22650_ _L22651_) - (let* ((_g2266722720_ - (lambda (_g2266822717_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2266822717_))) - (_g2266622896_ - (lambda (_g2266822723_) - (if (gx#stx-pair? _g2266822723_) - (let ((_e2267422725_ - (gx#stx-e _g2266822723_))) - (let ((_hd2267522728_ + (let ((__tmp36927 + (let () + (declare (not safe)) + (gx#stx-e _L25209_)))) + (declare (not safe)) + (_opt-lambda-dispatch-name24665_ + __tmp36927)))) + (_lambda-id25235_ + (let ((__tmp36928 + (let () + (declare (not safe)) + (gx#stx-source _stx24662_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _lambda-id25233_ + __tmp36928))) + (_g36929_ + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 + _lambda-id25235_))) + (_new-case-lambda-expr25238_ + (let () + (declare (not safe)) + (gxc#apply-expression-subst + _L25207_ + _L25209_ + _lambda-id25235_)))) + (let ((__tmp36931 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L25100_))) + (__tmp36930 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _lambda-id25235_)))) + (declare (not safe)) + (gxc#verbose + '"lift opt-lambda dispatch " + __tmp36931 + '" => " + __tmp36930)) + (let ((__tmp36932 + (let ((__tmp36933 + (let ((__tmp36941 + (let ((__tmp36942 + (let ((__tmp36943 + (let ((__tmp36946 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _lambda-id25235_ '()))) + (__tmp36944 + (let ((__tmp36945 + (let () + (declare (not safe)) + (gxc#compile-e _L25208_)))) + (declare (not safe)) + (cons __tmp36945 '())))) + (declare (not safe)) + (cons __tmp36946 __tmp36944)))) + (declare (not safe)) + (cons '%#define-values __tmp36943)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp36942 + _stx24662_))) + (__tmp36934 + (let ((__tmp36935 + (let ((__tmp36936 + (let ((__tmp36937 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp36938 + (let ((__tmp36940 + (let () + (declare (not safe)) + (cons _L25100_ '()))) + (__tmp36939 + (let () + (declare (not safe)) + (cons _new-case-lambda-expr25238_ + '())))) + (declare (not safe)) + (cons __tmp36940 __tmp36939)))) + (declare (not safe)) + (cons '%#define-values __tmp36938)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp36937 _stx24662_)))) + (declare (not safe)) + (gxc#lift-top-lambda-define-values% __tmp36936)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp36935 '())))) + (declare (not safe)) + (cons __tmp36941 __tmp36934)))) + (declare (not safe)) + (cons '%#begin __tmp36933)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp36932 _stx24662_)))) + _hd2514025202_ + _hd2513725194_ + _hd2513425186_) + (let () + (declare (not safe)) + (_g2511625146_ _g2511725149_))))) + (let () (declare (not safe)) (_g2511625146_ _g2511725149_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2511625146_ + _g2511725149_))) + (let () + (declare (not safe)) + (_g2511625146_ + _g2511725149_))))) + (let () + (declare (not safe)) + (_g2511625146_ _g2511725149_))) + (let () + (declare (not safe)) + (_g2511625146_ _g2511725149_))))) + (let () + (declare (not safe)) + (_g2511625146_ _g2511725149_))))) + (let () + (declare (not safe)) + (_g2511625146_ _g2511725149_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2511625146_ + _g2511725149_))))) + (let () + (declare (not safe)) + (_g2511625146_ _g2511725149_))))) + (let () + (declare (not safe)) + (_g2511625146_ _g2511725149_)))))) + (declare (not safe)) + (_g2511525241_ _L25099_)))) + (___kont3618536186_ + (lambda (_L24813_ _L24814_) + (let* ((_g2483024883_ + (lambda (_g2483124880_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2483124880_)))) + (_g2482925059_ + (lambda (_g2483124886_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2483124886_)) + (let ((_e2483924888_ + (let () + (declare (not safe)) + (gx#stx-e _g2483124886_)))) + (let ((_hd2483824891_ (let () (declare (not safe)) - (##car _e2267422725_))) - (_tl2267622730_ + (##car _e2483924888_))) + (_tl2483724893_ (let () (declare (not safe)) - (##cdr _e2267422725_)))) - (if (gx#stx-pair? _tl2267622730_) - (let ((_e2267722733_ - (gx#stx-e _tl2267622730_))) - (let ((_hd2267822736_ + (##cdr _e2483924888_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2483724893_)) + (let ((_e2484224896_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2483724893_)))) + (let ((_hd2484124899_ (let () (declare (not safe)) - (##car _e2267722733_))) - (_tl2267922738_ + (##car _e2484224896_))) + (_tl2484024901_ (let () (declare (not safe)) - (##cdr _e2267722733_)))) - (if (gx#stx-pair? - _hd2267822736_) - (let ((_e2268022741_ - (gx#stx-e - _hd2267822736_))) - (let ((_hd2268122744_ + (##cdr _e2484224896_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2484124899_)) + (let ((_e2484524904_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd2484124899_)))) + (let ((_hd2484424907_ (let () (declare (not safe)) - (##car _e2268022741_))) - (_tl2268222746_ + (##car _e2484524904_))) + (_tl2484324909_ (let () (declare (not safe)) - (##cdr _e2268022741_)))) - (if (gx#stx-pair? - _hd2268122744_) - (let ((_e2268322749_ + (##cdr _e2484524904_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd2484424907_)) + (let ((_e2484824912_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd2268122744_))) - (let ((_hd2268422752_ + (let () + (declare (not safe)) + (gx#stx-e _hd2484424907_)))) + (let ((_hd2484724915_ (let () (declare (not safe)) - (##car _e2268322749_))) - (_tl2268522754_ + (##car _e2484824912_))) + (_tl2484624917_ (let () (declare (not safe)) - (##cdr _e2268322749_)))) - (if (gx#stx-pair? _hd2268422752_) - (let ((_e2268622757_ (gx#stx-e _hd2268422752_))) - (let ((_hd2268722760_ + (##cdr _e2484824912_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2484724915_)) + (let ((_e2485124920_ + (let () + (declare (not safe)) + (gx#stx-e _hd2484724915_)))) + (let ((_hd2485024923_ (let () (declare (not safe)) - (##car _e2268622757_))) - (_tl2268822762_ + (##car _e2485124920_))) + (_tl2484924925_ (let () (declare (not safe)) - (##cdr _e2268622757_)))) - (if (gx#stx-null? _tl2268822762_) - (if (gx#stx-pair? _tl2268522754_) - (let ((_e2268922765_ - (gx#stx-e _tl2268522754_))) - (let ((_hd2269022768_ + (##cdr _e2485124920_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2484924925_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2484624917_)) + (let ((_e2485424928_ + (let () + (declare (not safe)) + (gx#stx-e _tl2484624917_)))) + (let ((_hd2485324931_ (let () (declare (not safe)) - (##car _e2268922765_))) - (_tl2269122770_ + (##car _e2485424928_))) + (_tl2485224933_ (let () (declare (not safe)) - (##cdr _e2268922765_)))) - (if (gx#stx-pair? _hd2269022768_) - (let ((_e2269222773_ - (gx#stx-e - _hd2269022768_))) - (let ((_hd2269322776_ + (##cdr _e2485424928_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2485324931_)) + (let ((_e2485724936_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2485324931_)))) + (let ((_hd2485624939_ (let () (declare (not safe)) - (##car _e2269222773_))) - (_tl2269422778_ + (##car _e2485724936_))) + (_tl2485524941_ (let () (declare (not safe)) - (##cdr _e2269222773_)))) - (if (gx#stx-pair? - _tl2269422778_) - (let ((_e2269522781_ - (gx#stx-e - _tl2269422778_))) - (let ((_hd2269622784_ - (let () + (##cdr _e2485724936_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2485524941_)) + (let ((_e2486024944_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e2269522781_))) - (_tl2269722786_ - (let () (declare (not safe)) (##cdr _e2269522781_)))) - (if (gx#stx-pair? _hd2269622784_) - (let ((_e2269822789_ (gx#stx-e _hd2269622784_))) - (let ((_hd2269922792_ + (not safe)) + (gx#stx-e _tl2485524941_)))) + (let ((_hd2485924947_ + (let () (declare (not safe)) (##car _e2486024944_))) + (_tl2485824949_ + (let () (declare (not safe)) (##cdr _e2486024944_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2485924947_)) + (let ((_e2486324952_ + (let () + (declare (not safe)) + (gx#stx-e _hd2485924947_)))) + (let ((_hd2486224955_ (let () (declare (not safe)) - (##car _e2269822789_))) - (_tl2270022794_ + (##car _e2486324952_))) + (_tl2486124957_ (let () (declare (not safe)) - (##cdr _e2269822789_)))) - (if (gx#stx-pair? _hd2269922792_) - (let ((_e2270122797_ (gx#stx-e _hd2269922792_))) - (let ((_hd2270222800_ + (##cdr _e2486324952_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2486224955_)) + (let ((_e2486624960_ + (let () + (declare (not safe)) + (gx#stx-e _hd2486224955_)))) + (let ((_hd2486524963_ (let () (declare (not safe)) - (##car _e2270122797_))) - (_tl2270322802_ + (##car _e2486624960_))) + (_tl2486424965_ (let () (declare (not safe)) - (##cdr _e2270122797_)))) - (if (gx#stx-pair? _hd2270222800_) - (let ((_e2270422805_ - (gx#stx-e _hd2270222800_))) - (let ((_hd2270522808_ + (##cdr _e2486624960_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2486524963_)) + (let ((_e2486924968_ + (let () + (declare (not safe)) + (gx#stx-e _hd2486524963_)))) + (let ((_hd2486824971_ (let () (declare (not safe)) - (##car _e2270422805_))) - (_tl2270622810_ + (##car _e2486924968_))) + (_tl2486724973_ (let () (declare (not safe)) - (##cdr _e2270422805_)))) - (if (gx#stx-null? _tl2270622810_) - (if (gx#stx-pair? - _tl2270322802_) - (let ((_e2270722813_ - (gx#stx-e - _tl2270322802_))) - (let ((_hd2270822816_ + (##cdr _e2486924968_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2486724973_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2486424965_)) + (let ((_e2487224976_ + (let () + (declare + (not safe)) + (gx#stx-e + _tl2486424965_)))) + (let ((_hd2487124979_ (let () (declare (not safe)) - (##car _e2270722813_))) - (_tl2270922818_ + (##car _e2487224976_))) + (_tl2487024981_ (let () (declare (not safe)) - (##cdr _e2270722813_)))) - (if (gx#stx-null? - _tl2270922818_) - (if (gx#stx-null? - _tl2270022794_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2269722786_) - (let ((_e2271022821_ (gx#stx-e _tl2269722786_))) - (let ((_hd2271122824_ + (##cdr _e2487224976_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2487024981_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-null? _tl2486124957_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2485824949_)) + (let ((_e2487524984_ + (let () + (declare (not safe)) + (gx#stx-e _tl2485824949_)))) + (let ((_hd2487424987_ (let () (declare (not safe)) - (##car _e2271022821_))) - (_tl2271222826_ + (##car _e2487524984_))) + (_tl2487324989_ (let () (declare (not safe)) - (##cdr _e2271022821_)))) - (if (gx#stx-null? _tl2271222826_) - (if (gx#stx-null? _tl2269122770_) - (if (gx#stx-null? _tl2268222746_) - (if (gx#stx-pair? _tl2267922738_) - (let ((_e2271322829_ - (gx#stx-e - _tl2267922738_))) - (let ((_hd2271422832_ + (##cdr _e2487524984_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2487324989_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2485224933_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2484324909_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2484024901_)) + (let ((_e2487824992_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2484024901_)))) + (let ((_hd2487724995_ (let () (declare (not safe)) - (##car _e2271322829_))) - (_tl2271522834_ + (##car _e2487824992_))) + (_tl2487624997_ (let () (declare (not safe)) - (##cdr _e2271322829_)))) - (if (gx#stx-null? - _tl2271522834_) - ((lambda (_L22837_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L22838_ - _L22839_ - _L22840_ - _L22841_) - (let* ((_get-kws-id22881_ + (##cdr _e2487824992_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2487624997_)) + ((lambda (_L25000_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L25001_ + _L25002_ + _L25003_ + _L25004_) + (let* ((_get-kws-id25044_ (make-symbol - (gx#stx-e _L22651_) + (let () (declare (not safe)) (gx#stx-e _L24814_)) '"__" - (_kw-lambda-dispatch-name22503_ - (gx#stx-e _L22841_) - '"@"))) - (_get-kws-id22883_ - (gx#core-quote-syntax__1 - _get-kws-id22881_ - (gx#stx-source _stx22499_))) - (_main-id22885_ + (let ((__tmp36947 + (let () + (declare (not safe)) + (gx#stx-e _L25004_)))) + (declare (not safe)) + (_kw-lambda-dispatch-name24666_ + __tmp36947 + '"@")))) + (_get-kws-id25046_ + (let ((__tmp36948 + (let () + (declare (not safe)) + (gx#stx-source _stx24662_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _get-kws-id25044_ + __tmp36948))) + (_main-id25048_ (make-symbol - (gx#stx-e _L22651_) + (let () (declare (not safe)) (gx#stx-e _L24814_)) '"__" - (_kw-lambda-dispatch-name22503_ - (gx#stx-e _L22840_) - '"%"))) - (_main-id22887_ - (gx#core-quote-syntax__1 - _main-id22885_ - (gx#stx-source _stx22499_))) - (_g34536_ - (gx#core-bind-runtime!__0 _get-kws-id22883_)) - (_g34537_ (gx#core-bind-runtime!__0 _main-id22887_)) - (_new-kw-dispatch22891_ - (gxc#apply-expression-subst - _L22837_ - _L22841_ - _get-kws-id22883_)) - (_new-get-kws22893_ - (gxc#apply-expression-subst - _L22838_ - _L22840_ - _main-id22887_))) - (gxc#verbose - '"lift kw-lambda dispatch " - (gxc#identifier-symbol _L22651_) - '" => " - (gxc#identifier-symbol _get-kws-id22883_) - '" => " - (gxc#identifier-symbol _main-id22887_)) - (gxc#xform-wrap-source - (cons '%#begin - (cons (gxc#lift-top-lambda-define-values% - (gxc#xform-wrap-source - (cons '%#define-values - (cons (cons _main-id22887_ '()) - (cons _L22839_ '()))) - _stx22499_)) - (cons (gxc#xform-wrap-source - (cons '%#define-values - (cons (cons _get-kws-id22883_ - '()) - (cons _new-get-kws22893_ - '()))) - _stx22499_) - (cons (gxc#xform-wrap-source - (cons '%#define-values - (cons (cons _L22651_ '()) - (cons _new-kw-dispatch22891_ - '()))) - _stx22499_) - '())))) - _stx22499_))) - _hd2271422832_ - _hd2271122824_ - _hd2270822816_ - _hd2270522808_ - _hd2268722760_) - (_g2266722720_ _g2266822723_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2266722720_ _g2266822723_)) - (_g2266722720_ _g2266822723_)) - (_g2266722720_ _g2266822723_)) - (_g2266722720_ _g2266822723_)))) - (_g2266722720_ _g2266822723_)) - (_g2266722720_ _g2266822723_)) - (_g2266722720_ _g2266822723_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2266722720_ - _g2266822723_)) - (_g2266722720_ _g2266822723_)))) - (_g2266722720_ _g2266822723_)))) - (_g2266722720_ _g2266822723_)))) - (_g2266722720_ _g2266822723_)))) - (_g2266722720_ _g2266822723_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2266722720_ _g2266822723_)))) - (_g2266722720_ _g2266822723_)) - (_g2266722720_ _g2266822723_)))) - (_g2266722720_ _g2266822723_)))) - (_g2266722720_ _g2266822723_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2266722720_ - _g2266822723_)))) - (_g2266722720_ _g2266822723_)))) - (_g2266722720_ _g2266822723_))))) - (_g2266622896_ _L22650_)))) - (___kont3402434025_ - (lambda (_L22596_ _L22597_) - (gxc#xform-wrap-source - (cons '%#define-values - (cons _L22597_ - (cons (gxc#compile-e _L22596_) '()))) - _stx22499_)))) - (let* ((___match3410934110_ - (lambda (_e2254022618_ - _hd2254122621_ - _tl2254222623_ - _e2254322626_ - _hd2254422629_ - _tl2254522631_ - _e2254622634_ - _hd2254722637_ - _tl2254822639_ - _e2254922642_ - _hd2255022645_ - _tl2255122647_) - (let ((_L22650_ _hd2255022645_) - (_L22651_ _hd2254722637_)) - (if (and (gx#identifier? _L22651_) - (gxc#kw-lambda-expr? _L22650_)) - (___kont3402234023_ _L22650_ _L22651_) - (___kont3402434025_ - _hd2255022645_ - _hd2254422629_))))) - (___match3408134082_ - (lambda (_e2252622904_ - _hd2252722907_ - _tl2252822909_ - _e2252922912_ - _hd2253022915_ - _tl2253122917_ - _e2253222920_ - _hd2253322923_ - _tl2253422925_ - _e2253522928_ - _hd2253622931_ - _tl2253722933_) - (let ((_L22936_ _hd2253622931_) - (_L22937_ _hd2253322923_)) - (if (and (gx#identifier? _L22937_) - (gxc#opt-lambda-expr? _L22936_)) - (___kont3402034021_ _L22936_ _L22937_) - (___match3410934110_ - _e2252622904_ - _hd2252722907_ - _tl2252822909_ - _e2252922912_ - _hd2253022915_ - _tl2253122917_ - _e2253222920_ - _hd2253322923_ - _tl2253422925_ - _e2253522928_ - _hd2253622931_ - _tl2253722933_))))) - (___match3405334054_ - (lambda (_e2251223086_ - _hd2251323089_ - _tl2251423091_ - _e2251523094_ - _hd2251623097_ - _tl2251723099_ - _e2251823102_ - _hd2251923105_ - _tl2252023107_ - _e2252123110_ - _hd2252223113_ - _tl2252323115_) - (let ((_L23118_ _hd2252223113_) - (_L23119_ _hd2251923105_)) - (if (and (gx#identifier? _L23119_) - (gxc#case-lambda-expr? _L23118_)) - (___kont3401834019_ _L23118_ _L23119_) - (___match3408134082_ - _e2251223086_ - _hd2251323089_ - _tl2251423091_ - _e2251523094_ - _hd2251623097_ - _tl2251723099_ - _e2251823102_ - _hd2251923105_ - _tl2252023107_ - _e2252123110_ - _hd2252223113_ - _tl2252323115_)))))) - (if (gx#stx-pair? ___stx3401634017_) - (let ((_e2251223086_ (gx#stx-e ___stx3401634017_))) - (let ((_tl2251423091_ - (let () - (declare (not safe)) - (##cdr _e2251223086_))) - (_hd2251323089_ - (let () - (declare (not safe)) - (##car _e2251223086_)))) - (if (gx#stx-pair? _tl2251423091_) - (let ((_e2251523094_ (gx#stx-e _tl2251423091_))) - (let ((_tl2251723099_ - (let () - (declare (not safe)) - (##cdr _e2251523094_))) - (_hd2251623097_ - (let () - (declare (not safe)) - (##car _e2251523094_)))) - (if (gx#stx-pair? _hd2251623097_) - (let ((_e2251823102_ - (gx#stx-e _hd2251623097_))) - (let ((_tl2252023107_ - (let () - (declare (not safe)) - (##cdr _e2251823102_))) - (_hd2251923105_ - (let () - (declare (not safe)) - (##car _e2251823102_)))) - (if (gx#stx-null? _tl2252023107_) - (if (gx#stx-pair? _tl2251723099_) - (let ((_e2252123110_ - (gx#stx-e - _tl2251723099_))) - (let ((_tl2252323115_ - (let () - (declare (not safe)) - (##cdr _e2252123110_))) - (_hd2252223113_ - (let () - (declare (not safe)) - (##car _e2252123110_)))) - (if (gx#stx-null? - _tl2252323115_) - (___match3405334054_ - _e2251223086_ - _hd2251323089_ - _tl2251423091_ - _e2251523094_ - _hd2251623097_ - _tl2251723099_ - _e2251823102_ - _hd2251923105_ - _tl2252023107_ - _e2252123110_ - _hd2252223113_ - _tl2252323115_) - (_g2250822567_)))) - (_g2250822567_)) - (if (gx#stx-pair? _tl2251723099_) - (let ((_e2256022588_ - (gx#stx-e - _tl2251723099_))) - (let ((_tl2256222593_ - (let () - (declare (not safe)) - (##cdr _e2256022588_))) - (_hd2256122591_ - (let () - (declare (not safe)) - (##car _e2256022588_)))) - (if (gx#stx-null? - _tl2256222593_) - (___kont3402434025_ - _hd2256122591_ - _hd2251623097_) - (_g2250822567_)))) - (_g2250822567_))))) - (if (gx#stx-pair? _tl2251723099_) - (let ((_e2256022588_ - (gx#stx-e _tl2251723099_))) - (let ((_tl2256222593_ - (let () - (declare (not safe)) - (##cdr _e2256022588_))) - (_hd2256122591_ - (let () - (declare (not safe)) - (##car _e2256022588_)))) - (if (gx#stx-null? _tl2256222593_) - (___kont3402434025_ - _hd2256122591_ - _hd2251623097_) - (_g2250822567_)))) - (_g2250822567_))))) - (_g2250822567_)))) - (_g2250822567_)))))))) - (define gxc#lift-top-lambda-let-values% - (lambda (_stx21431_) - (letrec* ((_bind-e__3118031181_ - (lambda (_id22483_ _expr22484_ _compile?22485_) - (cons (cons _id22483_ '()) - (cons (if _compile?22485_ - (gxc#compile-e _expr22484_) - _expr22484_) - '())))) - (_bind-e__0__3118231183_ - (lambda (_id22490_ _expr22491_) - (let ((_compile?22493_ '#t)) - (_bind-e__3118031181_ - _id22490_ - _expr22491_ - _compile?22493_)))) - (_bind-e21433_ - (lambda _g34539_ - (let ((_g34538_ - (let () (declare (not safe)) (##length _g34539_)))) - (cond ((let () (declare (not safe)) (##fx= _g34538_ 2)) - (apply _bind-e__0__3118231183_ _g34539_)) - ((let () (declare (not safe)) (##fx= _g34538_ 3)) - (apply _bind-e__3118031181_ _g34539_)) - (else - (##raise-wrong-number-of-arguments-exception - 'case-lambda-dispatch - _g34539_)))))) - (_compile-bindings21434_ - (lambda (_bindings22067_) - (let _lp22069_ ((_rest22071_ _bindings22067_) - (_lift122072_ '()) - (_lift222073_ '()) - (_bind22074_ '())) - (let* ((_rest2207522083_ _rest22071_) - (_else2207722091_ - (lambda () - (values (reverse _lift122072_) - (reverse _lift222073_) - (reverse _bind22074_)))) - (_K2207922470_ - (lambda (_rest22094_ _hd22095_) - (let* ((___stx3415234153_ _hd22095_) - (_g2209922135_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3415234153_)))) - (let ((___kont3415434155_ - (lambda (_L22377_ _L22378_) - (let* ((___stx3413234133_ _L22377_) - (_g2239322407_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3413234133_)))) - (let ((___kont3413434135_ - (lambda (_L22455_) - (_lp22069_ - _rest22094_ - _lift122072_ - _lift222073_ - (cons (_bind-e__3118031181_ - _L22378_ - _L22377_ - '#f) - _bind22074_)))) - (___kont3413634137_ - (lambda (_L22420_) - (let ((_g34540_ - (gxc#lift-case-lambda-clauses__% - _stx21431_ - _L22378_ - _L22420_ - '#t))) - (begin - (let ((_g34541_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp36949 + (let () + (declare (not safe)) + (gx#stx-e _L25003_)))) + (declare (not safe)) + (_kw-lambda-dispatch-name24666_ + __tmp36949 + '"%")))) + (_main-id25050_ + (let ((__tmp36950 + (let () + (declare (not safe)) + (gx#stx-source _stx24662_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _main-id25048_ + __tmp36950))) + (_g36951_ (let () (declare (not safe)) - (if (##values? _g34540_) - (##vector-length _g34540_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g34541_ 3))) - (error "Context expects 3 values" _g34541_))) - (let ((_ids22430_ + (gx#core-bind-runtime!__0 _get-kws-id25046_))) + (_g36952_ (let () (declare (not safe)) - (##vector-ref _g34540_ 0))) - (_impls22431_ + (gx#core-bind-runtime!__0 _main-id25050_))) + (_new-kw-dispatch25054_ (let () (declare (not safe)) - (##vector-ref _g34540_ 1))) - (_clauses22432_ + (gxc#apply-expression-subst + _L25000_ + _L25004_ + _get-kws-id25046_))) + (_new-get-kws25056_ (let () (declare (not safe)) - (##vector-ref _g34540_ 2)))) - (let* ((_g34542_ - (for-each gx#core-bind-runtime! _ids22430_)) - (_xbind22435_ - (map _bind-e21433_ _ids22430_ _impls22431_)) - (_expr*22437_ - (gxc#xform-wrap-source - (cons '%#case-lambda _clauses22432_) - (gx#datum->syntax__0 '#f 'case-lambda-expr))) - (_bind*22439_ - (_bind-e__3118031181_ _L22378_ _expr*22437_ '#f))) - (gxc#verbose - '"lift case-lambda clauses " - (gxc#identifier-symbol _L22378_) - '" => " - (map gxc#identifier-symbol _ids22430_)) - (_lp22069_ - _rest22094_ - _lift122072_ - (foldl1 cons _lift222073_ _xbind22435_) - (cons _bind*22439_ _bind22074_))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match3414334144_ - (lambda (_e2239622447_ - _hd2239722450_ - _tl2239822452_) - (let ((_L22455_ - _tl2239822452_)) - (if (andmap1 gxc#dispatch-lambda-form? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L22455_) - (___kont3413434135_ _L22455_) - (___kont3413634137_ _tl2239822452_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - ___stx3413234133_) - (let ((_e2239622447_ - (gx#stx-e - ___stx3413234133_))) - (let ((_tl2239822452_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2239622447_))) - (_hd2239722450_ - (let () (declare (not safe)) (##car _e2239622447_)))) - (___match3414334144_ - _e2239622447_ - _hd2239722450_ - _tl2239822452_))) - (_g2239322407_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3415634157_ - (lambda (_L22205_ _L22206_) - (let* ((_g2222022250_ - (lambda (_g2222122247_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2222122247_))) - (_g2221922345_ - (lambda (_g2222122253_) - (if (gx#stx-pair? - _g2222122253_) - (let ((_e2222522255_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _g2222122253_))) - (let ((_hd2222622258_ - (let () (declare (not safe)) (##car _e2222522255_))) - (_tl2222722260_ + (gxc#apply-expression-subst + _L25001_ + _L25003_ + _main-id25050_)))) + (let ((__tmp36955 (let () (declare (not safe)) - (##cdr _e2222522255_)))) - (if (gx#stx-pair? _tl2222722260_) - (let ((_e2222822263_ (gx#stx-e _tl2222722260_))) - (let ((_hd2222922266_ - (let () - (declare (not safe)) - (##car _e2222822263_))) - (_tl2223022268_ - (let () - (declare (not safe)) - (##cdr _e2222822263_)))) - (if (gx#stx-pair? _hd2222922266_) - (let ((_e2223122271_ - (gx#stx-e _hd2222922266_))) - (let ((_hd2223222274_ - (let () - (declare (not safe)) - (##car _e2223122271_))) - (_tl2223322276_ - (let () - (declare (not safe)) - (##cdr _e2223122271_)))) - (if (gx#stx-pair? _hd2223222274_) - (let ((_e2223422279_ - (gx#stx-e _hd2223222274_))) - (let ((_hd2223522282_ - (let () - (declare (not safe)) - (##car _e2223422279_))) - (_tl2223622284_ - (let () - (declare (not safe)) - (##cdr _e2223422279_)))) - (if (gx#stx-pair? _hd2223522282_) - (let ((_e2223722287_ - (gx#stx-e - _hd2223522282_))) - (let ((_hd2223822290_ - (let () - (declare + (gxc#identifier-symbol _L24814_))) + (__tmp36954 + (let () + (declare (not safe)) + (gxc#identifier-symbol _get-kws-id25046_))) + (__tmp36953 + (let () + (declare (not safe)) + (gxc#identifier-symbol _main-id25050_)))) + (declare (not safe)) + (gxc#verbose + '"lift kw-lambda dispatch " + __tmp36955 + '" => " + __tmp36954 + '" => " + __tmp36953)) + (let ((__tmp36956 + (let ((__tmp36957 + (let ((__tmp36970 + (let ((__tmp36971 + (let ((__tmp36972 + (let ((__tmp36973 + (let ((__tmp36975 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _main-id25050_ '()))) + (__tmp36974 + (let () + (declare (not safe)) + (cons _L25002_ '())))) + (declare (not safe)) + (cons __tmp36975 __tmp36974)))) + (declare (not safe)) + (cons '%#define-values __tmp36973)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp36972 + _stx24662_)))) + (declare (not safe)) + (gxc#lift-top-lambda-define-values% + __tmp36971))) + (__tmp36958 + (let ((__tmp36965 + (let ((__tmp36966 + (let ((__tmp36967 + (let ((__tmp36969 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _get-kws-id25046_ '()))) + (__tmp36968 + (let () + (declare (not safe)) + (cons _new-get-kws25056_ '())))) + (declare (not safe)) + (cons __tmp36969 __tmp36968)))) + (declare (not safe)) + (cons '%#define-values __tmp36967)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp36966 + _stx24662_))) + (__tmp36959 + (let ((__tmp36960 + (let ((__tmp36961 + (let ((__tmp36962 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp36964 + (let () + (declare (not safe)) + (cons _L24814_ '()))) + (__tmp36963 + (let () + (declare (not safe)) + (cons _new-kw-dispatch25054_ '())))) + (declare (not safe)) + (cons __tmp36964 __tmp36963)))) + (declare (not safe)) + (cons '%#define-values __tmp36962)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp36961 _stx24662_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp36960 '())))) + (declare (not safe)) + (cons __tmp36965 __tmp36959)))) + (declare (not safe)) + (cons __tmp36970 __tmp36958)))) + (declare (not safe)) + (cons '%#begin __tmp36957)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp36956 _stx24662_)))) + _hd2487724995_ + _hd2487424987_ + _hd2487124979_ + _hd2486824971_ + _hd2485024923_) + (let () (declare (not safe)) (_g2483024883_ _g2483124886_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2483024883_ + _g2483124886_))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2483024883_ + _g2483124886_))) + (let () + (declare (not safe)) + (_g2483024883_ + _g2483124886_))))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))))) + (let () (declare (not safe)) (_g2483024883_ _g2483124886_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2483024883_ + _g2483124886_))))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2483024883_ + _g2483124886_))))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_))))) + (let () + (declare (not safe)) + (_g2483024883_ _g2483124886_)))))) + (declare (not safe)) + (_g2482925059_ _L24813_)))) + (___kont3618736188_ + (lambda (_L24759_ _L24760_) + (let ((__tmp36976 + (let ((__tmp36977 + (let ((__tmp36978 + (let ((__tmp36979 + (let () + (declare (not safe)) + (gxc#compile-e _L24759_)))) + (declare (not safe)) + (cons __tmp36979 '())))) + (declare (not safe)) + (cons _L24760_ __tmp36978)))) + (declare (not safe)) + (cons '%#define-values __tmp36977)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp36976 _stx24662_))))) + (let* ((___match3627236273_ + (lambda (_e2470524781_ + _hd2470424784_ + _tl2470324786_ + _e2470824789_ + _hd2470724792_ + _tl2470624794_ + _e2471124797_ + _hd2471024800_ + _tl2470924802_ + _e2471424805_ + _hd2471324808_ + _tl2471224810_) + (let ((_L24813_ _hd2471324808_) + (_L24814_ _hd2471024800_)) + (if (and (let () + (declare (not safe)) + (gx#identifier? _L24814_)) + (let () + (declare (not safe)) + (gxc#kw-lambda-expr? _L24813_))) + (___kont3618536186_ _L24813_ _L24814_) + (___kont3618736188_ + _hd2471324808_ + _hd2470724792_))))) + (___match3624436245_ + (lambda (_e2469125067_ + _hd2469025070_ + _tl2468925072_ + _e2469425075_ + _hd2469325078_ + _tl2469225080_ + _e2469725083_ + _hd2469625086_ + _tl2469525088_ + _e2470025091_ + _hd2469925094_ + _tl2469825096_) + (let ((_L25099_ _hd2469925094_) + (_L25100_ _hd2469625086_)) + (if (and (let () + (declare (not safe)) + (gx#identifier? _L25100_)) + (let () + (declare (not safe)) + (gxc#opt-lambda-expr? _L25099_))) + (___kont3618336184_ _L25099_ _L25100_) + (___match3627236273_ + _e2469125067_ + _hd2469025070_ + _tl2468925072_ + _e2469425075_ + _hd2469325078_ + _tl2469225080_ + _e2469725083_ + _hd2469625086_ + _tl2469525088_ + _e2470025091_ + _hd2469925094_ + _tl2469825096_))))) + (___match3621636217_ + (lambda (_e2467725249_ + _hd2467625252_ + _tl2467525254_ + _e2468025257_ + _hd2467925260_ + _tl2467825262_ + _e2468325265_ + _hd2468225268_ + _tl2468125270_ + _e2468625273_ + _hd2468525276_ + _tl2468425278_) + (let ((_L25281_ _hd2468525276_) + (_L25282_ _hd2468225268_)) + (if (and (let () + (declare (not safe)) + (gx#identifier? _L25282_)) + (let () + (declare (not safe)) + (gxc#case-lambda-expr? _L25281_))) + (___kont3618136182_ _L25281_ _L25282_) + (___match3624436245_ + _e2467725249_ + _hd2467625252_ + _tl2467525254_ + _e2468025257_ + _hd2467925260_ + _tl2467825262_ + _e2468325265_ + _hd2468225268_ + _tl2468125270_ + _e2468625273_ + _hd2468525276_ + _tl2468425278_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3617936180_)) + (let ((_e2467725249_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3617936180_)))) + (let ((_tl2467525254_ + (let () + (declare (not safe)) + (##cdr _e2467725249_))) + (_hd2467625252_ + (let () + (declare (not safe)) + (##car _e2467725249_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2467525254_)) + (let ((_e2468025257_ + (let () + (declare (not safe)) + (gx#stx-e _tl2467525254_)))) + (let ((_tl2467825262_ + (let () + (declare (not safe)) + (##cdr _e2468025257_))) + (_hd2467925260_ + (let () + (declare (not safe)) + (##car _e2468025257_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2467925260_)) + (let ((_e2468325265_ + (let () + (declare (not safe)) + (gx#stx-e _hd2467925260_)))) + (let ((_tl2468125270_ + (let () + (declare (not safe)) + (##cdr _e2468325265_))) + (_hd2468225268_ + (let () + (declare (not safe)) + (##car _e2468325265_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2468125270_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2467825262_)) + (let ((_e2468625273_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2467825262_)))) + (let ((_tl2468425278_ + (let () + (declare (not safe)) + (##cdr _e2468625273_))) + (_hd2468525276_ + (let () + (declare (not safe)) + (##car _e2468625273_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2468425278_)) + (___match3621636217_ + _e2467725249_ + _hd2467625252_ + _tl2467525254_ + _e2468025257_ + _hd2467925260_ + _tl2467825262_ + _e2468325265_ + _hd2468225268_ + _tl2468125270_ + _e2468625273_ + _hd2468525276_ + _tl2468425278_) + (let () + (declare (not safe)) + (_g2467124730_))))) + (let () + (declare (not safe)) + (_g2467124730_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2467825262_)) + (let ((_e2472524751_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2467825262_)))) + (let ((_tl2472324756_ + (let () + (declare (not safe)) + (##cdr _e2472524751_))) + (_hd2472424754_ + (let () + (declare (not safe)) + (##car _e2472524751_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2472324756_)) + (___kont3618736188_ + _hd2472424754_ + _hd2467925260_) + (let () + (declare (not safe)) + (_g2467124730_))))) + (let () + (declare (not safe)) + (_g2467124730_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2467825262_)) + (let ((_e2472524751_ + (let () + (declare (not safe)) + (gx#stx-e _tl2467825262_)))) + (let ((_tl2472324756_ + (let () + (declare (not safe)) + (##cdr _e2472524751_))) + (_hd2472424754_ + (let () + (declare (not safe)) + (##car _e2472524751_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2472324756_)) + (___kont3618736188_ + _hd2472424754_ + _hd2467925260_) + (let () + (declare (not safe)) + (_g2467124730_))))) + (let () + (declare (not safe)) + (_g2467124730_)))))) + (let () (declare (not safe)) (_g2467124730_))))) + (let () (declare (not safe)) (_g2467124730_))))))))) + (define gxc#lift-top-lambda-let-values% + (lambda (_stx23594_) + (letrec* ((_bind-e__3334333344_ + (lambda (_id24646_ _expr24647_ _compile?24648_) + (let ((__tmp36982 + (let () (declare (not safe)) (cons _id24646_ '()))) + (__tmp36980 + (let ((__tmp36981 + (if _compile?24648_ + (let () + (declare (not safe)) + (gxc#compile-e _expr24647_)) + _expr24647_))) + (declare (not safe)) + (cons __tmp36981 '())))) + (declare (not safe)) + (cons __tmp36982 __tmp36980)))) + (_bind-e__0__3334533346_ + (lambda (_id24653_ _expr24654_) + (let ((_compile?24656_ '#t)) + (declare (not safe)) + (_bind-e__3334333344_ + _id24653_ + _expr24654_ + _compile?24656_)))) + (_bind-e23596_ + (lambda _g36984_ + (let ((_g36983_ + (let () (declare (not safe)) (##length _g36984_)))) + (cond ((let () (declare (not safe)) (##fx= _g36983_ 2)) + (apply (lambda (_id24653_ _expr24654_) + (let () + (declare (not safe)) + (_bind-e__0__3334533346_ + _id24653_ + _expr24654_))) + _g36984_)) + ((let () (declare (not safe)) (##fx= _g36983_ 3)) + (apply (lambda (_id24658_ + _expr24659_ + _compile?24660_) + (let () + (declare (not safe)) + (_bind-e__3334333344_ + _id24658_ + _expr24659_ + _compile?24660_))) + _g36984_)) + (else + (##raise-wrong-number-of-arguments-exception + 'case-lambda-dispatch + _g36984_)))))) + (_compile-bindings23597_ + (lambda (_bindings24230_) + (let _lp24232_ ((_rest24234_ _bindings24230_) + (_lift124235_ '()) + (_lift224236_ '()) + (_bind24237_ '())) + (let* ((_rest2423824246_ _rest24234_) + (_else2424024254_ + (lambda () + (values (let () + (declare (not safe)) + (reverse _lift124235_)) + (let () + (declare (not safe)) + (reverse _lift224236_)) + (let () + (declare (not safe)) + (reverse _bind24237_))))) + (_K2424224633_ + (lambda (_rest24257_ _hd24258_) + (let* ((___stx3631536316_ _hd24258_) + (_g2426224298_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3631536316_))))) + (let ((___kont3631736318_ + (lambda (_L24540_ _L24541_) + (let* ((___stx3629536296_ _L24540_) + (_g2455624570_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3629536296_))))) + (let ((___kont3629736298_ + (lambda (_L24618_) + (let ((__tmp36985 + (let ((__tmp36986 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (_bind-e__3334333344_ _L24541_ _L24540_ '#f)))) + (declare (not safe)) + (cons __tmp36986 _bind24237_)))) + (declare (not safe)) + (_lp24232_ + _rest24257_ + _lift124235_ + _lift224236_ + __tmp36985)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3629936300_ + (lambda (_L24583_) + (let ((_g36987_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gxc#lift-case-lambda-clauses__% + _stx23594_ + _L24541_ + _L24583_ + '#t)))) + (begin + (let ((_g36988_ + (let () + (declare (not safe)) + (if (##values? _g36987_) + (##vector-length _g36987_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g36988_ 3))) + (error "Context expects 3 values" _g36988_))) + (let ((_ids24593_ + (let () + (declare (not safe)) + (##vector-ref _g36987_ 0))) + (_impls24594_ + (let () + (declare (not safe)) + (##vector-ref _g36987_ 1))) + (_clauses24595_ + (let () + (declare (not safe)) + (##vector-ref _g36987_ 2)))) + (let* ((_g36989_ + (let () + (declare (not safe)) + (for-each gx#core-bind-runtime! _ids24593_))) + (_xbind24598_ + (let () + (declare (not safe)) + (map _bind-e23596_ _ids24593_ _impls24594_))) + (_expr*24600_ + (let ((__tmp36991 + (let () + (declare (not safe)) + (cons '%#case-lambda _clauses24595_))) + (__tmp36990 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'case-lambda-expr)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp36991 __tmp36990))) + (_bind*24602_ + (let () + (declare (not safe)) + (_bind-e__3334333344_ + _L24541_ + _expr*24600_ + '#f)))) + (let ((__tmp36993 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L24541_))) + (__tmp36992 + (let () + (declare (not safe)) + (map gxc#identifier-symbol _ids24593_)))) + (declare (not safe)) + (gxc#verbose + '"lift case-lambda clauses " + __tmp36993 + '" => " + __tmp36992)) + (let ((__tmp36995 + (let () + (declare (not safe)) + (foldl1 cons _lift224236_ _xbind24598_))) + (__tmp36994 + (let () + (declare (not safe)) + (cons _bind*24602_ _bind24237_)))) + (declare (not safe)) + (_lp24232_ + _rest24257_ + _lift124235_ + __tmp36995 + __tmp36994))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match3630636307_ + (lambda (_e2456124610_ + _hd2456024613_ + _tl2455924615_) + (let ((_L24618_ + _tl2455924615_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (andmap1 gxc#dispatch-lambda-form? _L24618_)) + (___kont3629736298_ _L24618_) + (___kont3629936300_ _tl2455924615_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx3629536296_)) + (let ((_e2456124610_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e ___stx3629536296_)))) + (let ((_tl2455924615_ + (let () (declare (not safe)) (##cdr _e2456124610_))) + (_hd2456024613_ + (let () (declare (not safe)) (##car _e2456124610_)))) + (___match3630636307_ + _e2456124610_ + _hd2456024613_ + _tl2455924615_))) + (let () (declare (not safe)) (_g2455624570_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3631936320_ + (lambda (_L24368_ _L24369_) + (let* ((_g2438324413_ + (lambda (_g2438424410_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2438424410_)))) + (_g2438224508_ + (lambda (_g2438424416_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _g2438424416_)) + (let ((_e2439024418_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _g2438424416_)))) + (let ((_hd2438924421_ + (let () (declare (not safe)) (##car _e2439024418_))) + (_tl2438824423_ + (let () + (declare (not safe)) + (##cdr _e2439024418_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2438824423_)) + (let ((_e2439324426_ + (let () + (declare (not safe)) + (gx#stx-e _tl2438824423_)))) + (let ((_hd2439224429_ + (let () + (declare (not safe)) + (##car _e2439324426_))) + (_tl2439124431_ + (let () + (declare (not safe)) + (##cdr _e2439324426_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2439224429_)) + (let ((_e2439624434_ + (let () + (declare (not safe)) + (gx#stx-e _hd2439224429_)))) + (let ((_hd2439524437_ + (let () + (declare (not safe)) + (##car _e2439624434_))) + (_tl2439424439_ + (let () + (declare (not safe)) + (##cdr _e2439624434_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2439524437_)) + (let ((_e2439924442_ + (let () + (declare (not safe)) + (gx#stx-e _hd2439524437_)))) + (let ((_hd2439824445_ + (let () + (declare (not safe)) + (##car _e2439924442_))) + (_tl2439724447_ + (let () + (declare (not safe)) + (##cdr _e2439924442_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2439824445_)) + (let ((_e2440224450_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2439824445_)))) + (let ((_hd2440124453_ + (let () + (declare (not safe)) - (##car _e2223722287_))) - (_tl2223922292_ + (##car _e2440224450_))) + (_tl2440024455_ (let () (declare (not safe)) - (##cdr _e2223722287_)))) - (if (gx#stx-null? - _tl2223922292_) - (if (gx#stx-pair? - _tl2223622284_) - (let ((_e2224022295_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2223622284_))) - (let ((_hd2224122298_ + (##cdr _e2440224450_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2440024455_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl2439724447_)) + (let ((_e2440524458_ + (let () + (declare (not safe)) + (gx#stx-e _tl2439724447_)))) + (let ((_hd2440424461_ (let () (declare (not safe)) - (##car _e2224022295_))) - (_tl2224222300_ + (##car _e2440524458_))) + (_tl2440324463_ (let () (declare (not safe)) - (##cdr _e2224022295_)))) - (if (gx#stx-null? _tl2224222300_) - (if (gx#stx-null? _tl2223322276_) - (if (gx#stx-pair? _tl2223022268_) - (let ((_e2224322303_ - (gx#stx-e _tl2223022268_))) - (let ((_hd2224422306_ + (##cdr _e2440524458_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2440324463_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2439424439_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2439124431_)) + (let ((_e2440824466_ + (let () + (declare (not safe)) + (gx#stx-e _tl2439124431_)))) + (let ((_hd2440724469_ (let () (declare (not safe)) - (##car _e2224322303_))) - (_tl2224522308_ + (##car _e2440824466_))) + (_tl2440624471_ (let () (declare (not safe)) - (##cdr _e2224322303_)))) - (if (gx#stx-null? _tl2224522308_) - ((lambda (_L22311_ - _L22312_ - _L22313_) - (let* ((_lambda-id22337_ + (##cdr _e2440824466_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2440624471_)) + ((lambda (_L24474_ + _L24475_ + _L24476_) + (let* ((_lambda-id24500_ (make-symbol - (gx#stx-e _L22206_) - (gensym '__))) - (_lambda-id22339_ - (gx#core-quote-syntax__1 - _lambda-id22337_ - (gx#stx-source - _stx21431_))) - (_g34543_ - (gx#core-bind-runtime!__0 - _lambda-id22339_)) - (_new-case-lambda-expr22342_ - (gxc#apply-expression-subst - _L22311_ - _L22313_ - _lambda-id22339_))) - (gxc#verbose - '"lift opt-lambda dispatch " - (gxc#identifier-symbol - _L22206_) - '" => " - (gxc#identifier-symbol - _lambda-id22339_)) - (_lp22069_ - (cons (_bind-e__3118031181_ - _L22206_ - _new-case-lambda-expr22342_ - '#f) - _rest22094_) - (cons (_bind-e__0__3118231183_ - _lambda-id22339_ - _L22312_) - _lift122072_) - _lift222073_ - _bind22074_))) - _hd2224422306_ - _hd2224122298_ - _hd2223822290_) - (_g2222022250_ _g2222122253_)))) - (_g2222022250_ _g2222122253_)) - (_g2222022250_ _g2222122253_)) - (_g2222022250_ _g2222122253_)))) - (_g2222022250_ _g2222122253_)) - (_g2222022250_ _g2222122253_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2222022250_ - _g2222122253_)))) - (_g2222022250_ _g2222122253_)))) - (_g2222022250_ _g2222122253_)))) - (_g2222022250_ _g2222122253_)))) - (_g2222022250_ _g2222122253_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2221922345_ _L22205_)))) - (___kont3415834159_ - (lambda (_L22156_ _L22157_) - (_lp22069_ - _rest22094_ - _lift122072_ - _lift222073_ - (cons (cons _L22157_ - (cons (gxc#compile-e - _L22156_) - '())) - _bind22074_))))) - (let* ((___match3420334204_ - (lambda (_e2211422181_ - _hd2211522184_ - _tl2211622186_ - _e2211722189_ - _hd2211822192_ - _tl2211922194_ - _e2212022197_ - _hd2212122200_ - _tl2212222202_) - (let ((_L22205_ _hd2212122200_) - (_L22206_ _hd2211822192_)) - (if (and (gx#identifier? - _L22206_) - (gxc#opt-lambda-expr? - _L22205_)) - (___kont3415634157_ - _L22205_ - _L22206_) - (___kont3415834159_ - _hd2212122200_ - _hd2211522184_))))) - (___match3418134182_ - (lambda (_e2210322353_ - _hd2210422356_ - _tl2210522358_ - _e2210622361_ - _hd2210722364_ - _tl2210822366_ - _e2210922369_ - _hd2211022372_ - _tl2211122374_) - (let ((_L22377_ _hd2211022372_) - (_L22378_ _hd2210722364_)) - (if (and (gx#identifier? - _L22378_) - (gxc#case-lambda-expr? - _L22377_)) - (___kont3415434155_ - _L22377_ - _L22378_) - (___match3420334204_ - _e2210322353_ - _hd2210422356_ - _tl2210522358_ - _e2210622361_ - _hd2210722364_ - _tl2210822366_ - _e2210922369_ - _hd2211022372_ - _tl2211122374_)))))) - (if (gx#stx-pair? ___stx3415234153_) - (let ((_e2210322353_ - (gx#stx-e - ___stx3415234153_))) - (let ((_tl2210522358_ + (let () + (declare + (not safe)) + (gx#stx-e + _L24369_)) + (let () + (declare + (not safe)) + (gensym '__)))) + (_lambda-id24502_ + (let ((__tmp36996 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-source _stx23594_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 _lambda-id24500_ __tmp36996))) + (_g36997_ + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _lambda-id24502_))) + (_new-case-lambda-expr24505_ + (let () + (declare (not safe)) + (gxc#apply-expression-subst + _L24474_ + _L24476_ + _lambda-id24502_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp36999 + (let () + (declare + (not safe)) + (gxc#identifier-symbol + _L24369_))) + (__tmp36998 + (let () + (declare + (not safe)) + (gxc#identifier-symbol + _lambda-id24502_)))) + (declare (not safe)) + (gxc#verbose + '"lift opt-lambda dispatch " + __tmp36999 + '" => " + __tmp36998)) + (let ((__tmp37002 + (let ((__tmp37003 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (_bind-e__3334333344_ + _L24369_ + _new-case-lambda-expr24505_ + '#f)))) + (declare (not safe)) + (cons __tmp37003 _rest24257_))) + (__tmp37000 + (let ((__tmp37001 + (let () + (declare (not safe)) + (_bind-e__0__3334533346_ + _lambda-id24502_ + _L24475_)))) + (declare (not safe)) + (cons __tmp37001 _lift124235_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp24232_ + __tmp37002 + __tmp37000 + _lift224236_ + _bind24237_)))) + _hd2440724469_ + _hd2440424461_ + _hd2440124453_) + (let () + (declare (not safe)) + (_g2438324413_ + _g2438424416_))))) + (let () + (declare (not safe)) + (_g2438324413_ _g2438424416_))) + (let () + (declare (not safe)) + (_g2438324413_ _g2438424416_))) + (let () + (declare (not safe)) + (_g2438324413_ _g2438424416_))))) + (let () + (declare (not safe)) + (_g2438324413_ _g2438424416_))) + (let () + (declare (not safe)) + (_g2438324413_ _g2438424416_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2438324413_ + _g2438424416_))))) + (let () + (declare (not safe)) + (_g2438324413_ _g2438424416_))))) + (let () + (declare (not safe)) + (_g2438324413_ _g2438424416_))))) + (let () + (declare (not safe)) + (_g2438324413_ _g2438424416_))))) + (let () + (declare (not safe)) + (_g2438324413_ _g2438424416_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g2438224508_ _L24368_)))) + (___kont3632136322_ + (lambda (_L24319_ _L24320_) + (let ((__tmp37004 + (let ((__tmp37005 + (let ((__tmp37006 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp37007 + (let () + (declare (not safe)) + (gxc#compile-e _L24319_)))) + (declare (not safe)) + (cons __tmp37007 '())))) + (declare (not safe)) + (cons _L24320_ __tmp37006)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp37005 + _bind24237_)))) + (declare (not safe)) + (_lp24232_ + _rest24257_ + _lift124235_ + _lift224236_ + __tmp37004))))) + (let* ((___match3636636367_ + (lambda (_e2427924344_ + _hd2427824347_ + _tl2427724349_ + _e2428224352_ + _hd2428124355_ + _tl2428024357_ + _e2428524360_ + _hd2428424363_ + _tl2428324365_) + (let ((_L24368_ _hd2428424363_) + (_L24369_ _hd2428124355_)) + (if (and (let () + (declare + (not safe)) + (gx#identifier? + _L24369_)) + (let () + (declare + (not safe)) + (gxc#opt-lambda-expr? + _L24368_))) + (___kont3631936320_ + _L24368_ + _L24369_) + (___kont3632136322_ + _hd2428424363_ + _hd2427824347_))))) + (___match3634436345_ + (lambda (_e2426824516_ + _hd2426724519_ + _tl2426624521_ + _e2427124524_ + _hd2427024527_ + _tl2426924529_ + _e2427424532_ + _hd2427324535_ + _tl2427224537_) + (let ((_L24540_ _hd2427324535_) + (_L24541_ _hd2427024527_)) + (if (and (let () + (declare + (not safe)) + (gx#identifier? + _L24541_)) + (let () + (declare + (not safe)) + (gxc#case-lambda-expr? + _L24540_))) + (___kont3631736318_ + _L24540_ + _L24541_) + (___match3636636367_ + _e2426824516_ + _hd2426724519_ + _tl2426624521_ + _e2427124524_ + _hd2427024527_ + _tl2426924529_ + _e2427424532_ + _hd2427324535_ + _tl2427224537_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3631536316_)) + (let ((_e2426824516_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx3631536316_)))) + (let ((_tl2426624521_ (let () (declare (not safe)) - (##cdr _e2210322353_))) - (_hd2210422356_ + (##cdr _e2426824516_))) + (_hd2426724519_ (let () (declare (not safe)) - (##car _e2210322353_)))) - (if (gx#stx-pair? - _hd2210422356_) - (let ((_e2210622361_ - (gx#stx-e - _hd2210422356_))) - (let ((_tl2210822366_ + (##car _e2426824516_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2426724519_)) + (let ((_e2427124524_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd2426724519_)))) + (let ((_tl2426924529_ (let () (declare (not safe)) - (##cdr _e2210622361_))) - (_hd2210722364_ + (##cdr _e2427124524_))) + (_hd2427024527_ (let () (declare (not safe)) - (##car _e2210622361_)))) - (if (gx#stx-null? - _tl2210822366_) - (if (gx#stx-pair? - _tl2210522358_) - (let ((_e2210922369_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2210522358_))) - (let ((_tl2211122374_ + (##car _e2427124524_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2426924529_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _tl2426624521_)) + (let ((_e2427424532_ + (let () + (declare (not safe)) + (gx#stx-e _tl2426624521_)))) + (let ((_tl2427224537_ (let () (declare (not safe)) - (##cdr _e2210922369_))) - (_hd2211022372_ + (##cdr _e2427424532_))) + (_hd2427324535_ (let () (declare (not safe)) - (##car _e2210922369_)))) - (if (gx#stx-null? _tl2211122374_) - (___match3418134182_ - _e2210322353_ - _hd2210422356_ - _tl2210522358_ - _e2210622361_ - _hd2210722364_ - _tl2210822366_ - _e2210922369_ - _hd2211022372_ - _tl2211122374_) - (_g2209922135_)))) - (_g2209922135_)) - (if (gx#stx-pair? _tl2210522358_) - (let ((_e2212822148_ (gx#stx-e _tl2210522358_))) - (let ((_tl2213022153_ + (##car _e2427424532_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2427224537_)) + (___match3634436345_ + _e2426824516_ + _hd2426724519_ + _tl2426624521_ + _e2427124524_ + _hd2427024527_ + _tl2426924529_ + _e2427424532_ + _hd2427324535_ + _tl2427224537_) + (let () (declare (not safe)) (_g2426224298_))))) + (let () (declare (not safe)) (_g2426224298_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2426624521_)) + (let ((_e2429324311_ + (let () + (declare (not safe)) + (gx#stx-e _tl2426624521_)))) + (let ((_tl2429124316_ (let () (declare (not safe)) - (##cdr _e2212822148_))) - (_hd2212922151_ + (##cdr _e2429324311_))) + (_hd2429224314_ (let () (declare (not safe)) - (##car _e2212822148_)))) - (if (gx#stx-null? _tl2213022153_) - (___kont3415834159_ - _hd2212922151_ - _hd2210422356_) - (_g2209922135_)))) - (_g2209922135_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _tl2210522358_) - (let ((_e2212822148_ - (gx#stx-e - _tl2210522358_))) - (let ((_tl2213022153_ - (let () + (##car _e2429324311_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2429124316_)) + (___kont3632136322_ + _hd2429224314_ + _hd2426724519_) + (let () (declare (not safe)) (_g2426224298_))))) + (let () (declare (not safe)) (_g2426224298_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2426624521_)) + (let ((_e2429324311_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2212822148_))) - (_hd2212922151_ - (let () (declare (not safe)) (##car _e2212822148_)))) - (if (gx#stx-null? _tl2213022153_) - (___kont3415834159_ _hd2212922151_ _hd2210422356_) - (_g2209922135_)))) - (_g2209922135_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2209922135_)))))))) + (not safe)) + (gx#stx-e _tl2426624521_)))) + (let ((_tl2429124316_ + (let () (declare (not safe)) (##cdr _e2429324311_))) + (_hd2429224314_ + (let () (declare (not safe)) (##car _e2429324311_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2429124316_)) + (___kont3632136322_ _hd2429224314_ _hd2426724519_) + (let () (declare (not safe)) (_g2426224298_))))) + (let () (declare (not safe)) (_g2426224298_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2426224298_))))))))) (if (let () (declare (not safe)) - (##pair? _rest2207522083_)) - (let ((_hd2208022473_ + (##pair? _rest2423824246_)) + (let ((_hd2424324636_ (let () (declare (not safe)) - (##car _rest2207522083_))) - (_tl2208122475_ + (##car _rest2423824246_))) + (_tl2424424638_ (let () (declare (not safe)) - (##cdr _rest2207522083_)))) - (let* ((_hd22478_ _hd2208022473_) - (_rest22480_ _tl2208122475_)) - (_K2207922470_ _rest22480_ _hd22478_))) - (_else2207722091_)))))) - (_lift-kw-lambda?21435_ - (lambda (_bind21991_) - (let* ((___stx3422034221_ _bind21991_) - (_g2199422011_ + (##cdr _rest2423824246_)))) + (let* ((_hd24641_ _hd2424324636_) + (_rest24643_ _tl2424424638_)) + (declare (not safe)) + (_K2424224633_ _rest24643_ _hd24641_))) + (let () + (declare (not safe)) + (_else2424024254_))))))) + (_lift-kw-lambda?23598_ + (lambda (_bind24154_) + (let* ((___stx3638336384_ _bind24154_) + (_g2415724174_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3422034221_)))) - (let ((___kont3422234223_ - (lambda (_L22047_ _L22048_) - (if (gx#identifier? _L22048_) - (gxc#kw-lambda-expr? _L22047_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3638336384_))))) + (let ((___kont3638536386_ + (lambda (_L24210_ _L24211_) + (if (let () + (declare (not safe)) + (gx#identifier? _L24211_)) + (let () + (declare (not safe)) + (gxc#kw-lambda-expr? _L24210_)) '#f))) - (___kont3422434225_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3422034221_) - (let ((_e2199822023_ - (gx#stx-e ___stx3422034221_))) - (let ((_tl2200022028_ + (___kont3638736388_ (lambda () '#f))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3638336384_)) + (let ((_e2416324186_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3638336384_)))) + (let ((_tl2416124191_ (let () (declare (not safe)) - (##cdr _e2199822023_))) - (_hd2199922026_ + (##cdr _e2416324186_))) + (_hd2416224189_ (let () (declare (not safe)) - (##car _e2199822023_)))) - (if (gx#stx-pair? _hd2199922026_) - (let ((_e2200122031_ - (gx#stx-e _hd2199922026_))) - (let ((_tl2200322036_ + (##car _e2416324186_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2416224189_)) + (let ((_e2416624194_ + (let () + (declare (not safe)) + (gx#stx-e _hd2416224189_)))) + (let ((_tl2416424199_ (let () (declare (not safe)) - (##cdr _e2200122031_))) - (_hd2200222034_ + (##cdr _e2416624194_))) + (_hd2416524197_ (let () (declare (not safe)) - (##car _e2200122031_)))) - (if (gx#stx-null? _tl2200322036_) - (if (gx#stx-pair? _tl2200022028_) - (let ((_e2200422039_ - (gx#stx-e - _tl2200022028_))) - (let ((_tl2200622044_ + (##car _e2416624194_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2416424199_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2416124191_)) + (let ((_e2416924202_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2416124191_)))) + (let ((_tl2416724207_ (let () (declare (not safe)) - (##cdr _e2200422039_))) - (_hd2200522042_ + (##cdr _e2416924202_))) + (_hd2416824205_ (let () (declare (not safe)) - (##car _e2200422039_)))) - (if (gx#stx-null? - _tl2200622044_) - (___kont3422234223_ - _hd2200522042_ - _hd2200222034_) - (___kont3422434225_)))) - (___kont3422434225_)) - (___kont3422434225_)))) - (___kont3422434225_)))) - (___kont3422434225_)))))) - (_lift-kw-lambda-bindings21436_ - (lambda (_bindings21603_) - (let _lp21605_ ((_rest21607_ _bindings21603_) - (_lift121608_ '()) - (_lift221609_ '()) - (_bind21610_ '())) - (let* ((_rest2161121619_ _rest21607_) - (_else2161321627_ - (lambda () - (values (reverse _lift121608_) - (reverse _lift221609_) - (reverse _bind21610_)))) - (_K2161521979_ - (lambda (_rest21630_ _hd21631_) - (let* ((___stx3425034251_ _hd21631_) - (_g2163421659_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3425034251_)))) - (let ((___kont3425234253_ - (lambda (_L21729_ _L21730_) - (let* ((_g2174421797_ - (lambda (_g2174521794_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2174521794_))) - (_g2174321973_ - (lambda (_g2174521800_) - (if (gx#stx-pair? - _g2174521800_) - (let ((_e2175121802_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _g2174521800_))) - (let ((_hd2175221805_ - (let () (declare (not safe)) (##car _e2175121802_))) - (_tl2175321807_ + (##car _e2416924202_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2416724207_)) + (___kont3638536386_ + _hd2416824205_ + _hd2416524197_) + (___kont3638736388_)))) + (___kont3638736388_)) + (___kont3638736388_)))) + (___kont3638736388_)))) + (___kont3638736388_)))))) + (_lift-kw-lambda-bindings23599_ + (lambda (_bindings23766_) + (let _lp23768_ ((_rest23770_ _bindings23766_) + (_lift123771_ '()) + (_lift223772_ '()) + (_bind23773_ '())) + (let* ((_rest2377423782_ _rest23770_) + (_else2377623790_ + (lambda () + (values (let () + (declare (not safe)) + (reverse _lift123771_)) + (let () + (declare (not safe)) + (reverse _lift223772_)) + (let () + (declare (not safe)) + (reverse _bind23773_))))) + (_K2377824142_ + (lambda (_rest23793_ _hd23794_) + (let* ((___stx3641336414_ _hd23794_) + (_g2379723822_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3641336414_))))) + (let ((___kont3641536416_ + (lambda (_L23892_ _L23893_) + (let* ((_g2390723960_ + (lambda (_g2390823957_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2390823957_)))) + (_g2390624136_ + (lambda (_g2390823963_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _g2390823963_)) + (let ((_e2391623965_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _g2390823963_)))) + (let ((_hd2391523968_ + (let () (declare (not safe)) (##car _e2391623965_))) + (_tl2391423970_ (let () (declare (not safe)) - (##cdr _e2175121802_)))) - (if (gx#stx-pair? _tl2175321807_) - (let ((_e2175421810_ (gx#stx-e _tl2175321807_))) - (let ((_hd2175521813_ + (##cdr _e2391623965_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2391423970_)) + (let ((_e2391923973_ + (let () + (declare (not safe)) + (gx#stx-e _tl2391423970_)))) + (let ((_hd2391823976_ (let () (declare (not safe)) - (##car _e2175421810_))) - (_tl2175621815_ + (##car _e2391923973_))) + (_tl2391723978_ (let () (declare (not safe)) - (##cdr _e2175421810_)))) - (if (gx#stx-pair? _hd2175521813_) - (let ((_e2175721818_ - (gx#stx-e _hd2175521813_))) - (let ((_hd2175821821_ + (##cdr _e2391923973_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2391823976_)) + (let ((_e2392223981_ + (let () + (declare (not safe)) + (gx#stx-e _hd2391823976_)))) + (let ((_hd2392123984_ (let () (declare (not safe)) - (##car _e2175721818_))) - (_tl2175921823_ + (##car _e2392223981_))) + (_tl2392023986_ (let () (declare (not safe)) - (##cdr _e2175721818_)))) - (if (gx#stx-pair? _hd2175821821_) - (let ((_e2176021826_ - (gx#stx-e _hd2175821821_))) - (let ((_hd2176121829_ + (##cdr _e2392223981_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2392123984_)) + (let ((_e2392523989_ + (let () + (declare (not safe)) + (gx#stx-e _hd2392123984_)))) + (let ((_hd2392423992_ (let () (declare (not safe)) - (##car _e2176021826_))) - (_tl2176221831_ + (##car _e2392523989_))) + (_tl2392323994_ (let () (declare (not safe)) - (##cdr _e2176021826_)))) - (if (gx#stx-pair? _hd2176121829_) - (let ((_e2176321834_ - (gx#stx-e - _hd2176121829_))) - (let ((_hd2176421837_ + (##cdr _e2392523989_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2392423992_)) + (let ((_e2392823997_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2392423992_)))) + (let ((_hd2392724000_ (let () (declare (not safe)) - (##car _e2176321834_))) - (_tl2176521839_ + (##car _e2392823997_))) + (_tl2392624002_ (let () (declare (not safe)) - (##cdr _e2176321834_)))) - (if (gx#stx-null? - _tl2176521839_) - (if (gx#stx-pair? - _tl2176221831_) - (let ((_e2176621842_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2176221831_))) - (let ((_hd2176721845_ + (##cdr _e2392823997_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2392624002_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl2392323994_)) + (let ((_e2393124005_ + (let () + (declare (not safe)) + (gx#stx-e _tl2392323994_)))) + (let ((_hd2393024008_ (let () (declare (not safe)) - (##car _e2176621842_))) - (_tl2176821847_ + (##car _e2393124005_))) + (_tl2392924010_ (let () (declare (not safe)) - (##cdr _e2176621842_)))) - (if (gx#stx-pair? _hd2176721845_) - (let ((_e2176921850_ (gx#stx-e _hd2176721845_))) - (let ((_hd2177021853_ + (##cdr _e2393124005_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2393024008_)) + (let ((_e2393424013_ + (let () + (declare (not safe)) + (gx#stx-e _hd2393024008_)))) + (let ((_hd2393324016_ (let () (declare (not safe)) - (##car _e2176921850_))) - (_tl2177121855_ + (##car _e2393424013_))) + (_tl2393224018_ (let () (declare (not safe)) - (##cdr _e2176921850_)))) - (if (gx#stx-pair? _tl2177121855_) - (let ((_e2177221858_ - (gx#stx-e _tl2177121855_))) - (let ((_hd2177321861_ + (##cdr _e2393424013_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2393224018_)) + (let ((_e2393724021_ + (let () + (declare (not safe)) + (gx#stx-e _tl2393224018_)))) + (let ((_hd2393624024_ (let () (declare (not safe)) - (##car _e2177221858_))) - (_tl2177421863_ + (##car _e2393724021_))) + (_tl2393524026_ (let () (declare (not safe)) - (##cdr _e2177221858_)))) - (if (gx#stx-pair? _hd2177321861_) - (let ((_e2177521866_ - (gx#stx-e - _hd2177321861_))) - (let ((_hd2177621869_ + (##cdr _e2393724021_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2393624024_)) + (let ((_e2394024029_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2393624024_)))) + (let ((_hd2393924032_ (let () (declare (not safe)) - (##car _e2177521866_))) - (_tl2177721871_ + (##car _e2394024029_))) + (_tl2393824034_ (let () (declare (not safe)) - (##cdr _e2177521866_)))) - (if (gx#stx-pair? - _hd2177621869_) - (let ((_e2177821874_ - (gx#stx-e - _hd2177621869_))) - (let ((_hd2177921877_ - (let () + (##cdr _e2394024029_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2393924032_)) + (let ((_e2394324037_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _hd2393924032_)))) + (let ((_hd2394224040_ + (let () (declare (not safe)) (##car _e2394324037_))) + (_tl2394124042_ + (let () (declare (not safe)) (##cdr _e2394324037_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2394224040_)) + (let ((_e2394624045_ + (let () + (declare (not safe)) + (gx#stx-e _hd2394224040_)))) + (let ((_hd2394524048_ + (let () + (declare (not safe)) + (##car _e2394624045_))) + (_tl2394424050_ + (let () + (declare (not safe)) + (##cdr _e2394624045_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2394424050_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2394124042_)) + (let ((_e2394924053_ + (let () + (declare (not safe)) + (gx#stx-e _tl2394124042_)))) + (let ((_hd2394824056_ + (let () + (declare (not safe)) + (##car _e2394924053_))) + (_tl2394724058_ + (let () + (declare (not safe)) + (##cdr _e2394924053_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2394724058_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2393824034_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2393524026_)) + (let ((_e2395224061_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2393524026_)))) + (let ((_hd2395124064_ + (let () + (declare + (not safe)) + (##car _e2395224061_))) + (_tl2395024066_ + (let () + (declare + (not safe)) + (##cdr _e2395224061_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2395024066_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl2392924010_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2392023986_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2391723978_)) + (let ((_e2395524069_ + (let () + (declare (not safe)) + (gx#stx-e _tl2391723978_)))) + (let ((_hd2395424072_ + (let () + (declare (not safe)) + (##car _e2395524069_))) + (_tl2395324074_ + (let () + (declare (not safe)) + (##cdr _e2395524069_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2395324074_)) + ((lambda (_L24077_ + _L24078_ + _L24079_ + _L24080_ + _L24081_) + (let* ((_get-kws-id24121_ + (make-symbol + (let () + (declare (not safe)) + (gx#stx-e _L23893_)) + (let () + (declare (not safe)) + (gensym '__)))) + (_get-kws-id24123_ + (let ((__tmp37008 + (let () + (declare (not safe)) + (gx#stx-source + _stx23594_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _get-kws-id24121_ + __tmp37008))) + (_main-id24125_ + (make-symbol + (let () + (declare (not safe)) + (gx#stx-e _L23893_)) + (let () + (declare (not safe)) + (gensym '__)))) + (_main-id24127_ + (let ((__tmp37009 + (let () + (declare (not safe)) + (gx#stx-source + _stx23594_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _main-id24125_ + __tmp37009))) + (_g37010_ + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 + _get-kws-id24123_))) + (_g37011_ + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 + _main-id24127_))) + (_new-kw-dispatch24131_ + (let () + (declare (not safe)) + (gxc#apply-expression-subst + _L24077_ + _L24081_ + _get-kws-id24123_))) + (_new-get-kws24133_ + (let () + (declare (not safe)) + (gxc#apply-expression-subst + _L24078_ + _L24080_ + _main-id24127_)))) + (let ((__tmp37014 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L23893_))) + (__tmp37013 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _get-kws-id24123_))) + (__tmp37012 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _main-id24127_)))) + (declare (not safe)) + (gxc#verbose + '"lift kw-lambda dispatch " + __tmp37014 + '" => " + __tmp37013 + '" => " + __tmp37012)) + (let ((__tmp37019 + (let ((__tmp37020 + (let () + (declare (not safe)) + (_bind-e__3334333344_ + _main-id24127_ + _L24079_ + '#f)))) + (declare (not safe)) + (cons __tmp37020 + _lift123771_))) + (__tmp37017 + (let ((__tmp37018 + (let () + (declare (not safe)) + (_bind-e__3334333344_ + _get-kws-id24123_ + _new-get-kws24133_ + '#f)))) + (declare (not safe)) + (cons __tmp37018 + _lift223772_))) + (__tmp37015 + (let ((__tmp37016 + (let () + (declare (not safe)) + (_bind-e__3334333344_ + _L23893_ + _new-kw-dispatch24131_ + '#f)))) + (declare (not safe)) + (cons __tmp37016 + _bind23773_)))) + (declare (not safe)) + (_lp23768_ + _rest23793_ + __tmp37019 + __tmp37017 + __tmp37015)))) + _hd2395424072_ + _hd2395124064_ + _hd2394824056_ + _hd2394524048_ + _hd2392724000_) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2390723960_ + _g2390823963_))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))))) + (let () (declare (not safe)) (_g2390723960_ _g2390823963_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2390723960_ + _g2390823963_))))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2390723960_ + _g2390823963_))))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_))))) + (let () + (declare (not safe)) + (_g2390723960_ _g2390823963_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g2390624136_ _L23892_)))) + (___kont3641736418_ + (lambda (_L23843_ _L23844_) + (let ((__tmp37021 + (let ((__tmp37022 + (let ((__tmp37023 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L23843_ '())))) + (declare (not safe)) + (cons _L23844_ __tmp37023)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp37022 + _bind23773_)))) + (declare (not safe)) + (_lp23768_ + _rest23793_ + _lift123771_ + _lift223772_ + __tmp37021))))) + (let ((___match3644036441_ + (lambda (_e2380323868_ + _hd2380223871_ + _tl2380123873_ + _e2380623876_ + _hd2380523879_ + _tl2380423881_ + _e2380923884_ + _hd2380823887_ + _tl2380723889_) + (let ((_L23892_ _hd2380823887_) + (_L23893_ _hd2380523879_)) + (if (and (let () + (declare (not safe)) + (gx#identifier? + _L23893_)) + (let () + (declare (not safe)) + (gxc#kw-lambda-expr? + _L23892_))) + (___kont3641536416_ + _L23892_ + _L23893_) + (___kont3641736418_ + _hd2380823887_ + _hd2380223871_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3641336414_)) + (let ((_e2380323868_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx3641336414_)))) + (let ((_tl2380123873_ + (let () + (declare (not safe)) + (##cdr _e2380323868_))) + (_hd2380223871_ + (let () + (declare (not safe)) + (##car _e2380323868_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2380223871_)) + (let ((_e2380623876_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd2380223871_)))) + (let ((_tl2380423881_ + (let () + (declare + (not safe)) + (##cdr _e2380623876_))) + (_hd2380523879_ + (let () + (declare + (not safe)) + (##car _e2380623876_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2380423881_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _tl2380123873_)) + (let ((_e2380923884_ + (let () + (declare (not safe)) + (gx#stx-e _tl2380123873_)))) + (let ((_tl2380723889_ + (let () + (declare (not safe)) + (##cdr _e2380923884_))) + (_hd2380823887_ + (let () + (declare (not safe)) + (##car _e2380923884_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2380723889_)) + (___match3644036441_ + _e2380323868_ + _hd2380223871_ + _tl2380123873_ + _e2380623876_ + _hd2380523879_ + _tl2380423881_ + _e2380923884_ + _hd2380823887_ + _tl2380723889_) + (let () (declare (not safe)) (_g2379723822_))))) + (let () (declare (not safe)) (_g2379723822_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2380123873_)) + (let ((_e2381723835_ + (let () + (declare (not safe)) + (gx#stx-e _tl2380123873_)))) + (let ((_tl2381523840_ + (let () + (declare (not safe)) + (##cdr _e2381723835_))) + (_hd2381623838_ + (let () + (declare (not safe)) + (##car _e2381723835_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2381523840_)) + (___kont3641736418_ + _hd2381623838_ + _hd2380223871_) + (let () (declare (not safe)) (_g2379723822_))))) + (let () (declare (not safe)) (_g2379723822_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2380123873_)) + (let ((_e2381723835_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _tl2380123873_)))) + (let ((_tl2381523840_ + (let () (declare (not safe)) (##cdr _e2381723835_))) + (_hd2381623838_ + (let () (declare (not safe)) (##car _e2381723835_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2381523840_)) + (___kont3641736418_ _hd2381623838_ _hd2380223871_) + (let () (declare (not safe)) (_g2379723822_))))) + (let () (declare (not safe)) (_g2379723822_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2379723822_))))))))) + (if (let () + (declare (not safe)) + (##pair? _rest2377423782_)) + (let ((_hd2377924145_ + (let () + (declare (not safe)) + (##car _rest2377423782_))) + (_tl2378024147_ + (let () + (declare (not safe)) + (##cdr _rest2377423782_)))) + (let* ((_hd24150_ _hd2377924145_) + (_rest24152_ _tl2378024147_)) + (declare (not safe)) + (_K2377824142_ _rest24152_ _hd24150_))) + (let () + (declare (not safe)) + (_else2377623790_)))))))) + (let* ((___stx3645736458_ _stx23594_) + (_g2360223628_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3645736458_))))) + (let ((___kont3645936460_ + (lambda (_L23688_ _L23689_) + (let ((__tmp37025 + (lambda () + (if (let ((__tmp37052 + (let ((__tmp37053 + (lambda (_g2371723720_ + _g2371823722_) + (let () + (declare (not safe)) + (cons _g2371723720_ + _g2371823722_))))) + (declare (not safe)) + (foldr1 __tmp37053 '() _L23689_)))) + (declare (not safe)) + (ormap1 _lift-kw-lambda?23598_ __tmp37052)) + (let ((_g37039_ + (let ((__tmp37041 + (let ((__tmp37042 + (lambda (_g2372423727_ + _g2372523729_) + (let () + (declare (not safe)) + (cons _g2372423727_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2372523729_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp37042 + '() + _L23689_)))) + (declare (not safe)) + (_lift-kw-lambda-bindings23599_ + __tmp37041)))) + (begin + (let ((_g37040_ + (let () + (declare (not safe)) + (if (##values? _g37039_) + (##vector-length _g37039_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g37040_ 3))) + (error "Context expects 3 values" + _g37040_))) + (let ((_lift123732_ + (let () + (declare (not safe)) + (##vector-ref _g37039_ 0))) + (_lift223733_ + (let () + (declare (not safe)) + (##vector-ref _g37039_ 1))) + (_hd23734_ + (let () + (declare (not safe)) + (##vector-ref _g37039_ 2)))) + (let* ((_expr23736_ + (let ((__tmp37043 + (let ((__tmp37044 + (let ((__tmp37045 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _L23688_ '())))) + (declare (not safe)) + (cons _hd23734_ __tmp37045)))) + (declare (not safe)) + (cons '%#let-values __tmp37044)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp37043 + _stx23594_))) + (_expr23738_ + (let ((__tmp37046 + (let ((__tmp37047 + (let ((__tmp37048 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _expr23736_ '())))) + (declare (not safe)) + (cons _lift223733_ __tmp37048)))) + (declare (not safe)) + (cons '%#let-values __tmp37047)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp37046 + _stx23594_))) + (_expr23740_ + (let ((__tmp37049 + (let ((__tmp37050 + (let ((__tmp37051 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _expr23738_ '())))) + (declare (not safe)) + (cons _lift123732_ __tmp37051)))) + (declare (not safe)) + (cons '%#let-values __tmp37050)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp37049 + _stx23594_)))) + (let () + (declare (not safe)) + (gxc#lift-top-lambda-let-values% + _expr23740_)))))) + (let ((_g37026_ + (let ((__tmp37028 + (let ((__tmp37029 + (lambda (_g2374223745_ + _g2374323747_) + (let () + (declare (not safe)) + (cons _g2374223745_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2374323747_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp37029 + '() + _L23689_)))) + (declare (not safe)) + (_compile-bindings23597_ + __tmp37028)))) + (begin + (let ((_g37027_ + (let () + (declare (not safe)) + (if (##values? _g37026_) + (##vector-length _g37026_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g37027_ 3))) + (error "Context expects 3 values" + _g37027_))) + (let ((_lift123750_ + (let () + (declare (not safe)) + (##vector-ref _g37026_ 0))) + (_lift223751_ + (let () + (declare (not safe)) + (##vector-ref _g37026_ 1))) + (_hd23752_ + (let () + (declare (not safe)) + (##vector-ref _g37026_ 2)))) + (let* ((_body23754_ + (let () + (declare (not safe)) + (gxc#compile-e _L23688_))) + (_expr23756_ + (let ((__tmp37030 + (let ((__tmp37031 + (let ((__tmp37032 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e2177821874_))) - (_tl2178021879_ - (let () (declare (not safe)) (##cdr _e2177821874_)))) - (if (gx#stx-pair? _hd2177921877_) - (let ((_e2178121882_ (gx#stx-e _hd2177921877_))) - (let ((_hd2178221885_ - (let () - (declare (not safe)) - (##car _e2178121882_))) - (_tl2178321887_ - (let () - (declare (not safe)) - (##cdr _e2178121882_)))) - (if (gx#stx-null? _tl2178321887_) - (if (gx#stx-pair? _tl2178021879_) - (let ((_e2178421890_ - (gx#stx-e _tl2178021879_))) - (let ((_hd2178521893_ - (let () - (declare (not safe)) - (##car _e2178421890_))) - (_tl2178621895_ - (let () - (declare (not safe)) - (##cdr _e2178421890_)))) - (if (gx#stx-null? _tl2178621895_) - (if (gx#stx-null? _tl2177721871_) - (if (gx#stx-pair? _tl2177421863_) - (let ((_e2178721898_ - (gx#stx-e - _tl2177421863_))) - (let ((_hd2178821901_ - (let () - (declare - (not safe)) - (##car _e2178721898_))) - (_tl2178921903_ - (let () - (declare - (not safe)) - (##cdr _e2178721898_)))) - (if (gx#stx-null? - _tl2178921903_) - (if (gx#stx-null? - _tl2176821847_) - (if (gx#stx-null? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2175921823_) - (if (gx#stx-pair? _tl2175621815_) - (let ((_e2179021906_ (gx#stx-e _tl2175621815_))) - (let ((_hd2179121909_ - (let () - (declare (not safe)) - (##car _e2179021906_))) - (_tl2179221911_ - (let () - (declare (not safe)) - (##cdr _e2179021906_)))) - (if (gx#stx-null? _tl2179221911_) - ((lambda (_L21914_ - _L21915_ - _L21916_ - _L21917_ - _L21918_) - (let* ((_get-kws-id21958_ - (make-symbol - (gx#stx-e _L21730_) - (gensym '__))) - (_get-kws-id21960_ - (gx#core-quote-syntax__1 - _get-kws-id21958_ - (gx#stx-source _stx21431_))) - (_main-id21962_ - (make-symbol - (gx#stx-e _L21730_) - (gensym '__))) - (_main-id21964_ - (gx#core-quote-syntax__1 - _main-id21962_ - (gx#stx-source _stx21431_))) - (_g34544_ - (gx#core-bind-runtime!__0 - _get-kws-id21960_)) - (_g34545_ - (gx#core-bind-runtime!__0 - _main-id21964_)) - (_new-kw-dispatch21968_ - (gxc#apply-expression-subst - _L21914_ - _L21918_ - _get-kws-id21960_)) - (_new-get-kws21970_ - (gxc#apply-expression-subst - _L21915_ - _L21917_ - _main-id21964_))) - (gxc#verbose - '"lift kw-lambda dispatch " - (gxc#identifier-symbol _L21730_) - '" => " - (gxc#identifier-symbol - _get-kws-id21960_) - '" => " - (gxc#identifier-symbol - _main-id21964_)) - (_lp21605_ - _rest21630_ - (cons (_bind-e__3118031181_ - _main-id21964_ - _L21916_ - '#f) - _lift121608_) - (cons (_bind-e__3118031181_ - _get-kws-id21960_ - _new-get-kws21970_ - '#f) - _lift221609_) - (cons (_bind-e__3118031181_ - _L21730_ - _new-kw-dispatch21968_ - '#f) - _bind21610_)))) - _hd2179121909_ - _hd2178821901_ - _hd2178521893_ - _hd2178221885_ - _hd2176421837_) - (_g2174421797_ _g2174521800_)))) - (_g2174421797_ _g2174521800_)) - (_g2174421797_ _g2174521800_)) - (_g2174421797_ _g2174521800_)) - (_g2174421797_ _g2174521800_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2174421797_ - _g2174521800_)) - (_g2174421797_ _g2174521800_)) - (_g2174421797_ _g2174521800_)))) - (_g2174421797_ _g2174521800_)) - (_g2174421797_ _g2174521800_)))) - (_g2174421797_ _g2174521800_)))) - (_g2174421797_ _g2174521800_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2174421797_ _g2174521800_)))) - (_g2174421797_ _g2174521800_)))) - (_g2174421797_ _g2174521800_)))) - (_g2174421797_ _g2174521800_)) - (_g2174421797_ _g2174521800_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2174421797_ - _g2174521800_)))) - (_g2174421797_ _g2174521800_)))) - (_g2174421797_ _g2174521800_)))) - (_g2174421797_ _g2174521800_)))) - (_g2174421797_ _g2174521800_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2174321973_ _L21729_)))) - (___kont3425434255_ - (lambda (_L21680_ _L21681_) - (_lp21605_ - _rest21630_ - _lift121608_ - _lift221609_ - (cons (cons _L21681_ - (cons _L21680_ '())) - _bind21610_))))) - (let ((___match3427734278_ - (lambda (_e2163821705_ - _hd2163921708_ - _tl2164021710_ - _e2164121713_ - _hd2164221716_ - _tl2164321718_ - _e2164421721_ - _hd2164521724_ - _tl2164621726_) - (let ((_L21729_ _hd2164521724_) - (_L21730_ _hd2164221716_)) - (if (and (gx#identifier? - _L21730_) - (gxc#kw-lambda-expr? - _L21729_)) - (___kont3425234253_ - _L21729_ - _L21730_) - (___kont3425434255_ - _hd2164521724_ - _hd2163921708_)))))) - (if (gx#stx-pair? ___stx3425034251_) - (let ((_e2163821705_ - (gx#stx-e - ___stx3425034251_))) - (let ((_tl2164021710_ - (let () + (let () + (declare (not safe)) + (cons _body23754_ '())))) + (declare (not safe)) + (cons _hd23752_ __tmp37032)))) + (declare (not safe)) + (cons '%#let-values __tmp37031)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp37030 + _stx23594_))) + (_expr23758_ + (if (let () (declare (not safe)) - (##cdr _e2163821705_))) - (_hd2163921708_ - (let () + (null? _lift223751_)) + _expr23756_ + (let ((__tmp37033 + (let ((__tmp37034 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp37035 + (let () + (declare (not safe)) + (cons _expr23756_ '())))) + (declare (not safe)) + (cons _lift223751_ __tmp37035)))) + (declare (not safe)) + (cons '%#let-values __tmp37034)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp37033 _stx23594_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_expr23760_ + (if (let () (declare (not safe)) - (##car _e2163821705_)))) - (if (gx#stx-pair? - _hd2163921708_) - (let ((_e2164121713_ - (gx#stx-e - _hd2163921708_))) - (let ((_tl2164321718_ - (let () - (declare - (not safe)) - (##cdr _e2164121713_))) - (_hd2164221716_ - (let () - (declare - (not safe)) - (##car _e2164121713_)))) - (if (gx#stx-null? - _tl2164321718_) - (if (gx#stx-pair? - _tl2164021710_) - (let ((_e2164421721_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2164021710_))) - (let ((_tl2164621726_ - (let () - (declare (not safe)) - (##cdr _e2164421721_))) - (_hd2164521724_ - (let () - (declare (not safe)) - (##car _e2164421721_)))) - (if (gx#stx-null? _tl2164621726_) - (___match3427734278_ - _e2163821705_ - _hd2163921708_ - _tl2164021710_ - _e2164121713_ - _hd2164221716_ - _tl2164321718_ - _e2164421721_ - _hd2164521724_ - _tl2164621726_) - (_g2163421659_)))) - (_g2163421659_)) - (if (gx#stx-pair? _tl2164021710_) - (let ((_e2165221672_ (gx#stx-e _tl2164021710_))) - (let ((_tl2165421677_ - (let () - (declare (not safe)) - (##cdr _e2165221672_))) - (_hd2165321675_ - (let () - (declare (not safe)) - (##car _e2165221672_)))) - (if (gx#stx-null? _tl2165421677_) - (___kont3425434255_ - _hd2165321675_ - _hd2163921708_) - (_g2163421659_)))) - (_g2163421659_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _tl2164021710_) - (let ((_e2165221672_ - (gx#stx-e - _tl2164021710_))) - (let ((_tl2165421677_ - (let () + (null? _lift123750_)) + _expr23758_ + (let ((__tmp37036 + (let ((__tmp37037 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2165221672_))) - (_hd2165321675_ - (let () (declare (not safe)) (##car _e2165221672_)))) - (if (gx#stx-null? _tl2165421677_) - (___kont3425434255_ _hd2165321675_ _hd2163921708_) - (_g2163421659_)))) - (_g2163421659_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2163421659_)))))))) - (if (let () - (declare (not safe)) - (##pair? _rest2161121619_)) - (let ((_hd2161621982_ - (let () - (declare (not safe)) - (##car _rest2161121619_))) - (_tl2161721984_ - (let () - (declare (not safe)) - (##cdr _rest2161121619_)))) - (let* ((_hd21987_ _hd2161621982_) - (_rest21989_ _tl2161721984_)) - (_K2161521979_ _rest21989_ _hd21987_))) - (_else2161321627_))))))) - (let* ((___stx3429434295_ _stx21431_) - (_g2143921465_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3429434295_)))) - (let ((___kont3429634297_ - (lambda (_L21525_ _L21526_) - (call-with-parameters - (lambda () - (if (ormap1 _lift-kw-lambda?21435_ - (foldr1 (lambda (_g2155421557_ - _g2155521559_) - (cons _g2155421557_ - _g2155521559_)) - '() - _L21526_)) - (let ((_g34546_ - (_lift-kw-lambda-bindings21436_ - (foldr1 (lambda (_g2156121564_ - _g2156221566_) - (cons _g2156121564_ - _g2156221566_)) - '() - _L21526_)))) - (begin - (let ((_g34547_ - (let () - (declare (not safe)) - (if (##values? _g34546_) - (##vector-length _g34546_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g34547_ 3))) - (error "Context expects 3 values" - _g34547_))) - (let ((_lift121569_ - (let () - (declare (not safe)) - (##vector-ref _g34546_ 0))) - (_lift221570_ - (let () - (declare (not safe)) - (##vector-ref _g34546_ 1))) - (_hd21571_ - (let () - (declare (not safe)) - (##vector-ref _g34546_ 2)))) - (let* ((_expr21573_ - (gxc#xform-wrap-source - (cons '%#let-values - (cons _hd21571_ - (cons _L21525_ '()))) - _stx21431_)) - (_expr21575_ - (gxc#xform-wrap-source - (cons '%#let-values - (cons _lift221570_ - (cons _expr21573_ '()))) - _stx21431_)) - (_expr21577_ - (gxc#xform-wrap-source - (cons '%#let-values - (cons _lift121569_ - (cons _expr21575_ '()))) - _stx21431_))) - (gxc#lift-top-lambda-let-values% - _expr21577_))))) - (let ((_g34548_ - (_compile-bindings21434_ - (foldr1 (lambda (_g2157921582_ - _g2158021584_) - (cons _g2157921582_ - _g2158021584_)) - '() - _L21526_)))) - (begin - (let ((_g34549_ - (let () - (declare (not safe)) - (if (##values? _g34548_) - (##vector-length _g34548_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g34549_ 3))) - (error "Context expects 3 values" - _g34549_))) - (let ((_lift121587_ - (let () - (declare (not safe)) - (##vector-ref _g34548_ 0))) - (_lift221588_ - (let () - (declare (not safe)) - (##vector-ref _g34548_ 1))) - (_hd21589_ - (let () + (let ((__tmp37038 + (let () + (declare (not safe)) + (cons _expr23758_ '())))) + (declare (not safe)) + (cons _lift123750_ __tmp37038)))) + (declare (not safe)) + (cons '%#let-values __tmp37037)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp37036 _stx23594_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _expr23760_))))))) + (__tmp37024 + (let () + (declare (not safe)) + (make-struct-instance gx#local-context::t)))) + (declare (not safe)) + (call-with-parameters + __tmp37025 + gx#current-expander-context + __tmp37024)))) + (___kont3646336464_ + (lambda () + (let () + (declare (not safe)) + (gxc#xform-let-values% _stx23594_))))) + (let ((___match3648436485_ + (lambda (_e2360823640_ + _hd2360723643_ + _tl2360623645_ + _e2361123648_ + _hd2361023651_ + _tl2360923653_ + ___splice3646136462_ + _target2361223656_ + _tl2361423658_) + (letrec ((_loop2361523661_ + (lambda (_hd2361323664_ _bind2361923666_) + (if (let () (declare (not safe)) - (##vector-ref _g34548_ 2)))) - (let* ((_body21591_ (gxc#compile-e _L21525_)) - (_expr21593_ - (gxc#xform-wrap-source - (cons '%#let-values - (cons _hd21589_ - (cons _body21591_ '()))) - _stx21431_)) - (_expr21595_ - (if (null? _lift221588_) - _expr21593_ - (gxc#xform-wrap-source - (cons '%#let-values - (cons _lift221588_ - (cons _expr21593_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx21431_))) - (_expr21597_ - (if (null? _lift121587_) - _expr21595_ - (gxc#xform-wrap-source - (cons '%#let-values - (cons _lift121587_ - (cons _expr21595_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx21431_)))) - _expr21597_)))))) - gx#current-expander-context - (let ((__obj34505 (make-object gx#local-context::t '5))) - (gx#local-context:::init!__0 __obj34505) - __obj34505)))) - (___kont3430034301_ - (lambda () (gxc#xform-let-values% _stx21431_)))) - (let ((___match3432134322_ - (lambda (_e2144321477_ - _hd2144421480_ - _tl2144521482_ - _e2144621485_ - _hd2144721488_ - _tl2144821490_ - ___splice3429834299_ - _target2144921493_ - _tl2145121495_) - (letrec ((_loop2145221498_ - (lambda (_hd2145021501_ _bind2145621503_) - (if (gx#stx-pair? _hd2145021501_) - (let ((_e2145321506_ - (gx#stx-e _hd2145021501_))) - (let ((_lp-tl2145521511_ + (gx#stx-pair? _hd2361323664_)) + (let ((_e2361623669_ + (let () + (declare (not safe)) + (gx#stx-e _hd2361323664_)))) + (let ((_lp-tl2361823674_ (let () (declare (not safe)) - (##cdr _e2145321506_))) - (_lp-hd2145421509_ + (##cdr _e2361623669_))) + (_lp-hd2361723672_ (let () (declare (not safe)) - (##car _e2145321506_)))) - (_loop2145221498_ - _lp-tl2145521511_ - (cons _lp-hd2145421509_ - _bind2145621503_)))) - (let ((_bind2145721514_ - (reverse _bind2145621503_))) - (if (gx#stx-pair? _tl2144821490_) - (let ((_e2145821517_ - (gx#stx-e _tl2144821490_))) - (let ((_tl2146021522_ + (##car _e2361623669_)))) + (let ((__tmp37056 + (let () + (declare (not safe)) + (cons _lp-hd2361723672_ + _bind2361923666_)))) + (declare (not safe)) + (_loop2361523661_ + _lp-tl2361823674_ + __tmp37056)))) + (let ((_bind2362023677_ + (let () + (declare (not safe)) + (reverse _bind2361923666_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2360923653_)) + (let ((_e2362323680_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2360923653_)))) + (let ((_tl2362123685_ (let () (declare (not safe)) - (##cdr _e2145821517_))) - (_hd2145921520_ + (##cdr _e2362323680_))) + (_hd2362223683_ (let () (declare (not safe)) - (##car _e2145821517_)))) - (if (gx#stx-null? - _tl2146021522_) - (let ((_L21525_ - _hd2145921520_) - (_L21526_ - _bind2145721514_)) - (if (ormap1 gxc#lift-top-lambda-binding? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr1 (lambda (_g2154621549_ _g2154721551_) - (cons _g2154621549_ _g2154721551_)) - '() - _L21526_)) - (___kont3429634297_ _L21525_ _L21526_) - (___kont3430034301_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3430034301_)))) - (___kont3430034301_))))))) - (_loop2145221498_ _target2144921493_ '()))))) - (if (gx#stx-pair? ___stx3429434295_) - (let ((_e2144321477_ (gx#stx-e ___stx3429434295_))) - (let ((_tl2144521482_ + (##car _e2362323680_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2362123685_)) + (let ((_L23688_ + _hd2362223683_) + (_L23689_ + _bind2362023677_)) + (if (let ((__tmp37054 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp37055 + (lambda (_g2370923712_ _g2371023714_) + (let () + (declare (not safe)) + (cons _g2370923712_ _g2371023714_))))) + (declare (not safe)) + (foldr1 __tmp37055 '() _L23689_)))) + (declare (not safe)) + (ormap1 gxc#lift-top-lambda-binding? __tmp37054)) + (___kont3645936460_ _L23688_ _L23689_) + (___kont3646336464_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3646336464_)))) + (___kont3646336464_))))))) + (let () + (declare (not safe)) + (_loop2361523661_ _target2361223656_ '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3645736458_)) + (let ((_e2360823640_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3645736458_)))) + (let ((_tl2360623645_ (let () (declare (not safe)) - (##cdr _e2144321477_))) - (_hd2144421480_ + (##cdr _e2360823640_))) + (_hd2360723643_ (let () (declare (not safe)) - (##car _e2144321477_)))) - (if (gx#stx-pair? _tl2144521482_) - (let ((_e2144621485_ (gx#stx-e _tl2144521482_))) - (let ((_tl2144821490_ + (##car _e2360823640_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2360623645_)) + (let ((_e2361123648_ + (let () + (declare (not safe)) + (gx#stx-e _tl2360623645_)))) + (let ((_tl2360923653_ (let () (declare (not safe)) - (##cdr _e2144621485_))) - (_hd2144721488_ + (##cdr _e2361123648_))) + (_hd2361023651_ (let () (declare (not safe)) - (##car _e2144621485_)))) - (if (gx#stx-pair/null? _hd2144721488_) - (let ((___splice3429834299_ - (gx#syntax-split-splice - _hd2144721488_ - '0))) - (let ((_tl2145121495_ + (##car _e2361123648_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd2361023651_)) + (let ((___splice3646136462_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd2361023651_ + '0)))) + (let ((_tl2361423658_ (let () (declare (not safe)) (##vector-ref - ___splice3429834299_ + ___splice3646136462_ '1))) - (_target2144921493_ + (_target2361223656_ (let () (declare (not safe)) (##vector-ref - ___splice3429834299_ + ___splice3646136462_ '0)))) - (if (gx#stx-null? _tl2145121495_) - (___match3432134322_ - _e2144321477_ - _hd2144421480_ - _tl2144521482_ - _e2144621485_ - _hd2144721488_ - _tl2144821490_ - ___splice3429834299_ - _target2144921493_ - _tl2145121495_) - (___kont3430034301_)))) - (___kont3430034301_)))) - (___kont3430034301_)))) - (___kont3430034301_)))))))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2361423658_)) + (___match3648436485_ + _e2360823640_ + _hd2360723643_ + _tl2360623645_ + _e2361123648_ + _hd2361023651_ + _tl2360923653_ + ___splice3646136462_ + _target2361223656_ + _tl2361423658_) + (___kont3646336464_)))) + (___kont3646336464_)))) + (___kont3646336464_)))) + (___kont3646336464_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_stx20575_) - (letrec* ((_bind-e__3118531186_ - (lambda (_id21415_ _expr21416_ _compile?21417_) - (cons (cons _id21415_ '()) - (cons (if _compile?21417_ - (gxc#compile-e _expr21416_) - _expr21416_) - '())))) - (_bind-e__0__3118731188_ - (lambda (_id21422_ _expr21423_) - (let ((_compile?21425_ '#t)) - (_bind-e__3118531186_ - _id21422_ - _expr21423_ - _compile?21425_)))) - (_bind-e20577_ - (lambda _g34551_ - (let ((_g34550_ - (let () (declare (not safe)) (##length _g34551_)))) - (cond ((let () (declare (not safe)) (##fx= _g34550_ 2)) - (apply _bind-e__0__3118731188_ _g34551_)) - ((let () (declare (not safe)) (##fx= _g34550_ 3)) - (apply _bind-e__3118531186_ _g34551_)) + (lambda (_stx22738_) + (letrec* ((_bind-e__3334833349_ + (lambda (_id23578_ _expr23579_ _compile?23580_) + (let ((__tmp37059 + (let () (declare (not safe)) (cons _id23578_ '()))) + (__tmp37057 + (let ((__tmp37058 + (if _compile?23580_ + (let () + (declare (not safe)) + (gxc#compile-e _expr23579_)) + _expr23579_))) + (declare (not safe)) + (cons __tmp37058 '())))) + (declare (not safe)) + (cons __tmp37059 __tmp37057)))) + (_bind-e__0__3335033351_ + (lambda (_id23585_ _expr23586_) + (let ((_compile?23588_ '#t)) + (declare (not safe)) + (_bind-e__3334833349_ + _id23585_ + _expr23586_ + _compile?23588_)))) + (_bind-e22740_ + (lambda _g37061_ + (let ((_g37060_ + (let () (declare (not safe)) (##length _g37061_)))) + (cond ((let () (declare (not safe)) (##fx= _g37060_ 2)) + (apply (lambda (_id23585_ _expr23586_) + (let () + (declare (not safe)) + (_bind-e__0__3335033351_ + _id23585_ + _expr23586_))) + _g37061_)) + ((let () (declare (not safe)) (##fx= _g37060_ 3)) + (apply (lambda (_id23590_ + _expr23591_ + _compile?23592_) + (let () + (declare (not safe)) + (_bind-e__3334833349_ + _id23590_ + _expr23591_ + _compile?23592_))) + _g37061_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g34551_)))))) - (_compile-bindings20578_ - (lambda (_rest20713_) - (let _lp20715_ ((_rest20717_ _rest20713_) - (_bind20718_ '())) - (let* ((_rest2071920727_ _rest20717_) - (_else2072120735_ - (lambda () (reverse _bind20718_))) - (_K2072321402_ - (lambda (_rest20738_ _hd20739_) - (let* ((___stx3434434345_ _hd20739_) - (_g2074420791_ + _g37061_)))))) + (_compile-bindings22741_ + (lambda (_rest22876_) + (let _lp22878_ ((_rest22880_ _rest22876_) + (_bind22881_ '())) + (let* ((_rest2288222890_ _rest22880_) + (_else2288422898_ + (lambda () + (let () + (declare (not safe)) + (reverse _bind22881_)))) + (_K2288623565_ + (lambda (_rest22901_ _hd22902_) + (let* ((___stx3650736508_ _hd22902_) + (_g2290722954_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3434434345_)))) - (let ((___kont3434634347_ - (lambda (_L21309_ _L21310_) - (let* ((___stx3432434325_ _L21309_) - (_g2132521339_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3650736508_))))) + (let ((___kont3650936510_ + (lambda (_L23472_ _L23473_) + (let* ((___stx3648736488_ _L23472_) + (_g2348823502_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3432434325_)))) - (let ((___kont3432634327_ - (lambda (_L21387_) - (_lp20715_ - _rest20738_ - (cons (_bind-e__3118531186_ - _L21310_ - _L21309_ - '#f) - _bind20718_)))) - (___kont3432834329_ - (lambda (_L21352_) - (let ((_g34552_ - (gxc#lift-case-lambda-clauses__% - _stx20575_ - _L21310_ - _L21352_ - '#t))) - (begin - (let ((_g34553_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3648736488_))))) + (let ((___kont3648936490_ + (lambda (_L23550_) + (let ((__tmp37062 + (let ((__tmp37063 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (_bind-e__3334833349_ _L23473_ _L23472_ '#f)))) + (declare (not safe)) + (cons __tmp37063 _bind22881_)))) + (declare (not safe)) + (_lp22878_ _rest22901_ __tmp37062)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3649136492_ + (lambda (_L23515_) + (let ((_g37064_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gxc#lift-case-lambda-clauses__% + _stx22738_ + _L23473_ + _L23515_ + '#t)))) + (begin + (let ((_g37065_ (let () (declare (not safe)) - (if (##values? _g34552_) - (##vector-length _g34552_) + (if (##values? _g37064_) + (##vector-length _g37064_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g34553_ 3))) - (error "Context expects 3 values" _g34553_))) - (let ((_ids21362_ + (if (not (let () (declare (not safe)) (##fx= _g37065_ 3))) + (error "Context expects 3 values" _g37065_))) + (let ((_ids23525_ (let () (declare (not safe)) - (##vector-ref _g34552_ 0))) - (_impls21363_ + (##vector-ref _g37064_ 0))) + (_impls23526_ (let () (declare (not safe)) - (##vector-ref _g34552_ 1))) - (_clauses21364_ + (##vector-ref _g37064_ 1))) + (_clauses23527_ (let () (declare (not safe)) - (##vector-ref _g34552_ 2)))) - (let* ((_g34554_ - (for-each gx#core-bind-runtime! _ids21362_)) - (_xbind21367_ - (map _bind-e20577_ _ids21362_ _impls21363_)) - (_expr*21369_ - (gxc#xform-wrap-source - (cons '%#case-lambda _clauses21364_) - (gx#datum->syntax__0 '#f 'case-lambda-expr))) - (_bind*21371_ - (_bind-e__3118531186_ _L21310_ _expr*21369_ '#f))) - (gxc#verbose - '"lift case-lambda clauses " - (gxc#identifier-symbol _L21310_) - '" => " - (map gxc#identifier-symbol _ids21362_)) - (_lp20715_ - _rest20738_ - (cons _bind*21371_ - (foldl1 cons _bind20718_ _xbind21367_)))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match3433534336_ - (lambda (_e2132821379_ - _hd2132921382_ - _tl2133021384_) - (let ((_L21387_ - _tl2133021384_)) - (if (andmap1 gxc#dispatch-lambda-form? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L21387_) - (___kont3432634327_ _L21387_) - (___kont3432834329_ _tl2133021384_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - ___stx3432434325_) - (let ((_e2132821379_ - (gx#stx-e - ___stx3432434325_))) - (let ((_tl2133021384_ - (let () + (##vector-ref _g37064_ 2)))) + (let* ((_g37066_ + (let () + (declare (not safe)) + (for-each gx#core-bind-runtime! _ids23525_))) + (_xbind23530_ + (let () + (declare (not safe)) + (map _bind-e22740_ _ids23525_ _impls23526_))) + (_expr*23532_ + (let ((__tmp37068 + (let () + (declare (not safe)) + (cons '%#case-lambda _clauses23527_))) + (__tmp37067 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'case-lambda-expr)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp37068 __tmp37067))) + (_bind*23534_ + (let () + (declare (not safe)) + (_bind-e__3334833349_ + _L23473_ + _expr*23532_ + '#f)))) + (let ((__tmp37070 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L23473_))) + (__tmp37069 + (let () + (declare (not safe)) + (map gxc#identifier-symbol _ids23525_)))) + (declare (not safe)) + (gxc#verbose + '"lift case-lambda clauses " + __tmp37070 + '" => " + __tmp37069)) + (let ((__tmp37071 + (let ((__tmp37072 + (let () + (declare (not safe)) + (foldl1 cons + _bind22881_ + _xbind23530_)))) + (declare (not safe)) + (cons _bind*23534_ __tmp37072)))) + (declare (not safe)) + (_lp22878_ _rest22901_ __tmp37071))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match3649836499_ + (lambda (_e2349323542_ + _hd2349223545_ + _tl2349123547_) + (let ((_L23550_ + _tl2349123547_)) + (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2132821379_))) - (_hd2132921382_ - (let () (declare (not safe)) (##car _e2132821379_)))) - (___match3433534336_ - _e2132821379_ - _hd2132921382_ - _tl2133021384_))) - (_g2132521339_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3434834349_ - (lambda (_L21137_ _L21138_) - (let* ((_g2115221182_ - (lambda (_g2115321179_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2115321179_))) - (_g2115121277_ - (lambda (_g2115321185_) - (if (gx#stx-pair? - _g2115321185_) - (let ((_e2115721187_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _g2115321185_))) - (let ((_hd2115821190_ - (let () (declare (not safe)) (##car _e2115721187_))) - (_tl2115921192_ + (andmap1 gxc#dispatch-lambda-form? _L23550_)) + (___kont3648936490_ _L23550_) + (___kont3649136492_ _tl2349123547_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx3648736488_)) + (let ((_e2349323542_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e ___stx3648736488_)))) + (let ((_tl2349123547_ + (let () (declare (not safe)) (##cdr _e2349323542_))) + (_hd2349223545_ + (let () (declare (not safe)) (##car _e2349323542_)))) + (___match3649836499_ + _e2349323542_ + _hd2349223545_ + _tl2349123547_))) + (let () (declare (not safe)) (_g2348823502_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3651136512_ + (lambda (_L23300_ _L23301_) + (let* ((_g2331523345_ + (lambda (_g2331623342_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2331623342_)))) + (_g2331423440_ + (lambda (_g2331623348_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _g2331623348_)) + (let ((_e2332223350_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _g2331623348_)))) + (let ((_hd2332123353_ + (let () (declare (not safe)) (##car _e2332223350_))) + (_tl2332023355_ (let () (declare (not safe)) - (##cdr _e2115721187_)))) - (if (gx#stx-pair? _tl2115921192_) - (let ((_e2116021195_ (gx#stx-e _tl2115921192_))) - (let ((_hd2116121198_ + (##cdr _e2332223350_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2332023355_)) + (let ((_e2332523358_ + (let () + (declare (not safe)) + (gx#stx-e _tl2332023355_)))) + (let ((_hd2332423361_ (let () (declare (not safe)) - (##car _e2116021195_))) - (_tl2116221200_ + (##car _e2332523358_))) + (_tl2332323363_ (let () (declare (not safe)) - (##cdr _e2116021195_)))) - (if (gx#stx-pair? _hd2116121198_) - (let ((_e2116321203_ - (gx#stx-e _hd2116121198_))) - (let ((_hd2116421206_ + (##cdr _e2332523358_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2332423361_)) + (let ((_e2332823366_ + (let () + (declare (not safe)) + (gx#stx-e _hd2332423361_)))) + (let ((_hd2332723369_ (let () (declare (not safe)) - (##car _e2116321203_))) - (_tl2116521208_ + (##car _e2332823366_))) + (_tl2332623371_ (let () (declare (not safe)) - (##cdr _e2116321203_)))) - (if (gx#stx-pair? _hd2116421206_) - (let ((_e2116621211_ - (gx#stx-e _hd2116421206_))) - (let ((_hd2116721214_ + (##cdr _e2332823366_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2332723369_)) + (let ((_e2333123374_ + (let () + (declare (not safe)) + (gx#stx-e _hd2332723369_)))) + (let ((_hd2333023377_ (let () (declare (not safe)) - (##car _e2116621211_))) - (_tl2116821216_ + (##car _e2333123374_))) + (_tl2332923379_ (let () (declare (not safe)) - (##cdr _e2116621211_)))) - (if (gx#stx-pair? _hd2116721214_) - (let ((_e2116921219_ - (gx#stx-e - _hd2116721214_))) - (let ((_hd2117021222_ + (##cdr _e2333123374_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2333023377_)) + (let ((_e2333423382_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2333023377_)))) + (let ((_hd2333323385_ (let () (declare (not safe)) - (##car _e2116921219_))) - (_tl2117121224_ + (##car _e2333423382_))) + (_tl2333223387_ (let () (declare (not safe)) - (##cdr _e2116921219_)))) - (if (gx#stx-null? - _tl2117121224_) - (if (gx#stx-pair? - _tl2116821216_) - (let ((_e2117221227_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2116821216_))) - (let ((_hd2117321230_ + (##cdr _e2333423382_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2333223387_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl2332923379_)) + (let ((_e2333723390_ + (let () + (declare (not safe)) + (gx#stx-e _tl2332923379_)))) + (let ((_hd2333623393_ (let () (declare (not safe)) - (##car _e2117221227_))) - (_tl2117421232_ + (##car _e2333723390_))) + (_tl2333523395_ (let () (declare (not safe)) - (##cdr _e2117221227_)))) - (if (gx#stx-null? _tl2117421232_) - (if (gx#stx-null? _tl2116521208_) - (if (gx#stx-pair? _tl2116221200_) - (let ((_e2117521235_ - (gx#stx-e _tl2116221200_))) - (let ((_hd2117621238_ + (##cdr _e2333723390_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2333523395_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2332623371_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2332323363_)) + (let ((_e2334023398_ + (let () + (declare (not safe)) + (gx#stx-e _tl2332323363_)))) + (let ((_hd2333923401_ (let () (declare (not safe)) - (##car _e2117521235_))) - (_tl2117721240_ + (##car _e2334023398_))) + (_tl2333823403_ (let () (declare (not safe)) - (##cdr _e2117521235_)))) - (if (gx#stx-null? _tl2117721240_) - ((lambda (_L21243_ - _L21244_ - _L21245_) - (let* ((_lambda-id21269_ + (##cdr _e2334023398_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2333823403_)) + ((lambda (_L23406_ + _L23407_ + _L23408_) + (let* ((_lambda-id23432_ (make-symbol - (gx#stx-e _L21138_) - (gensym '__))) - (_lambda-id21271_ - (gx#core-quote-syntax__1 - _lambda-id21269_ - (gx#stx-source - _stx20575_))) - (_g34555_ - (gx#core-bind-runtime!__0 - _lambda-id21271_)) - (_new-case-lambda-expr21274_ - (gxc#apply-expression-subst - _L21243_ - _L21245_ - _lambda-id21271_))) - (gxc#verbose - '"lift opt-lambda dispatch " - (gxc#identifier-symbol - _L21138_) - '" => " - (gxc#identifier-symbol - _lambda-id21271_)) - (_lp20715_ - (cons (_bind-e__3118531186_ - _L21138_ - _new-case-lambda-expr21274_ - '#f) - _rest20738_) - (cons (_bind-e__0__3118731188_ - _lambda-id21271_ - _L21244_) - _bind20718_)))) - _hd2117621238_ - _hd2117321230_ - _hd2117021222_) - (_g2115221182_ _g2115321185_)))) - (_g2115221182_ _g2115321185_)) - (_g2115221182_ _g2115321185_)) - (_g2115221182_ _g2115321185_)))) - (_g2115221182_ _g2115321185_)) - (_g2115221182_ _g2115321185_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2115221182_ - _g2115321185_)))) - (_g2115221182_ _g2115321185_)))) - (_g2115221182_ _g2115321185_)))) - (_g2115221182_ _g2115321185_)))) - (_g2115221182_ _g2115321185_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2115121277_ _L21137_)))) - (___kont3435034351_ - (lambda (_L20861_ _L20862_) - (let* ((_g2087620929_ - (lambda (_g2087720926_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2087720926_))) - (_g2087521105_ - (lambda (_g2087720932_) - (if (gx#stx-pair? - _g2087720932_) - (let ((_e2088320934_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _g2087720932_))) - (let ((_hd2088420937_ - (let () (declare (not safe)) (##car _e2088320934_))) - (_tl2088520939_ + (let () + (declare + (not safe)) + (gx#stx-e + _L23301_)) + (let () + (declare + (not safe)) + (gensym '__)))) + (_lambda-id23434_ + (let ((__tmp37073 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-source _stx22738_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 _lambda-id23432_ __tmp37073))) + (_g37074_ + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _lambda-id23434_))) + (_new-case-lambda-expr23437_ + (let () + (declare (not safe)) + (gxc#apply-expression-subst + _L23406_ + _L23408_ + _lambda-id23434_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp37076 + (let () + (declare + (not safe)) + (gxc#identifier-symbol + _L23301_))) + (__tmp37075 + (let () + (declare + (not safe)) + (gxc#identifier-symbol + _lambda-id23434_)))) + (declare (not safe)) + (gxc#verbose + '"lift opt-lambda dispatch " + __tmp37076 + '" => " + __tmp37075)) + (let ((__tmp37079 + (let ((__tmp37080 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (_bind-e__3334833349_ + _L23301_ + _new-case-lambda-expr23437_ + '#f)))) + (declare (not safe)) + (cons __tmp37080 _rest22901_))) + (__tmp37077 + (let ((__tmp37078 + (let () + (declare (not safe)) + (_bind-e__0__3335033351_ + _lambda-id23434_ + _L23407_)))) + (declare (not safe)) + (cons __tmp37078 _bind22881_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp22878_ + __tmp37079 + __tmp37077)))) + _hd2333923401_ + _hd2333623393_ + _hd2333323385_) + (let () + (declare (not safe)) + (_g2331523345_ + _g2331623348_))))) + (let () + (declare (not safe)) + (_g2331523345_ _g2331623348_))) + (let () + (declare (not safe)) + (_g2331523345_ _g2331623348_))) + (let () + (declare (not safe)) + (_g2331523345_ _g2331623348_))))) + (let () + (declare (not safe)) + (_g2331523345_ _g2331623348_))) + (let () + (declare (not safe)) + (_g2331523345_ _g2331623348_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2331523345_ + _g2331623348_))))) + (let () + (declare (not safe)) + (_g2331523345_ _g2331623348_))))) + (let () + (declare (not safe)) + (_g2331523345_ _g2331623348_))))) + (let () + (declare (not safe)) + (_g2331523345_ _g2331623348_))))) + (let () + (declare (not safe)) + (_g2331523345_ _g2331623348_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g2331423440_ _L23300_)))) + (___kont3651336514_ + (lambda (_L23024_ _L23025_) + (let* ((_g2303923092_ + (lambda (_g2304023089_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2304023089_)))) + (_g2303823268_ + (lambda (_g2304023095_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _g2304023095_)) + (let ((_e2304823097_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _g2304023095_)))) + (let ((_hd2304723100_ + (let () (declare (not safe)) (##car _e2304823097_))) + (_tl2304623102_ (let () (declare (not safe)) - (##cdr _e2088320934_)))) - (if (gx#stx-pair? _tl2088520939_) - (let ((_e2088620942_ (gx#stx-e _tl2088520939_))) - (let ((_hd2088720945_ + (##cdr _e2304823097_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2304623102_)) + (let ((_e2305123105_ + (let () + (declare (not safe)) + (gx#stx-e _tl2304623102_)))) + (let ((_hd2305023108_ (let () (declare (not safe)) - (##car _e2088620942_))) - (_tl2088820947_ + (##car _e2305123105_))) + (_tl2304923110_ (let () (declare (not safe)) - (##cdr _e2088620942_)))) - (if (gx#stx-pair? _hd2088720945_) - (let ((_e2088920950_ - (gx#stx-e _hd2088720945_))) - (let ((_hd2089020953_ + (##cdr _e2305123105_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2305023108_)) + (let ((_e2305423113_ + (let () + (declare (not safe)) + (gx#stx-e _hd2305023108_)))) + (let ((_hd2305323116_ (let () (declare (not safe)) - (##car _e2088920950_))) - (_tl2089120955_ + (##car _e2305423113_))) + (_tl2305223118_ (let () (declare (not safe)) - (##cdr _e2088920950_)))) - (if (gx#stx-pair? _hd2089020953_) - (let ((_e2089220958_ - (gx#stx-e _hd2089020953_))) - (let ((_hd2089320961_ + (##cdr _e2305423113_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2305323116_)) + (let ((_e2305723121_ + (let () + (declare (not safe)) + (gx#stx-e _hd2305323116_)))) + (let ((_hd2305623124_ (let () (declare (not safe)) - (##car _e2089220958_))) - (_tl2089420963_ + (##car _e2305723121_))) + (_tl2305523126_ (let () (declare (not safe)) - (##cdr _e2089220958_)))) - (if (gx#stx-pair? _hd2089320961_) - (let ((_e2089520966_ - (gx#stx-e - _hd2089320961_))) - (let ((_hd2089620969_ + (##cdr _e2305723121_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2305623124_)) + (let ((_e2306023129_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2305623124_)))) + (let ((_hd2305923132_ (let () (declare (not safe)) - (##car _e2089520966_))) - (_tl2089720971_ + (##car _e2306023129_))) + (_tl2305823134_ (let () (declare (not safe)) - (##cdr _e2089520966_)))) - (if (gx#stx-null? - _tl2089720971_) - (if (gx#stx-pair? - _tl2089420963_) - (let ((_e2089820974_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2089420963_))) - (let ((_hd2089920977_ + (##cdr _e2306023129_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2305823134_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl2305523126_)) + (let ((_e2306323137_ + (let () + (declare (not safe)) + (gx#stx-e _tl2305523126_)))) + (let ((_hd2306223140_ (let () (declare (not safe)) - (##car _e2089820974_))) - (_tl2090020979_ + (##car _e2306323137_))) + (_tl2306123142_ (let () (declare (not safe)) - (##cdr _e2089820974_)))) - (if (gx#stx-pair? _hd2089920977_) - (let ((_e2090120982_ (gx#stx-e _hd2089920977_))) - (let ((_hd2090220985_ + (##cdr _e2306323137_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2306223140_)) + (let ((_e2306623145_ + (let () + (declare (not safe)) + (gx#stx-e _hd2306223140_)))) + (let ((_hd2306523148_ (let () (declare (not safe)) - (##car _e2090120982_))) - (_tl2090320987_ + (##car _e2306623145_))) + (_tl2306423150_ (let () (declare (not safe)) - (##cdr _e2090120982_)))) - (if (gx#stx-pair? _tl2090320987_) - (let ((_e2090420990_ - (gx#stx-e _tl2090320987_))) - (let ((_hd2090520993_ + (##cdr _e2306623145_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2306423150_)) + (let ((_e2306923153_ + (let () + (declare (not safe)) + (gx#stx-e _tl2306423150_)))) + (let ((_hd2306823156_ (let () (declare (not safe)) - (##car _e2090420990_))) - (_tl2090620995_ + (##car _e2306923153_))) + (_tl2306723158_ (let () (declare (not safe)) - (##cdr _e2090420990_)))) - (if (gx#stx-pair? _hd2090520993_) - (let ((_e2090720998_ - (gx#stx-e - _hd2090520993_))) - (let ((_hd2090821001_ + (##cdr _e2306923153_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2306823156_)) + (let ((_e2307223161_ + (let () + (declare (not safe)) + (gx#stx-e + _hd2306823156_)))) + (let ((_hd2307123164_ (let () (declare (not safe)) - (##car _e2090720998_))) - (_tl2090921003_ + (##car _e2307223161_))) + (_tl2307023166_ (let () (declare (not safe)) - (##cdr _e2090720998_)))) - (if (gx#stx-pair? - _hd2090821001_) - (let ((_e2091021006_ - (gx#stx-e - _hd2090821001_))) - (let ((_hd2091121009_ - (let () + (##cdr _e2307223161_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2307123164_)) + (let ((_e2307523169_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e2091021006_))) - (_tl2091221011_ - (let () (declare (not safe)) (##cdr _e2091021006_)))) - (if (gx#stx-pair? _hd2091121009_) - (let ((_e2091321014_ (gx#stx-e _hd2091121009_))) - (let ((_hd2091421017_ + (not safe)) + (gx#stx-e _hd2307123164_)))) + (let ((_hd2307423172_ + (let () (declare (not safe)) (##car _e2307523169_))) + (_tl2307323174_ + (let () (declare (not safe)) (##cdr _e2307523169_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2307423172_)) + (let ((_e2307823177_ + (let () + (declare (not safe)) + (gx#stx-e _hd2307423172_)))) + (let ((_hd2307723180_ (let () (declare (not safe)) - (##car _e2091321014_))) - (_tl2091521019_ + (##car _e2307823177_))) + (_tl2307623182_ (let () (declare (not safe)) - (##cdr _e2091321014_)))) - (if (gx#stx-null? _tl2091521019_) - (if (gx#stx-pair? _tl2091221011_) - (let ((_e2091621022_ - (gx#stx-e _tl2091221011_))) - (let ((_hd2091721025_ + (##cdr _e2307823177_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2307623182_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2307323174_)) + (let ((_e2308123185_ + (let () + (declare (not safe)) + (gx#stx-e _tl2307323174_)))) + (let ((_hd2308023188_ (let () (declare (not safe)) - (##car _e2091621022_))) - (_tl2091821027_ + (##car _e2308123185_))) + (_tl2307923190_ (let () (declare (not safe)) - (##cdr _e2091621022_)))) - (if (gx#stx-null? _tl2091821027_) - (if (gx#stx-null? _tl2090921003_) - (if (gx#stx-pair? _tl2090620995_) - (let ((_e2091921030_ - (gx#stx-e - _tl2090620995_))) - (let ((_hd2092021033_ + (##cdr _e2308123185_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2307923190_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2307023166_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2306723158_)) + (let ((_e2308423193_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2306723158_)))) + (let ((_hd2308323196_ (let () (declare (not safe)) - (##car _e2091921030_))) - (_tl2092121035_ + (##car _e2308423193_))) + (_tl2308223198_ (let () (declare (not safe)) - (##cdr _e2091921030_)))) - (if (gx#stx-null? - _tl2092121035_) - (if (gx#stx-null? - _tl2090020979_) - (if (gx#stx-null? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2089120955_) - (if (gx#stx-pair? _tl2088820947_) - (let ((_e2092221038_ (gx#stx-e _tl2088820947_))) - (let ((_hd2092321041_ + (##cdr _e2308423193_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2308223198_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _tl2306123142_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2305223118_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2304923110_)) + (let ((_e2308723201_ + (let () + (declare (not safe)) + (gx#stx-e _tl2304923110_)))) + (let ((_hd2308623204_ (let () (declare (not safe)) - (##car _e2092221038_))) - (_tl2092421043_ + (##car _e2308723201_))) + (_tl2308523206_ (let () (declare (not safe)) - (##cdr _e2092221038_)))) - (if (gx#stx-null? _tl2092421043_) - ((lambda (_L21046_ - _L21047_ - _L21048_ - _L21049_ - _L21050_) - (let* ((_get-kws-id21090_ + (##cdr _e2308723201_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2308523206_)) + ((lambda (_L23209_ + _L23210_ + _L23211_ + _L23212_ + _L23213_) + (let* ((_get-kws-id23253_ (make-symbol - (gx#stx-e _L20862_) - (gensym '__))) - (_get-kws-id21092_ - (gx#core-quote-syntax__1 - _get-kws-id21090_ - (gx#stx-source _stx20575_))) - (_main-id21094_ + (let () + (declare (not safe)) + (gx#stx-e _L23025_)) + (let () + (declare (not safe)) + (gensym '__)))) + (_get-kws-id23255_ + (let ((__tmp37081 + (let () + (declare (not safe)) + (gx#stx-source + _stx22738_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _get-kws-id23253_ + __tmp37081))) + (_main-id23257_ (make-symbol - (gx#stx-e _L20862_) - (gensym '__))) - (_main-id21096_ - (gx#core-quote-syntax__1 - _main-id21094_ - (gx#stx-source _stx20575_))) - (_g34556_ - (gx#core-bind-runtime!__0 - _get-kws-id21092_)) - (_g34557_ - (gx#core-bind-runtime!__0 - _main-id21096_)) - (_new-kw-dispatch21100_ - (gxc#apply-expression-subst - _L21046_ - _L21050_ - _get-kws-id21092_)) - (_new-get-kws21102_ - (gxc#apply-expression-subst - _L21047_ - _L21049_ - _main-id21096_))) - (gxc#verbose - '"lift kw-lambda dispatch " - (gxc#identifier-symbol _L20862_) - '" => " - (gxc#identifier-symbol - _get-kws-id21092_) - '" => " - (gxc#identifier-symbol - _main-id21096_)) - (_lp20715_ - (cons (_bind-e__3118531186_ - _main-id21096_ - _L21048_ - '#f) - (cons (_bind-e__3118531186_ - _get-kws-id21092_ - _new-get-kws21102_ - '#f) - (cons (_bind-e__3118531186_ - _L20862_ - _new-kw-dispatch21100_ - '#f) - _rest20738_))) - _bind20718_))) - _hd2092321041_ - _hd2092021033_ - _hd2091721025_ - _hd2091421017_ - _hd2089620969_) - (_g2087620929_ _g2087720932_)))) - (_g2087620929_ _g2087720932_)) - (_g2087620929_ _g2087720932_)) - (_g2087620929_ _g2087720932_)) - (_g2087620929_ _g2087720932_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2087620929_ - _g2087720932_)) - (_g2087620929_ _g2087720932_)) - (_g2087620929_ _g2087720932_)))) - (_g2087620929_ _g2087720932_)) - (_g2087620929_ _g2087720932_)))) - (_g2087620929_ _g2087720932_)))) - (_g2087620929_ _g2087720932_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2087620929_ _g2087720932_)))) - (_g2087620929_ _g2087720932_)))) - (_g2087620929_ _g2087720932_)))) - (_g2087620929_ _g2087720932_)) - (_g2087620929_ _g2087720932_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2087620929_ - _g2087720932_)))) - (_g2087620929_ _g2087720932_)))) - (_g2087620929_ _g2087720932_)))) - (_g2087620929_ _g2087720932_)))) - (_g2087620929_ _g2087720932_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2087521105_ _L20861_)))) - (___kont3435234353_ - (lambda (_L20812_ _L20813_) - (_lp20715_ - _rest20738_ - (cons (cons _L20813_ - (cons (gxc#compile-e - _L20812_) - '())) - _bind20718_))))) - (let* ((___match3441934420_ - (lambda (_e2077020837_ - _hd2077120840_ - _tl2077220842_ - _e2077320845_ - _hd2077420848_ - _tl2077520850_ - _e2077620853_ - _hd2077720856_ - _tl2077820858_) - (let ((_L20861_ _hd2077720856_) - (_L20862_ _hd2077420848_)) - (if (and (gx#identifier? - _L20862_) - (gxc#kw-lambda-expr? - _L20861_)) - (___kont3435034351_ - _L20861_ - _L20862_) - (___kont3435234353_ - _hd2077720856_ - _hd2077120840_))))) - (___match3439734398_ - (lambda (_e2075921113_ - _hd2076021116_ - _tl2076121118_ - _e2076221121_ - _hd2076321124_ - _tl2076421126_ - _e2076521129_ - _hd2076621132_ - _tl2076721134_) - (let ((_L21137_ _hd2076621132_) - (_L21138_ _hd2076321124_)) - (if (and (gx#identifier? - _L21138_) - (gxc#opt-lambda-expr? - _L21137_)) - (___kont3434834349_ - _L21137_ - _L21138_) - (___match3441934420_ - _e2075921113_ - _hd2076021116_ - _tl2076121118_ - _e2076221121_ - _hd2076321124_ - _tl2076421126_ - _e2076521129_ - _hd2076621132_ - _tl2076721134_))))) - (___match3437534376_ - (lambda (_e2074821285_ - _hd2074921288_ - _tl2075021290_ - _e2075121293_ - _hd2075221296_ - _tl2075321298_ - _e2075421301_ - _hd2075521304_ - _tl2075621306_) - (let ((_L21309_ _hd2075521304_) - (_L21310_ _hd2075221296_)) - (if (and (gx#identifier? - _L21310_) - (gxc#case-lambda-expr? - _L21309_)) - (___kont3434634347_ - _L21309_ - _L21310_) - (___match3439734398_ - _e2074821285_ - _hd2074921288_ - _tl2075021290_ - _e2075121293_ - _hd2075221296_ - _tl2075321298_ - _e2075421301_ - _hd2075521304_ - _tl2075621306_)))))) - (if (gx#stx-pair? ___stx3434434345_) - (let ((_e2074821285_ - (gx#stx-e - ___stx3434434345_))) - (let ((_tl2075021290_ + (let () + (declare (not safe)) + (gx#stx-e _L23025_)) + (let () + (declare (not safe)) + (gensym '__)))) + (_main-id23259_ + (let ((__tmp37082 + (let () + (declare (not safe)) + (gx#stx-source + _stx22738_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _main-id23257_ + __tmp37082))) + (_g37083_ + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 + _get-kws-id23255_))) + (_g37084_ + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 + _main-id23259_))) + (_new-kw-dispatch23263_ + (let () + (declare (not safe)) + (gxc#apply-expression-subst + _L23209_ + _L23213_ + _get-kws-id23255_))) + (_new-get-kws23265_ + (let () + (declare (not safe)) + (gxc#apply-expression-subst + _L23210_ + _L23212_ + _main-id23259_)))) + (let ((__tmp37087 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L23025_))) + (__tmp37086 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _get-kws-id23255_))) + (__tmp37085 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _main-id23259_)))) + (declare (not safe)) + (gxc#verbose + '"lift kw-lambda dispatch " + __tmp37087 + '" => " + __tmp37086 + '" => " + __tmp37085)) + (let ((__tmp37088 + (let ((__tmp37093 + (let () + (declare (not safe)) + (_bind-e__3334833349_ + _main-id23259_ + _L23211_ + '#f))) + (__tmp37089 + (let ((__tmp37092 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (_bind-e__3334833349_ + _get-kws-id23255_ + _new-get-kws23265_ + '#f))) + (__tmp37090 + (let ((__tmp37091 + (let () + (declare (not safe)) + (_bind-e__3334833349_ + _L23025_ + _new-kw-dispatch23263_ + '#f)))) + (declare (not safe)) + (cons __tmp37091 _rest22901_)))) + (declare (not safe)) + (cons __tmp37092 __tmp37090)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp37093 + __tmp37089)))) + (declare (not safe)) + (_lp22878_ + __tmp37088 + _bind22881_)))) + _hd2308623204_ + _hd2308323196_ + _hd2308023188_ + _hd2307723180_ + _hd2305923132_) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2303923092_ + _g2304023095_))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))))) + (let () (declare (not safe)) (_g2303923092_ _g2304023095_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2303923092_ + _g2304023095_))))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2303923092_ + _g2304023095_))))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_))))) + (let () + (declare (not safe)) + (_g2303923092_ _g2304023095_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g2303823268_ _L23024_)))) + (___kont3651536516_ + (lambda (_L22975_ _L22976_) + (let ((__tmp37094 + (let ((__tmp37095 + (let ((__tmp37096 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp37097 + (let () + (declare (not safe)) + (gxc#compile-e _L22975_)))) + (declare (not safe)) + (cons __tmp37097 '())))) + (declare (not safe)) + (cons _L22976_ __tmp37096)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp37095 + _bind22881_)))) + (declare (not safe)) + (_lp22878_ + _rest22901_ + __tmp37094))))) + (let* ((___match3658236583_ + (lambda (_e2293523000_ + _hd2293423003_ + _tl2293323005_ + _e2293823008_ + _hd2293723011_ + _tl2293623013_ + _e2294123016_ + _hd2294023019_ + _tl2293923021_) + (let ((_L23024_ _hd2294023019_) + (_L23025_ _hd2293723011_)) + (if (and (let () + (declare + (not safe)) + (gx#identifier? + _L23025_)) + (let () + (declare + (not safe)) + (gxc#kw-lambda-expr? + _L23024_))) + (___kont3651336514_ + _L23024_ + _L23025_) + (___kont3651536516_ + _hd2294023019_ + _hd2293423003_))))) + (___match3656036561_ + (lambda (_e2292423276_ + _hd2292323279_ + _tl2292223281_ + _e2292723284_ + _hd2292623287_ + _tl2292523289_ + _e2293023292_ + _hd2292923295_ + _tl2292823297_) + (let ((_L23300_ _hd2292923295_) + (_L23301_ _hd2292623287_)) + (if (and (let () + (declare + (not safe)) + (gx#identifier? + _L23301_)) + (let () + (declare + (not safe)) + (gxc#opt-lambda-expr? + _L23300_))) + (___kont3651136512_ + _L23300_ + _L23301_) + (___match3658236583_ + _e2292423276_ + _hd2292323279_ + _tl2292223281_ + _e2292723284_ + _hd2292623287_ + _tl2292523289_ + _e2293023292_ + _hd2292923295_ + _tl2292823297_))))) + (___match3653836539_ + (lambda (_e2291323448_ + _hd2291223451_ + _tl2291123453_ + _e2291623456_ + _hd2291523459_ + _tl2291423461_ + _e2291923464_ + _hd2291823467_ + _tl2291723469_) + (let ((_L23472_ _hd2291823467_) + (_L23473_ _hd2291523459_)) + (if (and (let () + (declare + (not safe)) + (gx#identifier? + _L23473_)) + (let () + (declare + (not safe)) + (gxc#case-lambda-expr? + _L23472_))) + (___kont3650936510_ + _L23472_ + _L23473_) + (___match3656036561_ + _e2291323448_ + _hd2291223451_ + _tl2291123453_ + _e2291623456_ + _hd2291523459_ + _tl2291423461_ + _e2291923464_ + _hd2291823467_ + _tl2291723469_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3650736508_)) + (let ((_e2291323448_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx3650736508_)))) + (let ((_tl2291123453_ (let () (declare (not safe)) - (##cdr _e2074821285_))) - (_hd2074921288_ + (##cdr _e2291323448_))) + (_hd2291223451_ (let () (declare (not safe)) - (##car _e2074821285_)))) - (if (gx#stx-pair? - _hd2074921288_) - (let ((_e2075121293_ - (gx#stx-e - _hd2074921288_))) - (let ((_tl2075321298_ + (##car _e2291323448_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2291223451_)) + (let ((_e2291623456_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd2291223451_)))) + (let ((_tl2291423461_ (let () (declare (not safe)) - (##cdr _e2075121293_))) - (_hd2075221296_ + (##cdr _e2291623456_))) + (_hd2291523459_ (let () (declare (not safe)) - (##car _e2075121293_)))) - (if (gx#stx-null? - _tl2075321298_) - (if (gx#stx-pair? - _tl2075021290_) - (let ((_e2075421301_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl2075021290_))) - (let ((_tl2075621306_ + (##car _e2291623456_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2291423461_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _tl2291123453_)) + (let ((_e2291923464_ + (let () + (declare (not safe)) + (gx#stx-e _tl2291123453_)))) + (let ((_tl2291723469_ (let () (declare (not safe)) - (##cdr _e2075421301_))) - (_hd2075521304_ + (##cdr _e2291923464_))) + (_hd2291823467_ (let () (declare (not safe)) - (##car _e2075421301_)))) - (if (gx#stx-null? _tl2075621306_) - (___match3437534376_ - _e2074821285_ - _hd2074921288_ - _tl2075021290_ - _e2075121293_ - _hd2075221296_ - _tl2075321298_ - _e2075421301_ - _hd2075521304_ - _tl2075621306_) - (_g2074420791_)))) - (_g2074420791_)) - (if (gx#stx-pair? _tl2075021290_) - (let ((_e2078420804_ (gx#stx-e _tl2075021290_))) - (let ((_tl2078620809_ + (##car _e2291923464_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2291723469_)) + (___match3653836539_ + _e2291323448_ + _hd2291223451_ + _tl2291123453_ + _e2291623456_ + _hd2291523459_ + _tl2291423461_ + _e2291923464_ + _hd2291823467_ + _tl2291723469_) + (let () (declare (not safe)) (_g2290722954_))))) + (let () (declare (not safe)) (_g2290722954_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2291123453_)) + (let ((_e2294922967_ + (let () + (declare (not safe)) + (gx#stx-e _tl2291123453_)))) + (let ((_tl2294722972_ (let () (declare (not safe)) - (##cdr _e2078420804_))) - (_hd2078520807_ + (##cdr _e2294922967_))) + (_hd2294822970_ (let () (declare (not safe)) - (##car _e2078420804_)))) - (if (gx#stx-null? _tl2078620809_) - (___kont3435234353_ - _hd2078520807_ - _hd2074921288_) - (_g2074420791_)))) - (_g2074420791_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _tl2075021290_) - (let ((_e2078420804_ - (gx#stx-e - _tl2075021290_))) - (let ((_tl2078620809_ - (let () + (##car _e2294922967_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2294722972_)) + (___kont3651536516_ + _hd2294822970_ + _hd2291223451_) + (let () (declare (not safe)) (_g2290722954_))))) + (let () (declare (not safe)) (_g2290722954_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2291123453_)) + (let ((_e2294922967_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e2078420804_))) - (_hd2078520807_ - (let () (declare (not safe)) (##car _e2078420804_)))) - (if (gx#stx-null? _tl2078620809_) - (___kont3435234353_ _hd2078520807_ _hd2074921288_) - (_g2074420791_)))) - (_g2074420791_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2074420791_)))))))) + (not safe)) + (gx#stx-e _tl2291123453_)))) + (let ((_tl2294722972_ + (let () (declare (not safe)) (##cdr _e2294922967_))) + (_hd2294822970_ + (let () (declare (not safe)) (##car _e2294922967_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2294722972_)) + (___kont3651536516_ _hd2294822970_ _hd2291223451_) + (let () (declare (not safe)) (_g2290722954_))))) + (let () (declare (not safe)) (_g2290722954_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2290722954_))))))))) (if (let () (declare (not safe)) - (##pair? _rest2071920727_)) - (let ((_hd2072421405_ + (##pair? _rest2288222890_)) + (let ((_hd2288723568_ (let () (declare (not safe)) - (##car _rest2071920727_))) - (_tl2072521407_ + (##car _rest2288222890_))) + (_tl2288823570_ (let () (declare (not safe)) - (##cdr _rest2071920727_)))) - (let* ((_hd21410_ _hd2072421405_) - (_rest21412_ _tl2072521407_)) - (_K2072321402_ _rest21412_ _hd21410_))) - (_else2072120735_))))))) - (let* ((___stx3443634437_ _stx20575_) - (_g2058120608_ + (##cdr _rest2288222890_)))) + (let* ((_hd23573_ _hd2288723568_) + (_rest23575_ _tl2288823570_)) + (declare (not safe)) + (_K2288623565_ _rest23575_ _hd23573_))) + (let () + (declare (not safe)) + (_else2288422898_)))))))) + (let* ((___stx3659936600_ _stx22738_) + (_g2274422771_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3443634437_)))) - (let ((___kont3443834439_ - (lambda (_L20668_ _L20669_ _L20670_) - (call-with-parameters - (lambda () - (let ((_hd20707_ - (_compile-bindings20578_ - (foldr1 (lambda (_g2069920702_ _g2070020704_) - (cons _g2069920702_ _g2070020704_)) - '() - _L20669_))) - (_body20708_ (gxc#compile-e _L20668_))) - (gxc#xform-wrap-source - (cons _L20670_ - (cons _hd20707_ (cons _body20708_ '()))) - _stx20575_))) - gx#current-expander-context - (let ((__obj34506 (make-object gx#local-context::t '5))) - (gx#local-context:::init!__0 __obj34506) - __obj34506)))) - (___kont3444234443_ - (lambda () (gxc#xform-let-values% _stx20575_)))) - (let ((___match3446334464_ - (lambda (_e2058620620_ - _hd2058720623_ - _tl2058820625_ - _e2058920628_ - _hd2059020631_ - _tl2059120633_ - ___splice3444034441_ - _target2059220636_ - _tl2059420638_) - (letrec ((_loop2059520641_ - (lambda (_hd2059320644_ _bind2059920646_) - (if (gx#stx-pair? _hd2059320644_) - (let ((_e2059620649_ - (gx#stx-e _hd2059320644_))) - (let ((_lp-tl2059820654_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3659936600_))))) + (let ((___kont3660136602_ + (lambda (_L22831_ _L22832_ _L22833_) + (let ((__tmp37099 + (lambda () + (let ((_hd22870_ + (let ((__tmp37100 + (let ((__tmp37101 + (lambda (_g2286222865_ + _g2286322867_) + (let () + (declare (not safe)) + (cons _g2286222865_ + _g2286322867_))))) + (declare (not safe)) + (foldr1 __tmp37101 + '() + _L22832_)))) + (declare (not safe)) + (_compile-bindings22741_ __tmp37100))) + (_body22871_ + (let () + (declare (not safe)) + (gxc#compile-e _L22831_)))) + (let ((__tmp37102 + (let ((__tmp37103 + (let ((__tmp37104 + (let () + (declare (not safe)) + (cons _body22871_ + '())))) + (declare (not safe)) + (cons _hd22870_ __tmp37104)))) + (declare (not safe)) + (cons _L22833_ __tmp37103)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp37102 + _stx22738_))))) + (__tmp37098 + (let () + (declare (not safe)) + (make-struct-instance gx#local-context::t)))) + (declare (not safe)) + (call-with-parameters + __tmp37099 + gx#current-expander-context + __tmp37098)))) + (___kont3660536606_ + (lambda () + (let () + (declare (not safe)) + (gxc#xform-let-values% _stx22738_))))) + (let ((___match3662636627_ + (lambda (_e2275122783_ + _hd2275022786_ + _tl2274922788_ + _e2275422791_ + _hd2275322794_ + _tl2275222796_ + ___splice3660336604_ + _target2275522799_ + _tl2275722801_) + (letrec ((_loop2275822804_ + (lambda (_hd2275622807_ _bind2276222809_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2275622807_)) + (let ((_e2275922812_ + (let () + (declare (not safe)) + (gx#stx-e _hd2275622807_)))) + (let ((_lp-tl2276122817_ (let () (declare (not safe)) - (##cdr _e2059620649_))) - (_lp-hd2059720652_ + (##cdr _e2275922812_))) + (_lp-hd2276022815_ (let () (declare (not safe)) - (##car _e2059620649_)))) - (_loop2059520641_ - _lp-tl2059820654_ - (cons _lp-hd2059720652_ - _bind2059920646_)))) - (let ((_bind2060020657_ - (reverse _bind2059920646_))) - (if (gx#stx-pair? _tl2059120633_) - (let ((_e2060120660_ - (gx#stx-e _tl2059120633_))) - (let ((_tl2060320665_ + (##car _e2275922812_)))) + (let ((__tmp37107 + (let () + (declare (not safe)) + (cons _lp-hd2276022815_ + _bind2276222809_)))) + (declare (not safe)) + (_loop2275822804_ + _lp-tl2276122817_ + __tmp37107)))) + (let ((_bind2276322820_ + (let () + (declare (not safe)) + (reverse _bind2276222809_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2275222796_)) + (let ((_e2276622823_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2275222796_)))) + (let ((_tl2276422828_ (let () (declare (not safe)) - (##cdr _e2060120660_))) - (_hd2060220663_ + (##cdr _e2276622823_))) + (_hd2276522826_ (let () (declare (not safe)) - (##car _e2060120660_)))) - (if (gx#stx-null? - _tl2060320665_) - (let ((_L20668_ - _hd2060220663_) - (_L20669_ - _bind2060020657_) - (_L20670_ - _hd2058720623_)) - (if (ormap1 gxc#lift-top-lambda-binding? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr1 (lambda (_g2069120694_ _g2069220696_) - (cons _g2069120694_ _g2069220696_)) - '() - _L20669_)) - (___kont3443834439_ _L20668_ _L20669_ _L20670_) - (___kont3444234443_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3444234443_)))) - (___kont3444234443_))))))) - (_loop2059520641_ _target2059220636_ '()))))) - (if (gx#stx-pair? ___stx3443634437_) - (let ((_e2058620620_ (gx#stx-e ___stx3443634437_))) - (let ((_tl2058820625_ + (##car _e2276622823_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2276422828_)) + (let ((_L22831_ + _hd2276522826_) + (_L22832_ + _bind2276322820_) + (_L22833_ + _hd2275022786_)) + (if (let ((__tmp37105 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp37106 + (lambda (_g2285422857_ _g2285522859_) + (let () + (declare (not safe)) + (cons _g2285422857_ _g2285522859_))))) + (declare (not safe)) + (foldr1 __tmp37106 '() _L22832_)))) + (declare (not safe)) + (ormap1 gxc#lift-top-lambda-binding? __tmp37105)) + (___kont3660136602_ _L22831_ _L22832_ _L22833_) + (___kont3660536606_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3660536606_)))) + (___kont3660536606_))))))) + (let () + (declare (not safe)) + (_loop2275822804_ _target2275522799_ '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx3659936600_)) + (let ((_e2275122783_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3659936600_)))) + (let ((_tl2274922788_ (let () (declare (not safe)) - (##cdr _e2058620620_))) - (_hd2058720623_ + (##cdr _e2275122783_))) + (_hd2275022786_ (let () (declare (not safe)) - (##car _e2058620620_)))) - (if (gx#stx-pair? _tl2058820625_) - (let ((_e2058920628_ (gx#stx-e _tl2058820625_))) - (let ((_tl2059120633_ + (##car _e2275122783_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2274922788_)) + (let ((_e2275422791_ + (let () + (declare (not safe)) + (gx#stx-e _tl2274922788_)))) + (let ((_tl2275222796_ (let () (declare (not safe)) - (##cdr _e2058920628_))) - (_hd2059020631_ + (##cdr _e2275422791_))) + (_hd2275322794_ (let () (declare (not safe)) - (##car _e2058920628_)))) - (if (gx#stx-pair/null? _hd2059020631_) - (let ((___splice3444034441_ - (gx#syntax-split-splice - _hd2059020631_ - '0))) - (let ((_tl2059420638_ + (##car _e2275422791_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd2275322794_)) + (let ((___splice3660336604_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd2275322794_ + '0)))) + (let ((_tl2275722801_ (let () (declare (not safe)) (##vector-ref - ___splice3444034441_ + ___splice3660336604_ '1))) - (_target2059220636_ + (_target2275522799_ (let () (declare (not safe)) (##vector-ref - ___splice3444034441_ + ___splice3660336604_ '0)))) - (if (gx#stx-null? _tl2059420638_) - (___match3446334464_ - _e2058620620_ - _hd2058720623_ - _tl2058820625_ - _e2058920628_ - _hd2059020631_ - _tl2059120633_ - ___splice3444034441_ - _target2059220636_ - _tl2059420638_) - (___kont3444234443_)))) - (___kont3444234443_)))) - (___kont3444234443_)))) - (___kont3444234443_)))))))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2275722801_)) + (___match3662636627_ + _e2275122783_ + _hd2275022786_ + _tl2274922788_ + _e2275422791_ + _hd2275322794_ + _tl2275222796_ + ___splice3660336604_ + _target2275522799_ + _tl2275722801_) + (___kont3660536606_)))) + (___kont3660536606_)))) + (___kont3660536606_)))) + (___kont3660536606_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_bind20493_) - (let* ((___stx3446634467_ _bind20493_) - (_g2049620513_ + (lambda (_bind22656_) + (let* ((___stx3662936630_ _bind22656_) + (_g2265922676_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx3446634467_)))) - (let ((___kont3446834469_ - (lambda (_L20549_ _L20550_) - (if (gx#identifier? _L20550_) - (let ((_$e20566_ (gxc#case-lambda-expr? _L20549_))) - (if _$e20566_ - _$e20566_ - (let ((_$e20569_ (gxc#opt-lambda-expr? _L20549_))) - (if _$e20569_ - _$e20569_ - (gxc#kw-lambda-expr? _L20549_))))) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx3662936630_))))) + (let ((___kont3663136632_ + (lambda (_L22712_ _L22713_) + (if (let () (declare (not safe)) (gx#identifier? _L22713_)) + (let ((_$e22729_ + (let () + (declare (not safe)) + (gxc#case-lambda-expr? _L22712_)))) + (if _$e22729_ + _$e22729_ + (let ((_$e22732_ + (let () + (declare (not safe)) + (gxc#opt-lambda-expr? _L22712_)))) + (if _$e22732_ + _$e22732_ + (let () + (declare (not safe)) + (gxc#kw-lambda-expr? _L22712_)))))) '#f))) - (___kont3447034471_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3446634467_) - (let ((_e2050020525_ (gx#stx-e ___stx3446634467_))) - (let ((_tl2050220530_ - (let () (declare (not safe)) (##cdr _e2050020525_))) - (_hd2050120528_ - (let () (declare (not safe)) (##car _e2050020525_)))) - (if (gx#stx-pair? _hd2050120528_) - (let ((_e2050320533_ (gx#stx-e _hd2050120528_))) - (let ((_tl2050520538_ + (___kont3663336634_ (lambda () '#f))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx3662936630_)) + (let ((_e2266522688_ + (let () + (declare (not safe)) + (gx#stx-e ___stx3662936630_)))) + (let ((_tl2266322693_ + (let () (declare (not safe)) (##cdr _e2266522688_))) + (_hd2266422691_ + (let () (declare (not safe)) (##car _e2266522688_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2266422691_)) + (let ((_e2266822696_ + (let () + (declare (not safe)) + (gx#stx-e _hd2266422691_)))) + (let ((_tl2266622701_ (let () (declare (not safe)) - (##cdr _e2050320533_))) - (_hd2050420536_ + (##cdr _e2266822696_))) + (_hd2266722699_ (let () (declare (not safe)) - (##car _e2050320533_)))) - (if (gx#stx-null? _tl2050520538_) - (if (gx#stx-pair? _tl2050220530_) - (let ((_e2050620541_ - (gx#stx-e _tl2050220530_))) - (let ((_tl2050820546_ + (##car _e2266822696_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2266622701_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2266322693_)) + (let ((_e2267122704_ + (let () + (declare (not safe)) + (gx#stx-e _tl2266322693_)))) + (let ((_tl2266922709_ (let () (declare (not safe)) - (##cdr _e2050620541_))) - (_hd2050720544_ + (##cdr _e2267122704_))) + (_hd2267022707_ (let () (declare (not safe)) - (##car _e2050620541_)))) - (if (gx#stx-null? _tl2050820546_) - (___kont3446834469_ - _hd2050720544_ - _hd2050420536_) - (___kont3447034471_)))) - (___kont3447034471_)) - (___kont3447034471_)))) - (___kont3447034471_)))) - (___kont3447034471_)))))))) + (##car _e2267122704_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2266922709_)) + (___kont3663136632_ + _hd2267022707_ + _hd2266722699_) + (___kont3663336634_)))) + (___kont3663336634_)) + (___kont3663336634_)))) + (___kont3663336634_)))) + (___kont3663336634_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__1.scm b/src/bootstrap/gerbil/compiler/optimize-top__1.scm index 8bdea51e1..0ff2ee396 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__1.scm @@ -1,129 +1,201 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |gxc[:0:]#defbasic-expression-type-builtin| - (lambda (_$stx20354_) - (let* ((_g2035820387_ - (lambda (_g2035920383_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2035920383_))) - (_g2035720488_ - (lambda (_g2035920391_) - (if (gx#stx-pair? _g2035920391_) - (let ((_e2036220394_ (gx#syntax-e _g2035920391_))) - (let ((_hd2036320398_ - (let () (declare (not safe)) (##car _e2036220394_))) - (_tl2036420401_ + (lambda (_$stx22517_) + (let* ((_g2252122550_ + (lambda (_g2252222546_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2252222546_)))) + (_g2252022651_ + (lambda (_g2252222554_) + (if (let () (declare (not safe)) (gx#stx-pair? _g2252222554_)) + (let ((_e2252722557_ + (let () + (declare (not safe)) + (gx#syntax-e _g2252222554_)))) + (let ((_hd2252622561_ + (let () (declare (not safe)) (##car _e2252722557_))) + (_tl2252522564_ (let () (declare (not safe)) - (##cdr _e2036220394_)))) - (if (gx#stx-pair/null? _tl2036420401_) - (let ((_g34558_ - (gx#syntax-split-splice _tl2036420401_ '0))) + (##cdr _e2252722557_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl2252522564_)) + (let ((_g37108_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl2252522564_ + '0)))) (begin - (let ((_g34559_ + (let ((_g37109_ (let () (declare (not safe)) - (if (##values? _g34558_) - (##vector-length _g34558_) + (if (##values? _g37108_) + (##vector-length _g37108_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g34559_ 2))) + (##fx= _g37109_ 2))) (error "Context expects 2 values" - _g34559_))) - (let ((_target2036520404_ + _g37109_))) + (let ((_target2252822567_ (let () (declare (not safe)) - (##vector-ref _g34558_ 0))) - (_tl2036720407_ + (##vector-ref _g37108_ 0))) + (_tl2253022570_ (let () (declare (not safe)) - (##vector-ref _g34558_ 1)))) - (if (gx#stx-null? _tl2036720407_) - (letrec ((_loop2036820410_ - (lambda (_hd2036620414_ - _type-e2037220417_ - _id2037320419_) - (if (gx#stx-pair? - _hd2036620414_) - (let ((_e2036920422_ - (gx#syntax-e - _hd2036620414_))) - (let ((_lp-hd2037020426_ + (##vector-ref _g37108_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2253022570_)) + (letrec ((_loop2253122573_ + (lambda (_hd2252922577_ + _type-e2253522580_ + _id2253622582_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2252922577_)) + (let ((_e2253222585_ + (let () + (declare + (not safe)) + (gx#syntax-e + _hd2252922577_)))) + (let ((_lp-hd2253322589_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e2036920422_))) - (_lp-tl2037120429_ - (let () (declare (not safe)) (##cdr _e2036920422_)))) - (if (gx#stx-pair? _lp-hd2037020426_) - (let ((_e2037620432_ (gx#syntax-e _lp-hd2037020426_))) - (let ((_hd2037720436_ + (##car _e2253222585_))) + (_lp-tl2253422592_ + (let () (declare (not safe)) (##cdr _e2253222585_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd2253322589_)) + (let ((_e2254122595_ + (let () + (declare (not safe)) + (gx#syntax-e _lp-hd2253322589_)))) + (let ((_hd2254022599_ (let () (declare (not safe)) - (##car _e2037620432_))) - (_tl2037820439_ + (##car _e2254122595_))) + (_tl2253922602_ (let () (declare (not safe)) - (##cdr _e2037620432_)))) - (if (gx#stx-pair? _tl2037820439_) - (let ((_e2037920442_ (gx#syntax-e _tl2037820439_))) - (let ((_hd2038020446_ + (##cdr _e2254122595_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2253922602_)) + (let ((_e2254422605_ + (let () + (declare (not safe)) + (gx#syntax-e _tl2253922602_)))) + (let ((_hd2254322609_ + (let () + (declare (not safe)) + (##car _e2254422605_))) + (_tl2254222612_ + (let () + (declare (not safe)) + (##cdr _e2254422605_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2254222612_)) + (_loop2253122573_ + _lp-tl2253422592_ (let () (declare (not safe)) - (##car _e2037920442_))) - (_tl2038120449_ + (cons _hd2254322609_ + _type-e2253522580_)) (let () (declare (not safe)) - (##cdr _e2037920442_)))) - (if (gx#stx-null? _tl2038120449_) - (_loop2036820410_ - _lp-tl2037120429_ - (cons _hd2038020446_ _type-e2037220417_) - (cons _hd2037720436_ _id2037320419_)) - (_g2035820387_ _g2035920391_)))) - (_g2035820387_ _g2035920391_)))) - (_g2035820387_ _g2035920391_)))) + (cons _hd2254022599_ _id2253622582_))) + (_g2252122550_ _g2252222554_)))) + (_g2252122550_ _g2252222554_)))) + (_g2252122550_ _g2252222554_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_type-e2037420452_ - (reverse _type-e2037220417_)) - (_id2037520455_ - (reverse _id2037320419_))) - ((lambda (_L20458_ - _L20460_) - (cons (gx#datum->syntax__0 - '#f - 'begin) - (begin + (let ((_type-e2253722615_ + (let () + (declare + (not safe)) + (reverse _type-e2253522580_))) + (_id2253822618_ + (let () + (declare + (not safe)) + (reverse _id2253622582_)))) + ((lambda (_L22621_ + _L22623_) + (let ((__tmp37121 + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-check-splice-targets _L20458_ _L20460_) - (foldr2 (lambda (_g2047620480_ - _g2047720483_ - _g2047820485_) - (cons (cons (gx#datum->syntax__0 - '#f - 'hash-put!) - (cons (gx#datum->syntax__0 - '#f - 'basic-expression-type-builtin) - (cons (cons (gx#datum->syntax__0 + (declare (not safe)) + (gx#datum->syntax__0 '#f 'begin))) + (__tmp37110 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets _L22621_ _L22623_)) + (let ((__tmp37111 + (lambda (_g2263922643_ + _g2264022646_ + _g2264122648_) + (let ((__tmp37112 + (let ((__tmp37120 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'hash-put!))) + (__tmp37113 + (let ((__tmp37119 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'basic-expression-type-builtin))) + (__tmp37114 + (let ((__tmp37116 + (let ((__tmp37118 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _g2047720483_ '())) - (cons _g2047620480_ '())))) + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp37117 + (let () + (declare (not safe)) + (cons _g2264022646_ '())))) + (declare (not safe)) + (cons __tmp37118 __tmp37117))) + (__tmp37115 + (let () (declare (not safe)) (cons _g2263922643_ '())))) + (declare (not safe)) + (cons __tmp37116 __tmp37115)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2047820485_)) - '() - _L20458_ - _L20460_)))) - _type-e2037420452_ - _id2037520455_)))))) + (declare (not safe)) + (cons __tmp37119 + __tmp37114)))) + (declare (not safe)) + (cons __tmp37120 __tmp37113)))) + (declare (not safe)) + (cons __tmp37112 _g2264122648_))))) + (declare (not safe)) + (foldr2 __tmp37111 '() _L22621_ _L22623_))))) + (declare (not safe)) + (cons __tmp37121 __tmp37110))) + _type-e2253722615_ + _id2253822618_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop2036820410_ - _target2036520404_ + (_loop2253122573_ + _target2252822567_ '() '())) - (_g2035820387_ _g2035920391_))))) - (_g2035820387_ _g2035920391_)))) - (_g2035820387_ _g2035920391_))))) - (_g2035720488_ _$stx20354_)))) + (_g2252122550_ _g2252222554_))))) + (_g2252122550_ _g2252222554_)))) + (_g2252122550_ _g2252222554_))))) + (_g2252022651_ _$stx22517_)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index 4e79dcb1a..1ad82a1e1 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm @@ -1,2309 +1,3943 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1695199291) + (define gerbil/compiler/optimize-xform::timestamp 1695292405) (begin (define gxc#&identity-expression - (make-promise - (lambda () - (let ((_tbl20096_ (make-table 'test: eq?))) - (table-set! _tbl20096_ '%#begin-annotation gxc#xform-identity) - (table-set! _tbl20096_ '%#lambda gxc#xform-identity) - (table-set! _tbl20096_ '%#case-lambda gxc#xform-identity) - (table-set! _tbl20096_ '%#let-values gxc#xform-identity) - (table-set! _tbl20096_ '%#letrec-values gxc#xform-identity) - (table-set! _tbl20096_ '%#letrec*-values gxc#xform-identity) - (table-set! _tbl20096_ '%#quote gxc#xform-identity) - (table-set! _tbl20096_ '%#quote-syntax gxc#xform-identity) - (table-set! _tbl20096_ '%#call gxc#xform-identity) - (table-set! _tbl20096_ '%#if gxc#xform-identity) - (table-set! _tbl20096_ '%#ref gxc#xform-identity) - (table-set! _tbl20096_ '%#set! gxc#xform-identity) - (table-set! _tbl20096_ '%#struct-instance? gxc#xform-identity) - (table-set! - _tbl20096_ - '%#struct-direct-instance? - gxc#xform-identity) - (table-set! _tbl20096_ '%#struct-ref gxc#xform-identity) - (table-set! _tbl20096_ '%#struct-set! gxc#xform-identity) - (table-set! _tbl20096_ '%#struct-direct-ref gxc#xform-identity) - (table-set! _tbl20096_ '%#struct-direct-set! gxc#xform-identity) - (table-set! _tbl20096_ '%#struct-unchecked-ref gxc#xform-identity) - (table-set! _tbl20096_ '%#struct-unchecked-set! gxc#xform-identity) - _tbl20096_)))) + (let ((__tmp22387 + (lambda () + (let ((_tbl22141_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! + _tbl22141_ + '%#begin-annotation + gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#lambda gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#case-lambda gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#let-values gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#letrec-values gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! + _tbl22141_ + '%#letrec*-values + gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#quote gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#quote-syntax gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#call gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! + _tbl22141_ + '%#call-unchecked + gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#if gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#ref gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#set! gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! + _tbl22141_ + '%#struct-instance? + gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! + _tbl22141_ + '%#struct-direct-instance? + gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#struct-ref gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22141_ '%#struct-set! gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! + _tbl22141_ + '%#struct-direct-ref + gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! + _tbl22141_ + '%#struct-direct-set! + gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! + _tbl22141_ + '%#struct-unchecked-ref + gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! + _tbl22141_ + '%#struct-unchecked-set! + gxc#xform-identity)) + _tbl22141_)))) + (declare (not safe)) + (make-promise __tmp22387))) (define gxc#&identity-special-form - (make-promise - (lambda () - (let ((_tbl20092_ (make-table 'test: eq?))) - (table-set! _tbl20092_ '%#begin gxc#xform-identity) - (table-set! _tbl20092_ '%#begin-syntax gxc#xform-identity) - (table-set! _tbl20092_ '%#begin-foreign gxc#xform-identity) - (table-set! _tbl20092_ '%#module gxc#xform-identity) - (table-set! _tbl20092_ '%#import gxc#xform-identity) - (table-set! _tbl20092_ '%#export gxc#xform-identity) - (table-set! _tbl20092_ '%#provide gxc#xform-identity) - (table-set! _tbl20092_ '%#extern gxc#xform-identity) - (table-set! _tbl20092_ '%#define-values gxc#xform-identity) - (table-set! _tbl20092_ '%#define-syntax gxc#xform-identity) - (table-set! _tbl20092_ '%#define-alias gxc#xform-identity) - (table-set! _tbl20092_ '%#declare gxc#xform-identity) - _tbl20092_)))) + (let ((__tmp22388 + (lambda () + (let ((_tbl22137_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#begin gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#begin-syntax gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#begin-foreign gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#module gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#import gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#export gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#provide gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#extern gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#define-values gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#define-syntax gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#define-alias gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22137_ '%#declare gxc#xform-identity)) + _tbl22137_)))) + (declare (not safe)) + (make-promise __tmp22388))) (define gxc#&identity - (make-promise - (lambda () - (let ((_tbl20088_ (make-table 'test: eq?))) - (hash-copy! _tbl20088_ (force gxc#&identity-special-form)) - (hash-copy! _tbl20088_ (force gxc#&identity-expression)) - _tbl20088_)))) + (let ((__tmp22389 + (lambda () + (let ((_tbl22133_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp22390 + (let () + (declare (not safe)) + (force gxc#&identity-special-form)))) + (declare (not safe)) + (hash-copy! _tbl22133_ __tmp22390)) + (let ((__tmp22391 + (let () + (declare (not safe)) + (force gxc#&identity-expression)))) + (declare (not safe)) + (hash-copy! _tbl22133_ __tmp22391)) + _tbl22133_)))) + (declare (not safe)) + (make-promise __tmp22389))) (define gxc#&basic-xform-expression - (make-promise - (lambda () - (let ((_tbl20084_ (make-table 'test: eq?))) - (table-set! - _tbl20084_ - '%#begin-annotation - gxc#xform-begin-annotation%) - (table-set! _tbl20084_ '%#lambda gxc#xform-lambda%) - (table-set! _tbl20084_ '%#case-lambda gxc#xform-case-lambda%) - (table-set! _tbl20084_ '%#let-values gxc#xform-let-values%) - (table-set! _tbl20084_ '%#letrec-values gxc#xform-let-values%) - (table-set! _tbl20084_ '%#letrec*-values gxc#xform-let-values%) - (table-set! _tbl20084_ '%#quote gxc#xform-identity) - (table-set! _tbl20084_ '%#quote-syntax gxc#xform-identity) - (table-set! _tbl20084_ '%#call gxc#xform-operands) - (table-set! _tbl20084_ '%#if gxc#xform-operands) - (table-set! _tbl20084_ '%#ref gxc#xform-identity) - (table-set! _tbl20084_ '%#set! gxc#xform-setq%) - (table-set! _tbl20084_ '%#struct-instance? gxc#xform-operands) - (table-set! - _tbl20084_ - '%#struct-direct-instance? - gxc#xform-operands) - (table-set! _tbl20084_ '%#struct-ref gxc#xform-operands) - (table-set! _tbl20084_ '%#struct-set! gxc#xform-operands) - (table-set! _tbl20084_ '%#struct-direct-ref gxc#xform-operands) - (table-set! _tbl20084_ '%#struct-direct-set! gxc#xform-operands) - (table-set! _tbl20084_ '%#struct-unchecked-ref gxc#xform-operands) - (table-set! _tbl20084_ '%#struct-unchecked-set! gxc#xform-operands) - _tbl20084_)))) + (let ((__tmp22392 + (lambda () + (let ((_tbl22129_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (table-set! + _tbl22129_ + '%#begin-annotation + gxc#xform-begin-annotation%)) + (let () + (declare (not safe)) + (table-set! _tbl22129_ '%#lambda gxc#xform-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl22129_ + '%#case-lambda + gxc#xform-case-lambda%)) + (let () + (declare (not safe)) + (table-set! _tbl22129_ '%#let-values gxc#xform-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl22129_ + '%#letrec-values + gxc#xform-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl22129_ + '%#letrec*-values + gxc#xform-let-values%)) + (let () + (declare (not safe)) + (table-set! _tbl22129_ '%#quote gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22129_ '%#quote-syntax gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22129_ '%#call gxc#xform-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22129_ + '%#call-unchecked + gxc#xform-operands)) + (let () + (declare (not safe)) + (table-set! _tbl22129_ '%#if gxc#xform-operands)) + (let () + (declare (not safe)) + (table-set! _tbl22129_ '%#ref gxc#xform-identity)) + (let () + (declare (not safe)) + (table-set! _tbl22129_ '%#set! gxc#xform-setq%)) + (let () + (declare (not safe)) + (table-set! + _tbl22129_ + '%#struct-instance? + gxc#xform-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22129_ + '%#struct-direct-instance? + gxc#xform-operands)) + (let () + (declare (not safe)) + (table-set! _tbl22129_ '%#struct-ref gxc#xform-operands)) + (let () + (declare (not safe)) + (table-set! _tbl22129_ '%#struct-set! gxc#xform-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22129_ + '%#struct-direct-ref + gxc#xform-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22129_ + '%#struct-direct-set! + gxc#xform-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22129_ + '%#struct-unchecked-ref + gxc#xform-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22129_ + '%#struct-unchecked-set! + gxc#xform-operands)) + _tbl22129_)))) + (declare (not safe)) + (make-promise __tmp22392))) (define gxc#&basic-xform - (make-promise - (lambda () - (let ((_tbl20080_ (make-table 'test: eq?))) - (hash-copy! _tbl20080_ (force gxc#&basic-xform-expression)) - (hash-copy! _tbl20080_ (force gxc#&identity)) - (table-set! _tbl20080_ '%#begin gxc#xform-begin%) - (table-set! _tbl20080_ '%#begin-syntax gxc#xform-begin-syntax%) - (table-set! _tbl20080_ '%#module gxc#xform-module%) - (table-set! _tbl20080_ '%#define-values gxc#xform-define-values%) - (table-set! _tbl20080_ '%#define-syntax gxc#xform-define-syntax%) - _tbl20080_)))) + (let ((__tmp22393 + (lambda () + (let ((_tbl22125_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp22394 + (let () + (declare (not safe)) + (force gxc#&basic-xform-expression)))) + (declare (not safe)) + (hash-copy! _tbl22125_ __tmp22394)) + (let ((__tmp22395 + (let () (declare (not safe)) (force gxc#&identity)))) + (declare (not safe)) + (hash-copy! _tbl22125_ __tmp22395)) + (let () + (declare (not safe)) + (table-set! _tbl22125_ '%#begin gxc#xform-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl22125_ + '%#begin-syntax + gxc#xform-begin-syntax%)) + (let () + (declare (not safe)) + (table-set! _tbl22125_ '%#module gxc#xform-module%)) + (let () + (declare (not safe)) + (table-set! + _tbl22125_ + '%#define-values + gxc#xform-define-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl22125_ + '%#define-syntax + gxc#xform-define-syntax%)) + _tbl22125_)))) + (declare (not safe)) + (make-promise __tmp22393))) (define gxc#&collect-mutators - (make-promise - (lambda () - (let ((_tbl20076_ (make-table 'test: eq?))) - (hash-copy! _tbl20076_ (force gxc#&void)) - (table-set! _tbl20076_ '%#begin gxc#collect-begin%) - (table-set! _tbl20076_ '%#begin-syntax gxc#collect-begin-syntax%) - (table-set! - _tbl20076_ - '%#begin-annotation - gxc#collect-begin-annotation%) - (table-set! _tbl20076_ '%#module gxc#collect-module%) - (table-set! _tbl20076_ '%#define-values gxc#collect-define-values%) - (table-set! _tbl20076_ '%#define-syntax gxc#collect-define-syntax%) - (table-set! _tbl20076_ '%#lambda gxc#collect-body-lambda%) - (table-set! _tbl20076_ '%#case-lambda gxc#collect-body-case-lambda%) - (table-set! _tbl20076_ '%#let-values gxc#collect-body-let-values%) - (table-set! - _tbl20076_ - '%#letrec-values - gxc#collect-body-let-values%) - (table-set! - _tbl20076_ - '%#letrec*-values - gxc#collect-body-let-values%) - (table-set! _tbl20076_ '%#call gxc#collect-operands) - (table-set! _tbl20076_ '%#if gxc#collect-operands) - (table-set! _tbl20076_ '%#set! gxc#collect-mutators-setq%) - (table-set! _tbl20076_ '%#struct-instance? gxc#collect-operands) - (table-set! - _tbl20076_ - '%#struct-direct-instance? - gxc#collect-operands) - (table-set! _tbl20076_ '%#struct-ref gxc#collect-operands) - (table-set! _tbl20076_ '%#struct-set! gxc#collect-operands) - (table-set! _tbl20076_ '%#struct-direct-ref gxc#collect-operands) - (table-set! _tbl20076_ '%#struct-direct-set! gxc#collect-operands) - (table-set! _tbl20076_ '%#struct-unchecked-ref gxc#collect-operands) - (table-set! - _tbl20076_ - '%#struct-unchecked-set! - gxc#collect-operands) - _tbl20076_)))) + (let ((__tmp22396 + (lambda () + (let ((_tbl22121_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp22397 + (let () (declare (not safe)) (force gxc#&void)))) + (declare (not safe)) + (hash-copy! _tbl22121_ __tmp22397)) + (let () + (declare (not safe)) + (table-set! _tbl22121_ '%#begin gxc#collect-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#begin-syntax + gxc#collect-begin-syntax%)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#begin-annotation + gxc#collect-begin-annotation%)) + (let () + (declare (not safe)) + (table-set! _tbl22121_ '%#module gxc#collect-module%)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#define-values + gxc#collect-define-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#define-syntax + gxc#collect-define-syntax%)) + (let () + (declare (not safe)) + (table-set! _tbl22121_ '%#lambda gxc#collect-body-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#case-lambda + gxc#collect-body-case-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#let-values + gxc#collect-body-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#letrec-values + gxc#collect-body-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#letrec*-values + gxc#collect-body-let-values%)) + (let () + (declare (not safe)) + (table-set! _tbl22121_ '%#call gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#call-unchecked + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! _tbl22121_ '%#if gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! _tbl22121_ '%#set! gxc#collect-mutators-setq%)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#struct-instance? + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#struct-direct-instance? + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! _tbl22121_ '%#struct-ref gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! _tbl22121_ '%#struct-set! gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#struct-direct-ref + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#struct-direct-set! + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#struct-unchecked-ref + gxc#collect-operands)) + (let () + (declare (not safe)) + (table-set! + _tbl22121_ + '%#struct-unchecked-set! + gxc#collect-operands)) + _tbl22121_)))) + (declare (not safe)) + (make-promise __tmp22396))) (define gxc#apply-collect-mutators - (lambda (_stx20069_ . _args20071_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx20069_ _args20071_)) - gxc#current-compile-methods - (force gxc#&collect-mutators)))) + (lambda (_stx22114_ . _args22116_) + (let ((__tmp22399 + (lambda () (apply gxc#compile-e _stx22114_ _args22116_))) + (__tmp22398 + (let () (declare (not safe)) (force gxc#&collect-mutators)))) + (declare (not safe)) + (call-with-parameters + __tmp22399 + gxc#current-compile-methods + __tmp22398)))) (define gxc#&collect-methods - (make-promise - (lambda () - (let ((_tbl20066_ (make-table 'test: eq?))) - (hash-copy! _tbl20066_ (force gxc#&void)) - (table-set! _tbl20066_ '%#begin gxc#collect-begin%) - (table-set! _tbl20066_ '%#begin-syntax gxc#collect-begin-syntax%) - (table-set! _tbl20066_ '%#module gxc#collect-module%) - (table-set! _tbl20066_ '%#call gxc#collect-methods-call%) - _tbl20066_)))) + (let ((__tmp22400 + (lambda () + (let ((_tbl22111_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp22401 + (let () (declare (not safe)) (force gxc#&void)))) + (declare (not safe)) + (hash-copy! _tbl22111_ __tmp22401)) + (let () + (declare (not safe)) + (table-set! _tbl22111_ '%#begin gxc#collect-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl22111_ + '%#begin-syntax + gxc#collect-begin-syntax%)) + (let () + (declare (not safe)) + (table-set! _tbl22111_ '%#module gxc#collect-module%)) + (let () + (declare (not safe)) + (table-set! _tbl22111_ '%#call gxc#collect-methods-call%)) + (let () + (declare (not safe)) + (table-set! + _tbl22111_ + '%#call-unchecked + gxc#collect-methods-call%)) + _tbl22111_)))) + (declare (not safe)) + (make-promise __tmp22400))) (define gxc#apply-collect-methods - (lambda (_stx20059_ . _args20061_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx20059_ _args20061_)) - gxc#current-compile-methods - (force gxc#&collect-methods)))) + (lambda (_stx22104_ . _args22106_) + (let ((__tmp22403 + (lambda () (apply gxc#compile-e _stx22104_ _args22106_))) + (__tmp22402 + (let () (declare (not safe)) (force gxc#&collect-methods)))) + (declare (not safe)) + (call-with-parameters + __tmp22403 + gxc#current-compile-methods + __tmp22402)))) (define gxc#&expression-subst - (make-promise - (lambda () - (let ((_tbl20056_ (make-table 'test: eq?))) - (hash-copy! _tbl20056_ (force gxc#&basic-xform-expression)) - (table-set! _tbl20056_ '%#begin gxc#xform-begin%) - (table-set! _tbl20056_ '%#ref gxc#expression-subst-ref%) - (table-set! _tbl20056_ '%#set! gxc#expression-subst-setq%) - _tbl20056_)))) + (let ((__tmp22404 + (lambda () + (let ((_tbl22101_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp22405 + (let () + (declare (not safe)) + (force gxc#&basic-xform-expression)))) + (declare (not safe)) + (hash-copy! _tbl22101_ __tmp22405)) + (let () + (declare (not safe)) + (table-set! _tbl22101_ '%#begin gxc#xform-begin%)) + (let () + (declare (not safe)) + (table-set! _tbl22101_ '%#ref gxc#expression-subst-ref%)) + (let () + (declare (not safe)) + (table-set! _tbl22101_ '%#set! gxc#expression-subst-setq%)) + _tbl22101_)))) + (declare (not safe)) + (make-promise __tmp22404))) (define gxc#apply-expression-subst - (lambda (_stx20049_ . _args20051_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx20049_ _args20051_)) - gxc#current-compile-methods - (force gxc#&expression-subst)))) + (lambda (_stx22094_ . _args22096_) + (let ((__tmp22407 + (lambda () (apply gxc#compile-e _stx22094_ _args22096_))) + (__tmp22406 + (let () (declare (not safe)) (force gxc#&expression-subst)))) + (declare (not safe)) + (call-with-parameters + __tmp22407 + gxc#current-compile-methods + __tmp22406)))) (define gxc#&expression-subst* - (make-promise - (lambda () - (let ((_tbl20046_ (make-table 'test: eq?))) - (hash-copy! _tbl20046_ (force gxc#&expression-subst)) - (table-set! _tbl20046_ '%#ref gxc#expression-subst*-ref%) - (table-set! _tbl20046_ '%#set! gxc#expression-subst*-setq%) - _tbl20046_)))) + (let ((__tmp22408 + (lambda () + (let ((_tbl22091_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp22409 + (let () + (declare (not safe)) + (force gxc#&expression-subst)))) + (declare (not safe)) + (hash-copy! _tbl22091_ __tmp22409)) + (let () + (declare (not safe)) + (table-set! _tbl22091_ '%#ref gxc#expression-subst*-ref%)) + (let () + (declare (not safe)) + (table-set! _tbl22091_ '%#set! gxc#expression-subst*-setq%)) + _tbl22091_)))) + (declare (not safe)) + (make-promise __tmp22408))) (define gxc#apply-expression-subst* - (lambda (_stx20039_ . _args20041_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx20039_ _args20041_)) - gxc#current-compile-methods - (force gxc#&expression-subst*)))) + (lambda (_stx22084_ . _args22086_) + (let ((__tmp22411 + (lambda () (apply gxc#compile-e _stx22084_ _args22086_))) + (__tmp22410 + (let () (declare (not safe)) (force gxc#&expression-subst*)))) + (declare (not safe)) + (call-with-parameters + __tmp22411 + gxc#current-compile-methods + __tmp22410)))) (define gxc#&find-expression - (make-promise - (lambda () - (let ((_tbl20036_ (make-table 'test: eq?))) - (hash-copy! _tbl20036_ (force gxc#&false-expression)) - (table-set! _tbl20036_ '%#begin gxc#find-body%) - (table-set! - _tbl20036_ - '%#begin-annotation - gxc#find-begin-annotation%) - (table-set! _tbl20036_ '%#lambda gxc#find-lambda%) - (table-set! _tbl20036_ '%#case-lambda gxc#find-case-lambda%) - (table-set! _tbl20036_ '%#let-values gxc#find-let-values%) - (table-set! _tbl20036_ '%#letrec-values gxc#find-let-values%) - (table-set! _tbl20036_ '%#letrec*-values gxc#find-let-values%) - (table-set! _tbl20036_ '%#call gxc#find-body%) - (table-set! _tbl20036_ '%#if gxc#find-body%) - (table-set! _tbl20036_ '%#set! gxc#find-setq%) - (table-set! _tbl20036_ '%#struct-instance? gxc#find-body%) - (table-set! _tbl20036_ '%#struct-direct-instance? gxc#find-body%) - (table-set! _tbl20036_ '%#struct-ref gxc#find-body%) - (table-set! _tbl20036_ '%#struct-set! gxc#find-body%) - (table-set! _tbl20036_ '%#struct-direct-ref gxc#find-body%) - (table-set! _tbl20036_ '%#struct-direct-set! gxc#find-body%) - (table-set! _tbl20036_ '%#struct-unchecked-ref gxc#find-body%) - (table-set! _tbl20036_ '%#struct-unchecked-set! gxc#find-body%) - _tbl20036_)))) + (let ((__tmp22412 + (lambda () + (let ((_tbl22081_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp22413 + (let () + (declare (not safe)) + (force gxc#&false-expression)))) + (declare (not safe)) + (hash-copy! _tbl22081_ __tmp22413)) + (let () + (declare (not safe)) + (table-set! _tbl22081_ '%#begin gxc#find-body%)) + (let () + (declare (not safe)) + (table-set! + _tbl22081_ + '%#begin-annotation + gxc#find-begin-annotation%)) + (let () + (declare (not safe)) + (table-set! _tbl22081_ '%#lambda gxc#find-lambda%)) + (let () + (declare (not safe)) + (table-set! + _tbl22081_ + '%#case-lambda + gxc#find-case-lambda%)) + (let () + (declare (not safe)) + (table-set! _tbl22081_ '%#let-values gxc#find-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl22081_ + '%#letrec-values + gxc#find-let-values%)) + (let () + (declare (not safe)) + (table-set! + _tbl22081_ + '%#letrec*-values + gxc#find-let-values%)) + (let () + (declare (not safe)) + (table-set! _tbl22081_ '%#call gxc#find-body%)) + (let () + (declare (not safe)) + (table-set! _tbl22081_ '%#call-unchecked gxc#find-body%)) + (let () + (declare (not safe)) + (table-set! _tbl22081_ '%#if gxc#find-body%)) + (let () + (declare (not safe)) + (table-set! _tbl22081_ '%#set! gxc#find-setq%)) + (let () + (declare (not safe)) + (table-set! _tbl22081_ '%#struct-instance? gxc#find-body%)) + (let () + (declare (not safe)) + (table-set! + _tbl22081_ + '%#struct-direct-instance? + gxc#find-body%)) + (let () + (declare (not safe)) + (table-set! _tbl22081_ '%#struct-ref gxc#find-body%)) + (let () + (declare (not safe)) + (table-set! _tbl22081_ '%#struct-set! gxc#find-body%)) + (let () + (declare (not safe)) + (table-set! _tbl22081_ '%#struct-direct-ref gxc#find-body%)) + (let () + (declare (not safe)) + (table-set! + _tbl22081_ + '%#struct-direct-set! + gxc#find-body%)) + (let () + (declare (not safe)) + (table-set! + _tbl22081_ + '%#struct-unchecked-ref + gxc#find-body%)) + (let () + (declare (not safe)) + (table-set! + _tbl22081_ + '%#struct-unchecked-set! + gxc#find-body%)) + _tbl22081_)))) + (declare (not safe)) + (make-promise __tmp22412))) (define gxc#&find-var-refs - (make-promise - (lambda () - (let ((_tbl20032_ (make-table 'test: eq?))) - (hash-copy! _tbl20032_ (force gxc#&find-expression)) - (table-set! _tbl20032_ '%#ref gxc#find-var-refs-ref%) - (table-set! _tbl20032_ '%#set! gxc#find-var-refs-setq%) - _tbl20032_)))) + (let ((__tmp22414 + (lambda () + (let ((_tbl22077_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp22415 + (let () + (declare (not safe)) + (force gxc#&find-expression)))) + (declare (not safe)) + (hash-copy! _tbl22077_ __tmp22415)) + (let () + (declare (not safe)) + (table-set! _tbl22077_ '%#ref gxc#find-var-refs-ref%)) + (let () + (declare (not safe)) + (table-set! _tbl22077_ '%#set! gxc#find-var-refs-setq%)) + _tbl22077_)))) + (declare (not safe)) + (make-promise __tmp22414))) (define gxc#apply-find-var-refs - (lambda (_stx20025_ . _args20027_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx20025_ _args20027_)) - gxc#current-compile-methods - (force gxc#&find-var-refs)))) + (lambda (_stx22070_ . _args22072_) + (let ((__tmp22417 + (lambda () (apply gxc#compile-e _stx22070_ _args22072_))) + (__tmp22416 + (let () (declare (not safe)) (force gxc#&find-var-refs)))) + (declare (not safe)) + (call-with-parameters + __tmp22417 + gxc#current-compile-methods + __tmp22416)))) (define gxc#&collect-runtime-refs - (make-promise - (lambda () - (let ((_tbl20022_ (make-table 'test: eq?))) - (hash-copy! _tbl20022_ (force gxc#&collect-expression-refs)) - (table-set! _tbl20022_ '%#ref gxc#collect-runtime-refs-ref%) - (table-set! _tbl20022_ '%#set! gxc#collect-runtime-refs-setq%) - _tbl20022_)))) + (let ((__tmp22418 + (lambda () + (let ((_tbl22067_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp22419 + (let () + (declare (not safe)) + (force gxc#&collect-expression-refs)))) + (declare (not safe)) + (hash-copy! _tbl22067_ __tmp22419)) + (let () + (declare (not safe)) + (table-set! + _tbl22067_ + '%#ref + gxc#collect-runtime-refs-ref%)) + (let () + (declare (not safe)) + (table-set! + _tbl22067_ + '%#set! + gxc#collect-runtime-refs-setq%)) + _tbl22067_)))) + (declare (not safe)) + (make-promise __tmp22418))) (define gxc#apply-collect-runtime-refs - (lambda (_stx20015_ . _args20017_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx20015_ _args20017_)) - gxc#current-compile-methods - (force gxc#&collect-runtime-refs)))) - (define gxc#xform-identity (lambda (_stx20012_ . _args20013_) _stx20012_)) + (lambda (_stx22060_ . _args22062_) + (let ((__tmp22421 + (lambda () (apply gxc#compile-e _stx22060_ _args22062_))) + (__tmp22420 + (let () + (declare (not safe)) + (force gxc#&collect-runtime-refs)))) + (declare (not safe)) + (call-with-parameters + __tmp22421 + gxc#current-compile-methods + __tmp22420)))) + (define gxc#xform-identity (lambda (_stx22057_ . _args22058_) _stx22057_)) (define gxc#xform-wrap-source - (lambda (_stx20009_ _src-stx20010_) - (gx#stx-wrap-source _stx20009_ (gx#stx-source _src-stx20010_)))) + (lambda (_stx22054_ _src-stx22055_) + (let ((__tmp22422 + (let () (declare (not safe)) (gx#stx-source _src-stx22055_)))) + (declare (not safe)) + (gx#stx-wrap-source _stx22054_ __tmp22422)))) (define gxc#xform-apply-compile-e - (lambda (_args20003_) - (lambda (_g2000420006_) - (apply gxc#compile-e _g2000420006_ _args20003_)))) + (lambda (_args22048_) + (lambda (_g2204922051_) + (apply gxc#compile-e _g2204922051_ _args22048_)))) (define gxc#xform-begin% - (lambda (_stx19962_ . _args19963_) - (let* ((_g1996519975_ - (lambda (_g1996619972_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1996619972_))) - (_g1996420000_ - (lambda (_g1996619978_) - (if (gx#stx-pair? _g1996619978_) - (let ((_e1996819980_ (gx#stx-e _g1996619978_))) - (let ((_hd1996919983_ - (let () - (declare (not safe)) - (##car _e1996819980_))) - (_tl1997019985_ - (let () - (declare (not safe)) - (##cdr _e1996819980_)))) - ((lambda (_L19988_) - (let ((_forms19998_ - (map (gxc#xform-apply-compile-e - _args19963_) - _L19988_))) - (gxc#xform-wrap-source - (cons '%#begin _forms19998_) - _stx19962_))) - _tl1997019985_))) - (_g1996519975_ _g1996619978_))))) - (_g1996420000_ _stx19962_)))) + (lambda (_stx22007_ . _args22008_) + (let* ((_g2201022020_ + (lambda (_g2201122017_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2201122017_)))) + (_g2200922045_ + (lambda (_g2201122023_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2201122023_)) + (let ((_e2201522025_ + (let () + (declare (not safe)) + (gx#stx-e _g2201122023_)))) + (let ((_hd2201422028_ + (let () + (declare (not safe)) + (##car _e2201522025_))) + (_tl2201322030_ + (let () + (declare (not safe)) + (##cdr _e2201522025_)))) + ((lambda (_L22033_) + (let* ((_forms22043_ + (let ((__tmp22423 + (let () + (declare (not safe)) + (gxc#xform-apply-compile-e + _args22008_)))) + (declare (not safe)) + (map __tmp22423 _L22033_))) + (__tmp22424 + (let () + (declare (not safe)) + (cons '%#begin _forms22043_)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp22424 _stx22007_))) + _tl2201322030_))) + (let () + (declare (not safe)) + (_g2201022020_ _g2201122023_)))))) + (declare (not safe)) + (_g2200922045_ _stx22007_)))) (define gxc#xform-begin-syntax% - (lambda (_stx19920_ . _args19921_) - (let* ((_g1992319933_ - (lambda (_g1992419930_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1992419930_))) - (_g1992219959_ - (lambda (_g1992419936_) - (if (gx#stx-pair? _g1992419936_) - (let ((_e1992619938_ (gx#stx-e _g1992419936_))) - (let ((_hd1992719941_ - (let () - (declare (not safe)) - (##car _e1992619938_))) - (_tl1992819943_ - (let () - (declare (not safe)) - (##cdr _e1992619938_)))) - ((lambda (_L19946_) - (call-with-parameters - (lambda () - (let ((_forms19957_ - (map (gxc#xform-apply-compile-e - _args19921_) - _L19946_))) - (gxc#xform-wrap-source - (cons '%#begin-syntax _forms19957_) - _stx19920_))) - gx#current-expander-phi - (fx+ (gx#current-expander-phi) '1))) - _tl1992819943_))) - (_g1992319933_ _g1992419936_))))) - (_g1992219959_ _stx19920_)))) + (lambda (_stx21965_ . _args21966_) + (let* ((_g2196821978_ + (lambda (_g2196921975_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2196921975_)))) + (_g2196722004_ + (lambda (_g2196921981_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2196921981_)) + (let ((_e2197321983_ + (let () + (declare (not safe)) + (gx#stx-e _g2196921981_)))) + (let ((_hd2197221986_ + (let () + (declare (not safe)) + (##car _e2197321983_))) + (_tl2197121988_ + (let () + (declare (not safe)) + (##cdr _e2197321983_)))) + ((lambda (_L21991_) + (let ((__tmp22427 + (lambda () + (let* ((_forms22002_ + (let ((__tmp22428 + (let () + (declare (not safe)) + (gxc#xform-apply-compile-e + _args21966_)))) + (declare (not safe)) + (map __tmp22428 _L21991_))) + (__tmp22429 + (let () + (declare (not safe)) + (cons '%#begin-syntax + _forms22002_)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp22429 + _stx21965_)))) + (__tmp22425 + (let ((__tmp22426 + (gx#current-expander-phi))) + (declare (not safe)) + (fx+ __tmp22426 '1)))) + (declare (not safe)) + (call-with-parameters + __tmp22427 + gx#current-expander-phi + __tmp22425))) + _tl2197121988_))) + (let () + (declare (not safe)) + (_g2196821978_ _g2196921981_)))))) + (declare (not safe)) + (_g2196722004_ _stx21965_)))) (define gxc#xform-module% - (lambda (_stx19857_ . _args19858_) - (let* ((_g1986019874_ - (lambda (_g1986119871_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1986119871_))) - (_g1985919917_ - (lambda (_g1986119877_) - (if (gx#stx-pair? _g1986119877_) - (let ((_e1986419879_ (gx#stx-e _g1986119877_))) - (let ((_hd1986519882_ + (lambda (_stx21902_ . _args21903_) + (let* ((_g2190521919_ + (lambda (_g2190621916_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2190621916_)))) + (_g2190421962_ + (lambda (_g2190621922_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2190621922_)) + (let ((_e2191121924_ + (let () + (declare (not safe)) + (gx#stx-e _g2190621922_)))) + (let ((_hd2191021927_ (let () (declare (not safe)) - (##car _e1986419879_))) - (_tl1986619884_ + (##car _e2191121924_))) + (_tl2190921929_ (let () (declare (not safe)) - (##cdr _e1986419879_)))) - (if (gx#stx-pair? _tl1986619884_) - (let ((_e1986719887_ (gx#stx-e _tl1986619884_))) - (let ((_hd1986819890_ + (##cdr _e2191121924_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2190921929_)) + (let ((_e2191421932_ + (let () + (declare (not safe)) + (gx#stx-e _tl2190921929_)))) + (let ((_hd2191321935_ (let () (declare (not safe)) - (##car _e1986719887_))) - (_tl1986919892_ + (##car _e2191421932_))) + (_tl2191221937_ (let () (declare (not safe)) - (##cdr _e1986719887_)))) - ((lambda (_L19895_ _L19896_) - (let* ((_ctx19909_ - (gx#syntax-local-e__0 _L19896_)) - (_code19911_ + (##cdr _e2191421932_)))) + ((lambda (_L21940_ _L21941_) + (let* ((_ctx21954_ + (let () + (declare (not safe)) + (gx#syntax-local-e__0 + _L21941_))) + (_code21956_ (##structure-ref - _ctx19909_ + _ctx21954_ '11 gx#module-context::t '#f)) - (_code19914_ - (call-with-parameters - (lambda () - (apply gxc#compile-e - _code19911_ - _args19858_)) - gx#current-expander-context - _ctx19909_))) + (_code21959_ + (let ((__tmp22430 + (lambda () + (apply gxc#compile-e + _code21956_ + _args21903_)))) + (declare (not safe)) + (call-with-parameters + __tmp22430 + gx#current-expander-context + _ctx21954_)))) (##structure-set! - _ctx19909_ - _code19914_ + _ctx21954_ + _code21959_ '11 gx#module-context::t '#f) - (gxc#xform-wrap-source - (cons '%#module - (cons _L19896_ - (cons _code19914_ '()))) - _stx19857_))) - _tl1986919892_ - _hd1986819890_))) - (_g1986019874_ _g1986119877_)))) - (_g1986019874_ _g1986119877_))))) - (_g1985919917_ _stx19857_)))) + (let ((__tmp22431 + (let ((__tmp22432 + (let ((__tmp22433 + (let () + (declare + (not safe)) + (cons _code21959_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons _L21941_ __tmp22433)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#module __tmp22432)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp22431 + _stx21902_)))) + _tl2191221937_ + _hd2191321935_))) + (let () + (declare (not safe)) + (_g2190521919_ _g2190621922_))))) + (let () + (declare (not safe)) + (_g2190521919_ _g2190621922_)))))) + (declare (not safe)) + (_g2190421962_ _stx21902_)))) (define gxc#xform-define-values% - (lambda (_stx19787_ . _args19788_) - (let* ((_g1979019807_ - (lambda (_g1979119804_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1979119804_))) - (_g1978919854_ - (lambda (_g1979119810_) - (if (gx#stx-pair? _g1979119810_) - (let ((_e1979419812_ (gx#stx-e _g1979119810_))) - (let ((_hd1979519815_ + (lambda (_stx21832_ . _args21833_) + (let* ((_g2183521852_ + (lambda (_g2183621849_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2183621849_)))) + (_g2183421899_ + (lambda (_g2183621855_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2183621855_)) + (let ((_e2184121857_ + (let () + (declare (not safe)) + (gx#stx-e _g2183621855_)))) + (let ((_hd2184021860_ (let () (declare (not safe)) - (##car _e1979419812_))) - (_tl1979619817_ + (##car _e2184121857_))) + (_tl2183921862_ (let () (declare (not safe)) - (##cdr _e1979419812_)))) - (if (gx#stx-pair? _tl1979619817_) - (let ((_e1979719820_ (gx#stx-e _tl1979619817_))) - (let ((_hd1979819823_ + (##cdr _e2184121857_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2183921862_)) + (let ((_e2184421865_ + (let () + (declare (not safe)) + (gx#stx-e _tl2183921862_)))) + (let ((_hd2184321868_ (let () (declare (not safe)) - (##car _e1979719820_))) - (_tl1979919825_ + (##car _e2184421865_))) + (_tl2184221870_ (let () (declare (not safe)) - (##cdr _e1979719820_)))) - (if (gx#stx-pair? _tl1979919825_) - (let ((_e1980019828_ - (gx#stx-e _tl1979919825_))) - (let ((_hd1980119831_ + (##cdr _e2184421865_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2184221870_)) + (let ((_e2184721873_ + (let () + (declare (not safe)) + (gx#stx-e _tl2184221870_)))) + (let ((_hd2184621876_ (let () (declare (not safe)) - (##car _e1980019828_))) - (_tl1980219833_ + (##car _e2184721873_))) + (_tl2184521878_ (let () (declare (not safe)) - (##cdr _e1980019828_)))) - (if (gx#stx-null? _tl1980219833_) - ((lambda (_L19836_ _L19837_) - (let ((_expr19852_ - (apply gxc#compile-e - _L19836_ - _args19788_))) - (gxc#xform-wrap-source - (cons '%#define-values - (cons _L19837_ - (cons _expr19852_ + (##cdr _e2184721873_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2184521878_)) + ((lambda (_L21881_ _L21882_) + (let* ((_expr21897_ + (apply gxc#compile-e + _L21881_ + _args21833_)) + (__tmp22434 + (let ((__tmp22435 + (let ((__tmp22436 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) + (let () + (declare (not safe)) + (cons _expr21897_ '())))) + (declare (not safe)) + (cons _L21882_ __tmp22436)))) + (declare (not safe)) + (cons '%#define-values __tmp22435)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx19787_))) - _hd1980119831_ - _hd1979819823_) - (_g1979019807_ _g1979119810_)))) - (_g1979019807_ _g1979119810_)))) - (_g1979019807_ _g1979119810_)))) - (_g1979019807_ _g1979119810_))))) - (_g1978919854_ _stx19787_)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp22434 + _stx21832_))) + _hd2184621876_ + _hd2184321868_) + (let () + (declare (not safe)) + (_g2183521852_ + _g2183621855_))))) + (let () + (declare (not safe)) + (_g2183521852_ _g2183621855_))))) + (let () + (declare (not safe)) + (_g2183521852_ _g2183621855_))))) + (let () + (declare (not safe)) + (_g2183521852_ _g2183621855_)))))) + (declare (not safe)) + (_g2183421899_ _stx21832_)))) (define gxc#xform-define-syntax% - (lambda (_stx19716_ . _args19717_) - (let* ((_g1971919736_ - (lambda (_g1972019733_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1972019733_))) - (_g1971819784_ - (lambda (_g1972019739_) - (if (gx#stx-pair? _g1972019739_) - (let ((_e1972319741_ (gx#stx-e _g1972019739_))) - (let ((_hd1972419744_ + (lambda (_stx21761_ . _args21762_) + (let* ((_g2176421781_ + (lambda (_g2176521778_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2176521778_)))) + (_g2176321829_ + (lambda (_g2176521784_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2176521784_)) + (let ((_e2177021786_ + (let () + (declare (not safe)) + (gx#stx-e _g2176521784_)))) + (let ((_hd2176921789_ (let () (declare (not safe)) - (##car _e1972319741_))) - (_tl1972519746_ + (##car _e2177021786_))) + (_tl2176821791_ (let () (declare (not safe)) - (##cdr _e1972319741_)))) - (if (gx#stx-pair? _tl1972519746_) - (let ((_e1972619749_ (gx#stx-e _tl1972519746_))) - (let ((_hd1972719752_ + (##cdr _e2177021786_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2176821791_)) + (let ((_e2177321794_ + (let () + (declare (not safe)) + (gx#stx-e _tl2176821791_)))) + (let ((_hd2177221797_ (let () (declare (not safe)) - (##car _e1972619749_))) - (_tl1972819754_ + (##car _e2177321794_))) + (_tl2177121799_ (let () (declare (not safe)) - (##cdr _e1972619749_)))) - (if (gx#stx-pair? _tl1972819754_) - (let ((_e1972919757_ - (gx#stx-e _tl1972819754_))) - (let ((_hd1973019760_ + (##cdr _e2177321794_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2177121799_)) + (let ((_e2177621802_ + (let () + (declare (not safe)) + (gx#stx-e _tl2177121799_)))) + (let ((_hd2177521805_ (let () (declare (not safe)) - (##car _e1972919757_))) - (_tl1973119762_ + (##car _e2177621802_))) + (_tl2177421807_ (let () (declare (not safe)) - (##cdr _e1972919757_)))) - (if (gx#stx-null? _tl1973119762_) - ((lambda (_L19765_ _L19766_) - (call-with-parameters - (lambda () - (let ((_expr19782_ - (apply gxc#compile-e + (##cdr _e2177621802_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2177421807_)) + ((lambda (_L21810_ _L21811_) + (let ((__tmp22439 + (lambda () + (let* ((_expr21827_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L19765_ - _args19717_))) - (gxc#xform-wrap-source - (cons '%#define-syntax (cons _L19766_ (cons _expr19782_ '()))) - _stx19716_))) + (apply gxc#compile-e _L21810_ _args21762_)) + (__tmp22440 + (let ((__tmp22441 + (let ((__tmp22442 + (let () + (declare (not safe)) + (cons _expr21827_ '())))) + (declare (not safe)) + (cons _L21811_ __tmp22442)))) + (declare (not safe)) + (cons '%#define-syntax __tmp22441)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp22440 _stx21761_)))) + (__tmp22437 + (let ((__tmp22438 (gx#current-expander-phi))) + (declare (not safe)) + (fx+ __tmp22438 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - gx#current-expander-phi - (fx+ (gx#current-expander-phi) - '1))) - _hd1973019760_ - _hd1972719752_) - (_g1971919736_ _g1972019739_)))) - (_g1971919736_ _g1972019739_)))) - (_g1971919736_ _g1972019739_)))) - (_g1971919736_ _g1972019739_))))) - (_g1971819784_ _stx19716_)))) + (declare (not safe)) + (call-with-parameters + __tmp22439 + gx#current-expander-phi + __tmp22437))) + _hd2177521805_ + _hd2177221797_) + (let () + (declare (not safe)) + (_g2176421781_ + _g2176521784_))))) + (let () + (declare (not safe)) + (_g2176421781_ _g2176521784_))))) + (let () + (declare (not safe)) + (_g2176421781_ _g2176521784_))))) + (let () + (declare (not safe)) + (_g2176421781_ _g2176521784_)))))) + (declare (not safe)) + (_g2176321829_ _stx21761_)))) (define gxc#xform-begin-annotation% - (lambda (_stx19646_ . _args19647_) - (let* ((_g1964919666_ - (lambda (_g1965019663_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1965019663_))) - (_g1964819713_ - (lambda (_g1965019669_) - (if (gx#stx-pair? _g1965019669_) - (let ((_e1965319671_ (gx#stx-e _g1965019669_))) - (let ((_hd1965419674_ + (lambda (_stx21691_ . _args21692_) + (let* ((_g2169421711_ + (lambda (_g2169521708_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2169521708_)))) + (_g2169321758_ + (lambda (_g2169521714_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2169521714_)) + (let ((_e2170021716_ + (let () + (declare (not safe)) + (gx#stx-e _g2169521714_)))) + (let ((_hd2169921719_ (let () (declare (not safe)) - (##car _e1965319671_))) - (_tl1965519676_ + (##car _e2170021716_))) + (_tl2169821721_ (let () (declare (not safe)) - (##cdr _e1965319671_)))) - (if (gx#stx-pair? _tl1965519676_) - (let ((_e1965619679_ (gx#stx-e _tl1965519676_))) - (let ((_hd1965719682_ + (##cdr _e2170021716_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2169821721_)) + (let ((_e2170321724_ + (let () + (declare (not safe)) + (gx#stx-e _tl2169821721_)))) + (let ((_hd2170221727_ (let () (declare (not safe)) - (##car _e1965619679_))) - (_tl1965819684_ + (##car _e2170321724_))) + (_tl2170121729_ (let () (declare (not safe)) - (##cdr _e1965619679_)))) - (if (gx#stx-pair? _tl1965819684_) - (let ((_e1965919687_ - (gx#stx-e _tl1965819684_))) - (let ((_hd1966019690_ + (##cdr _e2170321724_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2170121729_)) + (let ((_e2170621732_ + (let () + (declare (not safe)) + (gx#stx-e _tl2170121729_)))) + (let ((_hd2170521735_ (let () (declare (not safe)) - (##car _e1965919687_))) - (_tl1966119692_ + (##car _e2170621732_))) + (_tl2170421737_ (let () (declare (not safe)) - (##cdr _e1965919687_)))) - (if (gx#stx-null? _tl1966119692_) - ((lambda (_L19695_ _L19696_) - (let ((_expr19711_ - (apply gxc#compile-e - _L19695_ - _args19647_))) - (gxc#xform-wrap-source - (cons '%#begin-annotation - (cons _L19696_ - (cons _expr19711_ + (##cdr _e2170621732_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2170421737_)) + ((lambda (_L21740_ _L21741_) + (let* ((_expr21756_ + (apply gxc#compile-e + _L21740_ + _args21692_)) + (__tmp22443 + (let ((__tmp22444 + (let ((__tmp22445 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) + (let () + (declare (not safe)) + (cons _expr21756_ '())))) + (declare (not safe)) + (cons _L21741_ __tmp22445)))) + (declare (not safe)) + (cons '%#begin-annotation __tmp22444)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx19646_))) - _hd1966019690_ - _hd1965719682_) - (_g1964919666_ _g1965019669_)))) - (_g1964919666_ _g1965019669_)))) - (_g1964919666_ _g1965019669_)))) - (_g1964919666_ _g1965019669_))))) - (_g1964819713_ _stx19646_)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp22443 + _stx21691_))) + _hd2170521735_ + _hd2170221727_) + (let () + (declare (not safe)) + (_g2169421711_ + _g2169521714_))))) + (let () + (declare (not safe)) + (_g2169421711_ _g2169521714_))))) + (let () + (declare (not safe)) + (_g2169421711_ _g2169521714_))))) + (let () + (declare (not safe)) + (_g2169421711_ _g2169521714_)))))) + (declare (not safe)) + (_g2169321758_ _stx21691_)))) (define gxc#xform-lambda% - (lambda (_stx19589_ . _args19590_) - (let* ((_g1959219606_ - (lambda (_g1959319603_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1959319603_))) - (_g1959119643_ - (lambda (_g1959319609_) - (if (gx#stx-pair? _g1959319609_) - (let ((_e1959619611_ (gx#stx-e _g1959319609_))) - (let ((_hd1959719614_ + (lambda (_stx21634_ . _args21635_) + (let* ((_g2163721651_ + (lambda (_g2163821648_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2163821648_)))) + (_g2163621688_ + (lambda (_g2163821654_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2163821654_)) + (let ((_e2164321656_ + (let () + (declare (not safe)) + (gx#stx-e _g2163821654_)))) + (let ((_hd2164221659_ (let () (declare (not safe)) - (##car _e1959619611_))) - (_tl1959819616_ + (##car _e2164321656_))) + (_tl2164121661_ (let () (declare (not safe)) - (##cdr _e1959619611_)))) - (if (gx#stx-pair? _tl1959819616_) - (let ((_e1959919619_ (gx#stx-e _tl1959819616_))) - (let ((_hd1960019622_ + (##cdr _e2164321656_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2164121661_)) + (let ((_e2164621664_ + (let () + (declare (not safe)) + (gx#stx-e _tl2164121661_)))) + (let ((_hd2164521667_ (let () (declare (not safe)) - (##car _e1959919619_))) - (_tl1960119624_ + (##car _e2164621664_))) + (_tl2164421669_ (let () (declare (not safe)) - (##cdr _e1959919619_)))) - ((lambda (_L19627_ _L19628_) - (let ((_body19641_ - (map (gxc#xform-apply-compile-e - _args19590_) - _L19627_))) + (##cdr _e2164621664_)))) + ((lambda (_L21672_ _L21673_) + (let* ((_body21686_ + (let ((__tmp22446 + (let () + (declare (not safe)) + (gxc#xform-apply-compile-e + _args21635_)))) + (declare (not safe)) + (map __tmp22446 _L21672_))) + (__tmp22447 + (let ((__tmp22448 + (let () + (declare (not safe)) + (cons _L21673_ + _body21686_)))) + (declare (not safe)) + (cons '%#lambda __tmp22448)))) + (declare (not safe)) (gxc#xform-wrap-source - (cons '%#lambda - (cons _L19628_ _body19641_)) - _stx19589_))) - _tl1960119624_ - _hd1960019622_))) - (_g1959219606_ _g1959319609_)))) - (_g1959219606_ _g1959319609_))))) - (_g1959119643_ _stx19589_)))) + __tmp22447 + _stx21634_))) + _tl2164421669_ + _hd2164521667_))) + (let () + (declare (not safe)) + (_g2163721651_ _g2163821654_))))) + (let () + (declare (not safe)) + (_g2163721651_ _g2163821654_)))))) + (declare (not safe)) + (_g2163621688_ _stx21634_)))) (define gxc#xform-case-lambda% - (lambda (_stx19502_ . _args19503_) - (letrec ((_clause-e19505_ - (lambda (_clause19546_) - (let* ((_g1954819559_ - (lambda (_g1954919556_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g1954919556_))) - (_g1954719586_ - (lambda (_g1954919562_) - (if (gx#stx-pair? _g1954919562_) - (let ((_e1955219564_ - (gx#stx-e _g1954919562_))) - (let ((_hd1955319567_ + (lambda (_stx21547_ . _args21548_) + (letrec ((_clause-e21550_ + (lambda (_clause21591_) + (let* ((_g2159321604_ + (lambda (_g2159421601_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2159421601_)))) + (_g2159221631_ + (lambda (_g2159421607_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2159421607_)) + (let ((_e2159921609_ + (let () + (declare (not safe)) + (gx#stx-e _g2159421607_)))) + (let ((_hd2159821612_ (let () (declare (not safe)) - (##car _e1955219564_))) - (_tl1955419569_ + (##car _e2159921609_))) + (_tl2159721614_ (let () (declare (not safe)) - (##cdr _e1955219564_)))) - ((lambda (_L19572_ _L19573_) - (let ((_body19584_ - (map (gxc#xform-apply-compile-e - _args19503_) - _L19572_))) - (cons _L19573_ _body19584_))) - _tl1955419569_ - _hd1955319567_))) - (_g1954819559_ _g1954919562_))))) - (_g1954719586_ _clause19546_))))) - (let* ((_g1950719517_ - (lambda (_g1950819514_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1950819514_))) - (_g1950619543_ - (lambda (_g1950819520_) - (if (gx#stx-pair? _g1950819520_) - (let ((_e1951019522_ (gx#stx-e _g1950819520_))) - (let ((_hd1951119525_ + (##cdr _e2159921609_)))) + ((lambda (_L21617_ _L21618_) + (let ((_body21629_ + (let ((__tmp22449 + (let () + (declare (not safe)) + (gxc#xform-apply-compile-e + _args21548_)))) + (declare (not safe)) + (map __tmp22449 _L21617_)))) + (declare (not safe)) + (cons _L21618_ _body21629_))) + _tl2159721614_ + _hd2159821612_))) + (let () + (declare (not safe)) + (_g2159321604_ _g2159421607_)))))) + (declare (not safe)) + (_g2159221631_ _clause21591_))))) + (let* ((_g2155221562_ + (lambda (_g2155321559_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2155321559_)))) + (_g2155121588_ + (lambda (_g2155321565_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2155321565_)) + (let ((_e2155721567_ + (let () + (declare (not safe)) + (gx#stx-e _g2155321565_)))) + (let ((_hd2155621570_ (let () (declare (not safe)) - (##car _e1951019522_))) - (_tl1951219527_ + (##car _e2155721567_))) + (_tl2155521572_ (let () (declare (not safe)) - (##cdr _e1951019522_)))) - ((lambda (_L19530_) - (let ((_clauses19541_ - (map _clause-e19505_ _L19530_))) + (##cdr _e2155721567_)))) + ((lambda (_L21575_) + (let* ((_clauses21586_ + (let () + (declare (not safe)) + (map _clause-e21550_ _L21575_))) + (__tmp22450 + (let () + (declare (not safe)) + (cons '%#case-lambda + _clauses21586_)))) + (declare (not safe)) (gxc#xform-wrap-source - (cons '%#case-lambda _clauses19541_) - _stx19502_))) - _tl1951219527_))) - (_g1950719517_ _g1950819520_))))) - (_g1950619543_ _stx19502_))))) + __tmp22450 + _stx21547_))) + _tl2155521572_))) + (let () + (declare (not safe)) + (_g2155221562_ _g2155321565_)))))) + (declare (not safe)) + (_g2155121588_ _stx21547_))))) (define gxc#xform-let-values% - (lambda (_stx19296_ . _args19297_) - (let* ((_g1929919332_ - (lambda (_g1930019329_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1930019329_))) - (_g1929819499_ - (lambda (_g1930019335_) - (if (gx#stx-pair? _g1930019335_) - (let ((_e1930519337_ (gx#stx-e _g1930019335_))) - (let ((_hd1930619340_ + (lambda (_stx21341_ . _args21342_) + (let* ((_g2134421377_ + (lambda (_g2134521374_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2134521374_)))) + (_g2134321544_ + (lambda (_g2134521380_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2134521380_)) + (let ((_e2135221382_ + (let () + (declare (not safe)) + (gx#stx-e _g2134521380_)))) + (let ((_hd2135121385_ (let () (declare (not safe)) - (##car _e1930519337_))) - (_tl1930719342_ + (##car _e2135221382_))) + (_tl2135021387_ (let () (declare (not safe)) - (##cdr _e1930519337_)))) - (if (gx#stx-pair? _tl1930719342_) - (let ((_e1930819345_ (gx#stx-e _tl1930719342_))) - (let ((_hd1930919348_ + (##cdr _e2135221382_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2135021387_)) + (let ((_e2135521390_ + (let () + (declare (not safe)) + (gx#stx-e _tl2135021387_)))) + (let ((_hd2135421393_ (let () (declare (not safe)) - (##car _e1930819345_))) - (_tl1931019350_ + (##car _e2135521390_))) + (_tl2135321395_ (let () (declare (not safe)) - (##cdr _e1930819345_)))) - (if (gx#stx-pair/null? _hd1930919348_) - (let ((_g20342_ - (gx#syntax-split-splice - _hd1930919348_ - '0))) + (##cdr _e2135521390_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd2135421393_)) + (let ((_g22451_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd2135421393_ + '0)))) (begin - (let ((_g20343_ + (let ((_g22452_ (let () (declare (not safe)) - (if (##values? _g20342_) + (if (##values? _g22451_) (##vector-length - _g20342_) + _g22451_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20343_ 2))) + (##fx= _g22452_ 2))) (error "Context expects 2 values" - _g20343_))) - (let ((_target1931119353_ + _g22452_))) + (let ((_target2135621398_ (let () (declare (not safe)) - (##vector-ref _g20342_ 0))) - (_tl1931319355_ + (##vector-ref _g22451_ 0))) + (_tl2135821400_ (let () (declare (not safe)) - (##vector-ref _g20342_ 1)))) - (if (gx#stx-null? _tl1931319355_) - (letrec ((_loop1931419358_ - (lambda (_hd1931219361_ + (##vector-ref _g22451_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2135821400_)) + (letrec ((_loop2135921403_ + (lambda (_hd2135721406_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr1931819363_ - _hd1931919365_) - (if (gx#stx-pair? _hd1931219361_) - (let ((_e1931519368_ (gx#stx-e _hd1931219361_))) - (let ((_lp-hd1931619371_ + _expr2136321408_ + _hd2136421410_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2135721406_)) + (let ((_e2136021413_ + (let () + (declare (not safe)) + (gx#stx-e _hd2135721406_)))) + (let ((_lp-hd2136121416_ (let () (declare (not safe)) - (##car _e1931519368_))) - (_lp-tl1931719373_ + (##car _e2136021413_))) + (_lp-tl2136221418_ (let () (declare (not safe)) - (##cdr _e1931519368_)))) - (if (gx#stx-pair? _lp-hd1931619371_) - (let ((_e1932219376_ - (gx#stx-e _lp-hd1931619371_))) - (let ((_hd1932319379_ + (##cdr _e2136021413_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd2136121416_)) + (let ((_e2136921421_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd2136121416_)))) + (let ((_hd2136821424_ (let () (declare (not safe)) - (##car _e1932219376_))) - (_tl1932419381_ + (##car _e2136921421_))) + (_tl2136721426_ (let () (declare (not safe)) - (##cdr _e1932219376_)))) - (if (gx#stx-pair? _tl1932419381_) - (let ((_e1932519384_ - (gx#stx-e _tl1932419381_))) - (let ((_hd1932619387_ + (##cdr _e2136921421_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2136721426_)) + (let ((_e2137221429_ + (let () + (declare (not safe)) + (gx#stx-e _tl2136721426_)))) + (let ((_hd2137121432_ (let () (declare (not safe)) - (##car _e1932519384_))) - (_tl1932719389_ + (##car _e2137221429_))) + (_tl2137021434_ (let () (declare (not safe)) - (##cdr _e1932519384_)))) - (if (gx#stx-null? _tl1932719389_) - (_loop1931419358_ - _lp-tl1931719373_ - (cons _hd1932619387_ - _expr1931819363_) - (cons _hd1932319379_ - _hd1931919365_)) - (_g1929919332_ - _g1930019335_)))) - (_g1929919332_ _g1930019335_)))) - (_g1929919332_ _g1930019335_)))) - (let ((_expr1932019392_ (reverse _expr1931819363_)) - (_hd1932119394_ (reverse _hd1931919365_))) - ((lambda (_L19397_ _L19398_ _L19399_ _L19400_) - (let* ((_g1941919435_ - (lambda (_g1942019432_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g1942019432_))) - (_g1941819489_ - (lambda (_g1942019438_) - (if (gx#stx-pair/null? _g1942019438_) - (let ((_g20344_ - (gx#syntax-split-splice - _g1942019438_ - '0))) + (##cdr _e2137221429_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2137021434_)) + (let ((__tmp22468 + (let () + (declare (not safe)) + (cons _hd2137121432_ + _expr2136321408_))) + (__tmp22467 + (let () + (declare (not safe)) + (cons _hd2136821424_ + _hd2136421410_)))) + (declare (not safe)) + (_loop2135921403_ + _lp-tl2136221418_ + __tmp22468 + __tmp22467)) + (let () + (declare (not safe)) + (_g2134421377_ + _g2134521380_))))) + (let () + (declare (not safe)) + (_g2134421377_ _g2134521380_))))) + (let () + (declare (not safe)) + (_g2134421377_ _g2134521380_))))) + (let ((_expr2136521437_ + (let () + (declare (not safe)) + (reverse _expr2136321408_))) + (_hd2136621439_ + (let () + (declare (not safe)) + (reverse _hd2136421410_)))) + ((lambda (_L21442_ _L21443_ _L21444_ _L21445_) + (let* ((_g2146421480_ + (lambda (_g2146521477_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2146521477_)))) + (_g2146321534_ + (lambda (_g2146521483_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _g2146521483_)) + (let ((_g22453_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _g2146521483_ + '0)))) (begin - (let ((_g20345_ + (let ((_g22454_ (let () (declare (not safe)) (if (##values? - _g20344_) + _g22453_) (##vector-length - _g20344_) + _g22453_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20345_ + (##fx= _g22454_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g20345_))) - (let ((_target1942219440_ + _g22454_))) + (let ((_target2146721485_ (let () (declare (not safe)) (##vector-ref - _g20344_ + _g22453_ 0))) - (_tl1942419442_ + (_tl2146921487_ (let () (declare (not safe)) (##vector-ref - _g20344_ + _g22453_ 1)))) - (if (gx#stx-null? - _tl1942419442_) - (letrec ((_loop1942519445_ - (lambda (_hd1942319448_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2146921487_)) + (letrec ((_loop2147021490_ + (lambda (_hd2146821493_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr1942919450_) - (if (gx#stx-pair? _hd1942319448_) - (let ((_e1942619453_ - (gx#syntax-e _hd1942319448_))) - (let ((_lp-hd1942719456_ + _expr2147421495_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2146821493_)) + (let ((_e2147121498_ + (let () + (declare (not safe)) + (gx#syntax-e _hd2146821493_)))) + (let ((_lp-hd2147221501_ (let () (declare (not safe)) - (##car _e1942619453_))) - (_lp-tl1942819458_ + (##car _e2147121498_))) + (_lp-tl2147321503_ (let () (declare (not safe)) - (##cdr _e1942619453_)))) - (_loop1942519445_ - _lp-tl1942819458_ - (cons _lp-hd1942719456_ _expr1942919450_)))) - (let ((_expr1943019461_ - (reverse _expr1942919450_))) - ((lambda (_L19464_) + (##cdr _e2147121498_)))) + (let ((__tmp22462 + (let () + (declare (not safe)) + (cons _lp-hd2147221501_ + _expr2147421495_)))) + (declare (not safe)) + (_loop2147021490_ + _lp-tl2147321503_ + __tmp22462)))) + (let ((_expr2147521506_ + (let () + (declare (not safe)) + (reverse _expr2147421495_)))) + ((lambda (_L21509_) (let () - (let ((_body19477_ - (map (gxc#xform-apply-compile-e - _args19297_) - _L19397_))) - (gxc#xform-wrap-source - (cons _L19400_ - (cons (begin - (gx#syntax-check-splice-targets - _L19464_ - _L19399_) - (foldr2 (lambda (_g1947819482_ + (let* ((_body21522_ + (let ((__tmp22455 + (let () + (declare (not safe)) + (gxc#xform-apply-compile-e + _args21342_)))) + (declare (not safe)) + (map __tmp22455 _L21442_))) + (__tmp22456 + (let ((__tmp22457 + (let ((__tmp22458 + (begin + (let () + (declare + (not safe)) + (gx#syntax-check-splice-targets + _L21509_ + _L21444_)) + (let ((__tmp22459 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1947919484_ - _g1948019486_) - (cons (cons _g1947919484_ (cons _g1947819482_ '())) - _g1948019486_)) - '() - _L19464_ - _L19399_)) + (lambda (_g2152321527_ _g2152421529_ _g2152521531_) + (let ((__tmp22460 + (let ((__tmp22461 + (let () + (declare (not safe)) + (cons _g2152321527_ '())))) + (declare (not safe)) + (cons _g2152421529_ __tmp22461)))) + (declare (not safe)) + (cons __tmp22460 _g2152521531_))))) + (declare (not safe)) + (foldr2 __tmp22459 '() _L21509_ _L21444_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _body19477_)) - _stx19296_)))) - _expr1943019461_)))))) - (_loop1942519445_ _target1942219440_ '())) + (declare (not safe)) + (cons __tmp22458 + _body21522_)))) + (declare (not safe)) + (cons _L21445_ __tmp22457)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp22456 + _stx21341_)))) + _expr2147521506_)))))) + (let () + (declare (not safe)) + (_loop2147021490_ _target2146721485_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1941919435_ - _g1942019438_))))) - (_g1941919435_ _g1942019438_))))) - (_g1941819489_ - (map (gxc#xform-apply-compile-e _args19297_) - (foldr1 (lambda (_g1949119494_ - _g1949219496_) - (cons _g1949119494_ - _g1949219496_)) - '() - _L19398_))))) - _tl1931019350_ - _expr1932019392_ - _hd1932119394_ - _hd1930619340_)))))) + (let () + (declare (not safe)) + (_g2146421480_ + _g2146521483_)))))) + (let () + (declare (not safe)) + (_g2146421480_ _g2146521483_))))) + (__tmp22463 + (let ((__tmp22466 + (let () + (declare (not safe)) + (gxc#xform-apply-compile-e + _args21342_))) + (__tmp22464 + (let ((__tmp22465 + (lambda (_g2153621539_ + _g2153721541_) + (let () + (declare (not safe)) + (cons _g2153621539_ + _g2153721541_))))) + (declare (not safe)) + (foldr1 __tmp22465 + '() + _L21443_)))) + (declare (not safe)) + (map __tmp22466 __tmp22464)))) + (declare (not safe)) + (_g2146321534_ __tmp22463))) + _tl2135321395_ + _expr2136521437_ + _hd2136621439_ + _hd2135121385_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1931419358_ - _target1931119353_ - '() - '())) - (_g1929919332_ - _g1930019335_))))) - (_g1929919332_ _g1930019335_)))) - (_g1929919332_ _g1930019335_)))) - (_g1929919332_ _g1930019335_))))) - (_g1929819499_ _stx19296_)))) + (let () + (declare (not safe)) + (_loop2135921403_ + _target2135621398_ + '() + '()))) + (let () + (declare (not safe)) + (_g2134421377_ + _g2134521380_)))))) + (let () + (declare (not safe)) + (_g2134421377_ _g2134521380_))))) + (let () + (declare (not safe)) + (_g2134421377_ _g2134521380_))))) + (let () + (declare (not safe)) + (_g2134421377_ _g2134521380_)))))) + (declare (not safe)) + (_g2134321544_ _stx21341_)))) (define gxc#xform-operands - (lambda (_stx19252_ . _args19253_) - (let* ((_g1925519266_ - (lambda (_g1925619263_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1925619263_))) - (_g1925419293_ - (lambda (_g1925619269_) - (if (gx#stx-pair? _g1925619269_) - (let ((_e1925919271_ (gx#stx-e _g1925619269_))) - (let ((_hd1926019274_ - (let () - (declare (not safe)) - (##car _e1925919271_))) - (_tl1926119276_ - (let () - (declare (not safe)) - (##cdr _e1925919271_)))) - ((lambda (_L19279_ _L19280_) - (let ((_rands19291_ - (map (gxc#xform-apply-compile-e - _args19253_) - _L19279_))) - (gxc#xform-wrap-source - (cons _L19280_ _rands19291_) - _stx19252_))) - _tl1926119276_ - _hd1926019274_))) - (_g1925519266_ _g1925619269_))))) - (_g1925419293_ _stx19252_)))) + (lambda (_stx21297_ . _args21298_) + (let* ((_g2130021311_ + (lambda (_g2130121308_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2130121308_)))) + (_g2129921338_ + (lambda (_g2130121314_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2130121314_)) + (let ((_e2130621316_ + (let () + (declare (not safe)) + (gx#stx-e _g2130121314_)))) + (let ((_hd2130521319_ + (let () + (declare (not safe)) + (##car _e2130621316_))) + (_tl2130421321_ + (let () + (declare (not safe)) + (##cdr _e2130621316_)))) + ((lambda (_L21324_ _L21325_) + (let* ((_rands21336_ + (let ((__tmp22469 + (let () + (declare (not safe)) + (gxc#xform-apply-compile-e + _args21298_)))) + (declare (not safe)) + (map __tmp22469 _L21324_))) + (__tmp22470 + (let () + (declare (not safe)) + (cons _L21325_ _rands21336_)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp22470 _stx21297_))) + _tl2130421321_ + _hd2130521319_))) + (let () + (declare (not safe)) + (_g2130021311_ _g2130121314_)))))) + (declare (not safe)) + (_g2129921338_ _stx21297_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_stx19182_ . _args19183_) - (let* ((_g1918519202_ - (lambda (_g1918619199_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1918619199_))) - (_g1918419249_ - (lambda (_g1918619205_) - (if (gx#stx-pair? _g1918619205_) - (let ((_e1918919207_ (gx#stx-e _g1918619205_))) - (let ((_hd1919019210_ + (lambda (_stx21227_ . _args21228_) + (let* ((_g2123021247_ + (lambda (_g2123121244_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2123121244_)))) + (_g2122921294_ + (lambda (_g2123121250_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2123121250_)) + (let ((_e2123621252_ + (let () + (declare (not safe)) + (gx#stx-e _g2123121250_)))) + (let ((_hd2123521255_ (let () (declare (not safe)) - (##car _e1918919207_))) - (_tl1919119212_ + (##car _e2123621252_))) + (_tl2123421257_ (let () (declare (not safe)) - (##cdr _e1918919207_)))) - (if (gx#stx-pair? _tl1919119212_) - (let ((_e1919219215_ (gx#stx-e _tl1919119212_))) - (let ((_hd1919319218_ + (##cdr _e2123621252_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2123421257_)) + (let ((_e2123921260_ + (let () + (declare (not safe)) + (gx#stx-e _tl2123421257_)))) + (let ((_hd2123821263_ (let () (declare (not safe)) - (##car _e1919219215_))) - (_tl1919419220_ + (##car _e2123921260_))) + (_tl2123721265_ (let () (declare (not safe)) - (##cdr _e1919219215_)))) - (if (gx#stx-pair? _tl1919419220_) - (let ((_e1919519223_ - (gx#stx-e _tl1919419220_))) - (let ((_hd1919619226_ + (##cdr _e2123921260_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2123721265_)) + (let ((_e2124221268_ + (let () + (declare (not safe)) + (gx#stx-e _tl2123721265_)))) + (let ((_hd2124121271_ (let () (declare (not safe)) - (##car _e1919519223_))) - (_tl1919719228_ + (##car _e2124221268_))) + (_tl2124021273_ (let () (declare (not safe)) - (##cdr _e1919519223_)))) - (if (gx#stx-null? _tl1919719228_) - ((lambda (_L19231_ _L19232_) - (let ((_expr19247_ - (apply gxc#compile-e - _L19231_ - _args19183_))) - (gxc#xform-wrap-source - (cons '%#set! - (cons _L19232_ - (cons _expr19247_ + (##cdr _e2124221268_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2124021273_)) + ((lambda (_L21276_ _L21277_) + (let* ((_expr21292_ + (apply gxc#compile-e + _L21276_ + _args21228_)) + (__tmp22471 + (let ((__tmp22472 + (let ((__tmp22473 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) + (let () + (declare (not safe)) + (cons _expr21292_ '())))) + (declare (not safe)) + (cons _L21277_ __tmp22473)))) + (declare (not safe)) + (cons '%#set! __tmp22472)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx19182_))) - _hd1919619226_ - _hd1919319218_) - (_g1918519202_ _g1918619205_)))) - (_g1918519202_ _g1918619205_)))) - (_g1918519202_ _g1918619205_)))) - (_g1918519202_ _g1918619205_))))) - (_g1918419249_ _stx19182_)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp22471 + _stx21227_))) + _hd2124121271_ + _hd2123821263_) + (let () + (declare (not safe)) + (_g2123021247_ + _g2123121250_))))) + (let () + (declare (not safe)) + (_g2123021247_ _g2123121250_))))) + (let () + (declare (not safe)) + (_g2123021247_ _g2123121250_))))) + (let () + (declare (not safe)) + (_g2123021247_ _g2123121250_)))))) + (declare (not safe)) + (_g2122921294_ _stx21227_)))) (define gxc#collect-mutators-setq% - (lambda (_stx19113_) - (let* ((_g1911519132_ - (lambda (_g1911619129_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1911619129_))) - (_g1911419179_ - (lambda (_g1911619135_) - (if (gx#stx-pair? _g1911619135_) - (let ((_e1911919137_ (gx#stx-e _g1911619135_))) - (let ((_hd1912019140_ + (lambda (_stx21158_) + (let* ((_g2116021177_ + (lambda (_g2116121174_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2116121174_)))) + (_g2115921224_ + (lambda (_g2116121180_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2116121180_)) + (let ((_e2116621182_ + (let () + (declare (not safe)) + (gx#stx-e _g2116121180_)))) + (let ((_hd2116521185_ (let () (declare (not safe)) - (##car _e1911919137_))) - (_tl1912119142_ + (##car _e2116621182_))) + (_tl2116421187_ (let () (declare (not safe)) - (##cdr _e1911919137_)))) - (if (gx#stx-pair? _tl1912119142_) - (let ((_e1912219145_ (gx#stx-e _tl1912119142_))) - (let ((_hd1912319148_ + (##cdr _e2116621182_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2116421187_)) + (let ((_e2116921190_ + (let () + (declare (not safe)) + (gx#stx-e _tl2116421187_)))) + (let ((_hd2116821193_ (let () (declare (not safe)) - (##car _e1912219145_))) - (_tl1912419150_ + (##car _e2116921190_))) + (_tl2116721195_ (let () (declare (not safe)) - (##cdr _e1912219145_)))) - (if (gx#stx-pair? _tl1912419150_) - (let ((_e1912519153_ - (gx#stx-e _tl1912419150_))) - (let ((_hd1912619156_ + (##cdr _e2116921190_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2116721195_)) + (let ((_e2117221198_ + (let () + (declare (not safe)) + (gx#stx-e _tl2116721195_)))) + (let ((_hd2117121201_ (let () (declare (not safe)) - (##car _e1912519153_))) - (_tl1912719158_ + (##car _e2117221198_))) + (_tl2117021203_ (let () (declare (not safe)) - (##cdr _e1912519153_)))) - (if (gx#stx-null? _tl1912719158_) - ((lambda (_L19161_ _L19162_) - (let ((_sym19177_ - (gxc#identifier-symbol - _L19162_))) - (gxc#verbose - '"collect mutator " - _sym19177_) - (table-set! - (gxc#current-compile-mutators) - _sym19177_ - '#t) - (gxc#compile-e _L19161_))) - _hd1912619156_ - _hd1912319148_) - (_g1911519132_ _g1911619135_)))) - (_g1911519132_ _g1911619135_)))) - (_g1911519132_ _g1911619135_)))) - (_g1911519132_ _g1911619135_))))) - (_g1911419179_ _stx19113_)))) + (##cdr _e2117221198_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2117021203_)) + ((lambda (_L21206_ _L21207_) + (let ((_sym21222_ + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L21207_)))) + (let () + (declare (not safe)) + (gxc#verbose + '"collect mutator " + _sym21222_)) + (let ((__tmp22474 + (gxc#current-compile-mutators))) + (declare (not safe)) + (table-set! + __tmp22474 + _sym21222_ + '#t)) + (let () + (declare (not safe)) + (gxc#compile-e + _L21206_)))) + _hd2117121201_ + _hd2116821193_) + (let () + (declare (not safe)) + (_g2116021177_ + _g2116121180_))))) + (let () + (declare (not safe)) + (_g2116021177_ _g2116121180_))))) + (let () + (declare (not safe)) + (_g2116021177_ _g2116121180_))))) + (let () + (declare (not safe)) + (_g2116021177_ _g2116121180_)))))) + (declare (not safe)) + (_g2115921224_ _stx21158_)))) (define gxc#collect-methods-call% - (lambda (_stx18667_) - (let* ((___stx2009920100_ _stx18667_) - (_g1867118773_ + (lambda (_stx20712_) + (let* ((___stx2214422145_ _stx20712_) + (_g2071620818_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx2009920100_)))) - (let ((___kont2010120102_ - (lambda (_L19063_ _L19064_ _L19065_ _L19066_ _L19067_) - (gxc#optimizer-top-level-method! - (gxc#identifier-symbol _L19064_)))) - (___kont2010320104_ - (lambda (_L18889_ _L18890_ _L18891_ _L18892_) - (gxc#optimizer-top-level-method! - (gxc#identifier-symbol _L18889_)))) - (___kont2010520106_ (lambda () '#!void))) - (let ((___match2023420235_ - (lambda (_e1867818935_ - _hd1867918938_ - _tl1868018940_ - _e1868118943_ - _hd1868218946_ - _tl1868318948_ - _e1868418951_ - _hd1868518954_ - _tl1868618956_ - _e1868718959_ - _hd1868818962_ - _tl1868918964_ - _e1869018967_ - _hd1869118970_ - _tl1869218972_ - _e1869318975_ - _hd1869418978_ - _tl1869518980_ - _e1869618983_ - _hd1869718986_ - _tl1869818988_ - _e1869918991_ - _hd1870018994_ - _tl1870118996_ - _e1870218999_ - _hd1870319002_ - _tl1870419004_ - _e1870519007_ - _hd1870619010_ - _tl1870719012_ - _e1870819015_ - _hd1870919018_ - _tl1871019020_ - _e1871119023_ - _hd1871219026_ - _tl1871319028_ - _e1871419031_ - _hd1871519034_ - _tl1871619036_ - _e1871719039_ - _hd1871819042_ - _tl1871919044_ - _e1872019047_ - _hd1872119050_ - _tl1872219052_ - _e1872319055_ - _hd1872419058_ - _tl1872519060_) - (let ((_L19063_ _hd1872419058_) - (_L19064_ _hd1871519034_) - (_L19065_ _hd1870619010_) - (_L19066_ _hd1869718986_) - (_L19067_ _hd1868818962_)) - (if (gxc#runtime-identifier=? _L19067_ 'bind-method!) - (___kont2010120102_ - _L19063_ - _L19064_ - _L19065_ - _L19066_ - _L19067_) - (___kont2010520106_)))))) - (if (gx#stx-pair? ___stx2009920100_) - (let ((_e1867818935_ (gx#stx-e ___stx2009920100_))) - (let ((_tl1868018940_ - (let () (declare (not safe)) (##cdr _e1867818935_))) - (_hd1867918938_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx2214422145_))))) + (let ((___kont2214622147_ + (lambda (_L21108_ _L21109_ _L21110_ _L21111_ _L21112_) + (let ((__tmp22475 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L21109_)))) + (declare (not safe)) + (gxc#optimizer-top-level-method! __tmp22475)))) + (___kont2214822149_ + (lambda (_L20934_ _L20935_ _L20936_ _L20937_) + (let ((__tmp22476 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L20934_)))) + (declare (not safe)) + (gxc#optimizer-top-level-method! __tmp22476)))) + (___kont2215022151_ (lambda () '#!void))) + (let ((___match2227922280_ + (lambda (_e2072520980_ + _hd2072420983_ + _tl2072320985_ + _e2072820988_ + _hd2072720991_ + _tl2072620993_ + _e2073120996_ + _hd2073020999_ + _tl2072921001_ + _e2073421004_ + _hd2073321007_ + _tl2073221009_ + _e2073721012_ + _hd2073621015_ + _tl2073521017_ + _e2074021020_ + _hd2073921023_ + _tl2073821025_ + _e2074321028_ + _hd2074221031_ + _tl2074121033_ + _e2074621036_ + _hd2074521039_ + _tl2074421041_ + _e2074921044_ + _hd2074821047_ + _tl2074721049_ + _e2075221052_ + _hd2075121055_ + _tl2075021057_ + _e2075521060_ + _hd2075421063_ + _tl2075321065_ + _e2075821068_ + _hd2075721071_ + _tl2075621073_ + _e2076121076_ + _hd2076021079_ + _tl2075921081_ + _e2076421084_ + _hd2076321087_ + _tl2076221089_ + _e2076721092_ + _hd2076621095_ + _tl2076521097_ + _e2077021100_ + _hd2076921103_ + _tl2076821105_) + (let ((_L21108_ _hd2076921103_) + (_L21109_ _hd2076021079_) + (_L21110_ _hd2075121055_) + (_L21111_ _hd2074221031_) + (_L21112_ _hd2073321007_)) + (if (let () + (declare (not safe)) + (gxc#runtime-identifier=? _L21112_ 'bind-method!)) + (___kont2214622147_ + _L21108_ + _L21109_ + _L21110_ + _L21111_ + _L21112_) + (___kont2215022151_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx2214422145_)) + (let ((_e2072520980_ + (let () + (declare (not safe)) + (gx#stx-e ___stx2214422145_)))) + (let ((_tl2072320985_ + (let () (declare (not safe)) (##cdr _e2072520980_))) + (_hd2072420983_ (let () (declare (not safe)) - (##car _e1867818935_)))) - (if (gx#stx-pair? _tl1868018940_) - (let ((_e1868118943_ (gx#stx-e _tl1868018940_))) - (let ((_tl1868318948_ + (##car _e2072520980_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2072320985_)) + (let ((_e2072820988_ + (let () + (declare (not safe)) + (gx#stx-e _tl2072320985_)))) + (let ((_tl2072620993_ (let () (declare (not safe)) - (##cdr _e1868118943_))) - (_hd1868218946_ + (##cdr _e2072820988_))) + (_hd2072720991_ (let () (declare (not safe)) - (##car _e1868118943_)))) - (if (gx#stx-pair? _hd1868218946_) - (let ((_e1868418951_ - (gx#stx-e _hd1868218946_))) - (let ((_tl1868618956_ + (##car _e2072820988_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2072720991_)) + (let ((_e2073120996_ + (let () + (declare (not safe)) + (gx#stx-e _hd2072720991_)))) + (let ((_tl2072921001_ (let () (declare (not safe)) - (##cdr _e1868418951_))) - (_hd1868518954_ + (##cdr _e2073120996_))) + (_hd2073020999_ (let () (declare (not safe)) - (##car _e1868418951_)))) - (if (gx#identifier? _hd1868518954_) - (if (gx#stx-eq? - '%#ref - _hd1868518954_) - (if (gx#stx-pair? _tl1868618956_) - (let ((_e1868718959_ - (gx#stx-e - _tl1868618956_))) - (let ((_tl1868918964_ + (##car _e2073120996_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2073020999_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd2073020999_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2072921001_)) + (let ((_e2073421004_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2072921001_)))) + (let ((_tl2073221009_ (let () (declare (not safe)) - (##cdr _e1868718959_))) - (_hd1868818962_ + (##cdr _e2073421004_))) + (_hd2073321007_ (let () (declare (not safe)) - (##car _e1868718959_)))) - (if (gx#stx-null? - _tl1868918964_) - (if (gx#stx-pair? - _tl1868318948_) - (let ((_e1869018967_ + (##car _e2073421004_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2073221009_)) + (if (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1868318948_))) - (let ((_tl1869218972_ + (not safe)) + (gx#stx-pair? _tl2072620993_)) + (let ((_e2073721012_ + (let () + (declare (not safe)) + (gx#stx-e _tl2072620993_)))) + (let ((_tl2073521017_ (let () (declare (not safe)) - (##cdr _e1869018967_))) - (_hd1869118970_ + (##cdr _e2073721012_))) + (_hd2073621015_ (let () (declare (not safe)) - (##car _e1869018967_)))) - (if (gx#stx-pair? _hd1869118970_) - (let ((_e1869318975_ (gx#stx-e _hd1869118970_))) - (let ((_tl1869518980_ + (##car _e2073721012_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2073621015_)) + (let ((_e2074021020_ + (let () + (declare (not safe)) + (gx#stx-e _hd2073621015_)))) + (let ((_tl2073821025_ (let () (declare (not safe)) - (##cdr _e1869318975_))) - (_hd1869418978_ + (##cdr _e2074021020_))) + (_hd2073921023_ (let () (declare (not safe)) - (##car _e1869318975_)))) - (if (gx#identifier? _hd1869418978_) - (if (gx#stx-eq? '%#ref _hd1869418978_) - (if (gx#stx-pair? _tl1869518980_) - (let ((_e1869618983_ - (gx#stx-e - _tl1869518980_))) - (let ((_tl1869818988_ + (##car _e2074021020_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2073921023_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2073921023_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2073821025_)) + (let ((_e2074321028_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2073821025_)))) + (let ((_tl2074121033_ (let () (declare (not safe)) - (##cdr _e1869618983_))) - (_hd1869718986_ + (##cdr _e2074321028_))) + (_hd2074221031_ (let () (declare (not safe)) - (##car _e1869618983_)))) - (if (gx#stx-null? - _tl1869818988_) - (if (gx#stx-pair? - _tl1869218972_) - (let ((_e1869918991_ + (##car _e2074321028_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2074121033_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl2073521017_)) + (let ((_e2074621036_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1869218972_))) - (let ((_tl1870118996_ - (let () (declare (not safe)) (##cdr _e1869918991_))) - (_hd1870018994_ + (let () + (declare (not safe)) + (gx#stx-e _tl2073521017_)))) + (let ((_tl2074421041_ + (let () (declare (not safe)) (##cdr _e2074621036_))) + (_hd2074521039_ (let () (declare (not safe)) - (##car _e1869918991_)))) - (if (gx#stx-pair? _hd1870018994_) - (let ((_e1870218999_ (gx#stx-e _hd1870018994_))) - (let ((_tl1870419004_ + (##car _e2074621036_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2074521039_)) + (let ((_e2074921044_ + (let () + (declare (not safe)) + (gx#stx-e _hd2074521039_)))) + (let ((_tl2074721049_ (let () (declare (not safe)) - (##cdr _e1870218999_))) - (_hd1870319002_ + (##cdr _e2074921044_))) + (_hd2074821047_ (let () (declare (not safe)) - (##car _e1870218999_)))) - (if (gx#identifier? _hd1870319002_) - (if (gx#stx-eq? '%#quote _hd1870319002_) - (if (gx#stx-pair? _tl1870419004_) - (let ((_e1870519007_ - (gx#stx-e _tl1870419004_))) - (let ((_tl1870719012_ + (##car _e2074921044_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2074821047_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2074821047_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2074721049_)) + (let ((_e2075221052_ + (let () + (declare (not safe)) + (gx#stx-e _tl2074721049_)))) + (let ((_tl2075021057_ (let () (declare (not safe)) - (##cdr _e1870519007_))) - (_hd1870619010_ + (##cdr _e2075221052_))) + (_hd2075121055_ (let () (declare (not safe)) - (##car _e1870519007_)))) - (if (gx#stx-null? _tl1870719012_) - (if (gx#stx-pair? - _tl1870118996_) - (let ((_e1870819015_ - (gx#stx-e - _tl1870118996_))) - (let ((_tl1871019020_ - (let () + (##car _e2075221052_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2075021057_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2074421041_)) + (let ((_e2075521060_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e1870819015_))) - (_hd1870919018_ - (let () (declare (not safe)) (##car _e1870819015_)))) - (if (gx#stx-pair? _hd1870919018_) - (let ((_e1871119023_ (gx#stx-e _hd1870919018_))) - (let ((_tl1871319028_ + (not safe)) + (gx#stx-e _tl2074421041_)))) + (let ((_tl2075321065_ + (let () (declare (not safe)) (##cdr _e2075521060_))) + (_hd2075421063_ + (let () (declare (not safe)) (##car _e2075521060_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd2075421063_)) + (let ((_e2075821068_ + (let () + (declare (not safe)) + (gx#stx-e _hd2075421063_)))) + (let ((_tl2075621073_ (let () (declare (not safe)) - (##cdr _e1871119023_))) - (_hd1871219026_ + (##cdr _e2075821068_))) + (_hd2075721071_ (let () (declare (not safe)) - (##car _e1871119023_)))) - (if (gx#identifier? _hd1871219026_) - (if (gx#stx-eq? '%#ref _hd1871219026_) - (if (gx#stx-pair? _tl1871319028_) - (let ((_e1871419031_ - (gx#stx-e _tl1871319028_))) - (let ((_tl1871619036_ + (##car _e2075821068_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2075721071_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd2075721071_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2075621073_)) + (let ((_e2076121076_ + (let () + (declare (not safe)) + (gx#stx-e _tl2075621073_)))) + (let ((_tl2075921081_ (let () (declare (not safe)) - (##cdr _e1871419031_))) - (_hd1871519034_ + (##cdr _e2076121076_))) + (_hd2076021079_ (let () (declare (not safe)) - (##car _e1871419031_)))) - (if (gx#stx-null? _tl1871619036_) - (if (gx#stx-pair? _tl1871019020_) - (let ((_e1871719039_ - (gx#stx-e - _tl1871019020_))) - (let ((_tl1871919044_ + (##car _e2076121076_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2075921081_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl2075321065_)) + (let ((_e2076421084_ + (let () + (declare (not safe)) + (gx#stx-e + _tl2075321065_)))) + (let ((_tl2076221089_ (let () (declare (not safe)) - (##cdr _e1871719039_))) - (_hd1871819042_ + (##cdr _e2076421084_))) + (_hd2076321087_ (let () (declare (not safe)) - (##car _e1871719039_)))) - (if (gx#stx-pair? - _hd1871819042_) - (let ((_e1872019047_ + (##car _e2076421084_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd2076321087_)) + (let ((_e2076721092_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1871819042_))) - (let ((_tl1872219052_ - (let () (declare (not safe)) (##cdr _e1872019047_))) - (_hd1872119050_ + (let () + (declare (not safe)) + (gx#stx-e _hd2076321087_)))) + (let ((_tl2076521097_ + (let () (declare (not safe)) (##cdr _e2076721092_))) + (_hd2076621095_ (let () (declare (not safe)) - (##car _e1872019047_)))) - (if (gx#identifier? _hd1872119050_) - (if (gx#stx-eq? '%#quote _hd1872119050_) - (if (gx#stx-pair? _tl1872219052_) - (let ((_e1872319055_ - (gx#stx-e _tl1872219052_))) - (let ((_tl1872519060_ + (##car _e2076721092_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd2076621095_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd2076621095_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2076521097_)) + (let ((_e2077021100_ + (let () + (declare (not safe)) + (gx#stx-e _tl2076521097_)))) + (let ((_tl2076821105_ (let () (declare (not safe)) - (##cdr _e1872319055_))) - (_hd1872419058_ + (##cdr _e2077021100_))) + (_hd2076921103_ (let () (declare (not safe)) - (##car _e1872319055_)))) - (if (gx#stx-null? _tl1872519060_) - (if (gx#stx-null? _tl1871919044_) - (___match2023420235_ - _e1867818935_ - _hd1867918938_ - _tl1868018940_ - _e1868118943_ - _hd1868218946_ - _tl1868318948_ - _e1868418951_ - _hd1868518954_ - _tl1868618956_ - _e1868718959_ - _hd1868818962_ - _tl1868918964_ - _e1869018967_ - _hd1869118970_ - _tl1869218972_ - _e1869318975_ - _hd1869418978_ - _tl1869518980_ - _e1869618983_ - _hd1869718986_ - _tl1869818988_ - _e1869918991_ - _hd1870018994_ - _tl1870118996_ - _e1870218999_ - _hd1870319002_ - _tl1870419004_ - _e1870519007_ - _hd1870619010_ - _tl1870719012_ - _e1870819015_ - _hd1870919018_ - _tl1871019020_ - _e1871119023_ - _hd1871219026_ - _tl1871319028_ - _e1871419031_ - _hd1871519034_ - _tl1871619036_ - _e1871719039_ - _hd1871819042_ - _tl1871919044_ - _e1872019047_ - _hd1872119050_ - _tl1872219052_ - _e1872319055_ - _hd1872419058_ - _tl1872519060_) - (___kont2010520106_)) - (___kont2010520106_)))) - (___kont2010520106_)) - (___kont2010520106_)) - (___kont2010520106_)))) - (___kont2010520106_)))) + (##car _e2077021100_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2076821105_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2076221089_)) + (___match2227922280_ + _e2072520980_ + _hd2072420983_ + _tl2072320985_ + _e2072820988_ + _hd2072720991_ + _tl2072620993_ + _e2073120996_ + _hd2073020999_ + _tl2072921001_ + _e2073421004_ + _hd2073321007_ + _tl2073221009_ + _e2073721012_ + _hd2073621015_ + _tl2073521017_ + _e2074021020_ + _hd2073921023_ + _tl2073821025_ + _e2074321028_ + _hd2074221031_ + _tl2074121033_ + _e2074621036_ + _hd2074521039_ + _tl2074421041_ + _e2074921044_ + _hd2074821047_ + _tl2074721049_ + _e2075221052_ + _hd2075121055_ + _tl2075021057_ + _e2075521060_ + _hd2075421063_ + _tl2075321065_ + _e2075821068_ + _hd2075721071_ + _tl2075621073_ + _e2076121076_ + _hd2076021079_ + _tl2075921081_ + _e2076421084_ + _hd2076321087_ + _tl2076221089_ + _e2076721092_ + _hd2076621095_ + _tl2076521097_ + _e2077021100_ + _hd2076921103_ + _tl2076821105_) + (___kont2215022151_)) + (___kont2215022151_)))) + (___kont2215022151_)) + (___kont2215022151_)) + (___kont2215022151_)))) + (___kont2215022151_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? - _tl1871019020_) - (if (gxc#runtime-identifier=? - (gx#datum->syntax__0 - '#f - '-bind-method) - 'bind-method!) - (let ((_L18889_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl2075321065_)) + (if (let ((__tmp22477 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1871519034_) - (_L18890_ _hd1870619010_) - (_L18891_ _hd1869718986_) - (_L18892_ _hd1868818962_)) - (___kont2010320104_ _L18889_ _L18890_ _L18891_ _L18892_)) - (___kont2010520106_)) - (___kont2010520106_))) + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '-bind-method)))) + (declare (not safe)) + (gxc#runtime-identifier=? __tmp22477 'bind-method!)) + (let ((_L20934_ _hd2076021079_) + (_L20935_ _hd2075121055_) + (_L20936_ _hd2074221031_) + (_L20937_ _hd2073321007_)) + (___kont2214822149_ _L20934_ _L20935_ _L20936_ _L20937_)) + (___kont2215022151_)) + (___kont2215022151_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont2010520106_)))) - (___kont2010520106_)) - (___kont2010520106_)) - (___kont2010520106_)))) - (___kont2010520106_)))) - (___kont2010520106_)) + (___kont2215022151_)))) + (___kont2215022151_)) + (___kont2215022151_)) + (___kont2215022151_)))) + (___kont2215022151_)))) + (___kont2215022151_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont2010520106_)))) - (___kont2010520106_)) - (___kont2010520106_)) - (___kont2010520106_)))) - (___kont2010520106_)))) - (___kont2010520106_)) - (___kont2010520106_)))) + (___kont2215022151_)))) + (___kont2215022151_)) + (___kont2215022151_)) + (___kont2215022151_)))) + (___kont2215022151_)))) + (___kont2215022151_)) + (___kont2215022151_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont2010520106_)) - (___kont2010520106_)) - (___kont2010520106_)))) - (___kont2010520106_)))) - (___kont2010520106_)) - (___kont2010520106_)))) + (___kont2215022151_)) + (___kont2215022151_)) + (___kont2215022151_)))) + (___kont2215022151_)))) + (___kont2215022151_)) + (___kont2215022151_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont2010520106_)) - (___kont2010520106_)) - (___kont2010520106_)))) - (___kont2010520106_)))) - (___kont2010520106_)))) - (___kont2010520106_))))))) + (___kont2215022151_)) + (___kont2215022151_)) + (___kont2215022151_)))) + (___kont2215022151_)))) + (___kont2215022151_)))) + (___kont2215022151_))))))) (define gxc#expression-subst-ref% - (lambda (_stx18614_ _id18615_ _new-id18616_) - (let* ((_g1861818631_ - (lambda (_g1861918628_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1861918628_))) - (_g1861718664_ - (lambda (_g1861918634_) - (if (gx#stx-pair? _g1861918634_) - (let ((_e1862118636_ (gx#stx-e _g1861918634_))) - (let ((_hd1862218639_ + (lambda (_stx20659_ _id20660_ _new-id20661_) + (let* ((_g2066320676_ + (lambda (_g2066420673_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2066420673_)))) + (_g2066220709_ + (lambda (_g2066420679_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2066420679_)) + (let ((_e2066820681_ + (let () + (declare (not safe)) + (gx#stx-e _g2066420679_)))) + (let ((_hd2066720684_ (let () (declare (not safe)) - (##car _e1862118636_))) - (_tl1862318641_ + (##car _e2066820681_))) + (_tl2066620686_ (let () (declare (not safe)) - (##cdr _e1862118636_)))) - (if (gx#stx-pair? _tl1862318641_) - (let ((_e1862418644_ (gx#stx-e _tl1862318641_))) - (let ((_hd1862518647_ + (##cdr _e2066820681_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2066620686_)) + (let ((_e2067120689_ + (let () + (declare (not safe)) + (gx#stx-e _tl2066620686_)))) + (let ((_hd2067020692_ (let () (declare (not safe)) - (##car _e1862418644_))) - (_tl1862618649_ + (##car _e2067120689_))) + (_tl2066920694_ (let () (declare (not safe)) - (##cdr _e1862418644_)))) - (if (gx#stx-null? _tl1862618649_) - ((lambda (_L18652_) - (if (gx#free-identifier=? - _L18652_ - _id18615_) - (gxc#xform-wrap-source - (cons '%#ref - (cons _new-id18616_ '())) - _stx18614_) - _stx18614_)) - _hd1862518647_) - (_g1861818631_ _g1861918634_)))) - (_g1861818631_ _g1861918634_)))) - (_g1861818631_ _g1861918634_))))) - (_g1861718664_ _stx18614_)))) + (##cdr _e2067120689_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2066920694_)) + ((lambda (_L20697_) + (if (let () + (declare (not safe)) + (gx#free-identifier=? + _L20697_ + _id20660_)) + (let ((__tmp22478 + (let ((__tmp22479 + (let () + (declare + (not safe)) + (cons _new-id20661_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons '%#ref __tmp22479)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp22478 + _stx20659_)) + _stx20659_)) + _hd2067020692_) + (let () + (declare (not safe)) + (_g2066320676_ _g2066420679_))))) + (let () + (declare (not safe)) + (_g2066320676_ _g2066420679_))))) + (let () + (declare (not safe)) + (_g2066320676_ _g2066420679_)))))) + (declare (not safe)) + (_g2066220709_ _stx20659_)))) (define gxc#expression-subst*-ref% - (lambda (_stx18555_ _subst18556_) - (let* ((_g1855818571_ - (lambda (_g1855918568_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1855918568_))) - (_g1855718611_ - (lambda (_g1855918574_) - (if (gx#stx-pair? _g1855918574_) - (let ((_e1856118576_ (gx#stx-e _g1855918574_))) - (let ((_hd1856218579_ + (lambda (_stx20600_ _subst20601_) + (let* ((_g2060320616_ + (lambda (_g2060420613_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2060420613_)))) + (_g2060220656_ + (lambda (_g2060420619_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2060420619_)) + (let ((_e2060820621_ + (let () + (declare (not safe)) + (gx#stx-e _g2060420619_)))) + (let ((_hd2060720624_ (let () (declare (not safe)) - (##car _e1856118576_))) - (_tl1856318581_ + (##car _e2060820621_))) + (_tl2060620626_ (let () (declare (not safe)) - (##cdr _e1856118576_)))) - (if (gx#stx-pair? _tl1856318581_) - (let ((_e1856418584_ (gx#stx-e _tl1856318581_))) - (let ((_hd1856518587_ + (##cdr _e2060820621_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2060620626_)) + (let ((_e2061120629_ + (let () + (declare (not safe)) + (gx#stx-e _tl2060620626_)))) + (let ((_hd2061020632_ (let () (declare (not safe)) - (##car _e1856418584_))) - (_tl1856618589_ + (##car _e2061120629_))) + (_tl2060920634_ (let () (declare (not safe)) - (##cdr _e1856418584_)))) - (if (gx#stx-null? _tl1856618589_) - ((lambda (_L18592_) - (let ((_$e18606_ - (find (lambda (_sub18604_) - (gx#free-identifier=? - _L18592_ - (car _sub18604_))) - _subst18556_))) - (if _$e18606_ - ((lambda (_sub18609_) - (gxc#xform-wrap-source - (cons '%#ref - (cons (cdr _sub18609_) - '())) - _stx18555_)) - _$e18606_) - _stx18555_))) - _hd1856518587_) - (_g1855818571_ _g1855918574_)))) - (_g1855818571_ _g1855918574_)))) - (_g1855818571_ _g1855918574_))))) - (_g1855718611_ _stx18555_)))) + (##cdr _e2061120629_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2060920634_)) + ((lambda (_L20637_) + (let ((_$e20651_ + (let ((__tmp22480 + (lambda (_sub20649_) + (let ((__tmp22481 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (car _sub20649_)))) + (declare (not safe)) + (gx#free-identifier=? _L20637_ __tmp22481))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (find __tmp22480 + _subst20601_)))) + (if _$e20651_ + ((lambda (_sub20654_) + (let ((__tmp22482 + (let ((__tmp22483 + (let ((__tmp22484 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cdr _sub20654_)))) + (declare (not safe)) + (cons __tmp22484 '())))) + (declare (not safe)) + (cons '%#ref __tmp22483)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp22482 + _stx20600_))) + _$e20651_) + _stx20600_))) + _hd2061020632_) + (let () + (declare (not safe)) + (_g2060320616_ _g2060420619_))))) + (let () + (declare (not safe)) + (_g2060320616_ _g2060420619_))))) + (let () + (declare (not safe)) + (_g2060320616_ _g2060420619_)))))) + (declare (not safe)) + (_g2060220656_ _stx20600_)))) (define gxc#expression-subst-setq% - (lambda (_stx18483_ _id18484_ _new-id18485_) - (let* ((_g1848718504_ - (lambda (_g1848818501_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1848818501_))) - (_g1848618552_ - (lambda (_g1848818507_) - (if (gx#stx-pair? _g1848818507_) - (let ((_e1849118509_ (gx#stx-e _g1848818507_))) - (let ((_hd1849218512_ + (lambda (_stx20528_ _id20529_ _new-id20530_) + (let* ((_g2053220549_ + (lambda (_g2053320546_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2053320546_)))) + (_g2053120597_ + (lambda (_g2053320552_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2053320552_)) + (let ((_e2053820554_ + (let () + (declare (not safe)) + (gx#stx-e _g2053320552_)))) + (let ((_hd2053720557_ (let () (declare (not safe)) - (##car _e1849118509_))) - (_tl1849318514_ + (##car _e2053820554_))) + (_tl2053620559_ (let () (declare (not safe)) - (##cdr _e1849118509_)))) - (if (gx#stx-pair? _tl1849318514_) - (let ((_e1849418517_ (gx#stx-e _tl1849318514_))) - (let ((_hd1849518520_ + (##cdr _e2053820554_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2053620559_)) + (let ((_e2054120562_ + (let () + (declare (not safe)) + (gx#stx-e _tl2053620559_)))) + (let ((_hd2054020565_ (let () (declare (not safe)) - (##car _e1849418517_))) - (_tl1849618522_ + (##car _e2054120562_))) + (_tl2053920567_ (let () (declare (not safe)) - (##cdr _e1849418517_)))) - (if (gx#stx-pair? _tl1849618522_) - (let ((_e1849718525_ - (gx#stx-e _tl1849618522_))) - (let ((_hd1849818528_ + (##cdr _e2054120562_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2053920567_)) + (let ((_e2054420570_ + (let () + (declare (not safe)) + (gx#stx-e _tl2053920567_)))) + (let ((_hd2054320573_ (let () (declare (not safe)) - (##car _e1849718525_))) - (_tl1849918530_ + (##car _e2054420570_))) + (_tl2054220575_ (let () (declare (not safe)) - (##cdr _e1849718525_)))) - (if (gx#stx-null? _tl1849918530_) - ((lambda (_L18533_ _L18534_) - (let ((_new-expr18549_ - (gxc#compile-e - _L18533_ - _id18484_ - _new-id18485_)) - (_new-xid18550_ - (if (gx#free-identifier=? - _L18534_ - _id18484_) - _new-id18485_ - _L18534_))) - (gxc#xform-wrap-source - (cons '%#set! - (cons _new-xid18550_ - (cons _new-expr18549_ + (##cdr _e2054420570_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2054220575_)) + ((lambda (_L20578_ _L20579_) + (let ((_new-expr20594_ + (let () + (declare (not safe)) + (gxc#compile-e + _L20578_ + _id20529_ + _new-id20530_))) + (_new-xid20595_ + (if (let () + (declare + (not safe)) + (gx#free-identifier=? + _L20579_ + _id20529_)) + _new-id20530_ + _L20579_))) + (let ((__tmp22485 + (let ((__tmp22486 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) + (let ((__tmp22487 + (let () + (declare (not safe)) + (cons _new-expr20594_ '())))) + (declare (not safe)) + (cons _new-xid20595_ __tmp22487)))) + (declare (not safe)) + (cons '%#set! __tmp22486)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx18483_))) - _hd1849818528_ - _hd1849518520_) - (_g1848718504_ _g1848818507_)))) - (_g1848718504_ _g1848818507_)))) - (_g1848718504_ _g1848818507_)))) - (_g1848718504_ _g1848818507_))))) - (_g1848618552_ _stx18483_)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp22485 + _stx20528_)))) + _hd2054320573_ + _hd2054020565_) + (let () + (declare (not safe)) + (_g2053220549_ + _g2053320552_))))) + (let () + (declare (not safe)) + (_g2053220549_ _g2053320552_))))) + (let () + (declare (not safe)) + (_g2053220549_ _g2053320552_))))) + (let () + (declare (not safe)) + (_g2053220549_ _g2053320552_)))))) + (declare (not safe)) + (_g2053120597_ _stx20528_)))) (define gxc#expression-subst*-setq% - (lambda (_stx18407_ _subst18408_) - (let* ((_g1841018427_ - (lambda (_g1841118424_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1841118424_))) - (_g1840918480_ - (lambda (_g1841118430_) - (if (gx#stx-pair? _g1841118430_) - (let ((_e1841418432_ (gx#stx-e _g1841118430_))) - (let ((_hd1841518435_ + (lambda (_stx20452_ _subst20453_) + (let* ((_g2045520472_ + (lambda (_g2045620469_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2045620469_)))) + (_g2045420525_ + (lambda (_g2045620475_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2045620475_)) + (let ((_e2046120477_ + (let () + (declare (not safe)) + (gx#stx-e _g2045620475_)))) + (let ((_hd2046020480_ (let () (declare (not safe)) - (##car _e1841418432_))) - (_tl1841618437_ + (##car _e2046120477_))) + (_tl2045920482_ (let () (declare (not safe)) - (##cdr _e1841418432_)))) - (if (gx#stx-pair? _tl1841618437_) - (let ((_e1841718440_ (gx#stx-e _tl1841618437_))) - (let ((_hd1841818443_ + (##cdr _e2046120477_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2045920482_)) + (let ((_e2046420485_ + (let () + (declare (not safe)) + (gx#stx-e _tl2045920482_)))) + (let ((_hd2046320488_ (let () (declare (not safe)) - (##car _e1841718440_))) - (_tl1841918445_ + (##car _e2046420485_))) + (_tl2046220490_ (let () (declare (not safe)) - (##cdr _e1841718440_)))) - (if (gx#stx-pair? _tl1841918445_) - (let ((_e1842018448_ - (gx#stx-e _tl1841918445_))) - (let ((_hd1842118451_ + (##cdr _e2046420485_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2046220490_)) + (let ((_e2046720493_ + (let () + (declare (not safe)) + (gx#stx-e _tl2046220490_)))) + (let ((_hd2046620496_ (let () (declare (not safe)) - (##car _e1842018448_))) - (_tl1842218453_ + (##car _e2046720493_))) + (_tl2046520498_ (let () (declare (not safe)) - (##cdr _e1842018448_)))) - (if (gx#stx-null? _tl1842218453_) - ((lambda (_L18456_ _L18457_) - (let ((_new-expr18477_ - (gxc#compile-e - _L18456_ - _subst18408_)) - (_new-xid18478_ - (let ((_$e18474_ - (find (lambda (_sub18472_) + (##cdr _e2046720493_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2046520498_)) + ((lambda (_L20501_ _L20502_) + (let ((_new-expr20522_ + (let () + (declare (not safe)) + (gxc#compile-e + _L20501_ + _subst20453_))) + (_new-xid20523_ + (let ((_$e20519_ + (let ((__tmp22488 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#free-identifier=? - _L18457_ - (car _sub18472_))) - _subst18408_))) - (if _$e18474_ (cdr _$e18474_) _L18457_)))) + (lambda (_sub20517_) + (let ((__tmp22489 + (let () + (declare (not safe)) + (car _sub20517_)))) + (declare (not safe)) + (gx#free-identifier=? + _L20502_ + __tmp22489))))) + (declare (not safe)) + (find __tmp22488 _subst20453_)))) + (if _$e20519_ + (let () (declare (not safe)) (cdr _$e20519_)) + _L20502_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gxc#xform-wrap-source - (cons '%#set! - (cons _new-xid18478_ - (cons _new-expr18477_ + (let ((__tmp22490 + (let ((__tmp22491 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) + (let ((__tmp22492 + (let () + (declare (not safe)) + (cons _new-expr20522_ '())))) + (declare (not safe)) + (cons _new-xid20523_ __tmp22492)))) + (declare (not safe)) + (cons '%#set! __tmp22491)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx18407_))) - _hd1842118451_ - _hd1841818443_) - (_g1841018427_ _g1841118430_)))) - (_g1841018427_ _g1841118430_)))) - (_g1841018427_ _g1841118430_)))) - (_g1841018427_ _g1841118430_))))) - (_g1840918480_ _stx18407_)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp22490 + _stx20452_)))) + _hd2046620496_ + _hd2046320488_) + (let () + (declare (not safe)) + (_g2045520472_ + _g2045620475_))))) + (let () + (declare (not safe)) + (_g2045520472_ _g2045620475_))))) + (let () + (declare (not safe)) + (_g2045520472_ _g2045620475_))))) + (let () + (declare (not safe)) + (_g2045520472_ _g2045620475_)))))) + (declare (not safe)) + (_g2045420525_ _stx20452_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_stx18353_ _ht18354_) - (let* ((_g1835618369_ - (lambda (_g1835718366_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1835718366_))) - (_g1835518404_ - (lambda (_g1835718372_) - (if (gx#stx-pair? _g1835718372_) - (let ((_e1835918374_ (gx#stx-e _g1835718372_))) - (let ((_hd1836018377_ + (lambda (_stx20398_ _ht20399_) + (let* ((_g2040120414_ + (lambda (_g2040220411_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2040220411_)))) + (_g2040020449_ + (lambda (_g2040220417_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2040220417_)) + (let ((_e2040620419_ + (let () + (declare (not safe)) + (gx#stx-e _g2040220417_)))) + (let ((_hd2040520422_ (let () (declare (not safe)) - (##car _e1835918374_))) - (_tl1836118379_ + (##car _e2040620419_))) + (_tl2040420424_ (let () (declare (not safe)) - (##cdr _e1835918374_)))) - (if (gx#stx-pair? _tl1836118379_) - (let ((_e1836218382_ (gx#stx-e _tl1836118379_))) - (let ((_hd1836318385_ + (##cdr _e2040620419_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2040420424_)) + (let ((_e2040920427_ + (let () + (declare (not safe)) + (gx#stx-e _tl2040420424_)))) + (let ((_hd2040820430_ (let () (declare (not safe)) - (##car _e1836218382_))) - (_tl1836418387_ + (##car _e2040920427_))) + (_tl2040720432_ (let () (declare (not safe)) - (##cdr _e1836218382_)))) - (if (gx#stx-null? _tl1836418387_) - ((lambda (_L18390_) - (let ((_eid18402_ - (gxc#identifier-symbol - _L18390_))) + (##cdr _e2040920427_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2040720432_)) + ((lambda (_L20435_) + (let ((_eid20447_ + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L20435_)))) + (declare (not safe)) (hash-update! - _ht18354_ - _eid18402_ + _ht20399_ + _eid20447_ 1+ '0))) - _hd1836318385_) - (_g1835618369_ _g1835718372_)))) - (_g1835618369_ _g1835718372_)))) - (_g1835618369_ _g1835718372_))))) - (_g1835518404_ _stx18353_)))) + _hd2040820430_) + (let () + (declare (not safe)) + (_g2040120414_ _g2040220417_))))) + (let () + (declare (not safe)) + (_g2040120414_ _g2040220417_))))) + (let () + (declare (not safe)) + (_g2040120414_ _g2040220417_)))))) + (declare (not safe)) + (_g2040020449_ _stx20398_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_stx18283_ _ht18284_) - (let* ((_g1828618303_ - (lambda (_g1828718300_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1828718300_))) - (_g1828518350_ - (lambda (_g1828718306_) - (if (gx#stx-pair? _g1828718306_) - (let ((_e1829018308_ (gx#stx-e _g1828718306_))) - (let ((_hd1829118311_ + (lambda (_stx20328_ _ht20329_) + (let* ((_g2033120348_ + (lambda (_g2033220345_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2033220345_)))) + (_g2033020395_ + (lambda (_g2033220351_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2033220351_)) + (let ((_e2033720353_ + (let () + (declare (not safe)) + (gx#stx-e _g2033220351_)))) + (let ((_hd2033620356_ (let () (declare (not safe)) - (##car _e1829018308_))) - (_tl1829218313_ + (##car _e2033720353_))) + (_tl2033520358_ (let () (declare (not safe)) - (##cdr _e1829018308_)))) - (if (gx#stx-pair? _tl1829218313_) - (let ((_e1829318316_ (gx#stx-e _tl1829218313_))) - (let ((_hd1829418319_ + (##cdr _e2033720353_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2033520358_)) + (let ((_e2034020361_ + (let () + (declare (not safe)) + (gx#stx-e _tl2033520358_)))) + (let ((_hd2033920364_ (let () (declare (not safe)) - (##car _e1829318316_))) - (_tl1829518321_ + (##car _e2034020361_))) + (_tl2033820366_ (let () (declare (not safe)) - (##cdr _e1829318316_)))) - (if (gx#stx-pair? _tl1829518321_) - (let ((_e1829618324_ - (gx#stx-e _tl1829518321_))) - (let ((_hd1829718327_ + (##cdr _e2034020361_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2033820366_)) + (let ((_e2034320369_ + (let () + (declare (not safe)) + (gx#stx-e _tl2033820366_)))) + (let ((_hd2034220372_ (let () (declare (not safe)) - (##car _e1829618324_))) - (_tl1829818329_ + (##car _e2034320369_))) + (_tl2034120374_ (let () (declare (not safe)) - (##cdr _e1829618324_)))) - (if (gx#stx-null? _tl1829818329_) - ((lambda (_L18332_ _L18333_) - (let ((_eid18348_ - (gxc#identifier-symbol - _L18333_))) - (hash-update! - _ht18284_ - _eid18348_ - 1+ - '0) - (gxc#compile-e - _L18332_ - _ht18284_))) - _hd1829718327_ - _hd1829418319_) - (_g1828618303_ _g1828718306_)))) - (_g1828618303_ _g1828718306_)))) - (_g1828618303_ _g1828718306_)))) - (_g1828618303_ _g1828718306_))))) - (_g1828518350_ _stx18283_)))) + (##cdr _e2034320369_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2034120374_)) + ((lambda (_L20377_ _L20378_) + (let ((_eid20393_ + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L20378_)))) + (let () + (declare (not safe)) + (hash-update! + _ht20329_ + _eid20393_ + 1+ + '0)) + (let () + (declare (not safe)) + (gxc#compile-e + _L20377_ + _ht20329_)))) + _hd2034220372_ + _hd2033920364_) + (let () + (declare (not safe)) + (_g2033120348_ + _g2033220351_))))) + (let () + (declare (not safe)) + (_g2033120348_ _g2033220351_))))) + (let () + (declare (not safe)) + (_g2033120348_ _g2033220351_))))) + (let () + (declare (not safe)) + (_g2033120348_ _g2033220351_)))))) + (declare (not safe)) + (_g2033020395_ _stx20328_)))) (define gxc#find-body% - (lambda (_stx18196_ _arg18197_) - (let* ((_g1819918218_ - (lambda (_g1820018215_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1820018215_))) - (_g1819818280_ - (lambda (_g1820018221_) - (if (gx#stx-pair? _g1820018221_) - (let ((_e1820218223_ (gx#stx-e _g1820018221_))) - (let ((_hd1820318226_ - (let () - (declare (not safe)) - (##car _e1820218223_))) - (_tl1820418228_ - (let () - (declare (not safe)) - (##cdr _e1820218223_)))) - (if (gx#stx-pair/null? _tl1820418228_) - (let ((_g20346_ - (gx#syntax-split-splice - _tl1820418228_ - '0))) + (lambda (_stx20241_ _arg20242_) + (let* ((_g2024420263_ + (lambda (_g2024520260_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2024520260_)))) + (_g2024320325_ + (lambda (_g2024520266_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2024520266_)) + (let ((_e2024920268_ + (let () + (declare (not safe)) + (gx#stx-e _g2024520266_)))) + (let ((_hd2024820271_ + (let () + (declare (not safe)) + (##car _e2024920268_))) + (_tl2024720273_ + (let () + (declare (not safe)) + (##cdr _e2024920268_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl2024720273_)) + (let ((_g22493_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl2024720273_ + '0)))) (begin - (let ((_g20347_ + (let ((_g22494_ (let () (declare (not safe)) - (if (##values? _g20346_) - (##vector-length _g20346_) + (if (##values? _g22493_) + (##vector-length _g22493_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20347_ 2))) + (##fx= _g22494_ 2))) (error "Context expects 2 values" - _g20347_))) - (let ((_target1820518231_ + _g22494_))) + (let ((_target2025020276_ (let () (declare (not safe)) - (##vector-ref _g20346_ 0))) - (_tl1820718233_ + (##vector-ref _g22493_ 0))) + (_tl2025220278_ (let () (declare (not safe)) - (##vector-ref _g20346_ 1)))) - (if (gx#stx-null? _tl1820718233_) - (letrec ((_loop1820818236_ - (lambda (_hd1820618239_ - _expr1821218241_) - (if (gx#stx-pair? - _hd1820618239_) - (let ((_e1820918244_ - (gx#stx-e - _hd1820618239_))) - (let ((_lp-hd1821018247_ + (##vector-ref _g22493_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2025220278_)) + (letrec ((_loop2025320281_ + (lambda (_hd2025120284_ + _expr2025720286_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd2025120284_)) + (let ((_e2025420289_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1820918244_))) - (_lp-tl1821118249_ - (let () (declare (not safe)) (##cdr _e1820918244_)))) - (_loop1820818236_ - _lp-tl1821118249_ - (cons _lp-hd1821018247_ _expr1821218241_)))) - (let ((_expr1821318252_ (reverse _expr1821218241_))) - ((lambda (_L18255_) - (ormap1 (lambda (_g1826818270_) - (gxc#compile-e _g1826818270_ _arg18197_)) - (foldr1 (lambda (_g1827218275_ _g1827318277_) - (cons _g1827218275_ _g1827318277_)) - '() - _L18255_))) - _expr1821318252_)))))) + (declare (not safe)) + (gx#stx-e _hd2025120284_)))) + (let ((_lp-hd2025520292_ + (let () (declare (not safe)) (##car _e2025420289_))) + (_lp-tl2025620294_ + (let () (declare (not safe)) (##cdr _e2025420289_)))) + (let ((__tmp22498 + (let () + (declare (not safe)) + (cons _lp-hd2025520292_ _expr2025720286_)))) + (declare (not safe)) + (_loop2025320281_ _lp-tl2025620294_ __tmp22498)))) + (let ((_expr2025820297_ + (let () + (declare (not safe)) + (reverse _expr2025720286_)))) + ((lambda (_L20300_) + (let ((__tmp22497 + (lambda (_g2031320315_) + (let () + (declare (not safe)) + (gxc#compile-e _g2031320315_ _arg20242_)))) + (__tmp22495 + (let ((__tmp22496 + (lambda (_g2031720320_ _g2031820322_) + (let () + (declare (not safe)) + (cons _g2031720320_ _g2031820322_))))) + (declare (not safe)) + (foldr1 __tmp22496 '() _L20300_)))) + (declare (not safe)) + (ormap1 __tmp22497 __tmp22495))) + _expr2025820297_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1820818236_ - _target1820518231_ - '())) - (_g1819918218_ _g1820018221_))))) - (_g1819918218_ _g1820018221_)))) - (_g1819918218_ _g1820018221_))))) - (_g1819818280_ _stx18196_)))) + (let () + (declare (not safe)) + (_loop2025320281_ + _target2025020276_ + '()))) + (let () + (declare (not safe)) + (_g2024420263_ _g2024520266_)))))) + (let () + (declare (not safe)) + (_g2024420263_ _g2024520266_))))) + (let () + (declare (not safe)) + (_g2024420263_ _g2024520266_)))))) + (declare (not safe)) + (_g2024320325_ _stx20241_)))) (define gxc#find-begin-annotation% - (lambda (_stx18128_ _arg18129_) - (let* ((_g1813118148_ - (lambda (_g1813218145_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1813218145_))) - (_g1813018193_ - (lambda (_g1813218151_) - (if (gx#stx-pair? _g1813218151_) - (let ((_e1813518153_ (gx#stx-e _g1813218151_))) - (let ((_hd1813618156_ + (lambda (_stx20173_ _arg20174_) + (let* ((_g2017620193_ + (lambda (_g2017720190_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2017720190_)))) + (_g2017520238_ + (lambda (_g2017720196_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2017720196_)) + (let ((_e2018220198_ + (let () + (declare (not safe)) + (gx#stx-e _g2017720196_)))) + (let ((_hd2018120201_ (let () (declare (not safe)) - (##car _e1813518153_))) - (_tl1813718158_ + (##car _e2018220198_))) + (_tl2018020203_ (let () (declare (not safe)) - (##cdr _e1813518153_)))) - (if (gx#stx-pair? _tl1813718158_) - (let ((_e1813818161_ (gx#stx-e _tl1813718158_))) - (let ((_hd1813918164_ + (##cdr _e2018220198_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2018020203_)) + (let ((_e2018520206_ + (let () + (declare (not safe)) + (gx#stx-e _tl2018020203_)))) + (let ((_hd2018420209_ (let () (declare (not safe)) - (##car _e1813818161_))) - (_tl1814018166_ + (##car _e2018520206_))) + (_tl2018320211_ (let () (declare (not safe)) - (##cdr _e1813818161_)))) - (if (gx#stx-pair? _tl1814018166_) - (let ((_e1814118169_ - (gx#stx-e _tl1814018166_))) - (let ((_hd1814218172_ + (##cdr _e2018520206_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2018320211_)) + (let ((_e2018820214_ + (let () + (declare (not safe)) + (gx#stx-e _tl2018320211_)))) + (let ((_hd2018720217_ (let () (declare (not safe)) - (##car _e1814118169_))) - (_tl1814318174_ + (##car _e2018820214_))) + (_tl2018620219_ (let () (declare (not safe)) - (##cdr _e1814118169_)))) - (if (gx#stx-null? _tl1814318174_) - ((lambda (_L18177_ _L18178_) - (gxc#compile-e - _L18177_ - _arg18129_)) - _hd1814218172_ - _hd1813918164_) - (_g1813118148_ _g1813218151_)))) - (_g1813118148_ _g1813218151_)))) - (_g1813118148_ _g1813218151_)))) - (_g1813118148_ _g1813218151_))))) - (_g1813018193_ _stx18128_)))) + (##cdr _e2018820214_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2018620219_)) + ((lambda (_L20222_ _L20223_) + (let () + (declare (not safe)) + (gxc#compile-e + _L20222_ + _arg20174_))) + _hd2018720217_ + _hd2018420209_) + (let () + (declare (not safe)) + (_g2017620193_ + _g2017720196_))))) + (let () + (declare (not safe)) + (_g2017620193_ _g2017720196_))))) + (let () + (declare (not safe)) + (_g2017620193_ _g2017720196_))))) + (let () + (declare (not safe)) + (_g2017620193_ _g2017720196_)))))) + (declare (not safe)) + (_g2017520238_ _stx20173_)))) (define gxc#find-lambda% - (lambda (_stx18060_ _arg18061_) - (let* ((_g1806318080_ - (lambda (_g1806418077_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1806418077_))) - (_g1806218125_ - (lambda (_g1806418083_) - (if (gx#stx-pair? _g1806418083_) - (let ((_e1806718085_ (gx#stx-e _g1806418083_))) - (let ((_hd1806818088_ + (lambda (_stx20105_ _arg20106_) + (let* ((_g2010820125_ + (lambda (_g2010920122_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g2010920122_)))) + (_g2010720170_ + (lambda (_g2010920128_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g2010920128_)) + (let ((_e2011420130_ + (let () + (declare (not safe)) + (gx#stx-e _g2010920128_)))) + (let ((_hd2011320133_ (let () (declare (not safe)) - (##car _e1806718085_))) - (_tl1806918090_ + (##car _e2011420130_))) + (_tl2011220135_ (let () (declare (not safe)) - (##cdr _e1806718085_)))) - (if (gx#stx-pair? _tl1806918090_) - (let ((_e1807018093_ (gx#stx-e _tl1806918090_))) - (let ((_hd1807118096_ + (##cdr _e2011420130_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2011220135_)) + (let ((_e2011720138_ + (let () + (declare (not safe)) + (gx#stx-e _tl2011220135_)))) + (let ((_hd2011620141_ (let () (declare (not safe)) - (##car _e1807018093_))) - (_tl1807218098_ + (##car _e2011720138_))) + (_tl2011520143_ (let () (declare (not safe)) - (##cdr _e1807018093_)))) - (if (gx#stx-pair? _tl1807218098_) - (let ((_e1807318101_ - (gx#stx-e _tl1807218098_))) - (let ((_hd1807418104_ + (##cdr _e2011720138_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2011520143_)) + (let ((_e2012020146_ + (let () + (declare (not safe)) + (gx#stx-e _tl2011520143_)))) + (let ((_hd2011920149_ (let () (declare (not safe)) - (##car _e1807318101_))) - (_tl1807518106_ + (##car _e2012020146_))) + (_tl2011820151_ (let () (declare (not safe)) - (##cdr _e1807318101_)))) - (if (gx#stx-null? _tl1807518106_) - ((lambda (_L18109_ _L18110_) - (gxc#compile-e - _L18109_ - _arg18061_)) - _hd1807418104_ - _hd1807118096_) - (_g1806318080_ _g1806418083_)))) - (_g1806318080_ _g1806418083_)))) - (_g1806318080_ _g1806418083_)))) - (_g1806318080_ _g1806418083_))))) - (_g1806218125_ _stx18060_)))) + (##cdr _e2012020146_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2011820151_)) + ((lambda (_L20154_ _L20155_) + (let () + (declare (not safe)) + (gxc#compile-e + _L20154_ + _arg20106_))) + _hd2011920149_ + _hd2011620141_) + (let () + (declare (not safe)) + (_g2010820125_ + _g2010920128_))))) + (let () + (declare (not safe)) + (_g2010820125_ _g2010920128_))))) + (let () + (declare (not safe)) + (_g2010820125_ _g2010920128_))))) + (let () + (declare (not safe)) + (_g2010820125_ _g2010920128_)))))) + (declare (not safe)) + (_g2010720170_ _stx20105_)))) (define gxc#find-case-lambda% - (lambda (_stx17942_ _arg17943_) - (let* ((_g1794517973_ - (lambda (_g1794617970_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1794617970_))) - (_g1794418057_ - (lambda (_g1794617976_) - (if (gx#stx-pair? _g1794617976_) - (let ((_e1794917978_ (gx#stx-e _g1794617976_))) - (let ((_hd1795017981_ - (let () - (declare (not safe)) - (##car _e1794917978_))) - (_tl1795117983_ - (let () - (declare (not safe)) - (##cdr _e1794917978_)))) - (if (gx#stx-pair/null? _tl1795117983_) - (let ((_g20348_ - (gx#syntax-split-splice - _tl1795117983_ - '0))) + (lambda (_stx19987_ _arg19988_) + (let* ((_g1999020018_ + (lambda (_g1999120015_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1999120015_)))) + (_g1998920102_ + (lambda (_g1999120021_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1999120021_)) + (let ((_e1999620023_ + (let () + (declare (not safe)) + (gx#stx-e _g1999120021_)))) + (let ((_hd1999520026_ + (let () + (declare (not safe)) + (##car _e1999620023_))) + (_tl1999420028_ + (let () + (declare (not safe)) + (##cdr _e1999620023_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl1999420028_)) + (let ((_g22499_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl1999420028_ + '0)))) (begin - (let ((_g20349_ + (let ((_g22500_ (let () (declare (not safe)) - (if (##values? _g20348_) - (##vector-length _g20348_) + (if (##values? _g22499_) + (##vector-length _g22499_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20349_ 2))) + (##fx= _g22500_ 2))) (error "Context expects 2 values" - _g20349_))) - (let ((_target1795217986_ + _g22500_))) + (let ((_target1999720031_ (let () (declare (not safe)) - (##vector-ref _g20348_ 0))) - (_tl1795417988_ + (##vector-ref _g22499_ 0))) + (_tl1999920033_ (let () (declare (not safe)) - (##vector-ref _g20348_ 1)))) - (if (gx#stx-null? _tl1795417988_) - (letrec ((_loop1795517991_ - (lambda (_hd1795317994_ - _body1795917996_ - _hd1796017998_) - (if (gx#stx-pair? - _hd1795317994_) - (let ((_e1795618001_ - (gx#stx-e - _hd1795317994_))) - (let ((_lp-hd1795718004_ + (##vector-ref _g22499_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1999920033_)) + (letrec ((_loop2000020036_ + (lambda (_hd1999820039_ + _body2000420041_ + _hd2000520043_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd1999820039_)) + (let ((_e2000120046_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1795618001_))) - (_lp-tl1795818006_ - (let () (declare (not safe)) (##cdr _e1795618001_)))) - (if (gx#stx-pair? _lp-hd1795718004_) - (let ((_e1796318009_ (gx#stx-e _lp-hd1795718004_))) - (let ((_hd1796418012_ + (declare (not safe)) + (gx#stx-e _hd1999820039_)))) + (let ((_lp-hd2000220049_ + (let () (declare (not safe)) (##car _e2000120046_))) + (_lp-tl2000320051_ + (let () (declare (not safe)) (##cdr _e2000120046_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd2000220049_)) + (let ((_e2001020054_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd2000220049_)))) + (let ((_hd2000920057_ (let () (declare (not safe)) - (##car _e1796318009_))) - (_tl1796518014_ + (##car _e2001020054_))) + (_tl2000820059_ (let () (declare (not safe)) - (##cdr _e1796318009_)))) - (if (gx#stx-pair? _tl1796518014_) - (let ((_e1796618017_ - (gx#stx-e _tl1796518014_))) - (let ((_hd1796718020_ + (##cdr _e2001020054_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl2000820059_)) + (let ((_e2001320062_ + (let () + (declare (not safe)) + (gx#stx-e _tl2000820059_)))) + (let ((_hd2001220065_ (let () (declare (not safe)) - (##car _e1796618017_))) - (_tl1796818022_ + (##car _e2001320062_))) + (_tl2001120067_ (let () (declare (not safe)) - (##cdr _e1796618017_)))) - (if (gx#stx-null? _tl1796818022_) - (_loop1795517991_ - _lp-tl1795818006_ - (cons _hd1796718020_ _body1795917996_) - (cons _hd1796418012_ _hd1796017998_)) - (_g1794517973_ _g1794617976_)))) - (_g1794517973_ _g1794617976_)))) - (_g1794517973_ _g1794617976_)))) - (let ((_body1796118025_ (reverse _body1795917996_)) - (_hd1796218027_ (reverse _hd1796017998_))) - ((lambda (_L18030_ _L18031_) - (ormap1 (lambda (_g1804518047_) - (gxc#compile-e _g1804518047_ _arg17943_)) - (foldr1 (lambda (_g1804918052_ _g1805018054_) - (cons _g1804918052_ _g1805018054_)) - '() - _L18030_))) - _body1796118025_ - _hd1796218027_)))))) + (##cdr _e2001320062_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl2001120067_)) + (let ((__tmp22505 + (let () + (declare (not safe)) + (cons _hd2001220065_ + _body2000420041_))) + (__tmp22504 + (let () + (declare (not safe)) + (cons _hd2000920057_ + _hd2000520043_)))) + (declare (not safe)) + (_loop2000020036_ + _lp-tl2000320051_ + __tmp22505 + __tmp22504)) + (let () + (declare (not safe)) + (_g1999020018_ _g1999120021_))))) + (let () + (declare (not safe)) + (_g1999020018_ _g1999120021_))))) + (let () + (declare (not safe)) + (_g1999020018_ _g1999120021_))))) + (let ((_body2000620070_ + (let () + (declare (not safe)) + (reverse _body2000420041_))) + (_hd2000720072_ + (let () (declare (not safe)) (reverse _hd2000520043_)))) + ((lambda (_L20075_ _L20076_) + (let ((__tmp22503 + (lambda (_g2009020092_) + (let () + (declare (not safe)) + (gxc#compile-e _g2009020092_ _arg19988_)))) + (__tmp22501 + (let ((__tmp22502 + (lambda (_g2009420097_ _g2009520099_) + (let () + (declare (not safe)) + (cons _g2009420097_ _g2009520099_))))) + (declare (not safe)) + (foldr1 __tmp22502 '() _L20075_)))) + (declare (not safe)) + (ormap1 __tmp22503 __tmp22501))) + _body2000620070_ + _hd2000720072_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1795517991_ - _target1795217986_ - '() - '())) - (_g1794517973_ _g1794617976_))))) - (_g1794517973_ _g1794617976_)))) - (_g1794517973_ _g1794617976_))))) - (_g1794418057_ _stx17942_)))) + (let () + (declare (not safe)) + (_loop2000020036_ + _target1999720031_ + '() + '()))) + (let () + (declare (not safe)) + (_g1999020018_ _g1999120021_)))))) + (let () + (declare (not safe)) + (_g1999020018_ _g1999120021_))))) + (let () + (declare (not safe)) + (_g1999020018_ _g1999120021_)))))) + (declare (not safe)) + (_g1998920102_ _stx19987_)))) (define gxc#find-let-values% - (lambda (_stx17792_ _arg17793_) - (let* ((_g1779517830_ - (lambda (_g1779617827_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1779617827_))) - (_g1779417939_ - (lambda (_g1779617833_) - (if (gx#stx-pair? _g1779617833_) - (let ((_e1780017835_ (gx#stx-e _g1779617833_))) - (let ((_hd1780117838_ + (lambda (_stx19837_ _arg19838_) + (let* ((_g1984019875_ + (lambda (_g1984119872_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1984119872_)))) + (_g1983919984_ + (lambda (_g1984119878_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1984119878_)) + (let ((_e1984719880_ + (let () + (declare (not safe)) + (gx#stx-e _g1984119878_)))) + (let ((_hd1984619883_ (let () (declare (not safe)) - (##car _e1780017835_))) - (_tl1780217840_ + (##car _e1984719880_))) + (_tl1984519885_ (let () (declare (not safe)) - (##cdr _e1780017835_)))) - (if (gx#stx-pair? _tl1780217840_) - (let ((_e1780317843_ (gx#stx-e _tl1780217840_))) - (let ((_hd1780417846_ + (##cdr _e1984719880_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1984519885_)) + (let ((_e1985019888_ + (let () + (declare (not safe)) + (gx#stx-e _tl1984519885_)))) + (let ((_hd1984919891_ (let () (declare (not safe)) - (##car _e1780317843_))) - (_tl1780517848_ + (##car _e1985019888_))) + (_tl1984819893_ (let () (declare (not safe)) - (##cdr _e1780317843_)))) - (if (gx#stx-pair/null? _hd1780417846_) - (let ((_g20350_ - (gx#syntax-split-splice - _hd1780417846_ - '0))) + (##cdr _e1985019888_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd1984919891_)) + (let ((_g22506_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd1984919891_ + '0)))) (begin - (let ((_g20351_ + (let ((_g22507_ (let () (declare (not safe)) - (if (##values? _g20350_) + (if (##values? _g22506_) (##vector-length - _g20350_) + _g22506_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20351_ 2))) + (##fx= _g22507_ 2))) (error "Context expects 2 values" - _g20351_))) - (let ((_target1780617851_ + _g22507_))) + (let ((_target1985119896_ (let () (declare (not safe)) - (##vector-ref _g20350_ 0))) - (_tl1780817853_ + (##vector-ref _g22506_ 0))) + (_tl1985319898_ (let () (declare (not safe)) - (##vector-ref _g20350_ 1)))) - (if (gx#stx-null? _tl1780817853_) - (letrec ((_loop1780917856_ - (lambda (_hd1780717859_ + (##vector-ref _g22506_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1985319898_)) + (letrec ((_loop1985419901_ + (lambda (_hd1985219904_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr1781317861_ - _bind1781417863_) - (if (gx#stx-pair? _hd1780717859_) - (let ((_e1781017866_ (gx#stx-e _hd1780717859_))) - (let ((_lp-hd1781117869_ + _expr1985819906_ + _bind1985919908_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd1985219904_)) + (let ((_e1985519911_ + (let () + (declare (not safe)) + (gx#stx-e _hd1985219904_)))) + (let ((_lp-hd1985619914_ (let () (declare (not safe)) - (##car _e1781017866_))) - (_lp-tl1781217871_ + (##car _e1985519911_))) + (_lp-tl1985719916_ (let () (declare (not safe)) - (##cdr _e1781017866_)))) - (if (gx#stx-pair? _lp-hd1781117869_) - (let ((_e1781717874_ - (gx#stx-e _lp-hd1781117869_))) - (let ((_hd1781817877_ + (##cdr _e1985519911_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd1985619914_)) + (let ((_e1986419919_ + (let () + (declare (not safe)) + (gx#stx-e _lp-hd1985619914_)))) + (let ((_hd1986319922_ (let () (declare (not safe)) - (##car _e1781717874_))) - (_tl1781917879_ + (##car _e1986419919_))) + (_tl1986219924_ (let () (declare (not safe)) - (##cdr _e1781717874_)))) - (if (gx#stx-pair? _tl1781917879_) - (let ((_e1782017882_ - (gx#stx-e _tl1781917879_))) - (let ((_hd1782117885_ + (##cdr _e1986419919_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1986219924_)) + (let ((_e1986719927_ + (let () + (declare (not safe)) + (gx#stx-e _tl1986219924_)))) + (let ((_hd1986619930_ (let () (declare (not safe)) - (##car _e1782017882_))) - (_tl1782217887_ + (##car _e1986719927_))) + (_tl1986519932_ (let () (declare (not safe)) - (##cdr _e1782017882_)))) - (if (gx#stx-null? _tl1782217887_) - (_loop1780917856_ - _lp-tl1781217871_ - (cons _hd1782117885_ - _expr1781317861_) - (cons _hd1781817877_ - _bind1781417863_)) - (_g1779517830_ - _g1779617833_)))) - (_g1779517830_ _g1779617833_)))) - (_g1779517830_ _g1779617833_)))) - (let ((_expr1781517890_ (reverse _expr1781317861_)) - (_bind1781617892_ (reverse _bind1781417863_))) - (if (gx#stx-pair? _tl1780517848_) - (let ((_e1782317895_ (gx#stx-e _tl1780517848_))) - (let ((_hd1782417898_ + (##cdr _e1986719927_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1986519932_)) + (let ((__tmp22512 + (let () + (declare (not safe)) + (cons _hd1986619930_ + _expr1985819906_))) + (__tmp22511 + (let () + (declare (not safe)) + (cons _hd1986319922_ + _bind1985919908_)))) + (declare (not safe)) + (_loop1985419901_ + _lp-tl1985719916_ + __tmp22512 + __tmp22511)) + (let () + (declare (not safe)) + (_g1984019875_ + _g1984119878_))))) + (let () + (declare (not safe)) + (_g1984019875_ _g1984119878_))))) + (let () + (declare (not safe)) + (_g1984019875_ _g1984119878_))))) + (let ((_expr1986019935_ + (let () + (declare (not safe)) + (reverse _expr1985819906_))) + (_bind1986119937_ + (let () + (declare (not safe)) + (reverse _bind1985919908_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1984819893_)) + (let ((_e1987019940_ + (let () + (declare (not safe)) + (gx#stx-e _tl1984819893_)))) + (let ((_hd1986919943_ (let () (declare (not safe)) - (##car _e1782317895_))) - (_tl1782517900_ + (##car _e1987019940_))) + (_tl1986819945_ (let () (declare (not safe)) - (##cdr _e1782317895_)))) - (if (gx#stx-null? _tl1782517900_) - ((lambda (_L17903_ _L17904_ _L17905_) - (let ((_$e17936_ - (ormap1 (lambda (_g1792417926_) - (gxc#compile-e - _g1792417926_ - _arg17793_)) - (foldr1 (lambda (_g1792817931_ + (##cdr _e1987019940_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1986819945_)) + ((lambda (_L19948_ _L19949_ _L19950_) + (let ((_$e19981_ + (let ((__tmp22510 + (lambda (_g1996919971_) + (let () + (declare (not safe)) + (gxc#compile-e + _g1996919971_ + _arg19838_)))) + (__tmp22508 + (let ((__tmp22509 + (lambda (_g1997319976_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1792917933_) - (cons _g1792817931_ _g1792917933_)) - '() - _L17904_)))) + _g1997419978_) + (let () + (declare (not safe)) + (cons _g1997319976_ _g1997419978_))))) + (declare (not safe)) + (foldr1 __tmp22509 '() _L19949_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e17936_ - _$e17936_ - (gxc#compile-e - _L17903_ - _arg17793_)))) - _hd1782417898_ - _expr1781517890_ - _bind1781617892_) - (_g1779517830_ _g1779617833_)))) - (_g1779517830_ _g1779617833_))))))) + (declare (not safe)) + (ormap1 __tmp22510 + __tmp22508)))) + (if _$e19981_ + _$e19981_ + (let () + (declare (not safe)) + (gxc#compile-e + _L19948_ + _arg19838_))))) + _hd1986919943_ + _expr1986019935_ + _bind1986119937_) + (let () + (declare (not safe)) + (_g1984019875_ _g1984119878_))))) + (let () + (declare (not safe)) + (_g1984019875_ _g1984119878_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1780917856_ - _target1780617851_ - '() - '())) - (_g1779517830_ - _g1779617833_))))) - (_g1779517830_ _g1779617833_)))) - (_g1779517830_ _g1779617833_)))) - (_g1779517830_ _g1779617833_))))) - (_g1779417939_ _stx17792_)))) + (let () + (declare (not safe)) + (_loop1985419901_ + _target1985119896_ + '() + '()))) + (let () + (declare (not safe)) + (_g1984019875_ + _g1984119878_)))))) + (let () + (declare (not safe)) + (_g1984019875_ _g1984119878_))))) + (let () + (declare (not safe)) + (_g1984019875_ _g1984119878_))))) + (let () + (declare (not safe)) + (_g1984019875_ _g1984119878_)))))) + (declare (not safe)) + (_g1983919984_ _stx19837_)))) (define gxc#find-setq% - (lambda (_stx17724_ _arg17725_) - (let* ((_g1772717744_ - (lambda (_g1772817741_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1772817741_))) - (_g1772617789_ - (lambda (_g1772817747_) - (if (gx#stx-pair? _g1772817747_) - (let ((_e1773117749_ (gx#stx-e _g1772817747_))) - (let ((_hd1773217752_ + (lambda (_stx19769_ _arg19770_) + (let* ((_g1977219789_ + (lambda (_g1977319786_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1977319786_)))) + (_g1977119834_ + (lambda (_g1977319792_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1977319792_)) + (let ((_e1977819794_ + (let () + (declare (not safe)) + (gx#stx-e _g1977319792_)))) + (let ((_hd1977719797_ (let () (declare (not safe)) - (##car _e1773117749_))) - (_tl1773317754_ + (##car _e1977819794_))) + (_tl1977619799_ (let () (declare (not safe)) - (##cdr _e1773117749_)))) - (if (gx#stx-pair? _tl1773317754_) - (let ((_e1773417757_ (gx#stx-e _tl1773317754_))) - (let ((_hd1773517760_ + (##cdr _e1977819794_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1977619799_)) + (let ((_e1978119802_ + (let () + (declare (not safe)) + (gx#stx-e _tl1977619799_)))) + (let ((_hd1978019805_ (let () (declare (not safe)) - (##car _e1773417757_))) - (_tl1773617762_ + (##car _e1978119802_))) + (_tl1977919807_ (let () (declare (not safe)) - (##cdr _e1773417757_)))) - (if (gx#stx-pair? _tl1773617762_) - (let ((_e1773717765_ - (gx#stx-e _tl1773617762_))) - (let ((_hd1773817768_ + (##cdr _e1978119802_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1977919807_)) + (let ((_e1978419810_ + (let () + (declare (not safe)) + (gx#stx-e _tl1977919807_)))) + (let ((_hd1978319813_ (let () (declare (not safe)) - (##car _e1773717765_))) - (_tl1773917770_ + (##car _e1978419810_))) + (_tl1978219815_ (let () (declare (not safe)) - (##cdr _e1773717765_)))) - (if (gx#stx-null? _tl1773917770_) - ((lambda (_L17773_ _L17774_) - (gxc#compile-e - _L17773_ - _arg17725_)) - _hd1773817768_ - _hd1773517760_) - (_g1772717744_ _g1772817747_)))) - (_g1772717744_ _g1772817747_)))) - (_g1772717744_ _g1772817747_)))) - (_g1772717744_ _g1772817747_))))) - (_g1772617789_ _stx17724_)))) + (##cdr _e1978419810_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1978219815_)) + ((lambda (_L19818_ _L19819_) + (let () + (declare (not safe)) + (gxc#compile-e + _L19818_ + _arg19770_))) + _hd1978319813_ + _hd1978019805_) + (let () + (declare (not safe)) + (_g1977219789_ + _g1977319792_))))) + (let () + (declare (not safe)) + (_g1977219789_ _g1977319792_))))) + (let () + (declare (not safe)) + (_g1977219789_ _g1977319792_))))) + (let () + (declare (not safe)) + (_g1977219789_ _g1977319792_)))))) + (declare (not safe)) + (_g1977119834_ _stx19769_)))) (define gxc#find-var-refs-ref% - (lambda (_stx17668_ _ids17669_) - (let* ((_g1767117684_ - (lambda (_g1767217681_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1767217681_))) - (_g1767017721_ - (lambda (_g1767217687_) - (if (gx#stx-pair? _g1767217687_) - (let ((_e1767417689_ (gx#stx-e _g1767217687_))) - (let ((_hd1767517692_ + (lambda (_stx19713_ _ids19714_) + (let* ((_g1971619729_ + (lambda (_g1971719726_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1971719726_)))) + (_g1971519766_ + (lambda (_g1971719732_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1971719732_)) + (let ((_e1972119734_ + (let () + (declare (not safe)) + (gx#stx-e _g1971719732_)))) + (let ((_hd1972019737_ (let () (declare (not safe)) - (##car _e1767417689_))) - (_tl1767617694_ + (##car _e1972119734_))) + (_tl1971919739_ (let () (declare (not safe)) - (##cdr _e1767417689_)))) - (if (gx#stx-pair? _tl1767617694_) - (let ((_e1767717697_ (gx#stx-e _tl1767617694_))) - (let ((_hd1767817700_ + (##cdr _e1972119734_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1971919739_)) + (let ((_e1972419742_ + (let () + (declare (not safe)) + (gx#stx-e _tl1971919739_)))) + (let ((_hd1972319745_ (let () (declare (not safe)) - (##car _e1767717697_))) - (_tl1767917702_ + (##car _e1972419742_))) + (_tl1972219747_ (let () (declare (not safe)) - (##cdr _e1767717697_)))) - (if (gx#stx-null? _tl1767917702_) - ((lambda (_L17705_) - (find (lambda (_g1771617718_) - (gx#free-identifier=? - _L17705_ - _g1771617718_)) - _ids17669_)) - _hd1767817700_) - (_g1767117684_ _g1767217687_)))) - (_g1767117684_ _g1767217687_)))) - (_g1767117684_ _g1767217687_))))) - (_g1767017721_ _stx17668_)))) + (##cdr _e1972419742_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1972219747_)) + ((lambda (_L19750_) + (let ((__tmp22513 + (lambda (_g1976119763_) + (let () + (declare (not safe)) + (gx#free-identifier=? + _L19750_ + _g1976119763_))))) + (declare (not safe)) + (find __tmp22513 _ids19714_))) + _hd1972319745_) + (let () + (declare (not safe)) + (_g1971619729_ _g1971719732_))))) + (let () + (declare (not safe)) + (_g1971619729_ _g1971719732_))))) + (let () + (declare (not safe)) + (_g1971619729_ _g1971719732_)))))) + (declare (not safe)) + (_g1971519766_ _stx19713_)))) (define gxc#find-var-refs-setq% - (lambda (_stx17592_ _ids17593_) - (let* ((_g1759517612_ - (lambda (_g1759617609_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1759617609_))) - (_g1759417665_ - (lambda (_g1759617615_) - (if (gx#stx-pair? _g1759617615_) - (let ((_e1759917617_ (gx#stx-e _g1759617615_))) - (let ((_hd1760017620_ + (lambda (_stx19637_ _ids19638_) + (let* ((_g1964019657_ + (lambda (_g1964119654_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g1964119654_)))) + (_g1963919710_ + (lambda (_g1964119660_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g1964119660_)) + (let ((_e1964619662_ + (let () + (declare (not safe)) + (gx#stx-e _g1964119660_)))) + (let ((_hd1964519665_ (let () (declare (not safe)) - (##car _e1759917617_))) - (_tl1760117622_ + (##car _e1964619662_))) + (_tl1964419667_ (let () (declare (not safe)) - (##cdr _e1759917617_)))) - (if (gx#stx-pair? _tl1760117622_) - (let ((_e1760217625_ (gx#stx-e _tl1760117622_))) - (let ((_hd1760317628_ + (##cdr _e1964619662_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1964419667_)) + (let ((_e1964919670_ + (let () + (declare (not safe)) + (gx#stx-e _tl1964419667_)))) + (let ((_hd1964819673_ (let () (declare (not safe)) - (##car _e1760217625_))) - (_tl1760417630_ + (##car _e1964919670_))) + (_tl1964719675_ (let () (declare (not safe)) - (##cdr _e1760217625_)))) - (if (gx#stx-pair? _tl1760417630_) - (let ((_e1760517633_ - (gx#stx-e _tl1760417630_))) - (let ((_hd1760617636_ + (##cdr _e1964919670_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1964719675_)) + (let ((_e1965219678_ + (let () + (declare (not safe)) + (gx#stx-e _tl1964719675_)))) + (let ((_hd1965119681_ (let () (declare (not safe)) - (##car _e1760517633_))) - (_tl1760717638_ + (##car _e1965219678_))) + (_tl1965019683_ (let () (declare (not safe)) - (##cdr _e1760517633_)))) - (if (gx#stx-null? _tl1760717638_) - ((lambda (_L17641_ _L17642_) - (let ((_$e17662_ - (find (lambda (_g1765717659_) - (gx#free-identifier=? + (##cdr _e1965219678_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1965019683_)) + ((lambda (_L19686_ _L19687_) + (let ((_$e19707_ + (let ((__tmp22514 + (lambda (_g1970219704_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L17642_ - _g1765717659_)) - _ids17593_))) + (let () + (declare (not safe)) + (gx#free-identifier=? _L19687_ _g1970219704_))))) + (declare (not safe)) + (find __tmp22514 _ids19638_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e17662_ - _$e17662_ - (gxc#compile-e - _L17641_ - _ids17593_)))) - _hd1760617636_ - _hd1760317628_) - (_g1759517612_ _g1759617615_)))) - (_g1759517612_ _g1759617615_)))) - (_g1759517612_ _g1759617615_)))) - (_g1759517612_ _g1759617615_))))) - (_g1759417665_ _stx17592_)))))) + (if _$e19707_ + _$e19707_ + (let () + (declare (not safe)) + (gxc#compile-e + _L19686_ + _ids19638_))))) + _hd1965119681_ + _hd1964819673_) + (let () + (declare (not safe)) + (_g1964019657_ + _g1964119660_))))) + (let () + (declare (not safe)) + (_g1964019657_ _g1964119660_))))) + (let () + (declare (not safe)) + (_g1964019657_ _g1964119660_))))) + (let () + (declare (not safe)) + (_g1964019657_ _g1964119660_)))))) + (declare (not safe)) + (_g1963919710_ _stx19637_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize.ssxi.ss index e8b152149..14719fd62 100644 --- a/src/bootstrap/gerbil/compiler/optimize.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize.ssxi.ss @@ -14,36 +14,17 @@ package: gerbil/compiler (declare-type gxc#generate-ssxi-define-values% (@lambda 1 #f)) (declare-type gxc#generate-ssxi-call% (@lambda 1 #f)) (declare-type gxc#!alias::typedecl (@lambda 1 #f)) - (declare-method gxc#!alias::t typedecl gxc#!alias::typedecl #f) (declare-type gxc#!struct-type::typedecl (@lambda 1 #f)) - (declare-method gxc#!struct-type::t typedecl gxc#!struct-type::typedecl #f) (declare-type gxc#!struct-pred::typedecl (@lambda 1 #f)) - (declare-method gxc#!struct-pred::t typedecl gxc#!struct-pred::typedecl #f) (declare-type gxc#!struct-cons::typedecl (@lambda 1 #f)) - (declare-method gxc#!struct-cons::t typedecl gxc#!struct-cons::typedecl #f) (declare-type gxc#!struct-getf::typedecl (@lambda 1 #f)) - (declare-method gxc#!struct-getf::t typedecl gxc#!struct-getf::typedecl #f) (declare-type gxc#!struct-setf::typedecl (@lambda 1 #f)) - (declare-method gxc#!struct-setf::t typedecl gxc#!struct-setf::typedecl #f) (declare-type gxc#!class-type::typedecl (@lambda 1 #f)) - (declare-method gxc#!class-type::t typedecl gxc#!class-type::typedecl #f) (declare-type gxc#!class-pred::typedecl (@lambda 1 #f)) - (declare-method gxc#!class-pred::t typedecl gxc#!class-pred::typedecl #f) (declare-type gxc#!class-cons::typedecl (@lambda 1 #f)) - (declare-method gxc#!class-cons::t typedecl gxc#!class-cons::typedecl #f) (declare-type gxc#!class-getf::typedecl (@lambda 1 #f)) - (declare-method gxc#!class-getf::t typedecl gxc#!class-getf::typedecl #f) (declare-type gxc#!class-setf::typedecl (@lambda 1 #f)) - (declare-method gxc#!class-setf::t typedecl gxc#!class-setf::typedecl #f) (declare-type gxc#!lambda::typedecl (@lambda 1 #f)) - (declare-method gxc#!lambda::t typedecl gxc#!lambda::typedecl #f) (declare-type gxc#!case-lambda::typedecl (@lambda 1 #f)) - (declare-method gxc#!case-lambda::t typedecl gxc#!case-lambda::typedecl #f) (declare-type gxc#!kw-lambda::typedecl (@lambda 1 #f)) - (declare-method gxc#!kw-lambda::t typedecl gxc#!kw-lambda::typedecl #f) - (declare-type gxc#!kw-lambda-primary::typedecl (@lambda 1 #f)) - (declare-method - gxc#!kw-lambda-primary::t - typedecl - gxc#!kw-lambda-primary::typedecl - #f)) + (declare-type gxc#!kw-lambda-primary::typedecl (@lambda 1 #f))) diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index 5f065496b..5a8fb88ec 100644 --- a/src/bootstrap/gerbil/compiler/optimize__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize__0.scm @@ -1,1553 +1,2215 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1695199296) + (define gerbil/compiler/optimize::timestamp 1695292410) (begin (define gxc#optimizer-info-init! (lambda () (if (gxc#current-compile-optimizer-info) '#!void (gxc#current-compile-optimizer-info - (let ((__obj63885 (make-object gxc#optimizer-info::t '3))) - (gxc#optimizer-info:::init! __obj63885) - __obj63885))))) + (let ((__obj67880 (make-object gxc#optimizer-info::t '3))) + (let () + (declare (not safe)) + (gxc#optimizer-info:::init! __obj67880)) + __obj67880))))) (define gxc#optimize! - (lambda (_ctx63578_) - (call-with-parameters - (lambda () - (gxc#optimizer-load-ssxi-deps _ctx63578_) - (table-set! - (##structure-ref - (gxc#current-compile-optimizer-info) - '2 - gxc#optimizer-info::t - '#f) - (##structure-ref _ctx63578_ '1 gx#expander-context::t '#f) - '#t) - (let ((_code63581_ - (gxc#optimize-source - (##structure-ref _ctx63578_ '11 gx#module-context::t '#f)))) - (##structure-set! - _ctx63578_ - _code63581_ - '11 - gx#module-context::t - '#f))) - gxc#current-compile-mutators - (make-table 'test: eq?) - gxc#current-compile-local-type - (make-table 'test: eq?)))) + (lambda (_ctx67573_) + (let ((__tmp67884 + (lambda () + (let () + (declare (not safe)) + (gxc#optimizer-load-ssxi-deps _ctx67573_)) + (let ((__tmp67886 + (##structure-ref + (gxc#current-compile-optimizer-info) + '2 + gxc#optimizer-info::t + '#f)) + (__tmp67885 + (##structure-ref + _ctx67573_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (table-set! __tmp67886 __tmp67885 '#t)) + (let ((_code67576_ + (let ((__tmp67887 + (##structure-ref + _ctx67573_ + '11 + gx#module-context::t + '#f))) + (declare (not safe)) + (gxc#optimize-source __tmp67887)))) + (##structure-set! + _ctx67573_ + _code67576_ + '11 + gx#module-context::t + '#f)))) + (__tmp67883 + (let () (declare (not safe)) (make-table 'test: eq?))) + (__tmp67882 + (let () (declare (not safe)) (make-table 'test: eq?)))) + (declare (not safe)) + (call-with-parameters + __tmp67884 + gxc#current-compile-mutators + __tmp67883 + gxc#current-compile-local-type + __tmp67882)))) (define gxc#optimizer-load-ssxi-deps - (lambda (_ctx63523_) - (letrec* ((_deps63525_ - (let* ((_imports63569_ + (lambda (_ctx67518_) + (letrec* ((_deps67520_ + (let* ((_imports67564_ (##structure-ref - _ctx63523_ + _ctx67518_ '8 gx#module-context::t '#f)) - (_$e63571_ (gx#core-context-prelude__% _ctx63523_))) - (if _$e63571_ - ((lambda (_g6357363575_) - (cons _g6357363575_ _imports63569_)) - _$e63571_) - _imports63569_)))) - (let _lp63527_ ((_rest63529_ _deps63525_)) - (let* ((_rest6353063538_ _rest63529_) - (_else6353263546_ (lambda () '#!void)) - (_K6353463557_ - (lambda (_rest63549_ _hd63550_) + (_$e67566_ + (let () + (declare (not safe)) + (gx#core-context-prelude__% _ctx67518_)))) + (if _$e67566_ + ((lambda (_g6756867570_) + (let () + (declare (not safe)) + (cons _g6756867570_ _imports67564_))) + _$e67566_) + _imports67564_)))) + (let _lp67522_ ((_rest67524_ _deps67520_)) + (let* ((_rest6752567533_ _rest67524_) + (_else6752767541_ (lambda () '#!void)) + (_K6752967552_ + (lambda (_rest67544_ _hd67545_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd63550_ + _hd67545_ 'gx#module-context::t)) (begin - (if (table-ref - (##structure-ref - (gxc#current-compile-optimizer-info) - '2 - gxc#optimizer-info::t - '#f) - (##structure-ref - _hd63550_ - '1 - gx#expander-context::t - '#f) - '#f) + (if (let ((__tmp67901 + (##structure-ref + (gxc#current-compile-optimizer-info) + '2 + gxc#optimizer-info::t + '#f)) + (__tmp67900 + (##structure-ref + _hd67545_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (table-ref __tmp67901 __tmp67900 '#f)) '#!void (begin - (let ((_$e63552_ - (gx#core-context-prelude__% - _hd63550_))) - (if _$e63552_ - ((lambda (_pre63555_) - (_lp63527_ - (cons _pre63555_ - (##structure-ref - _hd63550_ - '8 - gx#module-context::t - '#f)))) - _$e63552_) - (_lp63527_ - (##structure-ref - _hd63550_ - '8 - gx#module-context::t - '#f)))) - (gxc#optimizer-load-ssxi _hd63550_))) - (_lp63527_ _rest63549_)) + (let ((_$e67547_ + (let () + (declare (not safe)) + (gx#core-context-prelude__% + _hd67545_)))) + (if _$e67547_ + ((lambda (_pre67550_) + (let ((__tmp67898 + (let ((__tmp67899 + (##structure-ref + _hd67545_ + '8 + gx#module-context::t + '#f))) + (declare (not safe)) + (cons _pre67550_ + __tmp67899)))) + (declare (not safe)) + (_lp67522_ __tmp67898))) + _$e67547_) + (let ((__tmp67897 + (##structure-ref + _hd67545_ + '8 + gx#module-context::t + '#f))) + (declare (not safe)) + (_lp67522_ __tmp67897)))) + (let () + (declare (not safe)) + (gxc#optimizer-load-ssxi _hd67545_)))) + (let () + (declare (not safe)) + (_lp67522_ _rest67544_))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd63550_ + _hd67545_ 'gx#prelude-context::t)) (begin - (if (table-ref - (##structure-ref - (gxc#current-compile-optimizer-info) - '2 - gxc#optimizer-info::t - '#f) - (##structure-ref - _hd63550_ - '1 - gx#expander-context::t - '#f) - '#f) + (if (let ((__tmp67896 + (##structure-ref + (gxc#current-compile-optimizer-info) + '2 + gxc#optimizer-info::t + '#f)) + (__tmp67895 + (##structure-ref + _hd67545_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (table-ref __tmp67896 __tmp67895 '#f)) '#!void (begin - (_lp63527_ - (##structure-ref - _hd63550_ - '7 - gx#prelude-context::t - '#f)) - (gxc#optimizer-load-ssxi _hd63550_))) - (_lp63527_ _rest63549_)) + (let ((__tmp67894 + (##structure-ref + _hd67545_ + '7 + gx#prelude-context::t + '#f))) + (declare (not safe)) + (_lp67522_ __tmp67894)) + (let () + (declare (not safe)) + (gxc#optimizer-load-ssxi _hd67545_)))) + (let () + (declare (not safe)) + (_lp67522_ _rest67544_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd63550_ + _hd67545_ 'gx#module-import::t)) - (_lp63527_ - (cons (##direct-structure-ref - _hd63550_ - '1 - gx#module-import::t - '#f) - _rest63549_)) + (let ((__tmp67892 + (let ((__tmp67893 + (##direct-structure-ref + _hd67545_ + '1 + gx#module-import::t + '#f))) + (declare (not safe)) + (cons __tmp67893 _rest67544_)))) + (declare (not safe)) + (_lp67522_ __tmp67892)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd63550_ + _hd67545_ 'gx#module-export::t)) - (_lp63527_ - (cons (##direct-structure-ref - _hd63550_ - '1 - gx#module-export::t - '#f) - _rest63549_)) + (let ((__tmp67890 + (let ((__tmp67891 + (##direct-structure-ref + _hd67545_ + '1 + gx#module-export::t + '#f))) + (declare (not safe)) + (cons __tmp67891 _rest67544_)))) + (declare (not safe)) + (_lp67522_ __tmp67890)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd63550_ + _hd67545_ 'gx#import-set::t)) - (_lp63527_ - (cons (##direct-structure-ref - _hd63550_ - '1 - gx#import-set::t - '#f) - _rest63549_)) + (let ((__tmp67888 + (let ((__tmp67889 + (##direct-structure-ref + _hd67545_ + '1 + gx#import-set::t + '#f))) + (declare (not safe)) + (cons __tmp67889 + _rest67544_)))) + (declare (not safe)) + (_lp67522_ __tmp67888)) (error '"Unexpected module import" - _hd63550_))))))))) - (if (let () (declare (not safe)) (##pair? _rest6353063538_)) - (let ((_hd6353563560_ + _hd67545_))))))))) + (if (let () (declare (not safe)) (##pair? _rest6752567533_)) + (let ((_hd6753067555_ (let () (declare (not safe)) - (##car _rest6353063538_))) - (_tl6353663562_ + (##car _rest6752567533_))) + (_tl6753167557_ (let () (declare (not safe)) - (##cdr _rest6353063538_)))) - (let* ((_hd63565_ _hd6353563560_) - (_rest63567_ _tl6353663562_)) - (_K6353463557_ _rest63567_ _hd63565_))) + (##cdr _rest6752567533_)))) + (let* ((_hd67560_ _hd6753067555_) + (_rest67562_ _tl6753167557_)) + (declare (not safe)) + (_K6752967552_ _rest67562_ _hd67560_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_ctx63503_) + (lambda (_ctx67498_) (if (and (let () (declare (not safe)) - (##structure-instance-of? _ctx63503_ 'gx#module-context::t)) - (list? (##structure-ref - _ctx63503_ + (##structure-instance-of? _ctx67498_ 'gx#module-context::t)) + (let ((__tmp67902 + (##structure-ref + _ctx67498_ '7 gx#module-context::t '#f))) + (declare (not safe)) + (list? __tmp67902))) '#!void - (let* ((_ht63505_ + (let* ((_ht67500_ (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (_id63507_ - (##structure-ref _ctx63503_ '1 gx#expander-context::t '#f)) - (_mod63509_ (table-ref _ht63505_ _id63507_ '#f))) - (let ((_$e63512_ _mod63509_)) - (if _$e63512_ - _$e63512_ - (let* ((_mod63515_ (gxc#optimizer-import-ssxi _ctx63503_)) - (_val63520_ - (let ((_$e63517_ _mod63515_)) - (if _$e63517_ _$e63517_ '#!void)))) - (table-set! _ht63505_ _id63507_ _val63520_) - _val63520_))))))) + (_id67502_ + (##structure-ref _ctx67498_ '1 gx#expander-context::t '#f)) + (_mod67504_ + (let () + (declare (not safe)) + (table-ref _ht67500_ _id67502_ '#f)))) + (let ((_$e67507_ _mod67504_)) + (if _$e67507_ + _$e67507_ + (let* ((_mod67510_ + (let () + (declare (not safe)) + (gxc#optimizer-import-ssxi _ctx67498_))) + (_val67515_ + (let ((_$e67512_ _mod67510_)) + (if _$e67512_ _$e67512_ '#!void)))) + (let () + (declare (not safe)) + (table-set! _ht67500_ _id67502_ _val67515_)) + _val67515_))))))) (define gxc#optimizer-import-ssxi - (lambda (_ctx63480_) - (letrec ((_catch-e63482_ - (lambda (_exn63501_) + (lambda (_ctx67475_) + (letrec ((_catch-e67477_ + (lambda (_exn67496_) (if (gxc#current-compile-verbose) (begin (displayln '"Failed to load ssxi module for " (##structure-ref - _ctx63480_ + _ctx67475_ '1 gx#expander-context::t '#f)) - (display-exception _exn63501_)) + (let () + (declare (not safe)) + (display-exception _exn67496_))) '#!void) '#f)) - (_import-e63483_ + (_import-e67478_ (lambda () - (let* ((_str-id63486_ + (let* ((_str-id67481_ (string-append - (gxc#module-id->path-string - (##structure-ref - _ctx63480_ - '1 - gx#expander-context::t - '#f)) + (let ((__tmp67903 + (##structure-ref + _ctx67475_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (gxc#module-id->path-string __tmp67903)) '".ssxi")) - (_artefact-path63494_ - (let ((_odir6348763489_ + (_artefact-path67489_ + (let ((_odir6748267484_ (gxc#current-compile-output-dir))) - (if _odir6348763489_ - (let ((_odir63492_ _odir6348763489_)) - (path-expand - (string-append _str-id63486_ '".ss") - _odir63492_)) + (if _odir6748267484_ + (let* ((_odir67487_ _odir6748267484_) + (__tmp67904 + (string-append + _str-id67481_ + '".ss"))) + (declare (not safe)) + (path-expand __tmp67904 _odir67487_)) '#f))) - (_library-path63496_ - (string->symbol - (string-append '":" _str-id63486_ '".ss"))) - (_ssxi-path63498_ - (if (and _artefact-path63494_ - (file-exists? _artefact-path63494_)) - _artefact-path63494_ - _library-path63496_))) - (gxc#verbose '"Loading ssxi module " _ssxi-path63498_) - (gx#import-module__% _ssxi-path63498_ '#t '#t))))) - (if (##structure-ref _ctx63480_ '1 gx#expander-context::t '#f) - (with-exception-catcher _catch-e63482_ _import-e63483_) + (_library-path67491_ + (let ((__tmp67905 + (string-append '":" _str-id67481_ '".ss"))) + (declare (not safe)) + (string->symbol __tmp67905))) + (_ssxi-path67493_ + (if (and _artefact-path67489_ + (let () + (declare (not safe)) + (file-exists? _artefact-path67489_))) + _artefact-path67489_ + _library-path67491_))) + (let () + (declare (not safe)) + (gxc#verbose '"Loading ssxi module " _ssxi-path67493_)) + (let () + (declare (not safe)) + (gx#import-module__% _ssxi-path67493_ '#t '#t)))))) + (if (##structure-ref _ctx67475_ '1 gx#expander-context::t '#f) + (let () + (declare (not safe)) + (with-exception-catcher _catch-e67477_ _import-e67478_)) '#f)))) (define gxc#optimize-source - (lambda (_stx63471_) - (gxc#apply-collect-mutators _stx63471_) - (gxc#apply-collect-methods _stx63471_) - (gxc#apply-collect-top-level-type-info _stx63471_) - (let* ((_stx63473_ (gxc#apply-generate-method-specializers _stx63471_)) - (_stx63475_ (gxc#apply-lift-top-lambdas _stx63473_))) - (gxc#apply-collect-type-info _stx63475_) - (let ((_stx63478_ (gxc#apply-optimize-annotated _stx63475_))) - (gxc#apply-optimize-call _stx63478_))))) + (lambda (_stx67466_) + (let () (declare (not safe)) (gxc#apply-collect-mutators _stx67466_)) + (let () (declare (not safe)) (gxc#apply-collect-methods _stx67466_)) + (let () + (declare (not safe)) + (gxc#apply-collect-top-level-type-info _stx67466_)) + (let* ((_stx67468_ + (let () + (declare (not safe)) + (gxc#apply-generate-method-specializers _stx67466_))) + (_stx67470_ + (let () + (declare (not safe)) + (gxc#apply-lift-top-lambdas _stx67468_)))) + (let () + (declare (not safe)) + (gxc#apply-collect-type-info _stx67470_)) + (let ((_stx67473_ + (let () + (declare (not safe)) + (gxc#apply-optimize-annotated _stx67470_)))) + (declare (not safe)) + (gxc#apply-optimize-call _stx67473_))))) (define gxc#&generate-ssxi - (make-promise - (lambda () - (let ((_tbl63468_ (make-table 'test: eq?))) - (hash-copy! _tbl63468_ (force gxc#&generate-runtime-empty)) - (table-set! _tbl63468_ '%#begin gxc#generate-runtime-begin%) - (table-set! - _tbl63468_ - '%#begin-syntax - gxc#generate-ssxi-begin-syntax%) - (table-set! _tbl63468_ '%#module gxc#generate-ssxi-module%) - (table-set! - _tbl63468_ - '%#define-values - gxc#generate-ssxi-define-values%) - (table-set! _tbl63468_ '%#call gxc#generate-ssxi-call%) - _tbl63468_)))) + (let ((__tmp67906 + (lambda () + (let ((_tbl67463_ + (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp67907 + (let () + (declare (not safe)) + (force gxc#&generate-runtime-empty)))) + (declare (not safe)) + (hash-copy! _tbl67463_ __tmp67907)) + (let () + (declare (not safe)) + (table-set! + _tbl67463_ + '%#begin + gxc#generate-runtime-begin%)) + (let () + (declare (not safe)) + (table-set! + _tbl67463_ + '%#begin-syntax + gxc#generate-ssxi-begin-syntax%)) + (let () + (declare (not safe)) + (table-set! _tbl67463_ '%#module gxc#generate-ssxi-module%)) + (let () + (declare (not safe)) + (table-set! + _tbl67463_ + '%#define-values + gxc#generate-ssxi-define-values%)) + (let () + (declare (not safe)) + (table-set! _tbl67463_ '%#call gxc#generate-ssxi-call%)) + _tbl67463_)))) + (declare (not safe)) + (make-promise __tmp67906))) (define gxc#apply-generate-ssxi - (lambda (_stx63461_ . _args63463_) - (call-with-parameters - (lambda () (apply gxc#compile-e _stx63461_ _args63463_)) - gxc#current-compile-methods - (force gxc#&generate-ssxi)))) + (lambda (_stx67456_ . _args67458_) + (let ((__tmp67909 + (lambda () (apply gxc#compile-e _stx67456_ _args67458_))) + (__tmp67908 + (let () (declare (not safe)) (force gxc#&generate-ssxi)))) + (declare (not safe)) + (call-with-parameters + __tmp67909 + gxc#current-compile-methods + __tmp67908)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_stx63422_) - (let* ((_g6342463434_ - (lambda (_g6342563431_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6342563431_))) - (_g6342363458_ - (lambda (_g6342563437_) - (if (gx#stx-pair? _g6342563437_) - (let ((_e6342763439_ (gx#stx-e _g6342563437_))) - (let ((_hd6342863442_ + (lambda (_stx67417_) + (let* ((_g6741967429_ + (lambda (_g6742067426_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g6742067426_)))) + (_g6741867453_ + (lambda (_g6742067432_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g6742067432_)) + (let ((_e6742467434_ + (let () + (declare (not safe)) + (gx#stx-e _g6742067432_)))) + (let ((_hd6742367437_ (let () (declare (not safe)) - (##car _e6342763439_))) - (_tl6342963444_ + (##car _e6742467434_))) + (_tl6742267439_ (let () (declare (not safe)) - (##cdr _e6342763439_)))) - ((lambda (_L63447_) - (call-with-parameters - (lambda () - (gxc#generate-runtime-begin% _stx63422_)) - gx#current-expander-phi - (fx+ (gx#current-expander-phi) '1))) - _tl6342963444_))) - (_g6342463434_ _g6342563437_))))) - (_g6342363458_ _stx63422_)))) + (##cdr _e6742467434_)))) + ((lambda (_L67442_) + (let ((__tmp67912 + (lambda () + (let () + (declare (not safe)) + (gxc#generate-runtime-begin% + _stx67417_)))) + (__tmp67910 + (let ((__tmp67911 + (gx#current-expander-phi))) + (declare (not safe)) + (fx+ __tmp67911 '1)))) + (declare (not safe)) + (call-with-parameters + __tmp67912 + gx#current-expander-phi + __tmp67910))) + _tl6742267439_))) + (let () + (declare (not safe)) + (_g6741967429_ _g6742067432_)))))) + (declare (not safe)) + (_g6741867453_ _stx67417_)))) (define gxc#generate-ssxi-module% - (lambda (_stx63362_) - (let* ((_g6336463378_ - (lambda (_g6336563375_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6336563375_))) - (_g6336363419_ - (lambda (_g6336563381_) - (if (gx#stx-pair? _g6336563381_) - (let ((_e6336863383_ (gx#stx-e _g6336563381_))) - (let ((_hd6336963386_ + (lambda (_stx67357_) + (let* ((_g6735967373_ + (lambda (_g6736067370_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g6736067370_)))) + (_g6735867414_ + (lambda (_g6736067376_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _g6736067376_)) + (let ((_e6736567378_ + (let () + (declare (not safe)) + (gx#stx-e _g6736067376_)))) + (let ((_hd6736467381_ (let () (declare (not safe)) - (##car _e6336863383_))) - (_tl6337063388_ + (##car _e6736567378_))) + (_tl6736367383_ (let () (declare (not safe)) - (##cdr _e6336863383_)))) - (if (gx#stx-pair? _tl6337063388_) - (let ((_e6337163391_ (gx#stx-e _tl6337063388_))) - (let ((_hd6337263394_ + (##cdr _e6736567378_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6736367383_)) + (let ((_e6736867386_ + (let () + (declare (not safe)) + (gx#stx-e _tl6736367383_)))) + (let ((_hd6736767389_ (let () (declare (not safe)) - (##car _e6337163391_))) - (_tl6337363396_ + (##car _e6736867386_))) + (_tl6736667391_ (let () (declare (not safe)) - (##cdr _e6337163391_)))) - ((lambda (_L63399_ _L63400_) - (let* ((_ctx63413_ - (gx#syntax-local-e__0 _L63400_)) - (_code63415_ + (##cdr _e6736867386_)))) + ((lambda (_L67394_ _L67395_) + (let* ((_ctx67408_ + (let () + (declare (not safe)) + (gx#syntax-local-e__0 + _L67395_))) + (_code67410_ (##structure-ref - _ctx63413_ + _ctx67408_ '11 gx#module-context::t '#f))) - (call-with-parameters - (lambda () (gxc#compile-e _code63415_)) - gx#current-expander-context - _ctx63413_))) - _tl6337363396_ - _hd6337263394_))) - (_g6336463378_ _g6336563381_)))) - (_g6336463378_ _g6336563381_))))) - (_g6336363419_ _stx63362_)))) + (let ((__tmp67913 + (lambda () + (let () + (declare (not safe)) + (gxc#compile-e + _code67410_))))) + (declare (not safe)) + (call-with-parameters + __tmp67913 + gx#current-expander-context + _ctx67408_)))) + _tl6736667391_ + _hd6736767389_))) + (let () + (declare (not safe)) + (_g6735967373_ _g6736067376_))))) + (let () + (declare (not safe)) + (_g6735967373_ _g6736067376_)))))) + (declare (not safe)) + (_g6735867414_ _stx67357_)))) (define gxc#generate-ssxi-define-values% - (lambda (_stx63172_) - (letrec ((_generate-e63174_ - (lambda (_id63351_) - (let* ((_sym63353_ - (if (gx#identifier? (gx#datum->syntax__0 '#f 'id)) - (gxc#identifier-symbol _id63351_) + (lambda (_stx67167_) + (letrec ((_generate-e67169_ + (lambda (_id67346_) + (let* ((_sym67348_ + (if (let ((__tmp67914 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'id)))) + (declare (not safe)) + (gx#identifier? __tmp67914)) + (let () + (declare (not safe)) + (gxc#identifier-symbol _id67346_)) '#f)) - (_$e63355_ - (if _sym63353_ - (gxc#optimizer-lookup-type _sym63353_) + (_$e67350_ + (if _sym67348_ + (let () + (declare (not safe)) + (gxc#optimizer-lookup-type _sym67348_)) '#f))) - (if _$e63355_ - ((lambda (_type63358_) - (gxc#verbose '"generate typedecl " _sym63353_) - (let ((_typedecl63360_ - (let ((__method63886 - (method-ref _type63358_ 'typedecl))) - (if __method63886 - (__method63886 _type63358_) - (error '"Missing method" - _type63358_ - 'typedecl))))) - (cons 'declare-type - (cons _sym63353_ - (cons _typedecl63360_ '()))))) - _$e63355_) + (if _$e67350_ + ((lambda (_type67353_) + (let () + (declare (not safe)) + (gxc#verbose '"generate typedecl " _sym67348_)) + (let* ((_typedecl67355_ + (let ((__method67881 + (let () + (declare (not safe)) + (method-ref + _type67353_ + 'typedecl)))) + (if __method67881 + (__method67881 _type67353_) + (error '"Missing method" + _type67353_ + 'typedecl)))) + (__tmp67915 + (let ((__tmp67916 + (let () + (declare (not safe)) + (cons _typedecl67355_ '())))) + (declare (not safe)) + (cons _sym67348_ __tmp67916)))) + (declare (not safe)) + (cons 'declare-type __tmp67915))) + _$e67350_) '(begin)))))) - (let* ((___stx6358463585_ _stx63172_) - (_g6317763215_ + (let* ((___stx6757967580_ _stx67167_) + (_g6717267210_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx6358463585_)))) - (let ((___kont6358663587_ - (lambda (_L63333_) (_generate-e63174_ _L63333_))) - (___kont6358863589_ - (lambda (_L63268_) - (let ((_types63294_ - (map _generate-e63174_ - (foldr1 (lambda (_g6328663289_ _g6328763291_) - (cons _g6328663289_ _g6328763291_)) - '() - _L63268_)))) - (cons 'begin _types63294_))))) - (let ((___match6363963640_ - (lambda (_e6319363220_ - _hd6319463223_ - _tl6319563225_ - _e6319663228_ - _hd6319763231_ - _tl6319863233_ - ___splice6359063591_ - _target6319963236_ - _tl6320163238_) - (letrec ((_loop6320263241_ - (lambda (_hd6320063244_ _id6320663246_) - (if (gx#stx-pair? _hd6320063244_) - (let ((_e6320363249_ - (gx#stx-e _hd6320063244_))) - (let ((_lp-tl6320563254_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx6757967580_))))) + (let ((___kont6758167582_ + (lambda (_L67328_) + (let () + (declare (not safe)) + (_generate-e67169_ _L67328_)))) + (___kont6758367584_ + (lambda (_L67263_) + (let ((_types67289_ + (let ((__tmp67917 + (let ((__tmp67918 + (lambda (_g6728167284_ _g6728267286_) + (let () + (declare (not safe)) + (cons _g6728167284_ + _g6728267286_))))) + (declare (not safe)) + (foldr1 __tmp67918 '() _L67263_)))) + (declare (not safe)) + (map _generate-e67169_ __tmp67917)))) + (declare (not safe)) + (cons 'begin _types67289_))))) + (let ((___match6763467635_ + (lambda (_e6719067215_ + _hd6718967218_ + _tl6718867220_ + _e6719367223_ + _hd6719267226_ + _tl6719167228_ + ___splice6758567586_ + _target6719467231_ + _tl6719667233_) + (letrec ((_loop6719767236_ + (lambda (_hd6719567239_ _id6720167241_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd6719567239_)) + (let ((_e6719867244_ + (let () + (declare (not safe)) + (gx#stx-e _hd6719567239_)))) + (let ((_lp-tl6720067249_ (let () (declare (not safe)) - (##cdr _e6320363249_))) - (_lp-hd6320463252_ + (##cdr _e6719867244_))) + (_lp-hd6719967247_ (let () (declare (not safe)) - (##car _e6320363249_)))) - (_loop6320263241_ - _lp-tl6320563254_ - (cons _lp-hd6320463252_ - _id6320663246_)))) - (let ((_id6320763257_ - (reverse _id6320663246_))) - (if (gx#stx-pair? _tl6319863233_) - (let ((_e6320863260_ - (gx#stx-e _tl6319863233_))) - (let ((_tl6321063265_ + (##car _e6719867244_)))) + (let ((__tmp67919 + (let () + (declare (not safe)) + (cons _lp-hd6719967247_ + _id6720167241_)))) + (declare (not safe)) + (_loop6719767236_ + _lp-tl6720067249_ + __tmp67919)))) + (let ((_id6720267252_ + (let () + (declare (not safe)) + (reverse _id6720167241_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6719167228_)) + (let ((_e6720567255_ + (let () + (declare (not safe)) + (gx#stx-e + _tl6719167228_)))) + (let ((_tl6720367260_ (let () (declare (not safe)) - (##cdr _e6320863260_))) - (_hd6320963263_ + (##cdr _e6720567255_))) + (_hd6720467258_ (let () (declare (not safe)) - (##car _e6320863260_)))) - (if (gx#stx-null? - _tl6321063265_) - (___kont6358863589_ - _id6320763257_) - (_g6317763215_)))) - (_g6317763215_))))))) - (_loop6320263241_ _target6319963236_ '()))))) - (if (gx#stx-pair? ___stx6358463585_) - (let ((_e6318063301_ (gx#stx-e ___stx6358463585_))) - (let ((_tl6318263306_ + (##car _e6720567255_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6720367260_)) + (___kont6758367584_ + _id6720267252_) + (let () + (declare (not safe)) + (_g6717267210_))))) + (let () + (declare (not safe)) + (_g6717267210_)))))))) + (let () + (declare (not safe)) + (_loop6719767236_ _target6719467231_ '())))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx6757967580_)) + (let ((_e6717767296_ + (let () + (declare (not safe)) + (gx#stx-e ___stx6757967580_)))) + (let ((_tl6717567301_ (let () (declare (not safe)) - (##cdr _e6318063301_))) - (_hd6318163304_ + (##cdr _e6717767296_))) + (_hd6717667299_ (let () (declare (not safe)) - (##car _e6318063301_)))) - (if (gx#stx-pair? _tl6318263306_) - (let ((_e6318363309_ (gx#stx-e _tl6318263306_))) - (let ((_tl6318563314_ + (##car _e6717767296_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6717567301_)) + (let ((_e6718067304_ + (let () + (declare (not safe)) + (gx#stx-e _tl6717567301_)))) + (let ((_tl6717867309_ (let () (declare (not safe)) - (##cdr _e6318363309_))) - (_hd6318463312_ + (##cdr _e6718067304_))) + (_hd6717967307_ (let () (declare (not safe)) - (##car _e6318363309_)))) - (if (gx#stx-pair? _hd6318463312_) - (let ((_e6318663317_ - (gx#stx-e _hd6318463312_))) - (let ((_tl6318863322_ + (##car _e6718067304_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd6717967307_)) + (let ((_e6718367312_ + (let () + (declare (not safe)) + (gx#stx-e _hd6717967307_)))) + (let ((_tl6718167317_ (let () (declare (not safe)) - (##cdr _e6318663317_))) - (_hd6318763320_ + (##cdr _e6718367312_))) + (_hd6718267315_ (let () (declare (not safe)) - (##car _e6318663317_)))) - (if (gx#stx-null? _tl6318863322_) - (if (gx#stx-pair? _tl6318563314_) - (let ((_e6318963325_ - (gx#stx-e - _tl6318563314_))) - (let ((_tl6319163330_ + (##car _e6718367312_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6718167317_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl6717867309_)) + (let ((_e6718667320_ + (let () + (declare (not safe)) + (gx#stx-e + _tl6717867309_)))) + (let ((_tl6718467325_ (let () (declare (not safe)) - (##cdr _e6318963325_))) - (_hd6319063328_ + (##cdr _e6718667320_))) + (_hd6718567323_ (let () (declare (not safe)) - (##car _e6318963325_)))) - (if (gx#stx-null? - _tl6319163330_) - (___kont6358663587_ - _hd6318763320_) - (if (gx#stx-pair/null? - _hd6318463312_) - (let ((___splice6359063591_ + (##car _e6718667320_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6718467325_)) + (___kont6758167582_ + _hd6718267315_) + (if (let () + (declare + (not safe)) + (gx#stx-pair/null? + _hd6717967307_)) + (let ((___splice6758567586_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _hd6318463312_ '0))) - (let ((_tl6320163238_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _hd6717967307_ '0)))) + (let ((_tl6719667233_ (let () (declare (not safe)) - (##vector-ref ___splice6359063591_ '1))) - (_target6319963236_ + (##vector-ref ___splice6758567586_ '1))) + (_target6719467231_ (let () (declare (not safe)) - (##vector-ref ___splice6359063591_ '0)))) - (if (gx#stx-null? _tl6320163238_) - (___match6363963640_ - _e6318063301_ - _hd6318163304_ - _tl6318263306_ - _e6318363309_ - _hd6318463312_ - _tl6318563314_ - ___splice6359063591_ - _target6319963236_ - _tl6320163238_) - (_g6317763215_)))) - (_g6317763215_))))) + (##vector-ref ___splice6758567586_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6719667233_)) + (___match6763467635_ + _e6717767296_ + _hd6717667299_ + _tl6717567301_ + _e6718067304_ + _hd6717967307_ + _tl6717867309_ + ___splice6758567586_ + _target6719467231_ + _tl6719667233_) + (let () (declare (not safe)) (_g6717267210_))))) + (let () (declare (not safe)) (_g6717267210_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? - _hd6318463312_) - (let ((___splice6359063591_ - (gx#syntax-split-splice - _hd6318463312_ - '0))) - (let ((_tl6320163238_ + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _hd6717967307_)) + (let ((___splice6758567586_ + (let () + (declare + (not safe)) + (gx#syntax-split-splice + _hd6717967307_ + '0)))) + (let ((_tl6719667233_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice6359063591_ '1))) - (_target6319963236_ + (##vector-ref ___splice6758567586_ '1))) + (_target6719467231_ (let () (declare (not safe)) - (##vector-ref ___splice6359063591_ '0)))) - (if (gx#stx-null? _tl6320163238_) - (___match6363963640_ - _e6318063301_ - _hd6318163304_ - _tl6318263306_ - _e6318363309_ - _hd6318463312_ - _tl6318563314_ - ___splice6359063591_ - _target6319963236_ - _tl6320163238_) - (_g6317763215_)))) + (##vector-ref ___splice6758567586_ '0)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl6719667233_)) + (___match6763467635_ + _e6717767296_ + _hd6717667299_ + _tl6717567301_ + _e6718067304_ + _hd6717967307_ + _tl6717867309_ + ___splice6758567586_ + _target6719467231_ + _tl6719667233_) + (let () (declare (not safe)) (_g6717267210_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6317763215_))) - (if (gx#stx-pair/null? - _hd6318463312_) - (let ((___splice6359063591_ - (gx#syntax-split-splice - _hd6318463312_ - '0))) - (let ((_tl6320163238_ + (let () + (declare (not safe)) + (_g6717267210_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _hd6717967307_)) + (let ((___splice6758567586_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd6717967307_ + '0)))) + (let ((_tl6719667233_ (let () (declare (not safe)) (##vector-ref - ___splice6359063591_ + ___splice6758567586_ '1))) - (_target6319963236_ + (_target6719467231_ (let () (declare (not safe)) (##vector-ref - ___splice6359063591_ + ___splice6758567586_ '0)))) - (if (gx#stx-null? - _tl6320163238_) - (___match6363963640_ - _e6318063301_ - _hd6318163304_ - _tl6318263306_ - _e6318363309_ - _hd6318463312_ - _tl6318563314_ - ___splice6359063591_ - _target6319963236_ - _tl6320163238_) - (_g6317763215_)))) - (_g6317763215_))))) - (if (gx#stx-pair/null? _hd6318463312_) - (let ((___splice6359063591_ - (gx#syntax-split-splice - _hd6318463312_ - '0))) - (let ((_tl6320163238_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6719667233_)) + (___match6763467635_ + _e6717767296_ + _hd6717667299_ + _tl6717567301_ + _e6718067304_ + _hd6717967307_ + _tl6717867309_ + ___splice6758567586_ + _target6719467231_ + _tl6719667233_) + (let () + (declare (not safe)) + (_g6717267210_))))) + (let () + (declare (not safe)) + (_g6717267210_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _hd6717967307_)) + (let ((___splice6758567586_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _hd6717967307_ + '0)))) + (let ((_tl6719667233_ (let () (declare (not safe)) (##vector-ref - ___splice6359063591_ + ___splice6758567586_ '1))) - (_target6319963236_ + (_target6719467231_ (let () (declare (not safe)) (##vector-ref - ___splice6359063591_ + ___splice6758567586_ '0)))) - (if (gx#stx-null? _tl6320163238_) - (___match6363963640_ - _e6318063301_ - _hd6318163304_ - _tl6318263306_ - _e6318363309_ - _hd6318463312_ - _tl6318563314_ - ___splice6359063591_ - _target6319963236_ - _tl6320163238_) - (_g6317763215_)))) - (_g6317763215_))))) - (_g6317763215_)))) - (_g6317763215_)))))))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6719667233_)) + (___match6763467635_ + _e6717767296_ + _hd6717667299_ + _tl6717567301_ + _e6718067304_ + _hd6717967307_ + _tl6717867309_ + ___splice6758567586_ + _target6719467231_ + _tl6719667233_) + (let () + (declare (not safe)) + (_g6717267210_))))) + (let () + (declare (not safe)) + (_g6717267210_)))))) + (let () (declare (not safe)) (_g6717267210_))))) + (let () (declare (not safe)) (_g6717267210_))))))))) (define gxc#generate-ssxi-call% - (lambda (_stx62726_) - (let* ((___stx6364263643_ _stx62726_) - (_g6273062832_ + (lambda (_stx66721_) + (let* ((___stx6763767638_ _stx66721_) + (_g6672566827_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx6364263643_)))) - (let ((___kont6364463645_ - (lambda (_L63122_ _L63123_ _L63124_ _L63125_ _L63126_) - (cons 'declare-method - (cons (gxc#identifier-symbol _L63125_) - (cons (gx#stx-e _L63124_) - (cons (gxc#identifier-symbol _L63123_) - (cons (gx#stx-e _L63122_) '()))))))) - (___kont6364663647_ - (lambda (_L62948_ _L62949_ _L62950_ _L62951_) - (cons 'declare-method - (cons (gxc#identifier-symbol _L62950_) - (cons (gx#stx-e _L62949_) - (cons (gxc#identifier-symbol _L62948_) - (cons '#f '()))))))) - (___kont6364863649_ (lambda () '(begin)))) - (let ((___match6377763778_ - (lambda (_e6273762994_ - _hd6273862997_ - _tl6273962999_ - _e6274063002_ - _hd6274163005_ - _tl6274263007_ - _e6274363010_ - _hd6274463013_ - _tl6274563015_ - _e6274663018_ - _hd6274763021_ - _tl6274863023_ - _e6274963026_ - _hd6275063029_ - _tl6275163031_ - _e6275263034_ - _hd6275363037_ - _tl6275463039_ - _e6275563042_ - _hd6275663045_ - _tl6275763047_ - _e6275863050_ - _hd6275963053_ - _tl6276063055_ - _e6276163058_ - _hd6276263061_ - _tl6276363063_ - _e6276463066_ - _hd6276563069_ - _tl6276663071_ - _e6276763074_ - _hd6276863077_ - _tl6276963079_ - _e6277063082_ - _hd6277163085_ - _tl6277263087_ - _e6277363090_ - _hd6277463093_ - _tl6277563095_ - _e6277663098_ - _hd6277763101_ - _tl6277863103_ - _e6277963106_ - _hd6278063109_ - _tl6278163111_ - _e6278263114_ - _hd6278363117_ - _tl6278463119_) - (let ((_L63122_ _hd6278363117_) - (_L63123_ _hd6277463093_) - (_L63124_ _hd6276563069_) - (_L63125_ _hd6275663045_) - (_L63126_ _hd6274763021_)) - (if (gxc#runtime-identifier=? _L63126_ 'bind-method!) - (___kont6364463645_ - _L63122_ - _L63123_ - _L63124_ - _L63125_ - _L63126_) - (___kont6364863649_)))))) - (if (gx#stx-pair? ___stx6364263643_) - (let ((_e6273762994_ (gx#stx-e ___stx6364263643_))) - (let ((_tl6273962999_ - (let () (declare (not safe)) (##cdr _e6273762994_))) - (_hd6273862997_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx6763767638_))))) + (let ((___kont6763967640_ + (lambda (_L67117_ _L67118_ _L67119_ _L67120_ _L67121_) + (let ((__tmp67920 + (let ((__tmp67927 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L67120_))) + (__tmp67921 + (let ((__tmp67926 + (let () + (declare (not safe)) + (gx#stx-e _L67119_))) + (__tmp67922 + (let ((__tmp67925 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L67118_))) + (__tmp67923 + (let ((__tmp67924 + (let () + (declare (not safe)) + (gx#stx-e _L67117_)))) + (declare (not safe)) + (cons __tmp67924 '())))) + (declare (not safe)) + (cons __tmp67925 __tmp67923)))) + (declare (not safe)) + (cons __tmp67926 __tmp67922)))) + (declare (not safe)) + (cons __tmp67927 __tmp67921)))) + (declare (not safe)) + (cons 'declare-method __tmp67920)))) + (___kont6764167642_ + (lambda (_L66943_ _L66944_ _L66945_ _L66946_) + (let ((__tmp67928 + (let ((__tmp67934 + (let () + (declare (not safe)) + (gxc#identifier-symbol _L66945_))) + (__tmp67929 + (let ((__tmp67933 + (let () + (declare (not safe)) + (gx#stx-e _L66944_))) + (__tmp67930 + (let ((__tmp67932 + (let () + (declare (not safe)) + (gxc#identifier-symbol + _L66943_))) + (__tmp67931 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp67932 __tmp67931)))) + (declare (not safe)) + (cons __tmp67933 __tmp67930)))) + (declare (not safe)) + (cons __tmp67934 __tmp67929)))) + (declare (not safe)) + (cons 'declare-method __tmp67928)))) + (___kont6764367644_ (lambda () '(begin)))) + (let ((___match6777267773_ + (lambda (_e6673466989_ + _hd6673366992_ + _tl6673266994_ + _e6673766997_ + _hd6673667000_ + _tl6673567002_ + _e6674067005_ + _hd6673967008_ + _tl6673867010_ + _e6674367013_ + _hd6674267016_ + _tl6674167018_ + _e6674667021_ + _hd6674567024_ + _tl6674467026_ + _e6674967029_ + _hd6674867032_ + _tl6674767034_ + _e6675267037_ + _hd6675167040_ + _tl6675067042_ + _e6675567045_ + _hd6675467048_ + _tl6675367050_ + _e6675867053_ + _hd6675767056_ + _tl6675667058_ + _e6676167061_ + _hd6676067064_ + _tl6675967066_ + _e6676467069_ + _hd6676367072_ + _tl6676267074_ + _e6676767077_ + _hd6676667080_ + _tl6676567082_ + _e6677067085_ + _hd6676967088_ + _tl6676867090_ + _e6677367093_ + _hd6677267096_ + _tl6677167098_ + _e6677667101_ + _hd6677567104_ + _tl6677467106_ + _e6677967109_ + _hd6677867112_ + _tl6677767114_) + (let ((_L67117_ _hd6677867112_) + (_L67118_ _hd6676967088_) + (_L67119_ _hd6676067064_) + (_L67120_ _hd6675167040_) + (_L67121_ _hd6674267016_)) + (if (let () + (declare (not safe)) + (gxc#runtime-identifier=? _L67121_ 'bind-method!)) + (___kont6763967640_ + _L67117_ + _L67118_ + _L67119_ + _L67120_ + _L67121_) + (___kont6764367644_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx6763767638_)) + (let ((_e6673466989_ + (let () + (declare (not safe)) + (gx#stx-e ___stx6763767638_)))) + (let ((_tl6673266994_ + (let () (declare (not safe)) (##cdr _e6673466989_))) + (_hd6673366992_ (let () (declare (not safe)) - (##car _e6273762994_)))) - (if (gx#stx-pair? _tl6273962999_) - (let ((_e6274063002_ (gx#stx-e _tl6273962999_))) - (let ((_tl6274263007_ + (##car _e6673466989_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6673266994_)) + (let ((_e6673766997_ + (let () + (declare (not safe)) + (gx#stx-e _tl6673266994_)))) + (let ((_tl6673567002_ (let () (declare (not safe)) - (##cdr _e6274063002_))) - (_hd6274163005_ + (##cdr _e6673766997_))) + (_hd6673667000_ (let () (declare (not safe)) - (##car _e6274063002_)))) - (if (gx#stx-pair? _hd6274163005_) - (let ((_e6274363010_ - (gx#stx-e _hd6274163005_))) - (let ((_tl6274563015_ + (##car _e6673766997_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd6673667000_)) + (let ((_e6674067005_ + (let () + (declare (not safe)) + (gx#stx-e _hd6673667000_)))) + (let ((_tl6673867010_ (let () (declare (not safe)) - (##cdr _e6274363010_))) - (_hd6274463013_ + (##cdr _e6674067005_))) + (_hd6673967008_ (let () (declare (not safe)) - (##car _e6274363010_)))) - (if (gx#identifier? _hd6274463013_) - (if (gx#stx-eq? - '%#ref - _hd6274463013_) - (if (gx#stx-pair? _tl6274563015_) - (let ((_e6274663018_ - (gx#stx-e - _tl6274563015_))) - (let ((_tl6274863023_ + (##car _e6674067005_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd6673967008_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _hd6673967008_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl6673867010_)) + (let ((_e6674367013_ + (let () + (declare (not safe)) + (gx#stx-e + _tl6673867010_)))) + (let ((_tl6674167018_ (let () (declare (not safe)) - (##cdr _e6274663018_))) - (_hd6274763021_ + (##cdr _e6674367013_))) + (_hd6674267016_ (let () (declare (not safe)) - (##car _e6274663018_)))) - (if (gx#stx-null? - _tl6274863023_) - (if (gx#stx-pair? - _tl6274263007_) - (let ((_e6274963026_ + (##car _e6674367013_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl6674167018_)) + (if (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl6274263007_))) - (let ((_tl6275163031_ + (not safe)) + (gx#stx-pair? _tl6673567002_)) + (let ((_e6674667021_ + (let () + (declare (not safe)) + (gx#stx-e _tl6673567002_)))) + (let ((_tl6674467026_ (let () (declare (not safe)) - (##cdr _e6274963026_))) - (_hd6275063029_ + (##cdr _e6674667021_))) + (_hd6674567024_ (let () (declare (not safe)) - (##car _e6274963026_)))) - (if (gx#stx-pair? _hd6275063029_) - (let ((_e6275263034_ (gx#stx-e _hd6275063029_))) - (let ((_tl6275463039_ + (##car _e6674667021_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd6674567024_)) + (let ((_e6674967029_ + (let () + (declare (not safe)) + (gx#stx-e _hd6674567024_)))) + (let ((_tl6674767034_ (let () (declare (not safe)) - (##cdr _e6275263034_))) - (_hd6275363037_ + (##cdr _e6674967029_))) + (_hd6674867032_ (let () (declare (not safe)) - (##car _e6275263034_)))) - (if (gx#identifier? _hd6275363037_) - (if (gx#stx-eq? '%#ref _hd6275363037_) - (if (gx#stx-pair? _tl6275463039_) - (let ((_e6275563042_ - (gx#stx-e - _tl6275463039_))) - (let ((_tl6275763047_ + (##car _e6674967029_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd6674867032_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd6674867032_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6674767034_)) + (let ((_e6675267037_ + (let () + (declare (not safe)) + (gx#stx-e + _tl6674767034_)))) + (let ((_tl6675067042_ (let () (declare (not safe)) - (##cdr _e6275563042_))) - (_hd6275663045_ + (##cdr _e6675267037_))) + (_hd6675167040_ (let () (declare (not safe)) - (##car _e6275563042_)))) - (if (gx#stx-null? - _tl6275763047_) - (if (gx#stx-pair? - _tl6275163031_) - (let ((_e6275863050_ + (##car _e6675267037_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6675067042_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl6674467026_)) + (let ((_e6675567045_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl6275163031_))) - (let ((_tl6276063055_ - (let () (declare (not safe)) (##cdr _e6275863050_))) - (_hd6275963053_ + (let () + (declare (not safe)) + (gx#stx-e _tl6674467026_)))) + (let ((_tl6675367050_ + (let () (declare (not safe)) (##cdr _e6675567045_))) + (_hd6675467048_ (let () (declare (not safe)) - (##car _e6275863050_)))) - (if (gx#stx-pair? _hd6275963053_) - (let ((_e6276163058_ (gx#stx-e _hd6275963053_))) - (let ((_tl6276363063_ + (##car _e6675567045_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd6675467048_)) + (let ((_e6675867053_ + (let () + (declare (not safe)) + (gx#stx-e _hd6675467048_)))) + (let ((_tl6675667058_ (let () (declare (not safe)) - (##cdr _e6276163058_))) - (_hd6276263061_ + (##cdr _e6675867053_))) + (_hd6675767056_ (let () (declare (not safe)) - (##car _e6276163058_)))) - (if (gx#identifier? _hd6276263061_) - (if (gx#stx-eq? '%#quote _hd6276263061_) - (if (gx#stx-pair? _tl6276363063_) - (let ((_e6276463066_ - (gx#stx-e _tl6276363063_))) - (let ((_tl6276663071_ + (##car _e6675867053_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd6675767056_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd6675767056_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6675667058_)) + (let ((_e6676167061_ + (let () + (declare (not safe)) + (gx#stx-e _tl6675667058_)))) + (let ((_tl6675967066_ (let () (declare (not safe)) - (##cdr _e6276463066_))) - (_hd6276563069_ + (##cdr _e6676167061_))) + (_hd6676067064_ (let () (declare (not safe)) - (##car _e6276463066_)))) - (if (gx#stx-null? _tl6276663071_) - (if (gx#stx-pair? - _tl6276063055_) - (let ((_e6276763074_ - (gx#stx-e - _tl6276063055_))) - (let ((_tl6276963079_ - (let () + (##car _e6676167061_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6675967066_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl6675367050_)) + (let ((_e6676467069_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e6276763074_))) - (_hd6276863077_ - (let () (declare (not safe)) (##car _e6276763074_)))) - (if (gx#stx-pair? _hd6276863077_) - (let ((_e6277063082_ (gx#stx-e _hd6276863077_))) - (let ((_tl6277263087_ + (not safe)) + (gx#stx-e _tl6675367050_)))) + (let ((_tl6676267074_ + (let () (declare (not safe)) (##cdr _e6676467069_))) + (_hd6676367072_ + (let () (declare (not safe)) (##car _e6676467069_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd6676367072_)) + (let ((_e6676767077_ + (let () + (declare (not safe)) + (gx#stx-e _hd6676367072_)))) + (let ((_tl6676567082_ (let () (declare (not safe)) - (##cdr _e6277063082_))) - (_hd6277163085_ + (##cdr _e6676767077_))) + (_hd6676667080_ (let () (declare (not safe)) - (##car _e6277063082_)))) - (if (gx#identifier? _hd6277163085_) - (if (gx#stx-eq? '%#ref _hd6277163085_) - (if (gx#stx-pair? _tl6277263087_) - (let ((_e6277363090_ - (gx#stx-e _tl6277263087_))) - (let ((_tl6277563095_ + (##car _e6676767077_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd6676667080_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _hd6676667080_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6676567082_)) + (let ((_e6677067085_ + (let () + (declare (not safe)) + (gx#stx-e _tl6676567082_)))) + (let ((_tl6676867090_ (let () (declare (not safe)) - (##cdr _e6277363090_))) - (_hd6277463093_ + (##cdr _e6677067085_))) + (_hd6676967088_ (let () (declare (not safe)) - (##car _e6277363090_)))) - (if (gx#stx-null? _tl6277563095_) - (if (gx#stx-pair? _tl6276963079_) - (let ((_e6277663098_ - (gx#stx-e - _tl6276963079_))) - (let ((_tl6277863103_ + (##car _e6677067085_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6676867090_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl6676267074_)) + (let ((_e6677367093_ + (let () + (declare (not safe)) + (gx#stx-e + _tl6676267074_)))) + (let ((_tl6677167098_ (let () (declare (not safe)) - (##cdr _e6277663098_))) - (_hd6277763101_ + (##cdr _e6677367093_))) + (_hd6677267096_ (let () (declare (not safe)) - (##car _e6277663098_)))) - (if (gx#stx-pair? - _hd6277763101_) - (let ((_e6277963106_ + (##car _e6677367093_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _hd6677267096_)) + (let ((_e6677667101_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd6277763101_))) - (let ((_tl6278163111_ - (let () (declare (not safe)) (##cdr _e6277963106_))) - (_hd6278063109_ + (let () + (declare (not safe)) + (gx#stx-e _hd6677267096_)))) + (let ((_tl6677467106_ + (let () (declare (not safe)) (##cdr _e6677667101_))) + (_hd6677567104_ (let () (declare (not safe)) - (##car _e6277963106_)))) - (if (gx#identifier? _hd6278063109_) - (if (gx#stx-eq? '%#quote _hd6278063109_) - (if (gx#stx-pair? _tl6278163111_) - (let ((_e6278263114_ - (gx#stx-e _tl6278163111_))) - (let ((_tl6278463119_ + (##car _e6677667101_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd6677567104_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd6677567104_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6677467106_)) + (let ((_e6677967109_ + (let () + (declare (not safe)) + (gx#stx-e _tl6677467106_)))) + (let ((_tl6677767114_ (let () (declare (not safe)) - (##cdr _e6278263114_))) - (_hd6278363117_ + (##cdr _e6677967109_))) + (_hd6677867112_ (let () (declare (not safe)) - (##car _e6278263114_)))) - (if (gx#stx-null? _tl6278463119_) - (if (gx#stx-null? _tl6277863103_) - (___match6377763778_ - _e6273762994_ - _hd6273862997_ - _tl6273962999_ - _e6274063002_ - _hd6274163005_ - _tl6274263007_ - _e6274363010_ - _hd6274463013_ - _tl6274563015_ - _e6274663018_ - _hd6274763021_ - _tl6274863023_ - _e6274963026_ - _hd6275063029_ - _tl6275163031_ - _e6275263034_ - _hd6275363037_ - _tl6275463039_ - _e6275563042_ - _hd6275663045_ - _tl6275763047_ - _e6275863050_ - _hd6275963053_ - _tl6276063055_ - _e6276163058_ - _hd6276263061_ - _tl6276363063_ - _e6276463066_ - _hd6276563069_ - _tl6276663071_ - _e6276763074_ - _hd6276863077_ - _tl6276963079_ - _e6277063082_ - _hd6277163085_ - _tl6277263087_ - _e6277363090_ - _hd6277463093_ - _tl6277563095_ - _e6277663098_ - _hd6277763101_ - _tl6277863103_ - _e6277963106_ - _hd6278063109_ - _tl6278163111_ - _e6278263114_ - _hd6278363117_ - _tl6278463119_) - (___kont6364863649_)) - (___kont6364863649_)))) - (___kont6364863649_)) - (___kont6364863649_)) - (___kont6364863649_)))) - (___kont6364863649_)))) + (##car _e6677967109_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6677767114_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6677167098_)) + (___match6777267773_ + _e6673466989_ + _hd6673366992_ + _tl6673266994_ + _e6673766997_ + _hd6673667000_ + _tl6673567002_ + _e6674067005_ + _hd6673967008_ + _tl6673867010_ + _e6674367013_ + _hd6674267016_ + _tl6674167018_ + _e6674667021_ + _hd6674567024_ + _tl6674467026_ + _e6674967029_ + _hd6674867032_ + _tl6674767034_ + _e6675267037_ + _hd6675167040_ + _tl6675067042_ + _e6675567045_ + _hd6675467048_ + _tl6675367050_ + _e6675867053_ + _hd6675767056_ + _tl6675667058_ + _e6676167061_ + _hd6676067064_ + _tl6675967066_ + _e6676467069_ + _hd6676367072_ + _tl6676267074_ + _e6676767077_ + _hd6676667080_ + _tl6676567082_ + _e6677067085_ + _hd6676967088_ + _tl6676867090_ + _e6677367093_ + _hd6677267096_ + _tl6677167098_ + _e6677667101_ + _hd6677567104_ + _tl6677467106_ + _e6677967109_ + _hd6677867112_ + _tl6677767114_) + (___kont6764367644_)) + (___kont6764367644_)))) + (___kont6764367644_)) + (___kont6764367644_)) + (___kont6764367644_)))) + (___kont6764367644_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? - _tl6276963079_) - (if (gxc#runtime-identifier=? - (gx#datum->syntax__0 - '#f - '-bind-method) - 'bind-method!) - (let ((_L62948_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6676267074_)) + (if (let ((__tmp67935 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd6277463093_) - (_L62949_ _hd6276563069_) - (_L62950_ _hd6275663045_) - (_L62951_ _hd6274763021_)) - (___kont6364663647_ _L62948_ _L62949_ _L62950_ _L62951_)) - (___kont6364863649_)) - (___kont6364863649_))) + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '-bind-method)))) + (declare (not safe)) + (gxc#runtime-identifier=? __tmp67935 'bind-method!)) + (let ((_L66943_ _hd6676967088_) + (_L66944_ _hd6676067064_) + (_L66945_ _hd6675167040_) + (_L66946_ _hd6674267016_)) + (___kont6764167642_ _L66943_ _L66944_ _L66945_ _L66946_)) + (___kont6764367644_)) + (___kont6764367644_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont6364863649_)))) - (___kont6364863649_)) - (___kont6364863649_)) - (___kont6364863649_)))) - (___kont6364863649_)))) - (___kont6364863649_)) + (___kont6764367644_)))) + (___kont6764367644_)) + (___kont6764367644_)) + (___kont6764367644_)))) + (___kont6764367644_)))) + (___kont6764367644_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont6364863649_)))) - (___kont6364863649_)) - (___kont6364863649_)) - (___kont6364863649_)))) - (___kont6364863649_)))) - (___kont6364863649_)) - (___kont6364863649_)))) + (___kont6764367644_)))) + (___kont6764367644_)) + (___kont6764367644_)) + (___kont6764367644_)))) + (___kont6764367644_)))) + (___kont6764367644_)) + (___kont6764367644_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont6364863649_)) - (___kont6364863649_)) - (___kont6364863649_)))) - (___kont6364863649_)))) - (___kont6364863649_)) - (___kont6364863649_)))) + (___kont6764367644_)) + (___kont6764367644_)) + (___kont6764367644_)))) + (___kont6764367644_)))) + (___kont6764367644_)) + (___kont6764367644_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont6364863649_)) - (___kont6364863649_)) - (___kont6364863649_)))) - (___kont6364863649_)))) - (___kont6364863649_)))) - (___kont6364863649_))))))) + (___kont6764367644_)) + (___kont6764367644_)) + (___kont6764367644_)))) + (___kont6764367644_)))) + (___kont6764367644_)))) + (___kont6764367644_))))))) (define gxc#!alias::typedecl - (lambda (_self62702_) - (let* ((_self6270362709_ _self62702_) - (_E6270562713_ - (lambda () (error '"No clause matching" _self6270362709_))) - (_K6270662718_ - (lambda (_alias-id62716_) - (cons '@alias (cons _alias-id62716_ '()))))) + (lambda (_self66697_) + (let* ((_self6669866704_ _self66697_) + (_E6670066708_ + (lambda () (error '"No clause matching" _self6669866704_))) + (_K6670166713_ + (lambda (_alias-id66711_) + (let ((__tmp67936 + (let () + (declare (not safe)) + (cons _alias-id66711_ '())))) + (declare (not safe)) + (cons '@alias __tmp67936))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self6270362709_ 'gxc#!alias::t)) - (let* ((_e6270762721_ + (##structure-instance-of? _self6669866704_ 'gxc#!alias::t)) + (let* ((_e6670266716_ (let () (declare (not safe)) - (##vector-ref _self6270362709_ '1))) - (_alias-id62724_ _e6270762721_)) - (_K6270662718_ _alias-id62724_)) - (_E6270562713_))))) - (bind-method! gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f) + (##vector-ref _self6669866704_ '1))) + (_alias-id66719_ _e6670266716_)) + (declare (not safe)) + (_K6670166713_ _alias-id66719_)) + (let () (declare (not safe)) (_E6670066708_)))))) + (let () + (declare (not safe)) + (bind-method! gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!struct-type::typedecl - (lambda (_self62524_) - (let* ((_self6252562536_ _self62524_) - (_E6252762540_ - (lambda () (error '"No clause matching" _self6252562536_))) - (_K6252862549_ - (lambda (_plist62543_ - _ctor62544_ - _fields62545_ - _super62546_ - _type-id62547_) - (cons '@struct-type - (cons _type-id62547_ - (cons _super62546_ - (cons _fields62545_ - (cons _ctor62544_ - (cons _plist62543_ '()))))))))) + (lambda (_self66519_) + (let* ((_self6652066531_ _self66519_) + (_E6652266535_ + (lambda () (error '"No clause matching" _self6652066531_))) + (_K6652366544_ + (lambda (_plist66538_ + _ctor66539_ + _fields66540_ + _super66541_ + _type-id66542_) + (let ((__tmp67937 + (let ((__tmp67938 + (let ((__tmp67939 + (let ((__tmp67940 + (let ((__tmp67941 + (let () + (declare (not safe)) + (cons _plist66538_ + '())))) + (declare (not safe)) + (cons _ctor66539_ + __tmp67941)))) + (declare (not safe)) + (cons _fields66540_ __tmp67940)))) + (declare (not safe)) + (cons _super66541_ __tmp67939)))) + (declare (not safe)) + (cons _type-id66542_ __tmp67938)))) + (declare (not safe)) + (cons '@struct-type __tmp67937))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6252562536_ + _self6652066531_ 'gxc#!struct-type::t)) - (let* ((_e6252962552_ + (let* ((_e6652466547_ (let () (declare (not safe)) - (##vector-ref _self6252562536_ '1))) - (_type-id62555_ _e6252962552_) - (_e6253062557_ + (##vector-ref _self6652066531_ '1))) + (_type-id66550_ _e6652466547_) + (_e6652566552_ (let () (declare (not safe)) - (##vector-ref _self6252562536_ '2))) - (_super62560_ _e6253062557_) - (_e6253162562_ + (##vector-ref _self6652066531_ '2))) + (_super66555_ _e6652566552_) + (_e6652666557_ (let () (declare (not safe)) - (##vector-ref _self6252562536_ '3))) - (_fields62565_ _e6253162562_) - (_e6253262567_ + (##vector-ref _self6652066531_ '3))) + (_fields66560_ _e6652666557_) + (_e6652766562_ (let () (declare (not safe)) - (##vector-ref _self6252562536_ '4))) - (_e6253362570_ + (##vector-ref _self6652066531_ '4))) + (_e6652866565_ (let () (declare (not safe)) - (##vector-ref _self6252562536_ '5))) - (_ctor62573_ _e6253362570_) - (_e6253462575_ + (##vector-ref _self6652066531_ '5))) + (_ctor66568_ _e6652866565_) + (_e6652966570_ (let () (declare (not safe)) - (##vector-ref _self6252562536_ '6))) - (_plist62578_ _e6253462575_)) - (_K6252862549_ - _plist62578_ - _ctor62573_ - _fields62565_ - _super62560_ - _type-id62555_)) - (_E6252762540_))))) - (bind-method! gxc#!struct-type::t 'typedecl gxc#!struct-type::typedecl '#f) + (##vector-ref _self6652066531_ '6))) + (_plist66573_ _e6652966570_)) + (declare (not safe)) + (_K6652366544_ + _plist66573_ + _ctor66568_ + _fields66560_ + _super66555_ + _type-id66550_)) + (let () (declare (not safe)) (_E6652266535_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!struct-type::t + 'typedecl + gxc#!struct-type::typedecl + '#f)) (define gxc#!struct-pred::typedecl - (lambda (_self62378_) - (let* ((_self6237962385_ _self62378_) - (_E6238162389_ - (lambda () (error '"No clause matching" _self6237962385_))) - (_K6238262394_ - (lambda (_struct-t62392_) - (cons '@struct-pred (cons _struct-t62392_ '()))))) + (lambda (_self66373_) + (let* ((_self6637466380_ _self66373_) + (_E6637666384_ + (lambda () (error '"No clause matching" _self6637466380_))) + (_K6637766389_ + (lambda (_struct-t66387_) + (let ((__tmp67942 + (let () + (declare (not safe)) + (cons _struct-t66387_ '())))) + (declare (not safe)) + (cons '@struct-pred __tmp67942))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6237962385_ + _self6637466380_ 'gxc#!struct-pred::t)) - (let* ((_e6238362397_ + (let* ((_e6637866392_ (let () (declare (not safe)) - (##vector-ref _self6237962385_ '1))) - (_struct-t62400_ _e6238362397_)) - (_K6238262394_ _struct-t62400_)) - (_E6238162389_))))) - (bind-method! gxc#!struct-pred::t 'typedecl gxc#!struct-pred::typedecl '#f) + (##vector-ref _self6637466380_ '1))) + (_struct-t66395_ _e6637866392_)) + (declare (not safe)) + (_K6637766389_ _struct-t66395_)) + (let () (declare (not safe)) (_E6637666384_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!struct-pred::t + 'typedecl + gxc#!struct-pred::typedecl + '#f)) (define gxc#!struct-cons::typedecl - (lambda (_self62232_) - (let* ((_self6223362239_ _self62232_) - (_E6223562243_ - (lambda () (error '"No clause matching" _self6223362239_))) - (_K6223662248_ - (lambda (_struct-t62246_) - (cons '@struct-cons (cons _struct-t62246_ '()))))) + (lambda (_self66227_) + (let* ((_self6622866234_ _self66227_) + (_E6623066238_ + (lambda () (error '"No clause matching" _self6622866234_))) + (_K6623166243_ + (lambda (_struct-t66241_) + (let ((__tmp67943 + (let () + (declare (not safe)) + (cons _struct-t66241_ '())))) + (declare (not safe)) + (cons '@struct-cons __tmp67943))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6223362239_ + _self6622866234_ 'gxc#!struct-cons::t)) - (let* ((_e6223762251_ + (let* ((_e6623266246_ (let () (declare (not safe)) - (##vector-ref _self6223362239_ '1))) - (_struct-t62254_ _e6223762251_)) - (_K6223662248_ _struct-t62254_)) - (_E6223562243_))))) - (bind-method! gxc#!struct-cons::t 'typedecl gxc#!struct-cons::typedecl '#f) + (##vector-ref _self6622866234_ '1))) + (_struct-t66249_ _e6623266246_)) + (declare (not safe)) + (_K6623166243_ _struct-t66249_)) + (let () (declare (not safe)) (_E6623066238_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!struct-cons::t + 'typedecl + gxc#!struct-cons::typedecl + '#f)) (define gxc#!struct-getf::typedecl - (lambda (_self62072_) - (let* ((_self6207362081_ _self62072_) - (_E6207562085_ - (lambda () (error '"No clause matching" _self6207362081_))) - (_K6207662092_ - (lambda (_unchecked?62088_ _off62089_ _struct-t62090_) - (cons '@struct-getf - (cons _struct-t62090_ - (cons _off62089_ - (cons _unchecked?62088_ '()))))))) + (lambda (_self66067_) + (let* ((_self6606866076_ _self66067_) + (_E6607066080_ + (lambda () (error '"No clause matching" _self6606866076_))) + (_K6607166087_ + (lambda (_unchecked?66083_ _off66084_ _struct-t66085_) + (let ((__tmp67944 + (let ((__tmp67945 + (let ((__tmp67946 + (let () + (declare (not safe)) + (cons _unchecked?66083_ '())))) + (declare (not safe)) + (cons _off66084_ __tmp67946)))) + (declare (not safe)) + (cons _struct-t66085_ __tmp67945)))) + (declare (not safe)) + (cons '@struct-getf __tmp67944))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6207362081_ + _self6606866076_ 'gxc#!struct-getf::t)) - (let* ((_e6207762095_ + (let* ((_e6607266090_ (let () (declare (not safe)) - (##vector-ref _self6207362081_ '1))) - (_struct-t62098_ _e6207762095_) - (_e6207862100_ + (##vector-ref _self6606866076_ '1))) + (_struct-t66093_ _e6607266090_) + (_e6607366095_ (let () (declare (not safe)) - (##vector-ref _self6207362081_ '2))) - (_off62103_ _e6207862100_) - (_e6207962105_ + (##vector-ref _self6606866076_ '2))) + (_off66098_ _e6607366095_) + (_e6607466100_ (let () (declare (not safe)) - (##vector-ref _self6207362081_ '3))) - (_unchecked?62108_ _e6207962105_)) - (_K6207662092_ _unchecked?62108_ _off62103_ _struct-t62098_)) - (_E6207562085_))))) - (bind-method! gxc#!struct-getf::t 'typedecl gxc#!struct-getf::typedecl '#f) + (##vector-ref _self6606866076_ '3))) + (_unchecked?66103_ _e6607466100_)) + (declare (not safe)) + (_K6607166087_ _unchecked?66103_ _off66098_ _struct-t66093_)) + (let () (declare (not safe)) (_E6607066080_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!struct-getf::t + 'typedecl + gxc#!struct-getf::typedecl + '#f)) (define gxc#!struct-setf::typedecl - (lambda (_self61912_) - (let* ((_self6191361921_ _self61912_) - (_E6191561925_ - (lambda () (error '"No clause matching" _self6191361921_))) - (_K6191661932_ - (lambda (_unchecked?61928_ _off61929_ _struct-t61930_) - (cons '@struct-setf - (cons _struct-t61930_ - (cons _off61929_ - (cons _unchecked?61928_ '()))))))) + (lambda (_self65907_) + (let* ((_self6590865916_ _self65907_) + (_E6591065920_ + (lambda () (error '"No clause matching" _self6590865916_))) + (_K6591165927_ + (lambda (_unchecked?65923_ _off65924_ _struct-t65925_) + (let ((__tmp67947 + (let ((__tmp67948 + (let ((__tmp67949 + (let () + (declare (not safe)) + (cons _unchecked?65923_ '())))) + (declare (not safe)) + (cons _off65924_ __tmp67949)))) + (declare (not safe)) + (cons _struct-t65925_ __tmp67948)))) + (declare (not safe)) + (cons '@struct-setf __tmp67947))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6191361921_ + _self6590865916_ 'gxc#!struct-setf::t)) - (let* ((_e6191761935_ + (let* ((_e6591265930_ (let () (declare (not safe)) - (##vector-ref _self6191361921_ '1))) - (_struct-t61938_ _e6191761935_) - (_e6191861940_ + (##vector-ref _self6590865916_ '1))) + (_struct-t65933_ _e6591265930_) + (_e6591365935_ (let () (declare (not safe)) - (##vector-ref _self6191361921_ '2))) - (_off61943_ _e6191861940_) - (_e6191961945_ + (##vector-ref _self6590865916_ '2))) + (_off65938_ _e6591365935_) + (_e6591465940_ (let () (declare (not safe)) - (##vector-ref _self6191361921_ '3))) - (_unchecked?61948_ _e6191961945_)) - (_K6191661932_ _unchecked?61948_ _off61943_ _struct-t61938_)) - (_E6191561925_))))) - (bind-method! gxc#!struct-setf::t 'typedecl gxc#!struct-setf::typedecl '#f) + (##vector-ref _self6590865916_ '3))) + (_unchecked?65943_ _e6591465940_)) + (declare (not safe)) + (_K6591165927_ _unchecked?65943_ _off65938_ _struct-t65933_)) + (let () (declare (not safe)) (_E6591065920_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!struct-setf::t + 'typedecl + gxc#!struct-setf::typedecl + '#f)) (define gxc#!class-type::typedecl - (lambda (_self61724_) - (let* ((_self6172561737_ _self61724_) - (_E6172761741_ - (lambda () (error '"No clause matching" _self6172561737_))) - (_K6172861752_ - (lambda (_plist61744_ - _ctor61745_ - _xslots61746_ - _slots61747_ - _mixin61748_ - _super61749_ - _type-id61750_) - (cons '@class-type - (cons _type-id61750_ - (cons _super61749_ - (cons _mixin61748_ - (cons _slots61747_ - (cons _xslots61746_ - (cons _ctor61745_ - (cons _plist61744_ + (lambda (_self65719_) + (let* ((_self6572065732_ _self65719_) + (_E6572265736_ + (lambda () (error '"No clause matching" _self6572065732_))) + (_K6572365747_ + (lambda (_plist65739_ + _ctor65740_ + _xslots65741_ + _slots65742_ + _mixin65743_ + _super65744_ + _type-id65745_) + (let ((__tmp67950 + (let ((__tmp67951 + (let ((__tmp67952 + (let ((__tmp67953 + (let ((__tmp67954 + (let ((__tmp67955 + (let ((__tmp67956 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))))))))))) + (let () + (declare (not safe)) + (cons _plist65739_ '())))) + (declare (not safe)) + (cons _ctor65740_ __tmp67956)))) + (declare (not safe)) + (cons _xslots65741_ __tmp67955)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _slots65742_ + __tmp67954)))) + (declare (not safe)) + (cons _mixin65743_ __tmp67953)))) + (declare (not safe)) + (cons _super65744_ __tmp67952)))) + (declare (not safe)) + (cons _type-id65745_ __tmp67951)))) + (declare (not safe)) + (cons '@class-type __tmp67950))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6172561737_ + _self6572065732_ 'gxc#!class-type::t)) - (let* ((_e6172961755_ + (let* ((_e6572465750_ (let () (declare (not safe)) - (##vector-ref _self6172561737_ '1))) - (_type-id61758_ _e6172961755_) - (_e6173061760_ + (##vector-ref _self6572065732_ '1))) + (_type-id65753_ _e6572465750_) + (_e6572565755_ (let () (declare (not safe)) - (##vector-ref _self6172561737_ '2))) - (_super61763_ _e6173061760_) - (_e6173161765_ + (##vector-ref _self6572065732_ '2))) + (_super65758_ _e6572565755_) + (_e6572665760_ (let () (declare (not safe)) - (##vector-ref _self6172561737_ '3))) - (_mixin61768_ _e6173161765_) - (_e6173261770_ + (##vector-ref _self6572065732_ '3))) + (_mixin65763_ _e6572665760_) + (_e6572765765_ (let () (declare (not safe)) - (##vector-ref _self6172561737_ '4))) - (_slots61773_ _e6173261770_) - (_e6173361775_ + (##vector-ref _self6572065732_ '4))) + (_slots65768_ _e6572765765_) + (_e6572865770_ (let () (declare (not safe)) - (##vector-ref _self6172561737_ '5))) - (_xslots61778_ _e6173361775_) - (_e6173461780_ + (##vector-ref _self6572065732_ '5))) + (_xslots65773_ _e6572865770_) + (_e6572965775_ (let () (declare (not safe)) - (##vector-ref _self6172561737_ '6))) - (_ctor61783_ _e6173461780_) - (_e6173561785_ + (##vector-ref _self6572065732_ '6))) + (_ctor65778_ _e6572965775_) + (_e6573065780_ (let () (declare (not safe)) - (##vector-ref _self6172561737_ '7))) - (_plist61788_ _e6173561785_)) - (_K6172861752_ - _plist61788_ - _ctor61783_ - _xslots61778_ - _slots61773_ - _mixin61768_ - _super61763_ - _type-id61758_)) - (_E6172761741_))))) - (bind-method! gxc#!class-type::t 'typedecl gxc#!class-type::typedecl '#f) + (##vector-ref _self6572065732_ '7))) + (_plist65783_ _e6573065780_)) + (declare (not safe)) + (_K6572365747_ + _plist65783_ + _ctor65778_ + _xslots65773_ + _slots65768_ + _mixin65763_ + _super65758_ + _type-id65753_)) + (let () (declare (not safe)) (_E6572265736_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!class-type::t + 'typedecl + gxc#!class-type::typedecl + '#f)) (define gxc#!class-pred::typedecl - (lambda (_self61578_) - (let* ((_self6157961585_ _self61578_) - (_E6158161589_ - (lambda () (error '"No clause matching" _self6157961585_))) - (_K6158261594_ - (lambda (_class-t61592_) - (cons '@class-pred (cons _class-t61592_ '()))))) + (lambda (_self65573_) + (let* ((_self6557465580_ _self65573_) + (_E6557665584_ + (lambda () (error '"No clause matching" _self6557465580_))) + (_K6557765589_ + (lambda (_class-t65587_) + (let ((__tmp67957 + (let () + (declare (not safe)) + (cons _class-t65587_ '())))) + (declare (not safe)) + (cons '@class-pred __tmp67957))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6157961585_ + _self6557465580_ 'gxc#!class-pred::t)) - (let* ((_e6158361597_ + (let* ((_e6557865592_ (let () (declare (not safe)) - (##vector-ref _self6157961585_ '1))) - (_class-t61600_ _e6158361597_)) - (_K6158261594_ _class-t61600_)) - (_E6158161589_))))) - (bind-method! gxc#!class-pred::t 'typedecl gxc#!class-pred::typedecl '#f) + (##vector-ref _self6557465580_ '1))) + (_class-t65595_ _e6557865592_)) + (declare (not safe)) + (_K6557765589_ _class-t65595_)) + (let () (declare (not safe)) (_E6557665584_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!class-pred::t + 'typedecl + gxc#!class-pred::typedecl + '#f)) (define gxc#!class-cons::typedecl - (lambda (_self61432_) - (let* ((_self6143361439_ _self61432_) - (_E6143561443_ - (lambda () (error '"No clause matching" _self6143361439_))) - (_K6143661448_ - (lambda (_class-t61446_) - (cons '@class-cons (cons _class-t61446_ '()))))) + (lambda (_self65427_) + (let* ((_self6542865434_ _self65427_) + (_E6543065438_ + (lambda () (error '"No clause matching" _self6542865434_))) + (_K6543165443_ + (lambda (_class-t65441_) + (let ((__tmp67958 + (let () + (declare (not safe)) + (cons _class-t65441_ '())))) + (declare (not safe)) + (cons '@class-cons __tmp67958))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6143361439_ + _self6542865434_ 'gxc#!class-cons::t)) - (let* ((_e6143761451_ + (let* ((_e6543265446_ (let () (declare (not safe)) - (##vector-ref _self6143361439_ '1))) - (_class-t61454_ _e6143761451_)) - (_K6143661448_ _class-t61454_)) - (_E6143561443_))))) - (bind-method! gxc#!class-cons::t 'typedecl gxc#!class-cons::typedecl '#f) + (##vector-ref _self6542865434_ '1))) + (_class-t65449_ _e6543265446_)) + (declare (not safe)) + (_K6543165443_ _class-t65449_)) + (let () (declare (not safe)) (_E6543065438_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!class-cons::t + 'typedecl + gxc#!class-cons::typedecl + '#f)) (define gxc#!class-getf::typedecl - (lambda (_self61272_) - (let* ((_self6127361281_ _self61272_) - (_E6127561285_ - (lambda () (error '"No clause matching" _self6127361281_))) - (_K6127661292_ - (lambda (_unchecked?61288_ _slot61289_ _class-t61290_) - (cons '@class-getf - (cons _class-t61290_ - (cons _slot61289_ - (cons _unchecked?61288_ '()))))))) + (lambda (_self65267_) + (let* ((_self6526865276_ _self65267_) + (_E6527065280_ + (lambda () (error '"No clause matching" _self6526865276_))) + (_K6527165287_ + (lambda (_unchecked?65283_ _slot65284_ _class-t65285_) + (let ((__tmp67959 + (let ((__tmp67960 + (let ((__tmp67961 + (let () + (declare (not safe)) + (cons _unchecked?65283_ '())))) + (declare (not safe)) + (cons _slot65284_ __tmp67961)))) + (declare (not safe)) + (cons _class-t65285_ __tmp67960)))) + (declare (not safe)) + (cons '@class-getf __tmp67959))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6127361281_ + _self6526865276_ 'gxc#!class-getf::t)) - (let* ((_e6127761295_ + (let* ((_e6527265290_ (let () (declare (not safe)) - (##vector-ref _self6127361281_ '1))) - (_class-t61298_ _e6127761295_) - (_e6127861300_ + (##vector-ref _self6526865276_ '1))) + (_class-t65293_ _e6527265290_) + (_e6527365295_ (let () (declare (not safe)) - (##vector-ref _self6127361281_ '2))) - (_slot61303_ _e6127861300_) - (_e6127961305_ + (##vector-ref _self6526865276_ '2))) + (_slot65298_ _e6527365295_) + (_e6527465300_ (let () (declare (not safe)) - (##vector-ref _self6127361281_ '3))) - (_unchecked?61308_ _e6127961305_)) - (_K6127661292_ _unchecked?61308_ _slot61303_ _class-t61298_)) - (_E6127561285_))))) - (bind-method! gxc#!class-getf::t 'typedecl gxc#!class-getf::typedecl '#f) + (##vector-ref _self6526865276_ '3))) + (_unchecked?65303_ _e6527465300_)) + (declare (not safe)) + (_K6527165287_ _unchecked?65303_ _slot65298_ _class-t65293_)) + (let () (declare (not safe)) (_E6527065280_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!class-getf::t + 'typedecl + gxc#!class-getf::typedecl + '#f)) (define gxc#!class-setf::typedecl - (lambda (_self61112_) - (let* ((_self6111361121_ _self61112_) - (_E6111561125_ - (lambda () (error '"No clause matching" _self6111361121_))) - (_K6111661132_ - (lambda (_unchecked?61128_ _slot61129_ _class-t61130_) - (cons '@class-setf - (cons _class-t61130_ - (cons _slot61129_ - (cons _unchecked?61128_ '()))))))) + (lambda (_self65107_) + (let* ((_self6510865116_ _self65107_) + (_E6511065120_ + (lambda () (error '"No clause matching" _self6510865116_))) + (_K6511165127_ + (lambda (_unchecked?65123_ _slot65124_ _class-t65125_) + (let ((__tmp67962 + (let ((__tmp67963 + (let ((__tmp67964 + (let () + (declare (not safe)) + (cons _unchecked?65123_ '())))) + (declare (not safe)) + (cons _slot65124_ __tmp67964)))) + (declare (not safe)) + (cons _class-t65125_ __tmp67963)))) + (declare (not safe)) + (cons '@class-setf __tmp67962))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6111361121_ + _self6510865116_ 'gxc#!class-setf::t)) - (let* ((_e6111761135_ + (let* ((_e6511265130_ (let () (declare (not safe)) - (##vector-ref _self6111361121_ '1))) - (_class-t61138_ _e6111761135_) - (_e6111861140_ + (##vector-ref _self6510865116_ '1))) + (_class-t65133_ _e6511265130_) + (_e6511365135_ (let () (declare (not safe)) - (##vector-ref _self6111361121_ '2))) - (_slot61143_ _e6111861140_) - (_e6111961145_ + (##vector-ref _self6510865116_ '2))) + (_slot65138_ _e6511365135_) + (_e6511465140_ (let () (declare (not safe)) - (##vector-ref _self6111361121_ '3))) - (_unchecked?61148_ _e6111961145_)) - (_K6111661132_ _unchecked?61148_ _slot61143_ _class-t61138_)) - (_E6111561125_))))) - (bind-method! gxc#!class-setf::t 'typedecl gxc#!class-setf::typedecl '#f) + (##vector-ref _self6510865116_ '3))) + (_unchecked?65143_ _e6511465140_)) + (declare (not safe)) + (_K6511165127_ _unchecked?65143_ _slot65138_ _class-t65133_)) + (let () (declare (not safe)) (_E6511065120_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!class-setf::t + 'typedecl + gxc#!class-setf::typedecl + '#f)) (define gxc#!lambda::typedecl - (lambda (_self60938_) - (let* ((_self6093960949_ _self60938_) - (_E6094160953_ - (lambda () (error '"No clause matching" _self6093960949_))) - (_K6094260964_ - (lambda (_typedecl60956_ - _inline60957_ - _dispatch60958_ - _arity60959_) - (if _inline60957_ - (let ((_$e60961_ _typedecl60956_)) - (if _$e60961_ - _$e60961_ + (lambda (_self64933_) + (let* ((_self6493464944_ _self64933_) + (_E6493664948_ + (lambda () (error '"No clause matching" _self6493464944_))) + (_K6493764959_ + (lambda (_typedecl64951_ + _inline64952_ + _dispatch64953_ + _arity64954_) + (if _inline64952_ + (let ((_$e64956_ _typedecl64951_)) + (if _$e64956_ + _$e64956_ (error '"Cannot generate typedecl for inline rules"))) - (cons '@lambda - (cons _arity60959_ (cons _dispatch60958_ '()))))))) + (let ((__tmp67965 + (let ((__tmp67966 + (let () + (declare (not safe)) + (cons _dispatch64953_ '())))) + (declare (not safe)) + (cons _arity64954_ __tmp67966)))) + (declare (not safe)) + (cons '@lambda __tmp67965)))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self6093960949_ 'gxc#!lambda::t)) - (let* ((_e6094360967_ + (##structure-instance-of? _self6493464944_ 'gxc#!lambda::t)) + (let* ((_e6493864962_ (let () (declare (not safe)) - (##vector-ref _self6093960949_ '1))) - (_e6094460970_ + (##vector-ref _self6493464944_ '1))) + (_e6493964965_ (let () (declare (not safe)) - (##vector-ref _self6093960949_ '2))) - (_arity60973_ _e6094460970_) - (_e6094560975_ + (##vector-ref _self6493464944_ '2))) + (_arity64968_ _e6493964965_) + (_e6494064970_ (let () (declare (not safe)) - (##vector-ref _self6093960949_ '3))) - (_dispatch60978_ _e6094560975_) - (_e6094660980_ + (##vector-ref _self6493464944_ '3))) + (_dispatch64973_ _e6494064970_) + (_e6494164975_ (let () (declare (not safe)) - (##vector-ref _self6093960949_ '4))) - (_inline60983_ _e6094660980_) - (_e6094760985_ + (##vector-ref _self6493464944_ '4))) + (_inline64978_ _e6494164975_) + (_e6494264980_ (let () (declare (not safe)) - (##vector-ref _self6093960949_ '5))) - (_typedecl60988_ _e6094760985_)) - (_K6094260964_ - _typedecl60988_ - _inline60983_ - _dispatch60978_ - _arity60973_)) - (_E6094160953_))))) - (bind-method! gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f) + (##vector-ref _self6493464944_ '5))) + (_typedecl64983_ _e6494264980_)) + (declare (not safe)) + (_K6493764959_ + _typedecl64983_ + _inline64978_ + _dispatch64973_ + _arity64968_)) + (let () (declare (not safe)) (_E6493664948_)))))) + (let () + (declare (not safe)) + (bind-method! gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_self60749_) - (letrec ((_clause-e60751_ - (lambda (_clause60781_) - (let* ((_clause6078260790_ _clause60781_) - (_E6078460794_ + (lambda (_self64744_) + (letrec ((_clause-e64746_ + (lambda (_clause64776_) + (let* ((_clause6477764785_ _clause64776_) + (_E6477964789_ (lambda () (error '"No clause matching" - _clause6078260790_))) - (_K6078560800_ - (lambda (_dispatch60797_ _arity60798_) - (cons _arity60798_ (cons _dispatch60797_ '()))))) + _clause6477764785_))) + (_K6478064795_ + (lambda (_dispatch64792_ _arity64793_) + (let ((__tmp67967 + (let () + (declare (not safe)) + (cons _dispatch64792_ '())))) + (declare (not safe)) + (cons _arity64793_ __tmp67967))))) (if (let () (declare (not safe)) (##structure-instance-of? - _clause6078260790_ + _clause6477764785_ 'gxc#!lambda::t)) - (let* ((_e6078660803_ + (let* ((_e6478164798_ (let () (declare (not safe)) - (##vector-ref _clause6078260790_ '1))) - (_e6078760806_ + (##vector-ref _clause6477764785_ '1))) + (_e6478264801_ (let () (declare (not safe)) - (##vector-ref _clause6078260790_ '2))) - (_arity60809_ _e6078760806_) - (_e6078860811_ + (##vector-ref _clause6477764785_ '2))) + (_arity64804_ _e6478264801_) + (_e6478364806_ (let () (declare (not safe)) - (##vector-ref _clause6078260790_ '3))) - (_dispatch60814_ _e6078860811_)) - (_K6078560800_ _dispatch60814_ _arity60809_)) - (_E6078460794_)))))) - (let* ((_self6075260759_ _self60749_) - (_E6075460763_ - (lambda () (error '"No clause matching" _self6075260759_))) - (_K6075560770_ - (lambda (_clauses60766_) - (let ((_clauses60768_ - (map _clause-e60751_ _clauses60766_))) - (cons '@case-lambda _clauses60768_))))) + (##vector-ref _clause6477764785_ '3))) + (_dispatch64809_ _e6478364806_)) + (declare (not safe)) + (_K6478064795_ _dispatch64809_ _arity64804_)) + (let () (declare (not safe)) (_E6477964789_))))))) + (let* ((_self6474764754_ _self64744_) + (_E6474964758_ + (lambda () (error '"No clause matching" _self6474764754_))) + (_K6475064765_ + (lambda (_clauses64761_) + (let ((_clauses64763_ + (let () + (declare (not safe)) + (map _clause-e64746_ _clauses64761_)))) + (declare (not safe)) + (cons '@case-lambda _clauses64763_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6075260759_ + _self6474764754_ 'gxc#!case-lambda::t)) - (let* ((_e6075660773_ + (let* ((_e6475164768_ (let () (declare (not safe)) - (##vector-ref _self6075260759_ '1))) - (_e6075760776_ + (##vector-ref _self6474764754_ '1))) + (_e6475264771_ (let () (declare (not safe)) - (##vector-ref _self6075260759_ '2))) - (_clauses60779_ _e6075760776_)) - (_K6075560770_ _clauses60779_)) - (_E6075460763_)))))) - (bind-method! gxc#!case-lambda::t 'typedecl gxc#!case-lambda::typedecl '#f) + (##vector-ref _self6474764754_ '2))) + (_clauses64774_ _e6475264771_)) + (declare (not safe)) + (_K6475064765_ _clauses64774_)) + (let () (declare (not safe)) (_E6474964758_))))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!case-lambda::t + 'typedecl + gxc#!case-lambda::typedecl + '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_self60592_) - (let* ((_self6059360601_ _self60592_) - (_E6059560605_ - (lambda () (error '"No clause matching" _self6059360601_))) - (_K6059660611_ - (lambda (_dispatch60608_ _table60609_) - (cons '@kw-lambda - (cons _table60609_ (cons _dispatch60608_ '())))))) + (lambda (_self64587_) + (let* ((_self6458864596_ _self64587_) + (_E6459064600_ + (lambda () (error '"No clause matching" _self6458864596_))) + (_K6459164606_ + (lambda (_dispatch64603_ _table64604_) + (let ((__tmp67968 + (let ((__tmp67969 + (let () + (declare (not safe)) + (cons _dispatch64603_ '())))) + (declare (not safe)) + (cons _table64604_ __tmp67969)))) + (declare (not safe)) + (cons '@kw-lambda __tmp67968))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self6059360601_ 'gxc#!kw-lambda::t)) - (let* ((_e6059760614_ + (##structure-instance-of? _self6458864596_ 'gxc#!kw-lambda::t)) + (let* ((_e6459264609_ (let () (declare (not safe)) - (##vector-ref _self6059360601_ '1))) - (_e6059860617_ + (##vector-ref _self6458864596_ '1))) + (_e6459364612_ (let () (declare (not safe)) - (##vector-ref _self6059360601_ '2))) - (_table60620_ _e6059860617_) - (_e6059960622_ + (##vector-ref _self6458864596_ '2))) + (_table64615_ _e6459364612_) + (_e6459464617_ (let () (declare (not safe)) - (##vector-ref _self6059360601_ '3))) - (_dispatch60625_ _e6059960622_)) - (_K6059660611_ _dispatch60625_ _table60620_)) - (_E6059560605_))))) - (bind-method! gxc#!kw-lambda::t 'typedecl gxc#!kw-lambda::typedecl '#f) + (##vector-ref _self6458864596_ '3))) + (_dispatch64620_ _e6459464617_)) + (declare (not safe)) + (_K6459164606_ _dispatch64620_ _table64615_)) + (let () (declare (not safe)) (_E6459064600_)))))) + (let () + (declare (not safe)) + (bind-method! gxc#!kw-lambda::t 'typedecl gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_self60435_) - (let* ((_self6043660444_ _self60435_) - (_E6043860448_ - (lambda () (error '"No clause matching" _self6043660444_))) - (_K6043960454_ - (lambda (_main60451_ _keys60452_) - (cons '@kw-lambda-dispatch - (cons _keys60452_ (cons _main60451_ '())))))) + (lambda (_self64430_) + (let* ((_self6443164439_ _self64430_) + (_E6443364443_ + (lambda () (error '"No clause matching" _self6443164439_))) + (_K6443464449_ + (lambda (_main64446_ _keys64447_) + (let ((__tmp67970 + (let ((__tmp67971 + (let () + (declare (not safe)) + (cons _main64446_ '())))) + (declare (not safe)) + (cons _keys64447_ __tmp67971)))) + (declare (not safe)) + (cons '@kw-lambda-dispatch __tmp67970))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self6043660444_ + _self6443164439_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e6044060457_ + (let* ((_e6443564452_ (let () (declare (not safe)) - (##vector-ref _self6043660444_ '1))) - (_e6044160460_ + (##vector-ref _self6443164439_ '1))) + (_e6443664455_ (let () (declare (not safe)) - (##vector-ref _self6043660444_ '2))) - (_keys60463_ _e6044160460_) - (_e6044260465_ + (##vector-ref _self6443164439_ '2))) + (_keys64458_ _e6443664455_) + (_e6443764460_ (let () (declare (not safe)) - (##vector-ref _self6043660444_ '3))) - (_main60468_ _e6044260465_)) - (_K6043960454_ _main60468_ _keys60463_)) - (_E6043860448_))))) - (bind-method! - gxc#!kw-lambda-primary::t - 'typedecl - gxc#!kw-lambda-primary::typedecl - '#f))) + (##vector-ref _self6443164439_ '3))) + (_main64463_ _e6443764460_)) + (declare (not safe)) + (_K6443464449_ _main64463_ _keys64458_)) + (let () (declare (not safe)) (_E6443364443_)))))) + (let () + (declare (not safe)) + (bind-method! + gxc#!kw-lambda-primary::t + 'typedecl + gxc#!kw-lambda-primary::typedecl + '#f)))) diff --git a/src/bootstrap/gerbil/compiler/ssxi.ssi b/src/bootstrap/gerbil/compiler/ssxi.ssi index 2267650a1..8591d3cc2 100644 --- a/src/bootstrap/gerbil/compiler/ssxi.ssi +++ b/src/bootstrap/gerbil/compiler/ssxi.ssi @@ -39,4 +39,10 @@ namespace: gxc (%#define-syntax @kw-lambda |gxc[:0:]#@kw-lambda|) (%#define-syntax @kw-lambda-dispatch |gxc[:0:]#@kw-lambda-dispatch|) (%#define-syntax declare-primitive |gxc[:0:]#declare-primitive|) - (%#define-syntax declare-primitive* |gxc[:0:]#declare-primitive*|)) + (%#define-syntax + declare-primitive/unchecked + |gxc[:0:]#declare-primitive/unchecked|) + (%#define-syntax declare-primitive* |gxc[:0:]#declare-primitive*|) + (%#define-syntax + declare-primitive/unchecked* + |gxc[:0:]#declare-primitive/unchecked*|)) diff --git a/src/bootstrap/gerbil/compiler/ssxi__1.scm b/src/bootstrap/gerbil/compiler/ssxi__1.scm index 67e9d7f81..bbadd4d9b 100644 --- a/src/bootstrap/gerbil/compiler/ssxi__1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi__1.scm @@ -1,2330 +1,5771 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#declare-type| - (lambda (_$stx65228_) - (let* ((_g6523265250_ - (lambda (_g6523365246_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6523365246_))) - (_g6523165305_ - (lambda (_g6523365254_) - (if (gx#stx-pair? _g6523365254_) - (let ((_e6523665257_ (gx#syntax-e _g6523365254_))) - (let ((_hd6523765261_ + (lambda (_$stx69601_) + (let* ((_g6960569623_ + (lambda (_g6960669619_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g6960669619_)))) + (_g6960469678_ + (lambda (_g6960669627_) + (if (let () (declare (not safe)) (gx#stx-pair? _g6960669627_)) + (let ((_e6961169630_ + (let () + (declare (not safe)) + (gx#syntax-e _g6960669627_)))) + (let ((_hd6961069634_ (let () (declare (not safe)) - (##car _e6523665257_))) - (_tl6523865264_ + (##car _e6961169630_))) + (_tl6960969637_ (let () (declare (not safe)) - (##cdr _e6523665257_)))) - (if (gx#stx-pair? _tl6523865264_) - (let ((_e6523965267_ (gx#syntax-e _tl6523865264_))) - (let ((_hd6524065271_ + (##cdr _e6961169630_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6960969637_)) + (let ((_e6961469640_ + (let () + (declare (not safe)) + (gx#syntax-e _tl6960969637_)))) + (let ((_hd6961369644_ (let () (declare (not safe)) - (##car _e6523965267_))) - (_tl6524165274_ + (##car _e6961469640_))) + (_tl6961269647_ (let () (declare (not safe)) - (##cdr _e6523965267_)))) - (if (gx#stx-pair? _tl6524165274_) - (let ((_e6524265277_ - (gx#syntax-e _tl6524165274_))) - (let ((_hd6524365281_ + (##cdr _e6961469640_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6961269647_)) + (let ((_e6961769650_ + (let () + (declare (not safe)) + (gx#syntax-e _tl6961269647_)))) + (let ((_hd6961669654_ (let () (declare (not safe)) - (##car _e6524265277_))) - (_tl6524465284_ + (##car _e6961769650_))) + (_tl6961569657_ (let () (declare (not safe)) - (##cdr _e6524265277_)))) - (if (gx#stx-null? _tl6524465284_) - ((lambda (_L65287_ _L65289_) - (if (gx#identifier? _L65289_) - (cons (gx#datum->syntax__0 - '#f - 'optimizer-declare-type!) - (cons (cons (gx#datum->syntax__0 + (##cdr _e6961769650_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6961569657_)) + ((lambda (_L69660_ _L69662_) + (if (let () + (declare (not safe)) + (gx#identifier? _L69662_)) + (let ((__tmp74685 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'optimizer-declare-type!))) + (__tmp74680 + (let ((__tmp74682 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L65289_ '())) - (cons _L65287_ '()))) + (let ((__tmp74684 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74683 + (let () + (declare (not safe)) + (cons _L69662_ '())))) + (declare (not safe)) + (cons __tmp74684 __tmp74683))) + (__tmp74681 + (let () (declare (not safe)) (cons _L69660_ '())))) + (declare (not safe)) + (cons __tmp74682 __tmp74681)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6523265250_ - _g6523365254_))) - _hd6524365281_ - _hd6524065271_) - (_g6523265250_ _g6523365254_)))) - (_g6523265250_ _g6523365254_)))) - (_g6523265250_ _g6523365254_)))) - (_g6523265250_ _g6523365254_))))) - (_g6523165305_ _$stx65228_)))) + (declare (not safe)) + (cons __tmp74685 + __tmp74680)) + (_g6960569623_ + _g6960669627_))) + _hd6961669654_ + _hd6961369644_) + (_g6960569623_ _g6960669627_)))) + (_g6960569623_ _g6960669627_)))) + (_g6960569623_ _g6960669627_)))) + (_g6960569623_ _g6960669627_))))) + (_g6960469678_ _$stx69601_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx65309_) - (let* ((_g6531365342_ - (lambda (_g6531465338_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6531465338_))) - (_g6531265442_ - (lambda (_g6531465346_) - (if (gx#stx-pair? _g6531465346_) - (let ((_e6531765349_ (gx#syntax-e _g6531465346_))) - (let ((_hd6531865353_ + (lambda (_$stx69682_) + (let* ((_g6968669715_ + (lambda (_g6968769711_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g6968769711_)))) + (_g6968569815_ + (lambda (_g6968769719_) + (if (let () (declare (not safe)) (gx#stx-pair? _g6968769719_)) + (let ((_e6969269722_ + (let () + (declare (not safe)) + (gx#syntax-e _g6968769719_)))) + (let ((_hd6969169726_ (let () (declare (not safe)) - (##car _e6531765349_))) - (_tl6531965356_ + (##car _e6969269722_))) + (_tl6969069729_ (let () (declare (not safe)) - (##cdr _e6531765349_)))) - (if (gx#stx-pair/null? _tl6531965356_) - (let ((_g69198_ - (gx#syntax-split-splice _tl6531965356_ '0))) + (##cdr _e6969269722_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl6969069729_)) + (let ((_g74686_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl6969069729_ + '0)))) (begin - (let ((_g69199_ + (let ((_g74687_ (let () (declare (not safe)) - (if (##values? _g69198_) - (##vector-length _g69198_) + (if (##values? _g74686_) + (##vector-length _g74686_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g69199_ 2))) + (##fx= _g74687_ 2))) (error "Context expects 2 values" - _g69199_))) - (let ((_target6532065359_ + _g74687_))) + (let ((_target6969369732_ (let () (declare (not safe)) - (##vector-ref _g69198_ 0))) - (_tl6532265362_ + (##vector-ref _g74686_ 0))) + (_tl6969569735_ (let () (declare (not safe)) - (##vector-ref _g69198_ 1)))) - (if (gx#stx-null? _tl6532265362_) - (letrec ((_loop6532365365_ - (lambda (_hd6532165369_ - _type6532765372_ - _symbol6532865374_) - (if (gx#stx-pair? - _hd6532165369_) - (let ((_e6532465377_ - (gx#syntax-e - _hd6532165369_))) - (let ((_lp-hd6532565381_ - (let () + (##vector-ref _g74686_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6969569735_)) + (letrec ((_loop6969669738_ + (lambda (_hd6969469742_ + _type6970069745_ + _symbol6970169747_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd6969469742_)) + (let ((_e6969769750_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e6532465377_))) - (_lp-tl6532665384_ - (let () (declare (not safe)) (##cdr _e6532465377_)))) - (if (gx#stx-pair? _lp-hd6532565381_) - (let ((_e6533165387_ (gx#syntax-e _lp-hd6532565381_))) - (let ((_hd6533265391_ + (not safe)) + (gx#syntax-e _hd6969469742_)))) + (let ((_lp-hd6969869754_ + (let () (declare (not safe)) (##car _e6969769750_))) + (_lp-tl6969969757_ + (let () (declare (not safe)) (##cdr _e6969769750_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd6969869754_)) + (let ((_e6970669760_ + (let () + (declare (not safe)) + (gx#syntax-e _lp-hd6969869754_)))) + (let ((_hd6970569764_ (let () (declare (not safe)) - (##car _e6533165387_))) - (_tl6533365394_ + (##car _e6970669760_))) + (_tl6970469767_ (let () (declare (not safe)) - (##cdr _e6533165387_)))) - (if (gx#stx-pair? _tl6533365394_) - (let ((_e6533465397_ - (gx#syntax-e _tl6533365394_))) - (let ((_hd6533565401_ + (##cdr _e6970669760_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6970469767_)) + (let ((_e6970969770_ + (let () + (declare (not safe)) + (gx#syntax-e _tl6970469767_)))) + (let ((_hd6970869774_ (let () (declare (not safe)) - (##car _e6533465397_))) - (_tl6533665404_ + (##car _e6970969770_))) + (_tl6970769777_ (let () (declare (not safe)) - (##cdr _e6533465397_)))) - (if (gx#stx-null? _tl6533665404_) - (_loop6532365365_ - _lp-tl6532665384_ - (cons _hd6533565401_ _type6532765372_) - (cons _hd6533265391_ - _symbol6532865374_)) - (_g6531365342_ _g6531465346_)))) - (_g6531365342_ _g6531465346_)))) - (_g6531365342_ _g6531465346_)))) - (let ((_type6532965407_ (reverse _type6532765372_)) - (_symbol6533065410_ (reverse _symbol6532865374_))) - ((lambda (_L65413_ _L65415_) - (cons (gx#datum->syntax__0 '#f 'begin) - (begin - (gx#syntax-check-splice-targets _L65413_ _L65415_) - (foldr2 (lambda (_g6543065434_ - _g6543165437_ - _g6543265439_) - (cons (cons (gx#datum->syntax__0 - '#f - 'declare-type) - (cons _g6543165437_ - (cons _g6543065434_ - '()))) - _g6543265439_)) - '() - _L65413_ - _L65415_)))) - _type6532965407_ - _symbol6533065410_)))))) + (##cdr _e6970969770_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl6970769777_)) + (_loop6969669738_ + _lp-tl6969969757_ + (let () + (declare (not safe)) + (cons _hd6970869774_ + _type6970069745_)) + (let () + (declare (not safe)) + (cons _hd6970569764_ + _symbol6970169747_))) + (_g6968669715_ _g6968769719_)))) + (_g6968669715_ _g6968769719_)))) + (_g6968669715_ _g6968769719_)))) + (let ((_type6970269780_ + (let () (declare (not safe)) (reverse _type6970069745_))) + (_symbol6970369783_ + (let () + (declare (not safe)) + (reverse _symbol6970169747_)))) + ((lambda (_L69786_ _L69788_) + (let ((__tmp74694 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'begin))) + (__tmp74688 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _L69786_ + _L69788_)) + (let ((__tmp74689 + (lambda (_g6980369807_ + _g6980469810_ + _g6980569812_) + (let ((__tmp74690 + (let ((__tmp74693 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'declare-type))) + (__tmp74691 + (let ((__tmp74692 + (let () + (declare + (not safe)) + (cons _g6980369807_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _g6980469810_ + __tmp74692)))) + (declare (not safe)) + (cons __tmp74693 __tmp74691)))) + (declare (not safe)) + (cons __tmp74690 _g6980569812_))))) + (declare (not safe)) + (foldr2 __tmp74689 '() _L69786_ _L69788_))))) + (declare (not safe)) + (cons __tmp74694 __tmp74688))) + _type6970269780_ + _symbol6970369783_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6532365365_ - _target6532065359_ + (_loop6969669738_ + _target6969369732_ '() '())) - (_g6531365342_ _g6531465346_))))) - (_g6531365342_ _g6531465346_)))) - (_g6531365342_ _g6531465346_))))) - (_g6531265442_ _$stx65309_)))) + (_g6968669715_ _g6968769719_))))) + (_g6968669715_ _g6968769719_)))) + (_g6968669715_ _g6968769719_))))) + (_g6968569815_ _$stx69682_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx65447_) - (let* ((___stx6857768578_ _$stx65447_) - (_g6545265494_ + (lambda (_$stx69820_) + (let* ((___stx7382173822_ _$stx69820_) + (_g6982569867_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx6857768578_)))) - (let ((___kont6858068581_ - (lambda (_L65622_ _L65624_ _L65625_ _L65626_) - (cons (gx#datum->syntax__0 '#f 'optimizer-declare-method!) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L65626_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L65625_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L65624_ '())) - (cons _L65622_ '()))))))) - (___kont6858268583_ - (lambda (_L65541_ _L65543_ _L65544_ _L65545_) - (cons _L65545_ - (cons _L65544_ - (cons _L65543_ - (cons _L65541_ - (cons (gx#datum->syntax__0 + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx7382173822_))))) + (let ((___kont7382473825_ + (lambda (_L69995_ _L69997_ _L69998_ _L69999_) + (let ((__tmp74708 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'optimizer-declare-method!))) + (__tmp74695 + (let ((__tmp74705 + (let ((__tmp74707 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74706 + (let () + (declare (not safe)) + (cons _L69999_ '())))) + (declare (not safe)) + (cons __tmp74707 __tmp74706))) + (__tmp74696 + (let ((__tmp74702 + (let ((__tmp74704 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f - 'rebind?) - '())))))))) - (let ((___match6861668617_ - (lambda (_e6545865572_ - _hd6545965576_ - _tl6546065579_ - _e6546165582_ - _hd6546265586_ - _tl6546365589_ - _e6546465592_ - _hd6546565596_ - _tl6546665599_ - _e6546765602_ - _hd6546865606_ - _tl6546965609_ - _e6547065612_ - _hd6547165616_ - _tl6547265619_) - (let ((_L65622_ _hd6547165616_) - (_L65624_ _hd6546865606_) - (_L65625_ _hd6546565596_) - (_L65626_ _hd6546265586_)) - (if (and (gx#identifier? _L65626_) - (gx#identifier? _L65625_) - (gx#identifier? _L65624_)) - (___kont6858068581_ - _L65622_ - _L65624_ - _L65625_ - _L65626_) - (_g6545265494_)))))) - (if (gx#stx-pair? ___stx6857768578_) - (let ((_e6545865572_ (gx#syntax-e ___stx6857768578_))) - (let ((_tl6546065579_ - (let () (declare (not safe)) (##cdr _e6545865572_))) - (_hd6545965576_ - (let () (declare (not safe)) (##car _e6545865572_)))) - (if (gx#stx-pair? _tl6546065579_) - (let ((_e6546165582_ (gx#syntax-e _tl6546065579_))) - (let ((_tl6546365589_ + 'quote))) + (__tmp74703 + (let () + (declare (not safe)) + (cons _L69998_ '())))) + (declare (not safe)) + (cons __tmp74704 __tmp74703))) + (__tmp74697 + (let ((__tmp74699 + (let ((__tmp74701 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74700 + (let () + (declare (not safe)) + (cons _L69997_ '())))) + (declare (not safe)) + (cons __tmp74701 __tmp74700))) + (__tmp74698 + (let () + (declare (not safe)) + (cons _L69995_ '())))) + (declare (not safe)) + (cons __tmp74699 __tmp74698)))) + (declare (not safe)) + (cons __tmp74702 __tmp74697)))) + (declare (not safe)) + (cons __tmp74705 __tmp74696)))) + (declare (not safe)) + (cons __tmp74708 __tmp74695)))) + (___kont7382673827_ + (lambda (_L69914_ _L69916_ _L69917_ _L69918_) + (let ((__tmp74709 + (let ((__tmp74710 + (let ((__tmp74711 + (let ((__tmp74712 + (let ((__tmp74713 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'rebind?)))) + (declare (not safe)) + (cons __tmp74713 '())))) + (declare (not safe)) + (cons _L69914_ __tmp74712)))) + (declare (not safe)) + (cons _L69916_ __tmp74711)))) + (declare (not safe)) + (cons _L69917_ __tmp74710)))) + (declare (not safe)) + (cons _L69918_ __tmp74709))))) + (let ((___match7386073861_ + (lambda (_e6983369945_ + _hd6983269949_ + _tl6983169952_ + _e6983669955_ + _hd6983569959_ + _tl6983469962_ + _e6983969965_ + _hd6983869969_ + _tl6983769972_ + _e6984269975_ + _hd6984169979_ + _tl6984069982_ + _e6984569985_ + _hd6984469989_ + _tl6984369992_) + (let ((_L69995_ _hd6984469989_) + (_L69997_ _hd6984169979_) + (_L69998_ _hd6983869969_) + (_L69999_ _hd6983569959_)) + (if (and (let () + (declare (not safe)) + (gx#identifier? _L69999_)) + (let () + (declare (not safe)) + (gx#identifier? _L69998_)) + (let () + (declare (not safe)) + (gx#identifier? _L69997_))) + (___kont7382473825_ + _L69995_ + _L69997_ + _L69998_ + _L69999_) + (let () (declare (not safe)) (_g6982569867_))))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7382173822_)) + (let ((_e6983369945_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx7382173822_)))) + (let ((_tl6983169952_ + (let () (declare (not safe)) (##cdr _e6983369945_))) + (_hd6983269949_ + (let () (declare (not safe)) (##car _e6983369945_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6983169952_)) + (let ((_e6983669955_ + (let () + (declare (not safe)) + (gx#syntax-e _tl6983169952_)))) + (let ((_tl6983469962_ (let () (declare (not safe)) - (##cdr _e6546165582_))) - (_hd6546265586_ + (##cdr _e6983669955_))) + (_hd6983569959_ (let () (declare (not safe)) - (##car _e6546165582_)))) - (if (gx#stx-pair? _tl6546365589_) - (let ((_e6546465592_ - (gx#syntax-e _tl6546365589_))) - (let ((_tl6546665599_ + (##car _e6983669955_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6983469962_)) + (let ((_e6983969965_ + (let () + (declare (not safe)) + (gx#syntax-e _tl6983469962_)))) + (let ((_tl6983769972_ (let () (declare (not safe)) - (##cdr _e6546465592_))) - (_hd6546565596_ + (##cdr _e6983969965_))) + (_hd6983869969_ (let () (declare (not safe)) - (##car _e6546465592_)))) - (if (gx#stx-pair? _tl6546665599_) - (let ((_e6546765602_ - (gx#syntax-e _tl6546665599_))) - (let ((_tl6546965609_ + (##car _e6983969965_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl6983769972_)) + (let ((_e6984269975_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl6983769972_)))) + (let ((_tl6984069982_ (let () (declare (not safe)) - (##cdr _e6546765602_))) - (_hd6546865606_ + (##cdr _e6984269975_))) + (_hd6984169979_ (let () (declare (not safe)) - (##car _e6546765602_)))) - (if (gx#stx-pair? _tl6546965609_) - (let ((_e6547065612_ - (gx#syntax-e - _tl6546965609_))) - (let ((_tl6547265619_ + (##car _e6984269975_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl6984069982_)) + (let ((_e6984569985_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl6984069982_)))) + (let ((_tl6984369992_ (let () (declare (not safe)) - (##cdr _e6547065612_))) - (_hd6547165616_ + (##cdr _e6984569985_))) + (_hd6984469989_ (let () (declare (not safe)) - (##car _e6547065612_)))) - (if (gx#stx-null? - _tl6547265619_) - (___match6861668617_ - _e6545865572_ - _hd6545965576_ - _tl6546065579_ - _e6546165582_ - _hd6546265586_ - _tl6546365589_ - _e6546465592_ - _hd6546565596_ - _tl6546665599_ - _e6546765602_ - _hd6546865606_ - _tl6546965609_ - _e6547065612_ - _hd6547165616_ - _tl6547265619_) - (_g6545265494_)))) - (if (gx#stx-null? - _tl6546965609_) - (___kont6858268583_ - _hd6546865606_ - _hd6546565596_ - _hd6546265586_ - _hd6545965576_) - (_g6545265494_))))) - (_g6545265494_)))) - (_g6545265494_)))) - (_g6545265494_)))) - (_g6545265494_))))))) + (##car _e6984569985_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6984369992_)) + (___match7386073861_ + _e6983369945_ + _hd6983269949_ + _tl6983169952_ + _e6983669955_ + _hd6983569959_ + _tl6983469962_ + _e6983969965_ + _hd6983869969_ + _tl6983769972_ + _e6984269975_ + _hd6984169979_ + _tl6984069982_ + _e6984569985_ + _hd6984469989_ + _tl6984369992_) + (let () + (declare (not safe)) + (_g6982569867_))))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl6984069982_)) + (___kont7382673827_ + _hd6984169979_ + _hd6983869969_ + _hd6983569959_ + _hd6983269949_) + (let () + (declare (not safe)) + (_g6982569867_)))))) + (let () + (declare (not safe)) + (_g6982569867_))))) + (let () + (declare (not safe)) + (_g6982569867_))))) + (let () (declare (not safe)) (_g6982569867_))))) + (let () (declare (not safe)) (_g6982569867_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx65651_) - (let* ((_g6565565690_ - (lambda (_g6565665686_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6565665686_))) - (_g6565465809_ - (lambda (_g6565665694_) - (if (gx#stx-pair? _g6565665694_) - (let ((_e6566065697_ (gx#syntax-e _g6565665694_))) - (let ((_hd6566165701_ + (lambda (_$stx70024_) + (let* ((_g7002870063_ + (lambda (_g7002970059_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7002970059_)))) + (_g7002770182_ + (lambda (_g7002970067_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7002970067_)) + (let ((_e7003570070_ + (let () + (declare (not safe)) + (gx#syntax-e _g7002970067_)))) + (let ((_hd7003470074_ (let () (declare (not safe)) - (##car _e6566065697_))) - (_tl6566265704_ + (##car _e7003570070_))) + (_tl7003370077_ (let () (declare (not safe)) - (##cdr _e6566065697_)))) - (if (gx#stx-pair/null? _tl6566265704_) - (let ((_g69200_ - (gx#syntax-split-splice _tl6566265704_ '0))) + (##cdr _e7003570070_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7003370077_)) + (let ((_g74714_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7003370077_ + '0)))) (begin - (let ((_g69201_ + (let ((_g74715_ (let () (declare (not safe)) - (if (##values? _g69200_) - (##vector-length _g69200_) + (if (##values? _g74714_) + (##vector-length _g74714_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g69201_ 2))) + (##fx= _g74715_ 2))) (error "Context expects 2 values" - _g69201_))) - (let ((_target6566365707_ + _g74715_))) + (let ((_target7003670080_ (let () (declare (not safe)) - (##vector-ref _g69200_ 0))) - (_tl6566565710_ + (##vector-ref _g74714_ 0))) + (_tl7003870083_ (let () (declare (not safe)) - (##vector-ref _g69200_ 1)))) - (if (gx#stx-null? _tl6566565710_) - (letrec ((_loop6566665713_ - (lambda (_hd6566465717_ - _symbol6567065720_ - _method6567165722_ - _type-t6567265724_) - (if (gx#stx-pair? - _hd6566465717_) - (let ((_e6566765727_ - (gx#syntax-e - _hd6566465717_))) - (let ((_lp-hd6566865731_ - (let () + (##vector-ref _g74714_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7003870083_)) + (letrec ((_loop7003970086_ + (lambda (_hd7003770090_ + _symbol7004370093_ + _method7004470095_ + _type-t7004570097_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd7003770090_)) + (let ((_e7004070100_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e6566765727_))) - (_lp-tl6566965734_ - (let () (declare (not safe)) (##cdr _e6566765727_)))) - (if (gx#stx-pair? _lp-hd6566865731_) - (let ((_e6567665737_ (gx#syntax-e _lp-hd6566865731_))) - (let ((_hd6567765741_ + (not safe)) + (gx#syntax-e _hd7003770090_)))) + (let ((_lp-hd7004170104_ + (let () (declare (not safe)) (##car _e7004070100_))) + (_lp-tl7004270107_ + (let () (declare (not safe)) (##cdr _e7004070100_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd7004170104_)) + (let ((_e7005170110_ + (let () + (declare (not safe)) + (gx#syntax-e _lp-hd7004170104_)))) + (let ((_hd7005070114_ (let () (declare (not safe)) - (##car _e6567665737_))) - (_tl6567865744_ + (##car _e7005170110_))) + (_tl7004970117_ (let () (declare (not safe)) - (##cdr _e6567665737_)))) - (if (gx#stx-pair? _tl6567865744_) - (let ((_e6567965747_ - (gx#syntax-e _tl6567865744_))) - (let ((_hd6568065751_ + (##cdr _e7005170110_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7004970117_)) + (let ((_e7005470120_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7004970117_)))) + (let ((_hd7005370124_ (let () (declare (not safe)) - (##car _e6567965747_))) - (_tl6568165754_ + (##car _e7005470120_))) + (_tl7005270127_ (let () (declare (not safe)) - (##cdr _e6567965747_)))) - (if (gx#stx-pair? _tl6568165754_) - (let ((_e6568265757_ - (gx#syntax-e _tl6568165754_))) - (let ((_hd6568365761_ + (##cdr _e7005470120_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7005270127_)) + (let ((_e7005770130_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7005270127_)))) + (let ((_hd7005670134_ (let () (declare (not safe)) - (##car _e6568265757_))) - (_tl6568465764_ + (##car _e7005770130_))) + (_tl7005570137_ (let () (declare (not safe)) - (##cdr _e6568265757_)))) - (if (gx#stx-null? _tl6568465764_) - (_loop6566665713_ - _lp-tl6566965734_ - (cons _hd6568365761_ - _symbol6567065720_) - (cons _hd6568065751_ - _method6567165722_) - (cons _hd6567765741_ - _type-t6567265724_)) - (_g6565565690_ _g6565665694_)))) - (_g6565565690_ _g6565665694_)))) - (_g6565565690_ _g6565665694_)))) - (_g6565565690_ _g6565665694_)))) - (let ((_symbol6567365767_ (reverse _symbol6567065720_)) - (_method6567465770_ (reverse _method6567165722_)) - (_type-t6567565772_ (reverse _type-t6567265724_))) - ((lambda (_L65775_ _L65777_ _L65778_) - (cons (gx#datum->syntax__0 '#f 'begin) - (begin - (gx#syntax-check-splice-targets - _L65775_ - _L65777_ - _L65778_) - (foldr* (lambda (_g6579465799_ - _g6579565802_ - _g6579665804_ - _g6579765806_) - (cons (cons (gx#datum->syntax__0 - '#f - 'declare-method) - (cons _g6579665804_ - (cons _g6579565802_ - (cons _g6579465799_ + (##cdr _e7005770130_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7005570137_)) + (_loop7003970086_ + _lp-tl7004270107_ + (let () + (declare (not safe)) + (cons _hd7005670134_ + _symbol7004370093_)) + (let () + (declare (not safe)) + (cons _hd7005370124_ + _method7004470095_)) + (let () + (declare (not safe)) + (cons _hd7005070114_ + _type-t7004570097_))) + (_g7002870063_ _g7002970067_)))) + (_g7002870063_ _g7002970067_)))) + (_g7002870063_ _g7002970067_)))) + (_g7002870063_ _g7002970067_)))) + (let ((_symbol7004670140_ + (let () + (declare (not safe)) + (reverse _symbol7004370093_))) + (_method7004770143_ + (let () + (declare (not safe)) + (reverse _method7004470095_))) + (_type-t7004870145_ + (let () + (declare (not safe)) + (reverse _type-t7004570097_)))) + ((lambda (_L70148_ _L70150_ _L70151_) + (let ((__tmp74723 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'begin))) + (__tmp74716 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _L70148_ + _L70150_ + _L70151_)) + (let ((__tmp74717 + (lambda (_g7016770172_ + _g7016870175_ + _g7016970177_ + _g7017070179_) + (let ((__tmp74718 + (let ((__tmp74722 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'declare-method))) + (__tmp74719 + (let ((__tmp74720 + (let ((__tmp74721 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + (let () + (declare (not safe)) + (cons _g7016770172_ '())))) + (declare (not safe)) + (cons _g7016870175_ __tmp74721)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g6579765806_)) - '() - _L65775_ - _L65777_ - _L65778_)))) - _symbol6567365767_ - _method6567465770_ - _type-t6567565772_)))))) + (declare (not safe)) + (cons _g7016970177_ + __tmp74720)))) + (declare (not safe)) + (cons __tmp74722 __tmp74719)))) + (declare (not safe)) + (cons __tmp74718 _g7017070179_))))) + (declare (not safe)) + (foldr* __tmp74717 + '() + _L70148_ + _L70150_ + _L70151_))))) + (declare (not safe)) + (cons __tmp74723 __tmp74716))) + _symbol7004670140_ + _method7004770143_ + _type-t7004870145_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6566665713_ - _target6566365707_ + (_loop7003970086_ + _target7003670080_ '() '() '())) - (_g6565565690_ _g6565665694_))))) - (_g6565565690_ _g6565665694_)))) - (_g6565565690_ _g6565665694_))))) - (_g6565465809_ _$stx65651_)))) + (_g7002870063_ _g7002970067_))))) + (_g7002870063_ _g7002970067_)))) + (_g7002870063_ _g7002970067_))))) + (_g7002770182_ _$stx70024_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx65814_) - (let* ((_g6581865851_ - (lambda (_g6581965847_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6581965847_))) - (_g6581765965_ - (lambda (_g6581965855_) - (if (gx#stx-pair? _g6581965855_) - (let ((_e6582365858_ (gx#syntax-e _g6581965855_))) - (let ((_hd6582465862_ + (lambda (_$stx70187_) + (let* ((_g7019170224_ + (lambda (_g7019270220_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7019270220_)))) + (_g7019070338_ + (lambda (_g7019270228_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7019270228_)) + (let ((_e7019870231_ + (let () + (declare (not safe)) + (gx#syntax-e _g7019270228_)))) + (let ((_hd7019770235_ (let () (declare (not safe)) - (##car _e6582365858_))) - (_tl6582565865_ + (##car _e7019870231_))) + (_tl7019670238_ (let () (declare (not safe)) - (##cdr _e6582365858_)))) - (if (gx#stx-pair? _tl6582565865_) - (let ((_e6582665868_ (gx#syntax-e _tl6582565865_))) - (let ((_hd6582765872_ + (##cdr _e7019870231_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7019670238_)) + (let ((_e7020170241_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7019670238_)))) + (let ((_hd7020070245_ (let () (declare (not safe)) - (##car _e6582665868_))) - (_tl6582865875_ + (##car _e7020170241_))) + (_tl7019970248_ (let () (declare (not safe)) - (##cdr _e6582665868_)))) - (if (gx#stx-pair/null? _tl6582865875_) - (let ((_g69202_ - (gx#syntax-split-splice - _tl6582865875_ - '0))) + (##cdr _e7020170241_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7019970248_)) + (let ((_g74724_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7019970248_ + '0)))) (begin - (let ((_g69203_ + (let ((_g74725_ (let () (declare (not safe)) - (if (##values? _g69202_) - (##vector-length _g69202_) + (if (##values? _g74724_) + (##vector-length _g74724_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g69203_ 2))) + (##fx= _g74725_ 2))) (error "Context expects 2 values" - _g69203_))) - (let ((_target6582965878_ + _g74725_))) + (let ((_target7020270251_ (let () (declare (not safe)) - (##vector-ref _g69202_ 0))) - (_tl6583165881_ + (##vector-ref _g74724_ 0))) + (_tl7020470254_ (let () (declare (not safe)) - (##vector-ref _g69202_ 1)))) - (if (gx#stx-null? _tl6583165881_) - (letrec ((_loop6583265884_ - (lambda (_hd6583065888_ + (##vector-ref _g74724_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7020470254_)) + (letrec ((_loop7020570257_ + (lambda (_hd7020370261_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol6583665891_ - _method6583765893_) - (if (gx#stx-pair? _hd6583065888_) - (let ((_e6583365896_ (gx#syntax-e _hd6583065888_))) - (let ((_lp-hd6583465900_ + _symbol7020970264_ + _method7021070266_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd7020370261_)) + (let ((_e7020670269_ + (let () + (declare (not safe)) + (gx#syntax-e _hd7020370261_)))) + (let ((_lp-hd7020770273_ (let () (declare (not safe)) - (##car _e6583365896_))) - (_lp-tl6583565903_ + (##car _e7020670269_))) + (_lp-tl7020870276_ (let () (declare (not safe)) - (##cdr _e6583365896_)))) - (if (gx#stx-pair? _lp-hd6583465900_) - (let ((_e6584065906_ - (gx#syntax-e _lp-hd6583465900_))) - (let ((_hd6584165910_ + (##cdr _e7020670269_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd7020770273_)) + (let ((_e7021570279_ + (let () + (declare (not safe)) + (gx#syntax-e _lp-hd7020770273_)))) + (let ((_hd7021470283_ (let () (declare (not safe)) - (##car _e6584065906_))) - (_tl6584265913_ + (##car _e7021570279_))) + (_tl7021370286_ (let () (declare (not safe)) - (##cdr _e6584065906_)))) - (if (gx#stx-pair? _tl6584265913_) - (let ((_e6584365916_ - (gx#syntax-e _tl6584265913_))) - (let ((_hd6584465920_ + (##cdr _e7021570279_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7021370286_)) + (let ((_e7021870289_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7021370286_)))) + (let ((_hd7021770293_ + (let () + (declare (not safe)) + (##car _e7021870289_))) + (_tl7021670296_ + (let () + (declare (not safe)) + (##cdr _e7021870289_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7021670296_)) + (_loop7020570257_ + _lp-tl7020870276_ (let () (declare (not safe)) - (##car _e6584365916_))) - (_tl6584565923_ + (cons _hd7021770293_ + _symbol7020970264_)) (let () (declare (not safe)) - (##cdr _e6584365916_)))) - (if (gx#stx-null? _tl6584565923_) - (_loop6583265884_ - _lp-tl6583565903_ - (cons _hd6584465920_ - _symbol6583665891_) - (cons _hd6584165910_ - _method6583765893_)) - (_g6581865851_ _g6581965855_)))) - (_g6581865851_ _g6581965855_)))) - (_g6581865851_ _g6581965855_)))) - (let ((_symbol6583865926_ (reverse _symbol6583665891_)) - (_method6583965929_ (reverse _method6583765893_))) - ((lambda (_L65932_ _L65934_ _L65935_) - (cons (gx#datum->syntax__0 '#f 'begin) - (begin - (gx#syntax-check-splice-targets - _L65932_ - _L65934_) - (foldr2 (lambda (_g6595365957_ - _g6595465960_ - _g6595565962_) - (cons (cons (gx#datum->syntax__0 - '#f - 'declare-method) - (cons _L65935_ - (cons _g6595465960_ + (cons _hd7021470283_ + _method7021070266_))) + (_g7019170224_ _g7019270228_)))) + (_g7019170224_ _g7019270228_)))) + (_g7019170224_ _g7019270228_)))) + (let ((_symbol7021170299_ + (let () + (declare (not safe)) + (reverse _symbol7020970264_))) + (_method7021270302_ + (let () + (declare (not safe)) + (reverse _method7021070266_)))) + ((lambda (_L70305_ _L70307_ _L70308_) + (let ((__tmp74733 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'begin))) + (__tmp74726 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _L70305_ + _L70307_)) + (let ((__tmp74727 + (lambda (_g7032670330_ + _g7032770333_ + _g7032870335_) + (let ((__tmp74728 + (let ((__tmp74732 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'declare-method))) + (__tmp74729 + (let ((__tmp74730 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _g6595365957_ '())))) + (let ((__tmp74731 + (let () + (declare (not safe)) + (cons _g7032670330_ '())))) + (declare (not safe)) + (cons _g7032770333_ __tmp74731)))) + (declare (not safe)) + (cons _L70308_ __tmp74730)))) + (declare (not safe)) + (cons __tmp74732 __tmp74729)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g6595565962_)) - '() - _L65932_ - _L65934_)))) - _symbol6583865926_ - _method6583965929_ - _hd6582765872_)))))) + (declare (not safe)) + (cons __tmp74728 + _g7032870335_))))) + (declare (not safe)) + (foldr2 __tmp74727 + '() + _L70305_ + _L70307_))))) + (declare (not safe)) + (cons __tmp74733 __tmp74726))) + _symbol7021170299_ + _method7021270302_ + _hd7020070245_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6583265884_ - _target6582965878_ + (_loop7020570257_ + _target7020270251_ '() '())) - (_g6581865851_ _g6581965855_))))) - (_g6581865851_ _g6581965855_)))) - (_g6581865851_ _g6581965855_)))) - (_g6581865851_ _g6581965855_))))) - (_g6581765965_ _$stx65814_)))) + (_g7019170224_ _g7019270228_))))) + (_g7019170224_ _g7019270228_)))) + (_g7019170224_ _g7019270228_)))) + (_g7019170224_ _g7019270228_))))) + (_g7019070338_ _$stx70187_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx65970_) - (let* ((_g6597465988_ - (lambda (_g6597565984_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6597565984_))) - (_g6597366029_ - (lambda (_g6597565992_) - (if (gx#stx-pair? _g6597565992_) - (let ((_e6597765995_ (gx#syntax-e _g6597565992_))) - (let ((_hd6597865999_ + (lambda (_$stx70343_) + (let* ((_g7034770361_ + (lambda (_g7034870357_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7034870357_)))) + (_g7034670402_ + (lambda (_g7034870365_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7034870365_)) + (let ((_e7035270368_ + (let () + (declare (not safe)) + (gx#syntax-e _g7034870365_)))) + (let ((_hd7035170372_ (let () (declare (not safe)) - (##car _e6597765995_))) - (_tl6597966002_ + (##car _e7035270368_))) + (_tl7035070375_ (let () (declare (not safe)) - (##cdr _e6597765995_)))) - (if (gx#stx-pair? _tl6597966002_) - (let ((_e6598066005_ (gx#syntax-e _tl6597966002_))) - (let ((_hd6598166009_ + (##cdr _e7035270368_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7035070375_)) + (let ((_e7035570378_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7035070375_)))) + (let ((_hd7035470382_ (let () (declare (not safe)) - (##car _e6598066005_))) - (_tl6598266012_ + (##car _e7035570378_))) + (_tl7035370385_ (let () (declare (not safe)) - (##cdr _e6598066005_)))) - (if (gx#stx-null? _tl6598266012_) - ((lambda (_L66015_) - (cons (gx#datum->syntax__0 - '#f - 'make-!alias) - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L66015_ '())) - '()))) - _hd6598166009_) - (_g6597465988_ _g6597565992_)))) - (_g6597465988_ _g6597565992_)))) - (_g6597465988_ _g6597565992_))))) - (_g6597366029_ _$stx65970_)))) + (##cdr _e7035570378_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7035370385_)) + ((lambda (_L70388_) + (let ((__tmp74738 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!alias))) + (__tmp74734 + (let ((__tmp74735 + (let ((__tmp74737 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74736 + (let () + (declare + (not safe)) + (cons _L70388_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons __tmp74737 __tmp74736)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp74735 '())))) + (declare (not safe)) + (cons __tmp74738 __tmp74734))) + _hd7035470382_) + (_g7034770361_ _g7034870365_)))) + (_g7034770361_ _g7034870365_)))) + (_g7034770361_ _g7034870365_))))) + (_g7034670402_ _$stx70343_)))) (define |gxc[:0:]#@struct-type| - (lambda (_$stx66033_) - (let* ((___stx6864568646_ _$stx66033_) - (_g6603966105_ + (lambda (_$stx70406_) + (let* ((___stx7388973890_ _$stx70406_) + (_g7041270478_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx6864568646_)))) - (let ((___kont6864868649_ - (lambda (_L66327_ _L66329_ _L66330_ _L66331_ _L66332_) - (cons (gx#datum->syntax__0 '#f '@make-struct-type) - (cons _L66332_ - (cons _L66331_ - (cons _L66330_ - (cons _L66329_ - (cons _L66327_ '())))))))) - (___kont6865068651_ - (lambda (_L66237_ _L66239_ _L66240_ _L66241_) - (cons _L66241_ - (cons _L66240_ - (cons _L66239_ - (cons _L66237_ - (cons '#f (cons '#f '())))))))) - (___kont6865268653_ - (lambda (_L66162_ _L66164_ _L66165_ _L66166_ _L66167_) - (cons _L66167_ - (cons (gx#datum->syntax__0 '#f 'type) - (cons _L66165_ - (cons _L66164_ - (cons _L66162_ (cons '#f '()))))))))) - (if (gx#stx-pair? ___stx6864568646_) - (let ((_e6604666267_ (gx#syntax-e ___stx6864568646_))) - (let ((_tl6604866274_ - (let () (declare (not safe)) (##cdr _e6604666267_))) - (_hd6604766271_ - (let () (declare (not safe)) (##car _e6604666267_)))) - (if (gx#stx-pair? _tl6604866274_) - (let ((_e6604966277_ (gx#syntax-e _tl6604866274_))) - (let ((_tl6605166284_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx7388973890_))))) + (let ((___kont7389273893_ + (lambda (_L70700_ _L70702_ _L70703_ _L70704_ _L70705_) + (let ((__tmp74744 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '@make-struct-type))) + (__tmp74739 + (let ((__tmp74740 + (let ((__tmp74741 + (let ((__tmp74742 + (let ((__tmp74743 + (let () + (declare (not safe)) + (cons _L70700_ '())))) + (declare (not safe)) + (cons _L70702_ __tmp74743)))) + (declare (not safe)) + (cons _L70703_ __tmp74742)))) + (declare (not safe)) + (cons _L70704_ __tmp74741)))) + (declare (not safe)) + (cons _L70705_ __tmp74740)))) + (declare (not safe)) + (cons __tmp74744 __tmp74739)))) + (___kont7389473895_ + (lambda (_L70610_ _L70612_ _L70613_ _L70614_) + (let ((__tmp74745 + (let ((__tmp74746 + (let ((__tmp74747 + (let ((__tmp74748 + (let ((__tmp74749 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons '#f __tmp74749)))) + (declare (not safe)) + (cons _L70610_ __tmp74748)))) + (declare (not safe)) + (cons _L70612_ __tmp74747)))) + (declare (not safe)) + (cons _L70613_ __tmp74746)))) + (declare (not safe)) + (cons _L70614_ __tmp74745)))) + (___kont7389673897_ + (lambda (_L70535_ _L70537_ _L70538_ _L70539_ _L70540_) + (let ((__tmp74750 + (let ((__tmp74755 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'type))) + (__tmp74751 + (let ((__tmp74752 + (let ((__tmp74753 + (let ((__tmp74754 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons _L70535_ __tmp74754)))) + (declare (not safe)) + (cons _L70537_ __tmp74753)))) + (declare (not safe)) + (cons _L70538_ __tmp74752)))) + (declare (not safe)) + (cons __tmp74755 __tmp74751)))) + (declare (not safe)) + (cons _L70540_ __tmp74750))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7388973890_)) + (let ((_e7042170640_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx7388973890_)))) + (let ((_tl7041970647_ + (let () (declare (not safe)) (##cdr _e7042170640_))) + (_hd7042070644_ + (let () (declare (not safe)) (##car _e7042170640_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7041970647_)) + (let ((_e7042470650_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7041970647_)))) + (let ((_tl7042270657_ (let () (declare (not safe)) - (##cdr _e6604966277_))) - (_hd6605066281_ + (##cdr _e7042470650_))) + (_hd7042370654_ (let () (declare (not safe)) - (##car _e6604966277_)))) - (if (gx#stx-pair? _tl6605166284_) - (let ((_e6605266287_ - (gx#syntax-e _tl6605166284_))) - (let ((_tl6605466294_ + (##car _e7042470650_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7042270657_)) + (let ((_e7042770660_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7042270657_)))) + (let ((_tl7042570667_ (let () (declare (not safe)) - (##cdr _e6605266287_))) - (_hd6605366291_ + (##cdr _e7042770660_))) + (_hd7042670664_ (let () (declare (not safe)) - (##car _e6605266287_)))) - (if (gx#stx-pair? _tl6605466294_) - (let ((_e6605566297_ - (gx#syntax-e _tl6605466294_))) - (let ((_tl6605766304_ + (##car _e7042770660_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7042570667_)) + (let ((_e7043070670_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7042570667_)))) + (let ((_tl7042870677_ (let () (declare (not safe)) - (##cdr _e6605566297_))) - (_hd6605666301_ + (##cdr _e7043070670_))) + (_hd7042970674_ (let () (declare (not safe)) - (##car _e6605566297_)))) - (if (gx#stx-pair? _tl6605766304_) - (let ((_e6605866307_ - (gx#syntax-e - _tl6605766304_))) - (let ((_tl6606066314_ + (##car _e7043070670_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7042870677_)) + (let ((_e7043370680_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl7042870677_)))) + (let ((_tl7043170687_ (let () (declare (not safe)) - (##cdr _e6605866307_))) - (_hd6605966311_ + (##cdr _e7043370680_))) + (_hd7043270684_ (let () (declare (not safe)) - (##car _e6605866307_)))) - (if (gx#stx-pair? - _tl6606066314_) - (let ((_e6606166317_ - (gx#syntax-e - _tl6606066314_))) - (let ((_tl6606366324_ - (let () + (##car _e7043370680_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7043170687_)) + (let ((_e7043670690_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _e6606166317_))) - (_hd6606266321_ - (let () (declare (not safe)) (##car _e6606166317_)))) - (if (gx#stx-null? _tl6606366324_) - (___kont6864868649_ - _hd6606266321_ - _hd6605966311_ - _hd6605666301_ - _hd6605366291_ - _hd6605066281_) - (_g6603966105_)))) - (if (gx#stx-null? _tl6606066314_) - (___kont6865268653_ - _hd6605966311_ - _hd6605666301_ - _hd6605366291_ - _hd6605066281_ - _hd6604766271_) - (_g6603966105_))))) + (not safe)) + (gx#syntax-e _tl7043170687_)))) + (let ((_tl7043470697_ + (let () (declare (not safe)) (##cdr _e7043670690_))) + (_hd7043570694_ + (let () (declare (not safe)) (##car _e7043670690_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7043470697_)) + (___kont7389273893_ + _hd7043570694_ + _hd7043270684_ + _hd7042970674_ + _hd7042670664_ + _hd7042370654_) + (let () (declare (not safe)) (_g7041270478_))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl7043170687_)) + (___kont7389673897_ + _hd7043270684_ + _hd7042970674_ + _hd7042670664_ + _hd7042370654_ + _hd7042070644_) + (let () (declare (not safe)) (_g7041270478_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _tl6605766304_) - (___kont6865068651_ - _hd6605666301_ - _hd6605366291_ - _hd6605066281_ - _hd6604766271_) - (_g6603966105_))))) - (_g6603966105_)))) - (_g6603966105_)))) - (_g6603966105_)))) - (_g6603966105_)))))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7042870677_)) + (___kont7389473895_ + _hd7042970674_ + _hd7042670664_ + _hd7042370654_ + _hd7042070644_) + (let () + (declare (not safe)) + (_g7041270478_)))))) + (let () + (declare (not safe)) + (_g7041270478_))))) + (let () (declare (not safe)) (_g7041270478_))))) + (let () (declare (not safe)) (_g7041270478_))))) + (let () (declare (not safe)) (_g7041270478_))))))) (define |gxc[:0:]#@make-struct-type| - (lambda (_$stx66360_) - (let* ((___stx6875368754_ _$stx66360_) - (_g6636566418_ + (lambda (_$stx70733_) + (let* ((___stx7399773998_ _$stx70733_) + (_g7073870791_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx6875368754_)))) - (let ((___kont6875668757_ - (lambda (_L66586_ _L66588_ _L66589_ _L66590_) - (cons (gx#datum->syntax__0 '#f 'make-!struct-type) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L66590_ '())) - (cons '#f - (cons _L66589_ - (cons '0 - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L66588_ '())) - (cons (cons (gx#datum->syntax__0 + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx7399773998_))))) + (let ((___kont7400074001_ + (lambda (_L70959_ _L70961_ _L70962_ _L70963_) + (let ((__tmp74771 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!struct-type))) + (__tmp74756 + (let ((__tmp74768 + (let ((__tmp74770 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74769 + (let () + (declare (not safe)) + (cons _L70963_ '())))) + (declare (not safe)) + (cons __tmp74770 __tmp74769))) + (__tmp74757 + (let ((__tmp74758 + (let ((__tmp74759 + (let ((__tmp74760 + (let ((__tmp74765 + (let ((__tmp74767 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L66586_ '())) - '()))))))))) + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74766 + (let () (declare (not safe)) (cons _L70961_ '())))) + (declare (not safe)) + (cons __tmp74767 __tmp74766))) + (__tmp74761 + (let ((__tmp74762 + (let ((__tmp74764 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74763 + (let () + (declare (not safe)) + (cons _L70959_ '())))) + (declare (not safe)) + (cons __tmp74764 __tmp74763)))) + (declare (not safe)) + (cons __tmp74762 '())))) + (declare (not safe)) + (cons __tmp74765 __tmp74761)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont6875868759_ - (lambda (_L66485_ _L66487_ _L66488_ _L66489_ _L66490_) - (cons (gx#datum->syntax__0 '#f 'let*) - (cons (cons (cons (gx#datum->syntax__0 '#f 'super-type) - (cons (cons (gx#datum->syntax__0 - '#f - 'optimizer-resolve-type) - (cons (cons (gx#datum->syntax__0 + (declare (not safe)) + (cons '0 __tmp74760)))) + (declare (not safe)) + (cons _L70962_ __tmp74759)))) + (declare (not safe)) + (cons '#f __tmp74758)))) + (declare (not safe)) + (cons __tmp74768 __tmp74757)))) + (declare (not safe)) + (cons __tmp74771 __tmp74756)))) + (___kont7400274003_ + (lambda (_L70858_ _L70860_ _L70861_ _L70862_ _L70863_) + (let ((__tmp74853 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'let*))) + (__tmp74772 + (let ((__tmp74793 + (let ((__tmp74844 + (let ((__tmp74852 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'super-type))) + (__tmp74845 + (let ((__tmp74846 + (let ((__tmp74851 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'optimizer-resolve-type))) + (__tmp74847 + (let ((__tmp74848 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L66489_ '())) - '())) + (let ((__tmp74850 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74849 + (let () + (declare (not safe)) + (cons _L70862_ '())))) + (declare (not safe)) + (cons __tmp74850 __tmp74849)))) + (declare (not safe)) + (cons __tmp74848 '())))) + (declare (not safe)) + (cons __tmp74851 __tmp74847)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons (gx#datum->syntax__0 - '#f - 'xfields) - (cons (cons (gx#datum->syntax__0 - '#f - 'and) - (cons (gx#datum->syntax__0 + (declare (not safe)) + (cons __tmp74846 '())))) + (declare (not safe)) + (cons __tmp74852 __tmp74845))) + (__tmp74794 + (let ((__tmp74816 + (let ((__tmp74843 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'xfields))) + (__tmp74817 + (let ((__tmp74818 + (let ((__tmp74842 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'super-type) - (cons (cons (gx#datum->syntax__0 '#f 'alet) - (cons (cons (gx#datum->syntax__0 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'and))) + (__tmp74819 + (let ((__tmp74841 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'super-type))) + (__tmp74820 + (let ((__tmp74821 + (let ((__tmp74840 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f - 'xfields) - (cons (cons (gx#datum->syntax__0 - '#f - '!struct-type-xfields) - (cons (gx#datum->syntax__0 + 'alet))) + (__tmp74822 + (let ((__tmp74833 + (let ((__tmp74839 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'super-type) - '())) - '())) + (not safe)) + (gx#datum->syntax__0 '#f 'xfields))) + (__tmp74834 + (let ((__tmp74835 + (let ((__tmp74838 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '!struct-type-xfields))) + (__tmp74836 + (let ((__tmp74837 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'super-type)))) + (declare (not safe)) + (cons __tmp74837 '())))) + (declare (not safe)) + (cons __tmp74838 __tmp74836)))) + (declare (not safe)) + (cons __tmp74835 '())))) + (declare (not safe)) + (cons __tmp74839 __tmp74834))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax__0 - '#f - 'fx+) - (cons (gx#datum->syntax__0 - '#f - 'xfields) - (cons (cons (gx#datum->syntax__0 + (__tmp74823 + (let ((__tmp74824 + (let ((__tmp74832 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '!struct-type-fields) - (cons (gx#datum->syntax__0 '#f 'super-type) - '())) - '()))) + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'fx+))) + (__tmp74825 + (let ((__tmp74831 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'xfields))) + (__tmp74826 + (let ((__tmp74827 + (let ((__tmp74830 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '!struct-type-fields))) + (__tmp74828 + (let ((__tmp74829 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'super-type)))) + (declare (not safe)) + (cons __tmp74829 '())))) + (declare (not safe)) + (cons __tmp74830 __tmp74828)))) + (declare (not safe)) + (cons __tmp74827 '())))) + (declare (not safe)) + (cons __tmp74831 __tmp74826)))) + (declare (not safe)) + (cons __tmp74832 __tmp74825)))) + (declare (not safe)) + (cons __tmp74824 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) + (declare (not safe)) + (cons __tmp74833 + __tmp74823)))) + (declare (not safe)) + (cons __tmp74840 __tmp74822)))) + (declare (not safe)) + (cons __tmp74821 '())))) + (declare (not safe)) + (cons __tmp74841 __tmp74820)))) + (declare (not safe)) + (cons __tmp74842 __tmp74819)))) + (declare (not safe)) + (cons __tmp74818 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons (gx#datum->syntax__0 - '#f - 'xtor) - (cons (cons (gx#datum->syntax__0 + (declare (not safe)) + (cons __tmp74843 __tmp74817))) + (__tmp74795 + (let ((__tmp74796 + (let ((__tmp74815 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'xtor))) + (__tmp74797 + (let ((__tmp74798 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'or) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L66487_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'if) - (cons (gx#datum->syntax__0 + (let ((__tmp74814 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'or))) + (__tmp74799 + (let ((__tmp74811 + (let ((__tmp74813 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f - 'super-type) - (cons (cons (gx#datum->syntax__0 - '#f - '!struct-type-ctor) - (cons (gx#datum->syntax__0 + 'quote))) + (__tmp74812 + (let () + (declare (not safe)) + (cons _L70860_ '())))) + (declare (not safe)) + (cons __tmp74813 __tmp74812))) + (__tmp74800 + (let ((__tmp74801 + (let ((__tmp74810 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'if))) + (__tmp74802 + (let ((__tmp74809 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'super-type) - '())) - (cons '#!void '())))) + (not safe)) + (gx#datum->syntax__0 '#f 'super-type))) + (__tmp74803 + (let ((__tmp74805 + (let ((__tmp74808 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '!struct-type-ctor))) + (__tmp74806 + (let ((__tmp74807 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'super-type)))) + (declare (not safe)) + (cons __tmp74807 '())))) + (declare (not safe)) + (cons __tmp74808 __tmp74806))) + (__tmp74804 + (let () (declare (not safe)) (cons '#!void '())))) + (declare (not safe)) + (cons __tmp74805 __tmp74804)))) + (declare (not safe)) + (cons __tmp74809 __tmp74803)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())) + (declare (not safe)) + (cons __tmp74810 + __tmp74802)))) + (declare (not safe)) + (cons __tmp74801 '())))) + (declare (not safe)) + (cons __tmp74811 __tmp74800)))) + (declare (not safe)) + (cons __tmp74814 __tmp74799)))) + (declare (not safe)) + (cons __tmp74798 '())))) + (declare (not safe)) + (cons __tmp74815 __tmp74797)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax__0 - '#f - 'make-!struct-type) - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L66490_ '())) - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L66489_ '())) - (cons _L66488_ - (cons (gx#datum->syntax__0 + (declare (not safe)) + (cons __tmp74796 '())))) + (declare (not safe)) + (cons __tmp74816 __tmp74795)))) + (declare (not safe)) + (cons __tmp74844 __tmp74794))) + (__tmp74773 + (let ((__tmp74774 + (let ((__tmp74792 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!struct-type))) + (__tmp74775 + (let ((__tmp74789 + (let ((__tmp74791 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74790 + (let () + (declare + (not safe)) + (cons _L70863_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'xfields) - (cons (gx#datum->syntax__0 '#f 'xtor) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L66485_ '())) - '()))))))) + '())))) + (declare (not safe)) + (cons __tmp74791 __tmp74790))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp74776 + (let ((__tmp74786 + (let ((__tmp74788 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74787 + (let () (declare (not safe)) (cons _L70862_ '())))) + (declare (not safe)) + (cons __tmp74788 __tmp74787))) + (__tmp74777 + (let ((__tmp74778 + (let ((__tmp74785 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'xfields))) + (__tmp74779 + (let ((__tmp74784 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'xtor))) + (__tmp74780 + (let ((__tmp74781 + (let ((__tmp74783 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74782 + (let () + (declare (not safe)) + (cons _L70858_ '())))) + (declare (not safe)) + (cons __tmp74783 + __tmp74782)))) + (declare (not safe)) + (cons __tmp74781 '())))) + (declare (not safe)) + (cons __tmp74784 __tmp74780)))) + (declare (not safe)) + (cons __tmp74785 __tmp74779)))) + (declare (not safe)) + (cons _L70861_ __tmp74778)))) + (declare (not safe)) + (cons __tmp74786 __tmp74777)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - (if (gx#stx-pair? ___stx6875368754_) - (let ((_e6637166522_ (gx#syntax-e ___stx6875368754_))) - (let ((_tl6637366529_ - (let () (declare (not safe)) (##cdr _e6637166522_))) - (_hd6637266526_ - (let () (declare (not safe)) (##car _e6637166522_)))) - (if (gx#stx-pair? _tl6637366529_) - (let ((_e6637466532_ (gx#syntax-e _tl6637366529_))) - (let ((_tl6637666539_ + (declare (not safe)) + (cons __tmp74789 __tmp74776)))) + (declare (not safe)) + (cons __tmp74792 __tmp74775)))) + (declare (not safe)) + (cons __tmp74774 '())))) + (declare (not safe)) + (cons __tmp74793 __tmp74773)))) + (declare (not safe)) + (cons __tmp74853 __tmp74772))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7399773998_)) + (let ((_e7074670895_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx7399773998_)))) + (let ((_tl7074470902_ + (let () (declare (not safe)) (##cdr _e7074670895_))) + (_hd7074570899_ + (let () (declare (not safe)) (##car _e7074670895_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7074470902_)) + (let ((_e7074970905_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7074470902_)))) + (let ((_tl7074770912_ (let () (declare (not safe)) - (##cdr _e6637466532_))) - (_hd6637566536_ + (##cdr _e7074970905_))) + (_hd7074870909_ (let () (declare (not safe)) - (##car _e6637466532_)))) - (if (gx#stx-pair? _tl6637666539_) - (let ((_e6637766542_ - (gx#syntax-e _tl6637666539_))) - (let ((_tl6637966549_ + (##car _e7074970905_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7074770912_)) + (let ((_e7075270915_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7074770912_)))) + (let ((_tl7075070922_ (let () (declare (not safe)) - (##cdr _e6637766542_))) - (_hd6637866546_ + (##cdr _e7075270915_))) + (_hd7075170919_ (let () (declare (not safe)) - (##car _e6637766542_)))) - (if (gx#stx-datum? _hd6637866546_) - (let ((_e6638066552_ - (gx#stx-e _hd6637866546_))) - (if (equal? _e6638066552_ '#f) - (if (gx#stx-pair? _tl6637966549_) - (let ((_e6638166556_ - (gx#syntax-e - _tl6637966549_))) - (let ((_tl6638366563_ + (##car _e7075270915_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _hd7075170919_)) + (let ((_e7075370925_ + (let () + (declare (not safe)) + (gx#stx-e _hd7075170919_)))) + (if (let () + (declare (not safe)) + (equal? _e7075370925_ '#f)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7075070922_)) + (let ((_e7075670929_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl7075070922_)))) + (let ((_tl7075470936_ (let () (declare (not safe)) - (##cdr _e6638166556_))) - (_hd6638266560_ + (##cdr _e7075670929_))) + (_hd7075570933_ (let () (declare (not safe)) - (##car _e6638166556_)))) - (if (gx#stx-pair? - _tl6638366563_) - (let ((_e6638466566_ - (gx#syntax-e - _tl6638366563_))) - (let ((_tl6638666573_ + (##car _e7075670929_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7075470936_)) + (let ((_e7075970939_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e6638466566_))) - (_hd6638566570_ - (let () (declare (not safe)) (##car _e6638466566_)))) - (if (gx#stx-pair? _tl6638666573_) - (let ((_e6638766576_ (gx#syntax-e _tl6638666573_))) - (let ((_tl6638966583_ + (declare (not safe)) + (gx#syntax-e _tl7075470936_)))) + (let ((_tl7075770946_ + (let () (declare (not safe)) (##cdr _e7075970939_))) + (_hd7075870943_ + (let () (declare (not safe)) (##car _e7075970939_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7075770946_)) + (let ((_e7076270949_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7075770946_)))) + (let ((_tl7076070956_ (let () (declare (not safe)) - (##cdr _e6638766576_))) - (_hd6638866580_ + (##cdr _e7076270949_))) + (_hd7076170953_ (let () (declare (not safe)) - (##car _e6638766576_)))) - (if (gx#stx-null? _tl6638966583_) - (___kont6875668757_ - _hd6638866580_ - _hd6638566570_ - _hd6638266560_ - _hd6637566536_) - (_g6636566418_)))) - (_g6636566418_)))) - (_g6636566418_)))) + (##car _e7076270949_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7076070956_)) + (___kont7400074001_ + _hd7076170953_ + _hd7075870943_ + _hd7075570933_ + _hd7074870909_) + (let () + (declare (not safe)) + (_g7073870791_))))) + (let () (declare (not safe)) (_g7073870791_))))) + (let () (declare (not safe)) (_g7073870791_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6636566418_)) - (if (gx#stx-pair? _tl6637966549_) - (let ((_e6640466455_ - (gx#syntax-e - _tl6637966549_))) - (let ((_tl6640666462_ + (let () + (declare (not safe)) + (_g7073870791_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7075070922_)) + (let ((_e7077970828_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl7075070922_)))) + (let ((_tl7077770835_ (let () (declare (not safe)) - (##cdr _e6640466455_))) - (_hd6640566459_ + (##cdr _e7077970828_))) + (_hd7077870832_ (let () (declare (not safe)) - (##car _e6640466455_)))) - (if (gx#stx-pair? - _tl6640666462_) - (let ((_e6640766465_ - (gx#syntax-e - _tl6640666462_))) - (let ((_tl6640966472_ + (##car _e7077970828_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7077770835_)) + (let ((_e7078270838_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e6640766465_))) - (_hd6640866469_ - (let () (declare (not safe)) (##car _e6640766465_)))) - (if (gx#stx-pair? _tl6640966472_) - (let ((_e6641066475_ (gx#syntax-e _tl6640966472_))) - (let ((_tl6641266482_ + (declare (not safe)) + (gx#syntax-e _tl7077770835_)))) + (let ((_tl7078070845_ + (let () (declare (not safe)) (##cdr _e7078270838_))) + (_hd7078170842_ + (let () (declare (not safe)) (##car _e7078270838_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7078070845_)) + (let ((_e7078570848_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7078070845_)))) + (let ((_tl7078370855_ (let () (declare (not safe)) - (##cdr _e6641066475_))) - (_hd6641166479_ + (##cdr _e7078570848_))) + (_hd7078470852_ (let () (declare (not safe)) - (##car _e6641066475_)))) - (if (gx#stx-null? _tl6641266482_) - (___kont6875868759_ - _hd6641166479_ - _hd6640866469_ - _hd6640566459_ - _hd6637866546_ - _hd6637566536_) - (_g6636566418_)))) - (_g6636566418_)))) - (_g6636566418_)))) + (##car _e7078570848_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7078370855_)) + (___kont7400274003_ + _hd7078470852_ + _hd7078170842_ + _hd7077870832_ + _hd7075170919_ + _hd7074870909_) + (let () + (declare (not safe)) + (_g7073870791_))))) + (let () (declare (not safe)) (_g7073870791_))))) + (let () (declare (not safe)) (_g7073870791_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6636566418_)))) - (if (gx#stx-pair? _tl6637966549_) - (let ((_e6640466455_ - (gx#syntax-e _tl6637966549_))) - (let ((_tl6640666462_ + (let () + (declare (not safe)) + (_g7073870791_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7075070922_)) + (let ((_e7077970828_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl7075070922_)))) + (let ((_tl7077770835_ (let () (declare (not safe)) - (##cdr _e6640466455_))) - (_hd6640566459_ + (##cdr _e7077970828_))) + (_hd7077870832_ (let () (declare (not safe)) - (##car _e6640466455_)))) - (if (gx#stx-pair? _tl6640666462_) - (let ((_e6640766465_ - (gx#syntax-e - _tl6640666462_))) - (let ((_tl6640966472_ + (##car _e7077970828_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7077770835_)) + (let ((_e7078270838_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl7077770835_)))) + (let ((_tl7078070845_ (let () (declare (not safe)) - (##cdr _e6640766465_))) - (_hd6640866469_ + (##cdr _e7078270838_))) + (_hd7078170842_ (let () (declare (not safe)) - (##car _e6640766465_)))) - (if (gx#stx-pair? - _tl6640966472_) - (let ((_e6641066475_ + (##car _e7078270838_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _tl7078070845_)) + (let ((_e7078570848_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl6640966472_))) - (let ((_tl6641266482_ - (let () (declare (not safe)) (##cdr _e6641066475_))) - (_hd6641166479_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7078070845_)))) + (let ((_tl7078370855_ + (let () (declare (not safe)) (##cdr _e7078570848_))) + (_hd7078470852_ (let () (declare (not safe)) - (##car _e6641066475_)))) - (if (gx#stx-null? _tl6641266482_) - (___kont6875868759_ - _hd6641166479_ - _hd6640866469_ - _hd6640566459_ - _hd6637866546_ - _hd6637566536_) - (_g6636566418_)))) - (_g6636566418_)))) + (##car _e7078570848_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7078370855_)) + (___kont7400274003_ + _hd7078470852_ + _hd7078170842_ + _hd7077870832_ + _hd7075170919_ + _hd7074870909_) + (let () (declare (not safe)) (_g7073870791_))))) + (let () (declare (not safe)) (_g7073870791_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6636566418_)))) - (_g6636566418_))))) - (_g6636566418_)))) - (_g6636566418_)))) - (_g6636566418_)))))) + (let () + (declare (not safe)) + (_g7073870791_))))) + (let () + (declare (not safe)) + (_g7073870791_)))))) + (let () (declare (not safe)) (_g7073870791_))))) + (let () (declare (not safe)) (_g7073870791_))))) + (let () (declare (not safe)) (_g7073870791_))))))) (define |gxc[:0:]#@struct-pred| - (lambda (_$stx66618_) - (let* ((_g6662266636_ - (lambda (_g6662366632_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6662366632_))) - (_g6662166677_ - (lambda (_g6662366640_) - (if (gx#stx-pair? _g6662366640_) - (let ((_e6662566643_ (gx#syntax-e _g6662366640_))) - (let ((_hd6662666647_ + (lambda (_$stx70991_) + (let* ((_g7099571009_ + (lambda (_g7099671005_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7099671005_)))) + (_g7099471050_ + (lambda (_g7099671013_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7099671013_)) + (let ((_e7100071016_ + (let () + (declare (not safe)) + (gx#syntax-e _g7099671013_)))) + (let ((_hd7099971020_ (let () (declare (not safe)) - (##car _e6662566643_))) - (_tl6662766650_ + (##car _e7100071016_))) + (_tl7099871023_ (let () (declare (not safe)) - (##cdr _e6662566643_)))) - (if (gx#stx-pair? _tl6662766650_) - (let ((_e6662866653_ (gx#syntax-e _tl6662766650_))) - (let ((_hd6662966657_ + (##cdr _e7100071016_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7099871023_)) + (let ((_e7100371026_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7099871023_)))) + (let ((_hd7100271030_ (let () (declare (not safe)) - (##car _e6662866653_))) - (_tl6663066660_ + (##car _e7100371026_))) + (_tl7100171033_ (let () (declare (not safe)) - (##cdr _e6662866653_)))) - (if (gx#stx-null? _tl6663066660_) - ((lambda (_L66663_) - (cons (gx#datum->syntax__0 - '#f - 'make-!struct-pred) - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L66663_ '())) - '()))) - _hd6662966657_) - (_g6662266636_ _g6662366640_)))) - (_g6662266636_ _g6662366640_)))) - (_g6662266636_ _g6662366640_))))) - (_g6662166677_ _$stx66618_)))) + (##cdr _e7100371026_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7100171033_)) + ((lambda (_L71036_) + (let ((__tmp74858 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!struct-pred))) + (__tmp74854 + (let ((__tmp74855 + (let ((__tmp74857 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74856 + (let () + (declare + (not safe)) + (cons _L71036_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons __tmp74857 __tmp74856)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp74855 '())))) + (declare (not safe)) + (cons __tmp74858 __tmp74854))) + _hd7100271030_) + (_g7099571009_ _g7099671013_)))) + (_g7099571009_ _g7099671013_)))) + (_g7099571009_ _g7099671013_))))) + (_g7099471050_ _$stx70991_)))) (define |gxc[:0:]#@struct-cons| - (lambda (_$stx66681_) - (let* ((_g6668566699_ - (lambda (_g6668666695_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6668666695_))) - (_g6668466740_ - (lambda (_g6668666703_) - (if (gx#stx-pair? _g6668666703_) - (let ((_e6668866706_ (gx#syntax-e _g6668666703_))) - (let ((_hd6668966710_ + (lambda (_$stx71054_) + (let* ((_g7105871072_ + (lambda (_g7105971068_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7105971068_)))) + (_g7105771113_ + (lambda (_g7105971076_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7105971076_)) + (let ((_e7106371079_ + (let () + (declare (not safe)) + (gx#syntax-e _g7105971076_)))) + (let ((_hd7106271083_ (let () (declare (not safe)) - (##car _e6668866706_))) - (_tl6669066713_ + (##car _e7106371079_))) + (_tl7106171086_ (let () (declare (not safe)) - (##cdr _e6668866706_)))) - (if (gx#stx-pair? _tl6669066713_) - (let ((_e6669166716_ (gx#syntax-e _tl6669066713_))) - (let ((_hd6669266720_ + (##cdr _e7106371079_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7106171086_)) + (let ((_e7106671089_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7106171086_)))) + (let ((_hd7106571093_ (let () (declare (not safe)) - (##car _e6669166716_))) - (_tl6669366723_ + (##car _e7106671089_))) + (_tl7106471096_ (let () (declare (not safe)) - (##cdr _e6669166716_)))) - (if (gx#stx-null? _tl6669366723_) - ((lambda (_L66726_) - (cons (gx#datum->syntax__0 - '#f - 'make-!struct-cons) - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L66726_ '())) - '()))) - _hd6669266720_) - (_g6668566699_ _g6668666703_)))) - (_g6668566699_ _g6668666703_)))) - (_g6668566699_ _g6668666703_))))) - (_g6668466740_ _$stx66681_)))) + (##cdr _e7106671089_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7106471096_)) + ((lambda (_L71099_) + (let ((__tmp74863 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!struct-cons))) + (__tmp74859 + (let ((__tmp74860 + (let ((__tmp74862 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74861 + (let () + (declare + (not safe)) + (cons _L71099_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons __tmp74862 __tmp74861)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp74860 '())))) + (declare (not safe)) + (cons __tmp74863 __tmp74859))) + _hd7106571093_) + (_g7105871072_ _g7105971076_)))) + (_g7105871072_ _g7105971076_)))) + (_g7105871072_ _g7105971076_))))) + (_g7105771113_ _$stx71054_)))) (define |gxc[:0:]#@struct-getf| - (lambda (_$stx66744_) - (let* ((___stx6884568846_ _$stx66744_) - (_g6674966782_ + (lambda (_$stx71117_) + (let* ((___stx7408974090_ _$stx71117_) + (_g7112271155_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx6884568846_)))) - (let ((___kont6884868849_ - (lambda (_L66884_ _L66886_ _L66887_) - (cons (gx#datum->syntax__0 '#f 'make-!struct-getf) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L66887_ '())) - (cons _L66886_ (cons _L66884_ '())))))) - (___kont6885068851_ - (lambda (_L66819_ _L66821_) - (cons (gx#datum->syntax__0 '#f 'make-!struct-getf) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L66821_ '())) - (cons _L66819_ (cons '#f '()))))))) - (if (gx#stx-pair? ___stx6884568846_) - (let ((_e6675466844_ (gx#syntax-e ___stx6884568846_))) - (let ((_tl6675666851_ - (let () (declare (not safe)) (##cdr _e6675466844_))) - (_hd6675566848_ - (let () (declare (not safe)) (##car _e6675466844_)))) - (if (gx#stx-pair? _tl6675666851_) - (let ((_e6675766854_ (gx#syntax-e _tl6675666851_))) - (let ((_tl6675966861_ - (let () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx7408974090_))))) + (let ((___kont7409274093_ + (lambda (_L71257_ _L71259_ _L71260_) + (let ((__tmp74870 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!struct-getf))) + (__tmp74864 + (let ((__tmp74867 + (let ((__tmp74869 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74868 + (let () + (declare (not safe)) + (cons _L71260_ '())))) (declare (not safe)) - (##cdr _e6675766854_))) - (_hd6675866858_ - (let () + (cons __tmp74869 __tmp74868))) + (__tmp74865 + (let ((__tmp74866 + (let () + (declare (not safe)) + (cons _L71257_ '())))) (declare (not safe)) - (##car _e6675766854_)))) - (if (gx#stx-pair? _tl6675966861_) - (let ((_e6676066864_ - (gx#syntax-e _tl6675966861_))) - (let ((_tl6676266871_ - (let () + (cons _L71259_ __tmp74866)))) + (declare (not safe)) + (cons __tmp74867 __tmp74865)))) + (declare (not safe)) + (cons __tmp74870 __tmp74864)))) + (___kont7409474095_ + (lambda (_L71192_ _L71194_) + (let ((__tmp74877 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!struct-getf))) + (__tmp74871 + (let ((__tmp74874 + (let ((__tmp74876 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74875 + (let () + (declare (not safe)) + (cons _L71194_ '())))) + (declare (not safe)) + (cons __tmp74876 __tmp74875))) + (__tmp74872 + (let ((__tmp74873 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons _L71192_ __tmp74873)))) + (declare (not safe)) + (cons __tmp74874 __tmp74872)))) + (declare (not safe)) + (cons __tmp74877 __tmp74871))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7408974090_)) + (let ((_e7112971217_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx7408974090_)))) + (let ((_tl7112771224_ + (let () (declare (not safe)) (##cdr _e7112971217_))) + (_hd7112871221_ + (let () (declare (not safe)) (##car _e7112971217_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7112771224_)) + (let ((_e7113271227_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7112771224_)))) + (let ((_tl7113071234_ + (let () + (declare (not safe)) + (##cdr _e7113271227_))) + (_hd7113171231_ + (let () + (declare (not safe)) + (##car _e7113271227_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7113071234_)) + (let ((_e7113571237_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7113071234_)))) + (let ((_tl7113371244_ + (let () (declare (not safe)) - (##cdr _e6676066864_))) - (_hd6676166868_ + (##cdr _e7113571237_))) + (_hd7113471241_ (let () (declare (not safe)) - (##car _e6676066864_)))) - (if (gx#stx-pair? _tl6676266871_) - (let ((_e6676366874_ - (gx#syntax-e _tl6676266871_))) - (let ((_tl6676566881_ + (##car _e7113571237_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7113371244_)) + (let ((_e7113871247_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7113371244_)))) + (let ((_tl7113671254_ (let () (declare (not safe)) - (##cdr _e6676366874_))) - (_hd6676466878_ + (##cdr _e7113871247_))) + (_hd7113771251_ (let () (declare (not safe)) - (##car _e6676366874_)))) - (if (gx#stx-null? _tl6676566881_) - (___kont6884868849_ - _hd6676466878_ - _hd6676166868_ - _hd6675866858_) - (_g6674966782_)))) - (if (gx#stx-null? _tl6676266871_) - (___kont6885068851_ - _hd6676166868_ - _hd6675866858_) - (_g6674966782_))))) - (_g6674966782_)))) - (_g6674966782_)))) - (_g6674966782_)))))) + (##car _e7113871247_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7113671254_)) + (___kont7409274093_ + _hd7113771251_ + _hd7113471241_ + _hd7113171231_) + (let () + (declare (not safe)) + (_g7112271155_))))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7113371244_)) + (___kont7409474095_ + _hd7113471241_ + _hd7113171231_) + (let () + (declare (not safe)) + (_g7112271155_)))))) + (let () (declare (not safe)) (_g7112271155_))))) + (let () (declare (not safe)) (_g7112271155_))))) + (let () (declare (not safe)) (_g7112271155_))))))) (define |gxc[:0:]#@struct-setf| - (lambda (_$stx66909_) - (let* ((___stx6890168902_ _$stx66909_) - (_g6691466947_ + (lambda (_$stx71282_) + (let* ((___stx7414574146_ _$stx71282_) + (_g7128771320_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx6890168902_)))) - (let ((___kont6890468905_ - (lambda (_L67049_ _L67051_ _L67052_) - (cons (gx#datum->syntax__0 '#f 'make-!struct-setf) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67052_ '())) - (cons _L67051_ (cons _L67049_ '())))))) - (___kont6890668907_ - (lambda (_L66984_ _L66986_) - (cons (gx#datum->syntax__0 '#f 'make-!struct-setf) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L66986_ '())) - (cons _L66984_ (cons '#f '()))))))) - (if (gx#stx-pair? ___stx6890168902_) - (let ((_e6691967009_ (gx#syntax-e ___stx6890168902_))) - (let ((_tl6692167016_ - (let () (declare (not safe)) (##cdr _e6691967009_))) - (_hd6692067013_ - (let () (declare (not safe)) (##car _e6691967009_)))) - (if (gx#stx-pair? _tl6692167016_) - (let ((_e6692267019_ (gx#syntax-e _tl6692167016_))) - (let ((_tl6692467026_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx7414574146_))))) + (let ((___kont7414874149_ + (lambda (_L71422_ _L71424_ _L71425_) + (let ((__tmp74884 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!struct-setf))) + (__tmp74878 + (let ((__tmp74881 + (let ((__tmp74883 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74882 + (let () + (declare (not safe)) + (cons _L71425_ '())))) + (declare (not safe)) + (cons __tmp74883 __tmp74882))) + (__tmp74879 + (let ((__tmp74880 + (let () + (declare (not safe)) + (cons _L71422_ '())))) + (declare (not safe)) + (cons _L71424_ __tmp74880)))) + (declare (not safe)) + (cons __tmp74881 __tmp74879)))) + (declare (not safe)) + (cons __tmp74884 __tmp74878)))) + (___kont7415074151_ + (lambda (_L71357_ _L71359_) + (let ((__tmp74891 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!struct-setf))) + (__tmp74885 + (let ((__tmp74888 + (let ((__tmp74890 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74889 + (let () + (declare (not safe)) + (cons _L71359_ '())))) + (declare (not safe)) + (cons __tmp74890 __tmp74889))) + (__tmp74886 + (let ((__tmp74887 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons _L71357_ __tmp74887)))) + (declare (not safe)) + (cons __tmp74888 __tmp74886)))) + (declare (not safe)) + (cons __tmp74891 __tmp74885))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7414574146_)) + (let ((_e7129471382_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx7414574146_)))) + (let ((_tl7129271389_ + (let () (declare (not safe)) (##cdr _e7129471382_))) + (_hd7129371386_ + (let () (declare (not safe)) (##car _e7129471382_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7129271389_)) + (let ((_e7129771392_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7129271389_)))) + (let ((_tl7129571399_ (let () (declare (not safe)) - (##cdr _e6692267019_))) - (_hd6692367023_ + (##cdr _e7129771392_))) + (_hd7129671396_ (let () (declare (not safe)) - (##car _e6692267019_)))) - (if (gx#stx-pair? _tl6692467026_) - (let ((_e6692567029_ - (gx#syntax-e _tl6692467026_))) - (let ((_tl6692767036_ + (##car _e7129771392_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7129571399_)) + (let ((_e7130071402_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7129571399_)))) + (let ((_tl7129871409_ (let () (declare (not safe)) - (##cdr _e6692567029_))) - (_hd6692667033_ + (##cdr _e7130071402_))) + (_hd7129971406_ (let () (declare (not safe)) - (##car _e6692567029_)))) - (if (gx#stx-pair? _tl6692767036_) - (let ((_e6692867039_ - (gx#syntax-e _tl6692767036_))) - (let ((_tl6693067046_ + (##car _e7130071402_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7129871409_)) + (let ((_e7130371412_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7129871409_)))) + (let ((_tl7130171419_ (let () (declare (not safe)) - (##cdr _e6692867039_))) - (_hd6692967043_ + (##cdr _e7130371412_))) + (_hd7130271416_ (let () (declare (not safe)) - (##car _e6692867039_)))) - (if (gx#stx-null? _tl6693067046_) - (___kont6890468905_ - _hd6692967043_ - _hd6692667033_ - _hd6692367023_) - (_g6691466947_)))) - (if (gx#stx-null? _tl6692767036_) - (___kont6890668907_ - _hd6692667033_ - _hd6692367023_) - (_g6691466947_))))) - (_g6691466947_)))) - (_g6691466947_)))) - (_g6691466947_)))))) + (##car _e7130371412_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7130171419_)) + (___kont7414874149_ + _hd7130271416_ + _hd7129971406_ + _hd7129671396_) + (let () + (declare (not safe)) + (_g7128771320_))))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7129871409_)) + (___kont7415074151_ + _hd7129971406_ + _hd7129671396_) + (let () + (declare (not safe)) + (_g7128771320_)))))) + (let () (declare (not safe)) (_g7128771320_))))) + (let () (declare (not safe)) (_g7128771320_))))) + (let () (declare (not safe)) (_g7128771320_))))))) (define |gxc[:0:]#@class-type| - (lambda (_$stx67074_) - (let* ((_g6707867116_ - (lambda (_g6707967112_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6707967112_))) - (_g6707767241_ - (lambda (_g6707967120_) - (if (gx#stx-pair? _g6707967120_) - (let ((_e6708767123_ (gx#syntax-e _g6707967120_))) - (let ((_hd6708867127_ + (lambda (_$stx71447_) + (let* ((_g7145171489_ + (lambda (_g7145271485_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7145271485_)))) + (_g7145071614_ + (lambda (_g7145271493_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7145271493_)) + (let ((_e7146271496_ + (let () + (declare (not safe)) + (gx#syntax-e _g7145271493_)))) + (let ((_hd7146171500_ (let () (declare (not safe)) - (##car _e6708767123_))) - (_tl6708967130_ + (##car _e7146271496_))) + (_tl7146071503_ (let () (declare (not safe)) - (##cdr _e6708767123_)))) - (if (gx#stx-pair? _tl6708967130_) - (let ((_e6709067133_ (gx#syntax-e _tl6708967130_))) - (let ((_hd6709167137_ + (##cdr _e7146271496_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7146071503_)) + (let ((_e7146571506_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7146071503_)))) + (let ((_hd7146471510_ (let () (declare (not safe)) - (##car _e6709067133_))) - (_tl6709267140_ + (##car _e7146571506_))) + (_tl7146371513_ (let () (declare (not safe)) - (##cdr _e6709067133_)))) - (if (gx#stx-pair? _tl6709267140_) - (let ((_e6709367143_ - (gx#syntax-e _tl6709267140_))) - (let ((_hd6709467147_ + (##cdr _e7146571506_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7146371513_)) + (let ((_e7146871516_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7146371513_)))) + (let ((_hd7146771520_ (let () (declare (not safe)) - (##car _e6709367143_))) - (_tl6709567150_ + (##car _e7146871516_))) + (_tl7146671523_ (let () (declare (not safe)) - (##cdr _e6709367143_)))) - (if (gx#stx-pair? _tl6709567150_) - (let ((_e6709667153_ - (gx#syntax-e - _tl6709567150_))) - (let ((_hd6709767157_ + (##cdr _e7146871516_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7146671523_)) + (let ((_e7147171526_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl7146671523_)))) + (let ((_hd7147071530_ (let () (declare (not safe)) - (##car _e6709667153_))) - (_tl6709867160_ + (##car _e7147171526_))) + (_tl7146971533_ (let () (declare (not safe)) - (##cdr _e6709667153_)))) - (if (gx#stx-pair? - _tl6709867160_) - (let ((_e6709967163_ - (gx#syntax-e - _tl6709867160_))) - (let ((_hd6710067167_ + (##cdr _e7147171526_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7146971533_)) + (let ((_e7147471536_ + (let () + (declare + (not safe)) + (gx#syntax-e + _tl7146971533_)))) + (let ((_hd7147371540_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e6709967163_))) - (_tl6710167170_ - (let () (declare (not safe)) (##cdr _e6709967163_)))) - (if (gx#stx-pair? _tl6710167170_) - (let ((_e6710267173_ (gx#syntax-e _tl6710167170_))) - (let ((_hd6710367177_ + (##car _e7147471536_))) + (_tl7147271543_ + (let () (declare (not safe)) (##cdr _e7147471536_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl7147271543_)) + (let ((_e7147771546_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7147271543_)))) + (let ((_hd7147671550_ (let () (declare (not safe)) - (##car _e6710267173_))) - (_tl6710467180_ + (##car _e7147771546_))) + (_tl7147571553_ (let () (declare (not safe)) - (##cdr _e6710267173_)))) - (if (gx#stx-pair? _tl6710467180_) - (let ((_e6710567183_ (gx#syntax-e _tl6710467180_))) - (let ((_hd6710667187_ + (##cdr _e7147771546_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7147571553_)) + (let ((_e7148071556_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7147571553_)))) + (let ((_hd7147971560_ (let () (declare (not safe)) - (##car _e6710567183_))) - (_tl6710767190_ + (##car _e7148071556_))) + (_tl7147871563_ (let () (declare (not safe)) - (##cdr _e6710567183_)))) - (if (gx#stx-pair? _tl6710767190_) - (let ((_e6710867193_ - (gx#syntax-e _tl6710767190_))) - (let ((_hd6710967197_ - (let () - (declare (not safe)) - (##car _e6710867193_))) - (_tl6711067200_ - (let () - (declare (not safe)) - (##cdr _e6710867193_)))) - (if (gx#stx-null? _tl6711067200_) - ((lambda (_L67203_ - _L67205_ - _L67206_ - _L67207_ - _L67208_ - _L67209_ - _L67210_) - (cons (gx#datum->syntax__0 - '#f - 'make-!class-type) - (cons (cons (gx#datum->syntax__0 + (##cdr _e7148071556_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7147871563_)) + (let ((_e7148371566_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7147871563_)))) + (let ((_hd7148271570_ + (let () + (declare (not safe)) + (##car _e7148371566_))) + (_tl7148171573_ + (let () + (declare (not safe)) + (##cdr _e7148371566_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7148171573_)) + ((lambda (_L71576_ + _L71578_ + _L71579_ + _L71580_ + _L71581_ + _L71582_ + _L71583_) + (let ((__tmp74920 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!class-type))) + (__tmp74892 + (let ((__tmp74917 + (let ((__tmp74919 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L67210_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67209_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67208_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67207_ '())) - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L67206_ '())) - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L67205_ '())) - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L67203_ + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74918 + (let () (declare (not safe)) (cons _L71583_ '())))) + (declare (not safe)) + (cons __tmp74919 __tmp74918))) + (__tmp74893 + (let ((__tmp74914 + (let ((__tmp74916 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74915 + (let () + (declare (not safe)) + (cons _L71582_ '())))) + (declare (not safe)) + (cons __tmp74916 __tmp74915))) + (__tmp74894 + (let ((__tmp74911 + (let ((__tmp74913 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74912 + (let () + (declare (not safe)) + (cons _L71581_ '())))) + (declare (not safe)) + (cons __tmp74913 __tmp74912))) + (__tmp74895 + (let ((__tmp74908 + (let ((__tmp74910 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74909 + (let () + (declare (not safe)) + (cons _L71580_ '())))) + (declare (not safe)) + (cons __tmp74910 __tmp74909))) + (__tmp74896 + (let ((__tmp74905 + (let ((__tmp74907 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74906 + (let () + (declare (not safe)) + (cons _L71579_ + '())))) + (declare (not safe)) + (cons __tmp74907 + __tmp74906))) + (__tmp74897 + (let ((__tmp74902 + (let ((__tmp74904 + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))))))))) + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74903 + (let () (declare (not safe)) (cons _L71578_ '())))) + (declare (not safe)) + (cons __tmp74904 __tmp74903))) + (__tmp74898 + (let ((__tmp74899 + (let ((__tmp74901 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74900 + (let () + (declare (not safe)) + (cons _L71576_ '())))) + (declare (not safe)) + (cons __tmp74901 __tmp74900)))) + (declare (not safe)) + (cons __tmp74899 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp74902 + __tmp74898)))) + (declare (not safe)) + (cons __tmp74905 __tmp74897)))) + (declare (not safe)) + (cons __tmp74908 __tmp74896)))) + (declare (not safe)) + (cons __tmp74911 __tmp74895)))) + (declare (not safe)) + (cons __tmp74914 __tmp74894)))) + (declare (not safe)) + (cons __tmp74917 __tmp74893)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd6710967197_ - _hd6710667187_ - _hd6710367177_ - _hd6710067167_ - _hd6709767157_ - _hd6709467147_ - _hd6709167137_) - (_g6707867116_ _g6707967120_)))) - (_g6707867116_ _g6707967120_)))) - (_g6707867116_ _g6707967120_)))) - (_g6707867116_ _g6707967120_)))) + (declare (not safe)) + (cons __tmp74920 __tmp74892))) + _hd7148271570_ + _hd7147971560_ + _hd7147671550_ + _hd7147371540_ + _hd7147071530_ + _hd7146771520_ + _hd7146471510_) + (_g7145171489_ _g7145271493_)))) + (_g7145171489_ _g7145271493_)))) + (_g7145171489_ _g7145271493_)))) + (_g7145171489_ _g7145271493_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6707867116_ - _g6707967120_)))) - (_g6707867116_ _g6707967120_)))) - (_g6707867116_ _g6707967120_)))) - (_g6707867116_ _g6707967120_)))) - (_g6707867116_ _g6707967120_))))) - (_g6707767241_ _$stx67074_)))) + (_g7145171489_ + _g7145271493_)))) + (_g7145171489_ _g7145271493_)))) + (_g7145171489_ _g7145271493_)))) + (_g7145171489_ _g7145271493_)))) + (_g7145171489_ _g7145271493_))))) + (_g7145071614_ _$stx71447_)))) (define |gxc[:0:]#@class-pred| - (lambda (_$stx67245_) - (let* ((_g6724967263_ - (lambda (_g6725067259_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6725067259_))) - (_g6724867304_ - (lambda (_g6725067267_) - (if (gx#stx-pair? _g6725067267_) - (let ((_e6725267270_ (gx#syntax-e _g6725067267_))) - (let ((_hd6725367274_ + (lambda (_$stx71618_) + (let* ((_g7162271636_ + (lambda (_g7162371632_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7162371632_)))) + (_g7162171677_ + (lambda (_g7162371640_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7162371640_)) + (let ((_e7162771643_ + (let () + (declare (not safe)) + (gx#syntax-e _g7162371640_)))) + (let ((_hd7162671647_ (let () (declare (not safe)) - (##car _e6725267270_))) - (_tl6725467277_ + (##car _e7162771643_))) + (_tl7162571650_ (let () (declare (not safe)) - (##cdr _e6725267270_)))) - (if (gx#stx-pair? _tl6725467277_) - (let ((_e6725567280_ (gx#syntax-e _tl6725467277_))) - (let ((_hd6725667284_ + (##cdr _e7162771643_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7162571650_)) + (let ((_e7163071653_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7162571650_)))) + (let ((_hd7162971657_ (let () (declare (not safe)) - (##car _e6725567280_))) - (_tl6725767287_ + (##car _e7163071653_))) + (_tl7162871660_ (let () (declare (not safe)) - (##cdr _e6725567280_)))) - (if (gx#stx-null? _tl6725767287_) - ((lambda (_L67290_) - (cons (gx#datum->syntax__0 - '#f - 'make-!class-pred) - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L67290_ '())) - '()))) - _hd6725667284_) - (_g6724967263_ _g6725067267_)))) - (_g6724967263_ _g6725067267_)))) - (_g6724967263_ _g6725067267_))))) - (_g6724867304_ _$stx67245_)))) + (##cdr _e7163071653_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7162871660_)) + ((lambda (_L71663_) + (let ((__tmp74925 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!class-pred))) + (__tmp74921 + (let ((__tmp74922 + (let ((__tmp74924 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74923 + (let () + (declare + (not safe)) + (cons _L71663_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons __tmp74924 __tmp74923)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp74922 '())))) + (declare (not safe)) + (cons __tmp74925 __tmp74921))) + _hd7162971657_) + (_g7162271636_ _g7162371640_)))) + (_g7162271636_ _g7162371640_)))) + (_g7162271636_ _g7162371640_))))) + (_g7162171677_ _$stx71618_)))) (define |gxc[:0:]#@class-cons| - (lambda (_$stx67308_) - (let* ((_g6731267326_ - (lambda (_g6731367322_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6731367322_))) - (_g6731167367_ - (lambda (_g6731367330_) - (if (gx#stx-pair? _g6731367330_) - (let ((_e6731567333_ (gx#syntax-e _g6731367330_))) - (let ((_hd6731667337_ + (lambda (_$stx71681_) + (let* ((_g7168571699_ + (lambda (_g7168671695_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7168671695_)))) + (_g7168471740_ + (lambda (_g7168671703_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7168671703_)) + (let ((_e7169071706_ + (let () + (declare (not safe)) + (gx#syntax-e _g7168671703_)))) + (let ((_hd7168971710_ (let () (declare (not safe)) - (##car _e6731567333_))) - (_tl6731767340_ + (##car _e7169071706_))) + (_tl7168871713_ (let () (declare (not safe)) - (##cdr _e6731567333_)))) - (if (gx#stx-pair? _tl6731767340_) - (let ((_e6731867343_ (gx#syntax-e _tl6731767340_))) - (let ((_hd6731967347_ + (##cdr _e7169071706_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7168871713_)) + (let ((_e7169371716_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7168871713_)))) + (let ((_hd7169271720_ (let () (declare (not safe)) - (##car _e6731867343_))) - (_tl6732067350_ + (##car _e7169371716_))) + (_tl7169171723_ (let () (declare (not safe)) - (##cdr _e6731867343_)))) - (if (gx#stx-null? _tl6732067350_) - ((lambda (_L67353_) - (cons (gx#datum->syntax__0 - '#f - 'make-!class-cons) - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L67353_ '())) - '()))) - _hd6731967347_) - (_g6731267326_ _g6731367330_)))) - (_g6731267326_ _g6731367330_)))) - (_g6731267326_ _g6731367330_))))) - (_g6731167367_ _$stx67308_)))) + (##cdr _e7169371716_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7169171723_)) + ((lambda (_L71726_) + (let ((__tmp74930 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!class-cons))) + (__tmp74926 + (let ((__tmp74927 + (let ((__tmp74929 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74928 + (let () + (declare + (not safe)) + (cons _L71726_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons __tmp74929 __tmp74928)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp74927 '())))) + (declare (not safe)) + (cons __tmp74930 __tmp74926))) + _hd7169271720_) + (_g7168571699_ _g7168671703_)))) + (_g7168571699_ _g7168671703_)))) + (_g7168571699_ _g7168671703_))))) + (_g7168471740_ _$stx71681_)))) (define |gxc[:0:]#@class-getf| - (lambda (_$stx67371_) - (let* ((___stx6895768958_ _$stx67371_) - (_g6737667409_ + (lambda (_$stx71744_) + (let* ((___stx7420174202_ _$stx71744_) + (_g7174971782_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx6895768958_)))) - (let ((___kont6896068961_ - (lambda (_L67511_ _L67513_ _L67514_) - (cons (gx#datum->syntax__0 '#f 'make-!class-getf) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67514_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67513_ '())) - (cons _L67511_ '())))))) - (___kont6896268963_ - (lambda (_L67446_ _L67448_) - (cons (gx#datum->syntax__0 '#f 'make-!class-getf) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67448_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67446_ '())) - (cons '#f '()))))))) - (if (gx#stx-pair? ___stx6895768958_) - (let ((_e6738167471_ (gx#syntax-e ___stx6895768958_))) - (let ((_tl6738367478_ - (let () (declare (not safe)) (##cdr _e6738167471_))) - (_hd6738267475_ - (let () (declare (not safe)) (##car _e6738167471_)))) - (if (gx#stx-pair? _tl6738367478_) - (let ((_e6738467481_ (gx#syntax-e _tl6738367478_))) - (let ((_tl6738667488_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx7420174202_))))) + (let ((___kont7420474205_ + (lambda (_L71884_ _L71886_ _L71887_) + (let ((__tmp74940 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!class-getf))) + (__tmp74931 + (let ((__tmp74937 + (let ((__tmp74939 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74938 + (let () + (declare (not safe)) + (cons _L71887_ '())))) + (declare (not safe)) + (cons __tmp74939 __tmp74938))) + (__tmp74932 + (let ((__tmp74934 + (let ((__tmp74936 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74935 + (let () + (declare (not safe)) + (cons _L71886_ '())))) + (declare (not safe)) + (cons __tmp74936 __tmp74935))) + (__tmp74933 + (let () + (declare (not safe)) + (cons _L71884_ '())))) + (declare (not safe)) + (cons __tmp74934 __tmp74933)))) + (declare (not safe)) + (cons __tmp74937 __tmp74932)))) + (declare (not safe)) + (cons __tmp74940 __tmp74931)))) + (___kont7420674207_ + (lambda (_L71819_ _L71821_) + (let ((__tmp74950 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!class-getf))) + (__tmp74941 + (let ((__tmp74947 + (let ((__tmp74949 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74948 + (let () + (declare (not safe)) + (cons _L71821_ '())))) + (declare (not safe)) + (cons __tmp74949 __tmp74948))) + (__tmp74942 + (let ((__tmp74944 + (let ((__tmp74946 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74945 + (let () + (declare (not safe)) + (cons _L71819_ '())))) + (declare (not safe)) + (cons __tmp74946 __tmp74945))) + (__tmp74943 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp74944 __tmp74943)))) + (declare (not safe)) + (cons __tmp74947 __tmp74942)))) + (declare (not safe)) + (cons __tmp74950 __tmp74941))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7420174202_)) + (let ((_e7175671844_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx7420174202_)))) + (let ((_tl7175471851_ + (let () (declare (not safe)) (##cdr _e7175671844_))) + (_hd7175571848_ + (let () (declare (not safe)) (##car _e7175671844_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7175471851_)) + (let ((_e7175971854_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7175471851_)))) + (let ((_tl7175771861_ (let () (declare (not safe)) - (##cdr _e6738467481_))) - (_hd6738567485_ + (##cdr _e7175971854_))) + (_hd7175871858_ (let () (declare (not safe)) - (##car _e6738467481_)))) - (if (gx#stx-pair? _tl6738667488_) - (let ((_e6738767491_ - (gx#syntax-e _tl6738667488_))) - (let ((_tl6738967498_ + (##car _e7175971854_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7175771861_)) + (let ((_e7176271864_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7175771861_)))) + (let ((_tl7176071871_ (let () (declare (not safe)) - (##cdr _e6738767491_))) - (_hd6738867495_ + (##cdr _e7176271864_))) + (_hd7176171868_ (let () (declare (not safe)) - (##car _e6738767491_)))) - (if (gx#stx-pair? _tl6738967498_) - (let ((_e6739067501_ - (gx#syntax-e _tl6738967498_))) - (let ((_tl6739267508_ + (##car _e7176271864_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7176071871_)) + (let ((_e7176571874_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7176071871_)))) + (let ((_tl7176371881_ (let () (declare (not safe)) - (##cdr _e6739067501_))) - (_hd6739167505_ + (##cdr _e7176571874_))) + (_hd7176471878_ (let () (declare (not safe)) - (##car _e6739067501_)))) - (if (gx#stx-null? _tl6739267508_) - (___kont6896068961_ - _hd6739167505_ - _hd6738867495_ - _hd6738567485_) - (_g6737667409_)))) - (if (gx#stx-null? _tl6738967498_) - (___kont6896268963_ - _hd6738867495_ - _hd6738567485_) - (_g6737667409_))))) - (_g6737667409_)))) - (_g6737667409_)))) - (_g6737667409_)))))) + (##car _e7176571874_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7176371881_)) + (___kont7420474205_ + _hd7176471878_ + _hd7176171868_ + _hd7175871858_) + (let () + (declare (not safe)) + (_g7174971782_))))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7176071871_)) + (___kont7420674207_ + _hd7176171868_ + _hd7175871858_) + (let () + (declare (not safe)) + (_g7174971782_)))))) + (let () (declare (not safe)) (_g7174971782_))))) + (let () (declare (not safe)) (_g7174971782_))))) + (let () (declare (not safe)) (_g7174971782_))))))) (define |gxc[:0:]#@class-setf| - (lambda (_$stx67536_) - (let* ((___stx6901369014_ _$stx67536_) - (_g6754167574_ + (lambda (_$stx71909_) + (let* ((___stx7425774258_ _$stx71909_) + (_g7191471947_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx6901369014_)))) - (let ((___kont6901669017_ - (lambda (_L67676_ _L67678_ _L67679_) - (cons (gx#datum->syntax__0 '#f 'make-!class-setf) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67679_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67678_ '())) - (cons _L67676_ '())))))) - (___kont6901869019_ - (lambda (_L67611_ _L67613_) - (cons (gx#datum->syntax__0 '#f 'make-!class-setf) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67613_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67611_ '())) - (cons '#f '()))))))) - (if (gx#stx-pair? ___stx6901369014_) - (let ((_e6754667636_ (gx#syntax-e ___stx6901369014_))) - (let ((_tl6754867643_ - (let () (declare (not safe)) (##cdr _e6754667636_))) - (_hd6754767640_ - (let () (declare (not safe)) (##car _e6754667636_)))) - (if (gx#stx-pair? _tl6754867643_) - (let ((_e6754967646_ (gx#syntax-e _tl6754867643_))) - (let ((_tl6755167653_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx7425774258_))))) + (let ((___kont7426074261_ + (lambda (_L72049_ _L72051_ _L72052_) + (let ((__tmp74960 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!class-setf))) + (__tmp74951 + (let ((__tmp74957 + (let ((__tmp74959 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74958 + (let () + (declare (not safe)) + (cons _L72052_ '())))) + (declare (not safe)) + (cons __tmp74959 __tmp74958))) + (__tmp74952 + (let ((__tmp74954 + (let ((__tmp74956 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74955 + (let () + (declare (not safe)) + (cons _L72051_ '())))) + (declare (not safe)) + (cons __tmp74956 __tmp74955))) + (__tmp74953 + (let () + (declare (not safe)) + (cons _L72049_ '())))) + (declare (not safe)) + (cons __tmp74954 __tmp74953)))) + (declare (not safe)) + (cons __tmp74957 __tmp74952)))) + (declare (not safe)) + (cons __tmp74960 __tmp74951)))) + (___kont7426274263_ + (lambda (_L71984_ _L71986_) + (let ((__tmp74970 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!class-setf))) + (__tmp74961 + (let ((__tmp74967 + (let ((__tmp74969 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74968 + (let () + (declare (not safe)) + (cons _L71986_ '())))) + (declare (not safe)) + (cons __tmp74969 __tmp74968))) + (__tmp74962 + (let ((__tmp74964 + (let ((__tmp74966 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74965 + (let () + (declare (not safe)) + (cons _L71984_ '())))) + (declare (not safe)) + (cons __tmp74966 __tmp74965))) + (__tmp74963 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp74964 __tmp74963)))) + (declare (not safe)) + (cons __tmp74967 __tmp74962)))) + (declare (not safe)) + (cons __tmp74970 __tmp74961))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7425774258_)) + (let ((_e7192172009_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx7425774258_)))) + (let ((_tl7191972016_ + (let () (declare (not safe)) (##cdr _e7192172009_))) + (_hd7192072013_ + (let () (declare (not safe)) (##car _e7192172009_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7191972016_)) + (let ((_e7192472019_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7191972016_)))) + (let ((_tl7192272026_ (let () (declare (not safe)) - (##cdr _e6754967646_))) - (_hd6755067650_ + (##cdr _e7192472019_))) + (_hd7192372023_ (let () (declare (not safe)) - (##car _e6754967646_)))) - (if (gx#stx-pair? _tl6755167653_) - (let ((_e6755267656_ - (gx#syntax-e _tl6755167653_))) - (let ((_tl6755467663_ + (##car _e7192472019_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7192272026_)) + (let ((_e7192772029_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7192272026_)))) + (let ((_tl7192572036_ (let () (declare (not safe)) - (##cdr _e6755267656_))) - (_hd6755367660_ + (##cdr _e7192772029_))) + (_hd7192672033_ (let () (declare (not safe)) - (##car _e6755267656_)))) - (if (gx#stx-pair? _tl6755467663_) - (let ((_e6755567666_ - (gx#syntax-e _tl6755467663_))) - (let ((_tl6755767673_ + (##car _e7192772029_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7192572036_)) + (let ((_e7193072039_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7192572036_)))) + (let ((_tl7192872046_ (let () (declare (not safe)) - (##cdr _e6755567666_))) - (_hd6755667670_ + (##cdr _e7193072039_))) + (_hd7192972043_ (let () (declare (not safe)) - (##car _e6755567666_)))) - (if (gx#stx-null? _tl6755767673_) - (___kont6901669017_ - _hd6755667670_ - _hd6755367660_ - _hd6755067650_) - (_g6754167574_)))) - (if (gx#stx-null? _tl6755467663_) - (___kont6901869019_ - _hd6755367660_ - _hd6755067650_) - (_g6754167574_))))) - (_g6754167574_)))) - (_g6754167574_)))) - (_g6754167574_)))))) + (##car _e7193072039_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7192872046_)) + (___kont7426074261_ + _hd7192972043_ + _hd7192672033_ + _hd7192372023_) + (let () + (declare (not safe)) + (_g7191471947_))))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7192572036_)) + (___kont7426274263_ + _hd7192672033_ + _hd7192372023_) + (let () + (declare (not safe)) + (_g7191471947_)))))) + (let () (declare (not safe)) (_g7191471947_))))) + (let () (declare (not safe)) (_g7191471947_))))) + (let () (declare (not safe)) (_g7191471947_))))))) (define |gxc[:0:]#@lambda| - (lambda (_$stx67701_) - (let* ((___stx6906969070_ _$stx67701_) - (_g6770767748_ + (lambda (_$stx72074_) + (let* ((___stx7431374314_ _$stx72074_) + (_g7208272150_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx6906969070_)))) - (let ((___kont6907269073_ - (lambda (_L67896_ _L67898_) - (cons (gx#datum->syntax__0 '#f 'make-!lambda) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons (gx#datum->syntax__0 '#f 'lambda) - '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67898_ '())) - (cons '#f - (cons _L67896_ - (cons (cons (gx#datum->syntax__0 - '#f - 'quote) - (cons _L67896_ '())) - '())))))))) - (___kont6907469075_ - (lambda (_L67828_ _L67830_) - (cons (gx#datum->syntax__0 '#f 'make-!lambda) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons (gx#datum->syntax__0 '#f 'lambda) - '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67830_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L67828_ '())) - '())))))) - (___kont6907669077_ - (lambda (_L67775_ _L67777_) - (cons _L67777_ (cons _L67775_ (cons '#f '())))))) - (if (gx#stx-pair? ___stx6906969070_) - (let ((_e6771167852_ (gx#syntax-e ___stx6906969070_))) - (let ((_tl6771367859_ - (let () (declare (not safe)) (##cdr _e6771167852_))) - (_hd6771267856_ - (let () (declare (not safe)) (##car _e6771167852_)))) - (if (gx#stx-pair? _tl6771367859_) - (let ((_e6771467862_ (gx#syntax-e _tl6771367859_))) - (let ((_tl6771667869_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx7431374314_))))) + (let ((___kont7431674317_ + (lambda (_L72428_ _L72430_) + (let ((__tmp74986 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!lambda))) + (__tmp74971 + (let ((__tmp74982 + (let ((__tmp74985 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74983 + (let ((__tmp74984 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'lambda)))) + (declare (not safe)) + (cons __tmp74984 '())))) + (declare (not safe)) + (cons __tmp74985 __tmp74983))) + (__tmp74972 + (let ((__tmp74979 + (let ((__tmp74981 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74980 + (let () + (declare (not safe)) + (cons _L72430_ '())))) + (declare (not safe)) + (cons __tmp74981 __tmp74980))) + (__tmp74973 + (let ((__tmp74974 + (let ((__tmp74975 + (let ((__tmp74976 + (let ((__tmp74978 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp74977 + (let () (declare (not safe)) (cons _L72428_ '())))) + (declare (not safe)) + (cons __tmp74978 __tmp74977)))) + (declare (not safe)) + (cons __tmp74976 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L72428_ __tmp74975)))) + (declare (not safe)) + (cons '#f __tmp74974)))) + (declare (not safe)) + (cons __tmp74979 __tmp74973)))) + (declare (not safe)) + (cons __tmp74982 __tmp74972)))) + (declare (not safe)) + (cons __tmp74986 __tmp74971)))) + (___kont7431874319_ + (lambda (_L72359_ _L72361_) + (let ((__tmp74987 + (let ((__tmp74988 + (let ((__tmp74989 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons _L72359_ __tmp74989)))) + (declare (not safe)) + (cons 'primitive: __tmp74988)))) + (declare (not safe)) + (cons _L72361_ __tmp74987)))) + (___kont7432074321_ + (lambda (_L72298_ _L72300_) + (let ((__tmp75003 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!primitive-lambda))) + (__tmp74990 + (let ((__tmp74999 + (let ((__tmp75002 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp75000 + (let ((__tmp75001 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'lambda)))) + (declare (not safe)) + (cons __tmp75001 '())))) + (declare (not safe)) + (cons __tmp75002 __tmp75000))) + (__tmp74991 + (let ((__tmp74996 + (let ((__tmp74998 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74997 + (let () + (declare (not safe)) + (cons _L72300_ '())))) + (declare (not safe)) + (cons __tmp74998 __tmp74997))) + (__tmp74992 + (let ((__tmp74993 + (let ((__tmp74995 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp74994 + (let () + (declare (not safe)) + (cons _L72298_ '())))) + (declare (not safe)) + (cons __tmp74995 __tmp74994)))) + (declare (not safe)) + (cons __tmp74993 '())))) + (declare (not safe)) + (cons __tmp74996 __tmp74992)))) + (declare (not safe)) + (cons __tmp74999 __tmp74991)))) + (declare (not safe)) + (cons __tmp75003 __tmp74990)))) + (___kont7432274323_ + (lambda (_L72230_ _L72232_) + (let ((__tmp75017 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!lambda))) + (__tmp75004 + (let ((__tmp75013 + (let ((__tmp75016 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp75014 + (let ((__tmp75015 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'lambda)))) + (declare (not safe)) + (cons __tmp75015 '())))) + (declare (not safe)) + (cons __tmp75016 __tmp75014))) + (__tmp75005 + (let ((__tmp75010 + (let ((__tmp75012 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp75011 + (let () + (declare (not safe)) + (cons _L72232_ '())))) + (declare (not safe)) + (cons __tmp75012 __tmp75011))) + (__tmp75006 + (let ((__tmp75007 + (let ((__tmp75009 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp75008 + (let () + (declare (not safe)) + (cons _L72230_ '())))) + (declare (not safe)) + (cons __tmp75009 __tmp75008)))) + (declare (not safe)) + (cons __tmp75007 '())))) + (declare (not safe)) + (cons __tmp75010 __tmp75006)))) + (declare (not safe)) + (cons __tmp75013 __tmp75005)))) + (declare (not safe)) + (cons __tmp75017 __tmp75004)))) + (___kont7432474325_ + (lambda (_L72177_ _L72179_) + (let ((__tmp75018 + (let ((__tmp75019 + (let () (declare (not safe)) (cons '#f '())))) + (declare (not safe)) + (cons _L72177_ __tmp75019)))) + (declare (not safe)) + (cons _L72179_ __tmp75018))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7431374314_)) + (let ((_e7208872384_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx7431374314_)))) + (let ((_tl7208672391_ + (let () (declare (not safe)) (##cdr _e7208872384_))) + (_hd7208772388_ + (let () (declare (not safe)) (##car _e7208872384_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7208672391_)) + (let ((_e7209172394_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7208672391_)))) + (let ((_tl7208972401_ (let () (declare (not safe)) - (##cdr _e6771467862_))) - (_hd6771567866_ + (##cdr _e7209172394_))) + (_hd7209072398_ (let () (declare (not safe)) - (##car _e6771467862_)))) - (if (gx#stx-pair? _tl6771667869_) - (let ((_e6771767872_ - (gx#syntax-e _tl6771667869_))) - (let ((_tl6771967879_ + (##car _e7209172394_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7208972401_)) + (let ((_e7209472404_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7208972401_)))) + (let ((_tl7209272411_ (let () (declare (not safe)) - (##cdr _e6771767872_))) - (_hd6771867876_ + (##cdr _e7209472404_))) + (_hd7209372408_ (let () (declare (not safe)) - (##car _e6771767872_)))) - (if (gx#stx-datum? _hd6771867876_) - (let ((_e6772067882_ - (gx#stx-e _hd6771867876_))) - (if (equal? _e6772067882_ 'inline:) - (if (gx#stx-pair? _tl6771967879_) - (let ((_e6772167886_ - (gx#syntax-e - _tl6771967879_))) - (let ((_tl6772367893_ + (##car _e7209472404_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _hd7209372408_)) + (let ((_e7209572414_ + (let () + (declare (not safe)) + (gx#stx-e _hd7209372408_)))) + (if (let () + (declare (not safe)) + (equal? _e7209572414_ 'inline:)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7209272411_)) + (let ((_e7209872418_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl7209272411_)))) + (let ((_tl7209672425_ (let () (declare (not safe)) - (##cdr _e6772167886_))) - (_hd6772267890_ + (##cdr _e7209872418_))) + (_hd7209772422_ (let () (declare (not safe)) - (##car _e6772167886_)))) - (if (gx#stx-null? - _tl6772367893_) - (___kont6907269073_ - _hd6772267890_ - _hd6771567866_) - (_g6770767748_)))) - (if (gx#stx-null? - _tl6771967879_) - (___kont6907469075_ - _hd6771867876_ - _hd6771567866_) - (_g6770767748_))) - (if (gx#stx-null? _tl6771967879_) - (___kont6907469075_ - _hd6771867876_ - _hd6771567866_) - (_g6770767748_)))) - (if (gx#stx-null? _tl6771967879_) - (___kont6907469075_ - _hd6771867876_ - _hd6771567866_) - (_g6770767748_))))) - (if (gx#stx-null? _tl6771667869_) - (___kont6907669077_ - _hd6771567866_ - _hd6771267856_) - (_g6770767748_))))) - (_g6770767748_)))) - (_g6770767748_)))))) - (define |gxc[:0:]#@case-lambda| - (lambda (_$stx67920_) - (let* ((_g6792467953_ - (lambda (_g6792567949_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6792567949_))) - (_g6792368053_ - (lambda (_g6792567957_) - (if (gx#stx-pair? _g6792567957_) - (let ((_e6792867960_ (gx#syntax-e _g6792567957_))) - (let ((_hd6792967964_ - (let () - (declare (not safe)) - (##car _e6792867960_))) - (_tl6793067967_ + (##car _e7209872418_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7209672425_)) + (___kont7431674317_ + _hd7209772422_ + _hd7209072398_) + (if (let () + (declare + (not safe)) + (gx#stx-datum? + _hd7209072398_)) + (let ((_e7210772345_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _hd7209072398_)))) + (declare (not safe)) + (_g7208272150_)) + (let () (declare (not safe)) (_g7208272150_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-datum? + _hd7209072398_)) + (let ((_e7210772345_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd7209072398_)))) + (if (let () + (declare + (not safe)) + (equal? _e7210772345_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + 'primitive:)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7209272411_)) + (___kont7431874319_ _hd7209372408_ _hd7208772388_) + (let () (declare (not safe)) (_g7208272150_))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7209272411_)) + (___kont7432274323_ _hd7209372408_ _hd7209072398_) + (let () (declare (not safe)) (_g7208272150_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7209272411_)) + (___kont7432274323_ + _hd7209372408_ + _hd7209072398_) + (let () + (declare (not safe)) + (_g7208272150_))))) + (if (let () + (declare (not safe)) + (gx#stx-datum? + _hd7209072398_)) + (let ((_e7210772345_ + (let () + (declare (not safe)) + (gx#stx-e + _hd7209072398_)))) + (if (let () + (declare (not safe)) + (equal? _e7210772345_ + 'primitive:)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl7209272411_)) + (___kont7431874319_ + _hd7209372408_ + _hd7208772388_) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair? _tl7209272411_)) + (let ((_e7212572288_ (let () (declare (not safe)) - (##cdr _e6792867960_)))) - (if (gx#stx-pair/null? _tl6793067967_) - (let ((_g69204_ - (gx#syntax-split-splice _tl6793067967_ '0))) - (begin - (let ((_g69205_ - (let () - (declare (not safe)) - (if (##values? _g69204_) - (##vector-length _g69204_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g69205_ 2))) - (error "Context expects 2 values" - _g69205_))) - (let ((_target6793167970_ - (let () - (declare (not safe)) - (##vector-ref _g69204_ 0))) - (_tl6793367973_ - (let () - (declare (not safe)) - (##vector-ref _g69204_ 1)))) - (if (gx#stx-null? _tl6793367973_) - (letrec ((_loop6793467976_ - (lambda (_hd6793267980_ - _dispatch6793867983_ - _arity6793967985_) - (if (gx#stx-pair? - _hd6793267980_) - (let ((_e6793567988_ - (gx#syntax-e - _hd6793267980_))) - (let ((_lp-hd6793667992_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e6793567988_))) - (_lp-tl6793767995_ - (let () (declare (not safe)) (##cdr _e6793567988_)))) - (if (gx#stx-pair? _lp-hd6793667992_) - (let ((_e6794267998_ (gx#syntax-e _lp-hd6793667992_))) - (let ((_hd6794368002_ + (gx#syntax-e _tl7209272411_)))) + (let ((_tl7212372295_ (let () (declare (not safe)) - (##car _e6794267998_))) - (_tl6794468005_ + (##cdr _e7212572288_))) + (_hd7212472292_ (let () (declare (not safe)) - (##cdr _e6794267998_)))) - (if (gx#stx-pair? _tl6794468005_) - (let ((_e6794568008_ - (gx#syntax-e _tl6794468005_))) - (let ((_hd6794668012_ - (let () - (declare (not safe)) - (##car _e6794568008_))) - (_tl6794768015_ - (let () - (declare (not safe)) - (##cdr _e6794568008_)))) - (if (gx#stx-null? _tl6794768015_) - (_loop6793467976_ - _lp-tl6793767995_ - (cons _hd6794668012_ - _dispatch6793867983_) - (cons _hd6794368002_ _arity6793967985_)) - (_g6792467953_ _g6792567957_)))) - (_g6792467953_ _g6792567957_)))) - (_g6792467953_ _g6792567957_)))) - (let ((_dispatch6794068018_ (reverse _dispatch6793867983_)) - (_arity6794168021_ (reverse _arity6793967985_))) - ((lambda (_L68024_ _L68026_) - (cons (gx#datum->syntax__0 '#f 'make-!case-lambda) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons (gx#datum->syntax__0 - '#f - 'case-lambda) - '())) - (cons (cons (gx#datum->syntax__0 '#f '@list) - (begin - (gx#syntax-check-splice-targets - _L68024_ - _L68026_) - (foldr2 (lambda (_g6804168045_ - _g6804268048_ - _g6804368050_) - (cons (cons (gx#datum->syntax__0 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@lambda) - (cons _g6804268048_ (cons _g6804168045_ '()))) - _g6804368050_)) + (##car _e7212572288_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7212372295_)) + (___kont7432074321_ + _hd7212472292_ + _hd7209372408_) + (let () (declare (not safe)) (_g7208272150_))))) + (let () (declare (not safe)) (_g7208272150_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl7209272411_)) + (___kont7432274323_ _hd7209372408_ _hd7209072398_) + (let () (declare (not safe)) (_g7208272150_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '() - _L68024_ - _L68026_))) - '())))) - _dispatch6794068018_ - _arity6794168021_)))))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7209272411_)) + (___kont7432274323_ + _hd7209372408_ + _hd7209072398_) + (let () + (declare (not safe)) + (_g7208272150_)))))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _hd7209072398_)) + (let ((_e7210772345_ + (let () + (declare (not safe)) + (gx#stx-e _hd7209072398_)))) + (if (let () + (declare (not safe)) + (equal? _e7210772345_ + 'primitive:)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7209272411_)) + (___kont7431874319_ + _hd7209372408_ + _hd7208772388_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7209272411_)) + (let ((_e7212572288_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#syntax-e _tl7209272411_)))) + (let ((_tl7212372295_ + (let () (declare (not safe)) (##cdr _e7212572288_))) + (_hd7212472292_ + (let () (declare (not safe)) (##car _e7212572288_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7212372295_)) + (___kont7432074321_ _hd7212472292_ _hd7209372408_) + (let () (declare (not safe)) (_g7208272150_))))) + (let () (declare (not safe)) (_g7208272150_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6793467976_ - _target6793167970_ - '() - '())) - (_g6792467953_ _g6792567957_))))) - (_g6792467953_ _g6792567957_)))) - (_g6792467953_ _g6792567957_))))) - (_g6792368053_ _$stx67920_)))) - (define |gxc[:0:]#@kw-lambda| - (lambda (_$stx68058_) - (let* ((_g6806268080_ - (lambda (_g6806368076_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6806368076_))) - (_g6806168135_ - (lambda (_g6806368084_) - (if (gx#stx-pair? _g6806368084_) - (let ((_e6806668087_ (gx#syntax-e _g6806368084_))) - (let ((_hd6806768091_ - (let () - (declare (not safe)) - (##car _e6806668087_))) - (_tl6806868094_ - (let () - (declare (not safe)) - (##cdr _e6806668087_)))) - (if (gx#stx-pair? _tl6806868094_) - (let ((_e6806968097_ (gx#syntax-e _tl6806868094_))) - (let ((_hd6807068101_ - (let () - (declare (not safe)) - (##car _e6806968097_))) - (_tl6807168104_ - (let () - (declare (not safe)) - (##cdr _e6806968097_)))) - (if (gx#stx-pair? _tl6807168104_) - (let ((_e6807268107_ - (gx#syntax-e _tl6807168104_))) - (let ((_hd6807368111_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7209272411_)) + (___kont7432274323_ + _hd7209372408_ + _hd7209072398_) + (let () + (declare (not safe)) + (_g7208272150_))))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7209272411_)) + (___kont7432274323_ + _hd7209372408_ + _hd7209072398_) + (let () + (declare (not safe)) + (_g7208272150_))))))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _hd7209072398_)) + (let ((_e7210772345_ + (let () + (declare (not safe)) + (gx#stx-e _hd7209072398_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7208972401_)) + (___kont7432474325_ + _hd7209072398_ + _hd7208772388_) + (let () + (declare (not safe)) + (_g7208272150_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7208972401_)) + (___kont7432474325_ + _hd7209072398_ + _hd7208772388_) + (let () + (declare (not safe)) + (_g7208272150_))))))) + (let () (declare (not safe)) (_g7208272150_))))) + (let () (declare (not safe)) (_g7208272150_))))))) + (define |gxc[:0:]#@case-lambda| + (lambda (_$stx72452_) + (let* ((___stx7445374454_ _$stx72452_) + (_g7245772512_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx7445374454_))))) + (let ((___kont7445674457_ + (lambda (_L72697_ _L72699_) + (let ((__tmp75035 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!primitive-case-lambda))) + (__tmp75020 + (let ((__tmp75031 + (let ((__tmp75034 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp75032 + (let ((__tmp75033 (let () (declare (not safe)) - (##car _e6807268107_))) - (_tl6807468114_ + (gx#datum->syntax__0 + '#f + 'case-lambda)))) + (declare (not safe)) + (cons __tmp75033 '())))) + (declare (not safe)) + (cons __tmp75034 __tmp75032))) + (__tmp75021 + (let ((__tmp75022 + (let ((__tmp75030 (let () (declare (not safe)) - (##cdr _e6807268107_)))) - (if (gx#stx-null? _tl6807468114_) - ((lambda (_L68117_ _L68119_) - (cons (gx#datum->syntax__0 - '#f - 'make-!kw-lambda) - (cons (cons (gx#datum->syntax__0 + (gx#datum->syntax__0 + '#f + '@list))) + (__tmp75023 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _L72697_ + _L72699_)) + (let ((__tmp75024 + (lambda (_g7271672720_ + _g7271772723_ + _g7271872725_) + (let ((__tmp75025 + (let ((__tmp75029 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons (gx#datum->syntax__0 '#f 'kw-lambda) '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L68119_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L68117_ '())) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd6807368111_ - _hd6807068101_) - (_g6806268080_ _g6806368084_)))) - (_g6806268080_ _g6806368084_)))) - (_g6806268080_ _g6806368084_)))) - (_g6806268080_ _g6806368084_))))) - (_g6806168135_ _$stx68058_)))) - (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_$stx68139_) - (let* ((_g6814368161_ - (lambda (_g6814468157_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6814468157_))) - (_g6814268216_ - (lambda (_g6814468165_) - (if (gx#stx-pair? _g6814468165_) - (let ((_e6814768168_ (gx#syntax-e _g6814468165_))) - (let ((_hd6814868172_ - (let () - (declare (not safe)) - (##car _e6814768168_))) - (_tl6814968175_ - (let () - (declare (not safe)) - (##cdr _e6814768168_)))) - (if (gx#stx-pair? _tl6814968175_) - (let ((_e6815068178_ (gx#syntax-e _tl6814968175_))) - (let ((_hd6815168182_ - (let () - (declare (not safe)) - (##car _e6815068178_))) - (_tl6815268185_ - (let () + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '@lambda))) + (__tmp75026 + (let ((__tmp75027 + (let ((__tmp75028 + (let () + (declare (not safe)) + (cons _g7271672720_ '())))) (declare (not safe)) - (##cdr _e6815068178_)))) - (if (gx#stx-pair? _tl6815268185_) - (let ((_e6815368188_ - (gx#syntax-e _tl6815268185_))) - (let ((_hd6815468192_ + (cons _g7271772723_ __tmp75028)))) + (declare (not safe)) + (cons 'primitive: __tmp75027)))) + (declare (not safe)) + (cons __tmp75029 __tmp75026)))) + (declare (not safe)) + (cons __tmp75025 _g7271872725_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr2 __tmp75024 + '() + _L72697_ + _L72699_))))) + (declare (not safe)) + (cons __tmp75030 __tmp75023)))) + (declare (not safe)) + (cons __tmp75022 '())))) + (declare (not safe)) + (cons __tmp75031 __tmp75021)))) + (declare (not safe)) + (cons __tmp75035 __tmp75020)))) + (___kont7446074461_ + (lambda (_L72583_ _L72585_) + (let ((__tmp75050 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!case-lambda))) + (__tmp75036 + (let ((__tmp75046 + (let ((__tmp75049 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp75047 + (let ((__tmp75048 (let () (declare (not safe)) - (##car _e6815368188_))) - (_tl6815568195_ + (gx#datum->syntax__0 + '#f + 'case-lambda)))) + (declare (not safe)) + (cons __tmp75048 '())))) + (declare (not safe)) + (cons __tmp75049 __tmp75047))) + (__tmp75037 + (let ((__tmp75038 + (let ((__tmp75045 (let () (declare (not safe)) - (##cdr _e6815368188_)))) - (if (gx#stx-null? _tl6815568195_) - ((lambda (_L68198_ _L68200_) - (cons (gx#datum->syntax__0 - '#f - 'make-!kw-lambda-primary) - (cons (cons (gx#datum->syntax__0 + (gx#datum->syntax__0 + '#f + '@list))) + (__tmp75039 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _L72583_ + _L72585_)) + (let ((__tmp75040 + (lambda (_g7260072604_ + _g7260172607_ + _g7260272609_) + (let ((__tmp75041 + (let ((__tmp75044 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons (gx#datum->syntax__0 '#f 'kw-lambda-dispatch) - '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L68200_ '())) - (cons (cons (gx#datum->syntax__0 '#f 'quote) - (cons _L68198_ '())) - '()))))) + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '@lambda))) + (__tmp75042 + (let ((__tmp75043 + (let () + (declare (not safe)) + (cons _g7260072604_ '())))) + (declare (not safe)) + (cons _g7260172607_ __tmp75043)))) + (declare (not safe)) + (cons __tmp75044 __tmp75042)))) + (declare (not safe)) + (cons __tmp75041 _g7260272609_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd6815468192_ - _hd6815168182_) - (_g6814368161_ _g6814468165_)))) - (_g6814368161_ _g6814468165_)))) - (_g6814368161_ _g6814468165_)))) - (_g6814368161_ _g6814468165_))))) - (_g6814268216_ _$stx68139_)))) - (define |gxc[:0:]#declare-primitive| - (lambda (_$stx68220_) - (let* ((___stx6914769148_ _$stx68220_) - (_g6822568260_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx6914769148_)))) - (let ((___kont6915069151_ - (lambda (_L68382_ _L68384_) - (cons (gx#datum->syntax__0 '#f 'declare-type) - (cons _L68384_ - (cons (cons (gx#datum->syntax__0 '#f '@lambda) - (cons _L68382_ '())) - '()))))) - (___kont6915269153_ - (lambda (_L68317_ _L68319_) - (cons (gx#datum->syntax__0 '#f 'declare-type) - (cons _L68319_ - (cons (cons (gx#datum->syntax__0 - '#f - '@case-lambda) - (foldr1 (lambda (_g6833668339_ - _g6833768342_) - (cons (cons _g6833668339_ - (cons '#f '())) - _g6833768342_)) - '() - _L68317_)) - '())))))) - (let ((___match6919669197_ - (lambda (_e6824068267_ - _hd6824168271_ - _tl6824268274_ - _e6824368277_ - _hd6824468281_ - _tl6824568284_ - ___splice6915469155_ - _target6824668287_ - _tl6824868290_) - (letrec ((_loop6824968293_ - (lambda (_hd6824768297_ _arity6825368300_) - (if (gx#stx-pair? _hd6824768297_) - (let ((_e6825068303_ - (gx#syntax-e _hd6824768297_))) - (let ((_lp-tl6825268310_ - (let () - (declare (not safe)) - (##cdr _e6825068303_))) - (_lp-hd6825168307_ - (let () + (declare (not safe)) + (foldr2 __tmp75040 + '() + _L72583_ + _L72585_))))) + (declare (not safe)) + (cons __tmp75045 __tmp75039)))) + (declare (not safe)) + (cons __tmp75038 '())))) + (declare (not safe)) + (cons __tmp75046 __tmp75037)))) + (declare (not safe)) + (cons __tmp75050 __tmp75036))))) + (let* ((___match7450474505_ + (lambda (_e7248972519_ + _hd7248872523_ + _tl7248772526_ + ___splice7446274463_ + _target7249072529_ + _tl7249272532_) + (letrec ((_loop7249372535_ + (lambda (_hd7249172539_ + _dispatch7249772542_ + _arity7249872544_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd7249172539_)) + (let ((_e7249472547_ + (let () + (declare (not safe)) + (gx#syntax-e _hd7249172539_)))) + (let ((_lp-tl7249672554_ + (let () + (declare (not safe)) + (##cdr _e7249472547_))) + (_lp-hd7249572551_ + (let () + (declare (not safe)) + (##car _e7249472547_)))) + (if (let () (declare (not safe)) - (##car _e6825068303_)))) - (_loop6824968293_ - _lp-tl6825268310_ - (cons _lp-hd6825168307_ - _arity6825368300_)))) - (let ((_arity6825468313_ - (reverse _arity6825368300_))) - (___kont6915269153_ - _arity6825468313_ - _hd6824468281_)))))) - (_loop6824968293_ _target6824668287_ '()))))) - (if (gx#stx-pair? ___stx6914769148_) - (let ((_e6822968352_ (gx#syntax-e ___stx6914769148_))) - (let ((_tl6823168359_ - (let () (declare (not safe)) (##cdr _e6822968352_))) - (_hd6823068356_ - (let () (declare (not safe)) (##car _e6822968352_)))) - (if (gx#stx-pair? _tl6823168359_) - (let ((_e6823268362_ (gx#syntax-e _tl6823168359_))) - (let ((_tl6823468369_ - (let () + (gx#stx-pair? _lp-hd7249572551_)) + (let ((_e7250372557_ + (let () + (declare (not safe)) + (gx#syntax-e + _lp-hd7249572551_)))) + (let ((_tl7250172564_ + (let () + (declare (not safe)) + (##cdr _e7250372557_))) + (_hd7250272561_ + (let () + (declare (not safe)) + (##car _e7250372557_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7250172564_)) + (let ((_e7250672567_ + (let () + (declare + (not safe)) + (gx#syntax-e + _tl7250172564_)))) + (let ((_tl7250472574_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e7250672567_))) + (_hd7250572571_ + (let () (declare (not safe)) (##car _e7250672567_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl7250472574_)) + (_loop7249372535_ + _lp-tl7249672554_ + (let () + (declare (not safe)) + (cons _hd7250572571_ _dispatch7249772542_)) + (let () + (declare (not safe)) + (cons _hd7250272561_ _arity7249872544_))) + (let () (declare (not safe)) (_g7245772512_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g7245772512_))))) + (let () + (declare (not safe)) + (_g7245772512_))))) + (let ((_arity7250072580_ + (let () + (declare (not safe)) + (reverse _arity7249872544_))) + (_dispatch7249972577_ + (let () + (declare (not safe)) + (reverse _dispatch7249772542_)))) + (___kont7446074461_ + _dispatch7249972577_ + _arity7250072580_)))))) + (_loop7249372535_ _target7249072529_ '() '())))) + (___match7449674497_ + (lambda (_e7248972519_ _hd7248872523_ _tl7248772526_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7248772526_)) + (let ((___splice7446274463_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl7248772526_ '0)))) + (let ((_tl7249272532_ + (let () + (declare (not safe)) + (##vector-ref ___splice7446274463_ '1))) + (_target7249072529_ + (let () + (declare (not safe)) + (##vector-ref ___splice7446274463_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7249272532_)) + (___match7450474505_ + _e7248972519_ + _hd7248872523_ + _tl7248772526_ + ___splice7446274463_ + _target7249072529_ + _tl7249272532_) + (let () + (declare (not safe)) + (_g7245772512_))))) + (let () (declare (not safe)) (_g7245772512_))))) + (___match7449074491_ + (lambda (_e7246372619_ + _hd7246272623_ + _tl7246172626_ + _e7246672629_ + _hd7246572633_ + _tl7246472636_ + _e7246772639_ + ___splice7445874459_ + _target7246872643_ + _tl7247072646_) + (letrec ((_loop7247172649_ + (lambda (_hd7246972653_ + _dispatch7247572656_ + _arity7247672658_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd7246972653_)) + (let ((_e7247272661_ + (let () + (declare (not safe)) + (gx#syntax-e _hd7246972653_)))) + (let ((_lp-tl7247472668_ + (let () + (declare (not safe)) + (##cdr _e7247272661_))) + (_lp-hd7247372665_ + (let () + (declare (not safe)) + (##car _e7247272661_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd7247372665_)) + (let ((_e7248172671_ + (let () + (declare (not safe)) + (gx#syntax-e + _lp-hd7247372665_)))) + (let ((_tl7247972678_ + (let () + (declare (not safe)) + (##cdr _e7248172671_))) + (_hd7248072675_ + (let () + (declare (not safe)) + (##car _e7248172671_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7247972678_)) + (let ((_e7248472681_ + (let () + (declare + (not safe)) + (gx#syntax-e + _tl7247972678_)))) + (let ((_tl7248272688_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e7248472681_))) + (_hd7248372685_ + (let () (declare (not safe)) (##car _e7248472681_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl7248272688_)) + (_loop7247172649_ + _lp-tl7247472668_ + (let () + (declare (not safe)) + (cons _hd7248372685_ _dispatch7247572656_)) + (let () + (declare (not safe)) + (cons _hd7248072675_ _arity7247672658_))) + (___match7449674497_ + _e7246372619_ + _hd7246272623_ + _tl7246172626_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match7449674497_ + _e7246372619_ + _hd7246272623_ + _tl7246172626_)))) + (___match7449674497_ + _e7246372619_ + _hd7246272623_ + _tl7246172626_)))) + (let ((_arity7247872694_ + (let () + (declare (not safe)) + (reverse _arity7247672658_))) + (_dispatch7247772691_ + (let () + (declare (not safe)) + (reverse _dispatch7247572656_)))) + (___kont7445674457_ + _dispatch7247772691_ + _arity7247872694_)))))) + (_loop7247172649_ _target7246872643_ '() '()))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7445374454_)) + (let ((_e7246372619_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx7445374454_)))) + (let ((_tl7246172626_ + (let () (declare (not safe)) (##cdr _e7246372619_))) + (_hd7246272623_ + (let () (declare (not safe)) (##car _e7246372619_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7246172626_)) + (let ((_e7246672629_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7246172626_)))) + (let ((_tl7246472636_ + (let () + (declare (not safe)) + (##cdr _e7246672629_))) + (_hd7246572633_ + (let () + (declare (not safe)) + (##car _e7246672629_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _hd7246572633_)) + (let ((_e7246772639_ + (let () + (declare (not safe)) + (gx#stx-e _hd7246572633_)))) + (if (let () + (declare (not safe)) + (equal? _e7246772639_ 'primitive:)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7246472636_)) + (let ((___splice7445874459_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7246472636_ + '0)))) + (let ((_tl7247072646_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7445874459_ + '1))) + (_target7246872643_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7445874459_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7247072646_)) + (___match7449074491_ + _e7246372619_ + _hd7246272623_ + _tl7246172626_ + _e7246672629_ + _hd7246572633_ + _tl7246472636_ + _e7246772639_ + ___splice7445874459_ + _target7246872643_ + _tl7247072646_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl7246172626_)) + (let ((___splice7446274463_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#syntax-split-splice _tl7246172626_ '0)))) + (let ((_tl7249272532_ + (let () + (declare (not safe)) + (##vector-ref ___splice7446274463_ '1))) + (_target7249072529_ + (let () + (declare (not safe)) + (##vector-ref ___splice7446274463_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7249272532_)) + (___match7450474505_ + _e7246372619_ + _hd7246272623_ + _tl7246172626_ + ___splice7446274463_ + _target7249072529_ + _tl7249272532_) + (let () (declare (not safe)) (_g7245772512_))))) + (let () (declare (not safe)) (_g7245772512_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl7246172626_)) + (let ((___splice7446274463_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7246172626_ + '0)))) + (let ((_tl7249272532_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7446274463_ + '1))) + (_target7249072529_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7446274463_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7249272532_)) + (___match7450474505_ + _e7246372619_ + _hd7246272623_ + _tl7246172626_ + ___splice7446274463_ + _target7249072529_ + _tl7249272532_) + (let () + (declare (not safe)) + (_g7245772512_))))) + (let () + (declare (not safe)) + (_g7245772512_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7246172626_)) + (let ((___splice7446274463_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7246172626_ + '0)))) + (let ((_tl7249272532_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7446274463_ + '1))) + (_target7249072529_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7446274463_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7249272532_)) + (___match7450474505_ + _e7246372619_ + _hd7246272623_ + _tl7246172626_ + ___splice7446274463_ + _target7249072529_ + _tl7249272532_) + (let () + (declare (not safe)) + (_g7245772512_))))) + (let () + (declare (not safe)) + (_g7245772512_))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7246172626_)) + (let ((___splice7446274463_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7246172626_ + '0)))) + (let ((_tl7249272532_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7446274463_ + '1))) + (_target7249072529_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7446274463_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7249272532_)) + (___match7450474505_ + _e7246372619_ + _hd7246272623_ + _tl7246172626_ + ___splice7446274463_ + _target7249072529_ + _tl7249272532_) + (let () + (declare (not safe)) + (_g7245772512_))))) + (let () + (declare (not safe)) + (_g7245772512_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7246172626_)) + (let ((___splice7446274463_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7246172626_ + '0)))) + (let ((_tl7249272532_ + (let () + (declare (not safe)) + (##vector-ref ___splice7446274463_ '1))) + (_target7249072529_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7446274463_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7249272532_)) + (___match7450474505_ + _e7246372619_ + _hd7246272623_ + _tl7246172626_ + ___splice7446274463_ + _target7249072529_ + _tl7249272532_) + (let () + (declare (not safe)) + (_g7245772512_))))) + (let () (declare (not safe)) (_g7245772512_)))))) + (let () (declare (not safe)) (_g7245772512_)))))))) + (define |gxc[:0:]#@kw-lambda| + (lambda (_$stx72734_) + (let* ((_g7273872756_ + (lambda (_g7273972752_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7273972752_)))) + (_g7273772811_ + (lambda (_g7273972760_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7273972760_)) + (let ((_e7274472763_ + (let () + (declare (not safe)) + (gx#syntax-e _g7273972760_)))) + (let ((_hd7274372767_ + (let () + (declare (not safe)) + (##car _e7274472763_))) + (_tl7274272770_ + (let () + (declare (not safe)) + (##cdr _e7274472763_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7274272770_)) + (let ((_e7274772773_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7274272770_)))) + (let ((_hd7274672777_ + (let () + (declare (not safe)) + (##car _e7274772773_))) + (_tl7274572780_ + (let () + (declare (not safe)) + (##cdr _e7274772773_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7274572780_)) + (let ((_e7275072783_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7274572780_)))) + (let ((_hd7274972787_ + (let () + (declare (not safe)) + (##car _e7275072783_))) + (_tl7274872790_ + (let () + (declare (not safe)) + (##cdr _e7275072783_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7274872790_)) + ((lambda (_L72793_ _L72795_) + (let ((__tmp75064 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!kw-lambda))) + (__tmp75051 + (let ((__tmp75060 + (let ((__tmp75063 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp75061 + (let ((__tmp75062 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'kw-lambda)))) + (declare (not safe)) + (cons __tmp75062 '())))) + (declare (not safe)) + (cons __tmp75063 __tmp75061))) + (__tmp75052 + (let ((__tmp75057 + (let ((__tmp75059 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp75058 + (let () + (declare (not safe)) + (cons _L72795_ '())))) + (declare (not safe)) + (cons __tmp75059 __tmp75058))) + (__tmp75053 + (let ((__tmp75054 + (let ((__tmp75056 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp75055 + (let () + (declare (not safe)) + (cons _L72793_ '())))) + (declare (not safe)) + (cons __tmp75056 __tmp75055)))) + (declare (not safe)) + (cons __tmp75054 '())))) + (declare (not safe)) + (cons __tmp75057 __tmp75053)))) + (declare (not safe)) + (cons __tmp75060 __tmp75052)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp75064 __tmp75051))) + _hd7274972787_ + _hd7274672777_) + (_g7273872756_ _g7273972760_)))) + (_g7273872756_ _g7273972760_)))) + (_g7273872756_ _g7273972760_)))) + (_g7273872756_ _g7273972760_))))) + (_g7273772811_ _$stx72734_)))) + (define |gxc[:0:]#@kw-lambda-dispatch| + (lambda (_$stx72815_) + (let* ((_g7281972837_ + (lambda (_g7282072833_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7282072833_)))) + (_g7281872892_ + (lambda (_g7282072841_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7282072841_)) + (let ((_e7282572844_ + (let () + (declare (not safe)) + (gx#syntax-e _g7282072841_)))) + (let ((_hd7282472848_ + (let () + (declare (not safe)) + (##car _e7282572844_))) + (_tl7282372851_ + (let () + (declare (not safe)) + (##cdr _e7282572844_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7282372851_)) + (let ((_e7282872854_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7282372851_)))) + (let ((_hd7282772858_ + (let () + (declare (not safe)) + (##car _e7282872854_))) + (_tl7282672861_ + (let () + (declare (not safe)) + (##cdr _e7282872854_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7282672861_)) + (let ((_e7283172864_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7282672861_)))) + (let ((_hd7283072868_ + (let () + (declare (not safe)) + (##car _e7283172864_))) + (_tl7282972871_ + (let () + (declare (not safe)) + (##cdr _e7283172864_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7282972871_)) + ((lambda (_L72874_ _L72876_) + (let ((__tmp75078 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!kw-lambda-primary))) + (__tmp75065 + (let ((__tmp75074 + (let ((__tmp75077 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp75075 + (let ((__tmp75076 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'kw-lambda-dispatch)))) + (declare (not safe)) + (cons __tmp75076 '())))) + (declare (not safe)) + (cons __tmp75077 __tmp75075))) + (__tmp75066 + (let ((__tmp75071 + (let ((__tmp75073 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp75072 + (let () + (declare (not safe)) + (cons _L72876_ '())))) + (declare (not safe)) + (cons __tmp75073 __tmp75072))) + (__tmp75067 + (let ((__tmp75068 + (let ((__tmp75070 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp75069 + (let () + (declare (not safe)) + (cons _L72874_ '())))) + (declare (not safe)) + (cons __tmp75070 __tmp75069)))) + (declare (not safe)) + (cons __tmp75068 '())))) + (declare (not safe)) + (cons __tmp75071 __tmp75067)))) + (declare (not safe)) + (cons __tmp75074 __tmp75066)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp75078 __tmp75065))) + _hd7283072868_ + _hd7282772858_) + (_g7281972837_ _g7282072841_)))) + (_g7281972837_ _g7282072841_)))) + (_g7281972837_ _g7282072841_)))) + (_g7281972837_ _g7282072841_))))) + (_g7281872892_ _$stx72815_)))) + (define |gxc[:0:]#declare-primitive| + (lambda (_$stx72896_) + (let* ((___stx7450774508_ _$stx72896_) + (_g7290372974_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx7450774508_))))) + (let ((___kont7451074511_ + (lambda (_L73265_ _L73267_) + (let ((__tmp75084 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'declare-type))) + (__tmp75079 + (let ((__tmp75080 + (let ((__tmp75081 + (let ((__tmp75083 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '@lambda))) + (__tmp75082 + (let () + (declare (not safe)) + (cons _L73265_ '())))) + (declare (not safe)) + (cons __tmp75083 __tmp75082)))) + (declare (not safe)) + (cons __tmp75081 '())))) + (declare (not safe)) + (cons _L73267_ __tmp75080)))) + (declare (not safe)) + (cons __tmp75084 __tmp75079)))) + (___kont7451274513_ + (lambda (_L73184_ _L73186_) + (let ((__tmp75093 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'declare-type))) + (__tmp75085 + (let ((__tmp75086 + (let ((__tmp75087 + (let ((__tmp75092 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '@case-lambda))) + (__tmp75088 + (let ((__tmp75089 + (lambda (_g7320573208_ + _g7320673211_) + (let ((__tmp75090 + (let ((__tmp75091 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons '#f '())))) + (declare (not safe)) + (cons _g7320573208_ __tmp75091)))) + (declare (not safe)) + (cons __tmp75090 _g7320673211_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp75089 + '() + _L73184_)))) + (declare (not safe)) + (cons __tmp75092 __tmp75088)))) + (declare (not safe)) + (cons __tmp75087 '())))) + (declare (not safe)) + (cons _L73186_ __tmp75086)))) + (declare (not safe)) + (cons __tmp75093 __tmp75085)))) + (___kont7451674517_ + (lambda (_L73096_ _L73098_) + (let ((__tmp75100 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'declare-type))) + (__tmp75094 + (let ((__tmp75095 + (let ((__tmp75096 + (let ((__tmp75099 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '@lambda))) + (__tmp75097 + (let ((__tmp75098 + (let () + (declare (not safe)) + (cons _L73096_ '())))) + (declare (not safe)) + (cons 'primitive: __tmp75098)))) + (declare (not safe)) + (cons __tmp75099 __tmp75097)))) + (declare (not safe)) + (cons __tmp75096 '())))) + (declare (not safe)) + (cons _L73098_ __tmp75095)))) + (declare (not safe)) + (cons __tmp75100 __tmp75094)))) + (___kont7451874519_ + (lambda (_L73031_ _L73033_) + (let ((__tmp75110 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'declare-type))) + (__tmp75101 + (let ((__tmp75102 + (let ((__tmp75103 + (let ((__tmp75109 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '@case-lambda))) + (__tmp75104 + (let ((__tmp75105 + (let ((__tmp75106 + (lambda (_g7305073053_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g7305173056_) + (let ((__tmp75107 + (let ((__tmp75108 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons _g7305073053_ __tmp75108)))) + (declare (not safe)) + (cons __tmp75107 _g7305173056_))))) + (declare (not safe)) + (foldr1 __tmp75106 '() _L73031_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'primitive: __tmp75105)))) + (declare (not safe)) + (cons __tmp75109 __tmp75104)))) + (declare (not safe)) + (cons __tmp75103 '())))) + (declare (not safe)) + (cons _L73033_ __tmp75102)))) + (declare (not safe)) + (cons __tmp75110 __tmp75101))))) + (let* ((___match7462674627_ + (lambda (_e7295672981_ + _hd7295572985_ + _tl7295472988_ + _e7295972991_ + _hd7295872995_ + _tl7295772998_ + ___splice7452074521_ + _target7296073001_ + _tl7296273004_) + (letrec ((_loop7296373007_ + (lambda (_hd7296173011_ _arity7296773014_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd7296173011_)) + (let ((_e7296473017_ + (let () + (declare (not safe)) + (gx#syntax-e _hd7296173011_)))) + (let ((_lp-tl7296673024_ + (let () + (declare (not safe)) + (##cdr _e7296473017_))) + (_lp-hd7296573021_ + (let () + (declare (not safe)) + (##car _e7296473017_)))) + (_loop7296373007_ + _lp-tl7296673024_ + (let () + (declare (not safe)) + (cons _lp-hd7296573021_ + _arity7296773014_))))) + (let ((_arity7296873027_ + (let () + (declare (not safe)) + (reverse _arity7296773014_)))) + (___kont7451874519_ + _arity7296873027_ + _hd7295872995_)))))) + (_loop7296373007_ _target7296073001_ '())))) + (___match7458674587_ + (lambda (_e7292473120_ + _hd7292373124_ + _tl7292273127_ + _e7292773130_ + _hd7292673134_ + _tl7292573137_ + _e7293073140_ + _hd7292973144_ + _tl7292873147_ + _e7293173150_ + ___splice7451474515_ + _target7293273154_ + _tl7293473157_) + (letrec ((_loop7293573160_ + (lambda (_hd7293373164_ _arity7293973167_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd7293373164_)) + (let ((_e7293673170_ + (let () + (declare (not safe)) + (gx#syntax-e _hd7293373164_)))) + (let ((_lp-tl7293873177_ + (let () + (declare (not safe)) + (##cdr _e7293673170_))) + (_lp-hd7293773174_ + (let () + (declare (not safe)) + (##car _e7293673170_)))) + (_loop7293573160_ + _lp-tl7293873177_ + (let () + (declare (not safe)) + (cons _lp-hd7293773174_ + _arity7293973167_))))) + (let ((_arity7294073180_ + (let () + (declare (not safe)) + (reverse _arity7293973167_)))) + (___kont7451274513_ + _arity7294073180_ + _hd7292673134_)))))) + (_loop7293573160_ _target7293273154_ '()))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7450774508_)) + (let ((_e7290973221_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx7450774508_)))) + (let ((_tl7290773228_ + (let () (declare (not safe)) (##cdr _e7290973221_))) + (_hd7290873225_ + (let () (declare (not safe)) (##car _e7290973221_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7290773228_)) + (let ((_e7291273231_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7290773228_)))) + (let ((_tl7291073238_ + (let () (declare (not safe)) - (##cdr _e6823268362_))) - (_hd6823368366_ + (##cdr _e7291273231_))) + (_hd7291173235_ (let () (declare (not safe)) - (##car _e6823268362_)))) - (if (gx#stx-pair? _tl6823468369_) - (let ((_e6823568372_ - (gx#syntax-e _tl6823468369_))) - (let ((_tl6823768379_ + (##car _e7291273231_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7291073238_)) + (let ((_e7291573241_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7291073238_)))) + (let ((_tl7291373248_ (let () (declare (not safe)) - (##cdr _e6823568372_))) - (_hd6823668376_ + (##cdr _e7291573241_))) + (_hd7291473245_ (let () (declare (not safe)) - (##car _e6823568372_)))) - (if (gx#stx-null? _tl6823768379_) - (___kont6915069151_ - _hd6823668376_ - _hd6823368366_) - (if (gx#stx-pair/null? _tl6823468369_) - (let ((___splice6915469155_ - (gx#syntax-split-splice - _tl6823468369_ - '0))) - (let ((_tl6824868290_ + (##car _e7291573241_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _hd7291473245_)) + (let ((_e7291673251_ + (let () + (declare (not safe)) + (gx#stx-e _hd7291473245_)))) + (if (let () + (declare (not safe)) + (equal? _e7291673251_ + 'unchecked:)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl7291373248_)) + (let ((_e7291973255_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl7291373248_)))) + (let ((_tl7291773262_ + (let () + (declare + (not safe)) + (##cdr _e7291973255_))) + (_hd7291873259_ + (let () + (declare + (not safe)) + (##car _e7291973255_)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl7291773262_)) + (___kont7451074511_ + _hd7291873259_ + _hd7291173235_) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-pair/null? _tl7291373248_)) + (let ((___splice7451474515_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl7291373248_ '0)))) + (let ((_tl7293473157_ + (let () + (declare (not safe)) + (##vector-ref ___splice7451474515_ '1))) + (_target7293273154_ + (let () + (declare (not safe)) + (##vector-ref ___splice7451474515_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7293473157_)) + (___match7458674587_ + _e7290973221_ + _hd7290873225_ + _tl7290773228_ + _e7291273231_ + _hd7291173235_ + _tl7291073238_ + _e7291573241_ + _hd7291473245_ + _tl7291373248_ + _e7291673251_ + ___splice7451474515_ + _target7293273154_ + _tl7293473157_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7291073238_)) + (let ((___splice7452074521_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7291073238_ + '0)))) + (let ((_tl7296273004_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7452074521_ + '1))) + (_target7296073001_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7452074521_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7296273004_)) + (___match7462674627_ + _e7290973221_ + _hd7290873225_ + _tl7290773228_ + _e7291273231_ + _hd7291173235_ + _tl7291073238_ + ___splice7452074521_ + _target7296073001_ + _tl7296273004_) + (let () + (declare (not safe)) + (_g7290372974_))))) + (let () + (declare (not safe)) + (_g7290372974_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7291073238_)) + (let ((___splice7452074521_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7291073238_ + '0)))) + (let ((_tl7296273004_ + (let () + (declare (not safe)) + (##vector-ref ___splice7452074521_ '1))) + (_target7296073001_ + (let () + (declare (not safe)) + (##vector-ref ___splice7452074521_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7296273004_)) + (___match7462674627_ + _e7290973221_ + _hd7290873225_ + _tl7290773228_ + _e7291273231_ + _hd7291173235_ + _tl7291073238_ + ___splice7452074521_ + _target7296073001_ + _tl7296273004_) + (let () + (declare (not safe)) + (_g7290372974_))))) + (let () (declare (not safe)) (_g7290372974_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl7291373248_)) + (let ((___splice7451474515_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#syntax-split-splice _tl7291373248_ '0)))) + (let ((_tl7293473157_ + (let () + (declare (not safe)) + (##vector-ref ___splice7451474515_ '1))) + (_target7293273154_ + (let () + (declare (not safe)) + (##vector-ref ___splice7451474515_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7293473157_)) + (___match7458674587_ + _e7290973221_ + _hd7290873225_ + _tl7290773228_ + _e7291273231_ + _hd7291173235_ + _tl7291073238_ + _e7291573241_ + _hd7291473245_ + _tl7291373248_ + _e7291673251_ + ___splice7451474515_ + _target7293273154_ + _tl7293473157_) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7291373248_)) + (___kont7451674517_ _hd7291473245_ _hd7291173235_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7291073238_)) + (let ((___splice7452074521_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7291073238_ + '0)))) + (let ((_tl7296273004_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7452074521_ + '1))) + (_target7296073001_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7452074521_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7296273004_)) + (___match7462674627_ + _e7290973221_ + _hd7290873225_ + _tl7290773228_ + _e7291273231_ + _hd7291173235_ + _tl7291073238_ + ___splice7452074521_ + _target7296073001_ + _tl7296273004_) + (let () + (declare (not safe)) + (_g7290372974_))))) + (let () + (declare (not safe)) + (_g7290372974_))))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl7291373248_)) + (___kont7451674517_ _hd7291473245_ _hd7291173235_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7291073238_)) + (let ((___splice7452074521_ + (let () + (declare (not safe)) + (gx#syntax-split-splice _tl7291073238_ '0)))) + (let ((_tl7296273004_ + (let () + (declare (not safe)) + (##vector-ref ___splice7452074521_ '1))) + (_target7296073001_ + (let () + (declare (not safe)) + (##vector-ref ___splice7452074521_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7296273004_)) + (___match7462674627_ + _e7290973221_ + _hd7290873225_ + _tl7290773228_ + _e7291273231_ + _hd7291173235_ + _tl7291073238_ + ___splice7452074521_ + _target7296073001_ + _tl7296273004_) + (let () (declare (not safe)) (_g7290372974_))))) + (let () (declare (not safe)) (_g7290372974_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7291373248_)) + (___kont7451674517_ + _hd7291473245_ + _hd7291173235_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl7291073238_)) + (let ((___splice7452074521_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#syntax-split-splice _tl7291073238_ '0)))) + (let ((_tl7296273004_ + (let () + (declare (not safe)) + (##vector-ref ___splice7452074521_ '1))) + (_target7296073001_ + (let () + (declare (not safe)) + (##vector-ref ___splice7452074521_ '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7296273004_)) + (___match7462674627_ + _e7290973221_ + _hd7290873225_ + _tl7290773228_ + _e7291273231_ + _hd7291173235_ + _tl7291073238_ + ___splice7452074521_ + _target7296073001_ + _tl7296273004_) + (let () (declare (not safe)) (_g7290372974_))))) + (let () (declare (not safe)) (_g7290372974_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7291373248_)) + (___kont7451674517_ + _hd7291473245_ + _hd7291173235_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl7291073238_)) + (let ((___splice7452074521_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7291073238_ + '0)))) + (let ((_tl7296273004_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7452074521_ + '1))) + (_target7296073001_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7452074521_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7296273004_)) + (___match7462674627_ + _e7290973221_ + _hd7290873225_ + _tl7290773228_ + _e7291273231_ + _hd7291173235_ + _tl7291073238_ + ___splice7452074521_ + _target7296073001_ + _tl7296273004_) + (let () + (declare (not safe)) + (_g7290372974_))))) + (let () + (declare (not safe)) + (_g7290372974_))))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7291073238_)) + (let ((___splice7452074521_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7291073238_ + '0)))) + (let ((_tl7296273004_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7452074521_ + '1))) + (_target7296073001_ + (let () + (declare (not safe)) + (##vector-ref + ___splice7452074521_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7296273004_)) + (___match7462674627_ + _e7290973221_ + _hd7290873225_ + _tl7290773228_ + _e7291273231_ + _hd7291173235_ + _tl7291073238_ + ___splice7452074521_ + _target7296073001_ + _tl7296273004_) + (let () + (declare (not safe)) + (_g7290372974_))))) + (let () + (declare (not safe)) + (_g7290372974_)))))) + (let () (declare (not safe)) (_g7290372974_))))) + (let () (declare (not safe)) (_g7290372974_)))))))) + (define |gxc[:0:]#declare-primitive/unchecked| + (lambda (_$stx73291_) + (let* ((___stx7462974630_ _$stx73291_) + (_g7329673331_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx7462974630_))))) + (let ((___kont7463274633_ + (lambda (_L73453_ _L73455_) + (let ((__tmp75116 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'declare-type))) + (__tmp75111 + (let ((__tmp75112 + (let ((__tmp75113 + (let ((__tmp75115 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '@lambda))) + (__tmp75114 + (let () + (declare (not safe)) + (cons _L73453_ '())))) + (declare (not safe)) + (cons __tmp75115 __tmp75114)))) + (declare (not safe)) + (cons __tmp75113 '())))) + (declare (not safe)) + (cons _L73455_ __tmp75112)))) + (declare (not safe)) + (cons __tmp75116 __tmp75111)))) + (___kont7463474635_ + (lambda (_L73388_ _L73390_) + (let ((__tmp75125 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'declare-type))) + (__tmp75117 + (let ((__tmp75118 + (let ((__tmp75119 + (let ((__tmp75124 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '@case-lambda))) + (__tmp75120 + (let ((__tmp75121 + (lambda (_g7340773410_ + _g7340873413_) + (let ((__tmp75122 + (let ((__tmp75123 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons '#f '())))) + (declare (not safe)) + (cons _g7340773410_ __tmp75123)))) + (declare (not safe)) + (cons __tmp75122 _g7340873413_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp75121 + '() + _L73388_)))) + (declare (not safe)) + (cons __tmp75124 __tmp75120)))) + (declare (not safe)) + (cons __tmp75119 '())))) + (declare (not safe)) + (cons _L73390_ __tmp75118)))) + (declare (not safe)) + (cons __tmp75125 __tmp75117))))) + (let ((___match7467874679_ + (lambda (_e7331373338_ + _hd7331273342_ + _tl7331173345_ + _e7331673348_ + _hd7331573352_ + _tl7331473355_ + ___splice7463674637_ + _target7331773358_ + _tl7331973361_) + (letrec ((_loop7332073364_ + (lambda (_hd7331873368_ _arity7332473371_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _hd7331873368_)) + (let ((_e7332173374_ + (let () + (declare (not safe)) + (gx#syntax-e _hd7331873368_)))) + (let ((_lp-tl7332373381_ + (let () + (declare (not safe)) + (##cdr _e7332173374_))) + (_lp-hd7332273378_ + (let () + (declare (not safe)) + (##car _e7332173374_)))) + (_loop7332073364_ + _lp-tl7332373381_ + (let () + (declare (not safe)) + (cons _lp-hd7332273378_ + _arity7332473371_))))) + (let ((_arity7332573384_ + (let () + (declare (not safe)) + (reverse _arity7332473371_)))) + (___kont7463474635_ + _arity7332573384_ + _hd7331573352_)))))) + (_loop7332073364_ _target7331773358_ '()))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7462974630_)) + (let ((_e7330273423_ + (let () + (declare (not safe)) + (gx#syntax-e ___stx7462974630_)))) + (let ((_tl7330073430_ + (let () (declare (not safe)) (##cdr _e7330273423_))) + (_hd7330173427_ + (let () (declare (not safe)) (##car _e7330273423_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7330073430_)) + (let ((_e7330573433_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7330073430_)))) + (let ((_tl7330373440_ + (let () + (declare (not safe)) + (##cdr _e7330573433_))) + (_hd7330473437_ + (let () + (declare (not safe)) + (##car _e7330573433_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl7330373440_)) + (let ((_e7330873443_ + (let () + (declare (not safe)) + (gx#syntax-e _tl7330373440_)))) + (let ((_tl7330673450_ + (let () + (declare (not safe)) + (##cdr _e7330873443_))) + (_hd7330773447_ + (let () + (declare (not safe)) + (##car _e7330873443_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7330673450_)) + (___kont7463274633_ + _hd7330773447_ + _hd7330473437_) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _tl7330373440_)) + (let ((___splice7463674637_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7330373440_ + '0)))) + (let ((_tl7331973361_ (let () (declare (not safe)) (##vector-ref - ___splice6915469155_ + ___splice7463674637_ '1))) - (_target6824668287_ + (_target7331773358_ (let () (declare (not safe)) (##vector-ref - ___splice6915469155_ + ___splice7463674637_ '0)))) - (if (gx#stx-null? - _tl6824868290_) - (___match6919669197_ - _e6822968352_ - _hd6823068356_ - _tl6823168359_ - _e6823268362_ - _hd6823368366_ - _tl6823468369_ - ___splice6915469155_ - _target6824668287_ - _tl6824868290_) - (_g6822568260_)))) - (_g6822568260_))))) - (if (gx#stx-pair/null? _tl6823468369_) - (let ((___splice6915469155_ - (gx#syntax-split-splice - _tl6823468369_ - '0))) - (let ((_tl6824868290_ + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl7331973361_)) + (___match7467874679_ + _e7330273423_ + _hd7330173427_ + _tl7330073430_ + _e7330573433_ + _hd7330473437_ + _tl7330373440_ + ___splice7463674637_ + _target7331773358_ + _tl7331973361_) + (let () + (declare (not safe)) + (_g7329673331_))))) + (let () + (declare (not safe)) + (_g7329673331_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7330373440_)) + (let ((___splice7463674637_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7330373440_ + '0)))) + (let ((_tl7331973361_ (let () (declare (not safe)) (##vector-ref - ___splice6915469155_ + ___splice7463674637_ '1))) - (_target6824668287_ + (_target7331773358_ (let () (declare (not safe)) (##vector-ref - ___splice6915469155_ + ___splice7463674637_ '0)))) - (if (gx#stx-null? _tl6824868290_) - (___match6919669197_ - _e6822968352_ - _hd6823068356_ - _tl6823168359_ - _e6823268362_ - _hd6823368366_ - _tl6823468369_ - ___splice6915469155_ - _target6824668287_ - _tl6824868290_) - (_g6822568260_)))) - (_g6822568260_))))) - (_g6822568260_)))) - (_g6822568260_))))))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7331973361_)) + (___match7467874679_ + _e7330273423_ + _hd7330173427_ + _tl7330073430_ + _e7330573433_ + _hd7330473437_ + _tl7330373440_ + ___splice7463674637_ + _target7331773358_ + _tl7331973361_) + (let () + (declare (not safe)) + (_g7329673331_))))) + (let () + (declare (not safe)) + (_g7329673331_)))))) + (let () (declare (not safe)) (_g7329673331_))))) + (let () (declare (not safe)) (_g7329673331_)))))))) (define |gxc[:0:]#declare-primitive*| - (lambda (_$stx68404_) - (let* ((_g6840868443_ - (lambda (_g6840968439_) - (gx#raise-syntax-error '#f '"Bad syntax" _g6840968439_))) - (_g6840768571_ - (lambda (_g6840968447_) - (if (gx#stx-pair? _g6840968447_) - (let ((_e6841268450_ (gx#syntax-e _g6840968447_))) - (let ((_hd6841368454_ + (lambda (_$stx73475_) + (let* ((_g7347973514_ + (lambda (_g7348073510_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7348073510_)))) + (_g7347873642_ + (lambda (_g7348073518_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7348073518_)) + (let ((_e7348573521_ + (let () + (declare (not safe)) + (gx#syntax-e _g7348073518_)))) + (let ((_hd7348473525_ (let () (declare (not safe)) - (##car _e6841268450_))) - (_tl6841468457_ + (##car _e7348573521_))) + (_tl7348373528_ (let () (declare (not safe)) - (##cdr _e6841268450_)))) - (if (gx#stx-pair/null? _tl6841468457_) - (let ((_g69206_ - (gx#syntax-split-splice _tl6841468457_ '0))) + (##cdr _e7348573521_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7348373528_)) + (let ((_g75126_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7348373528_ + '0)))) (begin - (let ((_g69207_ + (let ((_g75127_ (let () (declare (not safe)) - (if (##values? _g69206_) - (##vector-length _g69206_) + (if (##values? _g75126_) + (##vector-length _g75126_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g69207_ 2))) + (##fx= _g75127_ 2))) (error "Context expects 2 values" - _g69207_))) - (let ((_target6841568460_ + _g75127_))) + (let ((_target7348673531_ (let () (declare (not safe)) - (##vector-ref _g69206_ 0))) - (_tl6841768463_ + (##vector-ref _g75126_ 0))) + (_tl7348873534_ (let () (declare (not safe)) - (##vector-ref _g69206_ 1)))) - (if (gx#stx-null? _tl6841768463_) - (letrec ((_loop6841868466_ - (lambda (_hd6841668470_ - _arity6842268473_ - _prim6842368475_) - (if (gx#stx-pair? - _hd6841668470_) - (let ((_e6841968478_ - (gx#syntax-e - _hd6841668470_))) - (let ((_lp-hd6842068482_ + (##vector-ref _g75126_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7348873534_)) + (letrec ((_loop7348973537_ + (lambda (_hd7348773541_ + _arity7349373544_ + _prim7349473546_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd7348773541_)) + (let ((_e7349073549_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#syntax-e _hd7348773541_)))) + (let ((_lp-hd7349173553_ + (let () (declare (not safe)) (##car _e7349073549_))) + (_lp-tl7349273556_ + (let () (declare (not safe)) (##cdr _e7349073549_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd7349173553_)) + (let ((_e7349973559_ + (let () + (declare (not safe)) + (gx#syntax-e _lp-hd7349173553_)))) + (let ((_hd7349873563_ + (let () + (declare (not safe)) + (##car _e7349973559_))) + (_tl7349773566_ + (let () + (declare (not safe)) + (##cdr _e7349973559_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7349773566_)) + (let ((_g75136_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7349773566_ + '0)))) + (begin + (let ((_g75137_ + (let () + (declare (not safe)) + (if (##values? _g75136_) + (##vector-length _g75136_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g75137_ 2))) + (error "Context expects 2 values" + _g75137_))) + (let ((_target7350073569_ + (let () + (declare (not safe)) + (##vector-ref _g75136_ 0))) + (_tl7350273572_ + (let () + (declare (not safe)) + (##vector-ref _g75136_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7350273572_)) + (letrec ((_loop7350373575_ + (lambda (_hd7350173579_ + _arity7350773582_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd7350173579_)) + (let ((_e7350473585_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6841968478_))) - (_lp-tl6842168485_ - (let () (declare (not safe)) (##cdr _e6841968478_)))) - (if (gx#stx-pair? _lp-hd6842068482_) - (let ((_e6842668488_ (gx#syntax-e _lp-hd6842068482_))) - (let ((_hd6842768492_ + (gx#syntax-e _hd7350173579_)))) + (let ((_lp-hd7350573589_ + (let () (declare (not safe)) (##car _e7350473585_))) + (_lp-tl7350673592_ + (let () (declare (not safe)) (##cdr _e7350473585_)))) + (_loop7350373575_ + _lp-tl7350673592_ + (let () + (declare (not safe)) + (cons _lp-hd7350573589_ _arity7350773582_))))) + (let ((_arity7350873595_ + (let () + (declare (not safe)) + (reverse _arity7350773582_)))) + (_loop7348973537_ + _lp-tl7349273556_ + (let () + (declare (not safe)) + (cons _arity7350873595_ _arity7349373544_)) + (let () + (declare (not safe)) + (cons _hd7349873563_ _prim7349473546_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop7350373575_ + _target7350073569_ + '())) + (_g7347973514_ _g7348073518_))))) + (_g7347973514_ _g7348073518_)))) + (_g7347973514_ _g7348073518_)))) + (let ((_arity7349573599_ + (let () (declare (not safe)) (reverse _arity7349373544_))) + (_prim7349673602_ + (let () (declare (not safe)) (reverse _prim7349473546_)))) + ((lambda (_L73605_ _L73607_) + (let ((__tmp75135 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'begin))) + (__tmp75128 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _L73605_ + _L73607_)) + (let ((__tmp75129 + (lambda (_g7362273628_ + _g7362373631_ + _g7362473633_) + (let ((__tmp75130 + (let ((__tmp75134 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'declare-primitive))) + (__tmp75131 + (let ((__tmp75132 + (let ((__tmp75133 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g7362573636_ _g7362673639_) + (let () + (declare (not safe)) + (cons _g7362573636_ _g7362673639_))))) + (declare (not safe)) + (foldr1 __tmp75133 '() _g7362273628_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _g7362373631_ + __tmp75132)))) + (declare (not safe)) + (cons __tmp75134 __tmp75131)))) + (declare (not safe)) + (cons __tmp75130 _g7362473633_))))) + (declare (not safe)) + (foldr2 __tmp75129 '() _L73605_ _L73607_))))) + (declare (not safe)) + (cons __tmp75135 __tmp75128))) + _arity7349573599_ + _prim7349673602_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop7348973537_ + _target7348673531_ + '() + '())) + (_g7347973514_ _g7348073518_))))) + (_g7347973514_ _g7348073518_)))) + (_g7347973514_ _g7348073518_))))) + (_g7347873642_ _$stx73475_)))) + (define |gxc[:0:]#declare-primitive/unchecked*| + (lambda (_$stx73648_) + (let* ((_g7365273687_ + (lambda (_g7365373683_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g7365373683_)))) + (_g7365173815_ + (lambda (_g7365373691_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7365373691_)) + (let ((_e7365873694_ + (let () + (declare (not safe)) + (gx#syntax-e _g7365373691_)))) + (let ((_hd7365773698_ + (let () + (declare (not safe)) + (##car _e7365873694_))) + (_tl7365673701_ + (let () + (declare (not safe)) + (##cdr _e7365873694_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7365673701_)) + (let ((_g75138_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7365673701_ + '0)))) + (begin + (let ((_g75139_ + (let () + (declare (not safe)) + (if (##values? _g75138_) + (##vector-length _g75138_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g75139_ 2))) + (error "Context expects 2 values" + _g75139_))) + (let ((_target7365973704_ + (let () + (declare (not safe)) + (##vector-ref _g75138_ 0))) + (_tl7366173707_ + (let () + (declare (not safe)) + (##vector-ref _g75138_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7366173707_)) + (letrec ((_loop7366273710_ + (lambda (_hd7366073714_ + _arity7366673717_ + _prim7366773719_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd7366073714_)) + (let ((_e7366373722_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#syntax-e _hd7366073714_)))) + (let ((_lp-hd7366473726_ + (let () (declare (not safe)) (##car _e7366373722_))) + (_lp-tl7366573729_ + (let () (declare (not safe)) (##cdr _e7366373722_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _lp-hd7366473726_)) + (let ((_e7367273732_ + (let () + (declare (not safe)) + (gx#syntax-e _lp-hd7366473726_)))) + (let ((_hd7367173736_ (let () (declare (not safe)) - (##car _e6842668488_))) - (_tl6842868495_ + (##car _e7367273732_))) + (_tl7367073739_ (let () (declare (not safe)) - (##cdr _e6842668488_)))) - (if (gx#stx-pair/null? _tl6842868495_) - (let ((_g69208_ - (gx#syntax-split-splice - _tl6842868495_ - '0))) + (##cdr _e7367273732_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _tl7367073739_)) + (let ((_g75148_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _tl7367073739_ + '0)))) (begin - (let ((_g69209_ + (let ((_g75149_ (let () (declare (not safe)) - (if (##values? _g69208_) - (##vector-length _g69208_) + (if (##values? _g75148_) + (##vector-length _g75148_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g69209_ 2))) + (##fx= _g75149_ 2))) (error "Context expects 2 values" - _g69209_))) - (let ((_target6842968498_ + _g75149_))) + (let ((_target7367373742_ (let () (declare (not safe)) - (##vector-ref _g69208_ 0))) - (_tl6843168501_ + (##vector-ref _g75148_ 0))) + (_tl7367573745_ (let () (declare (not safe)) - (##vector-ref _g69208_ 1)))) - (if (gx#stx-null? _tl6843168501_) - (letrec ((_loop6843268504_ - (lambda (_hd6843068508_ - _arity6843668511_) - (if (gx#stx-pair? - _hd6843068508_) - (let ((_e6843368514_ - (gx#syntax-e - _hd6843068508_))) - (let ((_lp-hd6843468518_ + (##vector-ref _g75148_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl7367573745_)) + (letrec ((_loop7367673748_ + (lambda (_hd7367473752_ + _arity7368073755_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd7367473752_)) + (let ((_e7367773758_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e6843368514_))) - (_lp-tl6843568521_ - (let () (declare (not safe)) (##cdr _e6843368514_)))) - (_loop6843268504_ - _lp-tl6843568521_ - (cons _lp-hd6843468518_ _arity6843668511_)))) - (let ((_arity6843768524_ (reverse _arity6843668511_))) - (_loop6841868466_ - _lp-tl6842168485_ - (cons _arity6843768524_ _arity6842268473_) - (cons _hd6842768492_ _prim6842368475_))))))) + (declare (not safe)) + (gx#syntax-e _hd7367473752_)))) + (let ((_lp-hd7367873762_ + (let () (declare (not safe)) (##car _e7367773758_))) + (_lp-tl7367973765_ + (let () (declare (not safe)) (##cdr _e7367773758_)))) + (_loop7367673748_ + _lp-tl7367973765_ + (let () + (declare (not safe)) + (cons _lp-hd7367873762_ _arity7368073755_))))) + (let ((_arity7368173768_ + (let () + (declare (not safe)) + (reverse _arity7368073755_)))) + (_loop7366273710_ + _lp-tl7366573729_ + (let () + (declare (not safe)) + (cons _arity7368173768_ _arity7366673717_)) + (let () + (declare (not safe)) + (cons _hd7367173736_ _prim7366773719_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6843268504_ - _target6842968498_ + (_loop7367673748_ + _target7367373742_ '())) - (_g6840868443_ _g6840968447_))))) - (_g6840868443_ _g6840968447_)))) - (_g6840868443_ _g6840968447_)))) - (let ((_arity6842468528_ (reverse _arity6842268473_)) - (_prim6842568531_ (reverse _prim6842368475_))) - ((lambda (_L68534_ _L68536_) - (cons (gx#datum->syntax__0 '#f 'begin) - (begin - (gx#syntax-check-splice-targets _L68534_ _L68536_) - (foldr2 (lambda (_g6855168557_ - _g6855268560_ - _g6855368562_) - (cons (cons (gx#datum->syntax__0 - '#f - 'declare-primitive) - (cons _g6855268560_ - (foldr1 (lambda (_g6855468565_ + (_g7365273687_ _g7365373691_))))) + (_g7365273687_ _g7365373691_)))) + (_g7365273687_ _g7365373691_)))) + (let ((_arity7366873772_ + (let () (declare (not safe)) (reverse _arity7366673717_))) + (_prim7366973775_ + (let () (declare (not safe)) (reverse _prim7366773719_)))) + ((lambda (_L73778_ _L73780_) + (let ((__tmp75147 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'begin))) + (__tmp75140 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _L73778_ + _L73780_)) + (let ((__tmp75141 + (lambda (_g7379573801_ + _g7379673804_ + _g7379773806_) + (let ((__tmp75142 + (let ((__tmp75146 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'declare-primitive/unchecked))) + (__tmp75143 + (let ((__tmp75144 + (let ((__tmp75145 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6855568568_) - (cons _g6855468565_ _g6855568568_)) - '() - _g6855168557_))) + (lambda (_g7379873809_ _g7379973812_) + (let () + (declare (not safe)) + (cons _g7379873809_ _g7379973812_))))) + (declare (not safe)) + (foldr1 __tmp75145 '() _g7379573801_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g6855368562_)) - '() - _L68534_ - _L68536_)))) - _arity6842468528_ - _prim6842568531_)))))) + (declare (not safe)) + (cons _g7379673804_ + __tmp75144)))) + (declare (not safe)) + (cons __tmp75146 __tmp75143)))) + (declare (not safe)) + (cons __tmp75142 _g7379773806_))))) + (declare (not safe)) + (foldr2 __tmp75141 '() _L73778_ _L73780_))))) + (declare (not safe)) + (cons __tmp75147 __tmp75140))) + _arity7366873772_ + _prim7366973775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6841868466_ - _target6841568460_ + (_loop7366273710_ + _target7365973704_ '() '())) - (_g6840868443_ _g6840968447_))))) - (_g6840868443_ _g6840968447_)))) - (_g6840868443_ _g6840968447_))))) - (_g6840768571_ _$stx68404_))))) + (_g7365273687_ _g7365373691_))))) + (_g7365273687_ _g7365373691_)))) + (_g7365273687_ _g7365373691_))))) + (_g7365173815_ _$stx73648_))))) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index f4d6c2dc8..204950ef9 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -325,6 +325,7 @@ namespace: gerbil/core (vector-map vector-map) (vector-for-each vector-for-each) (vector-copy vector-copy) + (vector-copy! vector-copy!) (vector-append vector-append) (true true) (true? true?) @@ -385,6 +386,7 @@ namespace: gerbil/core (keyword-hash keyword-hash) (string-map string-map) (string-for-each string-for-each) + (string-copy string-copy) (string-copy! string-copy!) (substring-fill! substring-fill!) (string->bytes string->bytes) @@ -576,7 +578,11 @@ namespace: gerbil/core (system-type system-type) (gerbil-runtime-smp? gerbil-runtime-smp?) (gerbil-load-expander! gerbil-load-expander!) - (gerbil-home gerbil-home)) + (gerbil-home gerbil-home) + (list-copy list-copy) + (list-set! list-set!) + (string-downcase string-downcase) + (string-upcase string-upcase)) (%#define-alias transcript-on void) (%#define-alias transcript-off void) (%#define-alias car-set! set-car!) diff --git a/src/bootstrap/gerbil/core.ssxi.ss b/src/bootstrap/gerbil/core.ssxi.ss index a63f7cd32..421b69cbb 100644 --- a/src/bootstrap/gerbil/core.ssxi.ss +++ b/src/bootstrap/gerbil/core.ssxi.ss @@ -211,38 +211,71 @@ package: gerbil ((_ prim ...) (declare-primitive* (prim 0) ...))) +(defrules declare-primitive/0/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 0) ...))) + (defrules declare-primitive/1 () ((_ prim ...) (declare-primitive* (prim 1) ...))) +(defrules declare-primitive/1/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 1) ...))) + (defrules declare-primitive/2 () ((_ prim ...) (declare-primitive* (prim 2) ...))) +(defrules declare-primitive/2/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 2) ...))) + (defrules declare-primitive/3 () ((_ prim ...) (declare-primitive* (prim 3) ...))) +(defrules declare-primitive/3/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 3) ...))) + (defrules declare-primitive/4 () ((_ prim ...) (declare-primitive* (prim 4) ...))) +(defrules declare-primitive/4/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 4) ...))) + (defrules declare-primitive/5 () ((_ prim ...) (declare-primitive* (prim 5) ...))) +(defrules declare-primitive/5/unchecked() + ((_ prim ...) + (declare-primitive/unchecked* (prim 5) ...))) + ;; r5rs primitives -- -(declare-primitive/0 +(declare-primitive/0/unchecked interaction-environment) -(declare-primitive/1 +(declare-primitive/1/unchecked not boolean? number? complex? real? rational? integer? exact? inexact? zero? positive? negative? odd? even? + pair? null? list? + symbol? + char? + string? + vector? + procedure? + input-port? output-port? + eof-object?) + +(declare-primitive/1 exact->inexact inexact->exact abs - pair? null? list? car cdr caar cadr cdar cddr caaar cadar caadr caddr @@ -252,33 +285,30 @@ package: gerbil cdaaar cdadar cdaadr cdaddr cddaar cdddar cddadr cddddr reverse - symbol? symbol->string string->symbol - char? + symbol->string string->symbol char-alphabetic? char-numeric? char-whitespace? char-upper-case? char-lower-case? char->integer integer->char char-upcase char-downcase - string? string-length list->string - vector? vector-length list->vector - procedure? force call-with-current-continuation - input-port? output-port? open-input-file open-output-file close-input-port close-output-port - eof-object? scheme-report-environment load) -(declare-primitive/2 +(declare-primitive/2/unchecked eq? eqv? equal? - cons set-car! set-cdr! + cons) + +(declare-primitive/2 + set-car! set-cdr! list-tail list-ref memq memv assq assv @@ -324,33 +354,23 @@ package: gerbil (write-char 1 2)) ;; core runtime primitives -- -(declare-primitive/0 +(declare-primitive/0/unchecked gerbil-system system-type) -(declare-primitive/1 +(declare-primitive/1/unchecked immediate? - finite? infinite? nan? fixnum? nonnegative-fixnum? - fxzero? fxpositive? fxnegative? fxodd? fxeven? - fixnum->flonum + fxzero? flonum? - flzero? flpositive? flnegative? - flnan? flinfinite? flfinite? flinteger? - box? box unbox + box? box last last-pair - vector-concatenate dssl-object? dssl-key-object? dssl-rest-object? dssl-optional-object? plist->hash-table-eq plist->hash-table-eqv hash-keys hash-values eq?-hash eqv?-hash equal?-hash - uninterned-symbol? interned-symbol? string->uninterned-symbol - symbol-hash - keyword? uninterned-keyword? interned-keyword? keyword-hash - string->keyword keyword->string make-uninterned-keyword - symbol->keyword keyword->symbol + keyword? uninterned-keyword? interned-keyword? string-empty? - string-concatenate type-descriptor? struct-type? class-type? @@ -358,36 +378,44 @@ package: gerbil make-class-predicate object? object-type struct->list class->list - raise - exception? error-object? type-error? + exception? error-object? error? error-message error-irritants error-trace + read-syntax-from-file + u8vector? + promise?) + +(declare-primitive/1 + fixnum? nonnegative-fixnum? + fxpositive? fxnegative? fxodd? fxeven? + fixnum->flonum + flzero? flpositive? flnegative? + flnan? flinfinite? flfinite? flinteger? + unbox + uninterned-symbol? interned-symbol? string->uninterned-symbol + symbol-hash + keyword? uninterned-keyword? interned-keyword? keyword-hash + string->keyword keyword->string make-uninterned-keyword + symbol->keyword keyword->symbol + string-concatenate + raise create-directory delete-file delete-directory file-type path-extension path-strip-extension path-directory path-strip-directory path-strip-trailing-directory-separator - read-syntax-from-file - u8vector? u8vector-length u8vector->list list->u8vector u8vector-concatenate object->u8vector u8vector->object get-output-u8vector - promise? make-promise) -(declare-primitive/2 - fxmodulo - fxbit-set? - fxarithmetic-shift - set-box! +(declare-primitive/2/unchecked memf find remove1 remq remv remf hash-key? hash-map - string-shrink! - vector-shrink! string-split string-join string-prefix? make-struct-field-accessor @@ -407,10 +435,19 @@ package: gerbil find-method struct-subtype? class-subtype? with-unwind-protect + with-catch + file-newer?) + +(declare-primitive/2 + fxmodulo + fxbit-set? + fxarithmetic-shift + set-box! + remove1 remq remv remf + string-shrink! + vector-shrink! with-exception-handler - with-exception-catcher copy-file rename-file - file-newer? call-with-input-string with-input-from-string call-with-output-string with-output-to-string u8vector-ref @@ -418,21 +455,25 @@ package: gerbil call-with-input-u8vector with-input-from-u8vector call-with-output-u8vector with-output-to-u8vector) -(declare-primitive/3 - subvector +(declare-primitive/3/unchecked hash-fold struct-field-ref class-slot-ref unchecked-field-set! unchecked-slot-set! - next-method + next-method) + +(declare-primitive/3 + subvector u8vector-set! subu8vector) +(declare-primitive/4/unchecked + struct-field-set! + class-slot-set!) + (declare-primitive/4 subvector-fill! - struct-field-set! - class-slot-set! subu8vector-fill!) (declare-primitive/5 @@ -440,8 +481,7 @@ package: gerbil substring-move! subu8vector-move!) -(declare-primitive* - (make-list 1 2) +(declare-primitive/unchecked* (iota 1 2 3) (assgetq 2 3) (assgetv 2 3) @@ -449,6 +489,34 @@ package: gerbil (pgetq 2 3) (pgetv 2 3) (pget 2 3) + (plist->hash-table 1 2) + (hash-update! 3 4) + (hash-copy (1)) + (hash-copy! (1)) + (hash-merge (1)) + (hash-merge! (1)) + (hash-clear! 1 2) + (string->bytes 1 2) + (substring->bytes 3 4) + (bytes->string 1 2) + (string-index 2 3) + (string-rindex 2 3) + (make-struct-type 6 7) + (make-class-type 6) + (make-struct-instance (1)) + (make-class-instance (1)) + (class-instance-init! (1)) + (slot-ref 2 3) + (slot-set! 3 4) + (bind-method! 3 4) + (call-next-method (3)) + (call-with-parameters (1)) + (read-syntax 0 1) + (load-module 1 2) + (create-directory* 1 2)) + +(declare-primitive* + (make-list 1 2) (subvector->list 1 2) (vector->list 1 2 3) (vector->string 1 2 3) @@ -465,33 +533,14 @@ package: gerbil (u8vector-fill! 2 3 4) (u8vector-copy 1 2 3) (u8vector-copy! 3 4 5) - (plist->hash-table 1 2) - (hash-update! 3 4) - (hash-copy (1)) - (hash-copy! (1)) - (hash-merge (1)) - (hash-merge! (1)) - (hash-clear! 1 2) (gensym 0 1) (string->bytes 1 2) (substring->bytes 3 4) (bytes->string 1 2) (substring-fill! 4) (substring-move! 5) - (string-index 2 3) - (string-rindex 2 3) - (make-struct-type 6 7) - (make-class-type 6) - (make-struct-instance (1)) - (make-class-instance (1)) - (class-instance-init! (1)) - (slot-ref 2 3) - (slot-set! 3 4) - (bind-method! 3 4) - (call-next-method (3)) (current-error-port 0 1) (make-parameter 1 2) - (call-with-parameters (1)) (current-exception-handler 0 1) (exit 0 1) (getenv 1 2) @@ -512,9 +561,7 @@ package: gerbil (read-subu8vector 3 4 5) (write-subu8vector 3 4) (open-input-u8vector 0 1) - (open-output-u8vector 0 1) - (load-module 1 2) - (create-directory* 1 2)) + (open-output-u8vector 0 1)) ;; extended runtime procedures -- :gerbil/gambit (declare-primitive/0 @@ -844,6 +891,7 @@ package: gerbil replace-bit-field copy-bit-field) (declare-primitive* + (error (1)) (continuation-graft (2)) (continuation-return (1)) (display-exception 1 2) @@ -1043,7 +1091,6 @@ package: gerbil invalid-hash-number-exception-procedure invalid-hash-number-exception-arguments) - ;; hvectors (declare-primitive* (s8vector? 1) diff --git a/src/bootstrap/gerbil/core__10.scm b/src/bootstrap/gerbil/core__10.scm index 530df3df0..064bee7eb 100644 --- a/src/bootstrap/gerbil/core__10.scm +++ b/src/bootstrap/gerbil/core__10.scm @@ -1,108 +1,108 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[1]#_g42283_| + (define |gerbil/core$[1]#_g42354_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42284_| + (define |gerbil/core$[1]#_g42355_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42285_| + (define |gerbil/core$[1]#_g42359_| (##structure gx#syntax-quote::t - 'quote + 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42286_| + (define |gerbil/core$[1]#_g42360_| (##structure gx#syntax-quote::t - 'quasiquote + 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42287_| + (define |gerbil/core$[1]#_g42361_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42288_| - (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42289_| - (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42290_| - (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42291_| - (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42292_| + (define |gerbil/core$[1]#_g42363_| (##structure gx#syntax-quote::t - 'cons + 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42293_| + (define |gerbil/core$[1]#_g42364_| (##structure gx#syntax-quote::t - 'cons* + 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42294_| + (define |gerbil/core$[1]#_g42365_| + (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) + (define |gerbil/core$[1]#_g42366_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42295_| - (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42296_| + (define |gerbil/core$[1]#_g42367_| (##structure gx#syntax-quote::t - 'values + 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42297_| + (define |gerbil/core$[1]#_g42368_| (##structure gx#syntax-quote::t - 'vector + 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42306_| + (define |gerbil/core$[1]#_g42369_| + (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) + (define |gerbil/core$[1]#_g42370_| + (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) + (define |gerbil/core$[1]#_g42371_| + (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) + (define |gerbil/core$[1]#_g42372_| + (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) + (define |gerbil/core$[1]#_g42435_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42311_| + (define |gerbil/core$[1]#_g42457_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42312_| - (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42313_| + (define |gerbil/core$[1]#_g42460_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42318_| + (define |gerbil/core$[1]#_g42461_| + (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) + (define |gerbil/core$[1]#_g42467_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42319_| + (define |gerbil/core$[1]#_g42468_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42320_| - (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42321_| - (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42322_| + (define |gerbil/core$[1]#_g42469_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) + (define |gerbil/core$[1]#_g42470_| + (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) + (define |gerbil/core$[1]#_g42471_| + (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) (begin (define |gerbil/core$[1]#match-macro::t| (make-class-type @@ -122,9 +122,11 @@ (define |gerbil/core$[1]#syntax-local-match-macro?| (lambda (_stx29960_) (if (gx#identifier? _stx29960_) - (class-instance? - |gerbil/core$[1]#match-macro::t| - (gx#syntax-local-value _stx29960_ false)) + (let ((__tmp42353 (gx#syntax-local-value _stx29960_ false))) + (declare (not safe)) + (class-instance? + |gerbil/core$[1]#match-macro::t| + __tmp42353)) '#f))) (define |gerbil/core$[1]#parse-match-pattern__%| (lambda (_stx28266_ _match-stx28268_) @@ -153,17 +155,21 @@ (lambda (_L29916_) (cons '?: (cons _L29725_ - (cons (_parse128270_ - _L29916_) + (cons (let () + (declare + (not safe)) + (_parse128270_ + _L29916_)) '()))))) (___kont3946239463_ (lambda (_L29886_) (cons '?: (cons _L29725_ (cons '=>: - (cons (_parse128270_ + (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L29886_) + (declare (not safe)) + (_parse128270_ _L29886_)) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont3946439465_ @@ -173,47 +179,53 @@ (cons ':: (cons _L29839_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '=>: (cons (_parse128270_ _L29837_) '())))))))) + (cons '=>: + (cons (let () + (declare (not safe)) + (_parse128270_ _L29837_)) + '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont3946639467_ (lambda () - (_parse-error28277_ _hd28623_)))) + (let () + (declare (not safe)) + (_parse-error28277_ _hd28623_))))) (let ((_g2973829927_ (lambda () (if (gx#stx-pair? ___stx3945539456_) - (let ((_e2974529906_ + (let ((_e2974729906_ (gx#syntax-e ___stx3945539456_))) - (let ((_tl2974729913_ + (let ((_tl2974529913_ (let () (declare (not safe)) - (##cdr _e2974529906_))) + (##cdr _e2974729906_))) (_hd2974629910_ (let () (declare (not safe)) - (##car _e2974529906_)))) + (##car _e2974729906_)))) (if (gx#stx-null? - _tl2974729913_) + _tl2974529913_) (___kont3946039461_ _hd2974629910_) (if (gx#identifier? _hd2974629910_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g42283_| + |gerbil/core$[1]#_g42355_| _hd2974629910_) - (if (gx#stx-pair? _tl2974729913_) - (let ((_e2975229876_ (gx#syntax-e _tl2974729913_))) - (let ((_tl2975429883_ + (if (gx#stx-pair? _tl2974529913_) + (let ((_e2975429876_ (gx#syntax-e _tl2974529913_))) + (let ((_tl2975229883_ (let () (declare (not safe)) - (##cdr _e2975229876_))) + (##cdr _e2975429876_))) (_hd2975329880_ (let () (declare (not safe)) - (##car _e2975229876_)))) - (if (gx#stx-null? _tl2975429883_) + (##car _e2975429876_)))) + (if (gx#stx-null? _tl2975229883_) (___kont3946239463_ _hd2975329880_) (___kont3946639467_)))) (___kont3946639467_)) @@ -221,45 +233,45 @@ (if (gx#stx-datum? _hd2974629910_) (let ((_e2976029803_ (gx#stx-e _hd2974629910_))) (if (equal? _e2976029803_ '::) - (if (gx#stx-pair? _tl2974729913_) - (let ((_e2976129807_ - (gx#syntax-e _tl2974729913_))) - (let ((_tl2976329814_ + (if (gx#stx-pair? _tl2974529913_) + (let ((_e2976329807_ + (gx#syntax-e _tl2974529913_))) + (let ((_tl2976129814_ (let () (declare (not safe)) - (##cdr _e2976129807_))) + (##cdr _e2976329807_))) (_hd2976229811_ (let () (declare (not safe)) - (##car _e2976129807_)))) - (if (gx#stx-pair? _tl2976329814_) - (let ((_e2976429817_ - (gx#syntax-e _tl2976329814_))) - (let ((_tl2976629824_ + (##car _e2976329807_)))) + (if (gx#stx-pair? _tl2976129814_) + (let ((_e2976629817_ + (gx#syntax-e _tl2976129814_))) + (let ((_tl2976429824_ (let () (declare (not safe)) - (##cdr _e2976429817_))) + (##cdr _e2976629817_))) (_hd2976529821_ (let () (declare (not safe)) - (##car _e2976429817_)))) + (##car _e2976629817_)))) (if (gx#identifier? _hd2976529821_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42284_| + |gerbil/core$[1]#_g42354_| _hd2976529821_) (if (gx#stx-pair? - _tl2976629824_) - (let ((_e2976729827_ + _tl2976429824_) + (let ((_e2976929827_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2976629824_))) - (let ((_tl2976929834_ - (let () (declare (not safe)) (##cdr _e2976729827_))) + (gx#syntax-e _tl2976429824_))) + (let ((_tl2976729834_ + (let () (declare (not safe)) (##cdr _e2976929827_))) (_hd2976829831_ (let () (declare (not safe)) - (##car _e2976729827_)))) - (if (gx#stx-null? _tl2976929834_) + (##car _e2976929827_)))) + (if (gx#stx-null? _tl2976729834_) (___kont3946439465_ _hd2976829831_ _hd2976229811_) (___kont3946639467_)))) (___kont3946639467_)) @@ -274,7 +286,9 @@ (___kont3946639467_))))) (if (gx#stx-null? ___stx3945539456_) (___kont3945839459_) - (_g2973829927_))))))) + (let () + (declare (not safe)) + (_g2973829927_)))))))) (___kont3954039541_ (lambda (_L29628_) (let* ((___stx3943739438_ _L29628_) @@ -286,7 +300,9 @@ ___stx3943739438_)))) (let ((___kont3944039441_ (lambda (_L29679_) - (_parse128270_ _L29679_))) + (let () + (declare (not safe)) + (_parse128270_ _L29679_)))) (___kont3944239443_ (lambda () (cons 'and: @@ -294,17 +310,17 @@ _parse128270_ _L29628_))))) (if (gx#stx-pair? ___stx3943739438_) - (let ((_e2964329669_ + (let ((_e2964529669_ (gx#syntax-e ___stx3943739438_))) - (let ((_tl2964529676_ + (let ((_tl2964329676_ (let () (declare (not safe)) - (##cdr _e2964329669_))) + (##cdr _e2964529669_))) (_hd2964429673_ (let () (declare (not safe)) - (##car _e2964329669_)))) - (if (gx#stx-null? _tl2964529676_) + (##car _e2964529669_)))) + (if (gx#stx-null? _tl2964329676_) (___kont3944039441_ _hd2964429673_) (___kont3944239443_)))) @@ -320,7 +336,9 @@ ___stx3941939420_)))) (let ((___kont3942239423_ (lambda (_L29594_) - (_parse128270_ _L29594_))) + (let () + (declare (not safe)) + (_parse128270_ _L29594_)))) (___kont3942439425_ (lambda () (cons 'or: @@ -328,17 +346,17 @@ _parse128270_ _L29543_))))) (if (gx#stx-pair? ___stx3941939420_) - (let ((_e2955829584_ + (let ((_e2956029584_ (gx#syntax-e ___stx3941939420_))) - (let ((_tl2956029591_ + (let ((_tl2955829591_ (let () (declare (not safe)) - (##cdr _e2955829584_))) + (##cdr _e2956029584_))) (_hd2955929588_ (let () (declare (not safe)) - (##car _e2955829584_)))) - (if (gx#stx-null? _tl2956029591_) + (##car _e2956029584_)))) + (if (gx#stx-null? _tl2955829591_) (___kont3942239423_ _hd2955929588_) (___kont3942439425_)))) @@ -346,76 +364,115 @@ (___kont3954439545_ (lambda (_L29513_) (cons 'not: - (cons (_parse128270_ _L29513_) '())))) + (cons (let () + (declare (not safe)) + (_parse128270_ _L29513_)) + '())))) (___kont3954639547_ (lambda (_L29469_ _L29471_) (cons 'cons: - (cons (_parse128270_ _L29471_) - (cons (_parse128270_ _L29469_) + (cons (let () + (declare (not safe)) + (_parse128270_ _L29471_)) + (cons (let () + (declare (not safe)) + (_parse128270_ _L29469_)) '()))))) (___kont3954839549_ (lambda (_L29413_ _L29415_ _L29416_) (if (gx#stx-null? _L29413_) (cons 'cons: - (cons (_parse128270_ _L29416_) - (cons (_parse128270_ _L29415_) + (cons (let () + (declare (not safe)) + (_parse128270_ _L29416_)) + (cons (let () + (declare (not safe)) + (_parse128270_ + _L29415_)) '()))) (cons 'cons: - (cons (_parse128270_ _L29416_) - (cons (_parse128270_ - (cons (gx#datum->syntax - '#f - 'cons*) - (cons _L29415_ + (cons (let () + (declare (not safe)) + (_parse128270_ _L29416_)) + (cons (let ((__tmp42356 + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L29413_))) + '#f + 'cons*) + (cons _L29415_ _L29413_)))) + (declare (not safe)) + (_parse128270_ __tmp42356)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (___kont3955039551_ - (lambda (_L29365_) (_parse-list28272_ _L29365_))) + (lambda (_L29365_) + (let () + (declare (not safe)) + (_parse-list28272_ _L29365_)))) (___kont3955239553_ (lambda (_L29335_) (cons 'box: - (cons (_parse128270_ _L29335_) '())))) + (cons (let () + (declare (not safe)) + (_parse128270_ _L29335_)) + '())))) (___kont3955439555_ (lambda (_L29298_) (cons 'box: - (cons (_parse128270_ _L29298_) '())))) + (cons (let () + (declare (not safe)) + (_parse128270_ _L29298_)) + '())))) (___kont3955639557_ - (lambda (_L29274_) (_parse128270_ _L29274_))) + (lambda (_L29274_) + (let () + (declare (not safe)) + (_parse128270_ _L29274_)))) (___kont3955839559_ (lambda (_L29236_) (cons 'values: - (cons (_parse-vector28273_ _L29236_) + (cons (let () + (declare (not safe)) + (_parse-vector28273_ _L29236_)) '())))) (___kont3956039561_ (lambda (_L29208_) (cons 'vector: - (cons (_parse-vector28273_ _L29208_) + (cons (let () + (declare (not safe)) + (_parse-vector28273_ _L29208_)) '())))) (___kont3956239563_ (lambda (_L29169_) (cons 'vector: - (cons (_parse-vector28273_ - (foldr (lambda (_g2918229185_ - _g2918329188_) - (cons _g2918229185_ - _g2918329188_)) - '() - _L29169_)) + (cons (let ((__tmp42357 + (foldr (lambda (_g2918229185_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2918329188_) + (cons _g2918229185_ _g2918329188_)) + '() + _L29169_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_parse-vector28273_ __tmp42357)) '())))) (___kont3956639567_ (lambda (_L29115_ _L29117_) (cons 'struct: (cons (gx#syntax-local-value _L29117_) - (cons (_parse-vector28273_ _L29115_) + (cons (let () + (declare (not safe)) + (_parse-vector28273_ + _L29115_)) '()))))) (___kont3956839569_ (lambda (_L29085_ _L29087_) (cons 'class: (cons (gx#syntax-local-value _L29087_) - (cons (_parse-class-body28275_ - _L29085_) + (cons (let () + (declare (not safe)) + (_parse-class-body28275_ + _L29085_)) '()))))) (___kont3957039571_ (lambda (_L29045_ _L29047_) @@ -434,24 +491,32 @@ (lambda (_L29005_) (cons 'datum: (cons (gx#stx-e _L29005_) '())))) (___kont3957439575_ - (lambda (_L28965_) (_parse-qq28276_ _L28965_))) + (lambda (_L28965_) + (let () + (declare (not safe)) + (_parse-qq28276_ _L28965_)))) (___kont3957639577_ (lambda (_L28921_ _L28923_) (cons 'apply: (cons _L28923_ - (cons (_parse128270_ _L28921_) + (cons (let () + (declare (not safe)) + (_parse128270_ _L28921_)) '()))))) (___kont3957839579_ (lambda (_L28869_) - (_parse128270_ - (gx#core-apply-expander - (gx#syntax-local-e _L28869_) - (gx#stx-wrap-source - (cons 'match: _hd28623_) - (let ((_$e28880_ (gx#stx-source _hd28623_))) - (if _$e28880_ - _$e28880_ - (gx#stx-source _stx28266_)))))))) + (let ((__tmp42358 + (gx#core-apply-expander + (gx#syntax-local-e _L28869_) + (gx#stx-wrap-source + (cons 'match: _hd28623_) + (let ((_$e28880_ + (gx#stx-source _hd28623_))) + (if _$e28880_ + _$e28880_ + (gx#stx-source _stx28266_))))))) + (declare (not safe)) + (_parse128270_ __tmp42358)))) (___kont3958039581_ (lambda (_L28843_) (cons 'any: '()))) (___kont3958239583_ @@ -461,7 +526,10 @@ (lambda (_L28809_) (cons 'datum: (cons (gx#stx-e _L28809_) '())))) (___kont3958639587_ - (lambda () (_parse-error28277_ _hd28623_)))) + (lambda () + (let () + (declare (not safe)) + (_parse-error28277_ _hd28623_))))) (let* ((_g2864728820_ (lambda () (let ((_L28809_ ___stx3953539536_)) @@ -474,29 +542,37 @@ (if (and (gx#identifier? _L28827_) (not (gx#ellipsis? _L28827_))) (___kont3958239583_ _L28827_) - (_g2864728820_))))) + (let () + (declare (not safe)) + (_g2864728820_)))))) (_g2864528852_ (lambda () (let ((_L28843_ ___stx3953539536_)) (if (gx#underscore? _L28843_) (___kont3958039581_ _L28843_) - (_g2864628836_))))) + (let () + (declare (not safe)) + (_g2864628836_)))))) (___match3986239863_ - (lambda (_e2878028859_ + (lambda (_e2878228859_ _hd2878128863_ - _tl2878228866_) + _tl2878028866_) (let ((_L28869_ _hd2878128863_)) - (if (|gerbil/core$[1]#syntax-local-match-macro?| - _L28869_) + (if (let () + (declare (not safe)) + (|gerbil/core$[1]#syntax-local-match-macro?| + _L28869_)) (___kont3957839579_ _L28869_) - (_g2864528852_))))) + (let () + (declare (not safe)) + (_g2864528852_)))))) (___match3979639797_ - (lambda (_e2874829025_ + (lambda (_e2875029025_ _hd2874929029_ - _tl2875029032_ - _e2875129035_ + _tl2874829032_ + _e2875329035_ _hd2875229039_ - _tl2875329042_) + _tl2875129042_) (let ((_L29045_ _hd2875229039_) (_L29047_ _hd2874929029_)) (if (and (gx#identifier? _L29047_) @@ -514,122 +590,126 @@ (___kont3957039571_ _L29045_ _L29047_) (if (gx#identifier? _hd2874929029_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42285_| + |gerbil/core$[1]#_g42360_| _hd2874929029_) (___kont3957239573_ _hd2875229039_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42286_| + |gerbil/core$[1]#_g42359_| _hd2874929029_) (___kont3957439575_ _hd2875229039_) (___match3986239863_ - _e2874829025_ + _e2875029025_ _hd2874929029_ - _tl2875029032_))) + _tl2874829032_))) (___match3986239863_ - _e2874829025_ + _e2875029025_ _hd2874929029_ - _tl2875029032_)))))) + _tl2874829032_)))))) (___match3978239783_ - (lambda (_e2874329075_ + (lambda (_e2874529075_ _hd2874429079_ - _tl2874529082_) - (let ((_L29085_ _tl2874529082_) + _tl2874329082_) + (let ((_L29085_ _tl2874329082_) (_L29087_ _hd2874429079_)) - (if (|gerbil/core$$[1]#syntax-local-class-info?| - _L29087_) + (if (let () + (declare (not safe)) + (|gerbil/core$$[1]#syntax-local-class-info?| + _L29087_)) (___kont3956839569_ _L29085_ _L29087_) - (if (gx#stx-pair? _tl2874529082_) - (let ((_e2875129035_ + (if (gx#stx-pair? _tl2874329082_) + (let ((_e2875329035_ (gx#syntax-e - _tl2874529082_))) - (let ((_tl2875329042_ + _tl2874329082_))) + (let ((_tl2875129042_ (let () (declare (not safe)) - (##cdr _e2875129035_))) + (##cdr _e2875329035_))) (_hd2875229039_ (let () (declare (not safe)) - (##car _e2875129035_)))) + (##car _e2875329035_)))) (if (gx#stx-null? - _tl2875329042_) + _tl2875129042_) (___match3979639797_ - _e2874329075_ + _e2874529075_ _hd2874429079_ - _tl2874529082_ - _e2875129035_ + _tl2874329082_ + _e2875329035_ _hd2875229039_ - _tl2875329042_) + _tl2875129042_) (if (gx#identifier? _hd2874429079_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42285_| + |gerbil/core$[1]#_g42360_| _hd2874429079_) (___match3986239863_ - _e2874329075_ + _e2874529075_ _hd2874429079_ - _tl2874529082_) + _tl2874329082_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g42286_| + |gerbil/core$[1]#_g42359_| _hd2874429079_) (___match3986239863_ - _e2874329075_ + _e2874529075_ _hd2874429079_ - _tl2874529082_) + _tl2874329082_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42287_| + |gerbil/core$[1]#_g42361_| _hd2874429079_) - (if (gx#stx-pair? _tl2875329042_) - (let ((_e2877628911_ - (gx#syntax-e _tl2875329042_))) - (let ((_tl2877828918_ + (if (gx#stx-pair? _tl2875129042_) + (let ((_e2877828911_ + (gx#syntax-e _tl2875129042_))) + (let ((_tl2877628918_ (let () (declare (not safe)) - (##cdr _e2877628911_))) + (##cdr _e2877828911_))) (_hd2877728915_ (let () (declare (not safe)) - (##car _e2877628911_)))) - (if (gx#stx-null? _tl2877828918_) + (##car _e2877828911_)))) + (if (gx#stx-null? _tl2877628918_) (___kont3957639577_ _hd2877728915_ _hd2875229039_) (___match3986239863_ - _e2874329075_ + _e2874529075_ _hd2874429079_ - _tl2874529082_)))) + _tl2874329082_)))) (___match3986239863_ - _e2874329075_ + _e2874529075_ _hd2874429079_ - _tl2874529082_)) + _tl2874329082_)) (___match3986239863_ - _e2874329075_ + _e2874529075_ _hd2874429079_ - _tl2874529082_)))) + _tl2874329082_)))) (___match3986239863_ - _e2874329075_ + _e2874529075_ _hd2874429079_ - _tl2874529082_))))) + _tl2874329082_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___match3986239863_ - _e2874329075_ + _e2874529075_ _hd2874429079_ - _tl2874529082_)))))) + _tl2874329082_)))))) (___match3977639777_ - (lambda (_e2873829105_ + (lambda (_e2874029105_ _hd2873929109_ - _tl2874029112_) - (let ((_L29115_ _tl2874029112_) + _tl2873829112_) + (let ((_L29115_ _tl2873829112_) (_L29117_ _hd2873929109_)) - (if (|gerbil/core$$[1]#syntax-local-struct-info?| - _L29117_) + (if (let () + (declare (not safe)) + (|gerbil/core$$[1]#syntax-local-struct-info?| + _L29117_)) (___kont3956639567_ _L29115_ _L29117_) (___match3978239783_ - _e2873829105_ + _e2874029105_ _hd2873929109_ - _tl2874029112_))))) + _tl2873829112_))))) (___match3977039771_ (lambda (_e2872629135_ ___splice3956439565_ @@ -652,17 +732,22 @@ (declare (not safe)) (##car _e2873129155_)))) - (_loop2873029145_ - _lp-tl2873329162_ - (cons _lp-hd2873229159_ - _body2873429152_)))) + (let ((__tmp42362 + (cons _lp-hd2873229159_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _body2873429152_))) + (declare (not safe)) + (_loop2873029145_ _lp-tl2873329162_ __tmp42362)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_body2873529165_ (reverse _body2873429152_))) (___kont3956239563_ _body2873529165_)))))) - (_loop2873029145_ - _target2872729139_ - '())))) + (let () + (declare (not safe)) + (_loop2873029145_ + _target2872729139_ + '()))))) (_g2863729191_ (lambda () (if (gx#stx-vector? ___stx3953539536_) @@ -694,9 +779,15 @@ ___splice3956439565_ _target2872729139_ _tl2872929142_) - (_g2864528852_)))) - (_g2864528852_))) - (_g2864528852_)))) + (let () + (declare (not safe)) + (_g2864528852_))))) + (let () + (declare (not safe)) + (_g2864528852_)))) + (let () + (declare (not safe)) + (_g2864528852_))))) (_g2863329308_ (lambda () (if (gx#stx-box? ___stx3953539536_) @@ -704,239 +795,243 @@ (unbox (gx#syntax-e ___stx3953539536_)))) (___kont3955439555_ _e2870929294_)) - (_g2863729191_)))) + (let () + (declare (not safe)) + (_g2863729191_))))) (___match3962439625_ - (lambda (_e2866429533_ + (lambda (_e2866629533_ _hd2866529537_ - _tl2866629540_) - (let ((_L29543_ _tl2866629540_)) + _tl2866429540_) + (let ((_L29543_ _tl2866429540_)) (if (gx#stx-list? _L29543_) (___kont3954239543_ _L29543_) (___match3977639777_ - _e2866429533_ + _e2866629533_ _hd2866529537_ - _tl2866629540_))))) + _tl2866429540_))))) (___match3961439615_ - (lambda (_e2866029618_ + (lambda (_e2866229618_ _hd2866129622_ - _tl2866229625_) - (let ((_L29628_ _tl2866229625_)) + _tl2866029625_) + (let ((_L29628_ _tl2866029625_)) (if (gx#stx-list? _L29628_) (___kont3954039541_ _L29628_) (___match3977639777_ - _e2866029618_ + _e2866229618_ _hd2866129622_ - _tl2866229625_)))))) + _tl2866029625_)))))) (if (gx#stx-pair? ___stx3953539536_) - (let ((_e2865329703_ + (let ((_e2865529703_ (gx#syntax-e ___stx3953539536_))) - (let ((_tl2865529710_ + (let ((_tl2865329710_ (let () (declare (not safe)) - (##cdr _e2865329703_))) + (##cdr _e2865529703_))) (_hd2865429707_ (let () (declare (not safe)) - (##car _e2865329703_)))) + (##car _e2865529703_)))) (if (gx#identifier? _hd2865429707_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42288_| + |gerbil/core$[1]#_g42372_| _hd2865429707_) - (if (gx#stx-pair? _tl2865529710_) - (let ((_e2865629713_ + (if (gx#stx-pair? _tl2865329710_) + (let ((_e2865829713_ (gx#syntax-e - _tl2865529710_))) - (let ((_tl2865829720_ + _tl2865329710_))) + (let ((_tl2865629720_ (let () (declare (not safe)) - (##cdr _e2865629713_))) + (##cdr _e2865829713_))) (_hd2865729717_ (let () (declare (not safe)) - (##car _e2865629713_)))) + (##car _e2865829713_)))) (___kont3953839539_ - _tl2865829720_ + _tl2865629720_ _hd2865729717_))) (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_)) + _tl2865329710_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42289_| + |gerbil/core$[1]#_g42371_| _hd2865429707_) (___match3961439615_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_) + _tl2865329710_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42290_| + |gerbil/core$[1]#_g42370_| _hd2865429707_) (___match3962439625_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_) + _tl2865329710_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42291_| + |gerbil/core$[1]#_g42369_| _hd2865429707_) (if (gx#stx-pair? - _tl2865529710_) - (let ((_e2867129503_ + _tl2865329710_) + (let ((_e2867329503_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2865529710_))) - (let ((_tl2867329510_ - (let () (declare (not safe)) (##cdr _e2867129503_))) + (gx#syntax-e _tl2865329710_))) + (let ((_tl2867129510_ + (let () (declare (not safe)) (##cdr _e2867329503_))) (_hd2867229507_ (let () (declare (not safe)) - (##car _e2867129503_)))) - (if (gx#stx-null? _tl2867329510_) + (##car _e2867329503_)))) + (if (gx#stx-null? _tl2867129510_) (___kont3954439545_ _hd2867229507_) (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_)))) + _tl2865329710_)))) (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_)) + _tl2865329710_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42292_| + |gerbil/core$[1]#_g42368_| _hd2865429707_) - (if (gx#stx-pair? _tl2865529710_) - (let ((_e2867929449_ (gx#syntax-e _tl2865529710_))) - (let ((_tl2868129456_ + (if (gx#stx-pair? _tl2865329710_) + (let ((_e2868129449_ (gx#syntax-e _tl2865329710_))) + (let ((_tl2867929456_ (let () (declare (not safe)) - (##cdr _e2867929449_))) + (##cdr _e2868129449_))) (_hd2868029453_ (let () (declare (not safe)) - (##car _e2867929449_)))) - (if (gx#stx-pair? _tl2868129456_) - (let ((_e2868229459_ - (gx#syntax-e _tl2868129456_))) - (let ((_tl2868429466_ + (##car _e2868129449_)))) + (if (gx#stx-pair? _tl2867929456_) + (let ((_e2868429459_ + (gx#syntax-e _tl2867929456_))) + (let ((_tl2868229466_ (let () (declare (not safe)) - (##cdr _e2868229459_))) + (##cdr _e2868429459_))) (_hd2868329463_ (let () (declare (not safe)) - (##car _e2868229459_)))) - (if (gx#stx-null? _tl2868429466_) + (##car _e2868429459_)))) + (if (gx#stx-null? _tl2868229466_) (___kont3954639547_ _hd2868329463_ _hd2868029453_) (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_)))) + _tl2865329710_)))) (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_)))) + _tl2865329710_)))) (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_)) + _tl2865329710_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42293_| + |gerbil/core$[1]#_g42367_| _hd2865429707_) - (if (gx#stx-pair? _tl2865529710_) - (let ((_e2869129393_ (gx#syntax-e _tl2865529710_))) - (let ((_tl2869329400_ + (if (gx#stx-pair? _tl2865329710_) + (let ((_e2869329393_ (gx#syntax-e _tl2865329710_))) + (let ((_tl2869129400_ (let () (declare (not safe)) - (##cdr _e2869129393_))) + (##cdr _e2869329393_))) (_hd2869229397_ (let () (declare (not safe)) - (##car _e2869129393_)))) - (if (gx#stx-pair? _tl2869329400_) - (let ((_e2869429403_ - (gx#syntax-e _tl2869329400_))) - (let ((_tl2869629410_ + (##car _e2869329393_)))) + (if (gx#stx-pair? _tl2869129400_) + (let ((_e2869629403_ + (gx#syntax-e _tl2869129400_))) + (let ((_tl2869429410_ (let () (declare (not safe)) - (##cdr _e2869429403_))) + (##cdr _e2869629403_))) (_hd2869529407_ (let () (declare (not safe)) - (##car _e2869429403_)))) + (##car _e2869629403_)))) (___kont3954839549_ - _tl2869629410_ + _tl2869429410_ _hd2869529407_ _hd2869229397_))) (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_)))) + _tl2865329710_)))) (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_)) + _tl2865329710_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42294_| + |gerbil/core$[1]#_g42366_| _hd2865429707_) - (___kont3955039551_ _tl2865529710_) + (___kont3955039551_ _tl2865329710_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42295_| + |gerbil/core$[1]#_g42365_| _hd2865429707_) - (if (gx#stx-pair? _tl2865529710_) - (let ((_e2870529325_ - (gx#syntax-e _tl2865529710_))) - (let ((_tl2870729332_ + (if (gx#stx-pair? _tl2865329710_) + (let ((_e2870729325_ + (gx#syntax-e _tl2865329710_))) + (let ((_tl2870529332_ (let () (declare (not safe)) - (##cdr _e2870529325_))) + (##cdr _e2870729325_))) (_hd2870629329_ (let () (declare (not safe)) - (##car _e2870529325_)))) - (if (gx#stx-null? _tl2870729332_) + (##car _e2870729325_)))) + (if (gx#stx-null? _tl2870529332_) (___kont3955239553_ _hd2870629329_) (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_)))) + _tl2865329710_)))) (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_)) + _tl2865329710_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42296_| + |gerbil/core$[1]#_g42364_| _hd2865429707_) - (if (gx#stx-pair? _tl2865529710_) - (let ((_e2871429264_ - (gx#syntax-e _tl2865529710_))) - (let ((_tl2871629271_ + (if (gx#stx-pair? _tl2865329710_) + (let ((_e2871629264_ + (gx#syntax-e _tl2865329710_))) + (let ((_tl2871429271_ (let () (declare (not safe)) - (##cdr _e2871429264_))) + (##cdr _e2871629264_))) (_hd2871529268_ (let () (declare (not safe)) - (##car _e2871429264_)))) - (if (gx#stx-null? _tl2871629271_) + (##car _e2871629264_)))) + (if (gx#stx-null? _tl2871429271_) (___kont3955639557_ _hd2871529268_) (___kont3955839559_ - _tl2865529710_)))) - (___kont3955839559_ _tl2865529710_)) + _tl2865329710_)))) + (___kont3955839559_ _tl2865329710_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42297_| + |gerbil/core$[1]#_g42363_| _hd2865429707_) - (___kont3956039561_ _tl2865529710_) + (___kont3956039561_ _tl2865329710_) (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_))))))))))) + _tl2865329710_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___match3977639777_ - _e2865329703_ + _e2865529703_ _hd2865429707_ - _tl2865529710_)))) - (_g2863329308_))))))) + _tl2865329710_)))) + (let () + (declare (not safe)) + (_g2863329308_)))))))) (_parse-list28272_ (lambda (_body28452_) (let* ((___stx3986539866_ _body28452_) @@ -947,43 +1042,60 @@ '"Bad syntax" ___stx3986539866_)))) (let ((___kont3986839869_ - (lambda (_L28605_) (_parse128270_ _L28605_))) + (lambda (_L28605_) + (let () + (declare (not safe)) + (_parse128270_ _L28605_)))) (___kont3987039871_ (lambda (_L28557_ _L28559_ _L28560_) (cons 'splice: - (cons (_parse128270_ _L28560_) - (cons (_parse-list28272_ _L28557_) + (cons (let () + (declare (not safe)) + (_parse128270_ _L28560_)) + (cons (let () + (declare (not safe)) + (_parse-list28272_ + _L28557_)) '()))))) (___kont3987239873_ (lambda (_L28515_ _L28517_) (cons 'cons: - (cons (_parse128270_ _L28517_) - (cons (_parse-list28272_ _L28515_) + (cons (let () + (declare (not safe)) + (_parse128270_ _L28517_)) + (cons (let () + (declare (not safe)) + (_parse-list28272_ + _L28515_)) '()))))) (___kont3987439875_ (lambda () (if (gx#stx-null? _body28452_) (cons 'null: '()) (if (not (gx#stx-pair? _body28452_)) - (_parse128270_ _body28452_) - (_parse-error28277_ _body28452_)))))) + (let () + (declare (not safe)) + (_parse128270_ _body28452_)) + (let () + (declare (not safe)) + (_parse-error28277_ _body28452_))))))) (let* ((___match3991439915_ - (lambda (_e2847928505_ + (lambda (_e2848128505_ _hd2848028509_ - _tl2848128512_) - (let ((_L28515_ _tl2848128512_) + _tl2847928512_) + (let ((_L28515_ _tl2847928512_) (_L28517_ _hd2848028509_)) (if (not (gx#ellipsis? _L28517_)) (___kont3987239873_ _L28515_ _L28517_) (___kont3987439875_))))) (___match3990839909_ - (lambda (_e2847128537_ + (lambda (_e2847328537_ _hd2847228541_ - _tl2847328544_ - _e2847428547_ + _tl2847128544_ + _e2847628547_ _hd2847528551_ - _tl2847628554_) - (let ((_L28557_ _tl2847628554_) + _tl2847428554_) + (let ((_L28557_ _tl2847428554_) (_L28559_ _hd2847528551_) (_L28560_ _hd2847228541_)) (if (gx#ellipsis? _L28559_) @@ -992,105 +1104,110 @@ _L28559_ _L28560_) (___match3991439915_ - _e2847128537_ + _e2847328537_ _hd2847228541_ - _tl2847328544_)))))) + _tl2847128544_)))))) (if (gx#stx-pair? ___stx3986539866_) - (let ((_e2846128581_ + (let ((_e2846328581_ (gx#syntax-e ___stx3986539866_))) - (let ((_tl2846328588_ + (let ((_tl2846128588_ (let () (declare (not safe)) - (##cdr _e2846128581_))) + (##cdr _e2846328581_))) (_hd2846228585_ (let () (declare (not safe)) - (##car _e2846128581_)))) + (##car _e2846328581_)))) (if (gx#stx-datum? _hd2846228585_) (let ((_e2846428591_ (gx#stx-e _hd2846228585_))) (if (equal? _e2846428591_ '::) - (if (gx#stx-pair? _tl2846328588_) - (let ((_e2846528595_ + (if (gx#stx-pair? _tl2846128588_) + (let ((_e2846728595_ (gx#syntax-e - _tl2846328588_))) - (let ((_tl2846728602_ + _tl2846128588_))) + (let ((_tl2846528602_ (let () (declare (not safe)) - (##cdr _e2846528595_))) + (##cdr _e2846728595_))) (_hd2846628599_ (let () (declare (not safe)) - (##car _e2846528595_)))) + (##car _e2846728595_)))) (if (gx#stx-null? - _tl2846728602_) + _tl2846528602_) (___kont3986839869_ _hd2846628599_) (___match3990839909_ - _e2846128581_ + _e2846328581_ _hd2846228585_ - _tl2846328588_ - _e2846528595_ + _tl2846128588_ + _e2846728595_ _hd2846628599_ - _tl2846728602_)))) + _tl2846528602_)))) (___match3991439915_ - _e2846128581_ + _e2846328581_ _hd2846228585_ - _tl2846328588_)) - (if (gx#stx-pair? _tl2846328588_) - (let ((_e2847428547_ + _tl2846128588_)) + (if (gx#stx-pair? _tl2846128588_) + (let ((_e2847628547_ (gx#syntax-e - _tl2846328588_))) - (let ((_tl2847628554_ + _tl2846128588_))) + (let ((_tl2847428554_ (let () (declare (not safe)) - (##cdr _e2847428547_))) + (##cdr _e2847628547_))) (_hd2847528551_ (let () (declare (not safe)) - (##car _e2847428547_)))) + (##car _e2847628547_)))) (___match3990839909_ - _e2846128581_ + _e2846328581_ _hd2846228585_ - _tl2846328588_ - _e2847428547_ + _tl2846128588_ + _e2847628547_ _hd2847528551_ - _tl2847628554_))) + _tl2847428554_))) (___match3991439915_ - _e2846128581_ + _e2846328581_ _hd2846228585_ - _tl2846328588_)))) - (if (gx#stx-pair? _tl2846328588_) - (let ((_e2847428547_ - (gx#syntax-e _tl2846328588_))) - (let ((_tl2847628554_ + _tl2846128588_)))) + (if (gx#stx-pair? _tl2846128588_) + (let ((_e2847628547_ + (gx#syntax-e _tl2846128588_))) + (let ((_tl2847428554_ (let () (declare (not safe)) - (##cdr _e2847428547_))) + (##cdr _e2847628547_))) (_hd2847528551_ (let () (declare (not safe)) - (##car _e2847428547_)))) + (##car _e2847628547_)))) (___match3990839909_ - _e2846128581_ + _e2846328581_ _hd2846228585_ - _tl2846328588_ - _e2847428547_ + _tl2846128588_ + _e2847628547_ _hd2847528551_ - _tl2847628554_))) + _tl2847428554_))) (___match3991439915_ - _e2846128581_ + _e2846328581_ _hd2846228585_ - _tl2846328588_))))) + _tl2846128588_))))) (___kont3987439875_))))))) (_parse-vector28273_ (lambda (_body28449_) - (if (_simple-vector?28274_ _body28449_) + (if (let () + (declare (not safe)) + (_simple-vector?28274_ _body28449_)) (cons 'simple: (cons (gx#stx-map _parse128270_ _body28449_) '())) (cons 'list: - (cons (_parse-list28272_ _body28449_) '()))))) + (cons (let () + (declare (not safe)) + (_parse-list28272_ _body28449_)) + '()))))) (_simple-vector?28274_ (lambda (_body28386_) (let* ((___stx3991739918_ _body28386_) @@ -1103,23 +1220,25 @@ (let ((___kont3992039921_ (lambda (_L28430_ _L28432_) (if (not (gx#ellipsis? _L28432_)) - (_simple-vector?28274_ _L28430_) + (let () + (declare (not safe)) + (_simple-vector?28274_ _L28430_)) '#f))) (___kont3992239923_ (lambda () (gx#stx-null? _body28386_)))) (if (gx#stx-pair? ___stx3991739918_) - (let ((_e2839428420_ + (let ((_e2839628420_ (gx#syntax-e ___stx3991739918_))) - (let ((_tl2839628427_ + (let ((_tl2839428427_ (let () (declare (not safe)) - (##cdr _e2839428420_))) + (##cdr _e2839628420_))) (_hd2839528424_ (let () (declare (not safe)) - (##car _e2839428420_)))) + (##car _e2839628420_)))) (___kont3992039921_ - _tl2839628427_ + _tl2839428427_ _hd2839528424_))) (___kont3992239923_)))))) (_parse-class-body28275_ @@ -1135,21 +1254,27 @@ (let ((___kont3993639937_ (lambda (_L28359_ _L28361_ _L28362_) (cons* _L28362_ - (_parse128270_ _L28361_) - (_recur28298_ _L28359_)))) + (let () + (declare (not safe)) + (_parse128270_ _L28361_)) + (let () + (declare (not safe)) + (_recur28298_ _L28359_))))) (___kont3993839939_ (lambda () (if (gx#stx-null? _rest28301_) '() - (_parse-error28277_ _rest28301_))))) + (let () + (declare (not safe)) + (_parse-error28277_ _rest28301_)))))) (let ((___match3995239953_ - (lambda (_e2831028339_ + (lambda (_e2831228339_ _hd2831128343_ - _tl2831228346_ - _e2831328349_ + _tl2831028346_ + _e2831528349_ _hd2831428353_ - _tl2831528356_) - (let ((_L28359_ _tl2831528356_) + _tl2831328356_) + (let ((_L28359_ _tl2831328356_) (_L28361_ _hd2831428353_) (_L28362_ _hd2831128343_)) (if (gx#stx-keyword? _L28362_) @@ -1159,34 +1284,34 @@ _L28362_) (___kont3993839939_)))))) (if (gx#stx-pair? ___stx3993339934_) - (let ((_e2831028339_ + (let ((_e2831228339_ (gx#syntax-e ___stx3993339934_))) - (let ((_tl2831228346_ + (let ((_tl2831028346_ (let () (declare (not safe)) - (##cdr _e2831028339_))) + (##cdr _e2831228339_))) (_hd2831128343_ (let () (declare (not safe)) - (##car _e2831028339_)))) - (if (gx#stx-pair? _tl2831228346_) - (let ((_e2831328349_ - (gx#syntax-e _tl2831228346_))) - (let ((_tl2831528356_ + (##car _e2831228339_)))) + (if (gx#stx-pair? _tl2831028346_) + (let ((_e2831528349_ + (gx#syntax-e _tl2831028346_))) + (let ((_tl2831328356_ (let () (declare (not safe)) - (##cdr _e2831328349_))) + (##cdr _e2831528349_))) (_hd2831428353_ (let () (declare (not safe)) - (##car _e2831328349_)))) + (##car _e2831528349_)))) (___match3995239953_ - _e2831028339_ + _e2831228339_ _hd2831128343_ - _tl2831228346_ - _e2831328349_ + _tl2831028346_ + _e2831528349_ _hd2831428353_ - _tl2831528356_))) + _tl2831328356_))) (___kont3993839939_)))) (___kont3993839939_)))))))) (_parse-qq28276_ @@ -1197,6 +1322,7 @@ '#f '"Bad syntax" _g2828528287_)))) + (declare (not safe)) (_g2828428291_ _hd28282_)))) (_parse-error28277_ (lambda (_hd28279_) @@ -1207,26 +1333,36 @@ (cons _match-stx28268_ (cons _stx28266_ (cons _hd28279_ '()))) (cons _stx28266_ (cons _hd28279_ '()))))))) - (_parse128270_ _stx28266_)))) + (let () (declare (not safe)) (_parse128270_ _stx28266_))))) (define |gerbil/core$[1]#parse-match-pattern__0| (lambda (_stx29950_) (let ((_match-stx29953_ '#f)) + (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| _stx29950_ _match-stx29953_)))) (define |gerbil/core$[1]#parse-match-pattern| - (lambda _g42299_ - (let ((_g42298_ (let () (declare (not safe)) (##length _g42299_)))) - (cond ((let () (declare (not safe)) (##fx= _g42298_ 1)) - (apply |gerbil/core$[1]#parse-match-pattern__0| - _g42299_)) - ((let () (declare (not safe)) (##fx= _g42298_ 2)) - (apply |gerbil/core$[1]#parse-match-pattern__%| - _g42299_)) + (lambda _g42374_ + (let ((_g42373_ (let () (declare (not safe)) (##length _g42374_)))) + (cond ((let () (declare (not safe)) (##fx= _g42373_ 1)) + (apply (lambda (_stx29950_) + (let () + (declare (not safe)) + (|gerbil/core$[1]#parse-match-pattern__0| + _stx29950_))) + _g42374_)) + ((let () (declare (not safe)) (##fx= _g42373_ 2)) + (apply (lambda (_stx29956_ _match-stx29958_) + (let () + (declare (not safe)) + (|gerbil/core$[1]#parse-match-pattern__%| + _stx29956_ + _match-stx29958_))) + _g42374_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$[1]#parse-match-pattern| - _g42299_)))))) + _g42374_)))))) (define |gerbil/core$[1]#match-pattern?| (lambda (_stx28250_) (call-with-current-continuation @@ -1238,7 +1374,9 @@ (_E28254_ '#f) (_E!28257_ _e28260_)))) (lambda () - (|gerbil/core$[1]#parse-match-pattern__0| _stx28250_) + (let () + (declare (not safe)) + (|gerbil/core$[1]#parse-match-pattern__0| _stx28250_)) '#t)))))) (define |gerbil/core$[1]#match-pattern-vars| (lambda (_ptree26985_) @@ -1262,36 +1400,42 @@ ___stx3997139972_)))) (let ((___kont3997439975_ (lambda (_L28231_) - (_loop26988_ - _L28231_ - _vars27277_ - _K27278_))) + (let () + (declare (not safe)) + (_loop26988_ + _L28231_ + _vars27277_ + _K27278_)))) (___kont3997639977_ (lambda (_L28200_) - (_loop26988_ - _L28200_ - _vars27277_ - _K27278_))) + (let () + (declare (not safe)) + (_loop26988_ + _L28200_ + _vars27277_ + _K27278_)))) (___kont3997839979_ (lambda (_L28148_) - (_loop26988_ - _L28148_ - _vars27277_ - _K27278_))) + (let () + (declare (not safe)) + (_loop26988_ + _L28148_ + _vars27277_ + _K27278_)))) (___kont3998039981_ (lambda () (_K27278_ _vars27277_)))) (if (gx#stx-pair? ___stx3997139972_) - (let ((_e2805128221_ + (let ((_e2805328221_ (gx#syntax-e ___stx3997139972_))) - (let ((_tl2805328228_ + (let ((_tl2805128228_ (let () (declare (not safe)) - (##cdr _e2805128221_))) + (##cdr _e2805328221_))) (_hd2805228225_ (let () (declare (not safe)) - (##car _e2805128221_)))) - (if (gx#stx-null? _tl2805328228_) + (##car _e2805328221_)))) + (if (gx#stx-null? _tl2805128228_) (___kont3997439975_ _hd2805228225_) (if (gx#stx-datum? @@ -1302,63 +1446,63 @@ (if (equal? _e2805828186_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '=>:) - (if (gx#stx-pair? _tl2805328228_) - (let ((_e2805928190_ (gx#syntax-e _tl2805328228_))) - (let ((_tl2806128197_ + (if (gx#stx-pair? _tl2805128228_) + (let ((_e2806128190_ (gx#syntax-e _tl2805128228_))) + (let ((_tl2805928197_ (let () (declare (not safe)) - (##cdr _e2805928190_))) + (##cdr _e2806128190_))) (_hd2806028194_ (let () (declare (not safe)) - (##car _e2805928190_)))) - (if (gx#stx-null? _tl2806128197_) + (##car _e2806128190_)))) + (if (gx#stx-null? _tl2805928197_) (___kont3997639977_ _hd2806028194_) (___kont3998039981_)))) (___kont3998039981_)) (if (equal? _e2805828186_ '::) - (if (gx#stx-pair? _tl2805328228_) - (let ((_e2806728114_ (gx#syntax-e _tl2805328228_))) - (let ((_tl2806928121_ + (if (gx#stx-pair? _tl2805128228_) + (let ((_e2806928114_ (gx#syntax-e _tl2805128228_))) + (let ((_tl2806728121_ (let () (declare (not safe)) - (##cdr _e2806728114_))) + (##cdr _e2806928114_))) (_hd2806828118_ (let () (declare (not safe)) - (##car _e2806728114_)))) - (if (gx#stx-pair? _tl2806928121_) - (let ((_e2807028124_ - (gx#syntax-e _tl2806928121_))) - (let ((_tl2807228131_ + (##car _e2806928114_)))) + (if (gx#stx-pair? _tl2806728121_) + (let ((_e2807228124_ + (gx#syntax-e _tl2806728121_))) + (let ((_tl2807028131_ (let () (declare (not safe)) - (##cdr _e2807028124_))) + (##cdr _e2807228124_))) (_hd2807128128_ (let () (declare (not safe)) - (##car _e2807028124_)))) + (##car _e2807228124_)))) (if (gx#stx-datum? _hd2807128128_) (let ((_e2807328134_ (gx#stx-e _hd2807128128_))) (if (equal? _e2807328134_ '=>:) (if (gx#stx-pair? - _tl2807228131_) - (let ((_e2807428138_ + _tl2807028131_) + (let ((_e2807628138_ (gx#syntax-e - _tl2807228131_))) - (let ((_tl2807628145_ + _tl2807028131_))) + (let ((_tl2807428145_ (let () (declare (not safe)) - (##cdr _e2807428138_))) + (##cdr _e2807628138_))) (_hd2807528142_ (let () (declare (not safe)) - (##car _e2807428138_)))) + (##car _e2807628138_)))) (if (gx#stx-null? - _tl2807628145_) + _tl2807428145_) (___kont3997839979_ _hd2807528142_) (___kont3998039981_)))) @@ -1382,78 +1526,107 @@ ___stx3995539956_)))) (let ((___kont3995839959_ (lambda (_L27976_ _L27978_) - (_loop26988_ - _L27978_ - _vars27277_ - (lambda (_g2799027992_) - (_loop26988_ - (cons _L27920_ _L27976_) - _g2799027992_ - _K27278_))))) + (let ((__tmp42375 + (lambda (_g2799027992_) + (let ((__tmp42376 + (cons _L27920_ + _L27976_))) + (declare (not safe)) + (_loop26988_ + __tmp42376 + _g2799027992_ + _K27278_))))) + (declare (not safe)) + (_loop26988_ + _L27978_ + _vars27277_ + __tmp42375)))) (___kont3996039961_ (lambda () (_K27278_ _vars27277_)))) (if (gx#stx-pair? ___stx3995539956_) - (let ((_e2794027966_ + (let ((_e2794227966_ (gx#syntax-e ___stx3995539956_))) - (let ((_tl2794227973_ + (let ((_tl2794027973_ (let () (declare (not safe)) - (##cdr _e2794027966_))) + (##cdr _e2794227966_))) (_hd2794127970_ (let () (declare (not safe)) - (##car _e2794027966_)))) + (##car _e2794227966_)))) (___kont3995839959_ - _tl2794227973_ + _tl2794027973_ _hd2794127970_))) (___kont3996039961_)))))) (___kont4005840059_ (lambda (_L27887_) - (_loop26988_ _L27887_ _vars27277_ _K27278_))) + (let () + (declare (not safe)) + (_loop26988_ _L27887_ _vars27277_ _K27278_)))) (___kont4006040061_ (lambda (_L27833_ _L27835_) - (_loop26988_ - _L27835_ - _vars27277_ - (lambda (_g2785027852_) - (_loop26988_ - _L27833_ - _g2785027852_ - _K27278_))))) + (let ((__tmp42377 + (lambda (_g2785027852_) + (let () + (declare (not safe)) + (_loop26988_ + _L27833_ + _g2785027852_ + _K27278_))))) + (declare (not safe)) + (_loop26988_ + _L27835_ + _vars27277_ + __tmp42377)))) (___kont4006240063_ (lambda (_L27769_ _L27771_) - (_loop26988_ - _L27771_ - _vars27277_ - (lambda (_g2778627788_) - (_loop26988_ - _L27769_ - _g2778627788_ - _K27278_))))) + (let ((__tmp42378 + (lambda (_g2778627788_) + (let () + (declare (not safe)) + (_loop26988_ + _L27769_ + _g2778627788_ + _K27278_))))) + (declare (not safe)) + (_loop26988_ + _L27771_ + _vars27277_ + __tmp42378)))) (___kont4006440065_ (lambda (_L27714_) - (_loop26988_ _L27714_ _vars27277_ _K27278_))) + (let () + (declare (not safe)) + (_loop26988_ _L27714_ _vars27277_ _K27278_)))) (___kont4006640067_ (lambda (_L27664_ _L27666_) - (_loop-vector26990_ - _L27664_ - _vars27277_ - _K27278_))) + (let () + (declare (not safe)) + (_loop-vector26990_ + _L27664_ + _vars27277_ + _K27278_)))) (___kont4006840069_ (lambda (_L27621_) - (_loop-vector26990_ - _L27621_ - _vars27277_ - _K27278_))) + (let () + (declare (not safe)) + (_loop-vector26990_ + _L27621_ + _vars27277_ + _K27278_)))) (___kont4007040071_ (lambda (_L27564_) - (_loop-class-list26992_ - _L27564_ - _vars27277_ - _K27278_))) + (let () + (declare (not safe)) + (_loop-class-list26992_ + _L27564_ + _vars27277_ + _K27278_)))) (___kont4007240073_ (lambda (_L27505_ _L27507_) - (_loop26988_ _L27505_ _vars27277_ _K27278_))) + (let () + (declare (not safe)) + (_loop26988_ _L27505_ _vars27277_ _K27278_)))) (___kont4007440075_ (lambda (_L27443_) (if (find (lambda (_g2745827460_) @@ -1466,12 +1639,12 @@ (___kont4007640077_ (lambda () (_K27278_ _vars27277_)))) (let* ((___match4020840209_ - (lambda (_e2734827644_ + (lambda (_e2735027644_ _hd2734927648_ - _tl2735027651_ - _e2735127654_ + _tl2734827651_ + _e2735327654_ _hd2735227658_ - _tl2735327661_) + _tl2735127661_) (let ((_L27664_ _hd2735227658_) (_L27666_ _hd2734927648_)) (if (or (gx#stx-eq? 'values: _L27666_) @@ -1496,10 +1669,10 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4007640077_)))))) (___match4010240103_ - (lambda (_e2730327908_ + (lambda (_e2730527908_ _hd2730427912_ - _tl2730527915_) - (let ((_L27918_ _tl2730527915_) + _tl2730327915_) + (let ((_L27918_ _tl2730327915_) (_L27920_ _hd2730427912_)) (if (or (gx#stx-eq? 'and: _L27920_) (gx#stx-eq? 'or: _L27920_)) @@ -1509,18 +1682,18 @@ (gx#stx-e _hd2730427912_))) (if (equal? _e2731027873_ 'not:) (if (gx#stx-pair? - _tl2730527915_) - (let ((_e2731127877_ + _tl2730327915_) + (let ((_e2731327877_ (gx#syntax-e - _tl2730527915_))) - (let ((_tl2731327884_ + _tl2730327915_))) + (let ((_tl2731127884_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2731127877_))) + (##cdr _e2731327877_))) (_hd2731227881_ - (let () (declare (not safe)) (##car _e2731127877_)))) - (if (gx#stx-null? _tl2731327884_) + (let () (declare (not safe)) (##car _e2731327877_)))) + (if (gx#stx-null? _tl2731127884_) (___kont4005840059_ _hd2731227881_) (___kont4007640077_)))) (___kont4007640077_)) @@ -1528,164 +1701,164 @@ (if (equal? _e2731027873_ 'cons:) (if (gx#stx-pair? - _tl2730527915_) - (let ((_e2732027813_ + _tl2730327915_) + (let ((_e2732227813_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2730527915_))) - (let ((_tl2732227820_ - (let () (declare (not safe)) (##cdr _e2732027813_))) + (gx#syntax-e _tl2730327915_))) + (let ((_tl2732027820_ + (let () (declare (not safe)) (##cdr _e2732227813_))) (_hd2732127817_ (let () (declare (not safe)) - (##car _e2732027813_)))) - (if (gx#stx-pair? _tl2732227820_) - (let ((_e2732327823_ (gx#syntax-e _tl2732227820_))) - (let ((_tl2732527830_ + (##car _e2732227813_)))) + (if (gx#stx-pair? _tl2732027820_) + (let ((_e2732527823_ (gx#syntax-e _tl2732027820_))) + (let ((_tl2732327830_ (let () (declare (not safe)) - (##cdr _e2732327823_))) + (##cdr _e2732527823_))) (_hd2732427827_ (let () (declare (not safe)) - (##car _e2732327823_)))) - (if (gx#stx-null? _tl2732527830_) + (##car _e2732527823_)))) + (if (gx#stx-null? _tl2732327830_) (___kont4006040061_ _hd2732427827_ _hd2732127817_) (___kont4007640077_)))) - (if (gx#stx-null? _tl2732227820_) + (if (gx#stx-null? _tl2732027820_) (___match4020840209_ - _e2730327908_ + _e2730527908_ _hd2730427912_ - _tl2730527915_ - _e2732027813_ + _tl2730327915_ + _e2732227813_ _hd2732127817_ - _tl2732227820_) + _tl2732027820_) (___kont4007640077_))))) (___kont4007640077_)) (if (equal? _e2731027873_ 'splice:) - (if (gx#stx-pair? _tl2730527915_) - (let ((_e2733227749_ (gx#syntax-e _tl2730527915_))) - (let ((_tl2733427756_ + (if (gx#stx-pair? _tl2730327915_) + (let ((_e2733427749_ (gx#syntax-e _tl2730327915_))) + (let ((_tl2733227756_ (let () (declare (not safe)) - (##cdr _e2733227749_))) + (##cdr _e2733427749_))) (_hd2733327753_ (let () (declare (not safe)) - (##car _e2733227749_)))) - (if (gx#stx-pair? _tl2733427756_) - (let ((_e2733527759_ - (gx#syntax-e _tl2733427756_))) - (let ((_tl2733727766_ + (##car _e2733427749_)))) + (if (gx#stx-pair? _tl2733227756_) + (let ((_e2733727759_ + (gx#syntax-e _tl2733227756_))) + (let ((_tl2733527766_ (let () (declare (not safe)) - (##cdr _e2733527759_))) + (##cdr _e2733727759_))) (_hd2733627763_ (let () (declare (not safe)) - (##car _e2733527759_)))) - (if (gx#stx-null? _tl2733727766_) + (##car _e2733727759_)))) + (if (gx#stx-null? _tl2733527766_) (___kont4006240063_ _hd2733627763_ _hd2733327753_) (___kont4007640077_)))) - (if (gx#stx-null? _tl2733427756_) + (if (gx#stx-null? _tl2733227756_) (___match4020840209_ - _e2730327908_ + _e2730527908_ _hd2730427912_ - _tl2730527915_ - _e2733227749_ + _tl2730327915_ + _e2733427749_ _hd2733327753_ - _tl2733427756_) + _tl2733227756_) (___kont4007640077_))))) (___kont4007640077_)) (if (equal? _e2731027873_ 'box:) - (if (gx#stx-pair? _tl2730527915_) - (let ((_e2734327704_ (gx#syntax-e _tl2730527915_))) - (let ((_tl2734527711_ + (if (gx#stx-pair? _tl2730327915_) + (let ((_e2734527704_ (gx#syntax-e _tl2730327915_))) + (let ((_tl2734327711_ (let () (declare (not safe)) - (##cdr _e2734327704_))) + (##cdr _e2734527704_))) (_hd2734427708_ (let () (declare (not safe)) - (##car _e2734327704_)))) - (if (gx#stx-null? _tl2734527711_) + (##car _e2734527704_)))) + (if (gx#stx-null? _tl2734327711_) (___kont4006440065_ _hd2734427708_) (___kont4007640077_)))) (___kont4007640077_)) - (if (gx#stx-pair? _tl2730527915_) - (let ((_e2735127654_ (gx#syntax-e _tl2730527915_))) - (let ((_tl2735327661_ + (if (gx#stx-pair? _tl2730327915_) + (let ((_e2735327654_ (gx#syntax-e _tl2730327915_))) + (let ((_tl2735127661_ (let () (declare (not safe)) - (##cdr _e2735127654_))) + (##cdr _e2735327654_))) (_hd2735227658_ (let () (declare (not safe)) - (##car _e2735127654_)))) - (if (gx#stx-null? _tl2735327661_) + (##car _e2735327654_)))) + (if (gx#stx-null? _tl2735127661_) (___match4020840209_ - _e2730327908_ + _e2730527908_ _hd2730427912_ - _tl2730527915_ - _e2735127654_ + _tl2730327915_ + _e2735327654_ _hd2735227658_ - _tl2735327661_) + _tl2735127661_) (if (equal? _e2731027873_ 'struct:) - (if (gx#stx-pair? _tl2735327661_) - (let ((_e2736227611_ - (gx#syntax-e _tl2735327661_))) - (let ((_tl2736427618_ + (if (gx#stx-pair? _tl2735127661_) + (let ((_e2736427611_ + (gx#syntax-e _tl2735127661_))) + (let ((_tl2736227618_ (let () (declare (not safe)) - (##cdr _e2736227611_))) + (##cdr _e2736427611_))) (_hd2736327615_ (let () (declare (not safe)) - (##car _e2736227611_)))) - (if (gx#stx-null? _tl2736427618_) + (##car _e2736427611_)))) + (if (gx#stx-null? _tl2736227618_) (___kont4006840069_ _hd2736327615_) (___kont4007640077_)))) (___kont4007640077_)) (if (equal? _e2731027873_ 'class:) - (if (gx#stx-pair? _tl2735327661_) - (let ((_e2737327554_ + (if (gx#stx-pair? _tl2735127661_) + (let ((_e2737527554_ (gx#syntax-e - _tl2735327661_))) - (let ((_tl2737527561_ + _tl2735127661_))) + (let ((_tl2737327561_ (let () (declare (not safe)) - (##cdr _e2737327554_))) + (##cdr _e2737527554_))) (_hd2737427558_ (let () (declare (not safe)) - (##car _e2737327554_)))) + (##car _e2737527554_)))) (if (gx#stx-null? - _tl2737527561_) + _tl2737327561_) (___kont4007040071_ _hd2737427558_) (___kont4007640077_)))) (___kont4007640077_)) (if (equal? _e2731027873_ 'apply:) - (if (gx#stx-pair? _tl2735327661_) - (let ((_e2738527495_ + (if (gx#stx-pair? _tl2735127661_) + (let ((_e2738727495_ (gx#syntax-e - _tl2735327661_))) - (let ((_tl2738727502_ + _tl2735127661_))) + (let ((_tl2738527502_ (let () (declare (not safe)) - (##cdr _e2738527495_))) + (##cdr _e2738727495_))) (_hd2738627499_ (let () (declare (not safe)) - (##car _e2738527495_)))) + (##car _e2738727495_)))) (if (gx#stx-null? - _tl2738727502_) + _tl2738527502_) (___kont4007240073_ _hd2738627499_ _hd2735227658_) @@ -1694,70 +1867,70 @@ (___kont4007640077_))))))) (___kont4007640077_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl2730527915_) - (let ((_e2735127654_ + (if (gx#stx-pair? _tl2730327915_) + (let ((_e2735327654_ (gx#syntax-e - _tl2730527915_))) - (let ((_tl2735327661_ + _tl2730327915_))) + (let ((_tl2735127661_ (let () (declare (not safe)) - (##cdr _e2735127654_))) + (##cdr _e2735327654_))) (_hd2735227658_ (let () (declare (not safe)) - (##car _e2735127654_)))) + (##car _e2735327654_)))) (if (gx#stx-null? - _tl2735327661_) + _tl2735127661_) (___match4020840209_ - _e2730327908_ + _e2730527908_ _hd2730427912_ - _tl2730527915_ - _e2735127654_ + _tl2730327915_ + _e2735327654_ _hd2735227658_ - _tl2735327661_) + _tl2735127661_) (___kont4007640077_)))) (___kont4007640077_)))))))) (if (gx#stx-pair? ___stx4005140052_) - (let ((_e2729428007_ + (let ((_e2729628007_ (gx#syntax-e ___stx4005140052_))) - (let ((_tl2729628014_ + (let ((_tl2729428014_ (let () (declare (not safe)) - (##cdr _e2729428007_))) + (##cdr _e2729628007_))) (_hd2729528011_ (let () (declare (not safe)) - (##car _e2729428007_)))) + (##car _e2729628007_)))) (if (gx#stx-datum? _hd2729528011_) (let ((_e2729728017_ (gx#stx-e _hd2729528011_))) (if (equal? _e2729728017_ '?:) - (if (gx#stx-pair? _tl2729628014_) - (let ((_e2729828021_ + (if (gx#stx-pair? _tl2729428014_) + (let ((_e2730028021_ (gx#syntax-e - _tl2729628014_))) - (let ((_tl2730028028_ + _tl2729428014_))) + (let ((_tl2729828028_ (let () (declare (not safe)) - (##cdr _e2729828021_))) + (##cdr _e2730028021_))) (_hd2729928025_ (let () (declare (not safe)) - (##car _e2729828021_)))) + (##car _e2730028021_)))) (___kont4005440055_ - _tl2730028028_))) + _tl2729828028_))) (___match4010240103_ - _e2729428007_ + _e2729628007_ _hd2729528011_ - _tl2729628014_)) + _tl2729428014_)) (___match4010240103_ - _e2729428007_ + _e2729628007_ _hd2729528011_ - _tl2729628014_))) + _tl2729428014_))) (___match4010240103_ - _e2729428007_ + _e2729628007_ _hd2729528011_ - _tl2729628014_)))) + _tl2729428014_)))) (___kont4007640077_))))))) (_loop-vector26990_ (lambda (_body27151_ _vars27153_ _K27154_) @@ -1770,70 +1943,90 @@ ___stx4030940310_)))) (let ((___kont4031240313_ (lambda (_L27257_) - (_loop-list26991_ - _L27257_ - _vars27153_ - _K27154_))) + (let () + (declare (not safe)) + (_loop-list26991_ + _L27257_ + _vars27153_ + _K27154_)))) (___kont4031440315_ (lambda (_L27211_) - (_loop26988_ _L27211_ _vars27153_ _K27154_)))) + (let () + (declare (not safe)) + (_loop26988_ + _L27211_ + _vars27153_ + _K27154_))))) (if (gx#stx-pair? ___stx4030940310_) - (let ((_e2716027233_ + (let ((_e2716227233_ (gx#syntax-e ___stx4030940310_))) - (let ((_tl2716227240_ + (let ((_tl2716027240_ (let () (declare (not safe)) - (##cdr _e2716027233_))) + (##cdr _e2716227233_))) (_hd2716127237_ (let () (declare (not safe)) - (##car _e2716027233_)))) + (##car _e2716227233_)))) (if (gx#stx-datum? _hd2716127237_) (let ((_e2716327243_ (gx#stx-e _hd2716127237_))) (if (equal? _e2716327243_ 'simple:) - (if (gx#stx-pair? _tl2716227240_) - (let ((_e2716427247_ + (if (gx#stx-pair? _tl2716027240_) + (let ((_e2716627247_ (gx#syntax-e - _tl2716227240_))) - (let ((_tl2716627254_ + _tl2716027240_))) + (let ((_tl2716427254_ (let () (declare (not safe)) - (##cdr _e2716427247_))) + (##cdr _e2716627247_))) (_hd2716527251_ (let () (declare (not safe)) - (##car _e2716427247_)))) + (##car _e2716627247_)))) (if (gx#stx-null? - _tl2716627254_) + _tl2716427254_) (___kont4031240313_ _hd2716527251_) - (_g2715727180_)))) - (_g2715727180_)) + (let () + (declare (not safe)) + (_g2715727180_))))) + (let () + (declare (not safe)) + (_g2715727180_))) (if (equal? _e2716327243_ 'list:) - (if (gx#stx-pair? _tl2716227240_) - (let ((_e2717227201_ + (if (gx#stx-pair? _tl2716027240_) + (let ((_e2717427201_ (gx#syntax-e - _tl2716227240_))) - (let ((_tl2717427208_ + _tl2716027240_))) + (let ((_tl2717227208_ (let () (declare (not safe)) - (##cdr _e2717227201_))) + (##cdr _e2717427201_))) (_hd2717327205_ (let () (declare (not safe)) - (##car _e2717227201_)))) + (##car _e2717427201_)))) (if (gx#stx-null? - _tl2717427208_) + _tl2717227208_) (___kont4031440315_ _hd2717327205_) - (_g2715727180_)))) - (_g2715727180_)) - (_g2715727180_)))) - (_g2715727180_)))) - (_g2715727180_)))))) + (let () + (declare + (not safe)) + (_g2715727180_))))) + (let () + (declare (not safe)) + (_g2715727180_))) + (let () + (declare (not safe)) + (_g2715727180_))))) + (let () + (declare (not safe)) + (_g2715727180_))))) + (let () (declare (not safe)) (_g2715727180_))))))) (_loop-list26991_ (lambda (_rest27081_ _vars27083_ _K27084_) (let* ((___stx4035940360_ _rest27081_) @@ -1845,29 +2038,34 @@ ___stx4035940360_)))) (let ((___kont4036240363_ (lambda (_L27127_ _L27129_) - (_loop26988_ - _L27129_ - _vars27083_ - (lambda (_g2714127143_) - (_loop-list26991_ - _L27127_ - _g2714127143_ - _K27084_))))) + (let ((__tmp42379 + (lambda (_g2714127143_) + (let () + (declare (not safe)) + (_loop-list26991_ + _L27127_ + _g2714127143_ + _K27084_))))) + (declare (not safe)) + (_loop26988_ + _L27129_ + _vars27083_ + __tmp42379)))) (___kont4036440365_ (lambda () (_K27084_ _vars27083_)))) (if (gx#stx-pair? ___stx4035940360_) - (let ((_e2709127117_ + (let ((_e2709327117_ (gx#syntax-e ___stx4035940360_))) - (let ((_tl2709327124_ + (let ((_tl2709127124_ (let () (declare (not safe)) - (##cdr _e2709127117_))) + (##cdr _e2709327117_))) (_hd2709227121_ (let () (declare (not safe)) - (##car _e2709127117_)))) + (##car _e2709327117_)))) (___kont4036240363_ - _tl2709327124_ + _tl2709127124_ _hd2709227121_))) (___kont4036440365_)))))) (_loop-class-list26992_ @@ -1881,44 +2079,51 @@ ___stx4037540376_)))) (let ((___kont4037840379_ (lambda (_L27053_ _L27055_) - (_loop26988_ - _L27055_ - _vars26996_ - (lambda (_g2707127073_) - (_loop-class-list26992_ - _L27053_ - _g2707127073_ - _K26997_))))) + (let ((__tmp42380 + (lambda (_g2707127073_) + (let () + (declare (not safe)) + (_loop-class-list26992_ + _L27053_ + _g2707127073_ + _K26997_))))) + (declare (not safe)) + (_loop26988_ + _L27055_ + _vars26996_ + __tmp42380)))) (___kont4038040381_ (lambda () (_K26997_ _vars26996_)))) (if (gx#stx-pair? ___stx4037540376_) - (let ((_e2700427033_ + (let ((_e2700627033_ (gx#syntax-e ___stx4037540376_))) - (let ((_tl2700627040_ + (let ((_tl2700427040_ (let () (declare (not safe)) - (##cdr _e2700427033_))) + (##cdr _e2700627033_))) (_hd2700527037_ (let () (declare (not safe)) - (##car _e2700427033_)))) - (if (gx#stx-pair? _tl2700627040_) - (let ((_e2700727043_ - (gx#syntax-e _tl2700627040_))) - (let ((_tl2700927050_ + (##car _e2700627033_)))) + (if (gx#stx-pair? _tl2700427040_) + (let ((_e2700927043_ + (gx#syntax-e _tl2700427040_))) + (let ((_tl2700727050_ (let () (declare (not safe)) - (##cdr _e2700727043_))) + (##cdr _e2700927043_))) (_hd2700827047_ (let () (declare (not safe)) - (##car _e2700727043_)))) + (##car _e2700927043_)))) (___kont4037840379_ - _tl2700927050_ + _tl2700727050_ _hd2700827047_))) (___kont4038040381_)))) (___kont4038040381_))))))) - (_loop26988_ _ptree26985_ '() values)))) + (let () + (declare (not safe)) + (_loop26988_ _ptree26985_ '() values))))) (define |gerbil/core$[1]#generate-match1| (lambda (_stx23568_ _tgt23570_ _ptree23571_ _K23572_ _E23573_) (letrec ((_generate123575_ @@ -1964,11 +2169,13 @@ (cons 'if (cons (cons (gx#datum->syntax '#f '?) (cons _L26698_ (cons _L25219_ '()))) - (cons (_generate123575_ - _tgt25198_ - _L26951_ - _K25201_ - _E25202_) + (cons (let () + (declare (not safe)) + (_generate123575_ + _tgt25198_ + _L26951_ + _K25201_ + _E25202_)) (cons _E25202_ '())))))) (___kont4053640537_ (lambda (_L26889_) @@ -1992,17 +2199,21 @@ '()) (cons (cons 'if (cons _L26918_ - (cons (_generate123575_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L26918_ - _L26889_ - _K25201_ - _E25202_) + (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (_generate123575_ + _L26918_ + _L26889_ + _K25201_ + _E25202_)) (cons _E25202_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _g2690426915_)))) - (_g2690226930_ (gx#genident 'e))))) + _g2690426915_))) + (__tmp42381 (gx#genident 'e))) + (declare (not safe)) + (_g2690226930_ __tmp42381)))) (___kont4053840539_ (lambda (_L26805_ _L26807_) (let* ((_g2682726835_ @@ -2025,114 +2236,134 @@ (cons (cons _L26807_ (cons _L25219_ '())) '())) '()) - (cons (_generate123575_ - _L26842_ - _L26805_ - _K25201_ - _E25202_) + (cons (let () + (declare (not safe)) + (_generate123575_ + _L26842_ + _L26805_ + _K25201_ + _E25202_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons _E25202_ '())))))) - _g2682826839_)))) - (_g2682626854_ (gx#genident 'e)))))) + _g2682826839_))) + (__tmp42382 (gx#genident 'e))) + (declare (not safe)) + (_g2682626854_ __tmp42382))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_g2671226962_ (lambda () (if (gx#stx-pair? ___stx4052940530_) - (let ((_e2671826941_ + (let ((_e2672026941_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-e ___stx4052940530_))) - (let ((_tl2672026948_ + (let ((_tl2671826948_ (let () (declare (not safe)) - (##cdr _e2671826941_))) + (##cdr _e2672026941_))) (_hd2671926945_ (let () (declare (not safe)) - (##car _e2671826941_)))) - (if (gx#stx-null? _tl2672026948_) + (##car _e2672026941_)))) + (if (gx#stx-null? _tl2671826948_) (___kont4053440535_ _hd2671926945_) (if (gx#stx-datum? _hd2671926945_) (let ((_e2672526875_ (gx#stx-e _hd2671926945_))) (if (equal? _e2672526875_ '=>:) - (if (gx#stx-pair? _tl2672026948_) - (let ((_e2672626879_ + (if (gx#stx-pair? _tl2671826948_) + (let ((_e2672826879_ (gx#syntax-e - _tl2672026948_))) - (let ((_tl2672826886_ + _tl2671826948_))) + (let ((_tl2672626886_ (let () (declare (not safe)) - (##cdr _e2672626879_))) + (##cdr _e2672826879_))) (_hd2672726883_ (let () (declare (not safe)) - (##car _e2672626879_)))) + (##car _e2672826879_)))) (if (gx#stx-null? - _tl2672826886_) + _tl2672626886_) (___kont4053640537_ _hd2672726883_) - (_g2671526750_)))) - (_g2671526750_)) + (let () + (declare (not safe)) + (_g2671526750_))))) + (let () + (declare (not safe)) + (_g2671526750_))) (if (equal? _e2672526875_ '::) - (if (gx#stx-pair? _tl2672026948_) - (let ((_e2673526771_ + (if (gx#stx-pair? _tl2671826948_) + (let ((_e2673726771_ (gx#syntax-e - _tl2672026948_))) - (let ((_tl2673726778_ + _tl2671826948_))) + (let ((_tl2673526778_ (let () (declare (not safe)) - (##cdr _e2673526771_))) + (##cdr _e2673726771_))) (_hd2673626775_ (let () (declare (not safe)) - (##car _e2673526771_)))) + (##car _e2673726771_)))) (if (gx#stx-pair? - _tl2673726778_) - (let ((_e2673826781_ + _tl2673526778_) + (let ((_e2674026781_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2673726778_))) - (let ((_tl2674026788_ - (let () (declare (not safe)) (##cdr _e2673826781_))) + _tl2673526778_))) + (let ((_tl2673826788_ + (let () (declare (not safe)) (##cdr _e2674026781_))) (_hd2673926785_ - (let () (declare (not safe)) (##car _e2673826781_)))) + (let () (declare (not safe)) (##car _e2674026781_)))) (if (gx#stx-datum? _hd2673926785_) (let ((_e2674126791_ (gx#stx-e _hd2673926785_))) (if (equal? _e2674126791_ '=>:) - (if (gx#stx-pair? _tl2674026788_) - (let ((_e2674226795_ - (gx#syntax-e _tl2674026788_))) - (let ((_tl2674426802_ + (if (gx#stx-pair? _tl2673826788_) + (let ((_e2674426795_ + (gx#syntax-e _tl2673826788_))) + (let ((_tl2674226802_ (let () (declare (not safe)) - (##cdr _e2674226795_))) + (##cdr _e2674426795_))) (_hd2674326799_ (let () (declare (not safe)) - (##car _e2674226795_)))) - (if (gx#stx-null? _tl2674426802_) + (##car _e2674426795_)))) + (if (gx#stx-null? _tl2674226802_) (___kont4053840539_ _hd2674326799_ _hd2673626775_) - (_g2671526750_)))) - (_g2671526750_)) - (_g2671526750_))) - (_g2671526750_)))) - (_g2671526750_)))) + (let () + (declare (not safe)) + (_g2671526750_))))) + (let () + (declare (not safe)) + (_g2671526750_))) + (let () (declare (not safe)) (_g2671526750_)))) + (let () (declare (not safe)) (_g2671526750_))))) + (let () (declare (not safe)) (_g2671526750_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2671526750_)) - (_g2671526750_)))) - (_g2671526750_))))) - (_g2671526750_))))) + (let () + (declare (not safe)) + (_g2671526750_))) + (let () + (declare (not safe)) + (_g2671526750_))))) + (let () + (declare (not safe)) + (_g2671526750_)))))) + (let () (declare (not safe)) (_g2671526750_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? ___stx4052940530_) (___kont4053240533_) - (_g2671226962_))))))) + (let () + (declare (not safe)) + (_g2671226962_)))))))) (___kont4061640617_ (lambda (_L26593_) (let* ((___stx4051340514_ @@ -2146,32 +2377,37 @@ (let ((___kont4051640517_ (lambda (_L26646_ _L26648_) - (_generate123575_ - _tgt25198_ - _L26648_ - (_generate123575_ - _tgt25198_ - (cons 'and: -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L26646_) - _K25201_ - _E25202_) - _E25202_))) + (let ((__tmp42383 + (let ((__tmp42384 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons 'and: _L26646_))) + (declare (not safe)) + (_generate123575_ + _tgt25198_ + __tmp42384 + _K25201_ + _E25202_)))) + (declare (not safe)) + (_generate123575_ + _tgt25198_ + _L26648_ + __tmp42383 + _E25202_)))) (___kont4051840519_ (lambda () _K25201_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx4051340514_) - (let ((_e2661026636_ + (let ((_e2661226636_ (gx#syntax-e ___stx4051340514_))) - (let ((_tl2661226643_ + (let ((_tl2661026643_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2661026636_))) + (##cdr _e2661226636_))) (_hd2661126640_ - (let () (declare (not safe)) (##car _e2661026636_)))) - (___kont4051640517_ _tl2661226643_ _hd2661126640_))) + (let () (declare (not safe)) (##car _e2661226636_)))) + (___kont4051640517_ _tl2661026643_ _hd2661126640_))) (___kont4051840519_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4061840619_ @@ -2187,39 +2423,48 @@ (let ((___kont4050040501_ (lambda (_L26553_ _L26555_) - (_generate123575_ - _tgt25198_ - _L26555_ - _K25201_ - (_generate123575_ - _tgt25198_ - (cons 'or: _L26553_) - _K25201_ - _E25202_)))) - (___kont4050240503_ - (lambda () _E25202_))) + (let ((__tmp42385 + (let ((__tmp42386 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons 'or: _L26553_))) + (declare (not safe)) + (_generate123575_ + _tgt25198_ + __tmp42386 + _K25201_ + _E25202_)))) + (declare (not safe)) + (_generate123575_ + _tgt25198_ + _L26555_ + _K25201_ + __tmp42385)))) + (___kont4050240503_ (lambda () _E25202_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx4049740498_) - (let ((_e2651726543_ + (let ((_e2651926543_ (gx#syntax-e ___stx4049740498_))) - (let ((_tl2651926550_ + (let ((_tl2651726550_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2651726543_))) + (##cdr _e2651926543_))) (_hd2651826547_ - (let () (declare (not safe)) (##car _e2651726543_)))) - (___kont4050040501_ _tl2651926550_ _hd2651826547_))) + (let () (declare (not safe)) (##car _e2651926543_)))) + (___kont4050040501_ _tl2651726550_ _hd2651826547_))) (___kont4050240503_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4062040621_ (lambda (_L26465_) - (_generate123575_ - _tgt25198_ - _L26465_ - _E25202_ - _K25201_))) + (let () + (declare (not safe)) + (_generate123575_ + _tgt25198_ + _L26465_ + _E25202_ + _K25201_)))) (___kont4062240623_ (lambda (_L26347_ _L26349_) (let* ((_g2636626381_ @@ -2232,28 +2477,28 @@ (lambda (_g2636726385_) (if (gx#stx-pair? _g2636726385_) - (let ((_e2637026388_ + (let ((_e2637226388_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-e _g2636726385_))) (let ((_hd2637126392_ (let () (declare (not safe)) - (##car _e2637026388_))) - (_tl2637226395_ + (##car _e2637226388_))) + (_tl2637026395_ (let () (declare (not safe)) - (##cdr _e2637026388_)))) - (if (gx#stx-pair? _tl2637226395_) - (let ((_e2637326398_ (gx#syntax-e _tl2637226395_))) + (##cdr _e2637226388_)))) + (if (gx#stx-pair? _tl2637026395_) + (let ((_e2637526398_ (gx#syntax-e _tl2637026395_))) (let ((_hd2637426402_ (let () (declare (not safe)) - (##car _e2637326398_))) - (_tl2637526405_ + (##car _e2637526398_))) + (_tl2637326405_ (let () (declare (not safe)) - (##cdr _e2637326398_)))) - (if (gx#stx-null? _tl2637526405_) + (##cdr _e2637526398_)))) + (if (gx#stx-null? _tl2637326405_) ((lambda (_L26408_ _L26410_) (let () (cons 'if @@ -2279,11 +2524,13 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_generate123575_ - _L26410_ - _L26349_ - _K25201_ - _E25202_) + (cons (let () + (declare (not safe)) + (_generate123575_ + _L26410_ + _L26349_ + _K25201_ + _E25202_)) '()))) (if (equal? _hd-pat26426_ '(any:)) (cons 'let @@ -2296,11 +2543,13 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_generate123575_ - _L26408_ - _L26347_ - _K25201_ - _E25202_) + (cons (let () + (declare (not safe)) + (_generate123575_ + _L26408_ + _L26347_ + _K25201_ + _E25202_)) '()))) (cons 'let (cons (cons (cons _L26410_ @@ -2320,27 +2569,42 @@ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (_generate123575_ - _L26410_ - _L26349_ - (_generate123575_ - _L26408_ - _L26347_ - _K25201_ - _E25202_) - _E25202_) + (cons (let ((__tmp42387 + (let () + (declare + (not safe)) + (_generate123575_ + _L26408_ + _L26347_ + _K25201_ + _E25202_)))) + (declare (not safe)) + (_generate123575_ + _L26410_ + _L26349_ + __tmp42387 + _E25202_)) '()))))))) (cons _E25202_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2637426402_ _hd2637126392_) - (_g2636626381_ _g2636726385_)))) - (_g2636626381_ _g2636726385_)))) - (_g2636626381_ _g2636726385_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2636526430_ - (list (gx#genident 'hd) - (gx#genident 'tl)))))) + (let () + (declare (not safe)) + (_g2636626381_ _g2636726385_))))) + (let () + (declare (not safe)) + (_g2636626381_ _g2636726385_))))) + (let () + (declare (not safe)) + (_g2636626381_ _g2636726385_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp42388 + (list (gx#genident 'hd) + (gx#genident + 'tl)))) + (declare (not safe)) + (_g2636526430_ __tmp42388)))) (___kont4062440625_ (lambda () (cons 'if @@ -2353,12 +2617,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4062640627_ (lambda (_L26263_ _L26265_) - (_generate-splice23577_ - _tgt25198_ - _L26265_ - _L26263_ - _K25201_ - _E25202_))) + (let () + (declare (not safe)) + (_generate-splice23577_ + _tgt25198_ + _L26265_ + _L26263_ + _K25201_ + _E25202_)))) (___kont4062840629_ (lambda (_L26177_) (let* ((_g2619126199_ @@ -2385,17 +2651,21 @@ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (_generate123575_ - _L26206_ - _L26177_ - _K25201_ - _E25202_) + (cons (let () + (declare (not safe)) + (_generate123575_ + _L26206_ + _L26177_ + _K25201_ + _E25202_)) '()))) (cons _E25202_ '())))))) - _g2619226203_)))) + _g2619226203_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2619026218_ - (gx#genident 'e))))) + (__tmp42389 + (gx#genident 'e))) + (declare (not safe)) + (_g2619026218_ __tmp42389)))) (___kont4063040631_ (lambda (_L25982_) (let* ((___stx4044740448_ @@ -2429,73 +2699,87 @@ '())) (cons _L26126_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (_generate-simple-vector23578_ - _tgt25198_ - _L26097_ - '0 - _K25201_ - _E25202_) + (cons (let () + (declare (not safe)) + (_generate-simple-vector23578_ + _tgt25198_ + _L26097_ + '0 + _K25201_ + _E25202_)) (cons _E25202_ '())))))) - _g2611226123_)))) - (_g2611026138_ (gx#stx-length _L26097_))))) + _g2611226123_))) + (__tmp42390 (gx#stx-length _L26097_))) + (declare (not safe)) + (_g2611026138_ __tmp42390)))) (___kont4045240453_ (lambda (_L26051_) - (_generate-list-vector23579_ - _tgt25198_ - _L26051_ - 'values->list - _K25201_ - _E25202_)))) + (let () + (declare (not safe)) + (_generate-list-vector23579_ + _tgt25198_ + _L26051_ + 'values->list + _K25201_ + _E25202_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx4044740448_) - (let ((_e2600026073_ + (let ((_e2600226073_ (gx#syntax-e ___stx4044740448_))) - (let ((_tl2600226080_ + (let ((_tl2600026080_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2600026073_))) + (##cdr _e2600226073_))) (_hd2600126077_ - (let () (declare (not safe)) (##car _e2600026073_)))) + (let () (declare (not safe)) (##car _e2600226073_)))) (if (gx#stx-datum? _hd2600126077_) (let ((_e2600326083_ (gx#stx-e _hd2600126077_))) (if (equal? _e2600326083_ 'simple:) - (if (gx#stx-pair? _tl2600226080_) - (let ((_e2600426087_ - (gx#syntax-e _tl2600226080_))) - (let ((_tl2600626094_ + (if (gx#stx-pair? _tl2600026080_) + (let ((_e2600626087_ + (gx#syntax-e _tl2600026080_))) + (let ((_tl2600426094_ (let () (declare (not safe)) - (##cdr _e2600426087_))) + (##cdr _e2600626087_))) (_hd2600526091_ (let () (declare (not safe)) - (##car _e2600426087_)))) - (if (gx#stx-null? _tl2600626094_) + (##car _e2600626087_)))) + (if (gx#stx-null? _tl2600426094_) (___kont4045040451_ _hd2600526091_) - (_g2599726020_)))) - (_g2599726020_)) + (let () + (declare (not safe)) + (_g2599726020_))))) + (let () (declare (not safe)) (_g2599726020_))) (if (equal? _e2600326083_ 'list:) - (if (gx#stx-pair? _tl2600226080_) - (let ((_e2601226041_ - (gx#syntax-e _tl2600226080_))) - (let ((_tl2601426048_ + (if (gx#stx-pair? _tl2600026080_) + (let ((_e2601426041_ + (gx#syntax-e _tl2600026080_))) + (let ((_tl2601226048_ (let () (declare (not safe)) - (##cdr _e2601226041_))) + (##cdr _e2601426041_))) (_hd2601326045_ (let () (declare (not safe)) - (##car _e2601226041_)))) - (if (gx#stx-null? _tl2601426048_) + (##car _e2601426041_)))) + (if (gx#stx-null? _tl2601226048_) (___kont4045240453_ _hd2601326045_) - (_g2599726020_)))) - (_g2599726020_)) - (_g2599726020_)))) - (_g2599726020_)))) - (_g2599726020_)))))) + (let () + (declare (not safe)) + (_g2599726020_))))) + (let () + (declare (not safe)) + (_g2599726020_))) + (let () + (declare (not safe)) + (_g2599726020_))))) + (let () (declare (not safe)) (_g2599726020_))))) + (let () (declare (not safe)) (_g2599726020_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4063240633_ (lambda (_L25787_) @@ -2533,96 +2817,116 @@ (cons (cons (gx#datum->syntax '#f '##vector-length) (cons _L25219_ '())) (cons _L25931_ '()))) - (cons (_generate-simple-vector23578_ - _tgt25198_ - _L25902_ - '0 - _K25201_ - _E25202_) + (cons (let () + (declare (not safe)) + (_generate-simple-vector23578_ + _tgt25198_ + _L25902_ + '0 + _K25201_ + _E25202_)) (cons _E25202_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons _E25202_ '())))))) - _g2591725928_)))) - (_g2591525943_ (gx#stx-length _L25902_))))) + _g2591725928_))) + (__tmp42391 (gx#stx-length _L25902_))) + (declare (not safe)) + (_g2591525943_ __tmp42391)))) (___kont4040240403_ (lambda (_L25856_) (cons 'if (cons (cons (gx#datum->syntax '#f '##vector?) (cons _L25219_ '())) - (cons (_generate-list-vector23579_ - _tgt25198_ - _L25856_ - 'vector->list - _K25201_ - _E25202_) + (cons (let () + (declare (not safe)) + (_generate-list-vector23579_ + _tgt25198_ + _L25856_ + 'vector->list + _K25201_ + _E25202_)) (cons _E25202_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx4039740398_) - (let ((_e2580525878_ + (let ((_e2580725878_ (gx#syntax-e ___stx4039740398_))) - (let ((_tl2580725885_ + (let ((_tl2580525885_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2580525878_))) + (##cdr _e2580725878_))) (_hd2580625882_ - (let () (declare (not safe)) (##car _e2580525878_)))) + (let () (declare (not safe)) (##car _e2580725878_)))) (if (gx#stx-datum? _hd2580625882_) (let ((_e2580825888_ (gx#stx-e _hd2580625882_))) (if (equal? _e2580825888_ 'simple:) - (if (gx#stx-pair? _tl2580725885_) - (let ((_e2580925892_ - (gx#syntax-e _tl2580725885_))) - (let ((_tl2581125899_ + (if (gx#stx-pair? _tl2580525885_) + (let ((_e2581125892_ + (gx#syntax-e _tl2580525885_))) + (let ((_tl2580925899_ (let () (declare (not safe)) - (##cdr _e2580925892_))) + (##cdr _e2581125892_))) (_hd2581025896_ (let () (declare (not safe)) - (##car _e2580925892_)))) - (if (gx#stx-null? _tl2581125899_) + (##car _e2581125892_)))) + (if (gx#stx-null? _tl2580925899_) (___kont4040040401_ _hd2581025896_) - (_g2580225825_)))) - (_g2580225825_)) + (let () + (declare (not safe)) + (_g2580225825_))))) + (let () (declare (not safe)) (_g2580225825_))) (if (equal? _e2580825888_ 'list:) - (if (gx#stx-pair? _tl2580725885_) - (let ((_e2581725846_ - (gx#syntax-e _tl2580725885_))) - (let ((_tl2581925853_ + (if (gx#stx-pair? _tl2580525885_) + (let ((_e2581925846_ + (gx#syntax-e _tl2580525885_))) + (let ((_tl2581725853_ (let () (declare (not safe)) - (##cdr _e2581725846_))) + (##cdr _e2581925846_))) (_hd2581825850_ (let () (declare (not safe)) - (##car _e2581725846_)))) - (if (gx#stx-null? _tl2581925853_) + (##car _e2581925846_)))) + (if (gx#stx-null? _tl2581725853_) (___kont4040240403_ _hd2581825850_) - (_g2580225825_)))) - (_g2580225825_)) - (_g2580225825_)))) - (_g2580225825_)))) - (_g2580225825_)))))) + (let () + (declare (not safe)) + (_g2580225825_))))) + (let () + (declare (not safe)) + (_g2580225825_))) + (let () + (declare (not safe)) + (_g2580225825_))))) + (let () (declare (not safe)) (_g2580225825_))))) + (let () (declare (not safe)) (_g2580225825_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4063440635_ (lambda (_L25738_ _L25740_) - (_generate-struct23580_ - (gx#stx-e _L25740_) - _tgt25198_ - _L25738_ - _K25201_ - _E25202_))) + (let ((__tmp42392 + (gx#stx-e _L25740_))) + (declare (not safe)) + (_generate-struct23580_ + __tmp42392 + _tgt25198_ + _L25738_ + _K25201_ + _E25202_)))) (___kont4063640637_ (lambda (_L25679_ _L25681_) - (_generate-class23581_ - (gx#stx-e _L25681_) - _tgt25198_ - _L25679_ - _K25201_ - _E25202_))) + (let ((__tmp42393 + (gx#stx-e _L25681_))) + (declare (not safe)) + (_generate-class23581_ + __tmp42393 + _tgt25198_ + _L25679_ + _K25201_ + _E25202_)))) (___kont4063840639_ (lambda (_L25582_) (let* ((_g2559625604_ @@ -2645,19 +2949,22 @@ (cons _L25582_ '())) '()))) (cons _K25201_ (cons _E25202_ '())))))) - _g2559725608_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2559525623_ - (let ((_e25627_ - (gx#stx-e _L25582_))) - (if (or (symbol? _e25627_) - (keyword? _e25627_) - (immediate? - _e25627_)) - '##eq? - (if (number? _e25627_) - 'eqv? - 'equal?))))))) + _g2559725608_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp42394 + (let ((_e25627_ + (gx#stx-e + _L25582_))) + (if (or (symbol? _e25627_) + (keyword? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _e25627_) + (immediate? _e25627_)) + '##eq? + (if (number? _e25627_) 'eqv? 'equal?))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g2559525623_ __tmp42394)))) (___kont4064040641_ (lambda (_L25502_ _L25504_) (let* ((_g2552025528_ @@ -2677,16 +2984,20 @@ (cons _L25219_ '())) '())) '()) - (cons (_generate123575_ - _L25535_ - _L25502_ - _K25201_ - _E25202_) + (cons (let () + (declare (not safe)) + (_generate123575_ + _L25535_ + _L25502_ + _K25201_ + _E25202_)) '()))))) - _g2552125532_)))) + _g2552125532_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2551925547_ - (gx#genident 'e))))) + (__tmp42395 + (gx#genident 'e))) + (declare (not safe)) + (_g2551925547_ __tmp42395)))) (___kont4064240643_ (lambda (_L25444_) (cons 'let @@ -2699,17 +3010,17 @@ (___kont4064440645_ (lambda () _K25201_))) (if (gx#stx-pair? ___stx4061140612_) - (let ((_e2525026672_ + (let ((_e2525226672_ (gx#syntax-e ___stx4061140612_))) - (let ((_tl2525226679_ + (let ((_tl2525026679_ (let () (declare (not safe)) - (##cdr _e2525026672_))) + (##cdr _e2525226672_))) (_hd2525126676_ (let () (declare (not safe)) - (##car _e2525026672_)))) + (##car _e2525226672_)))) (if (gx#stx-datum? _hd2525126676_) (let ((_e2525326682_ @@ -2718,297 +3029,342 @@ (if (equal? _e2525326682_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '?:) - (if (gx#stx-pair? _tl2525226679_) - (let ((_e2525426686_ (gx#syntax-e _tl2525226679_))) - (let ((_tl2525626693_ + (if (gx#stx-pair? _tl2525026679_) + (let ((_e2525626686_ (gx#syntax-e _tl2525026679_))) + (let ((_tl2525426693_ (let () (declare (not safe)) - (##cdr _e2525426686_))) + (##cdr _e2525626686_))) (_hd2525526690_ (let () (declare (not safe)) - (##car _e2525426686_)))) - (___kont4061440615_ _tl2525626693_ _hd2525526690_))) - (_g2524625388_)) + (##car _e2525626686_)))) + (___kont4061440615_ _tl2525426693_ _hd2525526690_))) + (let () (declare (not safe)) (_g2524625388_))) (if (equal? _e2525326682_ 'and:) - (___kont4061640617_ _tl2525226679_) + (___kont4061640617_ _tl2525026679_) (if (equal? _e2525326682_ 'or:) - (___kont4061840619_ _tl2525226679_) + (___kont4061840619_ _tl2525026679_) (if (equal? _e2525326682_ 'not:) - (if (gx#stx-pair? _tl2525226679_) - (let ((_e2527226455_ - (gx#syntax-e _tl2525226679_))) - (let ((_tl2527426462_ + (if (gx#stx-pair? _tl2525026679_) + (let ((_e2527426455_ + (gx#syntax-e _tl2525026679_))) + (let ((_tl2527226462_ (let () (declare (not safe)) - (##cdr _e2527226455_))) + (##cdr _e2527426455_))) (_hd2527326459_ (let () (declare (not safe)) - (##car _e2527226455_)))) - (if (gx#stx-null? _tl2527426462_) + (##car _e2527426455_)))) + (if (gx#stx-null? _tl2527226462_) (___kont4062040621_ _hd2527326459_) - (_g2524625388_)))) - (_g2524625388_)) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () (declare (not safe)) (_g2524625388_))) (if (equal? _e2525326682_ 'cons:) - (if (gx#stx-pair? _tl2525226679_) - (let ((_e2528126327_ - (gx#syntax-e _tl2525226679_))) - (let ((_tl2528326334_ + (if (gx#stx-pair? _tl2525026679_) + (let ((_e2528326327_ + (gx#syntax-e _tl2525026679_))) + (let ((_tl2528126334_ (let () (declare (not safe)) - (##cdr _e2528126327_))) + (##cdr _e2528326327_))) (_hd2528226331_ (let () (declare (not safe)) - (##car _e2528126327_)))) - (if (gx#stx-pair? _tl2528326334_) - (let ((_e2528426337_ + (##car _e2528326327_)))) + (if (gx#stx-pair? _tl2528126334_) + (let ((_e2528626337_ (gx#syntax-e - _tl2528326334_))) - (let ((_tl2528626344_ + _tl2528126334_))) + (let ((_tl2528426344_ (let () (declare (not safe)) - (##cdr _e2528426337_))) + (##cdr _e2528626337_))) (_hd2528526341_ (let () (declare (not safe)) - (##car _e2528426337_)))) + (##car _e2528626337_)))) (if (gx#stx-null? - _tl2528626344_) + _tl2528426344_) (___kont4062240623_ _hd2528526341_ _hd2528226331_) - (_g2524625388_)))) - (_g2524625388_)))) - (_g2524625388_)) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () + (declare (not safe)) + (_g2524625388_))) (if (equal? _e2525326682_ 'null:) - (if (gx#stx-null? _tl2525226679_) + (if (gx#stx-null? _tl2525026679_) (___kont4062440625_) - (_g2524625388_)) + (let () + (declare (not safe)) + (_g2524625388_))) (if (equal? _e2525326682_ 'splice:) - (if (gx#stx-pair? _tl2525226679_) - (let ((_e2529726243_ + (if (gx#stx-pair? _tl2525026679_) + (let ((_e2529926243_ (gx#syntax-e - _tl2525226679_))) - (let ((_tl2529926250_ + _tl2525026679_))) + (let ((_tl2529726250_ (let () (declare (not safe)) - (##cdr _e2529726243_))) + (##cdr _e2529926243_))) (_hd2529826247_ (let () (declare (not safe)) - (##car _e2529726243_)))) + (##car _e2529926243_)))) (if (gx#stx-pair? - _tl2529926250_) - (let ((_e2530026253_ + _tl2529726250_) + (let ((_e2530226253_ (gx#syntax-e - _tl2529926250_))) - (let ((_tl2530226260_ + _tl2529726250_))) + (let ((_tl2530026260_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2530026253_))) + (##cdr _e2530226253_))) (_hd2530126257_ - (let () (declare (not safe)) (##car _e2530026253_)))) - (if (gx#stx-null? _tl2530226260_) + (let () (declare (not safe)) (##car _e2530226253_)))) + (if (gx#stx-null? _tl2530026260_) (___kont4062640627_ _hd2530126257_ _hd2529826247_) - (_g2524625388_)))) + (let () (declare (not safe)) (_g2524625388_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2524625388_)))) - (_g2524625388_)) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () + (declare (not safe)) + (_g2524625388_))) (if (equal? _e2525326682_ 'box:) - (if (gx#stx-pair? _tl2525226679_) - (let ((_e2530826167_ + (if (gx#stx-pair? _tl2525026679_) + (let ((_e2531026167_ (gx#syntax-e - _tl2525226679_))) - (let ((_tl2531026174_ + _tl2525026679_))) + (let ((_tl2530826174_ (let () (declare (not safe)) - (##cdr _e2530826167_))) + (##cdr _e2531026167_))) (_hd2530926171_ (let () (declare (not safe)) - (##car _e2530826167_)))) + (##car _e2531026167_)))) (if (gx#stx-null? - _tl2531026174_) + _tl2530826174_) (___kont4062840629_ _hd2530926171_) - (_g2524625388_)))) - (_g2524625388_)) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () + (declare (not safe)) + (_g2524625388_))) (if (equal? _e2525326682_ 'values:) (if (gx#stx-pair? - _tl2525226679_) - (let ((_e2531625972_ + _tl2525026679_) + (let ((_e2531825972_ (gx#syntax-e - _tl2525226679_))) - (let ((_tl2531825979_ + _tl2525026679_))) + (let ((_tl2531625979_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2531625972_))) + (##cdr _e2531825972_))) (_hd2531725976_ - (let () (declare (not safe)) (##car _e2531625972_)))) - (if (gx#stx-null? _tl2531825979_) + (let () (declare (not safe)) (##car _e2531825972_)))) + (if (gx#stx-null? _tl2531625979_) (___kont4063040631_ _hd2531725976_) - (_g2524625388_)))) + (let () (declare (not safe)) (_g2524625388_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2524625388_)) + (let () + (declare (not safe)) + (_g2524625388_))) (if (equal? _e2525326682_ 'vector:) (if (gx#stx-pair? - _tl2525226679_) - (let ((_e2532425777_ + _tl2525026679_) + (let ((_e2532625777_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2525226679_))) - (let ((_tl2532625784_ - (let () (declare (not safe)) (##cdr _e2532425777_))) + _tl2525026679_))) + (let ((_tl2532425784_ + (let () (declare (not safe)) (##cdr _e2532625777_))) (_hd2532525781_ - (let () (declare (not safe)) (##car _e2532425777_)))) - (if (gx#stx-null? _tl2532625784_) + (let () (declare (not safe)) (##car _e2532625777_)))) + (if (gx#stx-null? _tl2532425784_) (___kont4063240633_ _hd2532525781_) - (_g2524625388_)))) - (_g2524625388_)) + (let () (declare (not safe)) (_g2524625388_))))) + (let () (declare (not safe)) (_g2524625388_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (equal? _e2525326682_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'struct:) - (if (gx#stx-pair? _tl2525226679_) - (let ((_e2533325718_ (gx#syntax-e _tl2525226679_))) - (let ((_tl2533525725_ + (if (gx#stx-pair? _tl2525026679_) + (let ((_e2533525718_ (gx#syntax-e _tl2525026679_))) + (let ((_tl2533325725_ (let () (declare (not safe)) - (##cdr _e2533325718_))) + (##cdr _e2533525718_))) (_hd2533425722_ (let () (declare (not safe)) - (##car _e2533325718_)))) - (if (gx#stx-pair? _tl2533525725_) - (let ((_e2533625728_ - (gx#syntax-e _tl2533525725_))) - (let ((_tl2533825735_ + (##car _e2533525718_)))) + (if (gx#stx-pair? _tl2533325725_) + (let ((_e2533825728_ + (gx#syntax-e _tl2533325725_))) + (let ((_tl2533625735_ (let () (declare (not safe)) - (##cdr _e2533625728_))) + (##cdr _e2533825728_))) (_hd2533725732_ (let () (declare (not safe)) - (##car _e2533625728_)))) - (if (gx#stx-null? _tl2533825735_) + (##car _e2533825728_)))) + (if (gx#stx-null? _tl2533625735_) (___kont4063440635_ _hd2533725732_ _hd2533425722_) - (_g2524625388_)))) - (_g2524625388_)))) - (_g2524625388_)) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () (declare (not safe)) (_g2524625388_))))) + (let () (declare (not safe)) (_g2524625388_))) (if (equal? _e2525326682_ 'class:) - (if (gx#stx-pair? _tl2525226679_) - (let ((_e2534525659_ (gx#syntax-e _tl2525226679_))) - (let ((_tl2534725666_ + (if (gx#stx-pair? _tl2525026679_) + (let ((_e2534725659_ (gx#syntax-e _tl2525026679_))) + (let ((_tl2534525666_ (let () (declare (not safe)) - (##cdr _e2534525659_))) + (##cdr _e2534725659_))) (_hd2534625663_ (let () (declare (not safe)) - (##car _e2534525659_)))) - (if (gx#stx-pair? _tl2534725666_) - (let ((_e2534825669_ - (gx#syntax-e _tl2534725666_))) - (let ((_tl2535025676_ + (##car _e2534725659_)))) + (if (gx#stx-pair? _tl2534525666_) + (let ((_e2535025669_ + (gx#syntax-e _tl2534525666_))) + (let ((_tl2534825676_ (let () (declare (not safe)) - (##cdr _e2534825669_))) + (##cdr _e2535025669_))) (_hd2534925673_ (let () (declare (not safe)) - (##car _e2534825669_)))) - (if (gx#stx-null? _tl2535025676_) + (##car _e2535025669_)))) + (if (gx#stx-null? _tl2534825676_) (___kont4063640637_ _hd2534925673_ _hd2534625663_) - (_g2524625388_)))) - (_g2524625388_)))) - (_g2524625388_)) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () (declare (not safe)) (_g2524625388_))) (if (equal? _e2525326682_ 'datum:) - (if (gx#stx-pair? _tl2525226679_) - (let ((_e2535625572_ - (gx#syntax-e _tl2525226679_))) - (let ((_tl2535825579_ + (if (gx#stx-pair? _tl2525026679_) + (let ((_e2535825572_ + (gx#syntax-e _tl2525026679_))) + (let ((_tl2535625579_ (let () (declare (not safe)) - (##cdr _e2535625572_))) + (##cdr _e2535825572_))) (_hd2535725576_ (let () (declare (not safe)) - (##car _e2535625572_)))) - (if (gx#stx-null? _tl2535825579_) + (##car _e2535825572_)))) + (if (gx#stx-null? _tl2535625579_) (___kont4063840639_ _hd2535725576_) - (_g2524625388_)))) - (_g2524625388_)) - (if (equal? _e2525326682_ 'apply:) - (if (gx#stx-pair? _tl2525226679_) - (let ((_e2536525482_ - (gx#syntax-e _tl2525226679_))) - (let ((_tl2536725489_ + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () (declare (not safe)) (_g2524625388_))) + (if (equal? _e2525326682_ 'apply:) + (if (gx#stx-pair? _tl2525026679_) + (let ((_e2536725482_ + (gx#syntax-e _tl2525026679_))) + (let ((_tl2536525489_ (let () (declare (not safe)) - (##cdr _e2536525482_))) + (##cdr _e2536725482_))) (_hd2536625486_ (let () (declare (not safe)) - (##car _e2536525482_)))) - (if (gx#stx-pair? _tl2536725489_) - (let ((_e2536825492_ - (gx#syntax-e _tl2536725489_))) - (let ((_tl2537025499_ + (##car _e2536725482_)))) + (if (gx#stx-pair? _tl2536525489_) + (let ((_e2537025492_ + (gx#syntax-e _tl2536525489_))) + (let ((_tl2536825499_ (let () (declare (not safe)) - (##cdr _e2536825492_))) + (##cdr _e2537025492_))) (_hd2536925496_ (let () (declare (not safe)) - (##car _e2536825492_)))) - (if (gx#stx-null? _tl2537025499_) + (##car _e2537025492_)))) + (if (gx#stx-null? _tl2536825499_) (___kont4064040641_ _hd2536925496_ _hd2536625486_) - (_g2524625388_)))) - (_g2524625388_)))) - (_g2524625388_)) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () (declare (not safe)) (_g2524625388_))) (if (equal? _e2525326682_ 'var:) - (if (gx#stx-pair? _tl2525226679_) - (let ((_e2537625434_ - (gx#syntax-e _tl2525226679_))) - (let ((_tl2537825441_ + (if (gx#stx-pair? _tl2525026679_) + (let ((_e2537825434_ + (gx#syntax-e _tl2525026679_))) + (let ((_tl2537625441_ (let () (declare (not safe)) - (##cdr _e2537625434_))) + (##cdr _e2537825434_))) (_hd2537725438_ (let () (declare (not safe)) - (##car _e2537625434_)))) - (if (gx#stx-null? _tl2537825441_) + (##car _e2537825434_)))) + (if (gx#stx-null? _tl2537625441_) (___kont4064240643_ _hd2537725438_) - (_g2524625388_)))) - (_g2524625388_)) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () + (declare (not safe)) + (_g2524625388_))) (if (equal? _e2525326682_ 'any:) - (if (gx#stx-null? _tl2525226679_) + (if (gx#stx-null? _tl2525026679_) (___kont4064440645_) - (_g2524625388_)) - (_g2524625388_)))))))))))))))))) + (let () + (declare (not safe)) + (_g2524625388_))) + (let () + (declare (not safe)) + (_g2524625388_))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2524625388_)))) - (_g2524625388_)))))) + (let () + (declare (not safe)) + (_g2524625388_))))) + (let () + (declare (not safe)) + (_g2524625388_))))))) _g2520525216_)))) + (declare (not safe)) (_g2520326981_ _tgt25198_)))) (_generate-splice23577_ (lambda (_tgt24570_ _hd24572_ _rest24573_ _K24574_ _E24575_) @@ -3021,30 +3377,30 @@ (_g2457625194_ (lambda (_g2457824598_) (if (gx#stx-pair/null? _g2457824598_) - (let ((_g42300_ + (let ((_g42396_ (gx#syntax-split-splice _g2457824598_ '0))) (begin - (let ((_g42301_ + (let ((_g42397_ (let () (declare (not safe)) - (if (##values? _g42300_) - (##vector-length _g42300_) + (if (##values? _g42396_) + (##vector-length _g42396_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42301_ 2))) + (##fx= _g42397_ 2))) (error "Context expects 2 values" - _g42301_))) + _g42397_))) (let ((_target2458024601_ (let () (declare (not safe)) - (##vector-ref _g42300_ 0))) + (##vector-ref _g42396_ 0))) (_tl2458224604_ (let () (declare (not safe)) - (##vector-ref _g42300_ 1)))) + (##vector-ref _g42396_ 1)))) (if (gx#stx-null? _tl2458224604_) (letrec ((_loop2458324607_ (lambda (_hd2458124611_ @@ -3062,9 +3418,10 @@ (let () (declare (not safe)) (##cdr _e2458424617_)))) - (_loop2458324607_ - _lp-tl2458624624_ - (cons _lp-hd2458524621_ _var2458724614_)))) + (let ((__tmp42415 + (cons _lp-hd2458524621_ _var2458724614_))) + (declare (not safe)) + (_loop2458324607_ _lp-tl2458624624_ __tmp42415)))) (let ((_var2458824627_ (reverse _var2458724614_))) ((lambda (_L24631_) (let () @@ -3077,34 +3434,34 @@ (_g2464625182_ (lambda (_g2464824668_) (if (gx#stx-pair/null? _g2464824668_) - (let ((_g42302_ + (let ((_g42398_ (gx#syntax-split-splice _g2464824668_ '0))) (begin - (let ((_g42303_ + (let ((_g42399_ (let () (declare (not safe)) - (if (##values? _g42302_) + (if (##values? _g42398_) (##vector-length - _g42302_) + _g42398_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42303_ 2))) + (##fx= _g42399_ 2))) (error "Context expects 2 values" - _g42303_))) + _g42399_))) (let ((_target2465024671_ (let () (declare (not safe)) (##vector-ref - _g42302_ + _g42398_ 0))) (_tl2465224674_ (let () (declare (not safe)) (##vector-ref - _g42302_ + _g42398_ 1)))) (if (gx#stx-null? _tl2465224674_) @@ -3122,9 +3479,13 @@ (let () (declare (not safe)) (##cdr _e2465424687_)))) - (_loop2465324677_ - _lp-tl2465624694_ - (cons _lp-hd2465524691_ _var-r2465724684_)))) + (let ((__tmp42413 + (cons _lp-hd2465524691_ + _var-r2465724684_))) + (declare (not safe)) + (_loop2465324677_ + _lp-tl2465624694_ + __tmp42413)))) (let ((_var-r2465824697_ (reverse _var-r2465724684_))) ((lambda (_L24701_) @@ -3139,36 +3500,36 @@ (lambda (_g2471924739_) (if (gx#stx-pair/null? _g2471924739_) - (let ((_g42304_ + (let ((_g42400_ (gx#syntax-split-splice _g2471924739_ '0))) (begin - (let ((_g42305_ + (let ((_g42401_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42304_) - (##vector-length _g42304_) + _g42400_) + (##vector-length _g42400_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42305_ 2))) - (error "Context expects 2 values" _g42305_))) + (if (not (let () (declare (not safe)) (##fx= _g42401_ 2))) + (error "Context expects 2 values" _g42401_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2472124742_ (let () (declare (not safe)) (##vector-ref - _g42304_ + _g42400_ 0))) (_tl2472324745_ (let () (declare (not safe)) (##vector-ref - _g42304_ + _g42400_ 1)))) (if (gx#stx-null? _tl2472324745_) @@ -3186,10 +3547,13 @@ (let () (declare (not safe)) (##cdr _e2472524758_)))) - (_loop2472424748_ - _lp-tl2472724765_ - (cons _lp-hd2472624762_ - _init2472824755_)))) + (let ((__tmp42411 + (cons _lp-hd2472624762_ + _init2472824755_))) + (declare (not safe)) + (_loop2472424748_ + _lp-tl2472724765_ + __tmp42411)))) (let ((_init2472924768_ (reverse _init2472824755_))) ((lambda (_L24772_) @@ -3306,10 +3670,10 @@ '#f 'lambda) (cons (cons _L24944_ - (foldr (lambda (_g2507025081_ - _g2507125084_) - (cons _g2507025081_ - _g2507125084_)) + (foldr (lambda (_g2507825081_ + _g2507925084_) + (cons _g2507825081_ + _g2507925084_)) '() _L24631_)) (cons _L24972_ '()))) @@ -3322,10 +3686,10 @@ 'lambda) (cons (cons _L24916_ (cons _L24944_ - (foldr (lambda (_g2507225087_ + (foldr (lambda (_g2507625087_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2507325090_) - (cons _g2507225087_ _g2507325090_)) + _g2507725090_) + (cons _g2507625087_ _g2507725090_)) '() _L24701_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3353,10 +3717,10 @@ (cons (cons (gx#datum->syntax '#f '##car) (cons _L24944_ '())) (cons _L24944_ - (foldr (lambda (_g2507625099_ + (foldr (lambda (_g2507225099_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2507725102_) - (cons _g2507625099_ _g2507725102_)) + _g2507325102_) + (cons _g2507225099_ _g2507325102_)) '() _L24701_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3368,117 +3732,177 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons _L24860_ (cons _L24804_ - (foldr (lambda (_g2507825105_ + (foldr (lambda (_g2507025105_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2507925108_) - (cons _g2507825105_ _g2507925108_)) + _g2507125108_) + (cons _g2507025105_ _g2507125108_)) '() _L24772_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _g2504225053_)))) - (_g2504025111_ - (_generate123575_ _L24916_ _hd24572_ _L25000_ _L25028_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2501425025_)))) - (_g2501225115_ - (cons _L24832_ - (cons _L24944_ - (foldr (lambda (_g2511825121_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2511925124_) - (cons (cons (gx#datum->syntax '#f 'reverse) - (cons _g2511825121_ '())) - _g2511925124_)) - '() - _L24701_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2498624997_)))) - (_g2498425127_ - (cons _L24860_ - (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _L24944_ '())) - (begin - (gx#syntax-check-splice-targets - _L24701_ - _L24631_) - (foldr (lambda (_g2513025134_ - _g2513125137_ - _g2513225139_) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'cons) - (cons _g2513125137_ (cons _g2513025134_ '()))) - _g2513225139_)) + _g2504225053_))) + (__tmp42402 + (let () + (declare (not safe)) + (_generate123575_ + _L24916_ + _hd24572_ + _L25000_ + _L25028_)))) + (declare (not safe)) + (_g2504025111_ __tmp42402)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g2501425025_))) + (__tmp42403 + (cons _L24832_ + (cons _L24944_ + (foldr (lambda (_g2511825121_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2511925124_) + (cons (cons (gx#datum->syntax '#f 'reverse) + (cons _g2511825121_ '())) + _g2511925124_)) + '() + _L24701_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '() - _L24701_ - _L24631_)))))))) - _g2495824969_)))) + (declare (not safe)) + (_g2501225115_ __tmp42403)))) + _g2498624997_))) + (__tmp42404 + (cons _L24860_ + (cons (cons (gx#datum->syntax + '#f + '##cdr) + (cons _L24944_ '())) + (begin + (gx#syntax-check-splice-targets + _L24701_ + _L24631_) + (foldr (lambda (_g2513025134_ + _g2513125137_ + _g2513225139_) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'cons) + (cons _g2513125137_ (cons _g2513025134_ '()))) + _g2513225139_)) + '() + _L24701_ + _L24631_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g2498425127_ __tmp42404)))) + _g2495824969_))) + (__tmp42405 + (let () + (declare (not safe)) + (_generate123575_ + _L24944_ + _rest24573_ + _K24574_ + _E24575_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) (_g2495625142_ - (_generate123575_ - _L24944_ - _rest24573_ - _K24574_ - _E24575_))))) - _g2493024941_)))) - (_g2492825146_ (gx#genident 'rest))))) - _g2490224913_)))) - (_g2490025150_ (gx#genident 'hd))))) - _g2487424885_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2487225154_ - (gx#genident 'splice-try))))) - _g2484624857_)))) - (_g2484425158_ (gx#genident 'splice-loop))))) - _g2481824829_)))) - (_g2481625162_ (gx#genident 'splice-rest))))) + __tmp42405)))) + _g2493024941_))) + (__tmp42406 (gx#genident 'rest))) + (declare (not safe)) + (_g2492825146_ __tmp42406)))) + _g2490224913_))) + (__tmp42407 (gx#genident 'hd))) + (declare (not safe)) + (_g2490025150_ __tmp42407)))) + _g2487424885_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp42408 + (gx#genident + 'splice-try))) + (declare (not safe)) + (_g2487225154_ __tmp42408)))) + _g2484624857_))) + (__tmp42409 (gx#genident 'splice-loop))) + (declare (not safe)) + (_g2484425158_ __tmp42409)))) + _g2481824829_))) + (__tmp42410 (gx#genident 'splice-rest))) + (declare (not safe)) + (_g2481625162_ __tmp42410)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2479024801_)))) + (declare (not safe)) (_g2478825166_ _tgt24570_)))) _init2472924768_)))))) - (_loop2472424748_ _target2472124742_ '())) - (_g2471824735_ _g2471924739_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2471824735_ - _g2471924739_))))) - (_g2471725170_ - (make-list - (gx#stx-length - (foldr (lambda (_g2517325176_ - _g2517425179_) - (cons _g2517325176_ - _g2517425179_)) - '() - _L24631_)) - (cons (gx#datum->syntax '#f '@list) - '())))))) + (let () + (declare (not safe)) + (_loop2472424748_ _target2472124742_ '()))) + (let () + (declare (not safe)) + (_g2471824735_ _g2471924739_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2471824735_ + _g2471924739_))))) + (__tmp42412 + (make-list + (gx#stx-length + (foldr (lambda (_g2517325176_ + _g2517425179_) + (cons _g2517325176_ + _g2517425179_)) + '() + _L24631_)) + (cons (gx#datum->syntax '#f '@list) + '())))) + (declare (not safe)) + (_g2471725170_ __tmp42412)))) _var-r2465824697_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop2465324677_ - _target2465024671_ - '())) - (_g2464724664_ - _g2464824668_))))) - (_g2464724664_ _g2464824668_))))) - (_g2464625182_ - (gx#gentemps - (foldr (lambda (_g2518525188_ _g2518625191_) - (cons _g2518525188_ _g2518625191_)) - '() - _L24631_)))))) + (let () + (declare (not safe)) + (_loop2465324677_ + _target2465024671_ + '()))) + (let () + (declare (not safe)) + (_g2464724664_ + _g2464824668_)))))) + (let () + (declare (not safe)) + (_g2464724664_ _g2464824668_))))) + (__tmp42414 + (gx#gentemps + (foldr (lambda (_g2518525188_ + _g2518625191_) + (cons _g2518525188_ + _g2518625191_)) + '() + _L24631_)))) + (declare (not safe)) + (_g2464625182_ __tmp42414)))) _var2458824627_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop2458324607_ - _target2458024601_ - '())) - (_g2457724594_ _g2457824598_))))) - (_g2457724594_ _g2457824598_))))) - (_g2457625194_ - (|gerbil/core$[1]#match-pattern-vars| - _hd24572_))))) + (let () + (declare (not safe)) + (_loop2458324607_ + _target2458024601_ + '()))) + (let () + (declare (not safe)) + (_g2457724594_ + _g2457824598_)))))) + (let () + (declare (not safe)) + (_g2457724594_ _g2457824598_))))) + (__tmp42416 + (let () + (declare (not safe)) + (|gerbil/core$[1]#match-pattern-vars| + _hd24572_)))) + (declare (not safe)) + (_g2457625194_ __tmp42416)))) (_generate-simple-vector23578_ (lambda (_tgt24412_ _body24414_ @@ -3505,40 +3929,40 @@ (_g2448324562_ (lambda (_g2448524507_) (if (gx#stx-pair? _g2448524507_) - (let ((_e2448924510_ + (let ((_e2449124510_ (gx#syntax-e _g2448524507_))) (let ((_hd2449024514_ (let () (declare (not safe)) - (##car _e2448924510_))) - (_tl2449124517_ + (##car _e2449124510_))) + (_tl2448924517_ (let () (declare (not safe)) - (##cdr _e2448924510_)))) + (##cdr _e2449124510_)))) (if (gx#stx-pair? - _tl2449124517_) - (let ((_e2449224520_ + _tl2448924517_) + (let ((_e2449424520_ (gx#syntax-e - _tl2449124517_))) + _tl2448924517_))) (let ((_hd2449324524_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e2449224520_))) - (_tl2449424527_ - (let () (declare (not safe)) (##cdr _e2449224520_)))) - (if (gx#stx-pair? _tl2449424527_) - (let ((_e2449524530_ (gx#syntax-e _tl2449424527_))) + (##car _e2449424520_))) + (_tl2449224527_ + (let () (declare (not safe)) (##cdr _e2449424520_)))) + (if (gx#stx-pair? _tl2449224527_) + (let ((_e2449724530_ (gx#syntax-e _tl2449224527_))) (let ((_hd2449624534_ (let () (declare (not safe)) - (##car _e2449524530_))) - (_tl2449724537_ + (##car _e2449724530_))) + (_tl2449524537_ (let () (declare (not safe)) - (##cdr _e2449524530_)))) - (if (gx#stx-null? _tl2449724537_) + (##cdr _e2449724530_)))) + (if (gx#stx-null? _tl2449524537_) ((lambda (_L24540_ _L24542_ _L24543_) (let () (cons 'let @@ -3551,41 +3975,51 @@ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (_generate123575_ - _L24543_ - _L24469_ - (_recur24419_ - _L24467_ - (fx1+ _off24424_)) - _E24417_) - '()))))) + (cons (let ((__tmp42417 + (let ((__tmp42418 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (fx1+ _off24424_))) + (declare (not safe)) + (_recur24419_ _L24467_ __tmp42418)))) + (declare (not safe)) + (_generate123575_ _L24543_ _L24469_ __tmp42417 _E24417_)) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2449624534_ _hd2449324524_ _hd2449024514_) - (_g2448424503_ _g2448524507_)))) - (_g2448424503_ _g2448524507_)))) - (_g2448424503_ _g2448524507_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2448424503_ - _g2448524507_))))) - (_g2448324562_ - (list (gx#genident 'e) - _tgt24412_ - _off24424_))))) + (let () + (declare (not safe)) + (_g2448424503_ _g2448524507_))))) + (let () + (declare (not safe)) + (_g2448424503_ _g2448524507_))))) + (let () (declare (not safe)) (_g2448424503_ _g2448524507_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2448424503_ + _g2448524507_))))) + (__tmp42419 + (list (gx#genident 'e) + _tgt24412_ + _off24424_))) + (declare (not safe)) + (_g2448324562_ __tmp42419)))) (___kont4097440975_ (lambda () _K24416_))) (if (gx#stx-pair? ___stx4096940970_) - (let ((_e2443124457_ + (let ((_e2443324457_ (gx#syntax-e ___stx4096940970_))) - (let ((_tl2443324464_ + (let ((_tl2443124464_ (let () (declare (not safe)) - (##cdr _e2443124457_))) + (##cdr _e2443324457_))) (_hd2443224461_ (let () (declare (not safe)) - (##car _e2443124457_)))) + (##car _e2443324457_)))) (___kont4097240973_ - _tl2443324464_ + _tl2443124464_ _hd2443224461_))) (___kont4097440975_))))))) (_generate-list-vector23579_ @@ -3630,44 +4064,46 @@ (cons (cons (cons _L24326_ (cons _L24381_ '())) '()) - (cons (_generate123575_ - _L24326_ - _body24306_ - _K24308_ - _E24309_) + (cons (let () + (declare (not safe)) + (_generate123575_ + _L24326_ + _body24306_ + _K24308_ + _E24309_)) '())))))) - _g2436724378_)))) + _g2436724378_))) + (__tmp42420 + (let ((_$e24400_ _->list24307_)) + (if (eq? 'values->list _$e24400_) + (cons (gx#datum->syntax '#f 'values->list) + (cons _L24353_ '())) + (if (eq? 'vector->list _$e24400_) + (cons (gx#datum->syntax '#f '##vector->list) + (cons _L24353_ '())) + (if (eq? 'struct->list _$e24400_) + (cons (gx#datum->syntax '#f '##cdr) + (cons (cons (gx#datum->syntax + '#f + '##vector->list) + (cons _L24353_ '())) + '())) + (gx#raise-syntax-error + '#f + '"Unexpected list conversion" + _stx23568_ + _->list24307_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) (_g2436524396_ - (let ((_$e24400_ - _->list24307_)) - (if (eq? 'values->list - _$e24400_) - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'values->list) - (cons _L24353_ '())) - (if (eq? 'vector->list _$e24400_) - (cons (gx#datum->syntax '#f '##vector->list) - (cons _L24353_ '())) - (if (eq? 'struct->list _$e24400_) - (cons (gx#datum->syntax '#f '##cdr) - (cons (cons (gx#datum->syntax - '#f - '##vector->list) - (cons _L24353_ '())) - '())) - (gx#raise-syntax-error - '#f - '"Unexpected list conversion" - _stx23568_ - _->list24307_))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + __tmp42420)))) _g2433924350_)))) + (declare (not safe)) (_g2433724404_ _tgt24304_)))) - _g2431224323_)))) - (_g2431024408_ (gx#genident 'e))))) + _g2431224323_))) + (__tmp42421 (gx#genident 'e))) + (declare (not safe)) + (_g2431024408_ __tmp42421)))) (_generate-struct23580_ (lambda (_info23962_ _tgt23964_ @@ -3675,30 +4111,40 @@ _K23966_ _E23967_) (let* ((_rtd23969_ - (if (class-instance? - |gerbil/core$$[1]#extended-struct-info::t| - _info23962_) - (unchecked-slot-ref - _info23962_ - 'type-exhibitor) + (if (let () + (declare (not safe)) + (class-instance? + |gerbil/core$$[1]#extended-struct-info::t| + _info23962_)) + (let () + (declare (not safe)) + (unchecked-slot-ref + _info23962_ + 'type-exhibitor)) '#f)) (_fields23979_ (let _lp23972_ ((_rtd23975_ _rtd23969_) (_k23977_ '0)) (if _rtd23975_ - (_lp23972_ - (|gerbil/core$$[1]#runtime-type-exhibitor-e| - (##structure-ref - _rtd23975_ - '2 - |gerbil/core$$[1]#runtime-rtd-exhibitor::t| - '#f)) - (fx+ (length (##structure-ref + (let ((__tmp42423 + (let ((__tmp42424 + (##structure-ref _rtd23975_ - '6 - |gerbil/core$$[1]#runtime-struct-exhibitor::t| - '#f)) - _k23977_)) + '2 + |gerbil/core$$[1]#runtime-rtd-exhibitor::t| + '#f))) + (declare (not safe)) + (|gerbil/core$$[1]#runtime-type-exhibitor-e| + __tmp42424))) + (__tmp42422 + (fx+ (length (##structure-ref + _rtd23975_ + '6 + |gerbil/core$$[1]#runtime-struct-exhibitor::t| + '#f)) + _k23977_))) + (declare (not safe)) + (_lp23972_ __tmp42423 __tmp42422)) _k23977_))) (_final?23982_ (if _rtd23969_ @@ -3742,12 +4188,14 @@ (lambda (_L24148_) (let ((_K24162_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_generate-simple-vector23578_ - _tgt23964_ - _L24148_ - '1 - _K23966_ - _E23967_)) + (let () + (declare (not safe)) + (_generate-simple-vector23578_ + _tgt23964_ + _L24148_ + '1 + _K23966_ + _E23967_))) (_len24164_ (gx#stx-length _L24148_))) (if (and _rtd23969_ (fx<= _len24164_ _fields23979_)) (cons 'if @@ -3778,145 +4226,174 @@ (cons _E23967_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2416724178_)))) + (declare (not safe)) (_g2416524194_ _len24164_)))))) (___kont4099040991_ (lambda (_L24100_) (cons 'if (cons _L24030_ - (cons (_generate-list-vector23579_ - _tgt23964_ - _L24100_ - 'struct->list - _K23966_ - _E23967_) + (cons (let () + (declare (not safe)) + (_generate-list-vector23579_ + _tgt23964_ + _L24100_ + 'struct->list + _K23966_ + _E23967_)) (cons _E23967_ '()))))))) (if (gx#stx-pair? ___stx4098540986_) - (let ((_e2404924124_ (gx#syntax-e ___stx4098540986_))) - (let ((_tl2405124131_ + (let ((_e2405124124_ (gx#syntax-e ___stx4098540986_))) + (let ((_tl2404924131_ (let () (declare (not safe)) - (##cdr _e2404924124_))) + (##cdr _e2405124124_))) (_hd2405024128_ (let () (declare (not safe)) - (##car _e2404924124_)))) + (##car _e2405124124_)))) (if (gx#stx-datum? _hd2405024128_) (let ((_e2405224134_ (gx#stx-e _hd2405024128_))) (if (equal? _e2405224134_ 'simple:) - (if (gx#stx-pair? _tl2405124131_) - (let ((_e2405324138_ - (gx#syntax-e _tl2405124131_))) - (let ((_tl2405524145_ + (if (gx#stx-pair? _tl2404924131_) + (let ((_e2405524138_ + (gx#syntax-e _tl2404924131_))) + (let ((_tl2405324145_ (let () (declare (not safe)) - (##cdr _e2405324138_))) + (##cdr _e2405524138_))) (_hd2405424142_ (let () (declare (not safe)) - (##car _e2405324138_)))) - (if (gx#stx-null? _tl2405524145_) + (##car _e2405524138_)))) + (if (gx#stx-null? _tl2405324145_) (___kont4098840989_ _hd2405424142_) - (_g2404624069_)))) - (_g2404624069_)) + (let () + (declare (not safe)) + (_g2404624069_))))) + (let () + (declare (not safe)) + (_g2404624069_))) (if (equal? _e2405224134_ 'list:) - (if (gx#stx-pair? _tl2405124131_) - (let ((_e2406124090_ - (gx#syntax-e _tl2405124131_))) - (let ((_tl2406324097_ + (if (gx#stx-pair? _tl2404924131_) + (let ((_e2406324090_ + (gx#syntax-e _tl2404924131_))) + (let ((_tl2406124097_ (let () (declare (not safe)) - (##cdr _e2406124090_))) + (##cdr _e2406324090_))) (_hd2406224094_ (let () (declare (not safe)) - (##car _e2406124090_)))) - (if (gx#stx-null? _tl2406324097_) + (##car _e2406324090_)))) + (if (gx#stx-null? _tl2406124097_) (___kont4099040991_ _hd2406224094_) - (_g2404624069_)))) - (_g2404624069_)) - (_g2404624069_)))) - (_g2404624069_)))) - (_g2404624069_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2401624027_)))) - (_g2401424202_ - (if (class-instance? - |gerbil/core$$[1]#expander-type-info::t| - _info23962_) - (let* ((_g2420624214_ - (lambda (_g2420724210_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2420724210_))) - (_g2420524233_ - (lambda (_g2420724218_) - ((lambda (_L24221_) - (let () - (cons _L24221_ - (cons _L24000_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2420724218_)))) - (_g2420524233_ - (cadddr (unchecked-slot-ref - _info23962_ - 'expander-identifiers)))) - (let* ((_g2423724252_ - (lambda (_g2423824248_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2423824248_))) - (_g2423624296_ - (lambda (_g2423824256_) - (if (gx#stx-pair? - _g2423824256_) - (let ((_e2424124259_ - (gx#syntax-e - _g2423824256_))) - (let ((_hd2424224263_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e2424124259_))) - (_tl2424324266_ - (let () (declare (not safe)) (##cdr _e2424124259_)))) - (if (gx#stx-pair? _tl2424324266_) - (let ((_e2424424269_ (gx#syntax-e _tl2424324266_))) - (let ((_hd2424524273_ - (let () - (declare (not safe)) - (##car _e2424424269_))) - (_tl2424624276_ - (let () - (declare (not safe)) - (##cdr _e2424424269_)))) - (if (gx#stx-null? _tl2424624276_) - ((lambda (_L24279_ _L24281_) - (let () - (cons _L24279_ - (cons _L24281_ - (cons _L24000_ '()))))) - _hd2424524273_ - _hd2424224263_) - (_g2423724252_ _g2423824256_)))) - (_g2423724252_ _g2423824256_)))) - (_g2423724252_ _g2423824256_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2423624296_ - (list (unchecked-slot-ref - _info23962_ - 'runtime-identifier) - (if _final?23982_ - (gx#datum->syntax - '#f - 'direct-instance?) - (gx#datum->syntax - '#f - 'struct-instance?)))))))))) + (let () + (declare (not safe)) + (_g2404624069_))))) + (let () + (declare (not safe)) + (_g2404624069_))) + (let () + (declare (not safe)) + (_g2404624069_))))) + (let () (declare (not safe)) (_g2404624069_))))) + (let () (declare (not safe)) (_g2404624069_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g2401624027_))) + (__tmp42425 + (if (let () + (declare (not safe)) + (class-instance? + |gerbil/core$$[1]#expander-type-info::t| + _info23962_)) + (let* ((_g2420624214_ + (lambda (_g2420724210_) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2420724210_))) + (_g2420524233_ + (lambda (_g2420724218_) + ((lambda (_L24221_) + (let () + (cons _L24221_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _L24000_ '())))) + _g2420724218_))) + (__tmp42427 + (cadddr (let () + (declare (not safe)) + (unchecked-slot-ref + _info23962_ + 'expander-identifiers))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g2420524233_ __tmp42427)) + (let* ((_g2423724252_ + (lambda (_g2423824248_) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2423824248_))) + (_g2423624296_ + (lambda (_g2423824256_) + (if (gx#stx-pair? + _g2423824256_) + (let ((_e2424324259_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _g2423824256_))) + (let ((_hd2424224263_ + (let () + (declare (not safe)) + (##car _e2424324259_))) + (_tl2424124266_ + (let () + (declare (not safe)) + (##cdr _e2424324259_)))) + (if (gx#stx-pair? _tl2424124266_) + (let ((_e2424624269_ + (gx#syntax-e _tl2424124266_))) + (let ((_hd2424524273_ + (let () + (declare (not safe)) + (##car _e2424624269_))) + (_tl2424424276_ + (let () + (declare (not safe)) + (##cdr _e2424624269_)))) + (if (gx#stx-null? _tl2424424276_) + ((lambda (_L24279_ _L24281_) + (let () + (cons _L24279_ + (cons _L24281_ + (cons _L24000_ '()))))) + _hd2424524273_ + _hd2424224263_) + (let () + (declare (not safe)) + (_g2423724252_ _g2423824256_))))) + (let () + (declare (not safe)) + (_g2423724252_ _g2423824256_))))) + (let () + (declare (not safe)) + (_g2423724252_ _g2423824256_))))) + (__tmp42426 + (list (let () + (declare (not safe)) + (unchecked-slot-ref _info23962_ 'runtime-identifier)) + (if _final?23982_ + (gx#datum->syntax '#f 'direct-instance?) + (gx#datum->syntax '#f 'struct-instance?))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g2423624296_ __tmp42426))))) + (declare (not safe)) + (_g2401424202_ __tmp42425)))) _g2398623997_)))) + (declare (not safe)) (_g2398424300_ _tgt23964_)))) (_generate-class23581_ (lambda (_info23583_ @@ -3925,12 +4402,16 @@ _K23587_ _E23588_) (letrec* ((_rtd23590_ - (if (class-instance? - |gerbil/core$$[1]#extended-class-info::t| - _info23583_) - (unchecked-slot-ref - _info23583_ - 'type-exhibitor) + (if (let () + (declare (not safe)) + (class-instance? + |gerbil/core$$[1]#extended-class-info::t| + _info23583_)) + (let () + (declare (not safe)) + (unchecked-slot-ref + _info23583_ + 'type-exhibitor)) '#f)) (_known-slot?23592_ (if _rtd23590_ @@ -3938,6 +4419,7 @@ (let ((_slot23959_ (keyword->symbol (gx#stx-e _key23956_)))) + (declare (not safe)) (_rtd-known-slot?23594_ _rtd23590_ _slot23959_))) @@ -3964,9 +4446,11 @@ (if _$e23947_ _$e23947_ (ormap (lambda (_g2395023952_) - (_rtd-known-slot?23594_ - _g2395023952_ - _slot23945_)) + (let () + (declare (not safe)) + (_rtd-known-slot?23594_ + _g2395023952_ + _slot23945_))) (map |gerbil/core$$[1]#runtime-type-exhibitor-e| (##structure-ref _rtd23943_ @@ -4041,13 +4525,18 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_generate123575_ - _L23905_ - _L23790_ - (_recur23595_ - _klass23729_ - _L23788_) - _E23588_) + (cons (let ((__tmp42428 + (let () + (declare (not safe)) + (_recur23595_ + _klass23729_ + _L23788_)))) + (declare (not safe)) + (_generate123575_ + _L23905_ + _L23790_ + __tmp42428 + _E23588_)) '()))))) (if (_known-slot?23592_ _L23791_) (cons 'let @@ -4078,47 +4567,53 @@ (cons _E23588_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _g2389123902_)))) + _g2389123902_))) + (__tmp42429 (gx#genident 'e))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) (_g2388923923_ - (gx#genident 'e))))) - _g2386323874_)))) - (_g2386123927_ (gx#genident 'slot))))) + __tmp42429)))) + _g2386323874_))) + (__tmp42430 (gx#genident 'slot))) + (declare (not safe)) + (_g2386123927_ __tmp42430)))) _g2383523846_)))) + (declare (not safe)) (_g2383323931_ _klass23729_)))) _g2380823819_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) (_g2380623935_ _tgt23585_)))) (___kont4104041041_ (lambda () _K23587_))) (if (gx#stx-pair? ___stx4103541036_) - (let ((_e2373923768_ + (let ((_e2374123768_ (gx#syntax-e ___stx4103541036_))) - (let ((_tl2374123775_ + (let ((_tl2373923775_ (let () (declare (not safe)) - (##cdr _e2373923768_))) + (##cdr _e2374123768_))) (_hd2374023772_ (let () (declare (not safe)) - (##car _e2373923768_)))) - (if (gx#stx-pair? _tl2374123775_) - (let ((_e2374223778_ + (##car _e2374123768_)))) + (if (gx#stx-pair? _tl2373923775_) + (let ((_e2374423778_ (gx#syntax-e - _tl2374123775_))) - (let ((_tl2374423785_ + _tl2373923775_))) + (let ((_tl2374223785_ (let () (declare (not safe)) - (##cdr _e2374223778_))) + (##cdr _e2374423778_))) (_hd2374323782_ (let () (declare (not safe)) - (##car _e2374223778_)))) + (##car _e2374423778_)))) (___kont4103841039_ - _tl2374423785_ + _tl2374223785_ _hd2374323782_ _hd2374023772_))) (___kont4104041041_)))) @@ -4178,24 +4673,39 @@ (cons _L23642_ '())) '())) '()) - (cons (_recur23595_ _L23612_ _body23586_) + (cons (let () + (declare (not safe)) + (_recur23595_ _L23612_ _body23586_)) '()))) (cons _E23588_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2368423695_)))) - (_g2368223713_ - (if _final?23593_ - (gx#datum->syntax '#f 'direct-instance?) - (gx#datum->syntax '#f 'class-instance?)))))) - _g2365623667_)))) - (_g2365423717_ - (unchecked-slot-ref _info23583_ 'runtime-identifier))))) + _g2368423695_))) + (__tmp42431 + (if _final?23593_ + (gx#datum->syntax '#f 'direct-instance?) + (gx#datum->syntax + '#f + 'class-instance?)))) + (declare (not safe)) + (_g2368223713_ __tmp42431)))) + _g2365623667_))) + (__tmp42432 + (let () + (declare (not safe)) + (unchecked-slot-ref _info23583_ 'runtime-identifier)))) + (declare (not safe)) + (_g2365423717_ __tmp42432)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2362823639_)))) + (declare (not safe)) (_g2362623721_ _tgt23585_)))) - _g2359823609_)))) - (_g2359623725_ (gx#genident 'class))))))) - (_generate123575_ _tgt23570_ _ptree23571_ _K23572_ _E23573_)))) + _g2359823609_))) + (__tmp42433 (gx#genident 'class))) + (declare (not safe)) + (_g2359623725_ __tmp42433)))))) + (let () + (declare (not safe)) + (_generate123575_ _tgt23570_ _ptree23571_ _K23572_ _E23573_))))) (define |gerbil/core$[1]#generate-match*| (lambda (_stx22464_ _tgt-lst22466_ _clauses22467_) (letrec ((_parse-body22469_ @@ -4240,26 +4750,32 @@ _L23443_)))) (___kont4106241063_ (lambda (_L23504_ _L23506_) - (_lp23393_ - _L23441_ - (cons (cons (gx#genident - 'try-match) - (cons (gx#stx-map - (lambda (_g2351823520_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (|gerbil/core$[1]#parse-match-pattern__%| - _g2351823520_ - _stx22464_)) - _L23506_) - (cons (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'begin) _L23504_) - (let ((_$e23524_ (gx#stx-source _L23443_))) - (if _$e23524_ - _$e23524_ - (gx#stx-source _stx22464_)))) - '()))) + (let ((__tmp42434 + (cons (cons (gx#genident + 'try-match) + (cons (gx#stx-map +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g2351823520_) + (let () + (declare (not safe)) + (|gerbil/core$[1]#parse-match-pattern__%| + _g2351823520_ + _stx22464_))) + _L23506_) + (cons (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'begin) + _L23504_) + (let ((_$e23524_ (gx#stx-source _L23443_))) + (if _$e23524_ + _$e23524_ + (gx#stx-source _stx22464_)))) + '()))) + _r23398_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r23398_)))) + (declare (not safe)) + (_lp23393_ + _L23441_ + __tmp42434)))) (___kont4106441065_ (lambda () (gx#raise-syntax-error @@ -4268,10 +4784,10 @@ _stx22464_ _L23443_)))) (let* ((___match4108241083_ - (lambda (_e2346823494_ + (lambda (_e2347023494_ _hd2346923498_ - _tl2347023501_) - (let ((_L23504_ _tl2347023501_) + _tl2346823501_) + (let ((_L23504_ _tl2346823501_) (_L23506_ _hd2346923498_)) (if (and (gx#stx-list? _L23506_) @@ -4287,10 +4803,10 @@ _L23506_) (___kont4106441065_))))) (___match4107641077_ - (lambda (_e2346323535_ + (lambda (_e2346523535_ _hd2346423539_ - _tl2346523542_) - (let ((_L23545_ _tl2346523542_)) + _tl2346323542_) + (let ((_L23545_ _tl2346323542_)) (if (and (gx#stx-list? _L23545_) (not (gx#stx-null? @@ -4298,53 +4814,53 @@ (___kont4106041061_ _L23545_) (___match4108241083_ - _e2346323535_ + _e2346523535_ _hd2346423539_ - _tl2346523542_)))))) + _tl2346323542_)))))) (if (gx#stx-pair? ___stx4105741058_) - (let ((_e2346323535_ + (let ((_e2346523535_ (gx#syntax-e ___stx4105741058_))) - (let ((_tl2346523542_ + (let ((_tl2346323542_ (let () (declare (not safe)) - (##cdr _e2346323535_))) + (##cdr _e2346523535_))) (_hd2346423539_ (let () (declare (not safe)) - (##car _e2346323535_)))) + (##car _e2346523535_)))) (if (gx#identifier? _hd2346423539_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42306_| + |gerbil/core$[1]#_g42435_| _hd2346423539_) (___match4107641077_ - _e2346323535_ + _e2346523535_ _hd2346423539_ - _tl2346523542_) + _tl2346323542_) (___match4108241083_ - _e2346323535_ + _e2346523535_ _hd2346423539_ - _tl2346523542_)) + _tl2346323542_)) (___match4108241083_ - _e2346323535_ + _e2346523535_ _hd2346423539_ - _tl2346523542_)))) + _tl2346323542_)))) (___kont4106441065_))))))) (___kont4109041091_ (lambda () _r23398_))) (if (gx#stx-pair? ___stx4108541086_) - (let ((_e2340523431_ + (let ((_e2340723431_ (gx#syntax-e ___stx4108541086_))) - (let ((_tl2340723438_ + (let ((_tl2340523438_ (let () (declare (not safe)) - (##cdr _e2340523431_))) + (##cdr _e2340723431_))) (_hd2340623435_ (let () (declare (not safe)) - (##car _e2340523431_)))) + (##car _e2340723431_)))) (___kont4108841089_ - _tl2340723438_ + _tl2340523438_ _hd2340623435_))) (___kont4109041091_))))))) (_generate-body22471_ @@ -4369,36 +4885,36 @@ (lambda (_g2320623226_) (if (gx#stx-pair/null? _g2320623226_) - (let ((_g42307_ + (let ((_g42436_ (gx#syntax-split-splice _g2320623226_ '0))) (begin - (let ((_g42308_ + (let ((_g42437_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42307_) - (##vector-length _g42307_) + _g42436_) + (##vector-length _g42436_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42308_ 2))) - (error "Context expects 2 values" _g42308_))) + (if (not (let () (declare (not safe)) (##fx= _g42437_ 2))) + (error "Context expects 2 values" _g42437_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2320823229_ (let () (declare (not safe)) (##vector-ref - _g42307_ + _g42436_ 0))) (_tl2321023232_ (let () (declare (not safe)) (##vector-ref - _g42307_ + _g42436_ 1)))) (if (gx#stx-null? _tl2321023232_) @@ -4416,10 +4932,13 @@ (let () (declare (not safe)) (##cdr _e2321223245_)))) - (_loop2321123235_ - _lp-tl2321423252_ - (cons _lp-hd2321323249_ - _target2321523242_)))) + (let ((__tmp42442 + (cons _lp-hd2321323249_ + _target2321523242_))) + (declare (not safe)) + (_loop2321123235_ + _lp-tl2321423252_ + __tmp42442)))) (let ((_target2321623255_ (reverse _target2321523242_))) ((lambda (_L23259_) @@ -4466,54 +4985,69 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2333323344_)))) - (_g2333123362_ - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L23193_ - (cons _L23291_ + _g2333323344_))) + (__tmp42438 + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _L23193_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()) + (cons _L23291_ '())) + '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L23319_ '()))) - (gx#stx-source _stx22464_)))))) - _g2330523316_)))) - (_g2330323366_ - (_generate-clauses22472_ - _body23175_ - (cons _L23193_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2327723288_)))) - (_g2327523370_ - (gx#stx-wrap-source - (cons (gx#datum->syntax - '#f - 'lambda) - (cons '() - (cons (cons (gx#datum->syntax + (cons _L23319_ '()))) + (gx#stx-source _stx22464_)))) + (declare (not safe)) + (_g2333123362_ __tmp42438)))) + _g2330523316_))) + (__tmp42439 + (let ((__tmp42440 (cons _L23193_ '()))) + (declare (not safe)) + (_generate-clauses22472_ _body23175_ __tmp42440)))) + (declare (not safe)) + (_g2330323366_ __tmp42439)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g2327723288_))) + (__tmp42441 + (gx#stx-wrap-source + (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'error) - (cons '"No clause matching" - (foldr (lambda (_g2337323376_ - _g2337423379_) - (cons _g2337323376_ - _g2337423379_)) - '() - _L23259_))) - '()))) + '#f + 'error) + (cons '"No clause matching" + (foldr (lambda (_g2337323376_ + _g2337423379_) + (cons _g2337323376_ + _g2337423379_)) + '() + _L23259_))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx22464_)))))) + (gx#stx-source + _stx22464_)))) + (declare (not safe)) + (_g2327523370_ __tmp42441)))) _target2321623255_)))))) - (_loop2321123235_ _target2320823229_ '())) - (_g2320523222_ _g2320623226_))))) + (let () + (declare (not safe)) + (_loop2321123235_ _target2320823229_ '()))) + (let () + (declare (not safe)) + (_g2320523222_ _g2320623226_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2320523222_ - _g2320623226_))))) + (let () + (declare (not safe)) + (_g2320523222_ + _g2320623226_)))))) + (declare (not safe)) (_g2320423382_ _tgt-lst22466_)))) - _g2317923190_)))) - (_g2317723386_ (gx#genident 'E))))) + _g2317923190_))) + (__tmp42443 (gx#genident 'E))) + (declare (not safe)) + (_g2317723386_ __tmp42443)))) (_generate-clauses22472_ (lambda (_rest22827_ _E22829_) (let* ((___stx4110141102_ _rest22827_) @@ -4534,59 +5068,71 @@ (_g2309323167_ (lambda (_g2309523116_) (if (gx#stx-pair? _g2309523116_) - (let ((_e2309823119_ + (let ((_e2310023119_ (gx#syntax-e _g2309523116_))) (let ((_hd2309923123_ (let () (declare (not safe)) - (##car _e2309823119_))) - (_tl2310023126_ + (##car _e2310023119_))) + (_tl2309823126_ (let () (declare (not safe)) - (##cdr _e2309823119_)))) + (##cdr _e2310023119_)))) (if (gx#stx-pair? - _tl2310023126_) - (let ((_e2310123129_ + _tl2309823126_) + (let ((_e2310323129_ (gx#syntax-e - _tl2310023126_))) + _tl2309823126_))) (let ((_hd2310223133_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e2310123129_))) - (_tl2310323136_ - (let () (declare (not safe)) (##cdr _e2310123129_)))) - (if (gx#stx-pair? _tl2310323136_) - (let ((_e2310423139_ (gx#syntax-e _tl2310323136_))) + (##car _e2310323129_))) + (_tl2310123136_ + (let () (declare (not safe)) (##cdr _e2310323129_)))) + (if (gx#stx-pair? _tl2310123136_) + (let ((_e2310623139_ (gx#syntax-e _tl2310123136_))) (let ((_hd2310523143_ (let () (declare (not safe)) - (##car _e2310423139_))) - (_tl2310623146_ + (##car _e2310623139_))) + (_tl2310423146_ (let () (declare (not safe)) - (##cdr _e2310423139_)))) - (if (gx#stx-null? _tl2310623146_) + (##cdr _e2310623139_)))) + (if (gx#stx-null? _tl2310423146_) ((lambda (_L23149_ _L23151_) (cons 'begin-annotation (cons '@match-body (cons (if (gx#stx-e _L23151_) - (_generate122473_ - _L23151_ - _L23149_ - _E22829_) + (let () + (declare (not safe)) + (_generate122473_ + _L23151_ + _L23149_ + _E22829_)) _L23149_) '())))) _hd2310523143_ _hd2310223133_) - (_g2309423112_ _g2309523116_)))) - (_g2309423112_ _g2309523116_)))) + (let () + (declare (not safe)) + (_g2309423112_ _g2309523116_))))) + (let () + (declare (not safe)) + (_g2309423112_ _g2309523116_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2309423112_ - _g2309523116_)))) - (_g2309423112_ _g2309523116_))))) + (let () + (declare (not safe)) + (_g2309423112_ + _g2309523116_))))) + (let () + (declare (not safe)) + (_g2309423112_ + _g2309523116_)))))) + (declare (not safe)) (_g2309323167_ _L23083_)))) (___kont4110641107_ (lambda (_L22877_ _L22879_) @@ -4599,41 +5145,41 @@ (_g2289123062_ (lambda (_g2289322915_) (if (gx#stx-pair? _g2289322915_) - (let ((_e2289722918_ + (let ((_e2289922918_ (gx#syntax-e _g2289322915_))) (let ((_hd2289822922_ (let () (declare (not safe)) - (##car _e2289722918_))) - (_tl2289922925_ + (##car _e2289922918_))) + (_tl2289722925_ (let () (declare (not safe)) - (##cdr _e2289722918_)))) + (##cdr _e2289922918_)))) (if (gx#stx-pair? - _tl2289922925_) - (let ((_e2290022928_ + _tl2289722925_) + (let ((_e2290222928_ (gx#syntax-e - _tl2289922925_))) + _tl2289722925_))) (let ((_hd2290122932_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e2290022928_))) - (_tl2290222935_ - (let () (declare (not safe)) (##cdr _e2290022928_)))) - (if (gx#stx-pair? _tl2290222935_) - (let ((_e2290322938_ (gx#syntax-e _tl2290222935_))) + (##car _e2290222928_))) + (_tl2290022935_ + (let () (declare (not safe)) (##cdr _e2290222928_)))) + (if (gx#stx-pair? _tl2290022935_) + (let ((_e2290522938_ (gx#syntax-e _tl2290022935_))) (let ((_hd2290422942_ (let () (declare (not safe)) - (##car _e2290322938_))) - (_tl2290522945_ + (##car _e2290522938_))) + (_tl2290322945_ (let () (declare (not safe)) - (##cdr _e2290322938_)))) - (if (gx#stx-null? _tl2290522945_) + (##cdr _e2290522938_)))) + (if (gx#stx-null? _tl2290322945_) ((lambda (_L22948_ _L22950_ _L22951_) (if (gx#stx-e _L22950_) (let* ((_g2296822983_ @@ -4645,31 +5191,31 @@ (_g2296723028_ (lambda (_g2296922987_) (if (gx#stx-pair? _g2296922987_) - (let ((_e2297222990_ + (let ((_e2297422990_ (gx#syntax-e _g2296922987_))) (let ((_hd2297322994_ (let () (declare (not safe)) - (##car _e2297222990_))) - (_tl2297422997_ + (##car _e2297422990_))) + (_tl2297222997_ (let () (declare (not safe)) - (##cdr _e2297222990_)))) + (##cdr _e2297422990_)))) (if (gx#stx-pair? - _tl2297422997_) - (let ((_e2297523000_ + _tl2297222997_) + (let ((_e2297723000_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2297422997_))) + (gx#syntax-e _tl2297222997_))) (let ((_hd2297623004_ - (let () (declare (not safe)) (##car _e2297523000_))) - (_tl2297723007_ + (let () (declare (not safe)) (##car _e2297723000_))) + (_tl2297523007_ (let () (declare (not safe)) - (##cdr _e2297523000_)))) - (if (gx#stx-null? _tl2297723007_) + (##cdr _e2297723000_)))) + (if (gx#stx-null? _tl2297523007_) ((lambda (_L23010_ _L23012_) (let () (cons (gx#datum->syntax '#f 'let) @@ -4685,19 +5231,32 @@ (cons _L23010_ '()))))) _hd2297623004_ _hd2297322994_) - (_g2296822983_ _g2296922987_)))) - (_g2296822983_ _g2296922987_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2296822983_ - _g2296922987_))))) - (_g2296723028_ - (list (_generate122473_ - _L22950_ - _L22948_ - _E22829_) - (_generate-clauses22472_ - _L22877_ - (cons _L22951_ '()))))) + (let () + (declare (not safe)) + (_g2296822983_ _g2296922987_))))) + (let () + (declare (not safe)) + (_g2296822983_ _g2296922987_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2296822983_ + _g2296922987_))))) + (__tmp42446 + (list (let () + (declare (not safe)) + (_generate122473_ + _L22950_ + _L22948_ + _E22829_)) + (let ((__tmp42447 + (cons _L22951_ '()))) + (declare (not safe)) + (_generate-clauses22472_ + _L22877_ + __tmp42447))))) + (declare (not safe)) + (_g2296723028_ __tmp42446)) (let* ((_g2303223040_ (lambda (_g2303323036_) (gx#raise-syntax-error @@ -4730,20 +5289,35 @@ '()) (cons _L23047_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2303323044_)))) - (_g2303123058_ - (_generate-clauses22472_ - _L22877_ - (cons _L22951_ '())))))) + _g2303323044_))) + (__tmp42444 + (let ((__tmp42445 + (cons _L22951_ '()))) + (declare (not safe)) + (_generate-clauses22472_ + _L22877_ + __tmp42445)))) + (declare (not safe)) + (_g2303123058_ __tmp42444)))) _hd2290422942_ _hd2290122932_ _hd2289822922_) - (_g2289222911_ _g2289322915_)))) - (_g2289222911_ _g2289322915_)))) + (let () + (declare (not safe)) + (_g2289222911_ _g2289322915_))))) + (let () + (declare (not safe)) + (_g2289222911_ _g2289322915_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2289222911_ - _g2289322915_)))) - (_g2289222911_ _g2289322915_))))) + (let () + (declare (not safe)) + (_g2289222911_ + _g2289322915_))))) + (let () + (declare (not safe)) + (_g2289222911_ + _g2289322915_)))))) + (declare (not safe)) (_g2289123062_ _L22879_)))) (___kont4110841109_ (lambda () @@ -4751,20 +5325,20 @@ (cons '@match-body (cons _E22829_ '())))))) (if (gx#stx-pair? ___stx4110141102_) - (let ((_e2283623073_ + (let ((_e2283823073_ (gx#syntax-e ___stx4110141102_))) - (let ((_tl2283823080_ + (let ((_tl2283623080_ (let () (declare (not safe)) - (##cdr _e2283623073_))) + (##cdr _e2283823073_))) (_hd2283723077_ (let () (declare (not safe)) - (##car _e2283623073_)))) - (if (gx#stx-null? _tl2283823080_) + (##car _e2283823073_)))) + (if (gx#stx-null? _tl2283623080_) (___kont4110441105_ _hd2283723077_) (___kont4110641107_ - _tl2283823080_ + _tl2283623080_ _hd2283723077_)))) (___kont4110841109_)))))) (_generate122473_ @@ -4778,48 +5352,48 @@ (_g2247922823_ (lambda (_g2248122508_) (if (gx#stx-pair? _g2248122508_) - (let ((_e2248422511_ + (let ((_e2248622511_ (gx#syntax-e _g2248122508_))) (let ((_hd2248522515_ (let () (declare (not safe)) - (##car _e2248422511_))) - (_tl2248622518_ + (##car _e2248622511_))) + (_tl2248422518_ (let () (declare (not safe)) - (##cdr _e2248422511_)))) - (if (gx#stx-pair? _tl2248622518_) - (let ((_e2248722521_ - (gx#syntax-e _tl2248622518_))) + (##cdr _e2248622511_)))) + (if (gx#stx-pair? _tl2248422518_) + (let ((_e2248922521_ + (gx#syntax-e _tl2248422518_))) (let ((_hd2248822525_ (let () (declare (not safe)) - (##car _e2248722521_))) - (_tl2248922528_ + (##car _e2248922521_))) + (_tl2248722528_ (let () (declare (not safe)) - (##cdr _e2248722521_)))) + (##cdr _e2248922521_)))) (if (gx#stx-pair/null? _hd2248822525_) - (let ((_g42309_ + (let ((_g42448_ (gx#syntax-split-splice _hd2248822525_ '0))) (begin - (let ((_g42310_ + (let ((_g42449_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g42309_) - (##vector-length _g42309_) + (if (##values? _g42448_) + (##vector-length _g42448_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42310_ 2))) - (error "Context expects 2 values" _g42310_))) + (if (not (let () (declare (not safe)) (##fx= _g42449_ 2))) + (error "Context expects 2 values" _g42449_))) (let ((_target2249022531_ - (let () (declare (not safe)) (##vector-ref _g42309_ 0))) + (let () (declare (not safe)) (##vector-ref _g42448_ 0))) (_tl2249222534_ - (let () (declare (not safe)) (##vector-ref _g42309_ 1)))) + (let () (declare (not safe)) (##vector-ref _g42448_ 1)))) (if (gx#stx-null? _tl2249222534_) (letrec ((_loop2249322537_ (lambda (_hd2249122541_ _var2249722544_) @@ -4834,13 +5408,16 @@ (let () (declare (not safe)) (##cdr _e2249422547_)))) - (_loop2249322537_ - _lp-tl2249622554_ - (cons _lp-hd2249522551_ - _var2249722544_)))) + (let ((__tmp42453 + (cons _lp-hd2249522551_ + _var2249722544_))) + (declare (not safe)) + (_loop2249322537_ + _lp-tl2249622554_ + __tmp42453)))) (let ((_var2249822557_ (reverse _var2249722544_))) - (if (gx#stx-null? _tl2248922528_) + (if (gx#stx-null? _tl2248722528_) ((lambda (_L22561_ _L22563_) (let () (gx#check-duplicate-identifiers @@ -4893,109 +5470,140 @@ (cons _L22608_ '()))) (gx#stx-source _stx22464_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2265022661_)))) - (_g2264822679_ - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'lambda) - (cons (foldr (lambda (_g2268222685_ + _g2265022661_))) + (__tmp42450 + (gx#stx-wrap-source + (cons (gx#datum->syntax + '#f + 'lambda) + (cons (foldr (lambda (_g2268222685_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2268322688_) - (cons _g2268222685_ _g2268322688_)) - '() - _L22561_) + _g2268322688_) + (cons _g2268222685_ _g2268322688_)) + '() + _L22561_) + (cons _L22636_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L22636_ '()))) - (gx#stx-source _stx22464_)))))) + (gx#stx-source _stx22464_)))) + (declare (not safe)) + (_g2264822679_ __tmp42450)))) _g2262222633_)))) + (declare (not safe)) (_g2262022691_ _body22477_)))) - _g2259422605_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2259222695_ - (let _recur22699_ ((_rest22702_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause22475_) - (_rest-targets22704_ _tgt-lst22466_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((___stx4112741128_ - _rest22702_) - (_g2270722719_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - ___stx4112741128_)))) - (let ((___kont4113041131_ - (lambda (_L22755_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L22757_) - (let* ((_g2277222784_ - (lambda (_g2277322780_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2277322780_))) - (_g2277122815_ - (lambda (_g2277322788_) - (if (gx#stx-pair? _g2277322788_) - (let ((_e2277622791_ - (gx#syntax-e _g2277322788_))) - (let ((_hd2277722795_ - (let () - (declare (not safe)) - (##car _e2277622791_))) - (_tl2277822798_ - (let () - (declare (not safe)) - (##cdr _e2277622791_)))) - ((lambda (_L22801_ _L22803_) - (|gerbil/core$[1]#generate-match1| - _stx22464_ - _L22803_ - _L22757_ - (_recur22699_ _L22755_ _L22801_) - _E22478_)) - _tl2277822798_ - _hd2277722795_))) - (_g2277222784_ _g2277322788_))))) - (_g2277122815_ _rest-targets22704_)))) - (___kont4113241133_ - (lambda () - (cons _L22563_ - (foldr (lambda (_g2272922732_ _g2273022735_) - (cons _g2272922732_ _g2273022735_)) - '() - _L22561_))))) - (if (gx#stx-pair? ___stx4112741128_) - (let ((_e2271122745_ (gx#syntax-e ___stx4112741128_))) - (let ((_tl2271322752_ - (let () - (declare (not safe)) - (##cdr _e2271122745_))) - (_hd2271222749_ - (let () - (declare (not safe)) - (##car _e2271122745_)))) - (___kont4113041131_ _tl2271322752_ _hd2271222749_))) - (___kont4113241133_))))))))) + _g2259422605_))) + (__tmp42451 + (let _recur22699_ ((_rest22702_ _clause22475_) + (_rest-targets22704_ _tgt-lst22466_)) + (let* ((___stx4112741128_ _rest22702_) + (_g2270722719_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax" + ___stx4112741128_)))) + (let ((___kont4113041131_ + (lambda (_L22755_ _L22757_) + (let* ((_g2277222784_ + (lambda (_g2277322780_) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2277322780_))) + (_g2277122815_ + (lambda (_g2277322788_) + (if (gx#stx-pair? _g2277322788_) + (let ((_e2277822791_ + (gx#syntax-e _g2277322788_))) + (let ((_hd2277722795_ + (let () + (declare (not safe)) + (##car _e2277822791_))) + (_tl2277622798_ + (let () + (declare (not safe)) + (##cdr _e2277822791_)))) + ((lambda (_L22801_ _L22803_) + (let ((__tmp42452 + (let () + (declare (not safe)) + (_recur22699_ + _L22755_ + _L22801_)))) + (declare (not safe)) + (|gerbil/core$[1]#generate-match1| + _stx22464_ + _L22803_ + _L22757_ + __tmp42452 + _E22478_))) + _tl2277622798_ + _hd2277722795_))) + (let () + (declare (not safe)) + (_g2277222784_ _g2277322788_)))))) + (declare (not safe)) + (_g2277122815_ _rest-targets22704_)))) + (___kont4113241133_ + (lambda () + (cons _L22563_ + (foldr (lambda (_g2272922732_ _g2273022735_) + (cons _g2272922732_ _g2273022735_)) + '() + _L22561_))))) + (if (gx#stx-pair? ___stx4112741128_) + (let ((_e2271322745_ (gx#syntax-e ___stx4112741128_))) + (let ((_tl2271122752_ + (let () + (declare (not safe)) + (##cdr _e2271322745_))) + (_hd2271222749_ + (let () + (declare (not safe)) + (##car _e2271322745_)))) + (___kont4113041131_ + _tl2271122752_ + _hd2271222749_))) + (___kont4113241133_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g2259222695_ __tmp42451)))) _var2249822557_ _hd2248522515_) - (_g2248022504_ _g2248122508_))))))) - (_loop2249322537_ _target2249022531_ '())) - (_g2248022504_ _g2248122508_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2248022504_ - _g2248122508_)))) - (_g2248022504_ _g2248122508_)))) - (_g2248022504_ _g2248122508_))))) - (_g2247922823_ - (list (gx#genident 'K) - (apply append - (map |gerbil/core$[1]#match-pattern-vars| - _clause22475_)))))))) - (_generate-body22471_ - (_parse-body22469_ (gx#stx-length _tgt-lst22466_)))))) - (define |gerbil/core$[1]#generate-match| + (let () + (declare (not safe)) + (_g2248022504_ + _g2248122508_)))))))) + (let () + (declare (not safe)) + (_loop2249322537_ _target2249022531_ '()))) + (let () + (declare (not safe)) + (_g2248022504_ _g2248122508_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2248022504_ + _g2248122508_))))) + (let () + (declare (not safe)) + (_g2248022504_ _g2248122508_))))) + (let () + (declare (not safe)) + (_g2248022504_ _g2248122508_))))) + (__tmp42454 + (list (gx#genident 'K) + (apply append + (map |gerbil/core$[1]#match-pattern-vars| + _clause22475_))))) + (declare (not safe)) + (_g2247922823_ __tmp42454))))) + (let ((__tmp42455 + (let ((__tmp42456 (gx#stx-length _tgt-lst22466_))) + (declare (not safe)) + (_parse-body22469_ __tmp42456)))) + (declare (not safe)) + (_generate-body22471_ __tmp42455))))) + (define |gerbil/core$[1]#generate-match| (lambda (_stx22366_ _tgt22368_ _clauses22369_) (letrec ((_reclause22371_ (lambda (_clause22374_) @@ -5021,32 +5629,35 @@ _stx22366_ _clause22374_)))) (if (gx#stx-pair? ___stx4114341144_) - (let ((_e2238122446_ + (let ((_e2238322446_ (gx#syntax-e ___stx4114341144_))) - (let ((_tl2238322453_ + (let ((_tl2238122453_ (let () (declare (not safe)) - (##cdr _e2238122446_))) + (##cdr _e2238322446_))) (_hd2238222450_ (let () (declare (not safe)) - (##car _e2238122446_)))) + (##car _e2238322446_)))) (if (gx#identifier? _hd2238222450_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42311_| + |gerbil/core$[1]#_g42457_| _hd2238222450_) (___kont4114641147_) (___kont4114841149_ - _tl2238322453_ + _tl2238122453_ _hd2238222450_)) (___kont4114841149_ - _tl2238322453_ + _tl2238122453_ _hd2238222450_)))) (___kont4115041151_))))))) - (|gerbil/core$[1]#generate-match*| - _stx22366_ - (cons _tgt22368_ '()) - (gx#stx-map _reclause22371_ _clauses22369_))))) + (let ((__tmp42459 (cons _tgt22368_ '())) + (__tmp42458 (gx#stx-map _reclause22371_ _clauses22369_))) + (declare (not safe)) + (|gerbil/core$[1]#generate-match*| + _stx22366_ + __tmp42459 + __tmp42458))))) (define |gerbil/core$[:0:]#match| (lambda (_stx29975_) (let* ((___stx4117141172_ _stx29975_) @@ -5168,113 +5779,115 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g3008030091_)))) (_g3007830109_ - (|gerbil/core$[1]#generate-match| - _stx29975_ - _L30067_ - _L30036_))))) + (let () + (declare (not safe)) + (|gerbil/core$[1]#generate-match| + _stx29975_ + _L30067_ + _L30036_)))))) _g3005330064_)))) (_g3005130113_ (gx#genident _L30038_)))))) (let* ((___match4122441225_ - (lambda (_e2999830016_ + (lambda (_e3000030016_ _hd2999930020_ - _tl3000030023_ - _e3000130026_ + _tl2999830023_ + _e3000330026_ _hd3000230030_ - _tl3000330033_) - (let ((_L30036_ _tl3000330033_) + _tl3000130033_) + (let ((_L30036_ _tl3000130033_) (_L30038_ _hd3000230030_)) (if (gx#stx-list? _L30036_) (___kont4117841179_ _L30036_ _L30038_) - (_g2998030009_))))) + (let () (declare (not safe)) (_g2998030009_)))))) (___match4121241213_ - (lambda (_e2999030124_ + (lambda (_e2999230124_ _hd2999130128_ - _tl2999230131_ - _e2999330134_ + _tl2999030131_ + _e2999530134_ _hd2999430138_ - _tl2999530141_) - (let ((_L30144_ _tl2999530141_)) + _tl2999330141_) + (let ((_L30144_ _tl2999330141_)) (if (gx#stx-list? _L30144_) (___kont4117641177_ _L30144_) (___match4122441225_ - _e2999030124_ + _e2999230124_ _hd2999130128_ - _tl2999230131_ - _e2999330134_ + _tl2999030131_ + _e2999530134_ _hd2999430138_ - _tl2999530141_))))) + _tl2999330141_))))) (___match4119641197_ - (lambda (_e2998330229_ + (lambda (_e2998530229_ _hd2998430233_ - _tl2998530236_ - _e2998630239_ + _tl2998330236_ + _e2998830239_ _hd2998730243_ - _tl2998830246_) - (let ((_L30249_ _tl2998830246_)) + _tl2998630246_) + (let ((_L30249_ _tl2998630246_)) (if (gx#stx-list? _L30249_) (___kont4117441175_ _L30249_) (___match4122441225_ - _e2998330229_ + _e2998530229_ _hd2998430233_ - _tl2998530236_ - _e2998630239_ + _tl2998330236_ + _e2998830239_ _hd2998730243_ - _tl2998830246_)))))) + _tl2998630246_)))))) (if (gx#stx-pair? ___stx4117141172_) - (let ((_e2998330229_ (gx#syntax-e ___stx4117141172_))) - (let ((_tl2998530236_ - (let () (declare (not safe)) (##cdr _e2998330229_))) + (let ((_e2998530229_ (gx#syntax-e ___stx4117141172_))) + (let ((_tl2998330236_ + (let () (declare (not safe)) (##cdr _e2998530229_))) (_hd2998430233_ (let () (declare (not safe)) - (##car _e2998330229_)))) - (if (gx#stx-pair? _tl2998530236_) - (let ((_e2998630239_ (gx#syntax-e _tl2998530236_))) - (let ((_tl2998830246_ + (##car _e2998530229_)))) + (if (gx#stx-pair? _tl2998330236_) + (let ((_e2998830239_ (gx#syntax-e _tl2998330236_))) + (let ((_tl2998630246_ (let () (declare (not safe)) - (##cdr _e2998630239_))) + (##cdr _e2998830239_))) (_hd2998730243_ (let () (declare (not safe)) - (##car _e2998630239_)))) + (##car _e2998830239_)))) (if (gx#identifier? _hd2998730243_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42312_| + |gerbil/core$[1]#_g42461_| _hd2998730243_) (___match4119641197_ - _e2998330229_ + _e2998530229_ _hd2998430233_ - _tl2998530236_ - _e2998630239_ + _tl2998330236_ + _e2998830239_ _hd2998730243_ - _tl2998830246_) + _tl2998630246_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42313_| + |gerbil/core$[1]#_g42460_| _hd2998730243_) (___match4121241213_ - _e2998330229_ + _e2998530229_ _hd2998430233_ - _tl2998530236_ - _e2998630239_ + _tl2998330236_ + _e2998830239_ _hd2998730243_ - _tl2998830246_) + _tl2998630246_) (___match4122441225_ - _e2998330229_ + _e2998530229_ _hd2998430233_ - _tl2998530236_ - _e2998630239_ + _tl2998330236_ + _e2998830239_ _hd2998730243_ - _tl2998830246_))) + _tl2998630246_))) (___match4122441225_ - _e2998330229_ + _e2998530229_ _hd2998430233_ - _tl2998530236_ - _e2998630239_ + _tl2998330236_ + _e2998830239_ _hd2998730243_ - _tl2998830246_)))) - (_g2998030009_)))) - (_g2998030009_))))))) + _tl2998630246_)))) + (let () (declare (not safe)) (_g2998030009_))))) + (let () (declare (not safe)) (_g2998030009_)))))))) (define |gerbil/core$[:0:]#match*| (lambda (_stx30331_) (let* ((_g3033430358_ @@ -5283,52 +5896,52 @@ (_g3033330570_ (lambda (_g3033530362_) (if (gx#stx-pair? _g3033530362_) - (let ((_e3033830365_ (gx#syntax-e _g3033530362_))) + (let ((_e3034030365_ (gx#syntax-e _g3033530362_))) (let ((_hd3033930369_ (let () (declare (not safe)) - (##car _e3033830365_))) - (_tl3034030372_ + (##car _e3034030365_))) + (_tl3033830372_ (let () (declare (not safe)) - (##cdr _e3033830365_)))) - (if (gx#stx-pair? _tl3034030372_) - (let ((_e3034130375_ - (gx#syntax-e _tl3034030372_))) + (##cdr _e3034030365_)))) + (if (gx#stx-pair? _tl3033830372_) + (let ((_e3034330375_ + (gx#syntax-e _tl3033830372_))) (let ((_hd3034230379_ (let () (declare (not safe)) - (##car _e3034130375_))) - (_tl3034330382_ + (##car _e3034330375_))) + (_tl3034130382_ (let () (declare (not safe)) - (##cdr _e3034130375_)))) + (##cdr _e3034330375_)))) (if (gx#stx-pair/null? _hd3034230379_) - (let ((_g42314_ + (let ((_g42462_ (gx#syntax-split-splice _hd3034230379_ '0))) (begin - (let ((_g42315_ + (let ((_g42463_ (let () (declare (not safe)) - (if (##values? _g42314_) + (if (##values? _g42462_) (##vector-length - _g42314_) + _g42462_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42315_ 2))) + (##fx= _g42463_ 2))) (error "Context expects 2 values" - _g42315_))) + _g42463_))) (let ((_target3034430385_ (let () (declare (not safe)) - (##vector-ref _g42314_ 0))) + (##vector-ref _g42462_ 0))) (_tl3034630388_ (let () (declare (not safe)) - (##vector-ref _g42314_ 1)))) + (##vector-ref _g42462_ 1)))) (if (gx#stx-null? _tl3034630388_) (letrec ((_loop3034730391_ (lambda (_hd3034530395_ @@ -5360,41 +5973,41 @@ (lambda (_g3043630456_) (if (gx#stx-pair/null? _g3043630456_) - (let ((_g42316_ + (let ((_g42464_ (gx#syntax-split-splice _g3043630456_ '0))) (begin - (let ((_g42317_ + (let ((_g42465_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42316_) - (##vector-length _g42316_) + _g42464_) + (##vector-length _g42464_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42317_ 2))) - (error "Context expects 2 values" _g42317_))) + (##fx= _g42465_ 2))) + (error "Context expects 2 values" _g42465_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3043830459_ (let () (declare (not safe)) (##vector-ref - _g42316_ + _g42464_ 0))) (_tl3044030462_ (let () (declare (not safe)) (##vector-ref - _g42316_ + _g42464_ 1)))) (if (gx#stx-null? _tl3044030462_) @@ -5452,15 +6065,19 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g3050630517_)))) (_g3050430546_ - (|gerbil/core$[1]#generate-match*| - _stx30331_ - (foldr (lambda (_g3054930552_ - _g3055030555_) - (cons _g3054930552_ - _g3055030555_)) - '() - _L30489_) - _L30415_))))) + (let ((__tmp42466 + (foldr (lambda (_g3054930552_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g3055030555_) + (cons _g3054930552_ _g3055030555_)) + '() + _L30489_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (|gerbil/core$[1]#generate-match*| + _stx30331_ + __tmp42466 + _L30415_)))))) _$e3044630485_)))))) (_loop3044130465_ _target3043830459_ '())) (_g3043530452_ _g3043630456_))))) @@ -5476,7 +6093,7 @@ '() _L30417_)))) (_g3033430358_ _g3033530362_))) - _tl3034330382_ + _tl3034130382_ _e3035230411_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop3034730391_ @@ -5516,8 +6133,8 @@ (___kont4123841239_ (lambda (_L30776_ _L30778_ _L30779_) (cons (gx#datum->syntax '#f 'match*) - (cons (foldr (lambda (_g3080130808_ _g3080230811_) - (cons _g3080130808_ _g3080230811_)) + (cons (foldr (lambda (_g3080530808_ _g3080630811_) + (cons _g3080530808_ _g3080630811_)) '() _L30778_) (cons (cons (foldr (lambda (_g3080330814_ @@ -5526,20 +6143,20 @@ _g3080430817_)) '() _L30779_) - (foldr (lambda (_g3080530820_ - _g3080630823_) - (cons _g3080530820_ - _g3080630823_)) + (foldr (lambda (_g3080130820_ + _g3080230823_) + (cons _g3080130820_ + _g3080230823_)) '() _L30776_)) '())))))) (let* ((___match4132041321_ - (lambda (_e3062830672_ + (lambda (_e3063030672_ _hd3062930676_ - _tl3063030679_ - _e3063130682_ + _tl3062830679_ + _e3063330682_ _hd3063230686_ - _tl3063330689_ + _tl3063130689_ ___splice4124041241_ _target3063430692_ _tl3063630695_) @@ -5559,46 +6176,48 @@ (declare (not safe)) (##car _e3063830710_)))) (if (gx#stx-pair? _lp-hd3063930714_) - (let ((_e3064530720_ + (let ((_e3064730720_ (gx#syntax-e _lp-hd3063930714_))) - (let ((_tl3064730727_ + (let ((_tl3064530727_ (let () (declare (not safe)) - (##cdr _e3064530720_))) + (##cdr _e3064730720_))) (_hd3064630724_ (let () (declare (not safe)) - (##car _e3064530720_)))) + (##car _e3064730720_)))) (if (gx#stx-pair? - _tl3064730727_) - (let ((_e3064830730_ + _tl3064530727_) + (let ((_e3065030730_ (gx#syntax-e - _tl3064730727_))) - (let ((_tl3065030737_ + _tl3064530727_))) + (let ((_tl3064830737_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e3064830730_))) + (##cdr _e3065030730_))) (_hd3064930734_ - (let () (declare (not safe)) (##car _e3064830730_)))) - (if (gx#stx-null? _tl3065030737_) + (let () (declare (not safe)) (##car _e3065030730_)))) + (if (gx#stx-null? _tl3064830737_) (_loop3063730698_ _lp-tl3064030717_ (cons _hd3064930734_ _expr3064130705_) (cons _hd3064630724_ _hd3064230707_)) - (_g3058230665_)))) - (_g3058230665_)))) + (let () (declare (not safe)) (_g3058230665_))))) + (let () (declare (not safe)) (_g3058230665_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3058230665_)))) + (let () + (declare (not safe)) + (_g3058230665_))))) (let ((_hd3064430743_ (reverse _hd3064230707_)) (_expr3064330740_ (reverse _expr3064130705_))) - (if (gx#stx-pair/null? _tl3063330689_) + (if (gx#stx-pair/null? _tl3063130689_) (let ((___splice4124241243_ (gx#syntax-split-splice - _tl3063330689_ + _tl3063130689_ '0))) (let ((_tl3065330749_ (let () @@ -5639,16 +6258,20 @@ _hd3064430743_)))))) (_loop3065430752_ _target3065130746_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3058230665_)))) - (_g3058230665_))))))) + (let () + (declare (not safe)) + (_g3058230665_))))) + (let () + (declare (not safe)) + (_g3058230665_)))))))) (_loop3063730698_ _target3063430692_ '() '())))) (___match4131241313_ - (lambda (_e3062830672_ + (lambda (_e3063030672_ _hd3062930676_ - _tl3063030679_ - _e3063130682_ + _tl3062830679_ + _e3063330682_ _hd3063230686_ - _tl3063330689_) + _tl3063130689_) (if (gx#stx-pair/null? _hd3063230686_) (let ((___splice4124041241_ (gx#syntax-split-splice _hd3063230686_ '0))) @@ -5662,30 +6285,32 @@ (##vector-ref ___splice4124041241_ '0)))) (if (gx#stx-null? _tl3063630695_) (___match4132041321_ - _e3062830672_ + _e3063030672_ _hd3062930676_ - _tl3063030679_ - _e3063130682_ + _tl3062830679_ + _e3063330682_ _hd3063230686_ - _tl3063330689_ + _tl3063130689_ ___splice4124041241_ _target3063430692_ _tl3063630695_) - (_g3058230665_)))) - (_g3058230665_)))) + (let () + (declare (not safe)) + (_g3058230665_))))) + (let () (declare (not safe)) (_g3058230665_))))) (___match4130041301_ - (lambda (_e3060430833_ + (lambda (_e3060630833_ _hd3060530837_ - _tl3060630840_ - _e3060730843_ + _tl3060430840_ + _e3060930843_ _hd3060830847_ - _tl3060930850_ - _e3061030853_ + _tl3060730850_ + _e3061230853_ _hd3061130857_ - _tl3061230860_ - _e3061330863_ + _tl3061030860_ + _e3061530863_ _hd3061430867_ - _tl3061530870_ + _tl3061330870_ ___splice4123641237_ _target3061630873_ _tl3061830876_) @@ -5712,28 +6337,30 @@ (_L30905_ _hd3061430867_) (_L30906_ _hd3061130857_) (_L30907_ _hd3060530837_)) - (if (|gerbil/core$[1]#match-pattern?| - _L30906_) + (if (let () + (declare (not safe)) + (|gerbil/core$[1]#match-pattern?| + _L30906_)) (___kont4123441235_ _L30903_ _L30905_ _L30906_ _L30907_) (___match4131241313_ - _e3060430833_ + _e3060630833_ _hd3060530837_ - _tl3060630840_ - _e3060730843_ + _tl3060430840_ + _e3060930843_ _hd3060830847_ - _tl3060930850_)))))))) + _tl3060730850_)))))))) (_loop3061930879_ _target3061630873_ '())))) (___match4126641267_ - (lambda (_e3058530945_ + (lambda (_e3058730945_ _hd3058630949_ - _tl3058730952_ - _e3058830955_ + _tl3058530952_ + _e3059030955_ _hd3058930959_ - _tl3059030962_ + _tl3058830962_ ___splice4123241233_ _target3059130965_ _tl3059330968_) @@ -5760,28 +6387,28 @@ _body3059930991_)))))) (_loop3059430971_ _target3059130965_ '()))))) (if (gx#stx-pair? ___stx4122741228_) - (let ((_e3058530945_ (gx#syntax-e ___stx4122741228_))) - (let ((_tl3058730952_ - (let () (declare (not safe)) (##cdr _e3058530945_))) + (let ((_e3058730945_ (gx#syntax-e ___stx4122741228_))) + (let ((_tl3058530952_ + (let () (declare (not safe)) (##cdr _e3058730945_))) (_hd3058630949_ (let () (declare (not safe)) - (##car _e3058530945_)))) - (if (gx#stx-pair? _tl3058730952_) - (let ((_e3058830955_ (gx#syntax-e _tl3058730952_))) - (let ((_tl3059030962_ + (##car _e3058730945_)))) + (if (gx#stx-pair? _tl3058530952_) + (let ((_e3059030955_ (gx#syntax-e _tl3058530952_))) + (let ((_tl3058830962_ (let () (declare (not safe)) - (##cdr _e3058830955_))) + (##cdr _e3059030955_))) (_hd3058930959_ (let () (declare (not safe)) - (##car _e3058830955_)))) + (##car _e3059030955_)))) (if (gx#stx-null? _hd3058930959_) - (if (gx#stx-pair/null? _tl3059030962_) + (if (gx#stx-pair/null? _tl3058830962_) (let ((___splice4123241233_ (gx#syntax-split-splice - _tl3059030962_ + _tl3058830962_ '0))) (let ((_tl3059330968_ (let () @@ -5797,12 +6424,12 @@ '0)))) (if (gx#stx-null? _tl3059330968_) (___match4126641267_ - _e3058530945_ + _e3058730945_ _hd3058630949_ - _tl3058730952_ - _e3058830955_ + _tl3058530952_ + _e3059030955_ _hd3058930959_ - _tl3059030962_ + _tl3058830962_ ___splice4123241233_ _target3059130965_ _tl3059330968_) @@ -5829,17 +6456,22 @@ (if (gx#stx-null? _tl3063630695_) (___match4132041321_ - _e3058530945_ + _e3058730945_ _hd3058630949_ - _tl3058730952_ - _e3058830955_ + _tl3058530952_ + _e3059030955_ _hd3058930959_ - _tl3059030962_ + _tl3058830962_ ___splice4124041241_ _target3063430692_ _tl3063630695_) - (_g3058230665_)))) - (_g3058230665_))))) + (let () + (declare + (not safe)) + (_g3058230665_))))) + (let () + (declare (not safe)) + (_g3058230665_)))))) (if (gx#stx-pair/null? _hd3058930959_) (let ((___splice4124041241_ (gx#syntax-split-splice @@ -5859,47 +6491,51 @@ '0)))) (if (gx#stx-null? _tl3063630695_) (___match4132041321_ - _e3058530945_ + _e3058730945_ _hd3058630949_ - _tl3058730952_ - _e3058830955_ + _tl3058530952_ + _e3059030955_ _hd3058930959_ - _tl3059030962_ + _tl3058830962_ ___splice4124041241_ _target3063430692_ _tl3063630695_) - (_g3058230665_)))) - (_g3058230665_))) + (let () + (declare (not safe)) + (_g3058230665_))))) + (let () + (declare (not safe)) + (_g3058230665_)))) (if (gx#stx-pair? _hd3058930959_) - (let ((_e3061030853_ + (let ((_e3061230853_ (gx#syntax-e _hd3058930959_))) - (let ((_tl3061230860_ + (let ((_tl3061030860_ (let () (declare (not safe)) - (##cdr _e3061030853_))) + (##cdr _e3061230853_))) (_hd3061130857_ (let () (declare (not safe)) - (##car _e3061030853_)))) - (if (gx#stx-pair? _tl3061230860_) - (let ((_e3061330863_ + (##car _e3061230853_)))) + (if (gx#stx-pair? _tl3061030860_) + (let ((_e3061530863_ (gx#syntax-e - _tl3061230860_))) - (let ((_tl3061530870_ + _tl3061030860_))) + (let ((_tl3061330870_ (let () (declare (not safe)) - (##cdr _e3061330863_))) + (##cdr _e3061530863_))) (_hd3061430867_ (let () (declare (not safe)) - (##car _e3061330863_)))) + (##car _e3061530863_)))) (if (gx#stx-null? - _tl3061530870_) + _tl3061330870_) (if (gx#stx-pair/null? - _tl3059030962_) + _tl3058830962_) (let ((___splice4123641237_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl3059030962_ '0))) + (gx#syntax-split-splice _tl3058830962_ '0))) (let ((_tl3061830876_ (let () (declare (not safe)) @@ -5910,18 +6546,18 @@ (##vector-ref ___splice4123641237_ '0)))) (if (gx#stx-null? _tl3061830876_) (___match4130041301_ - _e3058530945_ + _e3058730945_ _hd3058630949_ - _tl3058730952_ - _e3058830955_ + _tl3058530952_ + _e3059030955_ _hd3058930959_ - _tl3059030962_ - _e3061030853_ + _tl3058830962_ + _e3061230853_ _hd3061130857_ - _tl3061230860_ - _e3061330863_ + _tl3061030860_ + _e3061530863_ _hd3061430867_ - _tl3061530870_ + _tl3061330870_ ___splice4123641237_ _target3061630873_ _tl3061830876_) @@ -5944,17 +6580,19 @@ '0)))) (if (gx#stx-null? _tl3063630695_) (___match4132041321_ - _e3058530945_ + _e3058730945_ _hd3058630949_ - _tl3058730952_ - _e3058830955_ + _tl3058530952_ + _e3059030955_ _hd3058930959_ - _tl3059030962_ + _tl3058830962_ ___splice4124041241_ _target3063430692_ _tl3063630695_) - (_g3058230665_)))) - (_g3058230665_))))) + (let () + (declare (not safe)) + (_g3058230665_))))) + (let () (declare (not safe)) (_g3058230665_)))))) (if (gx#stx-pair/null? _hd3058930959_) (let ((___splice4124041241_ (gx#syntax-split-splice _hd3058930959_ '0))) @@ -5968,17 +6606,17 @@ (##vector-ref ___splice4124041241_ '0)))) (if (gx#stx-null? _tl3063630695_) (___match4132041321_ - _e3058530945_ + _e3058730945_ _hd3058630949_ - _tl3058730952_ - _e3058830955_ + _tl3058530952_ + _e3059030955_ _hd3058930959_ - _tl3059030962_ + _tl3058830962_ ___splice4124041241_ _target3063430692_ _tl3063630695_) - (_g3058230665_)))) - (_g3058230665_))) + (let () (declare (not safe)) (_g3058230665_))))) + (let () (declare (not safe)) (_g3058230665_)))) (if (gx#stx-pair/null? _hd3058930959_) (let ((___splice4124041241_ (gx#syntax-split-splice _hd3058930959_ '0))) @@ -5992,17 +6630,17 @@ (##vector-ref ___splice4124041241_ '0)))) (if (gx#stx-null? _tl3063630695_) (___match4132041321_ - _e3058530945_ + _e3058730945_ _hd3058630949_ - _tl3058730952_ - _e3058830955_ + _tl3058530952_ + _e3059030955_ _hd3058930959_ - _tl3059030962_ + _tl3058830962_ ___splice4124041241_ _target3063430692_ _tl3063630695_) - (_g3058230665_)))) - (_g3058230665_))))) + (let () (declare (not safe)) (_g3058230665_))))) + (let () (declare (not safe)) (_g3058230665_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd3058930959_) @@ -6027,17 +6665,22 @@ (if (gx#stx-null? _tl3063630695_) (___match4132041321_ - _e3058530945_ + _e3058730945_ _hd3058630949_ - _tl3058730952_ - _e3058830955_ + _tl3058530952_ + _e3059030955_ _hd3058930959_ - _tl3059030962_ + _tl3058830962_ ___splice4124041241_ _target3063430692_ _tl3063630695_) - (_g3058230665_)))) - (_g3058230665_))))) + (let () + (declare + (not safe)) + (_g3058230665_))))) + (let () + (declare (not safe)) + (_g3058230665_)))))) (if (gx#stx-pair/null? _hd3058930959_) (let ((___splice4124041241_ (gx#syntax-split-splice @@ -6057,19 +6700,23 @@ '0)))) (if (gx#stx-null? _tl3063630695_) (___match4132041321_ - _e3058530945_ + _e3058730945_ _hd3058630949_ - _tl3058730952_ - _e3058830955_ + _tl3058530952_ + _e3059030955_ _hd3058930959_ - _tl3059030962_ + _tl3058830962_ ___splice4124041241_ _target3063430692_ _tl3063630695_) - (_g3058230665_)))) - (_g3058230665_)))))) - (_g3058230665_)))) - (_g3058230665_))))))) + (let () + (declare (not safe)) + (_g3058230665_))))) + (let () + (declare (not safe)) + (_g3058230665_))))))) + (let () (declare (not safe)) (_g3058230665_))))) + (let () (declare (not safe)) (_g3058230665_)))))))) (define |gerbil/core$[:0:]#with*| (lambda (_$stx31028_) (let* ((___stx4132341324_ _$stx31028_) @@ -6102,12 +6749,12 @@ '() _L31142_)))))) (let* ((___match4139641397_ - (lambda (_e3106531092_ + (lambda (_e3106731092_ _hd3106631096_ - _tl3106731099_ - _e3106831102_ + _tl3106531099_ + _e3107031102_ _hd3106931106_ - _tl3107031109_ + _tl3106831109_ ___splice4133241333_ _target3107131112_ _tl3107331115_) @@ -6134,21 +6781,21 @@ _body3107931138_)))))) (_loop3107431118_ _target3107131112_ '())))) (___match4137441375_ - (lambda (_e3104031175_ + (lambda (_e3104231175_ _hd3104131179_ - _tl3104231182_ - _e3104331185_ + _tl3104031182_ + _e3104531185_ _hd3104431189_ - _tl3104531192_ - _e3104631195_ + _tl3104331192_ + _e3104831195_ _hd3104731199_ - _tl3104831202_ - _e3104931205_ + _tl3104631202_ + _e3105131205_ _hd3105031209_ - _tl3105131212_ - _e3105231215_ + _tl3104931212_ + _e3105431215_ _hd3105331219_ - _tl3105431222_ + _tl3105231222_ ___splice4132841329_ _target3105531225_ _tl3105731228_) @@ -6173,72 +6820,72 @@ (reverse _body3106231238_))) (___kont4132641327_ _body3106331251_ - _tl3104831202_ + _tl3104631202_ _hd3105331219_ _hd3105031209_ _hd3104131179_)))))) (_loop3105831231_ _target3105531225_ '()))))) (if (gx#stx-pair? ___stx4132341324_) - (let ((_e3104031175_ (gx#syntax-e ___stx4132341324_))) - (let ((_tl3104231182_ - (let () (declare (not safe)) (##cdr _e3104031175_))) + (let ((_e3104231175_ (gx#syntax-e ___stx4132341324_))) + (let ((_tl3104031182_ + (let () (declare (not safe)) (##cdr _e3104231175_))) (_hd3104131179_ (let () (declare (not safe)) - (##car _e3104031175_)))) - (if (gx#stx-pair? _tl3104231182_) - (let ((_e3104331185_ (gx#syntax-e _tl3104231182_))) - (let ((_tl3104531192_ + (##car _e3104231175_)))) + (if (gx#stx-pair? _tl3104031182_) + (let ((_e3104531185_ (gx#syntax-e _tl3104031182_))) + (let ((_tl3104331192_ (let () (declare (not safe)) - (##cdr _e3104331185_))) + (##cdr _e3104531185_))) (_hd3104431189_ (let () (declare (not safe)) - (##car _e3104331185_)))) + (##car _e3104531185_)))) (if (gx#stx-pair? _hd3104431189_) - (let ((_e3104631195_ + (let ((_e3104831195_ (gx#syntax-e _hd3104431189_))) - (let ((_tl3104831202_ + (let ((_tl3104631202_ (let () (declare (not safe)) - (##cdr _e3104631195_))) + (##cdr _e3104831195_))) (_hd3104731199_ (let () (declare (not safe)) - (##car _e3104631195_)))) + (##car _e3104831195_)))) (if (gx#stx-pair? _hd3104731199_) - (let ((_e3104931205_ + (let ((_e3105131205_ (gx#syntax-e _hd3104731199_))) - (let ((_tl3105131212_ + (let ((_tl3104931212_ (let () (declare (not safe)) - (##cdr _e3104931205_))) + (##cdr _e3105131205_))) (_hd3105031209_ (let () (declare (not safe)) - (##car _e3104931205_)))) - (if (gx#stx-pair? _tl3105131212_) - (let ((_e3105231215_ + (##car _e3105131205_)))) + (if (gx#stx-pair? _tl3104931212_) + (let ((_e3105431215_ (gx#syntax-e - _tl3105131212_))) - (let ((_tl3105431222_ + _tl3104931212_))) + (let ((_tl3105231222_ (let () (declare (not safe)) - (##cdr _e3105231215_))) + (##cdr _e3105431215_))) (_hd3105331219_ (let () (declare (not safe)) - (##car _e3105231215_)))) + (##car _e3105431215_)))) (if (gx#stx-null? - _tl3105431222_) + _tl3105231222_) (if (gx#stx-pair/null? - _tl3104531192_) + _tl3104331192_) (let ((___splice4132841329_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl3104531192_ '0))) + (gx#syntax-split-splice _tl3104331192_ '0))) (let ((_tl3105731228_ (let () (declare (not safe)) @@ -6249,35 +6896,39 @@ (##vector-ref ___splice4132841329_ '0)))) (if (gx#stx-null? _tl3105731228_) (___match4137441375_ - _e3104031175_ + _e3104231175_ _hd3104131179_ - _tl3104231182_ - _e3104331185_ + _tl3104031182_ + _e3104531185_ _hd3104431189_ - _tl3104531192_ - _e3104631195_ + _tl3104331192_ + _e3104831195_ _hd3104731199_ - _tl3104831202_ - _e3104931205_ + _tl3104631202_ + _e3105131205_ _hd3105031209_ - _tl3105131212_ - _e3105231215_ + _tl3104931212_ + _e3105431215_ _hd3105331219_ - _tl3105431222_ + _tl3105231222_ ___splice4132841329_ _target3105531225_ _tl3105731228_) - (_g3103331085_)))) - (_g3103331085_)) - (_g3103331085_)))) + (let () (declare (not safe)) (_g3103331085_))))) + (let () (declare (not safe)) (_g3103331085_))) + (let () (declare (not safe)) (_g3103331085_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3103331085_)))) - (_g3103331085_)))) + (let () + (declare (not safe)) + (_g3103331085_))))) + (let () + (declare (not safe)) + (_g3103331085_))))) (if (gx#stx-null? _hd3104431189_) - (if (gx#stx-pair/null? _tl3104531192_) + (if (gx#stx-pair/null? _tl3104331192_) (let ((___splice4133241333_ (gx#syntax-split-splice - _tl3104531192_ + _tl3104331192_ '0))) (let ((_tl3107331115_ (let () @@ -6293,20 +6944,26 @@ '0)))) (if (gx#stx-null? _tl3107331115_) (___match4139641397_ - _e3104031175_ + _e3104231175_ _hd3104131179_ - _tl3104231182_ - _e3104331185_ + _tl3104031182_ + _e3104531185_ _hd3104431189_ - _tl3104531192_ + _tl3104331192_ ___splice4133241333_ _target3107131112_ _tl3107331115_) - (_g3103331085_)))) - (_g3103331085_)) - (_g3103331085_))))) - (_g3103331085_)))) - (_g3103331085_))))))) + (let () + (declare (not safe)) + (_g3103331085_))))) + (let () + (declare (not safe)) + (_g3103331085_))) + (let () + (declare (not safe)) + (_g3103331085_)))))) + (let () (declare (not safe)) (_g3103331085_))))) + (let () (declare (not safe)) (_g3103331085_)))))))) (define |gerbil/core$[:0:]#?| (lambda (_$stx31300_) (let* ((___stx4139941400_ _$stx31300_) @@ -6423,217 +7080,249 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (let* ((___match4157241573_ - (lambda (_e3140131637_ + (lambda (_e3140331637_ _hd3140231641_ - _tl3140331644_ - _e3140431647_ + _tl3140131644_ + _e3140631647_ _hd3140531651_ - _tl3140631654_ - _e3140731657_ + _tl3140431654_ + _e3140931657_ _hd3140831661_ - _tl3140931664_) + _tl3140731664_) (if (gx#identifier? _hd3140831661_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3140831661_) - (if (gx#stx-pair? _tl3140931664_) - (let ((_e3141031667_ - (gx#syntax-e _tl3140931664_))) - (let ((_tl3141231674_ + (if (gx#stx-pair? _tl3140731664_) + (let ((_e3141231667_ + (gx#syntax-e _tl3140731664_))) + (let ((_tl3141031674_ (let () (declare (not safe)) - (##cdr _e3141031667_))) + (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) - (if (gx#stx-null? _tl3141231674_) + (##car _e3141231667_)))) + (if (gx#stx-null? _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3140531651_ _hd3140231641_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))) (if (gx#stx-datum? _hd3140831661_) (let ((_e3142531594_ (gx#stx-e _hd3140831661_))) (if (equal? _e3142531594_ '::) - (if (gx#stx-pair? _tl3140931664_) - (let ((_e3142631598_ - (gx#syntax-e _tl3140931664_))) - (let ((_tl3142831605_ + (if (gx#stx-pair? _tl3140731664_) + (let ((_e3142831598_ + (gx#syntax-e _tl3140731664_))) + (let ((_tl3142631605_ (let () (declare (not safe)) - (##cdr _e3142631598_))) + (##cdr _e3142831598_))) (_hd3142731602_ (let () (declare (not safe)) - (##car _e3142631598_)))) - (if (gx#stx-null? _tl3142831605_) + (##car _e3142831598_)))) + (if (gx#stx-null? _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3140531651_ _hd3140231641_) (if (gx#stx-pair? - _tl3142831605_) - (let ((_e3144631508_ + _tl3142631605_) + (let ((_e3144831508_ (gx#syntax-e - _tl3142831605_))) - (let ((_tl3144831515_ + _tl3142631605_))) + (let ((_tl3144631515_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3144631508_))) + (##cdr _e3144831508_))) (_hd3144731512_ - (let () (declare (not safe)) (##car _e3144631508_)))) + (let () (declare (not safe)) (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) - (if (gx#stx-pair? _tl3144831515_) - (let ((_e3144931518_ (gx#syntax-e _tl3144831515_))) - (let ((_tl3145131525_ + (if (gx#stx-pair? _tl3144631515_) + (let ((_e3145131518_ (gx#syntax-e _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ (let () (declare (not safe)) - (##car _e3144931518_)))) - (if (gx#stx-null? _tl3145131525_) + (##car _e3145131518_)))) + (if (gx#stx-null? _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3140531651_ _hd3140231641_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) - (_g3131131457_)))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_))))) - (_g3131131457_)) - (_g3131131457_))) - (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_)))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_)))) + (let () (declare (not safe)) (_g3131131457_)))))) (___match4155241553_ - (lambda (_e3139231705_ + (lambda (_e3139431705_ _hd3139331709_ - _tl3139431712_ - _e3139531715_ + _tl3139231712_ + _e3139731715_ _hd3139631719_ - _tl3139731722_) - (if (gx#stx-null? _tl3139731722_) + _tl3139531722_) + (if (gx#stx-null? _tl3139531722_) (___kont4141441415_ _hd3139631719_ _hd3139331709_) - (if (gx#stx-pair? _tl3139731722_) - (let ((_e3140731657_ - (gx#syntax-e _tl3139731722_))) - (let ((_tl3140931664_ + (if (gx#stx-pair? _tl3139531722_) + (let ((_e3140931657_ + (gx#syntax-e _tl3139531722_))) + (let ((_tl3140731664_ (let () (declare (not safe)) - (##cdr _e3140731657_))) + (##cdr _e3140931657_))) (_hd3140831661_ (let () (declare (not safe)) - (##car _e3140731657_)))) + (##car _e3140931657_)))) (if (gx#identifier? _hd3140831661_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3140831661_) - (if (gx#stx-pair? _tl3140931664_) - (let ((_e3141031667_ + (if (gx#stx-pair? _tl3140731664_) + (let ((_e3141231667_ (gx#syntax-e - _tl3140931664_))) - (let ((_tl3141231674_ + _tl3140731664_))) + (let ((_tl3141031674_ (let () (declare (not safe)) - (##cdr _e3141031667_))) + (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) + (##car _e3141231667_)))) (if (gx#stx-null? - _tl3141231674_) + _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3139631719_ _hd3139331709_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) (if (gx#stx-datum? _hd3140831661_) (let ((_e3142531594_ (gx#stx-e _hd3140831661_))) (if (equal? _e3142531594_ '::) (if (gx#stx-pair? - _tl3140931664_) - (let ((_e3142631598_ + _tl3140731664_) + (let ((_e3142831598_ (gx#syntax-e - _tl3140931664_))) - (let ((_tl3142831605_ + _tl3140731664_))) + (let ((_tl3142631605_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3142631598_))) + (##cdr _e3142831598_))) (_hd3142731602_ - (let () (declare (not safe)) (##car _e3142631598_)))) - (if (gx#stx-null? _tl3142831605_) + (let () (declare (not safe)) (##car _e3142831598_)))) + (if (gx#stx-null? _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3139631719_ _hd3139331709_) - (if (gx#stx-pair? _tl3142831605_) - (let ((_e3144631508_ (gx#syntax-e _tl3142831605_))) - (let ((_tl3144831515_ + (if (gx#stx-pair? _tl3142631605_) + (let ((_e3144831508_ (gx#syntax-e _tl3142631605_))) + (let ((_tl3144631515_ (let () (declare (not safe)) - (##cdr _e3144631508_))) + (##cdr _e3144831508_))) (_hd3144731512_ (let () (declare (not safe)) - (##car _e3144631508_)))) + (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) - (if (gx#stx-pair? _tl3144831515_) - (let ((_e3144931518_ - (gx#syntax-e _tl3144831515_))) - (let ((_tl3145131525_ + (if (gx#stx-pair? _tl3144631515_) + (let ((_e3145131518_ + (gx#syntax-e _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ (let () (declare (not safe)) - (##car _e3144931518_)))) - (if (gx#stx-null? _tl3145131525_) + (##car _e3145131518_)))) + (if (gx#stx-null? _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3139631719_ _hd3139331709_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) - (_g3131131457_)))) - (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_)) - (_g3131131457_))) - (_g3131131457_))))) - (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_)))) + (let () + (declare (not safe)) + (_g3131131457_)))))) + (let () (declare (not safe)) (_g3131131457_)))))) (___match4148241483_ - (lambda (_e3134031881_ + (lambda (_e3134231881_ _hd3134131885_ - _tl3134231888_ - _e3134331891_ + _tl3134031888_ + _e3134531891_ _hd3134431895_ - _tl3134531898_ - _e3134631901_ + _tl3134331898_ + _e3134831901_ _hd3134731905_ - _tl3134831908_ + _tl3134631908_ ___splice4140841409_ _target3134931911_ _tl3135131914_) @@ -6656,52 +7345,52 @@ _pred3135631924_)))) (let ((_pred3135731937_ (reverse _pred3135631924_))) - (if (gx#stx-pair? _tl3134531898_) - (let ((_e3135831941_ + (if (gx#stx-pair? _tl3134331898_) + (let ((_e3136031941_ (gx#syntax-e - _tl3134531898_))) - (let ((_tl3136031948_ + _tl3134331898_))) + (let ((_tl3135831948_ (let () (declare (not safe)) - (##cdr _e3135831941_))) + (##cdr _e3136031941_))) (_hd3135931945_ (let () (declare (not safe)) - (##car _e3135831941_)))) + (##car _e3136031941_)))) (if (gx#stx-null? - _tl3136031948_) + _tl3135831948_) (___kont4140641407_ _hd3135931945_ _pred3135731937_ _hd3134131885_) (___match4157241573_ - _e3134031881_ + _e3134231881_ _hd3134131885_ - _tl3134231888_ - _e3134331891_ + _tl3134031888_ + _e3134531891_ _hd3134431895_ - _tl3134531898_ - _e3135831941_ + _tl3134331898_ + _e3136031941_ _hd3135931945_ - _tl3136031948_)))) + _tl3135831948_)))) (___match4155241553_ - _e3134031881_ + _e3134231881_ _hd3134131885_ - _tl3134231888_ - _e3134331891_ + _tl3134031888_ + _e3134531891_ _hd3134431895_ - _tl3134531898_))))))) + _tl3134331898_))))))) (_loop3135231917_ _target3134931911_ '())))) (___match4145241453_ - (lambda (_e3131631991_ + (lambda (_e3131831991_ _hd3131731995_ - _tl3131831998_ - _e3131932001_ + _tl3131631998_ + _e3132132001_ _hd3132032005_ - _tl3132132008_ - _e3132232011_ + _tl3131932008_ + _e3132432011_ _hd3132332015_ - _tl3132432018_ + _tl3132232018_ ___splice4140441405_ _target3132532021_ _tl3132732024_) @@ -6724,80 +7413,80 @@ _pred3133232034_)))) (let ((_pred3133332047_ (reverse _pred3133232034_))) - (if (gx#stx-pair? _tl3132132008_) - (let ((_e3133432051_ + (if (gx#stx-pair? _tl3131932008_) + (let ((_e3133632051_ (gx#syntax-e - _tl3132132008_))) - (let ((_tl3133632058_ + _tl3131932008_))) + (let ((_tl3133432058_ (let () (declare (not safe)) - (##cdr _e3133432051_))) + (##cdr _e3133632051_))) (_hd3133532055_ (let () (declare (not safe)) - (##car _e3133432051_)))) + (##car _e3133632051_)))) (if (gx#stx-null? - _tl3133632058_) + _tl3133432058_) (___kont4140241403_ _hd3133532055_ _pred3133332047_ _hd3131731995_) (___match4157241573_ - _e3131631991_ + _e3131831991_ _hd3131731995_ - _tl3131831998_ - _e3131932001_ + _tl3131631998_ + _e3132132001_ _hd3132032005_ - _tl3132132008_ - _e3133432051_ + _tl3131932008_ + _e3133632051_ _hd3133532055_ - _tl3133632058_)))) + _tl3133432058_)))) (___match4155241553_ - _e3131631991_ + _e3131831991_ _hd3131731995_ - _tl3131831998_ - _e3131932001_ + _tl3131631998_ + _e3132132001_ _hd3132032005_ - _tl3132132008_))))))) + _tl3131932008_))))))) (_loop3132832027_ _target3132532021_ '()))))) (if (gx#stx-pair? ___stx4139941400_) - (let ((_e3131631991_ (gx#syntax-e ___stx4139941400_))) - (let ((_tl3131831998_ - (let () (declare (not safe)) (##cdr _e3131631991_))) + (let ((_e3131831991_ (gx#syntax-e ___stx4139941400_))) + (let ((_tl3131631998_ + (let () (declare (not safe)) (##cdr _e3131831991_))) (_hd3131731995_ (let () (declare (not safe)) - (##car _e3131631991_)))) - (if (gx#stx-pair? _tl3131831998_) - (let ((_e3131932001_ (gx#syntax-e _tl3131831998_))) - (let ((_tl3132132008_ + (##car _e3131831991_)))) + (if (gx#stx-pair? _tl3131631998_) + (let ((_e3132132001_ (gx#syntax-e _tl3131631998_))) + (let ((_tl3131932008_ (let () (declare (not safe)) - (##cdr _e3131932001_))) + (##cdr _e3132132001_))) (_hd3132032005_ (let () (declare (not safe)) - (##car _e3131932001_)))) + (##car _e3132132001_)))) (if (gx#stx-pair? _hd3132032005_) - (let ((_e3132232011_ + (let ((_e3132432011_ (gx#syntax-e _hd3132032005_))) - (let ((_tl3132432018_ + (let ((_tl3132232018_ (let () (declare (not safe)) - (##cdr _e3132232011_))) + (##cdr _e3132432011_))) (_hd3132332015_ (let () (declare (not safe)) - (##car _e3132232011_)))) + (##car _e3132432011_)))) (if (gx#identifier? _hd3132332015_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42320_| + |gerbil/core$[1]#_g42471_| _hd3132332015_) (if (gx#stx-pair/null? - _tl3132432018_) + _tl3132232018_) (let ((___splice4140441405_ (gx#syntax-split-splice - _tl3132432018_ + _tl3132232018_ '0))) (let ((_tl3132732024_ (let () @@ -6816,237 +7505,267 @@ (if (gx#stx-null? _tl3132732024_) (___match4145241453_ - _e3131631991_ + _e3131831991_ _hd3131731995_ - _tl3131831998_ - _e3131932001_ + _tl3131631998_ + _e3132132001_ _hd3132032005_ - _tl3132132008_ - _e3132232011_ + _tl3131932008_ + _e3132432011_ _hd3132332015_ - _tl3132432018_ + _tl3132232018_ ___splice4140441405_ _target3132532021_ _tl3132732024_) (if (gx#stx-pair? - _tl3132132008_) - (let ((_e3138731767_ + _tl3131932008_) + (let ((_e3138931767_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3132132008_))) - (let ((_tl3138931774_ + (gx#syntax-e _tl3131932008_))) + (let ((_tl3138731774_ (let () (declare (not safe)) - (##cdr _e3138731767_))) + (##cdr _e3138931767_))) (_hd3138831771_ (let () (declare (not safe)) - (##car _e3138731767_)))) - (if (gx#stx-null? _tl3138931774_) + (##car _e3138931767_)))) + (if (gx#stx-null? _tl3138731774_) (___kont4141241413_ _hd3138831771_ _hd3132032005_) (if (gx#identifier? _hd3138831771_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3138831771_) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3141031667_ - (gx#syntax-e _tl3138931774_))) - (let ((_tl3141231674_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3141231667_ + (gx#syntax-e _tl3138731774_))) + (let ((_tl3141031674_ (let () (declare (not safe)) - (##cdr _e3141031667_))) + (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) - (if (gx#stx-null? _tl3141231674_) + (##car _e3141231667_)))) + (if (gx#stx-null? _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) (if (gx#stx-datum? _hd3138831771_) (let ((_e3142531594_ (gx#stx-e _hd3138831771_))) (if (equal? _e3142531594_ '::) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3142631598_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3142831598_ (gx#syntax-e - _tl3138931774_))) - (let ((_tl3142831605_ + _tl3138731774_))) + (let ((_tl3142631605_ (let () (declare (not safe)) - (##cdr _e3142631598_))) + (##cdr _e3142831598_))) (_hd3142731602_ (let () (declare (not safe)) - (##car _e3142631598_)))) + (##car _e3142831598_)))) (if (gx#stx-null? - _tl3142831605_) + _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3132032005_ _hd3131731995_) (if (gx#stx-pair? - _tl3142831605_) - (let ((_e3144631508_ + _tl3142631605_) + (let ((_e3144831508_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3142831605_))) - (let ((_tl3144831515_ + (gx#syntax-e _tl3142631605_))) + (let ((_tl3144631515_ (let () (declare (not safe)) - (##cdr _e3144631508_))) + (##cdr _e3144831508_))) (_hd3144731512_ (let () (declare (not safe)) - (##car _e3144631508_)))) + (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) - (if (gx#stx-pair? _tl3144831515_) - (let ((_e3144931518_ - (gx#syntax-e _tl3144831515_))) - (let ((_tl3145131525_ + (if (gx#stx-pair? _tl3144631515_) + (let ((_e3145131518_ + (gx#syntax-e _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ (let () (declare (not safe)) - (##car _e3144931518_)))) - (if (gx#stx-null? _tl3145131525_) + (##car _e3145131518_)))) + (if (gx#stx-null? _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) - (_g3131131457_)))) - (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_)) - (_g3131131457_))) - (_g3131131457_)))))) - (if (gx#stx-null? _tl3132132008_) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_)))) + (let () + (declare (not safe)) + (_g3131131457_))))))) + (if (gx#stx-null? _tl3131932008_) (___kont4141441415_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))))) + (let () (declare (not safe)) (_g3131131457_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _tl3132132008_) - (let ((_e3138731767_ + _tl3131932008_) + (let ((_e3138931767_ (gx#syntax-e - _tl3132132008_))) - (let ((_tl3138931774_ + _tl3131932008_))) + (let ((_tl3138731774_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e3138731767_))) + (##cdr _e3138931767_))) (_hd3138831771_ - (let () (declare (not safe)) (##car _e3138731767_)))) - (if (gx#stx-null? _tl3138931774_) + (let () (declare (not safe)) (##car _e3138931767_)))) + (if (gx#stx-null? _tl3138731774_) (___kont4141241413_ _hd3138831771_ _hd3132032005_) (if (gx#identifier? _hd3138831771_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3138831771_) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3141031667_ - (gx#syntax-e _tl3138931774_))) - (let ((_tl3141231674_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3141231667_ + (gx#syntax-e _tl3138731774_))) + (let ((_tl3141031674_ (let () (declare (not safe)) - (##cdr _e3141031667_))) + (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) - (if (gx#stx-null? _tl3141231674_) + (##car _e3141231667_)))) + (if (gx#stx-null? _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))) (if (gx#stx-datum? _hd3138831771_) (let ((_e3142531594_ (gx#stx-e _hd3138831771_))) (if (equal? _e3142531594_ '::) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3142631598_ - (gx#syntax-e _tl3138931774_))) - (let ((_tl3142831605_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3142831598_ + (gx#syntax-e _tl3138731774_))) + (let ((_tl3142631605_ (let () (declare (not safe)) - (##cdr _e3142631598_))) + (##cdr _e3142831598_))) (_hd3142731602_ (let () (declare (not safe)) - (##car _e3142631598_)))) - (if (gx#stx-null? _tl3142831605_) + (##car _e3142831598_)))) + (if (gx#stx-null? _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3132032005_ _hd3131731995_) (if (gx#stx-pair? - _tl3142831605_) - (let ((_e3144631508_ + _tl3142631605_) + (let ((_e3144831508_ (gx#syntax-e - _tl3142831605_))) - (let ((_tl3144831515_ + _tl3142631605_))) + (let ((_tl3144631515_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3144631508_))) + (##cdr _e3144831508_))) (_hd3144731512_ - (let () (declare (not safe)) (##car _e3144631508_)))) + (let () (declare (not safe)) (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) - (if (gx#stx-pair? _tl3144831515_) - (let ((_e3144931518_ (gx#syntax-e _tl3144831515_))) - (let ((_tl3145131525_ + (if (gx#stx-pair? _tl3144631515_) + (let ((_e3145131518_ (gx#syntax-e _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ (let () (declare (not safe)) - (##car _e3144931518_)))) - (if (gx#stx-null? _tl3145131525_) + (##car _e3145131518_)))) + (if (gx#stx-null? _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) - (_g3131131457_)))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_))))) - (_g3131131457_)) - (_g3131131457_))) - (_g3131131457_)))))) - (if (gx#stx-null? _tl3132132008_) + (let () + (declare (not safe)) + (_g3131131457_)))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_)))) + (let () + (declare (not safe)) + (_g3131131457_))))))) + (if (gx#stx-null? _tl3131932008_) (___kont4141441415_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) + (let () (declare (not safe)) (_g3131131457_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g42321_| + |gerbil/core$[1]#_g42470_| _hd3132332015_) (if (gx#stx-pair/null? - _tl3132432018_) + _tl3132232018_) (let ((___splice4140841409_ (gx#syntax-split-splice - _tl3132432018_ + _tl3132232018_ '0))) (let ((_tl3135131914_ (let () @@ -7059,812 +7778,928 @@ (##vector-ref ___splice4140841409_ '0)))) (if (gx#stx-null? _tl3135131914_) (___match4148241483_ - _e3131631991_ + _e3131831991_ _hd3131731995_ - _tl3131831998_ - _e3131932001_ + _tl3131631998_ + _e3132132001_ _hd3132032005_ - _tl3132132008_ - _e3132232011_ + _tl3131932008_ + _e3132432011_ _hd3132332015_ - _tl3132432018_ + _tl3132232018_ ___splice4140841409_ _target3134931911_ _tl3135131914_) - (if (gx#stx-pair? _tl3132132008_) - (let ((_e3138731767_ (gx#syntax-e _tl3132132008_))) - (let ((_tl3138931774_ + (if (gx#stx-pair? _tl3131932008_) + (let ((_e3138931767_ (gx#syntax-e _tl3131932008_))) + (let ((_tl3138731774_ (let () (declare (not safe)) - (##cdr _e3138731767_))) + (##cdr _e3138931767_))) (_hd3138831771_ (let () (declare (not safe)) - (##car _e3138731767_)))) - (if (gx#stx-null? _tl3138931774_) + (##car _e3138931767_)))) + (if (gx#stx-null? _tl3138731774_) (___kont4141241413_ _hd3138831771_ _hd3132032005_) (if (gx#identifier? _hd3138831771_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3138831771_) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3141031667_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3141231667_ (gx#syntax-e - _tl3138931774_))) - (let ((_tl3141231674_ + _tl3138731774_))) + (let ((_tl3141031674_ (let () (declare (not safe)) - (##cdr _e3141031667_))) + (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) + (##car _e3141231667_)))) (if (gx#stx-null? - _tl3141231674_) + _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) (if (gx#stx-datum? _hd3138831771_) (let ((_e3142531594_ (gx#stx-e _hd3138831771_))) (if (equal? _e3142531594_ '::) (if (gx#stx-pair? - _tl3138931774_) - (let ((_e3142631598_ + _tl3138731774_) + (let ((_e3142831598_ (gx#syntax-e - _tl3138931774_))) - (let ((_tl3142831605_ + _tl3138731774_))) + (let ((_tl3142631605_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3142631598_))) + (##cdr _e3142831598_))) (_hd3142731602_ - (let () (declare (not safe)) (##car _e3142631598_)))) - (if (gx#stx-null? _tl3142831605_) + (let () (declare (not safe)) (##car _e3142831598_)))) + (if (gx#stx-null? _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (if (gx#stx-pair? _tl3142831605_) - (let ((_e3144631508_ (gx#syntax-e _tl3142831605_))) - (let ((_tl3144831515_ + (if (gx#stx-pair? _tl3142631605_) + (let ((_e3144831508_ (gx#syntax-e _tl3142631605_))) + (let ((_tl3144631515_ (let () (declare (not safe)) - (##cdr _e3144631508_))) + (##cdr _e3144831508_))) (_hd3144731512_ (let () (declare (not safe)) - (##car _e3144631508_)))) + (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) - (if (gx#stx-pair? _tl3144831515_) - (let ((_e3144931518_ - (gx#syntax-e _tl3144831515_))) - (let ((_tl3145131525_ + (if (gx#stx-pair? _tl3144631515_) + (let ((_e3145131518_ + (gx#syntax-e _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ (let () (declare (not safe)) - (##car _e3144931518_)))) - (if (gx#stx-null? _tl3145131525_) + (##car _e3145131518_)))) + (if (gx#stx-null? _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) - (_g3131131457_)))) - (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_)) - (_g3131131457_))) - (_g3131131457_)))))) - (if (gx#stx-null? _tl3132132008_) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_)))) + (let () + (declare (not safe)) + (_g3131131457_))))))) + (if (gx#stx-null? _tl3131932008_) (___kont4141441415_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))))) - (if (gx#stx-pair? _tl3132132008_) - (let ((_e3138731767_ (gx#syntax-e _tl3132132008_))) - (let ((_tl3138931774_ - (let () (declare (not safe)) (##cdr _e3138731767_))) + (let () + (declare (not safe)) + (_g3131131457_))))))) + (if (gx#stx-pair? _tl3131932008_) + (let ((_e3138931767_ (gx#syntax-e _tl3131932008_))) + (let ((_tl3138731774_ + (let () (declare (not safe)) (##cdr _e3138931767_))) (_hd3138831771_ (let () (declare (not safe)) - (##car _e3138731767_)))) - (if (gx#stx-null? _tl3138931774_) + (##car _e3138931767_)))) + (if (gx#stx-null? _tl3138731774_) (___kont4141241413_ _hd3138831771_ _hd3132032005_) (if (gx#identifier? _hd3138831771_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3138831771_) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3141031667_ - (gx#syntax-e _tl3138931774_))) - (let ((_tl3141231674_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3141231667_ + (gx#syntax-e _tl3138731774_))) + (let ((_tl3141031674_ (let () (declare (not safe)) - (##cdr _e3141031667_))) + (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) - (if (gx#stx-null? _tl3141231674_) + (##car _e3141231667_)))) + (if (gx#stx-null? _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) (if (gx#stx-datum? _hd3138831771_) (let ((_e3142531594_ (gx#stx-e _hd3138831771_))) (if (equal? _e3142531594_ '::) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3142631598_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3142831598_ (gx#syntax-e - _tl3138931774_))) - (let ((_tl3142831605_ + _tl3138731774_))) + (let ((_tl3142631605_ (let () (declare (not safe)) - (##cdr _e3142631598_))) + (##cdr _e3142831598_))) (_hd3142731602_ (let () (declare (not safe)) - (##car _e3142631598_)))) + (##car _e3142831598_)))) (if (gx#stx-null? - _tl3142831605_) + _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3132032005_ _hd3131731995_) (if (gx#stx-pair? - _tl3142831605_) - (let ((_e3144631508_ + _tl3142631605_) + (let ((_e3144831508_ (gx#syntax-e - _tl3142831605_))) - (let ((_tl3144831515_ + _tl3142631605_))) + (let ((_tl3144631515_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3144631508_))) + (let () (declare (not safe)) (##cdr _e3144831508_))) (_hd3144731512_ - (let () (declare (not safe)) (##car _e3144631508_)))) + (let () (declare (not safe)) (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) - (if (gx#stx-pair? _tl3144831515_) - (let ((_e3144931518_ - (gx#syntax-e _tl3144831515_))) - (let ((_tl3145131525_ + (if (gx#stx-pair? _tl3144631515_) + (let ((_e3145131518_ + (gx#syntax-e _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ (let () (declare (not safe)) - (##car _e3144931518_)))) - (if (gx#stx-null? _tl3145131525_) + (##car _e3145131518_)))) + (if (gx#stx-null? _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) - (_g3131131457_)))) - (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_)) - (_g3131131457_))) - (_g3131131457_)))))) - (if (gx#stx-null? _tl3132132008_) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_)))) + (let () + (declare (not safe)) + (_g3131131457_))))))) + (if (gx#stx-null? _tl3131932008_) (___kont4141441415_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) + (let () (declare (not safe)) (_g3131131457_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g42322_| + |gerbil/core$[1]#_g42469_| _hd3132332015_) (if (gx#stx-pair? - _tl3132432018_) - (let ((_e3137331831_ + _tl3132232018_) + (let ((_e3137531831_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3132432018_))) - (let ((_tl3137531838_ - (let () (declare (not safe)) (##cdr _e3137331831_))) + (gx#syntax-e _tl3132232018_))) + (let ((_tl3137331838_ + (let () (declare (not safe)) (##cdr _e3137531831_))) (_hd3137431835_ (let () (declare (not safe)) - (##car _e3137331831_)))) - (if (gx#stx-null? _tl3137531838_) - (if (gx#stx-pair? _tl3132132008_) - (let ((_e3137631841_ - (gx#syntax-e _tl3132132008_))) - (let ((_tl3137831848_ + (##car _e3137531831_)))) + (if (gx#stx-null? _tl3137331838_) + (if (gx#stx-pair? _tl3131932008_) + (let ((_e3137831841_ + (gx#syntax-e _tl3131932008_))) + (let ((_tl3137631848_ (let () (declare (not safe)) - (##cdr _e3137631841_))) + (##cdr _e3137831841_))) (_hd3137731845_ (let () (declare (not safe)) - (##car _e3137631841_)))) - (if (gx#stx-null? _tl3137831848_) + (##car _e3137831841_)))) + (if (gx#stx-null? _tl3137631848_) (___kont4141041411_ _hd3137731845_ _hd3137431835_ _hd3131731995_) (if (gx#identifier? _hd3137731845_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3137731845_) - (if (gx#stx-pair? _tl3137831848_) - (let ((_e3141031667_ + (if (gx#stx-pair? _tl3137631848_) + (let ((_e3141231667_ (gx#syntax-e - _tl3137831848_))) - (let ((_tl3141231674_ + _tl3137631848_))) + (let ((_tl3141031674_ (let () (declare (not safe)) - (##cdr _e3141031667_))) + (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) + (##car _e3141231667_)))) (if (gx#stx-null? - _tl3141231674_) + _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () + (declare + (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) (if (gx#stx-datum? _hd3137731845_) (let ((_e3142531594_ (gx#stx-e _hd3137731845_))) (if (equal? _e3142531594_ '::) (if (gx#stx-pair? - _tl3137831848_) - (let ((_e3142631598_ + _tl3137631848_) + (let ((_e3142831598_ (gx#syntax-e - _tl3137831848_))) - (let ((_tl3142831605_ + _tl3137631848_))) + (let ((_tl3142631605_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3142631598_))) + (let () (declare (not safe)) (##cdr _e3142831598_))) (_hd3142731602_ - (let () (declare (not safe)) (##car _e3142631598_)))) - (if (gx#stx-null? _tl3142831605_) + (let () (declare (not safe)) (##car _e3142831598_)))) + (if (gx#stx-null? _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (if (gx#stx-pair? _tl3142831605_) - (let ((_e3144631508_ (gx#syntax-e _tl3142831605_))) - (let ((_tl3144831515_ + (if (gx#stx-pair? _tl3142631605_) + (let ((_e3144831508_ (gx#syntax-e _tl3142631605_))) + (let ((_tl3144631515_ (let () (declare (not safe)) - (##cdr _e3144631508_))) + (##cdr _e3144831508_))) (_hd3144731512_ (let () (declare (not safe)) - (##car _e3144631508_)))) + (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) - (if (gx#stx-pair? _tl3144831515_) - (let ((_e3144931518_ + (if (gx#stx-pair? _tl3144631515_) + (let ((_e3145131518_ (gx#syntax-e - _tl3144831515_))) - (let ((_tl3145131525_ + _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ (let () (declare (not safe)) - (##car _e3144931518_)))) + (##car _e3145131518_)))) (if (gx#stx-null? - _tl3145131525_) + _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) - (_g3131131457_)))) - (_g3131131457_))))) - (_g3131131457_)) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_)))))) + (let () (declare (not safe)) (_g3131131457_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_))) - (_g3131131457_)))))) - (if (gx#stx-null? _tl3132132008_) + (let () + (declare (not safe)) + (_g3131131457_)))) + (let () + (declare (not safe)) + (_g3131131457_))))))) + (if (gx#stx-null? _tl3131932008_) (___kont4141441415_ _hd3132032005_ _hd3131731995_) - (_g3131131457_))) - (if (gx#stx-pair? _tl3132132008_) - (let ((_e3138731767_ - (gx#syntax-e _tl3132132008_))) - (let ((_tl3138931774_ + (let () + (declare (not safe)) + (_g3131131457_)))) + (if (gx#stx-pair? _tl3131932008_) + (let ((_e3138931767_ + (gx#syntax-e _tl3131932008_))) + (let ((_tl3138731774_ (let () (declare (not safe)) - (##cdr _e3138731767_))) + (##cdr _e3138931767_))) (_hd3138831771_ (let () (declare (not safe)) - (##car _e3138731767_)))) - (if (gx#stx-null? _tl3138931774_) + (##car _e3138931767_)))) + (if (gx#stx-null? _tl3138731774_) (___kont4141241413_ _hd3138831771_ _hd3132032005_) (if (gx#identifier? _hd3138831771_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3138831771_) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3141031667_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3141231667_ (gx#syntax-e - _tl3138931774_))) - (let ((_tl3141231674_ + _tl3138731774_))) + (let ((_tl3141031674_ (let () (declare (not safe)) - (##cdr _e3141031667_))) + (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) + (##car _e3141231667_)))) (if (gx#stx-null? - _tl3141231674_) + _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () + (declare + (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) (if (gx#stx-datum? _hd3138831771_) (let ((_e3142531594_ (gx#stx-e _hd3138831771_))) (if (equal? _e3142531594_ '::) (if (gx#stx-pair? - _tl3138931774_) - (let ((_e3142631598_ + _tl3138731774_) + (let ((_e3142831598_ (gx#syntax-e - _tl3138931774_))) - (let ((_tl3142831605_ + _tl3138731774_))) + (let ((_tl3142631605_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3142631598_))) + (let () (declare (not safe)) (##cdr _e3142831598_))) (_hd3142731602_ - (let () (declare (not safe)) (##car _e3142631598_)))) - (if (gx#stx-null? _tl3142831605_) + (let () (declare (not safe)) (##car _e3142831598_)))) + (if (gx#stx-null? _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (if (gx#stx-pair? _tl3142831605_) - (let ((_e3144631508_ (gx#syntax-e _tl3142831605_))) - (let ((_tl3144831515_ + (if (gx#stx-pair? _tl3142631605_) + (let ((_e3144831508_ (gx#syntax-e _tl3142631605_))) + (let ((_tl3144631515_ (let () (declare (not safe)) - (##cdr _e3144631508_))) + (##cdr _e3144831508_))) (_hd3144731512_ (let () (declare (not safe)) - (##car _e3144631508_)))) + (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) - (if (gx#stx-pair? _tl3144831515_) - (let ((_e3144931518_ + (if (gx#stx-pair? _tl3144631515_) + (let ((_e3145131518_ (gx#syntax-e - _tl3144831515_))) - (let ((_tl3145131525_ + _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ (let () (declare (not safe)) - (##car _e3144931518_)))) + (##car _e3145131518_)))) (if (gx#stx-null? - _tl3145131525_) + _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) - (_g3131131457_)))) - (_g3131131457_))))) - (_g3131131457_)) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_)))))) + (let () (declare (not safe)) (_g3131131457_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_))) - (_g3131131457_)))))) - (if (gx#stx-null? _tl3132132008_) + (let () + (declare (not safe)) + (_g3131131457_)))) + (let () + (declare (not safe)) + (_g3131131457_))))))) + (if (gx#stx-null? _tl3131932008_) (___kont4141441415_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))))) - (if (gx#stx-pair? _tl3132132008_) - (let ((_e3138731767_ (gx#syntax-e _tl3132132008_))) - (let ((_tl3138931774_ + (let () + (declare (not safe)) + (_g3131131457_))))))) + (if (gx#stx-pair? _tl3131932008_) + (let ((_e3138931767_ (gx#syntax-e _tl3131932008_))) + (let ((_tl3138731774_ (let () (declare (not safe)) - (##cdr _e3138731767_))) + (##cdr _e3138931767_))) (_hd3138831771_ (let () (declare (not safe)) - (##car _e3138731767_)))) - (if (gx#stx-null? _tl3138931774_) + (##car _e3138931767_)))) + (if (gx#stx-null? _tl3138731774_) (___kont4141241413_ _hd3138831771_ _hd3132032005_) (if (gx#identifier? _hd3138831771_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3138831771_) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3141031667_ - (gx#syntax-e _tl3138931774_))) - (let ((_tl3141231674_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3141231667_ + (gx#syntax-e _tl3138731774_))) + (let ((_tl3141031674_ (let () (declare (not safe)) - (##cdr _e3141031667_))) + (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) - (if (gx#stx-null? _tl3141231674_) + (##car _e3141231667_)))) + (if (gx#stx-null? _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) (if (gx#stx-datum? _hd3138831771_) (let ((_e3142531594_ (gx#stx-e _hd3138831771_))) (if (equal? _e3142531594_ '::) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3142631598_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3142831598_ (gx#syntax-e - _tl3138931774_))) - (let ((_tl3142831605_ + _tl3138731774_))) + (let ((_tl3142631605_ (let () (declare (not safe)) - (##cdr _e3142631598_))) + (##cdr _e3142831598_))) (_hd3142731602_ (let () (declare (not safe)) - (##car _e3142631598_)))) + (##car _e3142831598_)))) (if (gx#stx-null? - _tl3142831605_) + _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3132032005_ _hd3131731995_) (if (gx#stx-pair? - _tl3142831605_) - (let ((_e3144631508_ + _tl3142631605_) + (let ((_e3144831508_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3142831605_))) - (let ((_tl3144831515_ + (gx#syntax-e _tl3142631605_))) + (let ((_tl3144631515_ (let () (declare (not safe)) - (##cdr _e3144631508_))) + (##cdr _e3144831508_))) (_hd3144731512_ (let () (declare (not safe)) - (##car _e3144631508_)))) + (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) - (if (gx#stx-pair? _tl3144831515_) - (let ((_e3144931518_ - (gx#syntax-e _tl3144831515_))) - (let ((_tl3145131525_ + (if (gx#stx-pair? _tl3144631515_) + (let ((_e3145131518_ + (gx#syntax-e _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ (let () (declare (not safe)) - (##car _e3144931518_)))) - (if (gx#stx-null? _tl3145131525_) + (##car _e3145131518_)))) + (if (gx#stx-null? _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) - (_g3131131457_)))) - (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_)) - (_g3131131457_))) - (_g3131131457_)))))) - (if (gx#stx-null? _tl3132132008_) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_)))) + (let () + (declare (not safe)) + (_g3131131457_))))))) + (if (gx#stx-null? _tl3131932008_) (___kont4141441415_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (if (gx#stx-pair? _tl3132132008_) - (let ((_e3138731767_ (gx#syntax-e _tl3132132008_))) - (let ((_tl3138931774_ - (let () (declare (not safe)) (##cdr _e3138731767_))) + (let () (declare (not safe)) (_g3131131457_))))) + (if (gx#stx-pair? _tl3131932008_) + (let ((_e3138931767_ (gx#syntax-e _tl3131932008_))) + (let ((_tl3138731774_ + (let () (declare (not safe)) (##cdr _e3138931767_))) (_hd3138831771_ (let () (declare (not safe)) - (##car _e3138731767_)))) - (if (gx#stx-null? _tl3138931774_) + (##car _e3138931767_)))) + (if (gx#stx-null? _tl3138731774_) (___kont4141241413_ _hd3138831771_ _hd3132032005_) (if (gx#identifier? _hd3138831771_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3138831771_) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3141031667_ - (gx#syntax-e _tl3138931774_))) - (let ((_tl3141231674_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3141231667_ + (gx#syntax-e _tl3138731774_))) + (let ((_tl3141031674_ (let () (declare (not safe)) - (##cdr _e3141031667_))) + (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) - (if (gx#stx-null? _tl3141231674_) + (##car _e3141231667_)))) + (if (gx#stx-null? _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) (if (gx#stx-datum? _hd3138831771_) (let ((_e3142531594_ (gx#stx-e _hd3138831771_))) (if (equal? _e3142531594_ '::) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3142631598_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3142831598_ (gx#syntax-e - _tl3138931774_))) - (let ((_tl3142831605_ + _tl3138731774_))) + (let ((_tl3142631605_ (let () (declare (not safe)) - (##cdr _e3142631598_))) + (##cdr _e3142831598_))) (_hd3142731602_ (let () (declare (not safe)) - (##car _e3142631598_)))) + (##car _e3142831598_)))) (if (gx#stx-null? - _tl3142831605_) + _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3132032005_ _hd3131731995_) (if (gx#stx-pair? - _tl3142831605_) - (let ((_e3144631508_ + _tl3142631605_) + (let ((_e3144831508_ (gx#syntax-e - _tl3142831605_))) - (let ((_tl3144831515_ + _tl3142631605_))) + (let ((_tl3144631515_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3144631508_))) + (let () (declare (not safe)) (##cdr _e3144831508_))) (_hd3144731512_ - (let () (declare (not safe)) (##car _e3144631508_)))) + (let () (declare (not safe)) (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) - (if (gx#stx-pair? _tl3144831515_) - (let ((_e3144931518_ - (gx#syntax-e _tl3144831515_))) - (let ((_tl3145131525_ + (if (gx#stx-pair? _tl3144631515_) + (let ((_e3145131518_ + (gx#syntax-e _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ (let () (declare (not safe)) - (##car _e3144931518_)))) - (if (gx#stx-null? _tl3145131525_) + (##car _e3145131518_)))) + (if (gx#stx-null? _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) - (_g3131131457_)))) - (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_)) - (_g3131131457_))) - (_g3131131457_)))))) - (if (gx#stx-null? _tl3132132008_) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_)))) + (let () + (declare (not safe)) + (_g3131131457_))))))) + (if (gx#stx-null? _tl3131932008_) (___kont4141441415_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))))) + (let () (declare (not safe)) (_g3131131457_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl3132132008_) - (let ((_e3138731767_ + (if (gx#stx-pair? _tl3131932008_) + (let ((_e3138931767_ (gx#syntax-e - _tl3132132008_))) - (let ((_tl3138931774_ + _tl3131932008_))) + (let ((_tl3138731774_ (let () (declare (not safe)) - (##cdr _e3138731767_))) + (##cdr _e3138931767_))) (_hd3138831771_ (let () (declare (not safe)) - (##car _e3138731767_)))) + (##car _e3138931767_)))) (if (gx#stx-null? - _tl3138931774_) + _tl3138731774_) (___kont4141241413_ _hd3138831771_ _hd3132032005_) (if (gx#identifier? _hd3138831771_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3138831771_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl3138931774_) - (let ((_e3141031667_ (gx#syntax-e _tl3138931774_))) - (let ((_tl3141231674_ + _tl3138731774_) + (let ((_e3141231667_ (gx#syntax-e _tl3138731774_))) + (let ((_tl3141031674_ (let () (declare (not safe)) - (##cdr _e3141031667_))) + (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) - (if (gx#stx-null? _tl3141231674_) + (##car _e3141231667_)))) + (if (gx#stx-null? _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))) (if (gx#stx-datum? _hd3138831771_) (let ((_e3142531594_ (gx#stx-e _hd3138831771_))) (if (equal? _e3142531594_ '::) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3142631598_ - (gx#syntax-e _tl3138931774_))) - (let ((_tl3142831605_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3142831598_ + (gx#syntax-e _tl3138731774_))) + (let ((_tl3142631605_ (let () (declare (not safe)) - (##cdr _e3142631598_))) + (##cdr _e3142831598_))) (_hd3142731602_ (let () (declare (not safe)) - (##car _e3142631598_)))) - (if (gx#stx-null? _tl3142831605_) + (##car _e3142831598_)))) + (if (gx#stx-null? _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (if (gx#stx-pair? _tl3142831605_) - (let ((_e3144631508_ + (if (gx#stx-pair? _tl3142631605_) + (let ((_e3144831508_ (gx#syntax-e - _tl3142831605_))) - (let ((_tl3144831515_ + _tl3142631605_))) + (let ((_tl3144631515_ (let () (declare (not safe)) - (##cdr _e3144631508_))) + (##cdr _e3144831508_))) (_hd3144731512_ (let () (declare (not safe)) - (##car _e3144631508_)))) + (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) (if (gx#stx-pair? - _tl3144831515_) - (let ((_e3144931518_ + _tl3144631515_) + (let ((_e3145131518_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3144831515_))) - (let ((_tl3145131525_ + (gx#syntax-e _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ (let () (declare (not safe)) - (##car _e3144931518_)))) - (if (gx#stx-null? _tl3145131525_) + (##car _e3145131518_)))) + (if (gx#stx-null? _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () (declare (not safe)) (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_)))) - (_g3131131457_))))) - (_g3131131457_)) - (_g3131131457_))) - (_g3131131457_)))))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_)))))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_)))) + (let () (declare (not safe)) (_g3131131457_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _tl3132132008_) + (if (gx#stx-null? _tl3131932008_) (___kont4141441415_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))))) - (if (gx#stx-pair? _tl3132132008_) - (let ((_e3138731767_ - (gx#syntax-e _tl3132132008_))) - (let ((_tl3138931774_ + (let () + (declare (not safe)) + (_g3131131457_))))))) + (if (gx#stx-pair? _tl3131932008_) + (let ((_e3138931767_ + (gx#syntax-e _tl3131932008_))) + (let ((_tl3138731774_ (let () (declare (not safe)) - (##cdr _e3138731767_))) + (##cdr _e3138931767_))) (_hd3138831771_ (let () (declare (not safe)) - (##car _e3138731767_)))) - (if (gx#stx-null? _tl3138931774_) + (##car _e3138931767_)))) + (if (gx#stx-null? _tl3138731774_) (___kont4141241413_ _hd3138831771_ _hd3132032005_) (if (gx#identifier? _hd3138831771_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42318_| + |gerbil/core$[1]#_g42468_| _hd3138831771_) (if (gx#stx-pair? - _tl3138931774_) - (let ((_e3141031667_ + _tl3138731774_) + (let ((_e3141231667_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3138931774_))) - (let ((_tl3141231674_ - (let () (declare (not safe)) (##cdr _e3141031667_))) + (gx#syntax-e _tl3138731774_))) + (let ((_tl3141031674_ + (let () (declare (not safe)) (##cdr _e3141231667_))) (_hd3141131671_ (let () (declare (not safe)) - (##car _e3141031667_)))) - (if (gx#stx-null? _tl3141231674_) + (##car _e3141231667_)))) + (if (gx#stx-null? _tl3141031674_) (___kont4141641417_ _hd3141131671_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) - (_g3131131457_)) - (_g3131131457_)) + (let () (declare (not safe)) (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-datum? _hd3138831771_) @@ -7874,72 +8709,82 @@ (if (equal? _e3142531594_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '::) - (if (gx#stx-pair? _tl3138931774_) - (let ((_e3142631598_ (gx#syntax-e _tl3138931774_))) - (let ((_tl3142831605_ + (if (gx#stx-pair? _tl3138731774_) + (let ((_e3142831598_ (gx#syntax-e _tl3138731774_))) + (let ((_tl3142631605_ (let () (declare (not safe)) - (##cdr _e3142631598_))) + (##cdr _e3142831598_))) (_hd3142731602_ (let () (declare (not safe)) - (##car _e3142631598_)))) - (if (gx#stx-null? _tl3142831605_) + (##car _e3142831598_)))) + (if (gx#stx-null? _tl3142631605_) (___kont4141841419_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (if (gx#stx-pair? _tl3142831605_) - (let ((_e3144631508_ - (gx#syntax-e _tl3142831605_))) - (let ((_tl3144831515_ + (if (gx#stx-pair? _tl3142631605_) + (let ((_e3144831508_ + (gx#syntax-e _tl3142631605_))) + (let ((_tl3144631515_ (let () (declare (not safe)) - (##cdr _e3144631508_))) + (##cdr _e3144831508_))) (_hd3144731512_ (let () (declare (not safe)) - (##car _e3144631508_)))) + (##car _e3144831508_)))) (if (gx#identifier? _hd3144731512_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42319_| + |gerbil/core$[1]#_g42467_| _hd3144731512_) (if (gx#stx-pair? - _tl3144831515_) - (let ((_e3144931518_ + _tl3144631515_) + (let ((_e3145131518_ (gx#syntax-e - _tl3144831515_))) - (let ((_tl3145131525_ + _tl3144631515_))) + (let ((_tl3144931525_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3144931518_))) + (##cdr _e3145131518_))) (_hd3145031522_ - (let () (declare (not safe)) (##car _e3144931518_)))) - (if (gx#stx-null? _tl3145131525_) + (let () (declare (not safe)) (##car _e3145131518_)))) + (if (gx#stx-null? _tl3144931525_) (___kont4142041421_ _hd3145031522_ _hd3142731602_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))) + (let () (declare (not safe)) (_g3131131457_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3131131457_)) - (_g3131131457_)) - (_g3131131457_)))) - (_g3131131457_))))) - (_g3131131457_)) - (_g3131131457_))) - (_g3131131457_)))))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))) + (let () + (declare (not safe)) + (_g3131131457_))))) + (let () + (declare (not safe)) + (_g3131131457_)))))) + (let () (declare (not safe)) (_g3131131457_))) + (let () (declare (not safe)) (_g3131131457_)))) + (let () (declare (not safe)) (_g3131131457_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _tl3132132008_) + (if (gx#stx-null? _tl3131932008_) (___kont4141441415_ _hd3132032005_ _hd3131731995_) - (_g3131131457_)))))) - (_g3131131457_)))) - (_g3131131457_))))))) + (let () + (declare (not safe)) + (_g3131131457_))))))) + (let () (declare (not safe)) (_g3131131457_))))) + (let () (declare (not safe)) (_g3131131457_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-match| (lambda (_$stx32100_) (let* ((___stx4166741668_ _$stx32100_) @@ -8045,88 +8890,94 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) (let ((___match4170041701_ - (lambda (_e3211032203_ + (lambda (_e3211232203_ _hd3211132207_ - _tl3211232210_ - _e3211332213_ + _tl3211032210_ + _e3211532213_ _hd3211432217_ - _tl3211532220_ - _e3211632223_ + _tl3211332220_ + _e3211832223_ _hd3211732227_ - _tl3211832230_ - _e3211932233_ + _tl3211632230_ + _e3212132233_ _hd3212032237_ - _tl3212132240_) + _tl3211932240_) (let ((_L32243_ _hd3212032237_) (_L32245_ _hd3211732227_) (_L32246_ _hd3211432217_)) (if (gx#identifier? _L32246_) (___kont4167041671_ _L32243_ _L32245_ _L32246_) - (_g3210532139_)))))) + (let () (declare (not safe)) (_g3210532139_))))))) (if (gx#stx-pair? ___stx4166741668_) - (let ((_e3211032203_ (gx#syntax-e ___stx4166741668_))) - (let ((_tl3211232210_ - (let () (declare (not safe)) (##cdr _e3211032203_))) + (let ((_e3211232203_ (gx#syntax-e ___stx4166741668_))) + (let ((_tl3211032210_ + (let () (declare (not safe)) (##cdr _e3211232203_))) (_hd3211132207_ (let () (declare (not safe)) - (##car _e3211032203_)))) - (if (gx#stx-pair? _tl3211232210_) - (let ((_e3211332213_ (gx#syntax-e _tl3211232210_))) - (let ((_tl3211532220_ + (##car _e3211232203_)))) + (if (gx#stx-pair? _tl3211032210_) + (let ((_e3211532213_ (gx#syntax-e _tl3211032210_))) + (let ((_tl3211332220_ (let () (declare (not safe)) - (##cdr _e3211332213_))) + (##cdr _e3211532213_))) (_hd3211432217_ (let () (declare (not safe)) - (##car _e3211332213_)))) - (if (gx#stx-pair? _tl3211532220_) - (let ((_e3211632223_ - (gx#syntax-e _tl3211532220_))) - (let ((_tl3211832230_ + (##car _e3211532213_)))) + (if (gx#stx-pair? _tl3211332220_) + (let ((_e3211832223_ + (gx#syntax-e _tl3211332220_))) + (let ((_tl3211632230_ (let () (declare (not safe)) - (##cdr _e3211632223_))) + (##cdr _e3211832223_))) (_hd3211732227_ (let () (declare (not safe)) - (##car _e3211632223_)))) - (if (gx#stx-pair? _tl3211832230_) - (let ((_e3211932233_ - (gx#syntax-e _tl3211832230_))) - (let ((_tl3212132240_ + (##car _e3211832223_)))) + (if (gx#stx-pair? _tl3211632230_) + (let ((_e3212132233_ + (gx#syntax-e _tl3211632230_))) + (let ((_tl3211932240_ (let () (declare (not safe)) - (##cdr _e3211932233_))) + (##cdr _e3212132233_))) (_hd3212032237_ (let () (declare (not safe)) - (##car _e3211932233_)))) - (if (gx#stx-null? _tl3212132240_) + (##car _e3212132233_)))) + (if (gx#stx-null? _tl3211932240_) (___match4170041701_ - _e3211032203_ + _e3211232203_ _hd3211132207_ - _tl3211232210_ - _e3211332213_ + _tl3211032210_ + _e3211532213_ _hd3211432217_ - _tl3211532220_ - _e3211632223_ + _tl3211332220_ + _e3211832223_ _hd3211732227_ - _tl3211832230_ - _e3211932233_ + _tl3211632230_ + _e3212132233_ _hd3212032237_ - _tl3212132240_) - (_g3210532139_)))) - (if (gx#stx-null? _tl3211832230_) + _tl3211932240_) + (let () + (declare (not safe)) + (_g3210532139_))))) + (if (gx#stx-null? _tl3211632230_) (___kont4167241673_ _hd3211732227_ _hd3211432217_ _hd3211132207_) - (_g3210532139_))))) - (_g3210532139_)))) - (_g3210532139_)))) - (_g3210532139_))))))) + (let () + (declare (not safe)) + (_g3210532139_)))))) + (let () + (declare (not safe)) + (_g3210532139_))))) + (let () (declare (not safe)) (_g3210532139_))))) + (let () (declare (not safe)) (_g3210532139_)))))))) (define |gerbil/core$[:0:]#defrules-for-match| (lambda (_$stx32268_) (let* ((_g3227232287_ @@ -8135,26 +8986,26 @@ (_g3227132330_ (lambda (_g3227332291_) (if (gx#stx-pair? _g3227332291_) - (let ((_e3227632294_ (gx#syntax-e _g3227332291_))) + (let ((_e3227832294_ (gx#syntax-e _g3227332291_))) (let ((_hd3227732298_ (let () (declare (not safe)) - (##car _e3227632294_))) - (_tl3227832301_ + (##car _e3227832294_))) + (_tl3227632301_ (let () (declare (not safe)) - (##cdr _e3227632294_)))) - (if (gx#stx-pair? _tl3227832301_) - (let ((_e3227932304_ - (gx#syntax-e _tl3227832301_))) + (##cdr _e3227832294_)))) + (if (gx#stx-pair? _tl3227632301_) + (let ((_e3228132304_ + (gx#syntax-e _tl3227632301_))) (let ((_hd3228032308_ (let () (declare (not safe)) - (##car _e3227932304_))) - (_tl3228132311_ + (##car _e3228132304_))) + (_tl3227932311_ (let () (declare (not safe)) - (##cdr _e3227932304_)))) + (##cdr _e3228132304_)))) ((lambda (_L32314_ _L32316_) (cons (gx#datum->syntax '#f @@ -8165,7 +9016,7 @@ 'syntax-rules) _L32314_) '())))) - _tl3228132311_ + _tl3227932311_ _hd3228032308_))) (_g3227232287_ _g3227332291_)))) (_g3227232287_ _g3227332291_))))) diff --git a/src/bootstrap/gerbil/core__11.scm b/src/bootstrap/gerbil/core__11.scm index 84038fd23..5232638f7 100644 --- a/src/bootstrap/gerbil/core__11.scm +++ b/src/bootstrap/gerbil/core__11.scm @@ -1,59 +1,65 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[2]#_g42323_| + (define |gerbil/core$[2]#_g42474_| (##structure gx#syntax-quote::t - 'match-macro::t + 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g42324_| + (define |gerbil/core$[2]#_g42476_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g42325_| + (define |gerbil/core$[2]#_g42477_| (##structure gx#syntax-quote::t - 'make-match-macro + 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g42326_| + (define |gerbil/core$[2]#_g42478_| (##structure gx#syntax-quote::t - 'match-macro? + 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g42328_| + (define |gerbil/core$[2]#_g42479_| (##structure gx#syntax-quote::t - 'macro-object + 'match-macro? #f (gx#current-expander-context) '())) (define |gerbil/core$[:1:]#match-macro| - (make-class-instance - |gerbil/core$$[1]#extended-class-info::t| - 'runtime-identifier: - |gerbil/core$[2]#_g42323_| - 'expander-identifiers: - (cons (cons |gerbil/core$[2]#_g42324_| '()) - (cons |gerbil/core$[2]#_g42323_| - (cons |gerbil/core$[2]#_g42325_| - (cons |gerbil/core$[2]#_g42326_| - (cons '() (cons '() '())))))) - 'type-exhibitor: - (let ((__tmp42327 (list |gerbil/core$[2]#_g42328_|))) - (declare (not safe)) - (##structure - |gerbil/core$$[1]#runtime-class-exhibitor::t| - 'gerbil.core#match-macro::t - __tmp42327 - 'match-macro - '#f - '() - '()))))) + (let ((__tmp42480 |gerbil/core$[2]#_g42477_|) + (__tmp42475 + (cons (cons |gerbil/core$[2]#_g42476_| '()) + (cons |gerbil/core$[2]#_g42477_| + (cons |gerbil/core$[2]#_g42478_| + (cons |gerbil/core$[2]#_g42479_| + (cons '() (cons '() '()))))))) + (__tmp42472 + (let ((__tmp42473 (list |gerbil/core$[2]#_g42474_|))) + (declare (not safe)) + (##structure + |gerbil/core$$[1]#runtime-class-exhibitor::t| + 'gerbil.core#match-macro::t + __tmp42473 + 'match-macro + '#f + '() + '())))) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#extended-class-info::t| + 'runtime-identifier: + __tmp42480 + 'expander-identifiers: + __tmp42475 + 'type-exhibitor: + __tmp42472)))) diff --git a/src/bootstrap/gerbil/core__12.scm b/src/bootstrap/gerbil/core__12.scm index c841b2e71..5afd067e1 100644 --- a/src/bootstrap/gerbil/core__12.scm +++ b/src/bootstrap/gerbil/core__12.scm @@ -33,16 +33,20 @@ (define |gerbil/core$[1]#syntax-local-setf-macro?| (lambda (_stx32339_) (if (gx#identifier? _stx32339_) - (class-instance? - |gerbil/core$[1]#setf-macro::t| - (gx#syntax-local-value _stx32339_ false)) + (let ((__tmp42481 (gx#syntax-local-value _stx32339_ false))) + (declare (not safe)) + (class-instance? + |gerbil/core$[1]#setf-macro::t| + __tmp42481)) '#f))) (define |gerbil/core$[1]#syntax-local-setq-macro?| (lambda (_stx32336_) (if (gx#identifier? _stx32336_) - (class-instance? - |gerbil/core$[1]#setq-macro::t| - (gx#syntax-local-value _stx32336_ false)) + (let ((__tmp42482 (gx#syntax-local-value _stx32336_ false))) + (declare (not safe)) + (class-instance? + |gerbil/core$[1]#setq-macro::t| + __tmp42482)) '#f))) (define |gerbil/core$[:0:]#set!| (lambda (_stx32350_) @@ -87,64 +91,70 @@ (cons (gx#datum->syntax '#f '%#set!) (cons _L32454_ (cons _L32452_ '())))))) (let* ((___match4181441815_ - (lambda (_e3240132422_ + (lambda (_e3240332422_ _hd3240232426_ - _tl3240332429_ - _e3240432432_ + _tl3240132429_ + _e3240632432_ _hd3240532436_ - _tl3240632439_ - _e3240732442_ + _tl3240432439_ + _e3240932442_ _hd3240832446_ - _tl3240932449_) + _tl3240732449_) (let ((_L32452_ _hd3240832446_) (_L32454_ _hd3240532436_)) (if (gx#identifier? _L32454_) (___kont4173441735_ _L32452_ _L32454_) - (_g3235632415_))))) + (let () (declare (not safe)) (_g3235632415_)))))) (___match4179441795_ - (lambda (_e3239332477_ + (lambda (_e3239532477_ _hd3239432481_ - _tl3239532484_ - _e3239632487_ + _tl3239332484_ + _e3239832487_ _hd3239732491_ - _tl3239832494_) + _tl3239632494_) (let ((_L32497_ _hd3239732491_)) - (if (|gerbil/core$[1]#syntax-local-setq-macro?| - _L32497_) + (if (let () + (declare (not safe)) + (|gerbil/core$[1]#syntax-local-setq-macro?| + _L32497_)) (___kont4173241733_ _L32497_) - (if (gx#stx-pair? _tl3239832494_) - (let ((_e3240732442_ - (gx#syntax-e _tl3239832494_))) - (let ((_tl3240932449_ + (if (gx#stx-pair? _tl3239632494_) + (let ((_e3240932442_ + (gx#syntax-e _tl3239632494_))) + (let ((_tl3240732449_ (let () (declare (not safe)) - (##cdr _e3240732442_))) + (##cdr _e3240932442_))) (_hd3240832446_ (let () (declare (not safe)) - (##car _e3240732442_)))) - (if (gx#stx-null? _tl3240932449_) + (##car _e3240932442_)))) + (if (gx#stx-null? _tl3240732449_) (___match4181441815_ - _e3239332477_ + _e3239532477_ _hd3239432481_ - _tl3239532484_ - _e3239632487_ + _tl3239332484_ + _e3239832487_ _hd3239732491_ - _tl3239832494_ - _e3240732442_ + _tl3239632494_ + _e3240932442_ _hd3240832446_ - _tl3240932449_) - (_g3235632415_)))) - (_g3235632415_)))))) + _tl3240732449_) + (let () + (declare (not safe)) + (_g3235632415_))))) + (let () + (declare (not safe)) + (_g3235632415_))))))) (___match4178241783_ - (lambda (_e3237132517_ + (lambda (_e3237332517_ _hd3237232521_ - _tl3237332524_ - _e3237432527_ + _tl3237132524_ + _e3237632527_ _hd3237532531_ - _tl3237632534_ - _e3237732537_ + _tl3237432534_ + _e3237932537_ _hd3237832541_ - _tl3237932544_ + _tl3237732544_ ___splice4173041731_ _target3238032547_ _tl3238232550_) @@ -167,18 +177,18 @@ _arg3238732560_)))) (let ((_arg3238832573_ (reverse _arg3238732560_))) - (if (gx#stx-pair? _tl3237632534_) - (let ((_e3238932577_ - (gx#syntax-e _tl3237632534_))) - (let ((_tl3239132584_ + (if (gx#stx-pair? _tl3237432534_) + (let ((_e3239132577_ + (gx#syntax-e _tl3237432534_))) + (let ((_tl3238932584_ (let () (declare (not safe)) - (##cdr _e3238932577_))) + (##cdr _e3239132577_))) (_hd3239032581_ (let () (declare (not safe)) - (##car _e3238932577_)))) - (if (gx#stx-null? _tl3239132584_) + (##car _e3239132577_)))) + (if (gx#stx-null? _tl3238932584_) (let ((_L32587_ _hd3239032581_) (_L32589_ @@ -192,62 +202,65 @@ _L32589_ _L32590_) (___match4179441795_ - _e3237132517_ + _e3237332517_ _hd3237232521_ - _tl3237332524_ - _e3237432527_ + _tl3237132524_ + _e3237632527_ _hd3237532531_ - _tl3237632534_))) + _tl3237432534_))) (___match4179441795_ - _e3237132517_ + _e3237332517_ _hd3237232521_ - _tl3237332524_ - _e3237432527_ + _tl3237132524_ + _e3237632527_ _hd3237532531_ - _tl3237632534_)))) + _tl3237432534_)))) (___match4179441795_ - _e3237132517_ + _e3237332517_ _hd3237232521_ - _tl3237332524_ - _e3237432527_ + _tl3237132524_ + _e3237632527_ _hd3237532531_ - _tl3237632534_))))))) + _tl3237432534_))))))) (_loop3238332553_ _target3238032547_ '()))))) (if (gx#stx-pair? ___stx4172341724_) - (let ((_e3235932658_ (gx#syntax-e ___stx4172341724_))) - (let ((_tl3236132665_ - (let () (declare (not safe)) (##cdr _e3235932658_))) + (let ((_e3236132658_ (gx#syntax-e ___stx4172341724_))) + (let ((_tl3235932665_ + (let () (declare (not safe)) (##cdr _e3236132658_))) (_hd3236032662_ - (let () (declare (not safe)) (##car _e3235932658_)))) - (if (gx#stx-pair? _tl3236132665_) - (let ((_e3236232668_ (gx#syntax-e _tl3236132665_))) - (let ((_tl3236432675_ + (let () (declare (not safe)) (##car _e3236132658_)))) + (if (gx#stx-pair? _tl3235932665_) + (let ((_e3236432668_ (gx#syntax-e _tl3235932665_))) + (let ((_tl3236232675_ (let () (declare (not safe)) - (##cdr _e3236232668_))) + (##cdr _e3236432668_))) (_hd3236332672_ (let () (declare (not safe)) - (##car _e3236232668_)))) + (##car _e3236432668_)))) (if (gx#stx-pair? _hd3236332672_) - (let ((_e3236532678_ + (let ((_e3236732678_ (gx#syntax-e _hd3236332672_))) - (let ((_tl3236732685_ + (let ((_tl3236532685_ (let () (declare (not safe)) - (##cdr _e3236532678_))) + (##cdr _e3236732678_))) (_hd3236632682_ (let () (declare (not safe)) - (##car _e3236532678_)))) - (if (|gerbil/core$[1]#syntax-local-setf-macro?| - (gx#datum->syntax '#f 'setfid)) + (##car _e3236732678_)))) + (if (let ((__tmp42483 + (gx#datum->syntax '#f 'setfid))) + (declare (not safe)) + (|gerbil/core$[1]#syntax-local-setf-macro?| + __tmp42483)) (let ((_L32688_ _hd3236632682_)) (___kont4172641727_ _L32688_)) - (if (gx#stx-pair/null? _tl3236732685_) + (if (gx#stx-pair/null? _tl3236532685_) (let ((___splice4173041731_ (gx#syntax-split-splice - _tl3236732685_ + _tl3236532685_ '0))) (let ((_tl3238232550_ (let () @@ -264,41 +277,41 @@ (if (gx#stx-null? _tl3238232550_) (___match4178241783_ - _e3235932658_ + _e3236132658_ _hd3236032662_ - _tl3236132665_ - _e3236232668_ + _tl3235932665_ + _e3236432668_ _hd3236332672_ - _tl3236432675_ - _e3236532678_ + _tl3236232675_ + _e3236732678_ _hd3236632682_ - _tl3236732685_ + _tl3236532685_ ___splice4173041731_ _target3238032547_ _tl3238232550_) (___match4179441795_ - _e3235932658_ + _e3236132658_ _hd3236032662_ - _tl3236132665_ - _e3236232668_ + _tl3235932665_ + _e3236432668_ _hd3236332672_ - _tl3236432675_)))) + _tl3236232675_)))) (___match4179441795_ - _e3235932658_ + _e3236132658_ _hd3236032662_ - _tl3236132665_ - _e3236232668_ + _tl3235932665_ + _e3236432668_ _hd3236332672_ - _tl3236432675_))))) + _tl3236232675_))))) (___match4179441795_ - _e3235932658_ + _e3236132658_ _hd3236032662_ - _tl3236132665_ - _e3236232668_ + _tl3235932665_ + _e3236432668_ _hd3236332672_ - _tl3236432675_)))) - (_g3235632415_)))) - (_g3235632415_))))))) + _tl3236232675_)))) + (let () (declare (not safe)) (_g3235632415_))))) + (let () (declare (not safe)) (_g3235632415_)))))))) (define |gerbil/core$[:0:]#values-set!| (lambda (_stx32708_) (let* ((_g3271132735_ @@ -307,53 +320,53 @@ (_g3271032913_ (lambda (_g3271232739_) (if (gx#stx-pair? _g3271232739_) - (let ((_e3271532742_ (gx#syntax-e _g3271232739_))) + (let ((_e3271732742_ (gx#syntax-e _g3271232739_))) (let ((_hd3271632746_ (let () (declare (not safe)) - (##car _e3271532742_))) - (_tl3271732749_ + (##car _e3271732742_))) + (_tl3271532749_ (let () (declare (not safe)) - (##cdr _e3271532742_)))) - (if (gx#stx-pair/null? _tl3271732749_) - (if (fx>= (gx#stx-length _tl3271732749_) '1) - (let ((_g42329_ + (##cdr _e3271732742_)))) + (if (gx#stx-pair/null? _tl3271532749_) + (if (fx>= (gx#stx-length _tl3271532749_) '1) + (let ((_g42484_ (gx#syntax-split-splice - _tl3271732749_ + _tl3271532749_ '1))) (begin - (let ((_g42330_ + (let ((_g42485_ (let () (declare (not safe)) - (if (##values? _g42329_) - (##vector-length _g42329_) + (if (##values? _g42484_) + (##vector-length _g42484_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42330_ 2))) + (##fx= _g42485_ 2))) (error "Context expects 2 values" - _g42330_))) + _g42485_))) (let ((_target3271832752_ (let () (declare (not safe)) - (##vector-ref _g42329_ 0))) + (##vector-ref _g42484_ 0))) (_tl3272032755_ (let () (declare (not safe)) - (##vector-ref _g42329_ 1)))) + (##vector-ref _g42484_ 1)))) (if (gx#stx-pair? _tl3272032755_) - (let ((_e3272732758_ + (let ((_e3272932758_ (gx#syntax-e _tl3272032755_))) (let ((_hd3272832762_ (let () (declare (not safe)) - (##car _e3272732758_))) - (_tl3272932765_ + (##car _e3272932758_))) + (_tl3272732765_ (let () (declare (not safe)) - (##cdr _e3272732758_)))) - (if (gx#stx-null? _tl3272932765_) + (##cdr _e3272932758_)))) + (if (gx#stx-null? _tl3272732765_) (letrec ((_loop3272132768_ (lambda (_hd3271932772_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -382,38 +395,38 @@ (_g3281132901_ (lambda (_g3281332833_) (if (gx#stx-pair/null? _g3281332833_) - (let ((_g42331_ + (let ((_g42486_ (gx#syntax-split-splice _g3281332833_ '0))) (begin - (let ((_g42332_ + (let ((_g42487_ (let () (declare (not safe)) (if (##values? - _g42331_) + _g42486_) (##vector-length - _g42331_) + _g42486_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42332_ + (##fx= _g42487_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g42332_))) + (error "Context expects 2 values" _g42487_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3281532836_ (let () (declare (not safe)) (##vector-ref - _g42331_ + _g42486_ 0))) (_tl3281732839_ (let () (declare (not safe)) (##vector-ref - _g42331_ + _g42486_ 1)))) (if (gx#stx-null? _tl3281732839_) @@ -438,10 +451,10 @@ ((lambda (_L32866_) (let () (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (foldr (lambda (_g3288132887_ + (cons (cons (cons (foldr (lambda (_g3288432887_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3288232890_) - (cons _g3288132887_ _g3288232890_)) + _g3288532890_) + (cons _g3288432887_ _g3288532890_)) '() _L32866_) (cons _L32792_ '())) @@ -451,13 +464,13 @@ (gx#syntax-check-splice-targets _L32866_ _L32794_) - (foldr (lambda (_g3288332893_ + (foldr (lambda (_g3288132893_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3288432896_ - _g3288532898_) + _g3288232896_ + _g3288332898_) (cons (cons (gx#datum->syntax '#f 'set!) - (cons _g3288432896_ (cons _g3288332893_ '()))) - _g3288532898_)) + (cons _g3288232896_ (cons _g3288132893_ '()))) + _g3288332898_)) '() _L32866_ _L32794_)))))) @@ -521,37 +534,37 @@ (_g3314433226_ (lambda (_g3314633166_) (if (gx#stx-pair/null? _g3314633166_) - (let ((_g42333_ + (let ((_g42488_ (gx#syntax-split-splice _g3314633166_ '0))) (begin - (let ((_g42334_ + (let ((_g42489_ (let () (declare (not safe)) (if (##values? - _g42333_) + _g42488_) (##vector-length - _g42333_) + _g42488_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42334_ 2))) - (error "Context expects 2 values" _g42334_))) + (##fx= _g42489_ 2))) + (error "Context expects 2 values" _g42489_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3314833169_ (let () (declare (not safe)) (##vector-ref - _g42333_ + _g42488_ 0))) (_tl3315033172_ (let () (declare (not safe)) (##vector-ref - _g42333_ + _g42488_ 1)))) (if (gx#stx-null? _tl3315033172_) @@ -622,12 +635,12 @@ _L33092_))) (gx#stx-source _stx32919_))))))) (let* ((___match4187241873_ - (lambda (_e3294432988_ + (lambda (_e3294632988_ _hd3294532992_ - _tl3294632995_ - _e3294732998_ + _tl3294432995_ + _e3294932998_ _hd3294833002_ - _tl3294933005_ + _tl3294733005_ ___splice4182641827_ _target3295033008_ _tl3295233011_) @@ -647,47 +660,51 @@ (declare (not safe)) (##car _e3295433026_)))) (if (gx#stx-pair? _lp-hd3295533030_) - (let ((_e3296133036_ + (let ((_e3296333036_ (gx#syntax-e _lp-hd3295533030_))) - (let ((_tl3296333043_ + (let ((_tl3296133043_ (let () (declare (not safe)) - (##cdr _e3296133036_))) + (##cdr _e3296333036_))) (_hd3296233040_ (let () (declare (not safe)) - (##car _e3296133036_)))) + (##car _e3296333036_)))) (if (gx#stx-pair? - _tl3296333043_) - (let ((_e3296433046_ + _tl3296133043_) + (let ((_e3296633046_ (gx#syntax-e - _tl3296333043_))) - (let ((_tl3296633053_ + _tl3296133043_))) + (let ((_tl3296433053_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3296433046_))) + (##cdr _e3296633046_))) (_hd3296533050_ - (let () (declare (not safe)) (##car _e3296433046_)))) - (if (gx#stx-null? _tl3296633053_) + (let () (declare (not safe)) (##car _e3296633046_)))) + (if (gx#stx-null? _tl3296433053_) (_loop3295333014_ _lp-tl3295633033_ (cons _hd3296533050_ _expr3295733021_) (cons _hd3296233040_ _param3295833023_)) - (_g3292332981_)))) + (let () (declare (not safe)) (_g3292332981_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3292332981_)))) - (_g3292332981_)))) + (let () + (declare (not safe)) + (_g3292332981_))))) + (let () + (declare (not safe)) + (_g3292332981_))))) (let ((_param3296033059_ (reverse _param3295833023_)) (_expr3295933056_ (reverse _expr3295733021_))) - (if (gx#stx-pair/null? _tl3294933005_) + (if (gx#stx-pair/null? _tl3294733005_) (let ((___splice4182841829_ (gx#syntax-split-splice - _tl3294933005_ + _tl3294733005_ '0))) (let ((_tl3296933065_ (let () @@ -728,16 +745,20 @@ (_loop3297033068_ _target3296733062_ '())) - (_g3292332981_)))) - (_g3292332981_))))))) + (let () + (declare (not safe)) + (_g3292332981_))))) + (let () + (declare (not safe)) + (_g3292332981_)))))))) (_loop3295333014_ _target3295033008_ '() '())))) (___match4185241853_ - (lambda (_e3292633265_ + (lambda (_e3292833265_ _hd3292733269_ - _tl3292833272_ - _e3292933275_ + _tl3292633272_ + _e3293133275_ _hd3293033279_ - _tl3293133282_ + _tl3292933282_ ___splice4182241823_ _target3293233285_ _tl3293433288_) @@ -764,26 +785,26 @@ _body3294033311_)))))) (_loop3293533291_ _target3293233285_ '()))))) (if (gx#stx-pair? ___stx4181741818_) - (let ((_e3292633265_ (gx#syntax-e ___stx4181741818_))) - (let ((_tl3292833272_ - (let () (declare (not safe)) (##cdr _e3292633265_))) + (let ((_e3292833265_ (gx#syntax-e ___stx4181741818_))) + (let ((_tl3292633272_ + (let () (declare (not safe)) (##cdr _e3292833265_))) (_hd3292733269_ - (let () (declare (not safe)) (##car _e3292633265_)))) - (if (gx#stx-pair? _tl3292833272_) - (let ((_e3292933275_ (gx#syntax-e _tl3292833272_))) - (let ((_tl3293133282_ + (let () (declare (not safe)) (##car _e3292833265_)))) + (if (gx#stx-pair? _tl3292633272_) + (let ((_e3293133275_ (gx#syntax-e _tl3292633272_))) + (let ((_tl3292933282_ (let () (declare (not safe)) - (##cdr _e3292933275_))) + (##cdr _e3293133275_))) (_hd3293033279_ (let () (declare (not safe)) - (##car _e3292933275_)))) + (##car _e3293133275_)))) (if (gx#stx-null? _hd3293033279_) - (if (gx#stx-pair/null? _tl3293133282_) + (if (gx#stx-pair/null? _tl3292933282_) (let ((___splice4182241823_ (gx#syntax-split-splice - _tl3293133282_ + _tl3292933282_ '0))) (let ((_tl3293433288_ (let () @@ -799,12 +820,12 @@ '0)))) (if (gx#stx-null? _tl3293433288_) (___match4185241853_ - _e3292633265_ + _e3292833265_ _hd3292733269_ - _tl3292833272_ - _e3292933275_ + _tl3292633272_ + _e3293133275_ _hd3293033279_ - _tl3293133282_ + _tl3292933282_ ___splice4182241823_ _target3293233285_ _tl3293433288_) @@ -829,17 +850,21 @@ (if (gx#stx-null? _tl3295233011_) (___match4187241873_ - _e3292633265_ + _e3292833265_ _hd3292733269_ - _tl3292833272_ - _e3292933275_ + _tl3292633272_ + _e3293133275_ _hd3293033279_ - _tl3293133282_ + _tl3292933282_ ___splice4182641827_ _target3295033008_ _tl3295233011_) - (_g3292332981_)))) - (_g3292332981_))))) + (let () + (declare (not safe)) + (_g3292332981_))))) + (let () + (declare (not safe)) + (_g3292332981_)))))) (if (gx#stx-pair/null? _hd3293033279_) (let ((___splice4182641827_ (gx#syntax-split-splice @@ -859,17 +884,21 @@ '0)))) (if (gx#stx-null? _tl3295233011_) (___match4187241873_ - _e3292633265_ + _e3292833265_ _hd3292733269_ - _tl3292833272_ - _e3292933275_ + _tl3292633272_ + _e3293133275_ _hd3293033279_ - _tl3293133282_ + _tl3292933282_ ___splice4182641827_ _target3295033008_ _tl3295233011_) - (_g3292332981_)))) - (_g3292332981_))) + (let () + (declare (not safe)) + (_g3292332981_))))) + (let () + (declare (not safe)) + (_g3292332981_)))) (if (gx#stx-pair/null? _hd3293033279_) (let ((___splice4182641827_ (gx#syntax-split-splice @@ -889,19 +918,23 @@ '0)))) (if (gx#stx-null? _tl3295233011_) (___match4187241873_ - _e3292633265_ + _e3292833265_ _hd3292733269_ - _tl3292833272_ - _e3292933275_ + _tl3292633272_ + _e3293133275_ _hd3293033279_ - _tl3293133282_ + _tl3292933282_ ___splice4182641827_ _target3295033008_ _tl3295233011_) - (_g3292332981_)))) - (_g3292332981_))))) - (_g3292332981_)))) - (_g3292332981_))))))) + (let () + (declare (not safe)) + (_g3292332981_))))) + (let () + (declare (not safe)) + (_g3292332981_)))))) + (let () (declare (not safe)) (_g3292332981_))))) + (let () (declare (not safe)) (_g3292332981_)))))))) (define |gerbil/core$[:0:]#let/cc| (lambda (_$stx33348_) (let* ((_g3335233376_ @@ -910,50 +943,50 @@ (_g3335133461_ (lambda (_g3335333380_) (if (gx#stx-pair? _g3335333380_) - (let ((_e3335633383_ (gx#syntax-e _g3335333380_))) + (let ((_e3335833383_ (gx#syntax-e _g3335333380_))) (let ((_hd3335733387_ (let () (declare (not safe)) - (##car _e3335633383_))) - (_tl3335833390_ + (##car _e3335833383_))) + (_tl3335633390_ (let () (declare (not safe)) - (##cdr _e3335633383_)))) - (if (gx#stx-pair? _tl3335833390_) - (let ((_e3335933393_ (gx#syntax-e _tl3335833390_))) + (##cdr _e3335833383_)))) + (if (gx#stx-pair? _tl3335633390_) + (let ((_e3336133393_ (gx#syntax-e _tl3335633390_))) (let ((_hd3336033397_ (let () (declare (not safe)) - (##car _e3335933393_))) - (_tl3336133400_ + (##car _e3336133393_))) + (_tl3335933400_ (let () (declare (not safe)) - (##cdr _e3335933393_)))) - (if (gx#stx-pair/null? _tl3336133400_) - (let ((_g42335_ + (##cdr _e3336133393_)))) + (if (gx#stx-pair/null? _tl3335933400_) + (let ((_g42490_ (gx#syntax-split-splice - _tl3336133400_ + _tl3335933400_ '0))) (begin - (let ((_g42336_ + (let ((_g42491_ (let () (declare (not safe)) - (if (##values? _g42335_) - (##vector-length _g42335_) + (if (##values? _g42490_) + (##vector-length _g42490_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42336_ 2))) + (##fx= _g42491_ 2))) (error "Context expects 2 values" - _g42336_))) + _g42491_))) (let ((_target3336233403_ (let () (declare (not safe)) - (##vector-ref _g42335_ 0))) + (##vector-ref _g42490_ 0))) (_tl3336433406_ (let () (declare (not safe)) - (##vector-ref _g42335_ 1)))) + (##vector-ref _g42490_ 1)))) (if (gx#stx-null? _tl3336433406_) (letrec ((_loop3336533409_ (lambda (_hd3336333413_ @@ -1006,50 +1039,50 @@ (_g3346933579_ (lambda (_g3347133498_) (if (gx#stx-pair? _g3347133498_) - (let ((_e3347433501_ (gx#syntax-e _g3347133498_))) + (let ((_e3347633501_ (gx#syntax-e _g3347133498_))) (let ((_hd3347533505_ (let () (declare (not safe)) - (##car _e3347433501_))) - (_tl3347633508_ + (##car _e3347633501_))) + (_tl3347433508_ (let () (declare (not safe)) - (##cdr _e3347433501_)))) - (if (gx#stx-pair? _tl3347633508_) - (let ((_e3347733511_ (gx#syntax-e _tl3347633508_))) + (##cdr _e3347633501_)))) + (if (gx#stx-pair? _tl3347433508_) + (let ((_e3347933511_ (gx#syntax-e _tl3347433508_))) (let ((_hd3347833515_ (let () (declare (not safe)) - (##car _e3347733511_))) - (_tl3347933518_ + (##car _e3347933511_))) + (_tl3347733518_ (let () (declare (not safe)) - (##cdr _e3347733511_)))) - (if (gx#stx-pair/null? _tl3347933518_) - (let ((_g42337_ + (##cdr _e3347933511_)))) + (if (gx#stx-pair/null? _tl3347733518_) + (let ((_g42492_ (gx#syntax-split-splice - _tl3347933518_ + _tl3347733518_ '0))) (begin - (let ((_g42338_ + (let ((_g42493_ (let () (declare (not safe)) - (if (##values? _g42337_) - (##vector-length _g42337_) + (if (##values? _g42492_) + (##vector-length _g42492_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42338_ 2))) + (##fx= _g42493_ 2))) (error "Context expects 2 values" - _g42338_))) + _g42493_))) (let ((_target3348033521_ (let () (declare (not safe)) - (##vector-ref _g42337_ 0))) + (##vector-ref _g42492_ 0))) (_tl3348233524_ (let () (declare (not safe)) - (##vector-ref _g42337_ 1)))) + (##vector-ref _g42492_ 1)))) (if (gx#stx-null? _tl3348233524_) (letrec ((_loop3348333527_ (lambda (_hd3348133531_ @@ -1102,69 +1135,69 @@ (_g3358733715_ (lambda (_g3358933620_) (if (gx#stx-pair? _g3358933620_) - (let ((_e3359333623_ (gx#syntax-e _g3358933620_))) + (let ((_e3359533623_ (gx#syntax-e _g3358933620_))) (let ((_hd3359433627_ (let () (declare (not safe)) - (##car _e3359333623_))) - (_tl3359533630_ + (##car _e3359533623_))) + (_tl3359333630_ (let () (declare (not safe)) - (##cdr _e3359333623_)))) - (if (gx#stx-pair? _tl3359533630_) - (let ((_e3359633633_ (gx#syntax-e _tl3359533630_))) + (##cdr _e3359533623_)))) + (if (gx#stx-pair? _tl3359333630_) + (let ((_e3359833633_ (gx#syntax-e _tl3359333630_))) (let ((_hd3359733637_ (let () (declare (not safe)) - (##car _e3359633633_))) - (_tl3359833640_ + (##car _e3359833633_))) + (_tl3359633640_ (let () (declare (not safe)) - (##cdr _e3359633633_)))) - (if (gx#stx-pair? _tl3359833640_) - (let ((_e3359933643_ - (gx#syntax-e _tl3359833640_))) + (##cdr _e3359833633_)))) + (if (gx#stx-pair? _tl3359633640_) + (let ((_e3360133643_ + (gx#syntax-e _tl3359633640_))) (let ((_hd3360033647_ (let () (declare (not safe)) - (##car _e3359933643_))) - (_tl3360133650_ + (##car _e3360133643_))) + (_tl3359933650_ (let () (declare (not safe)) - (##cdr _e3359933643_)))) - (if (gx#stx-pair/null? _tl3360133650_) - (let ((_g42339_ + (##cdr _e3360133643_)))) + (if (gx#stx-pair/null? _tl3359933650_) + (let ((_g42494_ (gx#syntax-split-splice - _tl3360133650_ + _tl3359933650_ '0))) (begin - (let ((_g42340_ + (let ((_g42495_ (let () (declare (not safe)) (if (##values? - _g42339_) + _g42494_) (##vector-length - _g42339_) + _g42494_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42340_ + (##fx= _g42495_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g42340_))) + (error "Context expects 2 values" _g42495_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3360233653_ (let () (declare (not safe)) (##vector-ref - _g42339_ + _g42494_ 0))) (_tl3360433656_ (let () (declare (not safe)) (##vector-ref - _g42339_ + _g42494_ 1)))) (if (gx#stx-null? _tl3360433656_) diff --git a/src/bootstrap/gerbil/core__13.scm b/src/bootstrap/gerbil/core__13.scm index 08e8ab682..2c46879d4 100644 --- a/src/bootstrap/gerbil/core__13.scm +++ b/src/bootstrap/gerbil/core__13.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[2]#_g42341_| + (define |gerbil/core$[2]#_g42498_| (##structure gx#syntax-quote::t - 'setq-macro::t + 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g42342_| + (define |gerbil/core$[2]#_g42500_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g42343_| + (define |gerbil/core$[2]#_g42501_| (##structure gx#syntax-quote::t - 'make-setq-macro + 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g42344_| + (define |gerbil/core$[2]#_g42502_| (##structure gx#syntax-quote::t - 'setq-macro? + 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g42346_| + (define |gerbil/core$[2]#_g42503_| (##structure gx#syntax-quote::t - 'macro-object + 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g42347_| + (define |gerbil/core$[2]#_g42508_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g42348_| + (define |gerbil/core$[2]#_g42509_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g42349_| + (define |gerbil/core$[2]#_g42510_| (##structure gx#syntax-quote::t 'setf-macro? @@ -58,46 +58,58 @@ '())) (begin (define |gerbil/core$[:1:]#setq-macro| - (make-class-instance - |gerbil/core$$[1]#extended-class-info::t| - 'runtime-identifier: - |gerbil/core$[2]#_g42341_| - 'expander-identifiers: - (cons (cons |gerbil/core$[2]#_g42342_| '()) - (cons |gerbil/core$[2]#_g42341_| - (cons |gerbil/core$[2]#_g42343_| - (cons |gerbil/core$[2]#_g42344_| - (cons '() (cons '() '())))))) - 'type-exhibitor: - (let ((__tmp42345 (list |gerbil/core$[2]#_g42346_|))) - (declare (not safe)) - (##structure - |gerbil/core$$[1]#runtime-class-exhibitor::t| - 'gerbil.core#setq-macro::t - __tmp42345 - 'setq-macro - '#f - '() - '())))) + (let ((__tmp42504 |gerbil/core$[2]#_g42501_|) + (__tmp42499 + (cons (cons |gerbil/core$[2]#_g42500_| '()) + (cons |gerbil/core$[2]#_g42501_| + (cons |gerbil/core$[2]#_g42502_| + (cons |gerbil/core$[2]#_g42503_| + (cons '() (cons '() '()))))))) + (__tmp42496 + (let ((__tmp42497 (list |gerbil/core$[2]#_g42498_|))) + (declare (not safe)) + (##structure + |gerbil/core$$[1]#runtime-class-exhibitor::t| + 'gerbil.core#setq-macro::t + __tmp42497 + 'setq-macro + '#f + '() + '())))) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#extended-class-info::t| + 'runtime-identifier: + __tmp42504 + 'expander-identifiers: + __tmp42499 + 'type-exhibitor: + __tmp42496))) (define |gerbil/core$[:1:]#setf-macro| - (make-class-instance - |gerbil/core$$[1]#extended-class-info::t| - 'runtime-identifier: - |gerbil/core$[2]#_g42347_| - 'expander-identifiers: - (cons (cons |gerbil/core$[2]#_g42342_| '()) - (cons |gerbil/core$[2]#_g42347_| - (cons |gerbil/core$[2]#_g42348_| - (cons |gerbil/core$[2]#_g42349_| - (cons '() (cons '() '())))))) - 'type-exhibitor: - (let ((__tmp42350 (list |gerbil/core$[2]#_g42346_|))) - (declare (not safe)) - (##structure - |gerbil/core$$[1]#runtime-class-exhibitor::t| - 'gerbil.core#setf-macro::t - __tmp42350 - 'setf-macro - '#f - '() - '())))))) + (let ((__tmp42511 |gerbil/core$[2]#_g42508_|) + (__tmp42507 + (cons (cons |gerbil/core$[2]#_g42500_| '()) + (cons |gerbil/core$[2]#_g42508_| + (cons |gerbil/core$[2]#_g42509_| + (cons |gerbil/core$[2]#_g42510_| + (cons '() (cons '() '()))))))) + (__tmp42505 + (let ((__tmp42506 (list |gerbil/core$[2]#_g42498_|))) + (declare (not safe)) + (##structure + |gerbil/core$$[1]#runtime-class-exhibitor::t| + 'gerbil.core#setf-macro::t + __tmp42506 + 'setf-macro + '#f + '() + '())))) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#extended-class-info::t| + 'runtime-identifier: + __tmp42511 + 'expander-identifiers: + __tmp42507 + 'type-exhibitor: + __tmp42505))))) diff --git a/src/bootstrap/gerbil/core__14.scm b/src/bootstrap/gerbil/core__14.scm index 0a15180f5..d99f6d36c 100644 --- a/src/bootstrap/gerbil/core__14.scm +++ b/src/bootstrap/gerbil/core__14.scm @@ -8,15 +8,15 @@ (_g3372633768_ (lambda (_g3372833742_) (if (gx#stx-pair? _g3372833742_) - (let ((_e3373033745_ (gx#syntax-e _g3372833742_))) + (let ((_e3373233745_ (gx#syntax-e _g3372833742_))) (let ((_hd3373133749_ (let () (declare (not safe)) - (##car _e3373033745_))) - (_tl3373233752_ + (##car _e3373233745_))) + (_tl3373033752_ (let () (declare (not safe)) - (##cdr _e3373033745_)))) + (##cdr _e3373233745_)))) ((lambda (_L33755_) (cons (gx#datum->syntax '#f 'make-setq-macro) (cons 'macro: @@ -25,7 +25,7 @@ 'syntax-rules) _L33755_) '())))) - _tl3373233752_))) + _tl3373033752_))) (_g3372733738_ _g3372833742_))))) (_g3372633768_ _$stx33723_)))) (define |gerbil/core$[:0:]#quasisyntax| diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index cff491178..970092faa 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -25,29 +25,29 @@ '())) '())))))) (if (gx#stx-pair? ___stx4187541876_) - (let ((_e3379433864_ (gx#syntax-e ___stx4187541876_))) - (let ((_tl3379633871_ - (let () (declare (not safe)) (##cdr _e3379433864_))) + (let ((_e3379633864_ (gx#syntax-e ___stx4187541876_))) + (let ((_tl3379433871_ + (let () (declare (not safe)) (##cdr _e3379633864_))) (_hd3379533868_ - (let () (declare (not safe)) (##car _e3379433864_)))) - (if (gx#stx-null? _tl3379633871_) + (let () (declare (not safe)) (##car _e3379633864_)))) + (if (gx#stx-null? _tl3379433871_) (___kont4187841879_) - (if (gx#stx-pair? _tl3379633871_) - (let ((_e3380333828_ (gx#syntax-e _tl3379633871_))) - (let ((_tl3380533835_ + (if (gx#stx-pair? _tl3379433871_) + (let ((_e3380533828_ (gx#syntax-e _tl3379433871_))) + (let ((_tl3380333835_ (let () (declare (not safe)) - (##cdr _e3380333828_))) + (##cdr _e3380533828_))) (_hd3380433832_ (let () (declare (not safe)) - (##car _e3380333828_)))) + (##car _e3380533828_)))) (___kont4188041881_ - _tl3380533835_ + _tl3380333835_ _hd3380433832_ _hd3379533868_))) - (_g3379233811_))))) - (_g3379233811_)))))) + (let () (declare (not safe)) (_g3379233811_)))))) + (let () (declare (not safe)) (_g3379233811_))))))) (define |gerbil/core$[:0:]#defsyntax-for-import| (lambda (_$stx33882_) (let* ((___stx4190541906_ _$stx33882_) @@ -77,15 +77,15 @@ _L33994_))) '())))))) (let* ((___match4196041961_ - (lambda (_e3390433934_ + (lambda (_e3390633934_ _hd3390533938_ - _tl3390633941_ - _e3390733944_ + _tl3390433941_ + _e3390933944_ _hd3390833948_ - _tl3390933951_ - _e3391033954_ + _tl3390733951_ + _e3391233954_ _hd3391133958_ - _tl3391233961_ + _tl3391033961_ ___splice4191241913_ _target3391333964_ _tl3391533967_) @@ -109,7 +109,7 @@ (let ((_body3392133990_ (reverse _body3392033977_))) (let ((_L33994_ _body3392133990_) - (_L33996_ _tl3391233961_) + (_L33996_ _tl3391033961_) (_L33997_ _hd3391133958_) (_L33998_ _hd3390533938_)) (if (gx#identifier? _L33997_) @@ -118,36 +118,38 @@ _L33996_ _L33997_ _L33998_) - (_g3388733927_)))))))) + (let () + (declare (not safe)) + (_g3388733927_))))))))) (_loop3391633970_ _target3391333964_ '())))) (___match4193441935_ - (lambda (_e3389134035_ + (lambda (_e3389334035_ _hd3389234039_ - _tl3389334042_ - _e3389434045_ + _tl3389134042_ + _e3389634045_ _hd3389534049_ - _tl3389634052_ - _e3389734055_ + _tl3389434052_ + _e3389934055_ _hd3389834059_ - _tl3389934062_) + _tl3389734062_) (let ((_L34065_ _hd3389834059_) (_L34067_ _hd3389534049_)) (if (gx#identifier? _L34067_) (___kont4190841909_ _L34065_ _L34067_) (if (gx#stx-pair? _hd3389534049_) - (let ((_e3391033954_ + (let ((_e3391233954_ (gx#syntax-e _hd3389534049_))) - (let ((_tl3391233961_ + (let ((_tl3391033961_ (let () (declare (not safe)) - (##cdr _e3391033954_))) + (##cdr _e3391233954_))) (_hd3391133958_ (let () (declare (not safe)) - (##car _e3391033954_)))) - (if (gx#stx-pair/null? _tl3389634052_) + (##car _e3391233954_)))) + (if (gx#stx-pair/null? _tl3389434052_) (let ((___splice4191241913_ (gx#syntax-split-splice - _tl3389634052_ + _tl3389434052_ '0))) (let ((_tl3391533967_ (let () @@ -163,76 +165,82 @@ '0)))) (if (gx#stx-null? _tl3391533967_) (___match4196041961_ - _e3389134035_ + _e3389334035_ _hd3389234039_ - _tl3389334042_ - _e3389434045_ + _tl3389134042_ + _e3389634045_ _hd3389534049_ - _tl3389634052_ - _e3391033954_ + _tl3389434052_ + _e3391233954_ _hd3391133958_ - _tl3391233961_ + _tl3391033961_ ___splice4191241913_ _target3391333964_ _tl3391533967_) - (_g3388733927_)))) - (_g3388733927_)))) - (_g3388733927_))))))) + (let () + (declare (not safe)) + (_g3388733927_))))) + (let () + (declare (not safe)) + (_g3388733927_))))) + (let () + (declare (not safe)) + (_g3388733927_)))))))) (if (gx#stx-pair? ___stx4190541906_) - (let ((_e3389134035_ (gx#syntax-e ___stx4190541906_))) - (let ((_tl3389334042_ - (let () (declare (not safe)) (##cdr _e3389134035_))) + (let ((_e3389334035_ (gx#syntax-e ___stx4190541906_))) + (let ((_tl3389134042_ + (let () (declare (not safe)) (##cdr _e3389334035_))) (_hd3389234039_ - (let () (declare (not safe)) (##car _e3389134035_)))) - (if (gx#stx-pair? _tl3389334042_) - (let ((_e3389434045_ (gx#syntax-e _tl3389334042_))) - (let ((_tl3389634052_ + (let () (declare (not safe)) (##car _e3389334035_)))) + (if (gx#stx-pair? _tl3389134042_) + (let ((_e3389634045_ (gx#syntax-e _tl3389134042_))) + (let ((_tl3389434052_ (let () (declare (not safe)) - (##cdr _e3389434045_))) + (##cdr _e3389634045_))) (_hd3389534049_ (let () (declare (not safe)) - (##car _e3389434045_)))) - (if (gx#stx-pair? _tl3389634052_) - (let ((_e3389734055_ - (gx#syntax-e _tl3389634052_))) - (let ((_tl3389934062_ + (##car _e3389634045_)))) + (if (gx#stx-pair? _tl3389434052_) + (let ((_e3389934055_ + (gx#syntax-e _tl3389434052_))) + (let ((_tl3389734062_ (let () (declare (not safe)) - (##cdr _e3389734055_))) + (##cdr _e3389934055_))) (_hd3389834059_ (let () (declare (not safe)) - (##car _e3389734055_)))) - (if (gx#stx-null? _tl3389934062_) + (##car _e3389934055_)))) + (if (gx#stx-null? _tl3389734062_) (___match4193441935_ - _e3389134035_ + _e3389334035_ _hd3389234039_ - _tl3389334042_ - _e3389434045_ + _tl3389134042_ + _e3389634045_ _hd3389534049_ - _tl3389634052_ - _e3389734055_ + _tl3389434052_ + _e3389934055_ _hd3389834059_ - _tl3389934062_) + _tl3389734062_) (if (gx#stx-pair? _hd3389534049_) - (let ((_e3391033954_ + (let ((_e3391233954_ (gx#syntax-e _hd3389534049_))) - (let ((_tl3391233961_ + (let ((_tl3391033961_ (let () (declare (not safe)) - (##cdr _e3391033954_))) + (##cdr _e3391233954_))) (_hd3391133958_ (let () (declare (not safe)) - (##car _e3391033954_)))) + (##car _e3391233954_)))) (if (gx#stx-pair/null? - _tl3389634052_) + _tl3389434052_) (let ((___splice4191241913_ (gx#syntax-split-splice - _tl3389634052_ + _tl3389434052_ '0))) (let ((_tl3391533967_ (let () @@ -246,37 +254,41 @@ (##vector-ref ___splice4191241913_ '0)))) (if (gx#stx-null? _tl3391533967_) (___match4196041961_ - _e3389134035_ + _e3389334035_ _hd3389234039_ - _tl3389334042_ - _e3389434045_ + _tl3389134042_ + _e3389634045_ _hd3389534049_ - _tl3389634052_ - _e3391033954_ + _tl3389434052_ + _e3391233954_ _hd3391133958_ - _tl3391233961_ + _tl3391033961_ ___splice4191241913_ _target3391333964_ _tl3391533967_) - (_g3388733927_)))) + (let () (declare (not safe)) (_g3388733927_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3388733927_)))) - (_g3388733927_))))) + (let () + (declare (not safe)) + (_g3388733927_))))) + (let () + (declare (not safe)) + (_g3388733927_)))))) (if (gx#stx-pair? _hd3389534049_) - (let ((_e3391033954_ + (let ((_e3391233954_ (gx#syntax-e _hd3389534049_))) - (let ((_tl3391233961_ + (let ((_tl3391033961_ (let () (declare (not safe)) - (##cdr _e3391033954_))) + (##cdr _e3391233954_))) (_hd3391133958_ (let () (declare (not safe)) - (##car _e3391033954_)))) - (if (gx#stx-pair/null? _tl3389634052_) + (##car _e3391233954_)))) + (if (gx#stx-pair/null? _tl3389434052_) (let ((___splice4191241913_ (gx#syntax-split-splice - _tl3389634052_ + _tl3389434052_ '0))) (let ((_tl3391533967_ (let () @@ -293,23 +305,29 @@ (if (gx#stx-null? _tl3391533967_) (___match4196041961_ - _e3389134035_ + _e3389334035_ _hd3389234039_ - _tl3389334042_ - _e3389434045_ + _tl3389134042_ + _e3389634045_ _hd3389534049_ - _tl3389634052_ - _e3391033954_ + _tl3389434052_ + _e3391233954_ _hd3391133958_ - _tl3391233961_ + _tl3391033961_ ___splice4191241913_ _target3391333964_ _tl3391533967_) - (_g3388733927_)))) - (_g3388733927_)))) - (_g3388733927_))))) - (_g3388733927_)))) - (_g3388733927_))))))) + (let () + (declare (not safe)) + (_g3388733927_))))) + (let () + (declare (not safe)) + (_g3388733927_))))) + (let () + (declare (not safe)) + (_g3388733927_)))))) + (let () (declare (not safe)) (_g3388733927_))))) + (let () (declare (not safe)) (_g3388733927_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-export| (lambda (_$stx34087_) (let* ((___stx4196341964_ _$stx34087_) @@ -339,15 +357,15 @@ _L34199_))) '())))))) (let* ((___match4201842019_ - (lambda (_e3410934139_ + (lambda (_e3411134139_ _hd3411034143_ - _tl3411134146_ - _e3411234149_ + _tl3410934146_ + _e3411434149_ _hd3411334153_ - _tl3411434156_ - _e3411534159_ + _tl3411234156_ + _e3411734159_ _hd3411634163_ - _tl3411734166_ + _tl3411534166_ ___splice4197041971_ _target3411834169_ _tl3412034172_) @@ -371,7 +389,7 @@ (let ((_body3412634195_ (reverse _body3412534182_))) (let ((_L34199_ _body3412634195_) - (_L34201_ _tl3411734166_) + (_L34201_ _tl3411534166_) (_L34202_ _hd3411634163_) (_L34203_ _hd3411034143_)) (if (gx#identifier? _L34202_) @@ -380,36 +398,38 @@ _L34201_ _L34202_ _L34203_) - (_g3409234132_)))))))) + (let () + (declare (not safe)) + (_g3409234132_))))))))) (_loop3412134175_ _target3411834169_ '())))) (___match4199241993_ - (lambda (_e3409634240_ + (lambda (_e3409834240_ _hd3409734244_ - _tl3409834247_ - _e3409934250_ + _tl3409634247_ + _e3410134250_ _hd3410034254_ - _tl3410134257_ - _e3410234260_ + _tl3409934257_ + _e3410434260_ _hd3410334264_ - _tl3410434267_) + _tl3410234267_) (let ((_L34270_ _hd3410334264_) (_L34272_ _hd3410034254_)) (if (gx#identifier? _L34272_) (___kont4196641967_ _L34270_ _L34272_) (if (gx#stx-pair? _hd3410034254_) - (let ((_e3411534159_ + (let ((_e3411734159_ (gx#syntax-e _hd3410034254_))) - (let ((_tl3411734166_ + (let ((_tl3411534166_ (let () (declare (not safe)) - (##cdr _e3411534159_))) + (##cdr _e3411734159_))) (_hd3411634163_ (let () (declare (not safe)) - (##car _e3411534159_)))) - (if (gx#stx-pair/null? _tl3410134257_) + (##car _e3411734159_)))) + (if (gx#stx-pair/null? _tl3409934257_) (let ((___splice4197041971_ (gx#syntax-split-splice - _tl3410134257_ + _tl3409934257_ '0))) (let ((_tl3412034172_ (let () @@ -425,76 +445,82 @@ '0)))) (if (gx#stx-null? _tl3412034172_) (___match4201842019_ - _e3409634240_ + _e3409834240_ _hd3409734244_ - _tl3409834247_ - _e3409934250_ + _tl3409634247_ + _e3410134250_ _hd3410034254_ - _tl3410134257_ - _e3411534159_ + _tl3409934257_ + _e3411734159_ _hd3411634163_ - _tl3411734166_ + _tl3411534166_ ___splice4197041971_ _target3411834169_ _tl3412034172_) - (_g3409234132_)))) - (_g3409234132_)))) - (_g3409234132_))))))) + (let () + (declare (not safe)) + (_g3409234132_))))) + (let () + (declare (not safe)) + (_g3409234132_))))) + (let () + (declare (not safe)) + (_g3409234132_)))))))) (if (gx#stx-pair? ___stx4196341964_) - (let ((_e3409634240_ (gx#syntax-e ___stx4196341964_))) - (let ((_tl3409834247_ - (let () (declare (not safe)) (##cdr _e3409634240_))) + (let ((_e3409834240_ (gx#syntax-e ___stx4196341964_))) + (let ((_tl3409634247_ + (let () (declare (not safe)) (##cdr _e3409834240_))) (_hd3409734244_ - (let () (declare (not safe)) (##car _e3409634240_)))) - (if (gx#stx-pair? _tl3409834247_) - (let ((_e3409934250_ (gx#syntax-e _tl3409834247_))) - (let ((_tl3410134257_ + (let () (declare (not safe)) (##car _e3409834240_)))) + (if (gx#stx-pair? _tl3409634247_) + (let ((_e3410134250_ (gx#syntax-e _tl3409634247_))) + (let ((_tl3409934257_ (let () (declare (not safe)) - (##cdr _e3409934250_))) + (##cdr _e3410134250_))) (_hd3410034254_ (let () (declare (not safe)) - (##car _e3409934250_)))) - (if (gx#stx-pair? _tl3410134257_) - (let ((_e3410234260_ - (gx#syntax-e _tl3410134257_))) - (let ((_tl3410434267_ + (##car _e3410134250_)))) + (if (gx#stx-pair? _tl3409934257_) + (let ((_e3410434260_ + (gx#syntax-e _tl3409934257_))) + (let ((_tl3410234267_ (let () (declare (not safe)) - (##cdr _e3410234260_))) + (##cdr _e3410434260_))) (_hd3410334264_ (let () (declare (not safe)) - (##car _e3410234260_)))) - (if (gx#stx-null? _tl3410434267_) + (##car _e3410434260_)))) + (if (gx#stx-null? _tl3410234267_) (___match4199241993_ - _e3409634240_ + _e3409834240_ _hd3409734244_ - _tl3409834247_ - _e3409934250_ + _tl3409634247_ + _e3410134250_ _hd3410034254_ - _tl3410134257_ - _e3410234260_ + _tl3409934257_ + _e3410434260_ _hd3410334264_ - _tl3410434267_) + _tl3410234267_) (if (gx#stx-pair? _hd3410034254_) - (let ((_e3411534159_ + (let ((_e3411734159_ (gx#syntax-e _hd3410034254_))) - (let ((_tl3411734166_ + (let ((_tl3411534166_ (let () (declare (not safe)) - (##cdr _e3411534159_))) + (##cdr _e3411734159_))) (_hd3411634163_ (let () (declare (not safe)) - (##car _e3411534159_)))) + (##car _e3411734159_)))) (if (gx#stx-pair/null? - _tl3410134257_) + _tl3409934257_) (let ((___splice4197041971_ (gx#syntax-split-splice - _tl3410134257_ + _tl3409934257_ '0))) (let ((_tl3412034172_ (let () @@ -508,37 +534,41 @@ (##vector-ref ___splice4197041971_ '0)))) (if (gx#stx-null? _tl3412034172_) (___match4201842019_ - _e3409634240_ + _e3409834240_ _hd3409734244_ - _tl3409834247_ - _e3409934250_ + _tl3409634247_ + _e3410134250_ _hd3410034254_ - _tl3410134257_ - _e3411534159_ + _tl3409934257_ + _e3411734159_ _hd3411634163_ - _tl3411734166_ + _tl3411534166_ ___splice4197041971_ _target3411834169_ _tl3412034172_) - (_g3409234132_)))) + (let () (declare (not safe)) (_g3409234132_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3409234132_)))) - (_g3409234132_))))) + (let () + (declare (not safe)) + (_g3409234132_))))) + (let () + (declare (not safe)) + (_g3409234132_)))))) (if (gx#stx-pair? _hd3410034254_) - (let ((_e3411534159_ + (let ((_e3411734159_ (gx#syntax-e _hd3410034254_))) - (let ((_tl3411734166_ + (let ((_tl3411534166_ (let () (declare (not safe)) - (##cdr _e3411534159_))) + (##cdr _e3411734159_))) (_hd3411634163_ (let () (declare (not safe)) - (##car _e3411534159_)))) - (if (gx#stx-pair/null? _tl3410134257_) + (##car _e3411734159_)))) + (if (gx#stx-pair/null? _tl3409934257_) (let ((___splice4197041971_ (gx#syntax-split-splice - _tl3410134257_ + _tl3409934257_ '0))) (let ((_tl3412034172_ (let () @@ -555,23 +585,29 @@ (if (gx#stx-null? _tl3412034172_) (___match4201842019_ - _e3409634240_ + _e3409834240_ _hd3409734244_ - _tl3409834247_ - _e3409934250_ + _tl3409634247_ + _e3410134250_ _hd3410034254_ - _tl3410134257_ - _e3411534159_ + _tl3409934257_ + _e3411734159_ _hd3411634163_ - _tl3411734166_ + _tl3411534166_ ___splice4197041971_ _target3411834169_ _tl3412034172_) - (_g3409234132_)))) - (_g3409234132_)))) - (_g3409234132_))))) - (_g3409234132_)))) - (_g3409234132_))))))) + (let () + (declare (not safe)) + (_g3409234132_))))) + (let () + (declare (not safe)) + (_g3409234132_))))) + (let () + (declare (not safe)) + (_g3409234132_)))))) + (let () (declare (not safe)) (_g3409234132_))))) + (let () (declare (not safe)) (_g3409234132_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-import-export| (lambda (_$stx34292_) (let* ((___stx4202142022_ _$stx34292_) @@ -601,15 +637,15 @@ _L34404_))) '())))))) (let* ((___match4207642077_ - (lambda (_e3431434344_ + (lambda (_e3431634344_ _hd3431534348_ - _tl3431634351_ - _e3431734354_ + _tl3431434351_ + _e3431934354_ _hd3431834358_ - _tl3431934361_ - _e3432034364_ + _tl3431734361_ + _e3432234364_ _hd3432134368_ - _tl3432234371_ + _tl3432034371_ ___splice4202842029_ _target3432334374_ _tl3432534377_) @@ -633,7 +669,7 @@ (let ((_body3433134400_ (reverse _body3433034387_))) (let ((_L34404_ _body3433134400_) - (_L34406_ _tl3432234371_) + (_L34406_ _tl3432034371_) (_L34407_ _hd3432134368_) (_L34408_ _hd3431534348_)) (if (gx#identifier? _L34407_) @@ -642,36 +678,38 @@ _L34406_ _L34407_ _L34408_) - (_g3429734337_)))))))) + (let () + (declare (not safe)) + (_g3429734337_))))))))) (_loop3432634380_ _target3432334374_ '())))) (___match4205042051_ - (lambda (_e3430134445_ + (lambda (_e3430334445_ _hd3430234449_ - _tl3430334452_ - _e3430434455_ + _tl3430134452_ + _e3430634455_ _hd3430534459_ - _tl3430634462_ - _e3430734465_ + _tl3430434462_ + _e3430934465_ _hd3430834469_ - _tl3430934472_) + _tl3430734472_) (let ((_L34475_ _hd3430834469_) (_L34477_ _hd3430534459_)) (if (gx#identifier? _L34477_) (___kont4202442025_ _L34475_ _L34477_) (if (gx#stx-pair? _hd3430534459_) - (let ((_e3432034364_ + (let ((_e3432234364_ (gx#syntax-e _hd3430534459_))) - (let ((_tl3432234371_ + (let ((_tl3432034371_ (let () (declare (not safe)) - (##cdr _e3432034364_))) + (##cdr _e3432234364_))) (_hd3432134368_ (let () (declare (not safe)) - (##car _e3432034364_)))) - (if (gx#stx-pair/null? _tl3430634462_) + (##car _e3432234364_)))) + (if (gx#stx-pair/null? _tl3430434462_) (let ((___splice4202842029_ (gx#syntax-split-splice - _tl3430634462_ + _tl3430434462_ '0))) (let ((_tl3432534377_ (let () @@ -687,76 +725,82 @@ '0)))) (if (gx#stx-null? _tl3432534377_) (___match4207642077_ - _e3430134445_ + _e3430334445_ _hd3430234449_ - _tl3430334452_ - _e3430434455_ + _tl3430134452_ + _e3430634455_ _hd3430534459_ - _tl3430634462_ - _e3432034364_ + _tl3430434462_ + _e3432234364_ _hd3432134368_ - _tl3432234371_ + _tl3432034371_ ___splice4202842029_ _target3432334374_ _tl3432534377_) - (_g3429734337_)))) - (_g3429734337_)))) - (_g3429734337_))))))) + (let () + (declare (not safe)) + (_g3429734337_))))) + (let () + (declare (not safe)) + (_g3429734337_))))) + (let () + (declare (not safe)) + (_g3429734337_)))))))) (if (gx#stx-pair? ___stx4202142022_) - (let ((_e3430134445_ (gx#syntax-e ___stx4202142022_))) - (let ((_tl3430334452_ - (let () (declare (not safe)) (##cdr _e3430134445_))) + (let ((_e3430334445_ (gx#syntax-e ___stx4202142022_))) + (let ((_tl3430134452_ + (let () (declare (not safe)) (##cdr _e3430334445_))) (_hd3430234449_ - (let () (declare (not safe)) (##car _e3430134445_)))) - (if (gx#stx-pair? _tl3430334452_) - (let ((_e3430434455_ (gx#syntax-e _tl3430334452_))) - (let ((_tl3430634462_ + (let () (declare (not safe)) (##car _e3430334445_)))) + (if (gx#stx-pair? _tl3430134452_) + (let ((_e3430634455_ (gx#syntax-e _tl3430134452_))) + (let ((_tl3430434462_ (let () (declare (not safe)) - (##cdr _e3430434455_))) + (##cdr _e3430634455_))) (_hd3430534459_ (let () (declare (not safe)) - (##car _e3430434455_)))) - (if (gx#stx-pair? _tl3430634462_) - (let ((_e3430734465_ - (gx#syntax-e _tl3430634462_))) - (let ((_tl3430934472_ + (##car _e3430634455_)))) + (if (gx#stx-pair? _tl3430434462_) + (let ((_e3430934465_ + (gx#syntax-e _tl3430434462_))) + (let ((_tl3430734472_ (let () (declare (not safe)) - (##cdr _e3430734465_))) + (##cdr _e3430934465_))) (_hd3430834469_ (let () (declare (not safe)) - (##car _e3430734465_)))) - (if (gx#stx-null? _tl3430934472_) + (##car _e3430934465_)))) + (if (gx#stx-null? _tl3430734472_) (___match4205042051_ - _e3430134445_ + _e3430334445_ _hd3430234449_ - _tl3430334452_ - _e3430434455_ + _tl3430134452_ + _e3430634455_ _hd3430534459_ - _tl3430634462_ - _e3430734465_ + _tl3430434462_ + _e3430934465_ _hd3430834469_ - _tl3430934472_) + _tl3430734472_) (if (gx#stx-pair? _hd3430534459_) - (let ((_e3432034364_ + (let ((_e3432234364_ (gx#syntax-e _hd3430534459_))) - (let ((_tl3432234371_ + (let ((_tl3432034371_ (let () (declare (not safe)) - (##cdr _e3432034364_))) + (##cdr _e3432234364_))) (_hd3432134368_ (let () (declare (not safe)) - (##car _e3432034364_)))) + (##car _e3432234364_)))) (if (gx#stx-pair/null? - _tl3430634462_) + _tl3430434462_) (let ((___splice4202842029_ (gx#syntax-split-splice - _tl3430634462_ + _tl3430434462_ '0))) (let ((_tl3432534377_ (let () @@ -770,37 +814,41 @@ (##vector-ref ___splice4202842029_ '0)))) (if (gx#stx-null? _tl3432534377_) (___match4207642077_ - _e3430134445_ + _e3430334445_ _hd3430234449_ - _tl3430334452_ - _e3430434455_ + _tl3430134452_ + _e3430634455_ _hd3430534459_ - _tl3430634462_ - _e3432034364_ + _tl3430434462_ + _e3432234364_ _hd3432134368_ - _tl3432234371_ + _tl3432034371_ ___splice4202842029_ _target3432334374_ _tl3432534377_) - (_g3429734337_)))) + (let () (declare (not safe)) (_g3429734337_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3429734337_)))) - (_g3429734337_))))) + (let () + (declare (not safe)) + (_g3429734337_))))) + (let () + (declare (not safe)) + (_g3429734337_)))))) (if (gx#stx-pair? _hd3430534459_) - (let ((_e3432034364_ + (let ((_e3432234364_ (gx#syntax-e _hd3430534459_))) - (let ((_tl3432234371_ + (let ((_tl3432034371_ (let () (declare (not safe)) - (##cdr _e3432034364_))) + (##cdr _e3432234364_))) (_hd3432134368_ (let () (declare (not safe)) - (##car _e3432034364_)))) - (if (gx#stx-pair/null? _tl3430634462_) + (##car _e3432234364_)))) + (if (gx#stx-pair/null? _tl3430434462_) (let ((___splice4202842029_ (gx#syntax-split-splice - _tl3430634462_ + _tl3430434462_ '0))) (let ((_tl3432534377_ (let () @@ -817,23 +865,29 @@ (if (gx#stx-null? _tl3432534377_) (___match4207642077_ - _e3430134445_ + _e3430334445_ _hd3430234449_ - _tl3430334452_ - _e3430434455_ + _tl3430134452_ + _e3430634455_ _hd3430534459_ - _tl3430634462_ - _e3432034364_ + _tl3430434462_ + _e3432234364_ _hd3432134368_ - _tl3432234371_ + _tl3432034371_ ___splice4202842029_ _target3432334374_ _tl3432534377_) - (_g3429734337_)))) - (_g3429734337_)))) - (_g3429734337_))))) - (_g3429734337_)))) - (_g3429734337_))))))) + (let () + (declare (not safe)) + (_g3429734337_))))) + (let () + (declare (not safe)) + (_g3429734337_))))) + (let () + (declare (not safe)) + (_g3429734337_)))))) + (let () (declare (not safe)) (_g3429734337_))))) + (let () (declare (not safe)) (_g3429734337_)))))))) (define |gerbil/core$[:0:]#for-syntax| (gx#make-import-export-expander (lambda (_stx34497_) @@ -843,40 +897,40 @@ (_g3449934591_ (lambda (_g3450134524_) (if (gx#stx-pair? _g3450134524_) - (let ((_e3450334527_ (gx#syntax-e _g3450134524_))) + (let ((_e3450534527_ (gx#syntax-e _g3450134524_))) (let ((_hd3450434531_ (let () (declare (not safe)) - (##car _e3450334527_))) - (_tl3450534534_ + (##car _e3450534527_))) + (_tl3450334534_ (let () (declare (not safe)) - (##cdr _e3450334527_)))) - (if (gx#stx-pair/null? _tl3450534534_) - (let ((_g42351_ + (##cdr _e3450534527_)))) + (if (gx#stx-pair/null? _tl3450334534_) + (let ((_g42512_ (gx#syntax-split-splice - _tl3450534534_ + _tl3450334534_ '0))) (begin - (let ((_g42352_ + (let ((_g42513_ (let () (declare (not safe)) - (if (##values? _g42351_) - (##vector-length _g42351_) + (if (##values? _g42512_) + (##vector-length _g42512_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42352_ 2))) + (##fx= _g42513_ 2))) (error "Context expects 2 values" - _g42352_))) + _g42513_))) (let ((_target3450634537_ (let () (declare (not safe)) - (##vector-ref _g42351_ 0))) + (##vector-ref _g42512_ 0))) (_tl3450834540_ (let () (declare (not safe)) - (##vector-ref _g42351_ 1)))) + (##vector-ref _g42512_ 1)))) (if (gx#stx-null? _tl3450834540_) (letrec ((_loop3450934543_ (lambda (_hd3450734547_ @@ -922,40 +976,40 @@ (_g3459834690_ (lambda (_g3460034623_) (if (gx#stx-pair? _g3460034623_) - (let ((_e3460234626_ (gx#syntax-e _g3460034623_))) + (let ((_e3460434626_ (gx#syntax-e _g3460034623_))) (let ((_hd3460334630_ (let () (declare (not safe)) - (##car _e3460234626_))) - (_tl3460434633_ + (##car _e3460434626_))) + (_tl3460234633_ (let () (declare (not safe)) - (##cdr _e3460234626_)))) - (if (gx#stx-pair/null? _tl3460434633_) - (let ((_g42353_ + (##cdr _e3460434626_)))) + (if (gx#stx-pair/null? _tl3460234633_) + (let ((_g42514_ (gx#syntax-split-splice - _tl3460434633_ + _tl3460234633_ '0))) (begin - (let ((_g42354_ + (let ((_g42515_ (let () (declare (not safe)) - (if (##values? _g42353_) - (##vector-length _g42353_) + (if (##values? _g42514_) + (##vector-length _g42514_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42354_ 2))) + (##fx= _g42515_ 2))) (error "Context expects 2 values" - _g42354_))) + _g42515_))) (let ((_target3460534636_ (let () (declare (not safe)) - (##vector-ref _g42353_ 0))) + (##vector-ref _g42514_ 0))) (_tl3460734639_ (let () (declare (not safe)) - (##vector-ref _g42353_ 1)))) + (##vector-ref _g42514_ 1)))) (if (gx#stx-null? _tl3460734639_) (letrec ((_loop3460834642_ (lambda (_hd3460634646_ @@ -1001,52 +1055,52 @@ (_g3469734844_ (lambda (_g3469934726_) (if (gx#stx-pair? _g3469934726_) - (let ((_e3470234729_ (gx#syntax-e _g3469934726_))) + (let ((_e3470434729_ (gx#syntax-e _g3469934726_))) (let ((_hd3470334733_ (let () (declare (not safe)) - (##car _e3470234729_))) - (_tl3470434736_ + (##car _e3470434729_))) + (_tl3470234736_ (let () (declare (not safe)) - (##cdr _e3470234729_)))) - (if (gx#stx-pair? _tl3470434736_) - (let ((_e3470534739_ - (gx#syntax-e _tl3470434736_))) + (##cdr _e3470434729_)))) + (if (gx#stx-pair? _tl3470234736_) + (let ((_e3470734739_ + (gx#syntax-e _tl3470234736_))) (let ((_hd3470634743_ (let () (declare (not safe)) - (##car _e3470534739_))) - (_tl3470734746_ + (##car _e3470734739_))) + (_tl3470534746_ (let () (declare (not safe)) - (##cdr _e3470534739_)))) - (if (gx#stx-pair/null? _tl3470734746_) - (let ((_g42355_ + (##cdr _e3470734739_)))) + (if (gx#stx-pair/null? _tl3470534746_) + (let ((_g42516_ (gx#syntax-split-splice - _tl3470734746_ + _tl3470534746_ '0))) (begin - (let ((_g42356_ + (let ((_g42517_ (let () (declare (not safe)) - (if (##values? _g42355_) + (if (##values? _g42516_) (##vector-length - _g42355_) + _g42516_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42356_ 2))) + (##fx= _g42517_ 2))) (error "Context expects 2 values" - _g42356_))) + _g42517_))) (let ((_target3470834749_ (let () (declare (not safe)) - (##vector-ref _g42355_ 0))) + (##vector-ref _g42516_ 0))) (_tl3471034752_ (let () (declare (not safe)) - (##vector-ref _g42355_ 1)))) + (##vector-ref _g42516_ 1)))) (if (gx#stx-null? _tl3471034752_) (letrec ((_loop3471134755_ (lambda (_hd3470934759_ @@ -1140,52 +1194,52 @@ (_g3485134998_ (lambda (_g3485334880_) (if (gx#stx-pair? _g3485334880_) - (let ((_e3485634883_ (gx#syntax-e _g3485334880_))) + (let ((_e3485834883_ (gx#syntax-e _g3485334880_))) (let ((_hd3485734887_ (let () (declare (not safe)) - (##car _e3485634883_))) - (_tl3485834890_ + (##car _e3485834883_))) + (_tl3485634890_ (let () (declare (not safe)) - (##cdr _e3485634883_)))) - (if (gx#stx-pair? _tl3485834890_) - (let ((_e3485934893_ - (gx#syntax-e _tl3485834890_))) + (##cdr _e3485834883_)))) + (if (gx#stx-pair? _tl3485634890_) + (let ((_e3486134893_ + (gx#syntax-e _tl3485634890_))) (let ((_hd3486034897_ (let () (declare (not safe)) - (##car _e3485934893_))) - (_tl3486134900_ + (##car _e3486134893_))) + (_tl3485934900_ (let () (declare (not safe)) - (##cdr _e3485934893_)))) - (if (gx#stx-pair/null? _tl3486134900_) - (let ((_g42357_ + (##cdr _e3486134893_)))) + (if (gx#stx-pair/null? _tl3485934900_) + (let ((_g42518_ (gx#syntax-split-splice - _tl3486134900_ + _tl3485934900_ '0))) (begin - (let ((_g42358_ + (let ((_g42519_ (let () (declare (not safe)) - (if (##values? _g42357_) + (if (##values? _g42518_) (##vector-length - _g42357_) + _g42518_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42358_ 2))) + (##fx= _g42519_ 2))) (error "Context expects 2 values" - _g42358_))) + _g42519_))) (let ((_target3486234903_ (let () (declare (not safe)) - (##vector-ref _g42357_ 0))) + (##vector-ref _g42518_ 0))) (_tl3486434906_ (let () (declare (not safe)) - (##vector-ref _g42357_ 1)))) + (##vector-ref _g42518_ 1)))) (if (gx#stx-null? _tl3486434906_) (letrec ((_loop3486534909_ (lambda (_hd3486334913_ @@ -1291,8 +1345,9 @@ (_tl3501235041_ (let () (declare (not safe)) (##cdr _name3500635014_)))) (let* ((_id35044_ _hd3501135038_) (_mark35047_ _tl3501235041_)) + (declare (not safe)) (_K3501035034_ _mark35047_ _id35044_))) - (_else3500835026_))))) + (let () (declare (not safe)) (_else3500835026_)))))) (define |gerbil/core$[:0:]#rename-in| (gx#make-import-expander (lambda (_stx35054_) @@ -1302,52 +1357,52 @@ (_g3505635276_ (lambda (_g3505835094_) (if (gx#stx-pair? _g3505835094_) - (let ((_e3506235097_ (gx#syntax-e _g3505835094_))) + (let ((_e3506435097_ (gx#syntax-e _g3505835094_))) (let ((_hd3506335101_ (let () (declare (not safe)) - (##car _e3506235097_))) - (_tl3506435104_ + (##car _e3506435097_))) + (_tl3506235104_ (let () (declare (not safe)) - (##cdr _e3506235097_)))) - (if (gx#stx-pair? _tl3506435104_) - (let ((_e3506535107_ - (gx#syntax-e _tl3506435104_))) + (##cdr _e3506435097_)))) + (if (gx#stx-pair? _tl3506235104_) + (let ((_e3506735107_ + (gx#syntax-e _tl3506235104_))) (let ((_hd3506635111_ (let () (declare (not safe)) - (##car _e3506535107_))) - (_tl3506735114_ + (##car _e3506735107_))) + (_tl3506535114_ (let () (declare (not safe)) - (##cdr _e3506535107_)))) - (if (gx#stx-pair/null? _tl3506735114_) - (let ((_g42359_ + (##cdr _e3506735107_)))) + (if (gx#stx-pair/null? _tl3506535114_) + (let ((_g42520_ (gx#syntax-split-splice - _tl3506735114_ + _tl3506535114_ '0))) (begin - (let ((_g42360_ + (let ((_g42521_ (let () (declare (not safe)) - (if (##values? _g42359_) + (if (##values? _g42520_) (##vector-length - _g42359_) + _g42520_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42360_ 2))) + (##fx= _g42521_ 2))) (error "Context expects 2 values" - _g42360_))) + _g42521_))) (let ((_target3506835117_ (let () (declare (not safe)) - (##vector-ref _g42359_ 0))) + (##vector-ref _g42520_ 0))) (_tl3507035120_ (let () (declare (not safe)) - (##vector-ref _g42359_ 1)))) + (##vector-ref _g42520_ 1)))) (if (gx#stx-null? _tl3507035120_) (letrec ((_loop3507135123_ (lambda (_hd3506935127_ @@ -1365,28 +1420,28 @@ (declare (not safe)) (##cdr _e3507235135_)))) (if (gx#stx-pair? _lp-hd3507335139_) - (let ((_e3507935145_ + (let ((_e3508135145_ (gx#syntax-e _lp-hd3507335139_))) (let ((_hd3508035149_ (let () (declare (not safe)) - (##car _e3507935145_))) - (_tl3508135152_ + (##car _e3508135145_))) + (_tl3507935152_ (let () (declare (not safe)) - (##cdr _e3507935145_)))) - (if (gx#stx-pair? _tl3508135152_) - (let ((_e3508235155_ - (gx#syntax-e _tl3508135152_))) + (##cdr _e3508135145_)))) + (if (gx#stx-pair? _tl3507935152_) + (let ((_e3508435155_ + (gx#syntax-e _tl3507935152_))) (let ((_hd3508335159_ (let () (declare (not safe)) - (##car _e3508235155_))) - (_tl3508435162_ + (##car _e3508435155_))) + (_tl3508235162_ (let () (declare (not safe)) - (##cdr _e3508235155_)))) - (if (gx#stx-null? _tl3508435162_) + (##cdr _e3508435155_)))) + (if (gx#stx-null? _tl3508235162_) (_loop3507135123_ _lp-tl3507435142_ (cons _hd3508335159_ @@ -1415,7 +1470,7 @@ _L35171_))) (let* ((_keytab35209_ (make-hash-table)) (_found35212_ (make-hash-table)) - (_g42361_ + (_g42522_ (for-each (lambda (_id35215_ _new-id35217_) (hash-put! @@ -1451,9 +1506,11 @@ (if _$e35250_ ((lambda (_rename35254_) (hash-put! _found35212_ _name35247_ '#t) - (cons (|gerbil/core$[1]#module-import-rename| - _in35243_ - _rename35254_) + (cons (let () + (declare (not safe)) + (|gerbil/core$[1]#module-import-rename| + _in35243_ + _rename35254_)) _r35245_)) _$e35250_) (cons _in35243_ _r35245_))) @@ -1508,38 +1565,38 @@ (_g3528435382_ (lambda (_g3528635307_) (if (gx#stx-pair? _g3528635307_) - (let ((_e3528935310_ (gx#syntax-e _g3528635307_))) + (let ((_e3529135310_ (gx#syntax-e _g3528635307_))) (let ((_hd3529035314_ (let () (declare (not safe)) - (##car _e3528935310_))) - (_tl3529135317_ + (##car _e3529135310_))) + (_tl3528935317_ (let () (declare (not safe)) - (##cdr _e3528935310_)))) - (if (gx#stx-pair? _tl3529135317_) - (let ((_e3529235320_ - (gx#syntax-e _tl3529135317_))) + (##cdr _e3529135310_)))) + (if (gx#stx-pair? _tl3528935317_) + (let ((_e3529435320_ + (gx#syntax-e _tl3528935317_))) (let ((_hd3529335324_ (let () (declare (not safe)) - (##car _e3529235320_))) - (_tl3529435327_ + (##car _e3529435320_))) + (_tl3529235327_ (let () (declare (not safe)) - (##cdr _e3529235320_)))) - (if (gx#stx-pair? _tl3529435327_) - (let ((_e3529535330_ - (gx#syntax-e _tl3529435327_))) + (##cdr _e3529435320_)))) + (if (gx#stx-pair? _tl3529235327_) + (let ((_e3529735330_ + (gx#syntax-e _tl3529235327_))) (let ((_hd3529635334_ (let () (declare (not safe)) - (##car _e3529535330_))) - (_tl3529735337_ + (##car _e3529735330_))) + (_tl3529535337_ (let () (declare (not safe)) - (##cdr _e3529535330_)))) - (if (gx#stx-null? _tl3529735337_) + (##cdr _e3529735330_)))) + (if (gx#stx-null? _tl3529535337_) ((lambda (_L35340_ _L35342_) (if (gx#identifier? _L35340_) (let* ((_pre35358_ @@ -1550,18 +1607,25 @@ _L35342_)) (_rename-e35367_ (lambda (_name35364_) - (|gerbil/core$[1]#prefix-identifier-key| - _name35364_ - _pre35358_))) - (_fold-e35377_ - (letrec ((_fold-e35370_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (|gerbil/core$[1]#prefix-identifier-key| + _name35364_ + _pre35358_)))) + (_fold-e35377_ + (letrec ((_fold-e35370_ (lambda (_in35373_ _r35375_) (if (gx#module-import? _in35373_) - (cons (|gerbil/core$[1]#module-import-rename| - _in35373_ - (_rename-e35367_ - (gx#module-import-name _in35373_))) + (cons (let ((__tmp42523 + (_rename-e35367_ + (gx#module-import-name + _in35373_)))) + (declare (not safe)) + (|gerbil/core$[1]#module-import-rename| + _in35373_ + __tmp42523)) _r35375_) (if (gx#import-set? _in35373_) (foldl _fold-e35370_ @@ -1636,11 +1700,13 @@ (if (or (gx#identifier? _L35546_) (gx#stx-fixnum? _L35546_)) (___kont4208642087_ _L35546_) - (_g3551735539_))))) + (let () + (declare (not safe)) + (_g3551735539_)))))) (___match4210242103_ - (lambda (_e3552135567_ + (lambda (_e3552335567_ _hd3552235571_ - _tl3552335574_ + _tl3552135574_ ___splice4208442085_ _target3552435577_ _tl3552635580_) @@ -1674,20 +1740,20 @@ _target3552435577_ '()))))) (if (gx#stx-pair? ___stx4207942080_) - (let ((_e3552135567_ + (let ((_e3552335567_ (gx#syntax-e ___stx4207942080_))) - (let ((_tl3552335574_ + (let ((_tl3552135574_ (let () (declare (not safe)) - (##cdr _e3552135567_))) + (##cdr _e3552335567_))) (_hd3552235571_ (let () (declare (not safe)) - (##car _e3552135567_)))) - (if (gx#stx-pair/null? _tl3552335574_) + (##car _e3552335567_)))) + (if (gx#stx-pair/null? _tl3552135574_) (let ((___splice4208442085_ (gx#syntax-split-splice - _tl3552335574_ + _tl3552135574_ '0))) (let ((_tl3552635580_ (let () @@ -1703,68 +1769,74 @@ '0)))) (if (gx#stx-null? _tl3552635580_) (___match4210242103_ - _e3552135567_ + _e3552335567_ _hd3552235571_ - _tl3552335574_ + _tl3552135574_ ___splice4208442085_ _target3552435577_ _tl3552635580_) - (_g3551635560_)))) - (_g3551635560_)))) - (_g3551635560_)))))))) + (let () + (declare (not safe)) + (_g3551635560_))))) + (let () + (declare (not safe)) + (_g3551635560_))))) + (let () + (declare (not safe)) + (_g3551635560_))))))))) (let* ((_g3539335417_ (lambda (_g3539435413_) (gx#raise-syntax-error '#f '"Bad syntax" _g3539435413_))) (_g3539235508_ (lambda (_g3539435421_) (if (gx#stx-pair? _g3539435421_) - (let ((_e3539735424_ (gx#syntax-e _g3539435421_))) + (let ((_e3539935424_ (gx#syntax-e _g3539435421_))) (let ((_hd3539835428_ (let () (declare (not safe)) - (##car _e3539735424_))) - (_tl3539935431_ + (##car _e3539935424_))) + (_tl3539735431_ (let () (declare (not safe)) - (##cdr _e3539735424_)))) - (if (gx#stx-pair? _tl3539935431_) - (let ((_e3540035434_ - (gx#syntax-e _tl3539935431_))) + (##cdr _e3539935424_)))) + (if (gx#stx-pair? _tl3539735431_) + (let ((_e3540235434_ + (gx#syntax-e _tl3539735431_))) (let ((_hd3540135438_ (let () (declare (not safe)) - (##car _e3540035434_))) - (_tl3540235441_ + (##car _e3540235434_))) + (_tl3540035441_ (let () (declare (not safe)) - (##cdr _e3540035434_)))) - (if (gx#stx-pair/null? _tl3540235441_) - (let ((_g42362_ + (##cdr _e3540235434_)))) + (if (gx#stx-pair/null? _tl3540035441_) + (let ((_g42524_ (gx#syntax-split-splice - _tl3540235441_ + _tl3540035441_ '0))) (begin - (let ((_g42363_ + (let ((_g42525_ (let () (declare (not safe)) - (if (##values? _g42362_) + (if (##values? _g42524_) (##vector-length - _g42362_) + _g42524_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42363_ 2))) + (##fx= _g42525_ 2))) (error "Context expects 2 values" - _g42363_))) + _g42525_))) (let ((_target3540335444_ (let () (declare (not safe)) - (##vector-ref _g42362_ 0))) + (##vector-ref _g42524_ 0))) (_tl3540535447_ (let () (declare (not safe)) (##vector-ref - _g42362_ + _g42524_ 1)))) (if (gx#stx-null? _tl3540535447_) (letrec ((_loop3540635450_ @@ -1819,52 +1891,52 @@ (_g3565535802_ (lambda (_g3565735684_) (if (gx#stx-pair? _g3565735684_) - (let ((_e3566035687_ (gx#syntax-e _g3565735684_))) + (let ((_e3566235687_ (gx#syntax-e _g3565735684_))) (let ((_hd3566135691_ (let () (declare (not safe)) - (##car _e3566035687_))) - (_tl3566235694_ + (##car _e3566235687_))) + (_tl3566035694_ (let () (declare (not safe)) - (##cdr _e3566035687_)))) - (if (gx#stx-pair? _tl3566235694_) - (let ((_e3566335697_ - (gx#syntax-e _tl3566235694_))) + (##cdr _e3566235687_)))) + (if (gx#stx-pair? _tl3566035694_) + (let ((_e3566535697_ + (gx#syntax-e _tl3566035694_))) (let ((_hd3566435701_ (let () (declare (not safe)) - (##car _e3566335697_))) - (_tl3566535704_ + (##car _e3566535697_))) + (_tl3566335704_ (let () (declare (not safe)) - (##cdr _e3566335697_)))) - (if (gx#stx-pair/null? _tl3566535704_) - (let ((_g42364_ + (##cdr _e3566535697_)))) + (if (gx#stx-pair/null? _tl3566335704_) + (let ((_g42526_ (gx#syntax-split-splice - _tl3566535704_ + _tl3566335704_ '0))) (begin - (let ((_g42365_ + (let ((_g42527_ (let () (declare (not safe)) - (if (##values? _g42364_) + (if (##values? _g42526_) (##vector-length - _g42364_) + _g42526_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42365_ 2))) + (##fx= _g42527_ 2))) (error "Context expects 2 values" - _g42365_))) + _g42527_))) (let ((_target3566635707_ (let () (declare (not safe)) - (##vector-ref _g42364_ 0))) + (##vector-ref _g42526_ 0))) (_tl3566835710_ (let () (declare (not safe)) - (##vector-ref _g42364_ 1)))) + (##vector-ref _g42526_ 1)))) (if (gx#stx-null? _tl3566835710_) (letrec ((_loop3566935713_ (lambda (_hd3566735717_ @@ -1966,52 +2038,52 @@ (_g3581336033_ (lambda (_g3581535851_) (if (gx#stx-pair? _g3581535851_) - (let ((_e3581935854_ (gx#syntax-e _g3581535851_))) + (let ((_e3582135854_ (gx#syntax-e _g3581535851_))) (let ((_hd3582035858_ (let () (declare (not safe)) - (##car _e3581935854_))) - (_tl3582135861_ + (##car _e3582135854_))) + (_tl3581935861_ (let () (declare (not safe)) - (##cdr _e3581935854_)))) - (if (gx#stx-pair? _tl3582135861_) - (let ((_e3582235864_ - (gx#syntax-e _tl3582135861_))) + (##cdr _e3582135854_)))) + (if (gx#stx-pair? _tl3581935861_) + (let ((_e3582435864_ + (gx#syntax-e _tl3581935861_))) (let ((_hd3582335868_ (let () (declare (not safe)) - (##car _e3582235864_))) - (_tl3582435871_ + (##car _e3582435864_))) + (_tl3582235871_ (let () (declare (not safe)) - (##cdr _e3582235864_)))) - (if (gx#stx-pair/null? _tl3582435871_) - (let ((_g42366_ + (##cdr _e3582435864_)))) + (if (gx#stx-pair/null? _tl3582235871_) + (let ((_g42528_ (gx#syntax-split-splice - _tl3582435871_ + _tl3582235871_ '0))) (begin - (let ((_g42367_ + (let ((_g42529_ (let () (declare (not safe)) - (if (##values? _g42366_) + (if (##values? _g42528_) (##vector-length - _g42366_) + _g42528_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42367_ 2))) + (##fx= _g42529_ 2))) (error "Context expects 2 values" - _g42367_))) + _g42529_))) (let ((_target3582535874_ (let () (declare (not safe)) - (##vector-ref _g42366_ 0))) + (##vector-ref _g42528_ 0))) (_tl3582735877_ (let () (declare (not safe)) - (##vector-ref _g42366_ 1)))) + (##vector-ref _g42528_ 1)))) (if (gx#stx-null? _tl3582735877_) (letrec ((_loop3582835880_ (lambda (_hd3582635884_ @@ -2029,28 +2101,28 @@ (declare (not safe)) (##cdr _e3582935892_)))) (if (gx#stx-pair? _lp-hd3583035896_) - (let ((_e3583635902_ + (let ((_e3583835902_ (gx#syntax-e _lp-hd3583035896_))) (let ((_hd3583735906_ (let () (declare (not safe)) - (##car _e3583635902_))) - (_tl3583835909_ + (##car _e3583835902_))) + (_tl3583635909_ (let () (declare (not safe)) - (##cdr _e3583635902_)))) - (if (gx#stx-pair? _tl3583835909_) - (let ((_e3583935912_ - (gx#syntax-e _tl3583835909_))) + (##cdr _e3583835902_)))) + (if (gx#stx-pair? _tl3583635909_) + (let ((_e3584135912_ + (gx#syntax-e _tl3583635909_))) (let ((_hd3584035916_ (let () (declare (not safe)) - (##car _e3583935912_))) - (_tl3584135919_ + (##car _e3584135912_))) + (_tl3583935919_ (let () (declare (not safe)) - (##cdr _e3583935912_)))) - (if (gx#stx-null? _tl3584135919_) + (##cdr _e3584135912_)))) + (if (gx#stx-null? _tl3583935919_) (_loop3582835880_ _lp-tl3583135899_ (cons _hd3584035916_ @@ -2079,7 +2151,7 @@ _L35928_))) (let* ((_keytab35966_ (make-hash-table)) (_found35969_ (make-hash-table)) - (_g42368_ + (_g42530_ (for-each (lambda (_id35972_ _new-id35974_) (hash-put! @@ -2115,9 +2187,11 @@ (if _$e36007_ ((lambda (_rename36011_) (hash-put! _found35969_ _name36004_ '#t) - (cons (|gerbil/core$[1]#module-export-rename| - _out36000_ - _rename36011_) + (cons (let () + (declare (not safe)) + (|gerbil/core$[1]#module-export-rename| + _out36000_ + _rename36011_)) _r36002_)) _$e36007_) (cons _out36000_ _r36002_))) @@ -2172,38 +2246,38 @@ (_g3604136139_ (lambda (_g3604336064_) (if (gx#stx-pair? _g3604336064_) - (let ((_e3604636067_ (gx#syntax-e _g3604336064_))) + (let ((_e3604836067_ (gx#syntax-e _g3604336064_))) (let ((_hd3604736071_ (let () (declare (not safe)) - (##car _e3604636067_))) - (_tl3604836074_ + (##car _e3604836067_))) + (_tl3604636074_ (let () (declare (not safe)) - (##cdr _e3604636067_)))) - (if (gx#stx-pair? _tl3604836074_) - (let ((_e3604936077_ - (gx#syntax-e _tl3604836074_))) + (##cdr _e3604836067_)))) + (if (gx#stx-pair? _tl3604636074_) + (let ((_e3605136077_ + (gx#syntax-e _tl3604636074_))) (let ((_hd3605036081_ (let () (declare (not safe)) - (##car _e3604936077_))) - (_tl3605136084_ + (##car _e3605136077_))) + (_tl3604936084_ (let () (declare (not safe)) - (##cdr _e3604936077_)))) - (if (gx#stx-pair? _tl3605136084_) - (let ((_e3605236087_ - (gx#syntax-e _tl3605136084_))) + (##cdr _e3605136077_)))) + (if (gx#stx-pair? _tl3604936084_) + (let ((_e3605436087_ + (gx#syntax-e _tl3604936084_))) (let ((_hd3605336091_ (let () (declare (not safe)) - (##car _e3605236087_))) - (_tl3605436094_ + (##car _e3605436087_))) + (_tl3605236094_ (let () (declare (not safe)) - (##cdr _e3605236087_)))) - (if (gx#stx-null? _tl3605436094_) + (##cdr _e3605436087_)))) + (if (gx#stx-null? _tl3605236094_) ((lambda (_L36097_ _L36099_) (if (gx#identifier? _L36097_) (let* ((_pre36115_ @@ -2214,19 +2288,25 @@ _L36099_)) (_rename-e36124_ (lambda (_name36121_) - (|gerbil/core$[1]#prefix-identifier-key| - _name36121_ - _pre36115_))) - (_fold-e36134_ - (letrec ((_fold-e36127_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (|gerbil/core$[1]#prefix-identifier-key| + _name36121_ + _pre36115_)))) + (_fold-e36134_ + (letrec ((_fold-e36127_ (lambda (_out36130_ _r36132_) (if (gx#module-export? _out36130_) - (cons (|gerbil/core$[1]#module-export-rename| - _out36130_ - (_rename-e36124_ - (gx#module-export-name - _out36130_))) + (cons (let ((__tmp42531 + (_rename-e36124_ + (gx#module-export-name + _out36130_)))) + (declare (not safe)) + (|gerbil/core$[1]#module-export-rename| + _out36130_ + __tmp42531)) _r36132_) (if (gx#export-set? _out36130_) (foldl _fold-e36127_ @@ -2255,40 +2335,40 @@ (_g3614536401_ (lambda (_g3614736170_) (if (gx#stx-pair? _g3614736170_) - (let ((_e3614936173_ (gx#syntax-e _g3614736170_))) + (let ((_e3615136173_ (gx#syntax-e _g3614736170_))) (let ((_hd3615036177_ (let () (declare (not safe)) - (##car _e3614936173_))) - (_tl3615136180_ + (##car _e3615136173_))) + (_tl3614936180_ (let () (declare (not safe)) - (##cdr _e3614936173_)))) - (if (gx#stx-pair/null? _tl3615136180_) - (let ((_g42369_ + (##cdr _e3615136173_)))) + (if (gx#stx-pair/null? _tl3614936180_) + (let ((_g42532_ (gx#syntax-split-splice - _tl3615136180_ + _tl3614936180_ '0))) (begin - (let ((_g42370_ + (let ((_g42533_ (let () (declare (not safe)) - (if (##values? _g42369_) - (##vector-length _g42369_) + (if (##values? _g42532_) + (##vector-length _g42532_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42370_ 2))) + (##fx= _g42533_ 2))) (error "Context expects 2 values" - _g42370_))) + _g42533_))) (let ((_target3615236183_ (let () (declare (not safe)) - (##vector-ref _g42369_ 0))) + (##vector-ref _g42532_ 0))) (_tl3615436186_ (let () (declare (not safe)) - (##vector-ref _g42369_ 1)))) + (##vector-ref _g42532_ 1)))) (if (gx#stx-null? _tl3615436186_) (letrec ((_loop3615536189_ (lambda (_hd3615336193_ @@ -2331,9 +2411,11 @@ (gx#syntax-local-value _L36279_ false))) - (if (class-instance? - |gerbil/core$$[1]#expander-type-info::t| - _info36294_) + (if (let () + (declare (not safe)) + (class-instance? + |gerbil/core$$[1]#expander-type-info::t| + _info36294_)) (let* ((_g3629636313_ (slot-ref _info36294_ @@ -2465,18 +2547,18 @@ (___kont4211042111_ (lambda () (cons 'begin: _ids36234_)))) (if (gx#stx-pair? ___stx4210542106_) - (let ((_e3624136267_ + (let ((_e3624336267_ (gx#syntax-e ___stx4210542106_))) - (let ((_tl3624336274_ + (let ((_tl3624136274_ (let () (declare (not safe)) - (##cdr _e3624136267_))) + (##cdr _e3624336267_))) (_hd3624236271_ (let () (declare (not safe)) - (##car _e3624136267_)))) + (##car _e3624336267_)))) (___kont4210842109_ - _tl3624336274_ + _tl3624136274_ _hd3624236271_))) (___kont4211042111_)))))) _id3616036209_)))))) diff --git a/src/bootstrap/gerbil/core__16.scm b/src/bootstrap/gerbil/core__16.scm index f44a15d79..0f27f61f6 100644 --- a/src/bootstrap/gerbil/core__16.scm +++ b/src/bootstrap/gerbil/core__16.scm @@ -7,24 +7,24 @@ (_g3640936466_ (lambda (_g3641136428_) (if (gx#stx-pair? _g3641136428_) - (let ((_e3641336431_ (gx#syntax-e _g3641136428_))) + (let ((_e3641536431_ (gx#syntax-e _g3641136428_))) (let ((_hd3641436435_ - (let () (declare (not safe)) (##car _e3641336431_))) - (_tl3641536438_ + (let () (declare (not safe)) (##car _e3641536431_))) + (_tl3641336438_ (let () (declare (not safe)) - (##cdr _e3641336431_)))) - (if (gx#stx-pair? _tl3641536438_) - (let ((_e3641636441_ (gx#syntax-e _tl3641536438_))) + (##cdr _e3641536431_)))) + (if (gx#stx-pair? _tl3641336438_) + (let ((_e3641836441_ (gx#syntax-e _tl3641336438_))) (let ((_hd3641736445_ (let () (declare (not safe)) - (##car _e3641636441_))) - (_tl3641836448_ + (##car _e3641836441_))) + (_tl3641636448_ (let () (declare (not safe)) - (##cdr _e3641636441_)))) - (if (gx#stx-null? _tl3641836448_) + (##cdr _e3641836441_)))) + (if (gx#stx-null? _tl3641636448_) ((lambda (_L36451_) (if (gx#current-expander-compiling?) (gx#eval-syntax _L36451_) diff --git a/src/bootstrap/gerbil/core__2.scm b/src/bootstrap/gerbil/core__2.scm index 521bcbd00..a55544b82 100644 --- a/src/bootstrap/gerbil/core__2.scm +++ b/src/bootstrap/gerbil/core__2.scm @@ -15,25 +15,25 @@ (_g44374_ (lambda (_g4673_) (if (gx#stx-pair? _g4673_) - (let ((_e4976_ (gx#syntax-e _g4673_))) + (let ((_e5176_ (gx#syntax-e _g4673_))) (let ((_hd5080_ - (let () (declare (not safe)) (##car _e4976_))) - (_tl5183_ - (let () (declare (not safe)) (##cdr _e4976_)))) - (if (gx#stx-pair? _tl5183_) - (let ((_e5286_ (gx#syntax-e _tl5183_))) + (let () (declare (not safe)) (##car _e5176_))) + (_tl4983_ + (let () (declare (not safe)) (##cdr _e5176_)))) + (if (gx#stx-pair? _tl4983_) + (let ((_e5486_ (gx#syntax-e _tl4983_))) (let ((_hd5390_ (let () (declare (not safe)) - (##car _e5286_))) - (_tl5493_ + (##car _e5486_))) + (_tl5293_ (let () (declare (not safe)) - (##cdr _e5286_)))) - (if (gx#stx-pair/null? _tl5493_) + (##cdr _e5486_)))) + (if (gx#stx-pair/null? _tl5293_) (let ((_g42120_ (gx#syntax-split-splice - _tl5493_ + _tl5293_ '0))) (begin (let ((_g42121_ @@ -111,45 +111,49 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx3647336474_) - (let ((_e156244_ + (let ((_e158244_ (gx#syntax-e ___stx3647336474_))) - (let ((_tl158251_ + (let ((_tl156251_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e156244_))) + (##cdr _e158244_))) (_hd157248_ - (let () (declare (not safe)) (##car _e156244_)))) - (if (gx#stx-pair? _tl158251_) - (let ((_e159254_ (gx#syntax-e _tl158251_))) - (let ((_tl161261_ - (let () (declare (not safe)) (##cdr _e159254_))) + (let () (declare (not safe)) (##car _e158244_)))) + (if (gx#stx-pair? _tl156251_) + (let ((_e161254_ (gx#syntax-e _tl156251_))) + (let ((_tl159261_ + (let () (declare (not safe)) (##cdr _e161254_))) (_hd160258_ - (let () (declare (not safe)) (##car _e159254_)))) - (if (gx#stx-null? _tl161261_) + (let () (declare (not safe)) (##car _e161254_)))) + (if (gx#stx-null? _tl159261_) (___kont3647636477_ _hd160258_ _hd157248_) - (if (gx#stx-pair? _tl161261_) - (let ((_e171206_ (gx#syntax-e _tl161261_))) - (let ((_tl173213_ + (if (gx#stx-pair? _tl159261_) + (let ((_e173206_ (gx#syntax-e _tl159261_))) + (let ((_tl171213_ (let () (declare (not safe)) - (##cdr _e171206_))) + (##cdr _e173206_))) (_hd172210_ (let () (declare (not safe)) - (##car _e171206_)))) - (if (gx#stx-null? _tl173213_) + (##car _e173206_)))) + (if (gx#stx-null? _tl171213_) (___kont3647836479_ _hd172210_ _hd160258_ _hd157248_) - (_g152179_)))) - (_g152179_))))) - (_g152179_)))) + (let () + (declare (not safe)) + (_g152179_))))) + (let () (declare (not safe)) (_g152179_)))))) + (let () (declare (not safe)) (_g152179_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g152179_))))) + (let () + (declare (not safe)) + (_g152179_)))))) (foldr (lambda (_g282285_ _g283288_) (cons _g282285_ _g283288_)) '() @@ -296,8 +300,8 @@ (lambda (_L581_ _L583_ _L584_) (cons (gx#datum->syntax '#f 'syntax-case) (cons (cons (gx#datum->syntax '#f 'list) - (foldr (lambda (_g606613_ _g607616_) - (cons _g606613_ _g607616_)) + (foldr (lambda (_g610613_ _g611616_) + (cons _g610613_ _g611616_)) '() _L583_)) (cons '() @@ -313,20 +317,20 @@ 'let-values) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_g610625_ _g611628_) - (cons _g610625_ _g611628_)) + (foldr (lambda (_g606625_ _g607628_) + (cons _g606625_ _g607628_)) '() _L581_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) (let* ((___match3661836619_ - (lambda (_e433477_ + (lambda (_e435477_ _hd434481_ - _tl435484_ - _e436487_ + _tl433484_ + _e438487_ _hd437491_ - _tl438494_ + _tl436494_ ___splice3653036531_ _target439497_ _tl441500_) @@ -344,43 +348,45 @@ (declare (not safe)) (##car _e443515_)))) (if (gx#stx-pair? _lp-hd444519_) - (let ((_e450525_ + (let ((_e452525_ (gx#syntax-e _lp-hd444519_))) - (let ((_tl452532_ + (let ((_tl450532_ (let () (declare (not safe)) - (##cdr _e450525_))) + (##cdr _e452525_))) (_hd451529_ (let () (declare (not safe)) - (##car _e450525_)))) - (if (gx#stx-pair? _tl452532_) - (let ((_e453535_ + (##car _e452525_)))) + (if (gx#stx-pair? _tl450532_) + (let ((_e455535_ (gx#syntax-e - _tl452532_))) - (let ((_tl455542_ + _tl450532_))) + (let ((_tl453542_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e453535_))) + (##cdr _e455535_))) (_hd454539_ - (let () (declare (not safe)) (##car _e453535_)))) - (if (gx#stx-null? _tl455542_) + (let () (declare (not safe)) (##car _e455535_)))) + (if (gx#stx-null? _tl453542_) (_loop442503_ _lp-tl445522_ (cons _hd454539_ _e446510_) (cons _hd451529_ _pat447512_)) - (_g385470_)))) - (_g385470_)))) + (let () (declare (not safe)) (_g385470_))))) + (let () (declare (not safe)) (_g385470_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g385470_)))) + (let () + (declare (not safe)) + (_g385470_))))) (let ((_pat449548_ (reverse _pat447512_)) (_e448545_ (reverse _e446510_))) - (if (gx#stx-pair/null? _tl438494_) + (if (gx#stx-pair/null? _tl436494_) (let ((___splice3653236533_ (gx#syntax-split-splice - _tl438494_ + _tl436494_ '0))) (let ((_tl458554_ (let () @@ -419,25 +425,29 @@ _pat449548_)))))) (_loop459557_ _target456551_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g385470_)))) - (_g385470_))))))) + (let () + (declare (not safe)) + (_g385470_))))) + (let () + (declare (not safe)) + (_g385470_)))))))) (_loop442503_ _target439497_ '() '())))) (___match3659836599_ - (lambda (_e406638_ + (lambda (_e408638_ _hd407642_ - _tl408645_ - _e409648_ + _tl406645_ + _e411648_ _hd410652_ - _tl411655_ - _e412658_ + _tl409655_ + _e414658_ _hd413662_ - _tl414665_ - _e415668_ + _tl412665_ + _e417668_ _hd416672_ - _tl417675_ - _e418678_ + _tl415675_ + _e420678_ _hd419682_ - _tl420685_ + _tl418685_ ___splice3652636527_ _target421688_ _tl423691_) @@ -465,12 +475,12 @@ _hd416672_)))))) (_loop424694_ _target421688_ '())))) (___match3655636557_ - (lambda (_e388760_ + (lambda (_e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ + _tl391777_ ___splice3652236523_ _target394780_ _tl396783_) @@ -495,26 +505,26 @@ (___kont3652036521_ _body402806_)))))) (_loop397786_ _target394780_ '()))))) (if (gx#stx-pair? ___stx3651736518_) - (let ((_e388760_ (gx#syntax-e ___stx3651736518_))) - (let ((_tl390767_ - (let () (declare (not safe)) (##cdr _e388760_))) + (let ((_e390760_ (gx#syntax-e ___stx3651736518_))) + (let ((_tl388767_ + (let () (declare (not safe)) (##cdr _e390760_))) (_hd389764_ - (let () (declare (not safe)) (##car _e388760_)))) - (if (gx#stx-pair? _tl390767_) - (let ((_e391770_ (gx#syntax-e _tl390767_))) - (let ((_tl393777_ + (let () (declare (not safe)) (##car _e390760_)))) + (if (gx#stx-pair? _tl388767_) + (let ((_e393770_ (gx#syntax-e _tl388767_))) + (let ((_tl391777_ (let () (declare (not safe)) - (##cdr _e391770_))) + (##cdr _e393770_))) (_hd392774_ (let () (declare (not safe)) - (##car _e391770_)))) + (##car _e393770_)))) (if (gx#stx-null? _hd392774_) - (if (gx#stx-pair/null? _tl393777_) + (if (gx#stx-pair/null? _tl391777_) (let ((___splice3652236523_ (gx#syntax-split-splice - _tl393777_ + _tl391777_ '0))) (let ((_tl396783_ (let () @@ -530,12 +540,12 @@ '0)))) (if (gx#stx-null? _tl396783_) (___match3655636557_ - _e388760_ + _e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ + _tl391777_ ___splice3652236523_ _target394780_ _tl396783_) @@ -562,17 +572,22 @@ (if (gx#stx-null? _tl441500_) (___match3661836619_ - _e388760_ + _e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ + _tl391777_ ___splice3653036531_ _target439497_ _tl441500_) - (_g385470_)))) - (_g385470_))))) + (let () + (declare + (not safe)) + (_g385470_))))) + (let () + (declare (not safe)) + (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) (let ((___splice3653036531_ (gx#syntax-split-splice @@ -592,55 +607,59 @@ '0)))) (if (gx#stx-null? _tl441500_) (___match3661836619_ - _e388760_ + _e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ + _tl391777_ ___splice3653036531_ _target439497_ _tl441500_) - (_g385470_)))) - (_g385470_))) + (let () + (declare (not safe)) + (_g385470_))))) + (let () + (declare (not safe)) + (_g385470_)))) (if (gx#stx-pair? _hd392774_) - (let ((_e412658_ + (let ((_e414658_ (gx#syntax-e _hd392774_))) - (let ((_tl414665_ + (let ((_tl412665_ (let () (declare (not safe)) - (##cdr _e412658_))) + (##cdr _e414658_))) (_hd413662_ (let () (declare (not safe)) - (##car _e412658_)))) + (##car _e414658_)))) (if (gx#stx-pair? _hd413662_) - (let ((_e415668_ + (let ((_e417668_ (gx#syntax-e _hd413662_))) - (let ((_tl417675_ + (let ((_tl415675_ (let () (declare (not safe)) - (##cdr _e415668_))) + (##cdr _e417668_))) (_hd416672_ (let () (declare (not safe)) - (##car _e415668_)))) - (if (gx#stx-pair? _tl417675_) - (let ((_e418678_ + (##car _e417668_)))) + (if (gx#stx-pair? _tl415675_) + (let ((_e420678_ (gx#syntax-e - _tl417675_))) - (let ((_tl420685_ + _tl415675_))) + (let ((_tl418685_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e418678_))) + (##cdr _e420678_))) (_hd419682_ - (let () (declare (not safe)) (##car _e418678_)))) - (if (gx#stx-null? _tl420685_) - (if (gx#stx-null? _tl414665_) - (if (gx#stx-pair/null? _tl393777_) + (let () (declare (not safe)) (##car _e420678_)))) + (if (gx#stx-null? _tl418685_) + (if (gx#stx-null? _tl412665_) + (if (gx#stx-pair/null? _tl391777_) (let ((___splice3652636527_ - (gx#syntax-split-splice _tl393777_ '0))) + (gx#syntax-split-splice _tl391777_ '0))) (let ((_tl423691_ (let () (declare (not safe)) @@ -655,21 +674,21 @@ '0)))) (if (gx#stx-null? _tl423691_) (___match3659836599_ - _e388760_ + _e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ - _e412658_ + _tl391777_ + _e414658_ _hd413662_ - _tl414665_ - _e415668_ + _tl412665_ + _e417668_ _hd416672_ - _tl417675_ - _e418678_ + _tl415675_ + _e420678_ _hd419682_ - _tl420685_ + _tl418685_ ___splice3652636527_ _target421688_ _tl423691_) @@ -692,17 +711,21 @@ '0)))) (if (gx#stx-null? _tl441500_) (___match3661836619_ - _e388760_ + _e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ + _tl391777_ ___splice3653036531_ _target439497_ _tl441500_) - (_g385470_)))) - (_g385470_))))) + (let () + (declare (not safe)) + (_g385470_))))) + (let () + (declare (not safe)) + (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) (let ((___splice3653036531_ (gx#syntax-split-splice @@ -722,17 +745,19 @@ '0)))) (if (gx#stx-null? _tl441500_) (___match3661836619_ - _e388760_ + _e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ + _tl391777_ ___splice3653036531_ _target439497_ _tl441500_) - (_g385470_)))) - (_g385470_))) + (let () + (declare (not safe)) + (_g385470_))))) + (let () (declare (not safe)) (_g385470_)))) (if (gx#stx-pair/null? _hd392774_) (let ((___splice3653036531_ (gx#syntax-split-splice _hd392774_ '0))) @@ -750,17 +775,19 @@ '0)))) (if (gx#stx-null? _tl441500_) (___match3661836619_ - _e388760_ + _e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ + _tl391777_ ___splice3653036531_ _target439497_ _tl441500_) - (_g385470_)))) - (_g385470_))) + (let () + (declare (not safe)) + (_g385470_))))) + (let () (declare (not safe)) (_g385470_)))) (if (gx#stx-pair/null? _hd392774_) (let ((___splice3653036531_ (gx#syntax-split-splice _hd392774_ '0))) @@ -774,17 +801,17 @@ (##vector-ref ___splice3653036531_ '0)))) (if (gx#stx-null? _tl441500_) (___match3661836619_ - _e388760_ + _e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ + _tl391777_ ___splice3653036531_ _target439497_ _tl441500_) - (_g385470_)))) - (_g385470_))))) + (let () (declare (not safe)) (_g385470_))))) + (let () (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) (let ((___splice3653036531_ (gx#syntax-split-splice _hd392774_ '0))) @@ -798,17 +825,17 @@ (##vector-ref ___splice3653036531_ '0)))) (if (gx#stx-null? _tl441500_) (___match3661836619_ - _e388760_ + _e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ + _tl391777_ ___splice3653036531_ _target439497_ _tl441500_) - (_g385470_)))) - (_g385470_))))) + (let () (declare (not safe)) (_g385470_))))) + (let () (declare (not safe)) (_g385470_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd392774_) @@ -833,17 +860,22 @@ (if (gx#stx-null? _tl441500_) (___match3661836619_ - _e388760_ + _e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ + _tl391777_ ___splice3653036531_ _target439497_ _tl441500_) - (_g385470_)))) - (_g385470_))))) + (let () + (declare + (not safe)) + (_g385470_))))) + (let () + (declare (not safe)) + (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) (let ((___splice3653036531_ (gx#syntax-split-splice @@ -863,19 +895,23 @@ '0)))) (if (gx#stx-null? _tl441500_) (___match3661836619_ - _e388760_ + _e390760_ _hd389764_ - _tl390767_ - _e391770_ + _tl388767_ + _e393770_ _hd392774_ - _tl393777_ + _tl391777_ ___splice3653036531_ _target439497_ _tl441500_) - (_g385470_)))) - (_g385470_)))))) - (_g385470_)))) - (_g385470_))))))) + (let () + (declare (not safe)) + (_g385470_))))) + (let () + (declare (not safe)) + (_g385470_))))))) + (let () (declare (not safe)) (_g385470_))))) + (let () (declare (not safe)) (_g385470_)))))))) (define |gerbil/core$[:0:]#with-syntax*| (lambda (_stx843_) (let* ((___stx3662136622_ _stx843_) @@ -922,15 +958,15 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (let* ((___match3673436735_ - (lambda (_e902932_ + (lambda (_e904932_ _hd903936_ - _tl904939_ - _e905942_ + _tl902939_ + _e907942_ _hd906946_ - _tl907949_ - _e908952_ + _tl905949_ + _e910952_ _hd909956_ - _tl910959_ + _tl908959_ ___splice3663436635_ _target911962_ _tl913965_) @@ -954,29 +990,29 @@ (reverse _body918975_))) (___kont3663236633_ _body919988_ - _tl910959_ + _tl908959_ _hd909956_ _hd903936_)))))) (_loop914968_ _target911962_ '())))) (___match3670836709_ - (lambda (_e8711033_ + (lambda (_e8731033_ _hd8721037_ - _tl8731040_ - _e8741043_ + _tl8711040_ + _e8761043_ _hd8751047_ - _tl8761050_ - _e8771053_ + _tl8741050_ + _e8791053_ _hd8781057_ - _tl8791060_ - _e8801063_ + _tl8771060_ + _e8821063_ _hd8811067_ - _tl8821070_ - _e8831073_ + _tl8801070_ + _e8851073_ _hd8841077_ - _tl8851080_ - _e8861083_ + _tl8831080_ + _e8881083_ _hd8871087_ - _tl8881090_ + _tl8861090_ ___splice3663036631_ _target8891093_ _tl8911096_) @@ -1001,18 +1037,18 @@ (reverse _body8961106_))) (___kont3662836629_ _body8971119_ - _tl8791060_ + _tl8771060_ _hd8871087_ - _tl8851080_ + _tl8831080_ _hd8721037_)))))) (_loop8921099_ _target8891093_ '())))) (___match3665836659_ - (lambda (_e8511171_ + (lambda (_e8531171_ _hd8521175_ - _tl8531178_ - _e8541181_ + _tl8511178_ + _e8561181_ _hd8551185_ - _tl8561188_ + _tl8541188_ ___splice3662636627_ _target8571191_ _tl8591194_) @@ -1038,26 +1074,26 @@ (___kont3662436625_ _body8651217_)))))) (_loop8601197_ _target8571191_ '()))))) (if (gx#stx-pair? ___stx3662136622_) - (let ((_e8511171_ (gx#syntax-e ___stx3662136622_))) - (let ((_tl8531178_ - (let () (declare (not safe)) (##cdr _e8511171_))) + (let ((_e8531171_ (gx#syntax-e ___stx3662136622_))) + (let ((_tl8511178_ + (let () (declare (not safe)) (##cdr _e8531171_))) (_hd8521175_ - (let () (declare (not safe)) (##car _e8511171_)))) - (if (gx#stx-pair? _tl8531178_) - (let ((_e8541181_ (gx#syntax-e _tl8531178_))) - (let ((_tl8561188_ + (let () (declare (not safe)) (##car _e8531171_)))) + (if (gx#stx-pair? _tl8511178_) + (let ((_e8561181_ (gx#syntax-e _tl8511178_))) + (let ((_tl8541188_ (let () (declare (not safe)) - (##cdr _e8541181_))) + (##cdr _e8561181_))) (_hd8551185_ (let () (declare (not safe)) - (##car _e8541181_)))) + (##car _e8561181_)))) (if (gx#stx-null? _hd8551185_) - (if (gx#stx-pair/null? _tl8561188_) + (if (gx#stx-pair/null? _tl8541188_) (let ((___splice3662636627_ (gx#syntax-split-splice - _tl8561188_ + _tl8541188_ '0))) (let ((_tl8591194_ (let () @@ -1073,71 +1109,75 @@ '0)))) (if (gx#stx-null? _tl8591194_) (___match3665836659_ - _e8511171_ + _e8531171_ _hd8521175_ - _tl8531178_ - _e8541181_ + _tl8511178_ + _e8561181_ _hd8551185_ - _tl8561188_ + _tl8541188_ ___splice3662636627_ _target8571191_ _tl8591194_) - (_g848925_)))) - (_g848925_)) + (let () + (declare (not safe)) + (_g848925_))))) + (let () + (declare (not safe)) + (_g848925_))) (if (gx#stx-pair? _hd8551185_) - (let ((_e8771053_ + (let ((_e8791053_ (gx#syntax-e _hd8551185_))) - (let ((_tl8791060_ + (let ((_tl8771060_ (let () (declare (not safe)) - (##cdr _e8771053_))) + (##cdr _e8791053_))) (_hd8781057_ (let () (declare (not safe)) - (##car _e8771053_)))) + (##car _e8791053_)))) (if (gx#stx-pair? _hd8781057_) - (let ((_e8801063_ + (let ((_e8821063_ (gx#syntax-e _hd8781057_))) - (let ((_tl8821070_ + (let ((_tl8801070_ (let () (declare (not safe)) - (##cdr _e8801063_))) + (##cdr _e8821063_))) (_hd8811067_ (let () (declare (not safe)) - (##car _e8801063_)))) + (##car _e8821063_)))) (if (gx#stx-pair? _hd8811067_) - (let ((_e8831073_ + (let ((_e8851073_ (gx#syntax-e _hd8811067_))) - (let ((_tl8851080_ + (let ((_tl8831080_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e8831073_))) + (##cdr _e8851073_))) (_hd8841077_ - (let () (declare (not safe)) (##car _e8831073_)))) + (let () (declare (not safe)) (##car _e8851073_)))) (if (gx#identifier? _hd8841077_) (if (gx#free-identifier=? |gerbil/core$[1]#_g42124_| _hd8841077_) - (if (gx#stx-pair? _tl8821070_) - (let ((_e8861083_ (gx#syntax-e _tl8821070_))) - (let ((_tl8881090_ + (if (gx#stx-pair? _tl8801070_) + (let ((_e8881083_ (gx#syntax-e _tl8801070_))) + (let ((_tl8861090_ (let () (declare (not safe)) - (##cdr _e8861083_))) + (##cdr _e8881083_))) (_hd8871087_ (let () (declare (not safe)) - (##car _e8861083_)))) - (if (gx#stx-null? _tl8881090_) - (if (gx#stx-pair/null? _tl8561188_) + (##car _e8881083_)))) + (if (gx#stx-null? _tl8861090_) + (if (gx#stx-pair/null? _tl8541188_) (let ((___splice3663036631_ (gx#syntax-split-splice - _tl8561188_ + _tl8541188_ '0))) (let ((_tl8911096_ (let () @@ -1153,33 +1193,37 @@ '0)))) (if (gx#stx-null? _tl8911096_) (___match3670836709_ - _e8511171_ + _e8531171_ _hd8521175_ - _tl8531178_ - _e8541181_ + _tl8511178_ + _e8561181_ _hd8551185_ - _tl8561188_ - _e8771053_ + _tl8541188_ + _e8791053_ _hd8781057_ - _tl8791060_ - _e8801063_ + _tl8771060_ + _e8821063_ _hd8811067_ - _tl8821070_ - _e8831073_ + _tl8801070_ + _e8851073_ _hd8841077_ - _tl8851080_ - _e8861083_ + _tl8831080_ + _e8881083_ _hd8871087_ - _tl8881090_ + _tl8861090_ ___splice3663036631_ _target8891093_ _tl8911096_) - (_g848925_)))) - (_g848925_)) - (if (gx#stx-pair/null? _tl8561188_) + (let () + (declare (not safe)) + (_g848925_))))) + (let () + (declare (not safe)) + (_g848925_))) + (if (gx#stx-pair/null? _tl8541188_) (let ((___splice3663436635_ (gx#syntax-split-splice - _tl8561188_ + _tl8541188_ '0))) (let ((_tl913965_ (let () @@ -1195,24 +1239,28 @@ '0)))) (if (gx#stx-null? _tl913965_) (___match3673436735_ - _e8511171_ + _e8531171_ _hd8521175_ - _tl8531178_ - _e8541181_ + _tl8511178_ + _e8561181_ _hd8551185_ - _tl8561188_ - _e8771053_ + _tl8541188_ + _e8791053_ _hd8781057_ - _tl8791060_ + _tl8771060_ ___splice3663436635_ _target911962_ _tl913965_) - (_g848925_)))) - (_g848925_))))) - (if (gx#stx-pair/null? _tl8561188_) + (let () + (declare (not safe)) + (_g848925_))))) + (let () + (declare (not safe)) + (_g848925_)))))) + (if (gx#stx-pair/null? _tl8541188_) (let ((___splice3663436635_ (gx#syntax-split-splice - _tl8561188_ + _tl8541188_ '0))) (let ((_tl913965_ (let () @@ -1228,23 +1276,25 @@ '0)))) (if (gx#stx-null? _tl913965_) (___match3673436735_ - _e8511171_ + _e8531171_ _hd8521175_ - _tl8531178_ - _e8541181_ + _tl8511178_ + _e8561181_ _hd8551185_ - _tl8561188_ - _e8771053_ + _tl8541188_ + _e8791053_ _hd8781057_ - _tl8791060_ + _tl8771060_ ___splice3663436635_ _target911962_ _tl913965_) - (_g848925_)))) - (_g848925_))) - (if (gx#stx-pair/null? _tl8561188_) + (let () + (declare (not safe)) + (_g848925_))))) + (let () (declare (not safe)) (_g848925_)))) + (if (gx#stx-pair/null? _tl8541188_) (let ((___splice3663436635_ - (gx#syntax-split-splice _tl8561188_ '0))) + (gx#syntax-split-splice _tl8541188_ '0))) (let ((_tl913965_ (let () (declare (not safe)) @@ -1259,23 +1309,25 @@ '0)))) (if (gx#stx-null? _tl913965_) (___match3673436735_ - _e8511171_ + _e8531171_ _hd8521175_ - _tl8531178_ - _e8541181_ + _tl8511178_ + _e8561181_ _hd8551185_ - _tl8561188_ - _e8771053_ + _tl8541188_ + _e8791053_ _hd8781057_ - _tl8791060_ + _tl8771060_ ___splice3663436635_ _target911962_ _tl913965_) - (_g848925_)))) - (_g848925_))) - (if (gx#stx-pair/null? _tl8561188_) + (let () + (declare (not safe)) + (_g848925_))))) + (let () (declare (not safe)) (_g848925_)))) + (if (gx#stx-pair/null? _tl8541188_) (let ((___splice3663436635_ - (gx#syntax-split-splice _tl8561188_ '0))) + (gx#syntax-split-splice _tl8541188_ '0))) (let ((_tl913965_ (let () (declare (not safe)) @@ -1286,23 +1338,23 @@ (##vector-ref ___splice3663436635_ '0)))) (if (gx#stx-null? _tl913965_) (___match3673436735_ - _e8511171_ + _e8531171_ _hd8521175_ - _tl8531178_ - _e8541181_ + _tl8511178_ + _e8561181_ _hd8551185_ - _tl8561188_ - _e8771053_ + _tl8541188_ + _e8791053_ _hd8781057_ - _tl8791060_ + _tl8771060_ ___splice3663436635_ _target911962_ _tl913965_) - (_g848925_)))) - (_g848925_))))) - (if (gx#stx-pair/null? _tl8561188_) + (let () (declare (not safe)) (_g848925_))))) + (let () (declare (not safe)) (_g848925_)))))) + (if (gx#stx-pair/null? _tl8541188_) (let ((___splice3663436635_ - (gx#syntax-split-splice _tl8561188_ '0))) + (gx#syntax-split-splice _tl8541188_ '0))) (let ((_tl913965_ (let () (declare (not safe)) @@ -1313,26 +1365,26 @@ (##vector-ref ___splice3663436635_ '0)))) (if (gx#stx-null? _tl913965_) (___match3673436735_ - _e8511171_ + _e8531171_ _hd8521175_ - _tl8531178_ - _e8541181_ + _tl8511178_ + _e8561181_ _hd8551185_ - _tl8561188_ - _e8771053_ + _tl8541188_ + _e8791053_ _hd8781057_ - _tl8791060_ + _tl8771060_ ___splice3663436635_ _target911962_ _tl913965_) - (_g848925_)))) - (_g848925_))))) + (let () (declare (not safe)) (_g848925_))))) + (let () (declare (not safe)) (_g848925_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl8561188_) + _tl8541188_) (let ((___splice3663436635_ (gx#syntax-split-splice - _tl8561188_ + _tl8541188_ '0))) (let ((_tl913965_ (let () @@ -1351,23 +1403,30 @@ (if (gx#stx-null? _tl913965_) (___match3673436735_ - _e8511171_ + _e8531171_ _hd8521175_ - _tl8531178_ - _e8541181_ + _tl8511178_ + _e8561181_ _hd8551185_ - _tl8561188_ - _e8771053_ + _tl8541188_ + _e8791053_ _hd8781057_ - _tl8791060_ + _tl8771060_ ___splice3663436635_ _target911962_ _tl913965_) - (_g848925_)))) - (_g848925_))))) - (_g848925_))))) - (_g848925_)))) - (_g848925_))))))) + (let () + (declare + (not safe)) + (_g848925_))))) + (let () + (declare (not safe)) + (_g848925_)))))) + (let () + (declare (not safe)) + (_g848925_)))))) + (let () (declare (not safe)) (_g848925_))))) + (let () (declare (not safe)) (_g848925_)))))))) (define |gerbil/core$[:0:]#syntax/loc| (lambda (_stx1253_) (let* ((_g12561274_ @@ -1376,37 +1435,37 @@ (_g12551329_ (lambda (_g12571278_) (if (gx#stx-pair? _g12571278_) - (let ((_e12601281_ (gx#syntax-e _g12571278_))) + (let ((_e12621281_ (gx#syntax-e _g12571278_))) (let ((_hd12611285_ (let () (declare (not safe)) - (##car _e12601281_))) - (_tl12621288_ + (##car _e12621281_))) + (_tl12601288_ (let () (declare (not safe)) - (##cdr _e12601281_)))) - (if (gx#stx-pair? _tl12621288_) - (let ((_e12631291_ (gx#syntax-e _tl12621288_))) + (##cdr _e12621281_)))) + (if (gx#stx-pair? _tl12601288_) + (let ((_e12651291_ (gx#syntax-e _tl12601288_))) (let ((_hd12641295_ (let () (declare (not safe)) - (##car _e12631291_))) - (_tl12651298_ + (##car _e12651291_))) + (_tl12631298_ (let () (declare (not safe)) - (##cdr _e12631291_)))) - (if (gx#stx-pair? _tl12651298_) - (let ((_e12661301_ - (gx#syntax-e _tl12651298_))) + (##cdr _e12651291_)))) + (if (gx#stx-pair? _tl12631298_) + (let ((_e12681301_ + (gx#syntax-e _tl12631298_))) (let ((_hd12671305_ (let () (declare (not safe)) - (##car _e12661301_))) - (_tl12681308_ + (##car _e12681301_))) + (_tl12661308_ (let () (declare (not safe)) - (##cdr _e12661301_)))) - (if (gx#stx-null? _tl12681308_) + (##cdr _e12681301_)))) + (if (gx#stx-null? _tl12661308_) ((lambda (_L1311_ _L1313_) (cons (gx#datum->syntax '#f diff --git a/src/bootstrap/gerbil/core__3.scm b/src/bootstrap/gerbil/core__3.scm index 1ee36a39b..874720ab6 100644 --- a/src/bootstrap/gerbil/core__3.scm +++ b/src/bootstrap/gerbil/core__3.scm @@ -15,14 +15,14 @@ (gx#current-expander-context) '())) (define |gerbil/core$$[1]#_g42137_| + (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) + (define |gerbil/core$$[1]#_g42138_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42138_| - (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (begin (define |gerbil/core$$[:0:]#defrules| (lambda (_$stx1335_) @@ -32,40 +32,40 @@ (_g13381468_ (lambda (_g13401371_) (if (gx#stx-pair? _g13401371_) - (let ((_e13441374_ (gx#syntax-e _g13401371_))) + (let ((_e13461374_ (gx#syntax-e _g13401371_))) (let ((_hd13451378_ (let () (declare (not safe)) - (##car _e13441374_))) - (_tl13461381_ + (##car _e13461374_))) + (_tl13441381_ (let () (declare (not safe)) - (##cdr _e13441374_)))) - (if (gx#stx-pair? _tl13461381_) - (let ((_e13471384_ (gx#syntax-e _tl13461381_))) + (##cdr _e13461374_)))) + (if (gx#stx-pair? _tl13441381_) + (let ((_e13491384_ (gx#syntax-e _tl13441381_))) (let ((_hd13481388_ (let () (declare (not safe)) - (##car _e13471384_))) - (_tl13491391_ + (##car _e13491384_))) + (_tl13471391_ (let () (declare (not safe)) - (##cdr _e13471384_)))) - (if (gx#stx-pair? _tl13491391_) - (let ((_e13501394_ - (gx#syntax-e _tl13491391_))) + (##cdr _e13491384_)))) + (if (gx#stx-pair? _tl13471391_) + (let ((_e13521394_ + (gx#syntax-e _tl13471391_))) (let ((_hd13511398_ (let () (declare (not safe)) - (##car _e13501394_))) - (_tl13521401_ + (##car _e13521394_))) + (_tl13501401_ (let () (declare (not safe)) - (##cdr _e13501394_)))) - (if (gx#stx-pair/null? _tl13521401_) + (##cdr _e13521394_)))) + (if (gx#stx-pair/null? _tl13501401_) (let ((_g42125_ (gx#syntax-split-splice - _tl13521401_ + _tl13501401_ '0))) (begin (let ((_g42126_ @@ -173,59 +173,61 @@ (cons (gx#datum->syntax '#f 'define-syntax) (cons _L1556_ (cons _L1554_ '())))))) (let* ((___match3679236793_ - (lambda (_e15031524_ + (lambda (_e15051524_ _hd15041528_ - _tl15051531_ - _e15061534_ + _tl15031531_ + _e15081534_ _hd15071538_ - _tl15081541_ - _e15091544_ + _tl15061541_ + _e15111544_ _hd15101548_ - _tl15111551_) + _tl15091551_) (let ((_L1554_ _hd15101548_) (_L1556_ _hd15071538_)) (if (gx#identifier? _L1556_) (___kont3674436745_ _L1554_ _L1556_) - (_g14781517_))))) + (let () (declare (not safe)) (_g14781517_)))))) (___match3678436785_ - (lambda (_e15031524_ + (lambda (_e15051524_ _hd15041528_ - _tl15051531_ - _e15061534_ + _tl15031531_ + _e15081534_ _hd15071538_ - _tl15081541_) - (if (gx#stx-pair? _tl15081541_) - (let ((_e15091544_ (gx#syntax-e _tl15081541_))) - (let ((_tl15111551_ + _tl15061541_) + (if (gx#stx-pair? _tl15061541_) + (let ((_e15111544_ (gx#syntax-e _tl15061541_))) + (let ((_tl15091551_ (let () (declare (not safe)) - (##cdr _e15091544_))) + (##cdr _e15111544_))) (_hd15101548_ (let () (declare (not safe)) - (##car _e15091544_)))) - (if (gx#stx-null? _tl15111551_) + (##car _e15111544_)))) + (if (gx#stx-null? _tl15091551_) (___match3679236793_ - _e15031524_ + _e15051524_ _hd15041528_ - _tl15051531_ - _e15061534_ + _tl15031531_ + _e15081534_ _hd15071538_ - _tl15081541_ - _e15091544_ + _tl15061541_ + _e15111544_ _hd15101548_ - _tl15111551_) - (_g14781517_)))) - (_g14781517_)))) + _tl15091551_) + (let () + (declare (not safe)) + (_g14781517_))))) + (let () (declare (not safe)) (_g14781517_))))) (___match3677236773_ - (lambda (_e14831579_ + (lambda (_e14851579_ _hd14841583_ - _tl14851586_ - _e14861589_ + _tl14831586_ + _e14881589_ _hd14871593_ - _tl14881596_ - _e14891599_ + _tl14861596_ + _e14911599_ _hd14901603_ - _tl14911606_ + _tl14891606_ ___splice3674236743_ _target14921609_ _tl14941612_) @@ -249,7 +251,7 @@ (let ((_body15001635_ (reverse _body14991622_))) (let ((_L1639_ _body15001635_) - (_L1641_ _tl14911606_) + (_L1641_ _tl14891606_) (_L1642_ _hd14901603_)) (if (gx#identifier? _L1642_) (___kont3674036741_ @@ -257,44 +259,44 @@ _L1641_ _L1642_) (___match3678436785_ - _e14831579_ + _e14851579_ _hd14841583_ - _tl14851586_ - _e14861589_ + _tl14831586_ + _e14881589_ _hd14871593_ - _tl14881596_)))))))) + _tl14861596_)))))))) (_loop14951615_ _target14921609_ '()))))) (if (gx#stx-pair? ___stx3673736738_) - (let ((_e14831579_ (gx#syntax-e ___stx3673736738_))) - (let ((_tl14851586_ - (let () (declare (not safe)) (##cdr _e14831579_))) + (let ((_e14851579_ (gx#syntax-e ___stx3673736738_))) + (let ((_tl14831586_ + (let () (declare (not safe)) (##cdr _e14851579_))) (_hd14841583_ - (let () (declare (not safe)) (##car _e14831579_)))) - (if (gx#stx-pair? _tl14851586_) - (let ((_e14861589_ (gx#syntax-e _tl14851586_))) - (let ((_tl14881596_ + (let () (declare (not safe)) (##car _e14851579_)))) + (if (gx#stx-pair? _tl14831586_) + (let ((_e14881589_ (gx#syntax-e _tl14831586_))) + (let ((_tl14861596_ (let () (declare (not safe)) - (##cdr _e14861589_))) + (##cdr _e14881589_))) (_hd14871593_ (let () (declare (not safe)) - (##car _e14861589_)))) + (##car _e14881589_)))) (if (gx#stx-pair? _hd14871593_) - (let ((_e14891599_ + (let ((_e14911599_ (gx#syntax-e _hd14871593_))) - (let ((_tl14911606_ + (let ((_tl14891606_ (let () (declare (not safe)) - (##cdr _e14891599_))) + (##cdr _e14911599_))) (_hd14901603_ (let () (declare (not safe)) - (##car _e14891599_)))) - (if (gx#stx-pair/null? _tl14881596_) + (##car _e14911599_)))) + (if (gx#stx-pair/null? _tl14861596_) (let ((___splice3674236743_ (gx#syntax-split-splice - _tl14881596_ + _tl14861596_ '0))) (let ((_tl14941612_ (let () @@ -310,96 +312,104 @@ '0)))) (if (gx#stx-null? _tl14941612_) (___match3677236773_ - _e14831579_ + _e14851579_ _hd14841583_ - _tl14851586_ - _e14861589_ + _tl14831586_ + _e14881589_ _hd14871593_ - _tl14881596_ - _e14891599_ + _tl14861596_ + _e14911599_ _hd14901603_ - _tl14911606_ + _tl14891606_ ___splice3674236743_ _target14921609_ _tl14941612_) (if (gx#stx-pair? - _tl14881596_) - (let ((_e15091544_ + _tl14861596_) + (let ((_e15111544_ (gx#syntax-e - _tl14881596_))) - (let ((_tl15111551_ + _tl14861596_))) + (let ((_tl15091551_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e15091544_))) + (##cdr _e15111544_))) (_hd15101548_ - (let () (declare (not safe)) (##car _e15091544_)))) - (if (gx#stx-null? _tl15111551_) + (let () (declare (not safe)) (##car _e15111544_)))) + (if (gx#stx-null? _tl15091551_) (___match3679236793_ - _e14831579_ + _e14851579_ _hd14841583_ - _tl14851586_ - _e14861589_ + _tl14831586_ + _e14881589_ _hd14871593_ - _tl14881596_ - _e15091544_ + _tl14861596_ + _e15111544_ _hd15101548_ - _tl15111551_) - (_g14781517_)))) - (_g14781517_))))) + _tl15091551_) + (let () (declare (not safe)) (_g14781517_))))) + (let () (declare (not safe)) (_g14781517_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl14881596_) - (let ((_e15091544_ + (if (gx#stx-pair? _tl14861596_) + (let ((_e15111544_ (gx#syntax-e - _tl14881596_))) - (let ((_tl15111551_ + _tl14861596_))) + (let ((_tl15091551_ (let () (declare (not safe)) - (##cdr _e15091544_))) + (##cdr _e15111544_))) (_hd15101548_ (let () (declare (not safe)) - (##car _e15091544_)))) + (##car _e15111544_)))) (if (gx#stx-null? - _tl15111551_) + _tl15091551_) (___match3679236793_ - _e14831579_ + _e14851579_ _hd14841583_ - _tl14851586_ - _e14861589_ + _tl14831586_ + _e14881589_ _hd14871593_ - _tl14881596_ - _e15091544_ + _tl14861596_ + _e15111544_ _hd15101548_ - _tl15111551_) - (_g14781517_)))) - (_g14781517_))))) - (if (gx#stx-pair? _tl14881596_) - (let ((_e15091544_ - (gx#syntax-e _tl14881596_))) - (let ((_tl15111551_ + _tl15091551_) + (let () + (declare (not safe)) + (_g14781517_))))) + (let () + (declare (not safe)) + (_g14781517_)))))) + (if (gx#stx-pair? _tl14861596_) + (let ((_e15111544_ + (gx#syntax-e _tl14861596_))) + (let ((_tl15091551_ (let () (declare (not safe)) - (##cdr _e15091544_))) + (##cdr _e15111544_))) (_hd15101548_ (let () (declare (not safe)) - (##car _e15091544_)))) - (if (gx#stx-null? _tl15111551_) + (##car _e15111544_)))) + (if (gx#stx-null? _tl15091551_) (___match3679236793_ - _e14831579_ + _e14851579_ _hd14841583_ - _tl14851586_ - _e14861589_ + _tl14831586_ + _e14881589_ _hd14871593_ - _tl14881596_ - _e15091544_ + _tl14861596_ + _e15111544_ _hd15101548_ - _tl15111551_) - (_g14781517_)))) - (_g14781517_))))) - (_g14781517_)))) - (_g14781517_))))))) + _tl15091551_) + (let () + (declare (not safe)) + (_g14781517_))))) + (let () + (declare (not safe)) + (_g14781517_)))))) + (let () (declare (not safe)) (_g14781517_))))) + (let () (declare (not safe)) (_g14781517_)))))))) (define |gerbil/core$$[:0:]#defalias| (lambda (_$stx1675_) (let* ((_g16791697_ @@ -408,37 +418,37 @@ (_g16781752_ (lambda (_g16801701_) (if (gx#stx-pair? _g16801701_) - (let ((_e16831704_ (gx#syntax-e _g16801701_))) + (let ((_e16851704_ (gx#syntax-e _g16801701_))) (let ((_hd16841708_ (let () (declare (not safe)) - (##car _e16831704_))) - (_tl16851711_ + (##car _e16851704_))) + (_tl16831711_ (let () (declare (not safe)) - (##cdr _e16831704_)))) - (if (gx#stx-pair? _tl16851711_) - (let ((_e16861714_ (gx#syntax-e _tl16851711_))) + (##cdr _e16851704_)))) + (if (gx#stx-pair? _tl16831711_) + (let ((_e16881714_ (gx#syntax-e _tl16831711_))) (let ((_hd16871718_ (let () (declare (not safe)) - (##car _e16861714_))) - (_tl16881721_ + (##car _e16881714_))) + (_tl16861721_ (let () (declare (not safe)) - (##cdr _e16861714_)))) - (if (gx#stx-pair? _tl16881721_) - (let ((_e16891724_ - (gx#syntax-e _tl16881721_))) + (##cdr _e16881714_)))) + (if (gx#stx-pair? _tl16861721_) + (let ((_e16911724_ + (gx#syntax-e _tl16861721_))) (let ((_hd16901728_ (let () (declare (not safe)) - (##car _e16891724_))) - (_tl16911731_ + (##car _e16911724_))) + (_tl16891731_ (let () (declare (not safe)) - (##cdr _e16891724_)))) - (if (gx#stx-null? _tl16911731_) + (##cdr _e16911724_)))) + (if (gx#stx-null? _tl16891731_) ((lambda (_L1734_ _L1736_) (cons (gx#datum->syntax '#f @@ -483,59 +493,61 @@ (cons (gx#datum->syntax '#f 'define-values) (cons (cons _L1839_ '()) (cons _L1837_ '())))))) (let* ((___match3685036851_ - (lambda (_e17861807_ + (lambda (_e17881807_ _hd17871811_ - _tl17881814_ - _e17891817_ + _tl17861814_ + _e17911817_ _hd17901821_ - _tl17911824_ - _e17921827_ + _tl17891824_ + _e17941827_ _hd17931831_ - _tl17941834_) + _tl17921834_) (let ((_L1837_ _hd17931831_) (_L1839_ _hd17901821_)) (if (gx#identifier? _L1839_) (___kont3680236803_ _L1837_ _L1839_) - (_g17611800_))))) + (let () (declare (not safe)) (_g17611800_)))))) (___match3684236843_ - (lambda (_e17861807_ + (lambda (_e17881807_ _hd17871811_ - _tl17881814_ - _e17891817_ + _tl17861814_ + _e17911817_ _hd17901821_ - _tl17911824_) - (if (gx#stx-pair? _tl17911824_) - (let ((_e17921827_ (gx#syntax-e _tl17911824_))) - (let ((_tl17941834_ + _tl17891824_) + (if (gx#stx-pair? _tl17891824_) + (let ((_e17941827_ (gx#syntax-e _tl17891824_))) + (let ((_tl17921834_ (let () (declare (not safe)) - (##cdr _e17921827_))) + (##cdr _e17941827_))) (_hd17931831_ (let () (declare (not safe)) - (##car _e17921827_)))) - (if (gx#stx-null? _tl17941834_) + (##car _e17941827_)))) + (if (gx#stx-null? _tl17921834_) (___match3685036851_ - _e17861807_ + _e17881807_ _hd17871811_ - _tl17881814_ - _e17891817_ + _tl17861814_ + _e17911817_ _hd17901821_ - _tl17911824_ - _e17921827_ + _tl17891824_ + _e17941827_ _hd17931831_ - _tl17941834_) - (_g17611800_)))) - (_g17611800_)))) + _tl17921834_) + (let () + (declare (not safe)) + (_g17611800_))))) + (let () (declare (not safe)) (_g17611800_))))) (___match3683036831_ - (lambda (_e17661862_ + (lambda (_e17681862_ _hd17671866_ - _tl17681869_ - _e17691872_ + _tl17661869_ + _e17711872_ _hd17701876_ - _tl17711879_ - _e17721882_ + _tl17691879_ + _e17741882_ _hd17731886_ - _tl17741889_ + _tl17721889_ ___splice3680036801_ _target17751892_ _tl17771895_) @@ -559,7 +571,7 @@ (let ((_body17831918_ (reverse _body17821905_))) (let ((_L1922_ _body17831918_) - (_L1924_ _tl17741889_) + (_L1924_ _tl17721889_) (_L1925_ _hd17731886_)) (if (gx#identifier? _L1925_) (___kont3679836799_ @@ -567,44 +579,44 @@ _L1924_ _L1925_) (___match3684236843_ - _e17661862_ + _e17681862_ _hd17671866_ - _tl17681869_ - _e17691872_ + _tl17661869_ + _e17711872_ _hd17701876_ - _tl17711879_)))))))) + _tl17691879_)))))))) (_loop17781898_ _target17751892_ '()))))) (if (gx#stx-pair? ___stx3679536796_) - (let ((_e17661862_ (gx#syntax-e ___stx3679536796_))) - (let ((_tl17681869_ - (let () (declare (not safe)) (##cdr _e17661862_))) + (let ((_e17681862_ (gx#syntax-e ___stx3679536796_))) + (let ((_tl17661869_ + (let () (declare (not safe)) (##cdr _e17681862_))) (_hd17671866_ - (let () (declare (not safe)) (##car _e17661862_)))) - (if (gx#stx-pair? _tl17681869_) - (let ((_e17691872_ (gx#syntax-e _tl17681869_))) - (let ((_tl17711879_ + (let () (declare (not safe)) (##car _e17681862_)))) + (if (gx#stx-pair? _tl17661869_) + (let ((_e17711872_ (gx#syntax-e _tl17661869_))) + (let ((_tl17691879_ (let () (declare (not safe)) - (##cdr _e17691872_))) + (##cdr _e17711872_))) (_hd17701876_ (let () (declare (not safe)) - (##car _e17691872_)))) + (##car _e17711872_)))) (if (gx#stx-pair? _hd17701876_) - (let ((_e17721882_ + (let ((_e17741882_ (gx#syntax-e _hd17701876_))) - (let ((_tl17741889_ + (let ((_tl17721889_ (let () (declare (not safe)) - (##cdr _e17721882_))) + (##cdr _e17741882_))) (_hd17731886_ (let () (declare (not safe)) - (##car _e17721882_)))) - (if (gx#stx-pair/null? _tl17711879_) + (##car _e17741882_)))) + (if (gx#stx-pair/null? _tl17691879_) (let ((___splice3680036801_ (gx#syntax-split-splice - _tl17711879_ + _tl17691879_ '0))) (let ((_tl17771895_ (let () @@ -620,96 +632,104 @@ '0)))) (if (gx#stx-null? _tl17771895_) (___match3683036831_ - _e17661862_ + _e17681862_ _hd17671866_ - _tl17681869_ - _e17691872_ + _tl17661869_ + _e17711872_ _hd17701876_ - _tl17711879_ - _e17721882_ + _tl17691879_ + _e17741882_ _hd17731886_ - _tl17741889_ + _tl17721889_ ___splice3680036801_ _target17751892_ _tl17771895_) (if (gx#stx-pair? - _tl17711879_) - (let ((_e17921827_ + _tl17691879_) + (let ((_e17941827_ (gx#syntax-e - _tl17711879_))) - (let ((_tl17941834_ + _tl17691879_))) + (let ((_tl17921834_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e17921827_))) + (##cdr _e17941827_))) (_hd17931831_ - (let () (declare (not safe)) (##car _e17921827_)))) - (if (gx#stx-null? _tl17941834_) + (let () (declare (not safe)) (##car _e17941827_)))) + (if (gx#stx-null? _tl17921834_) (___match3685036851_ - _e17661862_ + _e17681862_ _hd17671866_ - _tl17681869_ - _e17691872_ + _tl17661869_ + _e17711872_ _hd17701876_ - _tl17711879_ - _e17921827_ + _tl17691879_ + _e17941827_ _hd17931831_ - _tl17941834_) - (_g17611800_)))) - (_g17611800_))))) + _tl17921834_) + (let () (declare (not safe)) (_g17611800_))))) + (let () (declare (not safe)) (_g17611800_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl17711879_) - (let ((_e17921827_ + (if (gx#stx-pair? _tl17691879_) + (let ((_e17941827_ (gx#syntax-e - _tl17711879_))) - (let ((_tl17941834_ + _tl17691879_))) + (let ((_tl17921834_ (let () (declare (not safe)) - (##cdr _e17921827_))) + (##cdr _e17941827_))) (_hd17931831_ (let () (declare (not safe)) - (##car _e17921827_)))) + (##car _e17941827_)))) (if (gx#stx-null? - _tl17941834_) + _tl17921834_) (___match3685036851_ - _e17661862_ + _e17681862_ _hd17671866_ - _tl17681869_ - _e17691872_ + _tl17661869_ + _e17711872_ _hd17701876_ - _tl17711879_ - _e17921827_ + _tl17691879_ + _e17941827_ _hd17931831_ - _tl17941834_) - (_g17611800_)))) - (_g17611800_))))) - (if (gx#stx-pair? _tl17711879_) - (let ((_e17921827_ - (gx#syntax-e _tl17711879_))) - (let ((_tl17941834_ + _tl17921834_) + (let () + (declare (not safe)) + (_g17611800_))))) + (let () + (declare (not safe)) + (_g17611800_)))))) + (if (gx#stx-pair? _tl17691879_) + (let ((_e17941827_ + (gx#syntax-e _tl17691879_))) + (let ((_tl17921834_ (let () (declare (not safe)) - (##cdr _e17921827_))) + (##cdr _e17941827_))) (_hd17931831_ (let () (declare (not safe)) - (##car _e17921827_)))) - (if (gx#stx-null? _tl17941834_) + (##car _e17941827_)))) + (if (gx#stx-null? _tl17921834_) (___match3685036851_ - _e17661862_ + _e17681862_ _hd17671866_ - _tl17681869_ - _e17691872_ + _tl17661869_ + _e17711872_ _hd17701876_ - _tl17711879_ - _e17921827_ + _tl17691879_ + _e17941827_ _hd17931831_ - _tl17941834_) - (_g17611800_)))) - (_g17611800_))))) - (_g17611800_)))) - (_g17611800_))))))) + _tl17921834_) + (let () + (declare (not safe)) + (_g17611800_))))) + (let () + (declare (not safe)) + (_g17611800_)))))) + (let () (declare (not safe)) (_g17611800_))))) + (let () (declare (not safe)) (_g17611800_)))))))) (define |gerbil/core$$[:0:]#let*-values| (lambda (_$stx1958_) (let* ((___stx3685336854_ _$stx1958_) @@ -742,15 +762,15 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (let* ((___match3691236913_ - (lambda (_e19852015_ + (lambda (_e19872015_ _hd19862019_ - _tl19872022_ - _e19882025_ + _tl19852022_ + _e19902025_ _hd19892029_ - _tl19902032_ - _e19912035_ + _tl19882032_ + _e19932035_ _hd19922039_ - _tl19932042_ + _tl19912042_ ___splice3686236863_ _target19942045_ _tl19962048_) @@ -775,17 +795,17 @@ (reverse _body20012058_))) (___kont3686036861_ _body20022071_ - _tl19932042_ + _tl19912042_ _hd19922039_ _hd19862019_)))))) (_loop19972051_ _target19942045_ '())))) (___match3688636887_ - (lambda (_e19662116_ + (lambda (_e19682116_ _hd19672120_ - _tl19682123_ - _e19692126_ + _tl19662123_ + _e19712126_ _hd19702130_ - _tl19712133_ + _tl19692133_ ___splice3685836859_ _target19722136_ _tl19742139_) @@ -812,26 +832,26 @@ _body19802162_)))))) (_loop19752142_ _target19722136_ '()))))) (if (gx#stx-pair? ___stx3685336854_) - (let ((_e19662116_ (gx#syntax-e ___stx3685336854_))) - (let ((_tl19682123_ - (let () (declare (not safe)) (##cdr _e19662116_))) + (let ((_e19682116_ (gx#syntax-e ___stx3685336854_))) + (let ((_tl19662123_ + (let () (declare (not safe)) (##cdr _e19682116_))) (_hd19672120_ - (let () (declare (not safe)) (##car _e19662116_)))) - (if (gx#stx-pair? _tl19682123_) - (let ((_e19692126_ (gx#syntax-e _tl19682123_))) - (let ((_tl19712133_ + (let () (declare (not safe)) (##car _e19682116_)))) + (if (gx#stx-pair? _tl19662123_) + (let ((_e19712126_ (gx#syntax-e _tl19662123_))) + (let ((_tl19692133_ (let () (declare (not safe)) - (##cdr _e19692126_))) + (##cdr _e19712126_))) (_hd19702130_ (let () (declare (not safe)) - (##car _e19692126_)))) + (##car _e19712126_)))) (if (gx#stx-null? _hd19702130_) - (if (gx#stx-pair/null? _tl19712133_) + (if (gx#stx-pair/null? _tl19692133_) (let ((___splice3685836859_ (gx#syntax-split-splice - _tl19712133_ + _tl19692133_ '0))) (let ((_tl19742139_ (let () @@ -847,32 +867,36 @@ '0)))) (if (gx#stx-null? _tl19742139_) (___match3688636887_ - _e19662116_ + _e19682116_ _hd19672120_ - _tl19682123_ - _e19692126_ + _tl19662123_ + _e19712126_ _hd19702130_ - _tl19712133_ + _tl19692133_ ___splice3685836859_ _target19722136_ _tl19742139_) - (_g19632008_)))) - (_g19632008_)) + (let () + (declare (not safe)) + (_g19632008_))))) + (let () + (declare (not safe)) + (_g19632008_))) (if (gx#stx-pair? _hd19702130_) - (let ((_e19912035_ + (let ((_e19932035_ (gx#syntax-e _hd19702130_))) - (let ((_tl19932042_ + (let ((_tl19912042_ (let () (declare (not safe)) - (##cdr _e19912035_))) + (##cdr _e19932035_))) (_hd19922039_ (let () (declare (not safe)) - (##car _e19912035_)))) - (if (gx#stx-pair/null? _tl19712133_) + (##car _e19932035_)))) + (if (gx#stx-pair/null? _tl19692133_) (let ((___splice3686236863_ (gx#syntax-split-splice - _tl19712133_ + _tl19692133_ '0))) (let ((_tl19962048_ (let () @@ -889,23 +913,29 @@ (if (gx#stx-null? _tl19962048_) (___match3691236913_ - _e19662116_ + _e19682116_ _hd19672120_ - _tl19682123_ - _e19692126_ + _tl19662123_ + _e19712126_ _hd19702130_ - _tl19712133_ - _e19912035_ + _tl19692133_ + _e19932035_ _hd19922039_ - _tl19932042_ + _tl19912042_ ___splice3686236863_ _target19942045_ _tl19962048_) - (_g19632008_)))) - (_g19632008_)))) - (_g19632008_))))) - (_g19632008_)))) - (_g19632008_))))))) + (let () + (declare (not safe)) + (_g19632008_))))) + (let () + (declare (not safe)) + (_g19632008_))))) + (let () + (declare (not safe)) + (_g19632008_)))))) + (let () (declare (not safe)) (_g19632008_))))) + (let () (declare (not safe)) (_g19632008_)))))))) (define |gerbil/core$$[:0:]#let| (lambda (_$stx2197_) (let* ((___stx3691536916_ _$stx2197_) @@ -922,10 +952,10 @@ (cons (cons (gx#datum->syntax '#f 'lambda%) - (cons (foldr (lambda (_g25022509_ + (cons (foldr (lambda (_g25062509_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g25032512_) - (cons _g25022509_ _g25032512_)) + _g25072512_) + (cons _g25062509_ _g25072512_)) _L2474_ _L2476_) (foldr (lambda (_g25042515_ _g25052518_) @@ -936,8 +966,8 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons _L2477_ '()))) - (foldr (lambda (_g25062521_ _g25072524_) - (cons _g25062521_ _g25072524_)) + (foldr (lambda (_g25022521_ _g25032524_) + (cons _g25022521_ _g25032524_)) '() _L2475_)))) (___kont3692436925_ @@ -950,12 +980,12 @@ '() _L2323_))))))) (let* ((___match3697236973_ - (lambda (_e22462273_ + (lambda (_e22482273_ _hd22472277_ - _tl22482280_ - _e22492283_ + _tl22462280_ + _e22512283_ _hd22502287_ - _tl22512290_ + _tl22492290_ ___splice3692636927_ _target22522293_ _tl22542296_) @@ -983,15 +1013,15 @@ _hd22502287_)))))) (_loop22552299_ _target22522293_ '())))) (___match3696436965_ - (lambda (_e22462273_ + (lambda (_e22482273_ _hd22472277_ - _tl22482280_ - _e22492283_ + _tl22462280_ + _e22512283_ _hd22502287_ - _tl22512290_) - (if (gx#stx-pair/null? _tl22512290_) + _tl22492290_) + (if (gx#stx-pair/null? _tl22492290_) (let ((___splice3692636927_ - (gx#syntax-split-splice _tl22512290_ '0))) + (gx#syntax-split-splice _tl22492290_ '0))) (let ((_tl22542296_ (let () (declare (not safe)) @@ -1002,27 +1032,29 @@ (##vector-ref ___splice3692636927_ '0)))) (if (gx#stx-null? _tl22542296_) (___match3697236973_ - _e22462273_ + _e22482273_ _hd22472277_ - _tl22482280_ - _e22492283_ + _tl22462280_ + _e22512283_ _hd22502287_ - _tl22512290_ + _tl22492290_ ___splice3692636927_ _target22522293_ _tl22542296_) - (_g22022266_)))) - (_g22022266_)))) + (let () + (declare (not safe)) + (_g22022266_))))) + (let () (declare (not safe)) (_g22022266_))))) (___match3695236953_ - (lambda (_e22092358_ + (lambda (_e22112358_ _hd22102362_ - _tl22112365_ - _e22122368_ + _tl22092365_ + _e22142368_ _hd22132372_ - _tl22142375_ - _e22152378_ + _tl22122375_ + _e22172378_ _hd22162382_ - _tl22172385_ + _tl22152385_ ___splice3692036921_ _target22182388_ _tl22202391_) @@ -1042,64 +1074,64 @@ (declare (not safe)) (##car _e22222406_)))) (if (gx#stx-pair? _lp-hd22232410_) - (let ((_e22292416_ + (let ((_e22312416_ (gx#syntax-e _lp-hd22232410_))) - (let ((_tl22312423_ + (let ((_tl22292423_ (let () (declare (not safe)) - (##cdr _e22292416_))) + (##cdr _e22312416_))) (_hd22302420_ (let () (declare (not safe)) - (##car _e22292416_)))) + (##car _e22312416_)))) (if (gx#stx-pair? - _tl22312423_) - (let ((_e22322426_ + _tl22292423_) + (let ((_e22342426_ (gx#syntax-e - _tl22312423_))) - (let ((_tl22342433_ + _tl22292423_))) + (let ((_tl22322433_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e22322426_))) + (##cdr _e22342426_))) (_hd22332430_ - (let () (declare (not safe)) (##car _e22322426_)))) - (if (gx#stx-null? _tl22342433_) + (let () (declare (not safe)) (##car _e22342426_)))) + (if (gx#stx-null? _tl22322433_) (_loop22212394_ _lp-tl22242413_ (cons _hd22332430_ _arg22252401_) (cons _hd22302420_ _var22262403_)) (___match3696436965_ - _e22092358_ + _e22112358_ _hd22102362_ - _tl22112365_ - _e22122368_ + _tl22092365_ + _e22142368_ _hd22132372_ - _tl22142375_)))) + _tl22122375_)))) (___match3696436965_ - _e22092358_ + _e22112358_ _hd22102362_ - _tl22112365_ - _e22122368_ + _tl22092365_ + _e22142368_ _hd22132372_ - _tl22142375_)))) + _tl22122375_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___match3696436965_ - _e22092358_ + _e22112358_ _hd22102362_ - _tl22112365_ - _e22122368_ + _tl22092365_ + _e22142368_ _hd22132372_ - _tl22142375_)))) + _tl22122375_)))) (let ((_var22282439_ (reverse _var22262403_)) (_arg22272436_ (reverse _arg22252401_))) - (if (gx#stx-pair/null? _tl22172385_) + (if (gx#stx-pair/null? _tl22152385_) (let ((___splice3692236923_ (gx#syntax-split-splice - _tl22172385_ + _tl22152385_ '0))) (let ((_tl22372445_ (let () @@ -1145,56 +1177,56 @@ _L2476_ _L2477_) (___match3696436965_ - _e22092358_ + _e22112358_ _hd22102362_ - _tl22112365_ - _e22122368_ + _tl22092365_ + _e22142368_ _hd22132372_ - _tl22142375_)))))))) + _tl22122375_)))))))) (_loop22382448_ _target22352442_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___match3696436965_ - _e22092358_ + _e22112358_ _hd22102362_ - _tl22112365_ - _e22122368_ + _tl22092365_ + _e22142368_ _hd22132372_ - _tl22142375_)))) + _tl22122375_)))) (___match3696436965_ - _e22092358_ + _e22112358_ _hd22102362_ - _tl22112365_ - _e22122368_ + _tl22092365_ + _e22142368_ _hd22132372_ - _tl22142375_))))))) + _tl22122375_))))))) (_loop22212394_ _target22182388_ '() '()))))) (if (gx#stx-pair? ___stx3691536916_) - (let ((_e22092358_ (gx#syntax-e ___stx3691536916_))) - (let ((_tl22112365_ - (let () (declare (not safe)) (##cdr _e22092358_))) + (let ((_e22112358_ (gx#syntax-e ___stx3691536916_))) + (let ((_tl22092365_ + (let () (declare (not safe)) (##cdr _e22112358_))) (_hd22102362_ - (let () (declare (not safe)) (##car _e22092358_)))) - (if (gx#stx-pair? _tl22112365_) - (let ((_e22122368_ (gx#syntax-e _tl22112365_))) - (let ((_tl22142375_ + (let () (declare (not safe)) (##car _e22112358_)))) + (if (gx#stx-pair? _tl22092365_) + (let ((_e22142368_ (gx#syntax-e _tl22092365_))) + (let ((_tl22122375_ (let () (declare (not safe)) - (##cdr _e22122368_))) + (##cdr _e22142368_))) (_hd22132372_ (let () (declare (not safe)) - (##car _e22122368_)))) - (if (gx#stx-pair? _tl22142375_) - (let ((_e22152378_ - (gx#syntax-e _tl22142375_))) - (let ((_tl22172385_ + (##car _e22142368_)))) + (if (gx#stx-pair? _tl22122375_) + (let ((_e22172378_ + (gx#syntax-e _tl22122375_))) + (let ((_tl22152385_ (let () (declare (not safe)) - (##cdr _e22152378_))) + (##cdr _e22172378_))) (_hd22162382_ (let () (declare (not safe)) - (##car _e22152378_)))) + (##car _e22172378_)))) (if (gx#stx-pair/null? _hd22162382_) (let ((___splice3692036921_ (gx#syntax-split-splice @@ -1213,22 +1245,22 @@ ___splice3692036921_ '0)))) (___match3695236953_ - _e22092358_ + _e22112358_ _hd22102362_ - _tl22112365_ - _e22122368_ + _tl22092365_ + _e22142368_ _hd22132372_ - _tl22142375_ - _e22152378_ + _tl22122375_ + _e22172378_ _hd22162382_ - _tl22172385_ + _tl22152385_ ___splice3692036921_ _target22182388_ _tl22202391_))) - (if (gx#stx-pair/null? _tl22142375_) + (if (gx#stx-pair/null? _tl22122375_) (let ((___splice3692636927_ (gx#syntax-split-splice - _tl22142375_ + _tl22122375_ '0))) (let ((_tl22542296_ (let () @@ -1245,21 +1277,25 @@ (if (gx#stx-null? _tl22542296_) (___match3697236973_ - _e22092358_ + _e22112358_ _hd22102362_ - _tl22112365_ - _e22122368_ + _tl22092365_ + _e22142368_ _hd22132372_ - _tl22142375_ + _tl22122375_ ___splice3692636927_ _target22522293_ _tl22542296_) - (_g22022266_)))) - (_g22022266_))))) - (if (gx#stx-pair/null? _tl22142375_) + (let () + (declare (not safe)) + (_g22022266_))))) + (let () + (declare (not safe)) + (_g22022266_)))))) + (if (gx#stx-pair/null? _tl22122375_) (let ((___splice3692636927_ (gx#syntax-split-splice - _tl22142375_ + _tl22122375_ '0))) (let ((_tl22542296_ (let () @@ -1275,19 +1311,23 @@ '0)))) (if (gx#stx-null? _tl22542296_) (___match3697236973_ - _e22092358_ + _e22112358_ _hd22102362_ - _tl22112365_ - _e22122368_ + _tl22092365_ + _e22142368_ _hd22132372_ - _tl22142375_ + _tl22122375_ ___splice3692636927_ _target22522293_ _tl22542296_) - (_g22022266_)))) - (_g22022266_))))) - (_g22022266_)))) - (_g22022266_))))))) + (let () + (declare (not safe)) + (_g22022266_))))) + (let () + (declare (not safe)) + (_g22022266_)))))) + (let () (declare (not safe)) (_g22022266_))))) + (let () (declare (not safe)) (_g22022266_)))))))) (define |gerbil/core$$[:0:]#let*| (lambda (_$stx2534_) (let* ((_g25382562_ @@ -1296,29 +1336,29 @@ (_g25372647_ (lambda (_g25392566_) (if (gx#stx-pair? _g25392566_) - (let ((_e25422569_ (gx#syntax-e _g25392566_))) + (let ((_e25442569_ (gx#syntax-e _g25392566_))) (let ((_hd25432573_ (let () (declare (not safe)) - (##car _e25422569_))) - (_tl25442576_ + (##car _e25442569_))) + (_tl25422576_ (let () (declare (not safe)) - (##cdr _e25422569_)))) - (if (gx#stx-pair? _tl25442576_) - (let ((_e25452579_ (gx#syntax-e _tl25442576_))) + (##cdr _e25442569_)))) + (if (gx#stx-pair? _tl25422576_) + (let ((_e25472579_ (gx#syntax-e _tl25422576_))) (let ((_hd25462583_ (let () (declare (not safe)) - (##car _e25452579_))) - (_tl25472586_ + (##car _e25472579_))) + (_tl25452586_ (let () (declare (not safe)) - (##cdr _e25452579_)))) - (if (gx#stx-pair/null? _tl25472586_) + (##cdr _e25472579_)))) + (if (gx#stx-pair/null? _tl25452586_) (let ((_g42127_ (gx#syntax-split-splice - _tl25472586_ + _tl25452586_ '0))) (begin (let ((_g42128_ @@ -1389,29 +1429,29 @@ (_g26552765_ (lambda (_g26572684_) (if (gx#stx-pair? _g26572684_) - (let ((_e26602687_ (gx#syntax-e _g26572684_))) + (let ((_e26622687_ (gx#syntax-e _g26572684_))) (let ((_hd26612691_ (let () (declare (not safe)) - (##car _e26602687_))) - (_tl26622694_ + (##car _e26622687_))) + (_tl26602694_ (let () (declare (not safe)) - (##cdr _e26602687_)))) - (if (gx#stx-pair? _tl26622694_) - (let ((_e26632697_ (gx#syntax-e _tl26622694_))) + (##cdr _e26622687_)))) + (if (gx#stx-pair? _tl26602694_) + (let ((_e26652697_ (gx#syntax-e _tl26602694_))) (let ((_hd26642701_ (let () (declare (not safe)) - (##car _e26632697_))) - (_tl26652704_ + (##car _e26652697_))) + (_tl26632704_ (let () (declare (not safe)) - (##cdr _e26632697_)))) - (if (gx#stx-pair/null? _tl26652704_) + (##cdr _e26652697_)))) + (if (gx#stx-pair/null? _tl26632704_) (let ((_g42129_ (gx#syntax-split-splice - _tl26652704_ + _tl26632704_ '0))) (begin (let ((_g42130_ @@ -1482,29 +1522,29 @@ (_g27732883_ (lambda (_g27752802_) (if (gx#stx-pair? _g27752802_) - (let ((_e27782805_ (gx#syntax-e _g27752802_))) + (let ((_e27802805_ (gx#syntax-e _g27752802_))) (let ((_hd27792809_ (let () (declare (not safe)) - (##car _e27782805_))) - (_tl27802812_ + (##car _e27802805_))) + (_tl27782812_ (let () (declare (not safe)) - (##cdr _e27782805_)))) - (if (gx#stx-pair? _tl27802812_) - (let ((_e27812815_ (gx#syntax-e _tl27802812_))) + (##cdr _e27802805_)))) + (if (gx#stx-pair? _tl27782812_) + (let ((_e27832815_ (gx#syntax-e _tl27782812_))) (let ((_hd27822819_ (let () (declare (not safe)) - (##car _e27812815_))) - (_tl27832822_ + (##car _e27832815_))) + (_tl27812822_ (let () (declare (not safe)) - (##cdr _e27812815_)))) - (if (gx#stx-pair/null? _tl27832822_) + (##cdr _e27832815_)))) + (if (gx#stx-pair/null? _tl27812822_) (let ((_g42131_ (gx#syntax-split-splice - _tl27832822_ + _tl27812822_ '0))) (begin (let ((_g42132_ @@ -1584,21 +1624,21 @@ (___kont3698036981_ (lambda () (gx#identifier? _x3371_)))) (if (gx#stx-pair? ___stx3697536976_) - (let ((_e33783404_ + (let ((_e33803404_ (gx#syntax-e ___stx3697536976_))) - (let ((_tl33803411_ + (let ((_tl33783411_ (let () (declare (not safe)) - (##cdr _e33783404_))) + (##cdr _e33803404_))) (_hd33793408_ (let () (declare (not safe)) - (##car _e33783404_)))) + (##car _e33803404_)))) (if (gx#identifier? _hd33793408_) (if (gx#free-identifier=? |gerbil/core$$[1]#_g42133_| _hd33793408_) - (___kont3697836979_ _tl33803411_) + (___kont3697836979_ _tl33783411_) (___kont3698036981_)) (___kont3698036981_)))) (___kont3698036981_)))))) @@ -1614,21 +1654,21 @@ (let ((___kont3699836999_ (lambda (_L3354_) _L3354_)) (___kont3700037001_ (lambda () (list _x3311_)))) (if (gx#stx-pair? ___stx3699536996_) - (let ((_e33183344_ + (let ((_e33203344_ (gx#syntax-e ___stx3699536996_))) - (let ((_tl33203351_ + (let ((_tl33183351_ (let () (declare (not safe)) - (##cdr _e33183344_))) + (##cdr _e33203344_))) (_hd33193348_ (let () (declare (not safe)) - (##car _e33183344_)))) + (##car _e33203344_)))) (if (gx#identifier? _hd33193348_) (if (gx#free-identifier=? |gerbil/core$$[1]#_g42134_| _hd33193348_) - (___kont3699836999_ _tl33203351_) + (___kont3699836999_ _tl33183351_) (___kont3700037001_)) (___kont3700037001_)))) (___kont3700037001_))))))) @@ -1709,22 +1749,22 @@ (gx#syntax-check-splice-targets _L3085_ _L3176_) - (foldr (lambda (_g31913197_ - _g31923200_ - _g31933202_) - (cons (cons _g31923200_ - (cons _g31913197_ + (foldr (lambda (_g31933197_ + _g31943200_ + _g31953202_) + (cons (cons _g31943200_ + (cons _g31933197_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _g31933202_)) + _g31953202_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() _L3085_ _L3176_)) - (foldr (lambda (_g31943205_ - _g31953208_) - (cons _g31943205_ - _g31953208_)) + (foldr (lambda (_g31913205_ + _g31923208_) + (cons _g31913205_ + _g31923208_)) '() _L3083_))))) _hd-bind31333172_)))))) @@ -1742,15 +1782,15 @@ '() _L3086_))))))) (let* ((___match3708437085_ - (lambda (_e29222969_ + (lambda (_e29242969_ _hd29232973_ - _tl29242976_ - _e29252979_ + _tl29222976_ + _e29272979_ _hd29262983_ - _tl29272986_ - _e29282989_ + _tl29252986_ + _e29302989_ _hd29292993_ - _tl29302996_ + _tl29282996_ ___splice3702237023_ _target29312999_ _tl29333002_) @@ -1770,44 +1810,46 @@ (declare (not safe)) (##car _e29353017_)))) (if (gx#stx-pair? _lp-hd29363021_) - (let ((_e29423027_ + (let ((_e29443027_ (gx#syntax-e _lp-hd29363021_))) - (let ((_tl29443034_ + (let ((_tl29423034_ (let () (declare (not safe)) - (##cdr _e29423027_))) + (##cdr _e29443027_))) (_hd29433031_ (let () (declare (not safe)) - (##car _e29423027_)))) + (##car _e29443027_)))) (if (gx#stx-pair? - _tl29443034_) - (let ((_e29453037_ + _tl29423034_) + (let ((_e29473037_ (gx#syntax-e - _tl29443034_))) - (let ((_tl29473044_ + _tl29423034_))) + (let ((_tl29453044_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e29453037_))) + (let () (declare (not safe)) (##cdr _e29473037_))) (_hd29463041_ - (let () (declare (not safe)) (##car _e29453037_)))) - (if (gx#stx-null? _tl29473044_) + (let () (declare (not safe)) (##car _e29473037_)))) + (if (gx#stx-null? _tl29453044_) (_loop29343005_ _lp-tl29373024_ (cons _hd29463041_ _e29383012_) (cons _hd29433031_ _hd29393014_)) - (_g28962962_)))) - (_g28962962_)))) + (let () (declare (not safe)) (_g28962962_))))) + (let () (declare (not safe)) (_g28962962_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g28962962_)))) + (let () + (declare (not safe)) + (_g28962962_))))) (let ((_hd29413050_ (reverse _hd29393014_)) (_e29403047_ (reverse _e29383012_))) - (if (gx#stx-pair/null? _tl29302996_) + (if (gx#stx-pair/null? _tl29282996_) (let ((___splice3702437025_ (gx#syntax-split-splice - _tl29302996_ + _tl29282996_ '0))) (let ((_tl29503056_ (let () @@ -1856,29 +1898,33 @@ _L3085_ _L3086_ _L3087_) - (_g28962962_)))))))) + (let () + (declare (not safe)) + (_g28962962_))))))))) (_loop29513059_ _target29483053_ '())) - (_g28962962_)))) + (let () (declare (not safe)) (_g28962962_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g28962962_))))))) + (let () + (declare (not safe)) + (_g28962962_)))))))) (_loop29343005_ _target29312999_ '() '())))) (___match3705837059_ - (lambda (_e29033230_ + (lambda (_e29053230_ _hd29043234_ - _tl29053237_ - _e29063240_ + _tl29033237_ + _e29083240_ _hd29073244_ - _tl29083247_ - _e29093250_ + _tl29063247_ + _e29113250_ _hd29103254_ - _tl29113257_ - _e29123260_ + _tl29093257_ + _e29143260_ _hd29133264_ - _tl29143267_ - _e29153270_ + _tl29123267_ + _e29173270_ _hd29163274_ - _tl29173277_) - (let ((_L3280_ _tl29113257_) + _tl29153277_) + (let ((_L3280_ _tl29093257_) (_L3282_ _hd29163274_) (_L3283_ _hd29133264_) (_L3284_ _hd29073244_) @@ -1909,89 +1955,93 @@ '0)))) (if (gx#stx-null? _tl29333002_) (___match3708437085_ - _e29033230_ + _e29053230_ _hd29043234_ - _tl29053237_ - _e29063240_ + _tl29033237_ + _e29083240_ _hd29073244_ - _tl29083247_ - _e29093250_ + _tl29063247_ + _e29113250_ _hd29103254_ - _tl29113257_ + _tl29093257_ ___splice3702237023_ _target29312999_ _tl29333002_) - (_g28962962_)))) - (_g28962962_))))))) + (let () + (declare (not safe)) + (_g28962962_))))) + (let () + (declare (not safe)) + (_g28962962_)))))))) (if (gx#stx-pair? ___stx3701537016_) - (let ((_e29033230_ (gx#syntax-e ___stx3701537016_))) - (let ((_tl29053237_ - (let () (declare (not safe)) (##cdr _e29033230_))) + (let ((_e29053230_ (gx#syntax-e ___stx3701537016_))) + (let ((_tl29033237_ + (let () (declare (not safe)) (##cdr _e29053230_))) (_hd29043234_ (let () (declare (not safe)) - (##car _e29033230_)))) - (if (gx#stx-pair? _tl29053237_) - (let ((_e29063240_ (gx#syntax-e _tl29053237_))) - (let ((_tl29083247_ + (##car _e29053230_)))) + (if (gx#stx-pair? _tl29033237_) + (let ((_e29083240_ (gx#syntax-e _tl29033237_))) + (let ((_tl29063247_ (let () (declare (not safe)) - (##cdr _e29063240_))) + (##cdr _e29083240_))) (_hd29073244_ (let () (declare (not safe)) - (##car _e29063240_)))) - (if (gx#stx-pair? _tl29083247_) - (let ((_e29093250_ - (gx#syntax-e _tl29083247_))) - (let ((_tl29113257_ + (##car _e29083240_)))) + (if (gx#stx-pair? _tl29063247_) + (let ((_e29113250_ + (gx#syntax-e _tl29063247_))) + (let ((_tl29093257_ (let () (declare (not safe)) - (##cdr _e29093250_))) + (##cdr _e29113250_))) (_hd29103254_ (let () (declare (not safe)) - (##car _e29093250_)))) + (##car _e29113250_)))) (if (gx#stx-pair? _hd29103254_) - (let ((_e29123260_ + (let ((_e29143260_ (gx#syntax-e _hd29103254_))) - (let ((_tl29143267_ + (let ((_tl29123267_ (let () (declare (not safe)) - (##cdr _e29123260_))) + (##cdr _e29143260_))) (_hd29133264_ (let () (declare (not safe)) - (##car _e29123260_)))) - (if (gx#stx-pair? _tl29143267_) - (let ((_e29153270_ + (##car _e29143260_)))) + (if (gx#stx-pair? _tl29123267_) + (let ((_e29173270_ (gx#syntax-e - _tl29143267_))) - (let ((_tl29173277_ + _tl29123267_))) + (let ((_tl29153277_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e29153270_))) + (##cdr _e29173270_))) (_hd29163274_ - (let () (declare (not safe)) (##car _e29153270_)))) - (if (gx#stx-null? _tl29173277_) + (let () (declare (not safe)) (##car _e29173270_)))) + (if (gx#stx-null? _tl29153277_) (___match3705837059_ - _e29033230_ + _e29053230_ _hd29043234_ - _tl29053237_ - _e29063240_ + _tl29033237_ + _e29083240_ _hd29073244_ - _tl29083247_ - _e29093250_ + _tl29063247_ + _e29113250_ _hd29103254_ - _tl29113257_ - _e29123260_ + _tl29093257_ + _e29143260_ _hd29133264_ - _tl29143267_ - _e29153270_ + _tl29123267_ + _e29173270_ _hd29163274_ - _tl29173277_) + _tl29153277_) (if (gx#stx-pair/null? _hd29103254_) (let ((___splice3702237023_ (gx#syntax-split-splice _hd29103254_ '0))) @@ -2005,20 +2055,20 @@ (##vector-ref ___splice3702237023_ '0)))) (if (gx#stx-null? _tl29333002_) (___match3708437085_ - _e29033230_ + _e29053230_ _hd29043234_ - _tl29053237_ - _e29063240_ + _tl29033237_ + _e29083240_ _hd29073244_ - _tl29083247_ - _e29093250_ + _tl29063247_ + _e29113250_ _hd29103254_ - _tl29113257_ + _tl29093257_ ___splice3702237023_ _target29312999_ _tl29333002_) - (_g28962962_)))) - (_g28962962_))))) + (let () (declare (not safe)) (_g28962962_))))) + (let () (declare (not safe)) (_g28962962_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29103254_) @@ -2037,20 +2087,20 @@ (##vector-ref ___splice3702237023_ '0)))) (if (gx#stx-null? _tl29333002_) (___match3708437085_ - _e29033230_ + _e29053230_ _hd29043234_ - _tl29053237_ - _e29063240_ + _tl29033237_ + _e29083240_ _hd29073244_ - _tl29083247_ - _e29093250_ + _tl29063247_ + _e29113250_ _hd29103254_ - _tl29113257_ + _tl29093257_ ___splice3702237023_ _target29312999_ _tl29333002_) - (_g28962962_)))) - (_g28962962_))))) + (let () (declare (not safe)) (_g28962962_))))) + (let () (declare (not safe)) (_g28962962_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29103254_) @@ -2073,23 +2123,29 @@ (if (gx#stx-null? _tl29333002_) (___match3708437085_ - _e29033230_ + _e29053230_ _hd29043234_ - _tl29053237_ - _e29063240_ + _tl29033237_ + _e29083240_ _hd29073244_ - _tl29083247_ - _e29093250_ + _tl29063247_ + _e29113250_ _hd29103254_ - _tl29113257_ + _tl29093257_ ___splice3702237023_ _target29312999_ _tl29333002_) - (_g28962962_)))) - (_g28962962_))))) - (_g28962962_)))) - (_g28962962_)))) - (_g28962962_)))))))) + (let () + (declare (not safe)) + (_g28962962_))))) + (let () + (declare (not safe)) + (_g28962962_)))))) + (let () + (declare (not safe)) + (_g28962962_))))) + (let () (declare (not safe)) (_g28962962_))))) + (let () (declare (not safe)) (_g28962962_))))))))) (define |gerbil/core$$[:0:]#and| (lambda (_$stx3434_) (let* ((___stx3708737088_ _$stx3434_) @@ -2108,31 +2164,31 @@ (cons (cons _L3496_ _L3493_) (cons '#f '()))))))) (if (gx#stx-pair? ___stx3708737088_) - (let ((_e34423558_ (gx#syntax-e ___stx3708737088_))) - (let ((_tl34443565_ - (let () (declare (not safe)) (##cdr _e34423558_))) + (let ((_e34443558_ (gx#syntax-e ___stx3708737088_))) + (let ((_tl34423565_ + (let () (declare (not safe)) (##cdr _e34443558_))) (_hd34433562_ - (let () (declare (not safe)) (##car _e34423558_)))) - (if (gx#stx-null? _tl34443565_) + (let () (declare (not safe)) (##car _e34443558_)))) + (if (gx#stx-null? _tl34423565_) (___kont3709037091_) - (if (gx#stx-pair? _tl34443565_) - (let ((_e34493528_ (gx#syntax-e _tl34443565_))) - (let ((_tl34513535_ + (if (gx#stx-pair? _tl34423565_) + (let ((_e34513528_ (gx#syntax-e _tl34423565_))) + (let ((_tl34493535_ (let () (declare (not safe)) - (##cdr _e34493528_))) + (##cdr _e34513528_))) (_hd34503532_ (let () (declare (not safe)) - (##car _e34493528_)))) - (if (gx#stx-null? _tl34513535_) + (##car _e34513528_)))) + (if (gx#stx-null? _tl34493535_) (___kont3709237093_ _hd34503532_) (___kont3709437095_ - _tl34513535_ + _tl34493535_ _hd34503532_ _hd34433562_)))) - (_g34403466_))))) - (_g34403466_)))))) + (let () (declare (not safe)) (_g34403466_)))))) + (let () (declare (not safe)) (_g34403466_))))))) (define |gerbil/core$$[:0:]#or| (lambda (_$stx3576_) (let* ((___stx3713337134_ _$stx3576_) @@ -2161,31 +2217,31 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (if (gx#stx-pair? ___stx3713337134_) - (let ((_e35843700_ (gx#syntax-e ___stx3713337134_))) - (let ((_tl35863707_ - (let () (declare (not safe)) (##cdr _e35843700_))) + (let ((_e35863700_ (gx#syntax-e ___stx3713337134_))) + (let ((_tl35843707_ + (let () (declare (not safe)) (##cdr _e35863700_))) (_hd35853704_ - (let () (declare (not safe)) (##car _e35843700_)))) - (if (gx#stx-null? _tl35863707_) + (let () (declare (not safe)) (##car _e35863700_)))) + (if (gx#stx-null? _tl35843707_) (___kont3713637137_) - (if (gx#stx-pair? _tl35863707_) - (let ((_e35913670_ (gx#syntax-e _tl35863707_))) - (let ((_tl35933677_ + (if (gx#stx-pair? _tl35843707_) + (let ((_e35933670_ (gx#syntax-e _tl35843707_))) + (let ((_tl35913677_ (let () (declare (not safe)) - (##cdr _e35913670_))) + (##cdr _e35933670_))) (_hd35923674_ (let () (declare (not safe)) - (##car _e35913670_)))) - (if (gx#stx-null? _tl35933677_) + (##car _e35933670_)))) + (if (gx#stx-null? _tl35913677_) (___kont3713837139_ _hd35923674_) (___kont3714037141_ - _tl35933677_ + _tl35913677_ _hd35923674_ _hd35853704_)))) - (_g35823608_))))) - (_g35823608_)))))) + (let () (declare (not safe)) (_g35823608_)))))) + (let () (declare (not safe)) (_g35823608_))))))) (define |gerbil/core$$[:0:]#cond| (lambda (_$stx3718_) (let* ((___stx3717937180_ _$stx3718_) @@ -2254,15 +2310,15 @@ _L3887_)) (cons (cons _L3889_ _L3885_) '()))))))) (let* ((___match3734037341_ - (lambda (_e37953825_ + (lambda (_e37973825_ _hd37963829_ - _tl37973832_ - _e37983835_ + _tl37953832_ + _e38003835_ _hd37993839_ - _tl38003842_ - _e38013845_ + _tl37983842_ + _e38033845_ _hd38023849_ - _tl38033852_ + _tl38013852_ ___splice3719637197_ _target38043855_ _tl38063858_) @@ -2286,21 +2342,21 @@ (let ((_body38123881_ (reverse _body38113868_))) (___kont3719437195_ - _tl38003842_ + _tl37983842_ _body38123881_ _hd38023849_ _hd37963829_)))))) (_loop38073861_ _target38043855_ '())))) (___match3723637237_ - (lambda (_e37334105_ + (lambda (_e37354105_ _hd37344109_ - _tl37354112_ - _e37364115_ + _tl37334112_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3718637187_ _target37424135_ _tl37444138_) @@ -2323,48 +2379,48 @@ _body37494148_)))) (let ((_body37504161_ (reverse _body37494148_))) - (if (gx#stx-null? _tl37384122_) + (if (gx#stx-null? _tl37364122_) (___kont3718437185_ _body37504161_) (___kont3718837189_))))))) (_loop37454141_ _target37424135_ '()))))) (if (gx#stx-pair? ___stx3717937180_) - (let ((_e37294200_ (gx#syntax-e ___stx3717937180_))) - (let ((_tl37314207_ - (let () (declare (not safe)) (##cdr _e37294200_))) + (let ((_e37314200_ (gx#syntax-e ___stx3717937180_))) + (let ((_tl37294207_ + (let () (declare (not safe)) (##cdr _e37314200_))) (_hd37304204_ - (let () (declare (not safe)) (##car _e37294200_)))) - (if (gx#stx-null? _tl37314207_) + (let () (declare (not safe)) (##car _e37314200_)))) + (if (gx#stx-null? _tl37294207_) (___kont3718237183_) - (if (gx#stx-pair? _tl37314207_) - (let ((_e37364115_ (gx#syntax-e _tl37314207_))) - (let ((_tl37384122_ + (if (gx#stx-pair? _tl37294207_) + (let ((_e37384115_ (gx#syntax-e _tl37294207_))) + (let ((_tl37364122_ (let () (declare (not safe)) - (##cdr _e37364115_))) + (##cdr _e37384115_))) (_hd37374119_ (let () (declare (not safe)) - (##car _e37364115_)))) + (##car _e37384115_)))) (if (gx#stx-pair? _hd37374119_) - (let ((_e37394125_ + (let ((_e37414125_ (gx#syntax-e _hd37374119_))) - (let ((_tl37414132_ + (let ((_tl37394132_ (let () (declare (not safe)) - (##cdr _e37394125_))) + (##cdr _e37414125_))) (_hd37404129_ (let () (declare (not safe)) - (##car _e37394125_)))) + (##car _e37414125_)))) (if (gx#identifier? _hd37404129_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42137_| + |gerbil/core$$[1]#_g42138_| _hd37404129_) (if (gx#stx-pair/null? - _tl37414132_) + _tl37394132_) (let ((___splice3718637187_ (gx#syntax-split-splice - _tl37414132_ + _tl37394132_ '0))) (let ((_tl37444138_ (let () @@ -2377,15 +2433,15 @@ (##vector-ref ___splice3718637187_ '0)))) (if (gx#stx-null? _tl37444138_) (___match3723637237_ - _e37294200_ + _e37314200_ _hd37304204_ - _tl37314207_ - _e37364115_ + _tl37294207_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3718637187_ _target37424135_ _tl37444138_) @@ -2393,45 +2449,45 @@ (___kont3718837189_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl37414132_) + _tl37394132_) (___kont3719037191_ - _tl37384122_ + _tl37364122_ _hd37404129_ _hd37304204_) (if (gx#stx-pair? - _tl37414132_) - (let ((_e37853956_ + _tl37394132_) + (let ((_e37873956_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl37414132_))) - (let ((_tl37873963_ - (let () (declare (not safe)) (##cdr _e37853956_))) + (gx#syntax-e _tl37394132_))) + (let ((_tl37853963_ + (let () (declare (not safe)) (##cdr _e37873956_))) (_hd37863960_ - (let () (declare (not safe)) (##car _e37853956_)))) + (let () (declare (not safe)) (##car _e37873956_)))) (if (gx#identifier? _hd37863960_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42138_| + |gerbil/core$$[1]#_g42137_| _hd37863960_) - (if (gx#stx-pair? _tl37873963_) - (let ((_e37883966_ - (gx#syntax-e _tl37873963_))) - (let ((_tl37903973_ + (if (gx#stx-pair? _tl37853963_) + (let ((_e37903966_ + (gx#syntax-e _tl37853963_))) + (let ((_tl37883973_ (let () (declare (not safe)) - (##cdr _e37883966_))) + (##cdr _e37903966_))) (_hd37893970_ (let () (declare (not safe)) - (##car _e37883966_)))) - (if (gx#stx-null? _tl37903973_) + (##car _e37903966_)))) + (if (gx#stx-null? _tl37883973_) (___kont3719237193_ - _tl37384122_ + _tl37364122_ _hd37893970_ _hd37404129_ _hd37304204_) - (if (gx#stx-pair/null? _tl37414132_) + (if (gx#stx-pair/null? _tl37394132_) (let ((___splice3719637197_ (gx#syntax-split-splice - _tl37414132_ + _tl37394132_ '0))) (let ((_tl38063858_ (let () @@ -2448,24 +2504,28 @@ (if (gx#stx-null? _tl38063858_) (___match3734037341_ - _e37294200_ + _e37314200_ _hd37304204_ - _tl37314207_ - _e37364115_ + _tl37294207_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3719637197_ _target38043855_ _tl38063858_) - (_g37273818_)))) - (_g37273818_))))) - (if (gx#stx-pair/null? _tl37414132_) + (let () + (declare (not safe)) + (_g37273818_))))) + (let () + (declare (not safe)) + (_g37273818_)))))) + (if (gx#stx-pair/null? _tl37394132_) (let ((___splice3719637197_ (gx#syntax-split-splice - _tl37414132_ + _tl37394132_ '0))) (let ((_tl38063858_ (let () @@ -2481,24 +2541,28 @@ '0)))) (if (gx#stx-null? _tl38063858_) (___match3734037341_ - _e37294200_ + _e37314200_ _hd37304204_ - _tl37314207_ - _e37364115_ + _tl37294207_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3719637197_ _target38043855_ _tl38063858_) - (_g37273818_)))) - (_g37273818_))) - (if (gx#stx-pair/null? _tl37414132_) + (let () + (declare (not safe)) + (_g37273818_))))) + (let () + (declare (not safe)) + (_g37273818_)))) + (if (gx#stx-pair/null? _tl37394132_) (let ((___splice3719637197_ (gx#syntax-split-splice - _tl37414132_ + _tl37394132_ '0))) (let ((_tl38063858_ (let () @@ -2514,23 +2578,25 @@ '0)))) (if (gx#stx-null? _tl38063858_) (___match3734037341_ - _e37294200_ + _e37314200_ _hd37304204_ - _tl37314207_ - _e37364115_ + _tl37294207_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3719637197_ _target38043855_ _tl38063858_) - (_g37273818_)))) - (_g37273818_))) - (if (gx#stx-pair/null? _tl37414132_) + (let () + (declare (not safe)) + (_g37273818_))))) + (let () (declare (not safe)) (_g37273818_)))) + (if (gx#stx-pair/null? _tl37394132_) (let ((___splice3719637197_ - (gx#syntax-split-splice _tl37414132_ '0))) + (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) @@ -2545,23 +2611,25 @@ '0)))) (if (gx#stx-null? _tl38063858_) (___match3734037341_ - _e37294200_ + _e37314200_ _hd37304204_ - _tl37314207_ - _e37364115_ + _tl37294207_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3719637197_ _target38043855_ _tl38063858_) - (_g37273818_)))) - (_g37273818_))))) - (if (gx#stx-pair/null? _tl37414132_) + (let () + (declare (not safe)) + (_g37273818_))))) + (let () (declare (not safe)) (_g37273818_)))))) + (if (gx#stx-pair/null? _tl37394132_) (let ((___splice3719637197_ - (gx#syntax-split-splice _tl37414132_ '0))) + (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) @@ -2572,62 +2640,62 @@ (##vector-ref ___splice3719637197_ '0)))) (if (gx#stx-null? _tl38063858_) (___match3734037341_ - _e37294200_ + _e37314200_ _hd37304204_ - _tl37314207_ - _e37364115_ + _tl37294207_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3719637197_ _target38043855_ _tl38063858_) - (_g37273818_)))) - (_g37273818_))))) + (let () (declare (not safe)) (_g37273818_))))) + (let () (declare (not safe)) (_g37273818_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _tl37414132_) + (if (gx#stx-null? _tl37394132_) (___kont3719037191_ - _tl37384122_ + _tl37364122_ _hd37404129_ _hd37304204_) (if (gx#stx-pair? - _tl37414132_) - (let ((_e37853956_ + _tl37394132_) + (let ((_e37873956_ (gx#syntax-e - _tl37414132_))) - (let ((_tl37873963_ + _tl37394132_))) + (let ((_tl37853963_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e37853956_))) + (##cdr _e37873956_))) (_hd37863960_ - (let () (declare (not safe)) (##car _e37853956_)))) + (let () (declare (not safe)) (##car _e37873956_)))) (if (gx#identifier? _hd37863960_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42138_| + |gerbil/core$$[1]#_g42137_| _hd37863960_) - (if (gx#stx-pair? _tl37873963_) - (let ((_e37883966_ (gx#syntax-e _tl37873963_))) - (let ((_tl37903973_ + (if (gx#stx-pair? _tl37853963_) + (let ((_e37903966_ (gx#syntax-e _tl37853963_))) + (let ((_tl37883973_ (let () (declare (not safe)) - (##cdr _e37883966_))) + (##cdr _e37903966_))) (_hd37893970_ (let () (declare (not safe)) - (##car _e37883966_)))) - (if (gx#stx-null? _tl37903973_) + (##car _e37903966_)))) + (if (gx#stx-null? _tl37883973_) (___kont3719237193_ - _tl37384122_ + _tl37364122_ _hd37893970_ _hd37404129_ _hd37304204_) - (if (gx#stx-pair/null? _tl37414132_) + (if (gx#stx-pair/null? _tl37394132_) (let ((___splice3719637197_ (gx#syntax-split-splice - _tl37414132_ + _tl37394132_ '0))) (let ((_tl38063858_ (let () @@ -2643,24 +2711,28 @@ '0)))) (if (gx#stx-null? _tl38063858_) (___match3734037341_ - _e37294200_ + _e37314200_ _hd37304204_ - _tl37314207_ - _e37364115_ + _tl37294207_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3719637197_ _target38043855_ _tl38063858_) - (_g37273818_)))) - (_g37273818_))))) - (if (gx#stx-pair/null? _tl37414132_) + (let () + (declare (not safe)) + (_g37273818_))))) + (let () + (declare (not safe)) + (_g37273818_)))))) + (if (gx#stx-pair/null? _tl37394132_) (let ((___splice3719637197_ (gx#syntax-split-splice - _tl37414132_ + _tl37394132_ '0))) (let ((_tl38063858_ (let () @@ -2676,23 +2748,25 @@ '0)))) (if (gx#stx-null? _tl38063858_) (___match3734037341_ - _e37294200_ + _e37314200_ _hd37304204_ - _tl37314207_ - _e37364115_ + _tl37294207_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3719637197_ _target38043855_ _tl38063858_) - (_g37273818_)))) - (_g37273818_))) - (if (gx#stx-pair/null? _tl37414132_) + (let () + (declare (not safe)) + (_g37273818_))))) + (let () (declare (not safe)) (_g37273818_)))) + (if (gx#stx-pair/null? _tl37394132_) (let ((___splice3719637197_ - (gx#syntax-split-splice _tl37414132_ '0))) + (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) @@ -2707,23 +2781,25 @@ '0)))) (if (gx#stx-null? _tl38063858_) (___match3734037341_ - _e37294200_ + _e37314200_ _hd37304204_ - _tl37314207_ - _e37364115_ + _tl37294207_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3719637197_ _target38043855_ _tl38063858_) - (_g37273818_)))) - (_g37273818_))) - (if (gx#stx-pair/null? _tl37414132_) + (let () + (declare (not safe)) + (_g37273818_))))) + (let () (declare (not safe)) (_g37273818_)))) + (if (gx#stx-pair/null? _tl37394132_) (let ((___splice3719637197_ - (gx#syntax-split-splice _tl37414132_ '0))) + (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) @@ -2734,23 +2810,25 @@ (##vector-ref ___splice3719637197_ '0)))) (if (gx#stx-null? _tl38063858_) (___match3734037341_ - _e37294200_ + _e37314200_ _hd37304204_ - _tl37314207_ - _e37364115_ + _tl37294207_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3719637197_ _target38043855_ _tl38063858_) - (_g37273818_)))) - (_g37273818_))))) - (if (gx#stx-pair/null? _tl37414132_) + (let () + (declare (not safe)) + (_g37273818_))))) + (let () (declare (not safe)) (_g37273818_)))))) + (if (gx#stx-pair/null? _tl37394132_) (let ((___splice3719637197_ - (gx#syntax-split-splice _tl37414132_ '0))) + (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) @@ -2761,24 +2839,26 @@ (##vector-ref ___splice3719637197_ '0)))) (if (gx#stx-null? _tl38063858_) (___match3734037341_ - _e37294200_ + _e37314200_ _hd37304204_ - _tl37314207_ - _e37364115_ + _tl37294207_ + _e37384115_ _hd37374119_ - _tl37384122_ - _e37394125_ + _tl37364122_ + _e37414125_ _hd37404129_ - _tl37414132_ + _tl37394132_ ___splice3719637197_ _target38043855_ _tl38063858_) - (_g37273818_)))) - (_g37273818_))))))) + (let () (declare (not safe)) (_g37273818_))))) + (let () (declare (not safe)) (_g37273818_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g37273818_)))) - (_g37273818_))))) - (_g37273818_))))))) + (let () + (declare (not safe)) + (_g37273818_))))) + (let () (declare (not safe)) (_g37273818_)))))) + (let () (declare (not safe)) (_g37273818_)))))))) (define |gerbil/core$$[:0:]#when| (lambda (_$stx4220_) (let* ((_g42244248_ @@ -2787,29 +2867,29 @@ (_g42234333_ (lambda (_g42254252_) (if (gx#stx-pair? _g42254252_) - (let ((_e42284255_ (gx#syntax-e _g42254252_))) + (let ((_e42304255_ (gx#syntax-e _g42254252_))) (let ((_hd42294259_ (let () (declare (not safe)) - (##car _e42284255_))) - (_tl42304262_ + (##car _e42304255_))) + (_tl42284262_ (let () (declare (not safe)) - (##cdr _e42284255_)))) - (if (gx#stx-pair? _tl42304262_) - (let ((_e42314265_ (gx#syntax-e _tl42304262_))) + (##cdr _e42304255_)))) + (if (gx#stx-pair? _tl42284262_) + (let ((_e42334265_ (gx#syntax-e _tl42284262_))) (let ((_hd42324269_ (let () (declare (not safe)) - (##car _e42314265_))) - (_tl42334272_ + (##car _e42334265_))) + (_tl42314272_ (let () (declare (not safe)) - (##cdr _e42314265_)))) - (if (gx#stx-pair/null? _tl42334272_) + (##cdr _e42334265_)))) + (if (gx#stx-pair/null? _tl42314272_) (let ((_g42139_ (gx#syntax-split-splice - _tl42334272_ + _tl42314272_ '0))) (begin (let ((_g42140_ @@ -2884,29 +2964,29 @@ (_g43414451_ (lambda (_g43434370_) (if (gx#stx-pair? _g43434370_) - (let ((_e43464373_ (gx#syntax-e _g43434370_))) + (let ((_e43484373_ (gx#syntax-e _g43434370_))) (let ((_hd43474377_ (let () (declare (not safe)) - (##car _e43464373_))) - (_tl43484380_ + (##car _e43484373_))) + (_tl43464380_ (let () (declare (not safe)) - (##cdr _e43464373_)))) - (if (gx#stx-pair? _tl43484380_) - (let ((_e43494383_ (gx#syntax-e _tl43484380_))) + (##cdr _e43484373_)))) + (if (gx#stx-pair? _tl43464380_) + (let ((_e43514383_ (gx#syntax-e _tl43464380_))) (let ((_hd43504387_ (let () (declare (not safe)) - (##car _e43494383_))) - (_tl43514390_ + (##car _e43514383_))) + (_tl43494390_ (let () (declare (not safe)) - (##cdr _e43494383_)))) - (if (gx#stx-pair/null? _tl43514390_) + (##cdr _e43514383_)))) + (if (gx#stx-pair/null? _tl43494390_) (let ((_g42141_ (gx#syntax-split-splice - _tl43514390_ + _tl43494390_ '0))) (begin (let ((_g42142_ @@ -2982,29 +3062,29 @@ (_g44584568_ (lambda (_g44604487_) (if (gx#stx-pair? _g44604487_) - (let ((_e44634490_ (gx#syntax-e _g44604487_))) + (let ((_e44654490_ (gx#syntax-e _g44604487_))) (let ((_hd44644494_ (let () (declare (not safe)) - (##car _e44634490_))) - (_tl44654497_ + (##car _e44654490_))) + (_tl44634497_ (let () (declare (not safe)) - (##cdr _e44634490_)))) - (if (gx#stx-pair? _tl44654497_) - (let ((_e44664500_ (gx#syntax-e _tl44654497_))) + (##cdr _e44654490_)))) + (if (gx#stx-pair? _tl44634497_) + (let ((_e44684500_ (gx#syntax-e _tl44634497_))) (let ((_hd44674504_ (let () (declare (not safe)) - (##car _e44664500_))) - (_tl44684507_ + (##car _e44684500_))) + (_tl44664507_ (let () (declare (not safe)) - (##cdr _e44664500_)))) - (if (gx#stx-pair/null? _tl44684507_) + (##cdr _e44684500_)))) + (if (gx#stx-pair/null? _tl44664507_) (let ((_g42143_ (gx#syntax-split-splice - _tl44684507_ + _tl44664507_ '0))) (begin (let ((_g42144_ diff --git a/src/bootstrap/gerbil/core__4.scm b/src/bootstrap/gerbil/core__4.scm index 522e7b373..f00015ec8 100644 --- a/src/bootstrap/gerbil/core__4.scm +++ b/src/bootstrap/gerbil/core__4.scm @@ -3,14 +3,14 @@ (define |gerbil/core$$[1]#_g42175_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (define |gerbil/core$$[1]#_g42176_| + (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) + (define |gerbil/core$$[1]#_g42177_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42177_| - (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (define |gerbil/core$$[1]#_g42213_| (##structure gx#syntax-quote::t @@ -35,68 +35,68 @@ (define |gerbil/core$$[1]#_g42222_| (##structure gx#syntax-quote::t - 'quote + 'quasiquote #f (gx#current-expander-context) '())) (define |gerbil/core$$[1]#_g42223_| (##structure gx#syntax-quote::t - 'quasiquote + 'quote #f (gx#current-expander-context) '())) (define |gerbil/core$$[1]#_g42224_| (##structure gx#syntax-quote::t - 'unquote + 'unquote-splicing #f (gx#current-expander-context) '())) (define |gerbil/core$$[1]#_g42225_| (##structure gx#syntax-quote::t - 'unquote-splicing + 'unquote #f (gx#current-expander-context) '())) (define |gerbil/core$$[1]#_g42226_| (##structure gx#syntax-quote::t - 'quasiquote + 'unquote-splicing #f (gx#current-expander-context) '())) (define |gerbil/core$$[1]#_g42227_| (##structure gx#syntax-quote::t - 'unquote + 'unquote-splicing #f (gx#current-expander-context) '())) (define |gerbil/core$$[1]#_g42228_| (##structure gx#syntax-quote::t - 'unquote-splicing + 'unquote #f (gx#current-expander-context) '())) (define |gerbil/core$$[1]#_g42229_| (##structure gx#syntax-quote::t - 'unquote-splicing + 'quasiquote #f (gx#current-expander-context) '())) (define |gerbil/core$$[1]#_g42230_| - (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42231_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) + (define |gerbil/core$$[1]#_g42231_| + (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) (begin (define |gerbil/core$$[:0:]#lambda| (lambda (_stx4574_) @@ -132,52 +132,52 @@ '#f) '#f)))) (let ((___match3736437365_ - (lambda (_e79027931_ + (lambda (_e79047931_ _hd79037935_ - _tl79047938_ - _e79057941_ + _tl79027938_ + _e79077941_ _hd79067945_ - _tl79077948_) + _tl79057948_) (let ((_L7951_ _hd79037935_)) (if (gx#identifier? _L7951_) (___kont3734637347_ _L7951_) (___kont3734837349_)))))) (if (gx#stx-pair? ___stx3734337344_) - (let ((_e79027931_ + (let ((_e79047931_ (gx#syntax-e ___stx3734337344_))) - (let ((_tl79047938_ + (let ((_tl79027938_ (let () (declare (not safe)) - (##cdr _e79027931_))) + (##cdr _e79047931_))) (_hd79037935_ (let () (declare (not safe)) - (##car _e79027931_)))) - (if (gx#stx-pair? _tl79047938_) - (let ((_e79057941_ + (##car _e79047931_)))) + (if (gx#stx-pair? _tl79027938_) + (let ((_e79077941_ (gx#syntax-e - _tl79047938_))) - (let ((_tl79077948_ + _tl79027938_))) + (let ((_tl79057948_ (let () (declare (not safe)) - (##cdr _e79057941_))) + (##cdr _e79077941_))) (_hd79067945_ (let () (declare (not safe)) - (##car _e79057941_)))) + (##car _e79077941_)))) (if (gx#stx-null? - _tl79077948_) + _tl79057948_) (___match3736437365_ - _e79027931_ + _e79047931_ _hd79037935_ - _tl79047938_ - _e79057941_ + _tl79027938_ + _e79077941_ _hd79067945_ - _tl79077948_) + _tl79057948_) (___kont3734837349_)))) (___kont3734837349_)))) (___kont3734837349_))))))) @@ -191,18 +191,18 @@ (gx#identifier? _rest7832_))) '#f)))) (if (gx#stx-pair? ___stx3736737368_) - (let ((_e78417871_ + (let ((_e78437871_ (gx#syntax-e ___stx3736737368_))) - (let ((_tl78437878_ + (let ((_tl78417878_ (let () (declare (not safe)) - (##cdr _e78417871_))) + (##cdr _e78437871_))) (_hd78427875_ (let () (declare (not safe)) - (##car _e78417871_)))) + (##car _e78437871_)))) (___kont3737037371_ - _tl78437878_ + _tl78417878_ _hd78427875_))) (___kont3737237373_))))))) (_opt-lambda-split4580_ @@ -244,33 +244,33 @@ _pre7686_) _opt7687_)))) (if (gx#stx-pair? ___stx3738337384_) - (let ((_e77527781_ + (let ((_e77547781_ (gx#syntax-e ___stx3738337384_))) - (let ((_tl77547788_ + (let ((_tl77527788_ (let () (declare (not safe)) - (##cdr _e77527781_))) + (##cdr _e77547781_))) (_hd77537785_ (let () (declare (not safe)) - (##car _e77527781_)))) - (if (gx#stx-pair? _tl77547788_) - (let ((_e77557791_ + (##car _e77547781_)))) + (if (gx#stx-pair? _tl77527788_) + (let ((_e77577791_ (gx#syntax-e - _tl77547788_))) - (let ((_tl77577798_ + _tl77527788_))) + (let ((_tl77557798_ (let () (declare (not safe)) - (##cdr _e77557791_))) + (##cdr _e77577791_))) (_hd77567795_ (let () (declare (not safe)) - (##car _e77557791_)))) + (##car _e77577791_)))) (if (gx#stx-null? - _tl77577798_) + _tl77557798_) (___kont3738637387_ _hd77567795_ _hd77537785_) @@ -285,18 +285,18 @@ (_generate-bind4583_ _rest7684_) _rest7684_))))) (if (gx#stx-pair? ___stx3740737408_) - (let ((_e76947720_ + (let ((_e76967720_ (gx#syntax-e ___stx3740737408_))) - (let ((_tl76967727_ + (let ((_tl76947727_ (let () (declare (not safe)) - (##cdr _e76947720_))) + (##cdr _e76967720_))) (_hd76957724_ (let () (declare (not safe)) - (##car _e76947720_)))) + (##car _e76967720_)))) (___kont3741037411_ - _tl76967727_ + _tl76947727_ _hd76957724_))) (___kont3741237413_))))))) (_kw-lambda?4581_ @@ -337,33 +337,33 @@ '#t) '#f)))) (if (gx#stx-pair? ___stx3744737448_) - (let ((_e76067635_ + (let ((_e76087635_ (gx#syntax-e ___stx3744737448_))) - (let ((_tl76087642_ + (let ((_tl76067642_ (let () (declare (not safe)) - (##cdr _e76067635_))) + (##cdr _e76087635_))) (_hd76077639_ (let () (declare (not safe)) - (##car _e76067635_)))) - (if (gx#stx-pair? _tl76087642_) - (let ((_e76097645_ + (##car _e76087635_)))) + (if (gx#stx-pair? _tl76067642_) + (let ((_e76117645_ (gx#syntax-e - _tl76087642_))) - (let ((_tl76117652_ + _tl76067642_))) + (let ((_tl76097652_ (let () (declare (not safe)) - (##cdr _e76097645_))) + (##cdr _e76117645_))) (_hd76107649_ (let () (declare (not safe)) - (##car _e76097645_)))) + (##car _e76117645_)))) (if (gx#stx-null? - _tl76117652_) + _tl76097652_) (___kont3745037451_ _hd76077639_) (___kont3745237453_)))) @@ -402,33 +402,33 @@ '#f) '#f)))) (if (gx#stx-pair? ___stx3742337424_) - (let ((_e74437472_ + (let ((_e74457472_ (gx#syntax-e ___stx3742337424_))) - (let ((_tl74457479_ + (let ((_tl74437479_ (let () (declare (not safe)) - (##cdr _e74437472_))) + (##cdr _e74457472_))) (_hd74447476_ (let () (declare (not safe)) - (##car _e74437472_)))) - (if (gx#stx-pair? _tl74457479_) - (let ((_e74467482_ + (##car _e74457472_)))) + (if (gx#stx-pair? _tl74437479_) + (let ((_e74487482_ (gx#syntax-e - _tl74457479_))) - (let ((_tl74487489_ + _tl74437479_))) + (let ((_tl74467489_ (let () (declare (not safe)) - (##cdr _e74467482_))) + (##cdr _e74487482_))) (_hd74477486_ (let () (declare (not safe)) - (##car _e74467482_)))) + (##car _e74487482_)))) (if (gx#stx-null? - _tl74487489_) + _tl74467489_) (___kont3742637427_ _hd74447476_) (___kont3742837429_)))) @@ -444,13 +444,13 @@ (gx#identifier? _rest7352_))) '#f)))) (let ((___match3749437495_ - (lambda (_e73657565_ + (lambda (_e73677565_ _hd73667569_ - _tl73677572_ - _e73687575_ + _tl73657572_ + _e73707575_ _hd73697579_ - _tl73707582_) - (let ((_L7585_ _tl73707582_) + _tl73687582_) + (let ((_L7585_ _tl73687582_) (_L7587_ _hd73697579_) (_L7588_ _hd73667569_)) (if (gx#stx-keyword? _L7588_) @@ -463,51 +463,51 @@ (gx#stx-e _hd73667569_))) (if (equal? _e73767528_ '#!key) (___kont3747637477_ - _tl73707582_ + _tl73687582_ _hd73697579_) (___kont3747837479_ - _tl73677572_ + _tl73657572_ _hd73667569_))) (___kont3747837479_ - _tl73677572_ + _tl73657572_ _hd73667569_))))))) (if (gx#stx-pair? ___stx3747137472_) - (let ((_e73657565_ + (let ((_e73677565_ (gx#syntax-e ___stx3747137472_))) - (let ((_tl73677572_ + (let ((_tl73657572_ (let () (declare (not safe)) - (##cdr _e73657565_))) + (##cdr _e73677565_))) (_hd73667569_ (let () (declare (not safe)) - (##car _e73657565_)))) - (if (gx#stx-pair? _tl73677572_) - (let ((_e73687575_ - (gx#syntax-e _tl73677572_))) - (let ((_tl73707582_ + (##car _e73677565_)))) + (if (gx#stx-pair? _tl73657572_) + (let ((_e73707575_ + (gx#syntax-e _tl73657572_))) + (let ((_tl73687582_ (let () (declare (not safe)) - (##cdr _e73687575_))) + (##cdr _e73707575_))) (_hd73697579_ (let () (declare (not safe)) - (##car _e73687575_)))) + (##car _e73707575_)))) (___match3749437495_ - _e73657565_ + _e73677565_ _hd73667569_ - _tl73677572_ - _e73687575_ + _tl73657572_ + _e73707575_ _hd73697579_ - _tl73707582_))) + _tl73687582_))) (if (gx#stx-datum? _hd73667569_) (let ((_e73767528_ (gx#stx-e _hd73667569_))) (___kont3747837479_ - _tl73677572_ + _tl73657572_ _hd73667569_)) (___kont3747837479_ - _tl73677572_ + _tl73657572_ _hd73667569_))))) (___kont3748037481_)))))))) (_kw-lambda-split4582_ @@ -572,30 +572,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _args7089_)))) (if (gx#stx-pair? ___stx3752137522_) - (let ((_e72717300_ + (let ((_e72737300_ (gx#syntax-e ___stx3752137522_))) - (let ((_tl72737307_ + (let ((_tl72717307_ (let () (declare (not safe)) - (##cdr _e72717300_))) + (##cdr _e72737300_))) (_hd72727304_ (let () (declare (not safe)) - (##car _e72717300_)))) + (##car _e72737300_)))) (if (gx#stx-pair? - _tl72737307_) - (let ((_e72747310_ + _tl72717307_) + (let ((_e72767310_ (gx#syntax-e - _tl72737307_))) - (let ((_tl72767317_ + _tl72717307_))) + (let ((_tl72747317_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e72747310_))) + (##cdr _e72767310_))) (_hd72757314_ - (let () (declare (not safe)) (##car _e72747310_)))) - (if (gx#stx-null? _tl72767317_) + (let () (declare (not safe)) (##car _e72767310_)))) + (if (gx#stx-null? _tl72747317_) (___kont3752437525_ _hd72757314_ _hd72727304_) (___kont3752637527_)))) (___kont3752637527_)))) @@ -628,13 +628,13 @@ (reverse _kwargs7088_) (foldl cons _rest7085_ _args7089_))))) (let ((___match3756837569_ - (lambda (_e70997223_ + (lambda (_e71017223_ _hd71007227_ - _tl71017230_ - _e71027233_ + _tl70997230_ + _e71047233_ _hd71037237_ - _tl71047240_) - (let ((_L7243_ _tl71047240_) + _tl71027240_) + (let ((_L7243_ _tl71027240_) (_L7245_ _hd71037237_) (_L7246_ _hd71007227_)) (if (gx#stx-keyword? _L7246_) @@ -647,51 +647,51 @@ (gx#stx-e _hd71007227_))) (if (equal? _e71107186_ '#!key) (___kont3755037551_ - _tl71047240_ + _tl71027240_ _hd71037237_) (___kont3755237553_ - _tl71017230_ + _tl70997230_ _hd71007227_))) (___kont3755237553_ - _tl71017230_ + _tl70997230_ _hd71007227_))))))) (if (gx#stx-pair? ___stx3754537546_) - (let ((_e70997223_ + (let ((_e71017223_ (gx#syntax-e ___stx3754537546_))) - (let ((_tl71017230_ + (let ((_tl70997230_ (let () (declare (not safe)) - (##cdr _e70997223_))) + (##cdr _e71017223_))) (_hd71007227_ (let () (declare (not safe)) - (##car _e70997223_)))) - (if (gx#stx-pair? _tl71017230_) - (let ((_e71027233_ - (gx#syntax-e _tl71017230_))) - (let ((_tl71047240_ + (##car _e71017223_)))) + (if (gx#stx-pair? _tl70997230_) + (let ((_e71047233_ + (gx#syntax-e _tl70997230_))) + (let ((_tl71027240_ (let () (declare (not safe)) - (##cdr _e71027233_))) + (##cdr _e71047233_))) (_hd71037237_ (let () (declare (not safe)) - (##car _e71027233_)))) + (##car _e71047233_)))) (___match3756837569_ - _e70997223_ + _e71017223_ _hd71007227_ - _tl71017230_ - _e71027233_ + _tl70997230_ + _e71047233_ _hd71037237_ - _tl71047240_))) + _tl71027240_))) (if (gx#stx-datum? _hd71007227_) (let ((_e71107186_ (gx#stx-e _hd71007227_))) (___kont3755237553_ - _tl71017230_ + _tl70997230_ _hd71007227_)) (___kont3755237553_ - _tl71017230_ + _tl70997230_ _hd71007227_))))) (___kont3755437555_)))))))) (_generate-bind4583_ @@ -731,25 +731,25 @@ (lambda (_g68466863_) (if (gx#stx-pair? _g68466863_) - (let ((_e68486866_ + (let ((_e68506866_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g68466863_))) (let ((_hd68496870_ - (let () (declare (not safe)) (##car _e68486866_))) - (_tl68506873_ - (let () (declare (not safe)) (##cdr _e68486866_)))) - (if (gx#stx-pair? _tl68506873_) - (let ((_e68516876_ (gx#syntax-e _tl68506873_))) + (let () (declare (not safe)) (##car _e68506866_))) + (_tl68486873_ + (let () (declare (not safe)) (##cdr _e68506866_)))) + (if (gx#stx-pair? _tl68486873_) + (let ((_e68536876_ (gx#syntax-e _tl68486873_))) (let ((_hd68526880_ (let () (declare (not safe)) - (##car _e68516876_))) - (_tl68536883_ + (##car _e68536876_))) + (_tl68516883_ (let () (declare (not safe)) - (##cdr _e68516876_)))) - (if (gx#stx-null? _tl68536883_) + (##cdr _e68536876_)))) + (if (gx#stx-null? _tl68516883_) ((lambda (_L6886_) (_lp6779_ _L6827_ @@ -771,17 +771,17 @@ (lambda (_g69056920_) (if (gx#stx-pair? _g69056920_) - (let ((_e69086923_ + (let ((_e69106923_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-e _g69056920_))) (let ((_hd69096927_ (let () (declare (not safe)) - (##car _e69086923_))) - (_tl69106930_ + (##car _e69106923_))) + (_tl69086930_ (let () (declare (not safe)) - (##cdr _e69086923_)))) + (##cdr _e69106923_)))) ((lambda (_L6933_ _L6935_) (let* ((___stx3759537596_ _L6935_) (_g69476961_ @@ -801,34 +801,34 @@ _L6933_ (_cons-id6776_ _L6935_ _ids6784_))))) (if (gx#stx-pair? ___stx3759537596_) - (let ((_e69506979_ + (let ((_e69526979_ (gx#syntax-e ___stx3759537596_))) - (let ((_tl69526986_ + (let ((_tl69506986_ (let () (declare (not safe)) - (##cdr _e69506979_))) + (##cdr _e69526979_))) (_hd69516983_ (let () (declare (not safe)) - (##car _e69506979_)))) - (if (gx#stx-pair? _tl69526986_) - (let ((_e69536989_ - (gx#syntax-e _tl69526986_))) - (let ((_tl69556996_ + (##car _e69526979_)))) + (if (gx#stx-pair? _tl69506986_) + (let ((_e69556989_ + (gx#syntax-e _tl69506986_))) + (let ((_tl69536996_ (let () (declare (not safe)) - (##cdr _e69536989_))) + (##cdr _e69556989_))) (_hd69546993_ (let () (declare (not safe)) - (##car _e69536989_)))) - (if (gx#stx-null? _tl69556996_) + (##car _e69556989_)))) + (if (gx#stx-null? _tl69536996_) (___kont3759837599_ _hd69516983_) (___kont3760037601_)))) (___kont3760037601_)))) (___kont3760037601_))))) - _tl69106930_ + _tl69086930_ _hd69096927_))) (_g69046916_ _g69056920_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -846,20 +846,20 @@ (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g70237038_) - (let ((_e70267041_ (gx#syntax-e _g70237038_))) + (let ((_e70287041_ (gx#syntax-e _g70237038_))) (let ((_hd70277045_ (let () (declare (not safe)) - (##car _e70267041_))) - (_tl70287048_ + (##car _e70287041_))) + (_tl70267048_ (let () (declare (not safe)) - (##cdr _e70267041_)))) + (##cdr _e70287041_)))) ((lambda (_L7051_ _L7053_) (_lp6779_ _L7051_ (_cons-id6776_ _L7053_ _ids6784_))) - _tl70287048_ + _tl70267048_ _hd70277045_))) (_g70227034_ _g70237038_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -875,18 +875,18 @@ (_cons-id6776_ _rest6782_ _ids6784_)) _stx4574_)))) (if (gx#stx-pair? ___stx3761937620_) - (let ((_e67916817_ + (let ((_e67936817_ (gx#syntax-e ___stx3761937620_))) - (let ((_tl67936824_ + (let ((_tl67916824_ (let () (declare (not safe)) - (##cdr _e67916817_))) + (##cdr _e67936817_))) (_hd67926821_ (let () (declare (not safe)) - (##car _e67916817_)))) + (##car _e67936817_)))) (___kont3762237623_ - _tl67936824_ + _tl67916824_ _hd67926821_))) (___kont3762437625_)))))))) (_generate-opt-primary4585_ @@ -900,16 +900,16 @@ (_g65706769_ (lambda (_g65726616_) (if (gx#stx-pair? _g65726616_) - (let ((_e65776619_ + (let ((_e65796619_ (gx#syntax-e _g65726616_))) (let ((_hd65786623_ (let () (declare (not safe)) - (##car _e65776619_))) - (_tl65796626_ + (##car _e65796619_))) + (_tl65776626_ (let () (declare (not safe)) - (##cdr _e65776619_)))) + (##cdr _e65796619_)))) (if (gx#stx-pair/null? _hd65786623_) (let ((_g42145_ (gx#syntax-split-splice @@ -959,17 +959,17 @@ _lp-tl65866652_ (cons _lp-hd65856649_ _pre65876642_)))) (let ((_pre65886655_ (reverse _pre65876642_))) - (if (gx#stx-pair? _tl65796626_) - (let ((_e65896659_ - (gx#syntax-e _tl65796626_))) + (if (gx#stx-pair? _tl65776626_) + (let ((_e65916659_ + (gx#syntax-e _tl65776626_))) (let ((_hd65906663_ (let () (declare (not safe)) - (##car _e65896659_))) - (_tl65916666_ + (##car _e65916659_))) + (_tl65896666_ (let () (declare (not safe)) - (##cdr _e65896659_)))) + (##cdr _e65916659_)))) (if (gx#stx-pair/null? _hd65906663_) (let ((_g42147_ (gx#syntax-split-splice @@ -1019,29 +1019,29 @@ _lp-tl65986692_ (cons _lp-hd65976689_ _opt65996682_)))) (let ((_opt66006695_ (reverse _opt65996682_))) - (if (gx#stx-pair? _tl65916666_) - (let ((_e66016699_ - (gx#syntax-e _tl65916666_))) + (if (gx#stx-pair? _tl65896666_) + (let ((_e66036699_ + (gx#syntax-e _tl65896666_))) (let ((_hd66026703_ (let () (declare (not safe)) - (##car _e66016699_))) - (_tl66036706_ + (##car _e66036699_))) + (_tl66016706_ (let () (declare (not safe)) - (##cdr _e66016699_)))) - (if (gx#stx-pair? _tl66036706_) - (let ((_e66046709_ - (gx#syntax-e _tl66036706_))) + (##cdr _e66036699_)))) + (if (gx#stx-pair? _tl66016706_) + (let ((_e66066709_ + (gx#syntax-e _tl66016706_))) (let ((_hd66056713_ (let () (declare (not safe)) - (##car _e66046709_))) - (_tl66066716_ + (##car _e66066709_))) + (_tl66046716_ (let () (declare (not safe)) - (##cdr _e66046709_)))) - (if (gx#stx-null? _tl66066716_) + (##cdr _e66066709_)))) + (if (gx#stx-null? _tl66046716_) ((lambda (_L6719_ _L6721_ _L6722_ @@ -1114,34 +1114,34 @@ (_g61376338_ (lambda (_g61396159_) (if (gx#stx-pair/null? _g61396159_) - (let ((_g42149_ + (let ((_g42153_ (gx#syntax-split-splice _g61396159_ '0))) (begin - (let ((_g42150_ + (let ((_g42154_ (let () (declare (not safe)) - (if (##values? _g42149_) + (if (##values? _g42153_) (##vector-length - _g42149_) + _g42153_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42150_ 2))) + (##fx= _g42154_ 2))) (error "Context expects 2 values" - _g42150_))) + _g42154_))) (let ((_target61416162_ (let () (declare (not safe)) (##vector-ref - _g42149_ + _g42153_ 0))) (_tl61436165_ (let () (declare (not safe)) (##vector-ref - _g42149_ + _g42153_ 1)))) (if (gx#stx-null? _tl61436165_) (letrec ((_loop61446168_ @@ -1174,41 +1174,41 @@ (_g62126334_ (lambda (_g62146234_) (if (gx#stx-pair/null? _g62146234_) - (let ((_g42151_ + (let ((_g42155_ (gx#syntax-split-splice _g62146234_ '0))) (begin - (let ((_g42152_ + (let ((_g42156_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42151_) - (##vector-length _g42151_) + _g42155_) + (##vector-length _g42155_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42152_ 2))) - (error "Context expects 2 values" _g42152_))) + (##fx= _g42156_ 2))) + (error "Context expects 2 values" _g42156_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target62166237_ (let () (declare (not safe)) (##vector-ref - _g42151_ + _g42155_ 0))) (_tl62186240_ (let () (declare (not safe)) (##vector-ref - _g42151_ + _g42155_ 1)))) (if (gx#stx-null? _tl62186240_) @@ -1287,38 +1287,38 @@ (_g63416555_ (lambda (_g63436387_) (if (gx#stx-pair? _g63436387_) - (let ((_e63486390_ + (let ((_e63506390_ (gx#syntax-e _g63436387_))) (let ((_hd63496394_ (let () (declare (not safe)) - (##car _e63486390_))) - (_tl63506397_ + (##car _e63506390_))) + (_tl63486397_ (let () (declare (not safe)) - (##cdr _e63486390_)))) + (##cdr _e63506390_)))) (if (gx#stx-pair/null? _hd63496394_) - (let ((_g42153_ + (let ((_g42149_ (gx#syntax-split-splice _hd63496394_ '0))) (begin - (let ((_g42154_ + (let ((_g42150_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g42153_) - (##vector-length _g42153_) + (if (##values? _g42149_) + (##vector-length _g42149_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42154_ 2))) - (error "Context expects 2 values" _g42154_))) + (if (not (let () (declare (not safe)) (##fx= _g42150_ 2))) + (error "Context expects 2 values" _g42150_))) (let ((_target63516400_ - (let () (declare (not safe)) (##vector-ref _g42153_ 0))) + (let () (declare (not safe)) (##vector-ref _g42149_ 0))) (_tl63536403_ (let () (declare (not safe)) - (##vector-ref _g42153_ 1)))) + (##vector-ref _g42149_ 1)))) (if (gx#stx-null? _tl63536403_) (letrec ((_loop63546406_ (lambda (_hd63526410_ _pre63586413_) @@ -1339,39 +1339,39 @@ _pre63586413_)))) (let ((_pre63596426_ (reverse _pre63586413_))) - (if (gx#stx-pair? _tl63506397_) - (let ((_e63606430_ - (gx#syntax-e _tl63506397_))) + (if (gx#stx-pair? _tl63486397_) + (let ((_e63626430_ + (gx#syntax-e _tl63486397_))) (let ((_hd63616434_ (let () (declare (not safe)) - (##car _e63606430_))) - (_tl63626437_ + (##car _e63626430_))) + (_tl63606437_ (let () (declare (not safe)) - (##cdr _e63606430_)))) + (##cdr _e63626430_)))) (if (gx#stx-pair/null? _hd63616434_) - (let ((_g42155_ + (let ((_g42151_ (gx#syntax-split-splice _hd63616434_ '0))) (begin - (let ((_g42156_ + (let ((_g42152_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g42155_) - (##vector-length _g42155_) + (if (##values? _g42151_) + (##vector-length _g42151_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42156_ 2))) - (error "Context expects 2 values" _g42156_))) + (if (not (let () (declare (not safe)) (##fx= _g42152_ 2))) + (error "Context expects 2 values" _g42152_))) (let ((_target63636440_ - (let () (declare (not safe)) (##vector-ref _g42155_ 0))) + (let () (declare (not safe)) (##vector-ref _g42151_ 0))) (_tl63656443_ (let () (declare (not safe)) - (##vector-ref _g42155_ 1)))) + (##vector-ref _g42151_ 1)))) (if (gx#stx-null? _tl63656443_) (letrec ((_loop63666446_ (lambda (_hd63646450_ _opt63706453_) @@ -1392,30 +1392,30 @@ _opt63706453_)))) (let ((_opt63716466_ (reverse _opt63706453_))) - (if (gx#stx-pair? _tl63626437_) - (let ((_e63726470_ - (gx#syntax-e _tl63626437_))) + (if (gx#stx-pair? _tl63606437_) + (let ((_e63746470_ + (gx#syntax-e _tl63606437_))) (let ((_hd63736474_ (let () (declare (not safe)) - (##car _e63726470_))) - (_tl63746477_ + (##car _e63746470_))) + (_tl63726477_ (let () (declare (not safe)) - (##cdr _e63726470_)))) - (if (gx#stx-pair? _tl63746477_) - (let ((_e63756480_ + (##cdr _e63746470_)))) + (if (gx#stx-pair? _tl63726477_) + (let ((_e63776480_ (gx#syntax-e - _tl63746477_))) + _tl63726477_))) (let ((_hd63766484_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e63756480_))) - (_tl63776487_ - (let () (declare (not safe)) (##cdr _e63756480_)))) - (if (gx#stx-null? _tl63776487_) + (##car _e63776480_))) + (_tl63756487_ + (let () (declare (not safe)) (##cdr _e63776480_)))) + (if (gx#stx-null? _tl63756487_) ((lambda (_L6490_ _L6492_ _L6493_ _L6494_) (let () (list (list (foldr (lambda (_g65226527_ _g65236530_) @@ -1528,16 +1528,16 @@ (_g59326112_ (lambda (_g59345974_) (if (gx#stx-pair? _g59345974_) - (let ((_e59385977_ + (let ((_e59405977_ (gx#syntax-e _g59345974_))) (let ((_hd59395981_ (let () (declare (not safe)) - (##car _e59385977_))) - (_tl59405984_ + (##car _e59405977_))) + (_tl59385984_ (let () (declare (not safe)) - (##cdr _e59385977_)))) + (##cdr _e59405977_)))) (if (gx#stx-pair/null? _hd59395981_) (let ((_g42157_ @@ -1592,17 +1592,17 @@ (cons _lp-hd59466007_ _pre59486000_)))) (let ((_pre59496013_ (reverse _pre59486000_))) - (if (gx#stx-pair? _tl59405984_) - (let ((_e59506017_ - (gx#syntax-e _tl59405984_))) + (if (gx#stx-pair? _tl59385984_) + (let ((_e59526017_ + (gx#syntax-e _tl59385984_))) (let ((_hd59516021_ (let () (declare (not safe)) - (##car _e59506017_))) - (_tl59526024_ + (##car _e59526017_))) + (_tl59506024_ (let () (declare (not safe)) - (##cdr _e59506017_)))) + (##cdr _e59526017_)))) (if (gx#stx-pair/null? _hd59516021_) (let ((_g42159_ @@ -1657,18 +1657,18 @@ (cons _lp-hd59586047_ _opt59606040_)))) (let ((_opt59616053_ (reverse _opt59606040_))) - (if (gx#stx-pair? _tl59526024_) - (let ((_e59626057_ - (gx#syntax-e _tl59526024_))) + (if (gx#stx-pair? _tl59506024_) + (let ((_e59646057_ + (gx#syntax-e _tl59506024_))) (let ((_hd59636061_ (let () (declare (not safe)) - (##car _e59626057_))) - (_tl59646064_ + (##car _e59646057_))) + (_tl59626064_ (let () (declare (not safe)) - (##cdr _e59626057_)))) - (if (gx#stx-null? _tl59646064_) + (##cdr _e59646057_)))) + (if (gx#stx-null? _tl59626064_) ((lambda (_L6067_ _L6069_ _L6070_) @@ -1727,7 +1727,7 @@ (_g57065810_ (lambda (_g57085734_) (if (gx#stx-pair? _g57085734_) - (let ((_e57135737_ + (let ((_e57155737_ (gx#syntax-e _g57085734_))) (let ((_hd57145741_ @@ -1735,39 +1735,39 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e57135737_))) - (_tl57155744_ - (let () (declare (not safe)) (##cdr _e57135737_)))) - (if (gx#stx-pair? _tl57155744_) - (let ((_e57165747_ (gx#syntax-e _tl57155744_))) + (##car _e57155737_))) + (_tl57135744_ + (let () (declare (not safe)) (##cdr _e57155737_)))) + (if (gx#stx-pair? _tl57135744_) + (let ((_e57185747_ (gx#syntax-e _tl57135744_))) (let ((_hd57175751_ - (let () (declare (not safe)) (##car _e57165747_))) - (_tl57185754_ + (let () (declare (not safe)) (##car _e57185747_))) + (_tl57165754_ (let () (declare (not safe)) - (##cdr _e57165747_)))) - (if (gx#stx-pair? _tl57185754_) - (let ((_e57195757_ (gx#syntax-e _tl57185754_))) + (##cdr _e57185747_)))) + (if (gx#stx-pair? _tl57165754_) + (let ((_e57215757_ (gx#syntax-e _tl57165754_))) (let ((_hd57205761_ (let () (declare (not safe)) - (##car _e57195757_))) - (_tl57215764_ + (##car _e57215757_))) + (_tl57195764_ (let () (declare (not safe)) - (##cdr _e57195757_)))) - (if (gx#stx-pair? _tl57215764_) - (let ((_e57225767_ - (gx#syntax-e _tl57215764_))) + (##cdr _e57215757_)))) + (if (gx#stx-pair? _tl57195764_) + (let ((_e57245767_ + (gx#syntax-e _tl57195764_))) (let ((_hd57235771_ (let () (declare (not safe)) - (##car _e57225767_))) - (_tl57245774_ + (##car _e57245767_))) + (_tl57225774_ (let () (declare (not safe)) - (##cdr _e57225767_)))) - (if (gx#stx-null? _tl57245774_) + (##cdr _e57245767_)))) + (if (gx#stx-null? _tl57225774_) ((lambda (_L5777_ _L5779_ _L5780_ @@ -2134,43 +2134,43 @@ (_g51075186_ (lambda (_g51095131_) (if (gx#stx-pair? _g51095131_) - (let ((_e51135134_ + (let ((_e51155134_ (gx#syntax-e _g51095131_))) (let ((_hd51145138_ (let () (declare (not safe)) - (##car _e51135134_))) - (_tl51155141_ + (##car _e51155134_))) + (_tl51135141_ (let () (declare (not safe)) - (##cdr _e51135134_)))) - (if (gx#stx-pair? _tl51155141_) - (let ((_e51165144_ - (gx#syntax-e _tl51155141_))) + (##cdr _e51155134_)))) + (if (gx#stx-pair? _tl51135141_) + (let ((_e51185144_ + (gx#syntax-e _tl51135141_))) (let ((_hd51175148_ (let () (declare (not safe)) - (##car _e51165144_))) - (_tl51185151_ + (##car _e51185144_))) + (_tl51165151_ (let () (declare (not safe)) - (##cdr _e51165144_)))) - (if (gx#stx-pair? _tl51185151_) - (let ((_e51195154_ + (##cdr _e51185144_)))) + (if (gx#stx-pair? _tl51165151_) + (let ((_e51215154_ (gx#syntax-e - _tl51185151_))) + _tl51165151_))) (let ((_hd51205158_ (let () (declare (not safe)) - (##car _e51195154_))) - (_tl51215161_ + (##car _e51215154_))) + (_tl51195161_ (let () (declare (not safe)) - (##cdr _e51195154_)))) + (##cdr _e51215154_)))) (if (gx#stx-null? - _tl51215161_) + _tl51195161_) ((lambda (_L5164_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L5166_ @@ -2500,77 +2500,77 @@ (_g46704799_ (_check-duplicate-bindings4584_ _L4655_)))))) (let* ((___match3768037681_ - (lambda (_e46154633_ + (lambda (_e46174633_ _hd46164637_ - _tl46174640_ - _e46184643_ + _tl46154640_ + _e46204643_ _hd46194647_ - _tl46204650_) - (let ((_L4653_ _tl46204650_) (_L4655_ _hd46194647_)) + _tl46184650_) + (let ((_L4653_ _tl46184650_) (_L4655_ _hd46194647_)) (if (_kw-lambda?4581_ _L4655_) (___kont3764237643_ _L4653_ _L4655_) - (_g45954626_))))) + (let () (declare (not safe)) (_g45954626_)))))) (___match3766837669_ - (lambda (_e46074810_ + (lambda (_e46094810_ _hd46084814_ - _tl46094817_ - _e46104820_ + _tl46074817_ + _e46124820_ _hd46114824_ - _tl46124827_) - (let ((_L4830_ _tl46124827_) (_L4832_ _hd46114824_)) + _tl46104827_) + (let ((_L4830_ _tl46104827_) (_L4832_ _hd46114824_)) (if (_opt-lambda?4579_ _L4832_) (___kont3764037641_ _L4830_ _L4832_) (___match3768037681_ - _e46074810_ + _e46094810_ _hd46084814_ - _tl46094817_ - _e46104820_ + _tl46074817_ + _e46124820_ _hd46114824_ - _tl46124827_))))) + _tl46104827_))))) (___match3765637657_ - (lambda (_e45995038_ + (lambda (_e46015038_ _hd46005042_ - _tl46015045_ - _e46025048_ + _tl45995045_ + _e46045048_ _hd46035052_ - _tl46045055_) - (let ((_L5058_ _tl46045055_) (_L5060_ _hd46035052_)) + _tl46025055_) + (let ((_L5058_ _tl46025055_) (_L5060_ _hd46035052_)) (if (_simple-lambda?4577_ _L5060_) (___kont3763837639_ _L5058_ _L5060_) (___match3766837669_ - _e45995038_ + _e46015038_ _hd46005042_ - _tl46015045_ - _e46025048_ + _tl45995045_ + _e46045048_ _hd46035052_ - _tl46045055_)))))) + _tl46025055_)))))) (if (gx#stx-pair? ___stx3763537636_) - (let ((_e45995038_ (gx#syntax-e ___stx3763537636_))) - (let ((_tl46015045_ - (let () (declare (not safe)) (##cdr _e45995038_))) + (let ((_e46015038_ (gx#syntax-e ___stx3763537636_))) + (let ((_tl45995045_ + (let () (declare (not safe)) (##cdr _e46015038_))) (_hd46005042_ (let () (declare (not safe)) - (##car _e45995038_)))) - (if (gx#stx-pair? _tl46015045_) - (let ((_e46025048_ (gx#syntax-e _tl46015045_))) - (let ((_tl46045055_ + (##car _e46015038_)))) + (if (gx#stx-pair? _tl45995045_) + (let ((_e46045048_ (gx#syntax-e _tl45995045_))) + (let ((_tl46025055_ (let () (declare (not safe)) - (##cdr _e46025048_))) + (##cdr _e46045048_))) (_hd46035052_ (let () (declare (not safe)) - (##car _e46025048_)))) + (##car _e46045048_)))) (___match3765637657_ - _e45995038_ + _e46015038_ _hd46005042_ - _tl46015045_ - _e46025048_ + _tl45995045_ + _e46045048_ _hd46035052_ - _tl46045055_))) - (_g45954626_)))) - (_g45954626_)))))))) + _tl46025055_))) + (let () (declare (not safe)) (_g45954626_))))) + (let () (declare (not safe)) (_g45954626_))))))))) (define |gerbil/core$$[:0:]#def| (lambda (_$stx7990_) (let* ((___stx3768337684_ _$stx7990_) @@ -2613,59 +2613,61 @@ (cons (gx#datum->syntax '#f 'define-values) (cons (cons _L8099_ '()) (cons _L8097_ '())))))) (let* ((___match3777437775_ - (lambda (_e80468067_ + (lambda (_e80488067_ _hd80478071_ - _tl80488074_ - _e80498077_ + _tl80468074_ + _e80518077_ _hd80508081_ - _tl80518084_ - _e80528087_ + _tl80498084_ + _e80548087_ _hd80538091_ - _tl80548094_) + _tl80528094_) (let ((_L8097_ _hd80538091_) (_L8099_ _hd80508081_)) (if (gx#identifier? _L8099_) (___kont3769437695_ _L8097_ _L8099_) - (_g79968060_))))) + (let () (declare (not safe)) (_g79968060_)))))) (___match3776637767_ - (lambda (_e80468067_ + (lambda (_e80488067_ _hd80478071_ - _tl80488074_ - _e80498077_ + _tl80468074_ + _e80518077_ _hd80508081_ - _tl80518084_) - (if (gx#stx-pair? _tl80518084_) - (let ((_e80528087_ (gx#syntax-e _tl80518084_))) - (let ((_tl80548094_ + _tl80498084_) + (if (gx#stx-pair? _tl80498084_) + (let ((_e80548087_ (gx#syntax-e _tl80498084_))) + (let ((_tl80528094_ (let () (declare (not safe)) - (##cdr _e80528087_))) + (##cdr _e80548087_))) (_hd80538091_ (let () (declare (not safe)) - (##car _e80528087_)))) - (if (gx#stx-null? _tl80548094_) + (##car _e80548087_)))) + (if (gx#stx-null? _tl80528094_) (___match3777437775_ - _e80468067_ + _e80488067_ _hd80478071_ - _tl80488074_ - _e80498077_ + _tl80468074_ + _e80518077_ _hd80508081_ - _tl80518084_ - _e80528087_ + _tl80498084_ + _e80548087_ _hd80538091_ - _tl80548094_) - (_g79968060_)))) - (_g79968060_)))) + _tl80528094_) + (let () + (declare (not safe)) + (_g79968060_))))) + (let () (declare (not safe)) (_g79968060_))))) (___match3775437755_ - (lambda (_e80268122_ + (lambda (_e80288122_ _hd80278126_ - _tl80288129_ - _e80298132_ + _tl80268129_ + _e80318132_ _hd80308136_ - _tl80318139_ - _e80328142_ + _tl80298139_ + _e80348142_ _hd80338146_ - _tl80348149_ + _tl80328149_ ___splice3769237693_ _target80358152_ _tl80378155_) @@ -2689,7 +2691,7 @@ (let ((_body80438178_ (reverse _body80428165_))) (let ((_L8182_ _body80438178_) - (_L8184_ _tl80348149_) + (_L8184_ _tl80328149_) (_L8185_ _hd80338146_)) (if (gx#identifier? _L8185_) (___kont3769037691_ @@ -2697,26 +2699,26 @@ _L8184_ _L8185_) (___match3776637767_ - _e80268122_ + _e80288122_ _hd80278126_ - _tl80288129_ - _e80298132_ + _tl80268129_ + _e80318132_ _hd80308136_ - _tl80318139_)))))))) + _tl80298139_)))))))) (_loop80388158_ _target80358152_ '())))) (___match3772837729_ - (lambda (_e80028220_ + (lambda (_e80048220_ _hd80038224_ - _tl80048227_ - _e80058230_ + _tl80028227_ + _e80078230_ _hd80068234_ - _tl80078237_ - _e80088240_ + _tl80058237_ + _e80108240_ _hd80098244_ - _tl80108247_ - _e80118250_ + _tl80088247_ + _e80138250_ _hd80128254_ - _tl80138257_ + _tl80118257_ ___splice3768837689_ _target80148260_ _tl80168263_) @@ -2741,53 +2743,53 @@ (reverse _body80218273_))) (___kont3768637687_ _body80228286_ - _tl80108247_ - _tl80138257_ + _tl80088247_ + _tl80118257_ _hd80128254_)))))) (_loop80178266_ _target80148260_ '()))))) (if (gx#stx-pair? ___stx3768337684_) - (let ((_e80028220_ (gx#syntax-e ___stx3768337684_))) - (let ((_tl80048227_ - (let () (declare (not safe)) (##cdr _e80028220_))) + (let ((_e80048220_ (gx#syntax-e ___stx3768337684_))) + (let ((_tl80028227_ + (let () (declare (not safe)) (##cdr _e80048220_))) (_hd80038224_ - (let () (declare (not safe)) (##car _e80028220_)))) - (if (gx#stx-pair? _tl80048227_) - (let ((_e80058230_ (gx#syntax-e _tl80048227_))) - (let ((_tl80078237_ + (let () (declare (not safe)) (##car _e80048220_)))) + (if (gx#stx-pair? _tl80028227_) + (let ((_e80078230_ (gx#syntax-e _tl80028227_))) + (let ((_tl80058237_ (let () (declare (not safe)) - (##cdr _e80058230_))) + (##cdr _e80078230_))) (_hd80068234_ (let () (declare (not safe)) - (##car _e80058230_)))) + (##car _e80078230_)))) (if (gx#stx-pair? _hd80068234_) - (let ((_e80088240_ + (let ((_e80108240_ (gx#syntax-e _hd80068234_))) - (let ((_tl80108247_ + (let ((_tl80088247_ (let () (declare (not safe)) - (##cdr _e80088240_))) + (##cdr _e80108240_))) (_hd80098244_ (let () (declare (not safe)) - (##car _e80088240_)))) + (##car _e80108240_)))) (if (gx#stx-pair? _hd80098244_) - (let ((_e80118250_ + (let ((_e80138250_ (gx#syntax-e _hd80098244_))) - (let ((_tl80138257_ + (let ((_tl80118257_ (let () (declare (not safe)) - (##cdr _e80118250_))) + (##cdr _e80138250_))) (_hd80128254_ (let () (declare (not safe)) - (##car _e80118250_)))) + (##car _e80138250_)))) (if (gx#stx-pair/null? - _tl80078237_) + _tl80058237_) (let ((___splice3768837689_ (gx#syntax-split-splice - _tl80078237_ + _tl80058237_ '0))) (let ((_tl80168263_ (let () @@ -2806,78 +2808,78 @@ (if (gx#stx-null? _tl80168263_) (___match3772837729_ - _e80028220_ + _e80048220_ _hd80038224_ - _tl80048227_ - _e80058230_ + _tl80028227_ + _e80078230_ _hd80068234_ - _tl80078237_ - _e80088240_ + _tl80058237_ + _e80108240_ _hd80098244_ - _tl80108247_ - _e80118250_ + _tl80088247_ + _e80138250_ _hd80128254_ - _tl80138257_ + _tl80118257_ ___splice3768837689_ _target80148260_ _tl80168263_) (if (gx#stx-pair? - _tl80078237_) - (let ((_e80528087_ + _tl80058237_) + (let ((_e80548087_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl80078237_))) - (let ((_tl80548094_ + (gx#syntax-e _tl80058237_))) + (let ((_tl80528094_ (let () (declare (not safe)) - (##cdr _e80528087_))) + (##cdr _e80548087_))) (_hd80538091_ (let () (declare (not safe)) - (##car _e80528087_)))) - (if (gx#stx-null? _tl80548094_) + (##car _e80548087_)))) + (if (gx#stx-null? _tl80528094_) (___match3777437775_ - _e80028220_ + _e80048220_ _hd80038224_ - _tl80048227_ - _e80058230_ + _tl80028227_ + _e80078230_ _hd80068234_ - _tl80078237_ - _e80528087_ + _tl80058237_ + _e80548087_ _hd80538091_ - _tl80548094_) - (_g79968060_)))) - (_g79968060_))))) + _tl80528094_) + (let () (declare (not safe)) (_g79968060_))))) + (let () (declare (not safe)) (_g79968060_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _tl80078237_) - (let ((_e80528087_ + _tl80058237_) + (let ((_e80548087_ (gx#syntax-e - _tl80078237_))) - (let ((_tl80548094_ + _tl80058237_))) + (let ((_tl80528094_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e80528087_))) + (##cdr _e80548087_))) (_hd80538091_ - (let () (declare (not safe)) (##car _e80528087_)))) - (if (gx#stx-null? _tl80548094_) + (let () (declare (not safe)) (##car _e80548087_)))) + (if (gx#stx-null? _tl80528094_) (___match3777437775_ - _e80028220_ + _e80048220_ _hd80038224_ - _tl80048227_ - _e80058230_ + _tl80028227_ + _e80078230_ _hd80068234_ - _tl80078237_ - _e80528087_ + _tl80058237_ + _e80548087_ _hd80538091_ - _tl80548094_) - (_g79968060_)))) - (_g79968060_))))) + _tl80528094_) + (let () (declare (not safe)) (_g79968060_))))) + (let () (declare (not safe)) (_g79968060_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? _tl80078237_) + (if (gx#stx-pair/null? _tl80058237_) (let ((___splice3769237693_ (gx#syntax-split-splice - _tl80078237_ + _tl80058237_ '0))) (let ((_tl80378155_ (let () @@ -2894,95 +2896,104 @@ (if (gx#stx-null? _tl80378155_) (___match3775437755_ - _e80028220_ + _e80048220_ _hd80038224_ - _tl80048227_ - _e80058230_ + _tl80028227_ + _e80078230_ _hd80068234_ - _tl80078237_ - _e80088240_ + _tl80058237_ + _e80108240_ _hd80098244_ - _tl80108247_ + _tl80088247_ ___splice3769237693_ _target80358152_ _tl80378155_) (if (gx#stx-pair? - _tl80078237_) - (let ((_e80528087_ + _tl80058237_) + (let ((_e80548087_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl80078237_))) - (let ((_tl80548094_ - (let () (declare (not safe)) (##cdr _e80528087_))) + (gx#syntax-e _tl80058237_))) + (let ((_tl80528094_ + (let () (declare (not safe)) (##cdr _e80548087_))) (_hd80538091_ - (let () (declare (not safe)) (##car _e80528087_)))) - (if (gx#stx-null? _tl80548094_) + (let () (declare (not safe)) (##car _e80548087_)))) + (if (gx#stx-null? _tl80528094_) (___match3777437775_ - _e80028220_ + _e80048220_ _hd80038224_ - _tl80048227_ - _e80058230_ + _tl80028227_ + _e80078230_ _hd80068234_ - _tl80078237_ - _e80528087_ + _tl80058237_ + _e80548087_ _hd80538091_ - _tl80548094_) - (_g79968060_)))) - (_g79968060_))))) + _tl80528094_) + (let () (declare (not safe)) (_g79968060_))))) + (let () (declare (not safe)) (_g79968060_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl80078237_) - (let ((_e80528087_ + (if (gx#stx-pair? _tl80058237_) + (let ((_e80548087_ (gx#syntax-e - _tl80078237_))) - (let ((_tl80548094_ + _tl80058237_))) + (let ((_tl80528094_ (let () (declare (not safe)) - (##cdr _e80528087_))) + (##cdr _e80548087_))) (_hd80538091_ (let () (declare (not safe)) - (##car _e80528087_)))) + (##car _e80548087_)))) (if (gx#stx-null? - _tl80548094_) + _tl80528094_) (___match3777437775_ - _e80028220_ + _e80048220_ _hd80038224_ - _tl80048227_ - _e80058230_ + _tl80028227_ + _e80078230_ _hd80068234_ - _tl80078237_ - _e80528087_ + _tl80058237_ + _e80548087_ _hd80538091_ - _tl80548094_) - (_g79968060_)))) - (_g79968060_)))))) - (if (gx#stx-pair? _tl80078237_) - (let ((_e80528087_ - (gx#syntax-e _tl80078237_))) - (let ((_tl80548094_ + _tl80528094_) + (let () + (declare + (not safe)) + (_g79968060_))))) + (let () + (declare (not safe)) + (_g79968060_))))))) + (if (gx#stx-pair? _tl80058237_) + (let ((_e80548087_ + (gx#syntax-e _tl80058237_))) + (let ((_tl80528094_ (let () (declare (not safe)) - (##cdr _e80528087_))) + (##cdr _e80548087_))) (_hd80538091_ (let () (declare (not safe)) - (##car _e80528087_)))) - (if (gx#stx-null? _tl80548094_) + (##car _e80548087_)))) + (if (gx#stx-null? _tl80528094_) (___match3777437775_ - _e80028220_ + _e80048220_ _hd80038224_ - _tl80048227_ - _e80058230_ + _tl80028227_ + _e80078230_ _hd80068234_ - _tl80078237_ - _e80528087_ + _tl80058237_ + _e80548087_ _hd80538091_ - _tl80548094_) - (_g79968060_)))) - (_g79968060_))))) - (_g79968060_)))) - (_g79968060_))))))) + _tl80528094_) + (let () + (declare (not safe)) + (_g79968060_))))) + (let () + (declare (not safe)) + (_g79968060_)))))) + (let () (declare (not safe)) (_g79968060_))))) + (let () (declare (not safe)) (_g79968060_)))))))) (define |gerbil/core$$[:0:]#def*| (lambda (_$stx8331_) (let* ((_g83358359_ @@ -2991,29 +3002,29 @@ (_g83348444_ (lambda (_g83368363_) (if (gx#stx-pair? _g83368363_) - (let ((_e83398366_ (gx#syntax-e _g83368363_))) + (let ((_e83418366_ (gx#syntax-e _g83368363_))) (let ((_hd83408370_ (let () (declare (not safe)) - (##car _e83398366_))) - (_tl83418373_ + (##car _e83418366_))) + (_tl83398373_ (let () (declare (not safe)) - (##cdr _e83398366_)))) - (if (gx#stx-pair? _tl83418373_) - (let ((_e83428376_ (gx#syntax-e _tl83418373_))) + (##cdr _e83418366_)))) + (if (gx#stx-pair? _tl83398373_) + (let ((_e83448376_ (gx#syntax-e _tl83398373_))) (let ((_hd83438380_ (let () (declare (not safe)) - (##car _e83428376_))) - (_tl83448383_ + (##car _e83448376_))) + (_tl83428383_ (let () (declare (not safe)) - (##cdr _e83428376_)))) - (if (gx#stx-pair/null? _tl83448383_) + (##cdr _e83448376_)))) + (if (gx#stx-pair/null? _tl83428383_) (let ((_g42171_ (gx#syntax-split-splice - _tl83448383_ + _tl83428383_ '0))) (begin (let ((_g42172_ @@ -3090,37 +3101,37 @@ (_g84528526_ (lambda (_g84548475_) (if (gx#stx-pair? _g84548475_) - (let ((_e84578478_ (gx#syntax-e _g84548475_))) + (let ((_e84598478_ (gx#syntax-e _g84548475_))) (let ((_hd84588482_ (let () (declare (not safe)) - (##car _e84578478_))) - (_tl84598485_ + (##car _e84598478_))) + (_tl84578485_ (let () (declare (not safe)) - (##cdr _e84578478_)))) - (if (gx#stx-pair? _tl84598485_) - (let ((_e84608488_ (gx#syntax-e _tl84598485_))) + (##cdr _e84598478_)))) + (if (gx#stx-pair? _tl84578485_) + (let ((_e84628488_ (gx#syntax-e _tl84578485_))) (let ((_hd84618492_ (let () (declare (not safe)) - (##car _e84608488_))) - (_tl84628495_ + (##car _e84628488_))) + (_tl84608495_ (let () (declare (not safe)) - (##cdr _e84608488_)))) - (if (gx#stx-pair? _tl84628495_) - (let ((_e84638498_ - (gx#syntax-e _tl84628495_))) + (##cdr _e84628488_)))) + (if (gx#stx-pair? _tl84608495_) + (let ((_e84658498_ + (gx#syntax-e _tl84608495_))) (let ((_hd84648502_ (let () (declare (not safe)) - (##car _e84638498_))) - (_tl84658505_ + (##car _e84658498_))) + (_tl84638505_ (let () (declare (not safe)) - (##cdr _e84638498_)))) - (if (gx#stx-null? _tl84658505_) + (##cdr _e84658498_)))) + (if (gx#stx-null? _tl84638505_) ((lambda (_L8508_ _L8510_) (if (gx#identifier-list? _L8510_) @@ -3148,29 +3159,29 @@ (_g85338643_ (lambda (_g85358562_) (if (gx#stx-pair? _g85358562_) - (let ((_e85388565_ (gx#syntax-e _g85358562_))) + (let ((_e85408565_ (gx#syntax-e _g85358562_))) (let ((_hd85398569_ (let () (declare (not safe)) - (##car _e85388565_))) - (_tl85408572_ + (##car _e85408565_))) + (_tl85388572_ (let () (declare (not safe)) - (##cdr _e85388565_)))) - (if (gx#stx-pair? _tl85408572_) - (let ((_e85418575_ (gx#syntax-e _tl85408572_))) + (##cdr _e85408565_)))) + (if (gx#stx-pair? _tl85388572_) + (let ((_e85438575_ (gx#syntax-e _tl85388572_))) (let ((_hd85428579_ (let () (declare (not safe)) - (##car _e85418575_))) - (_tl85438582_ + (##car _e85438575_))) + (_tl85418582_ (let () (declare (not safe)) - (##cdr _e85418575_)))) - (if (gx#stx-pair/null? _tl85438582_) + (##cdr _e85438575_)))) + (if (gx#stx-pair/null? _tl85418582_) (let ((_g42173_ (gx#syntax-split-splice - _tl85438582_ + _tl85418582_ '0))) (begin (let ((_g42174_ @@ -3392,9 +3403,9 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _default11125_))))) (let* ((___match3787037871_ - (lambda (_e1123911272_ + (lambda (_e1124111272_ _hd1124011276_ - _tl1124111279_ + _tl1123911279_ ___splice3779237793_ _target1124211282_ _tl1124411285_) @@ -3416,10 +3427,10 @@ _lp-tl1124811305_ (cons _lp-hd1124711302_ _datum1124911295_)))) (let ((_datum1125011308_ (reverse _datum1124911295_))) - (if (gx#stx-pair/null? _tl1124111279_) + (if (gx#stx-pair/null? _tl1123911279_) (let ((___splice3779437795_ (gx#syntax-split-splice - _tl1124111279_ + _tl1123911279_ '0))) (let ((_tl1125311315_ (let () @@ -3462,16 +3473,20 @@ (_loop1125411318_ _target1125111312_ '())) - (_g1119211265_)))) - (_g1119211265_))))))) + (let () + (declare (not safe)) + (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop1124511288_ _target1124211282_ '())))) (___match3785637857_ - (lambda (_e1121911395_ + (lambda (_e1122111395_ _hd1122011399_ - _tl1122111402_ + _tl1121911402_ ___splice3778837789_ _target1122211405_ _tl1122411408_) @@ -3493,70 +3508,70 @@ _lp-tl1122811428_ (cons _lp-hd1122711425_ _datum1122911418_)))) (let ((_datum1123011431_ (reverse _datum1122911418_))) - (if (gx#stx-pair? _tl1122111402_) - (let ((_e1123111435_ - (gx#syntax-e _tl1122111402_))) - (let ((_tl1123311442_ + (if (gx#stx-pair? _tl1121911402_) + (let ((_e1123311435_ + (gx#syntax-e _tl1121911402_))) + (let ((_tl1123111442_ (let () (declare (not safe)) - (##cdr _e1123111435_))) + (##cdr _e1123311435_))) (_hd1123211439_ (let () (declare (not safe)) - (##car _e1123111435_)))) + (##car _e1123311435_)))) (if (gx#identifier? _hd1123211439_) (if (gx#free-identifier=? |gerbil/core$$[1]#_g42175_| _hd1123211439_) - (if (gx#stx-pair? _tl1123311442_) - (let ((_e1123411445_ + (if (gx#stx-pair? _tl1123111442_) + (let ((_e1123611445_ (gx#syntax-e - _tl1123311442_))) - (let ((_tl1123611452_ + _tl1123111442_))) + (let ((_tl1123411452_ (let () (declare (not safe)) - (##cdr _e1123411445_))) + (##cdr _e1123611445_))) (_hd1123511449_ (let () (declare (not safe)) - (##car _e1123411445_)))) + (##car _e1123611445_)))) (if (gx#stx-null? - _tl1123611452_) + _tl1123411452_) (___kont3778637787_ _hd1123511449_ _datum1123011431_) (___match3787037871_ - _e1121911395_ + _e1122111395_ _hd1122011399_ - _tl1122111402_ + _tl1121911402_ ___splice3778837789_ _target1122211405_ _tl1122411408_)))) (___match3787037871_ - _e1121911395_ + _e1122111395_ _hd1122011399_ - _tl1122111402_ + _tl1121911402_ ___splice3778837789_ _target1122211405_ _tl1122411408_)) (___match3787037871_ - _e1121911395_ + _e1122111395_ _hd1122011399_ - _tl1122111402_ + _tl1121911402_ ___splice3778837789_ _target1122211405_ _tl1122411408_)) (___match3787037871_ - _e1121911395_ + _e1122111395_ _hd1122011399_ - _tl1122111402_ + _tl1121911402_ ___splice3778837789_ _target1122211405_ _tl1122411408_)))) (___match3787037871_ - _e1121911395_ + _e1122111395_ _hd1122011399_ - _tl1122111402_ + _tl1121911402_ ___splice3778837789_ _target1122211405_ _tl1122411408_))))))) @@ -3565,9 +3580,9 @@ _target1122211405_ '())))) (___match3784237843_ - (lambda (_e1120511530_ + (lambda (_e1120711530_ _hd1120611534_ - _tl1120711537_ + _tl1120511537_ ___splice3778437785_ _target1120811540_ _tl1121011543_) @@ -3595,57 +3610,57 @@ _target1120811540_ '()))))) (if (gx#stx-pair? ___stx3777737778_) - (let ((_e1119511600_ + (let ((_e1119711600_ (gx#syntax-e ___stx3777737778_))) - (let ((_tl1119711607_ + (let ((_tl1119511607_ (let () (declare (not safe)) - (##cdr _e1119511600_))) + (##cdr _e1119711600_))) (_hd1119611604_ (let () (declare (not safe)) - (##car _e1119511600_)))) + (##car _e1119711600_)))) (if (gx#identifier? _hd1119611604_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42176_| + |gerbil/core$$[1]#_g42177_| _hd1119611604_) (if (gx#stx-pair? - _tl1119711607_) - (let ((_e1119811610_ + _tl1119511607_) + (let ((_e1120011610_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1119711607_))) - (let ((_tl1120011617_ + (gx#syntax-e _tl1119511607_))) + (let ((_tl1119811617_ (let () (declare (not safe)) - (##cdr _e1119811610_))) + (##cdr _e1120011610_))) (_hd1119911614_ (let () (declare (not safe)) - (##car _e1119811610_)))) + (##car _e1120011610_)))) (if (gx#identifier? _hd1119911614_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42177_| + |gerbil/core$$[1]#_g42176_| _hd1119911614_) - (if (gx#stx-pair? _tl1120011617_) - (let ((_e1120111620_ - (gx#syntax-e _tl1120011617_))) - (let ((_tl1120311627_ + (if (gx#stx-pair? _tl1119811617_) + (let ((_e1120311620_ + (gx#syntax-e _tl1119811617_))) + (let ((_tl1120111627_ (let () (declare (not safe)) - (##cdr _e1120111620_))) + (##cdr _e1120311620_))) (_hd1120211624_ (let () (declare (not safe)) - (##car _e1120111620_)))) - (if (gx#stx-null? _tl1120311627_) + (##car _e1120311620_)))) + (if (gx#stx-null? _tl1120111627_) (___kont3778037781_ _hd1120211624_) (if (gx#stx-pair/null? - _tl1119711607_) + _tl1119511607_) (let ((___splice3778437785_ (gx#syntax-split-splice - _tl1119711607_ + _tl1119511607_ '0))) (let ((_tl1121011543_ (let () @@ -3662,9 +3677,9 @@ (if (gx#stx-null? _tl1121011543_) (___match3784237843_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778437785_ _target1120811540_ _tl1121011543_) @@ -3683,14 +3698,14 @@ (##vector-ref ___splice3778837789_ '0)))) (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_))))) + (let () (declare (not safe)) (_g1119211265_))))) + (let () (declare (not safe)) (_g1119211265_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1119611604_) @@ -3715,18 +3730,23 @@ (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_)))))) - (if (gx#stx-pair/null? _tl1119711607_) + (let () + (declare + (not safe)) + (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_))))))) + (if (gx#stx-pair/null? _tl1119511607_) (let ((___splice3778437785_ (gx#syntax-split-splice - _tl1119711607_ + _tl1119511607_ '0))) (let ((_tl1121011543_ (let () @@ -3742,9 +3762,9 @@ '0)))) (if (gx#stx-null? _tl1121011543_) (___match3784237843_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778437785_ _target1120811540_ _tl1121011543_) @@ -3771,14 +3791,19 @@ (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_))))) + (let () + (declare + (not safe)) + (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_)))))) (if (gx#stx-pair/null? _hd1119611604_) (let ((___splice3778837789_ (gx#syntax-split-splice @@ -3799,18 +3824,22 @@ (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_)))) - (if (gx#stx-pair/null? _tl1119711607_) + (let () + (declare (not safe)) + (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_))))) + (if (gx#stx-pair/null? _tl1119511607_) (let ((___splice3778437785_ (gx#syntax-split-splice - _tl1119711607_ + _tl1119511607_ '0))) (let ((_tl1121011543_ (let () @@ -3826,9 +3855,9 @@ '0)))) (if (gx#stx-null? _tl1121011543_) (___match3784237843_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778437785_ _target1120811540_ _tl1121011543_) @@ -3853,14 +3882,18 @@ (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_)))))) (if (gx#stx-pair/null? _hd1119611604_) (let ((___splice3778837789_ (gx#syntax-split-splice @@ -3880,18 +3913,22 @@ '0)))) (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_)))) - (if (gx#stx-pair/null? _tl1119711607_) + (let () + (declare (not safe)) + (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_))))) + (if (gx#stx-pair/null? _tl1119511607_) (let ((___splice3778437785_ (gx#syntax-split-splice - _tl1119711607_ + _tl1119511607_ '0))) (let ((_tl1121011543_ (let () @@ -3907,9 +3944,9 @@ '0)))) (if (gx#stx-null? _tl1121011543_) (___match3784237843_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778437785_ _target1120811540_ _tl1121011543_) @@ -3933,14 +3970,18 @@ (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_)))))) (if (gx#stx-pair/null? _hd1119611604_) (let ((___splice3778837789_ (gx#syntax-split-splice @@ -3960,17 +4001,21 @@ '0)))) (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_)))))) - (if (gx#stx-pair/null? _tl1119711607_) + (let () + (declare (not safe)) + (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_))))))) + (if (gx#stx-pair/null? _tl1119511607_) (let ((___splice3778437785_ - (gx#syntax-split-splice _tl1119711607_ '0))) + (gx#syntax-split-splice _tl1119511607_ '0))) (let ((_tl1121011543_ (let () (declare (not safe)) @@ -3981,9 +4026,9 @@ (##vector-ref ___splice3778437785_ '0)))) (if (gx#stx-null? _tl1121011543_) (___match3784237843_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778437785_ _target1120811540_ _tl1121011543_) @@ -4006,14 +4051,18 @@ '0)))) (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_))))) + (let () + (declare (not safe)) + (_g1119211265_)))))) (if (gx#stx-pair/null? _hd1119611604_) (let ((___splice3778837789_ (gx#syntax-split-splice _hd1119611604_ '0))) @@ -4027,14 +4076,16 @@ (##vector-ref ___splice3778837789_ '0)))) (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_)))) + (let () + (declare (not safe)) + (_g1119211265_))))) + (let () (declare (not safe)) (_g1119211265_))))) (if (gx#stx-pair/null? _hd1119611604_) (let ((___splice3778837789_ (gx#syntax-split-splice _hd1119611604_ '0))) @@ -4048,14 +4099,14 @@ (##vector-ref ___splice3778837789_ '0)))) (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_))) + (let () (declare (not safe)) (_g1119211265_))))) + (let () (declare (not safe)) (_g1119211265_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1119611604_) @@ -4074,16 +4125,18 @@ (##vector-ref ___splice3778837789_ '0)))) (if (gx#stx-null? _tl1122411408_) (___match3785637857_ - _e1119511600_ + _e1119711600_ _hd1119611604_ - _tl1119711607_ + _tl1119511607_ ___splice3778837789_ _target1122211405_ _tl1122411408_) - (_g1119211265_)))) - (_g1119211265_))))) + (let () (declare (not safe)) (_g1119211265_))))) + (let () (declare (not safe)) (_g1119211265_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1119211265_))))))) + (let () + (declare (not safe)) + (_g1119211265_)))))))) (___kont3787837879_ (lambda () (_check-duplicate-datums8653_ _datums11123_) @@ -4097,22 +4150,26 @@ (lambda () (if (gx#stx-null? ___stx3787337874_) (___kont3787837879_) - (_g1112811140_))))) + (let () + (declare (not safe)) + (_g1112811140_)))))) (if (gx#stx-pair? ___stx3787337874_) - (let ((_e1113211162_ + (let ((_e1113411162_ (gx#syntax-e ___stx3787337874_))) - (let ((_tl1113411169_ + (let ((_tl1113211169_ (let () (declare (not safe)) - (##cdr _e1113211162_))) + (##cdr _e1113411162_))) (_hd1113311166_ (let () (declare (not safe)) - (##car _e1113211162_)))) + (##car _e1113411162_)))) (___kont3787637877_ - _tl1113411169_ + _tl1113211169_ _hd1113311166_))) - (_g1112711155_)))))))) + (let () + (declare (not safe)) + (_g1112711155_))))))))) (_check-duplicate-datums8653_ (lambda (_datums11102_) (let ((_ht11105_ (make-hash-table))) @@ -4199,17 +4256,17 @@ (lambda (_g1096710982_) (if (gx#stx-pair? _g1096710982_) - (let ((_e1097010985_ + (let ((_e1097210985_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-e _g1096710982_))) (let ((_hd1097110989_ (let () (declare (not safe)) - (##car _e1097010985_))) - (_tl1097210992_ + (##car _e1097210985_))) + (_tl1097010992_ (let () (declare (not safe)) - (##cdr _e1097010985_)))) + (##cdr _e1097210985_)))) ((lambda (_L10995_ _L10997_) (let* ((_g1100911017_ (lambda (_g1101011013_) @@ -4239,7 +4296,7 @@ _g1101011021_)))) (_g1100811044_ (_recur10857_ _L10944_ _L10995_)))) - _tl1097210992_ + _tl1097010992_ _hd1097110989_))) (_g1096610978_ _g1096710982_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -4248,9 +4305,9 @@ (___kont3789837899_ (lambda () _default10828_))) (let ((___match3791437915_ - (lambda (_e1086910904_ + (lambda (_e1087110904_ _hd1087010908_ - _tl1087110911_ + _tl1086910911_ ___splice3789637897_ _target1087210914_ _tl1087410917_) @@ -4274,24 +4331,24 @@ (let ((_datum1088010940_ (reverse _datum1087910927_))) (___kont3789437895_ - _tl1087110911_ + _tl1086910911_ _datum1088010940_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop1087510920_ _target1087210914_ '()))))) (if (gx#stx-pair? ___stx3789137892_) - (let ((_e1086910904_ + (let ((_e1087110904_ (gx#syntax-e ___stx3789137892_))) - (let ((_tl1087110911_ + (let ((_tl1086910911_ (let () (declare (not safe)) - (##cdr _e1086910904_))) + (##cdr _e1087110904_))) (_hd1087010908_ (let () (declare (not safe)) - (##car _e1086910904_)))) + (##car _e1087110904_)))) (if (gx#stx-pair/null? _hd1087010908_) (let ((___splice3789637897_ @@ -4309,9 +4366,9 @@ (##vector-ref ___splice3789637897_ '0)))) (if (gx#stx-null? _tl1087410917_) (___match3791437915_ - _e1086910904_ + _e1087110904_ _hd1087010908_ - _tl1087110911_ + _tl1086910911_ ___splice3789637897_ _target1087210914_ _tl1087410917_) @@ -4350,9 +4407,9 @@ _L10789_))))) (___kont3792437925_ (lambda () _r10705_))) (let ((___match3794037941_ - (lambda (_e1071210747_ + (lambda (_e1071410747_ _hd1071310751_ - _tl1071410754_ + _tl1071210754_ ___splice3792237923_ _target1071510757_ _tl1071710760_) @@ -4381,22 +4438,22 @@ (let ((_datum1072310783_ (reverse _datum1072210770_))) (___kont3792037921_ - _tl1071410754_ + _tl1071210754_ _datum1072310783_)))))) (_loop1071810763_ _target1071510757_ '()))))) (if (gx#stx-pair? ___stx3791737918_) - (let ((_e1071210747_ + (let ((_e1071410747_ (gx#syntax-e ___stx3791737918_))) - (let ((_tl1071410754_ + (let ((_tl1071210754_ (let () (declare (not safe)) - (##cdr _e1071210747_))) + (##cdr _e1071410747_))) (_hd1071310751_ (let () (declare (not safe)) - (##car _e1071210747_)))) + (##car _e1071410747_)))) (if (gx#stx-pair/null? _hd1071310751_) (let ((___splice3792237923_ (gx#syntax-split-splice @@ -4416,9 +4473,9 @@ '0)))) (if (gx#stx-null? _tl1071710760_) (___match3794037941_ - _e1071210747_ + _e1071410747_ _hd1071310751_ - _tl1071410754_ + _tl1071210754_ ___splice3792237923_ _target1071510757_ _tl1071710760_) @@ -4494,96 +4551,96 @@ (_g1026810438_ (lambda (_g1027010311_) (if (gx#stx-pair? _g1027010311_) - (let ((_e1027810314_ + (let ((_e1028010314_ (gx#syntax-e _g1027010311_))) (let ((_hd1027910318_ (let () (declare (not safe)) - (##car _e1027810314_))) - (_tl1028010321_ + (##car _e1028010314_))) + (_tl1027810321_ (let () (declare (not safe)) - (##cdr _e1027810314_)))) - (if (gx#stx-pair? _tl1028010321_) - (let ((_e1028110324_ + (##cdr _e1028010314_)))) + (if (gx#stx-pair? _tl1027810321_) + (let ((_e1028310324_ (gx#syntax-e - _tl1028010321_))) + _tl1027810321_))) (let ((_hd1028210328_ (let () (declare (not safe)) - (##car _e1028110324_))) - (_tl1028310331_ + (##car _e1028310324_))) + (_tl1028110331_ (let () (declare (not safe)) - (##cdr _e1028110324_)))) + (##cdr _e1028310324_)))) (if (gx#stx-pair? - _tl1028310331_) - (let ((_e1028410334_ + _tl1028110331_) + (let ((_e1028610334_ (gx#syntax-e - _tl1028310331_))) + _tl1028110331_))) (let ((_hd1028510338_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1028410334_))) - (_tl1028610341_ - (let () (declare (not safe)) (##cdr _e1028410334_)))) - (if (gx#stx-pair? _tl1028610341_) - (let ((_e1028710344_ (gx#syntax-e _tl1028610341_))) + (let () (declare (not safe)) (##car _e1028610334_))) + (_tl1028410341_ + (let () (declare (not safe)) (##cdr _e1028610334_)))) + (if (gx#stx-pair? _tl1028410341_) + (let ((_e1028910344_ (gx#syntax-e _tl1028410341_))) (let ((_hd1028810348_ (let () (declare (not safe)) - (##car _e1028710344_))) - (_tl1028910351_ + (##car _e1028910344_))) + (_tl1028710351_ (let () (declare (not safe)) - (##cdr _e1028710344_)))) + (##cdr _e1028910344_)))) (if (gx#stx-pair? _hd1028810348_) - (let ((_e1029010354_ + (let ((_e1029210354_ (gx#syntax-e _hd1028810348_))) (let ((_hd1029110358_ (let () (declare (not safe)) - (##car _e1029010354_))) - (_tl1029210361_ + (##car _e1029210354_))) + (_tl1029010361_ (let () (declare (not safe)) - (##cdr _e1029010354_)))) - (if (gx#stx-null? _tl1029210361_) - (if (gx#stx-pair? _tl1028910351_) - (let ((_e1029310364_ + (##cdr _e1029210354_)))) + (if (gx#stx-null? _tl1029010361_) + (if (gx#stx-pair? _tl1028710351_) + (let ((_e1029510364_ (gx#syntax-e - _tl1028910351_))) + _tl1028710351_))) (let ((_hd1029410368_ (let () (declare (not safe)) - (##car _e1029310364_))) - (_tl1029510371_ + (##car _e1029510364_))) + (_tl1029310371_ (let () (declare (not safe)) - (##cdr _e1029310364_)))) + (##cdr _e1029510364_)))) (if (gx#stx-pair? - _tl1029510371_) - (let ((_e1029610374_ + _tl1029310371_) + (let ((_e1029810374_ (gx#syntax-e - _tl1029510371_))) + _tl1029310371_))) (let ((_hd1029710378_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e1029610374_))) - (_tl1029810381_ - (let () (declare (not safe)) (##cdr _e1029610374_)))) - (if (gx#stx-pair? _tl1029810381_) - (let ((_e1029910384_ (gx#syntax-e _tl1029810381_))) + (##car _e1029810374_))) + (_tl1029610381_ + (let () (declare (not safe)) (##cdr _e1029810374_)))) + (if (gx#stx-pair? _tl1029610381_) + (let ((_e1030110384_ (gx#syntax-e _tl1029610381_))) (let ((_hd1030010388_ (let () (declare (not safe)) - (##car _e1029910384_))) - (_tl1030110391_ + (##car _e1030110384_))) + (_tl1029910391_ (let () (declare (not safe)) - (##cdr _e1029910384_)))) - (if (gx#stx-null? _tl1030110391_) + (##cdr _e1030110384_)))) + (if (gx#stx-null? _tl1029910391_) ((lambda (_L10394_ _L10396_ _L10397_ @@ -4699,48 +4756,48 @@ (_g1044110642_ (lambda (_g1044310490_) (if (gx#stx-pair? _g1044310490_) - (let ((_e1045110493_ + (let ((_e1045310493_ (gx#syntax-e _g1044310490_))) (let ((_hd1045210497_ (let () (declare (not safe)) - (##car _e1045110493_))) - (_tl1045310500_ + (##car _e1045310493_))) + (_tl1045110500_ (let () (declare (not safe)) - (##cdr _e1045110493_)))) - (if (gx#stx-pair? _tl1045310500_) - (let ((_e1045410503_ + (##cdr _e1045310493_)))) + (if (gx#stx-pair? _tl1045110500_) + (let ((_e1045610503_ (gx#syntax-e - _tl1045310500_))) + _tl1045110500_))) (let ((_hd1045510507_ (let () (declare (not safe)) - (##car _e1045410503_))) - (_tl1045610510_ + (##car _e1045610503_))) + (_tl1045410510_ (let () (declare (not safe)) - (##cdr _e1045410503_)))) + (##cdr _e1045610503_)))) (if (gx#stx-pair? - _tl1045610510_) - (let ((_e1045710513_ + _tl1045410510_) + (let ((_e1045910513_ (gx#syntax-e - _tl1045610510_))) + _tl1045410510_))) (let ((_hd1045810517_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1045710513_))) - (_tl1045910520_ - (let () (declare (not safe)) (##cdr _e1045710513_)))) - (if (gx#stx-pair? _tl1045910520_) - (let ((_e1046010523_ (gx#syntax-e _tl1045910520_))) + (let () (declare (not safe)) (##car _e1045910513_))) + (_tl1045710520_ + (let () (declare (not safe)) (##cdr _e1045910513_)))) + (if (gx#stx-pair? _tl1045710520_) + (let ((_e1046210523_ (gx#syntax-e _tl1045710520_))) (let ((_hd1046110527_ (let () (declare (not safe)) - (##car _e1046010523_))) - (_tl1046210530_ + (##car _e1046210523_))) + (_tl1046010530_ (let () (declare (not safe)) - (##cdr _e1046010523_)))) + (##cdr _e1046210523_)))) (if (gx#stx-pair/null? _hd1046110527_) (let ((_g42178_ (gx#syntax-split-splice @@ -4785,39 +4842,39 @@ _lp-tl1046910556_ (cons _lp-hd1046810553_ _dispatch1047010546_)))) (let ((_dispatch1047110559_ (reverse _dispatch1047010546_))) - (if (gx#stx-pair? _tl1046210530_) - (let ((_e1047210563_ (gx#syntax-e _tl1046210530_))) + (if (gx#stx-pair? _tl1046010530_) + (let ((_e1047410563_ (gx#syntax-e _tl1046010530_))) (let ((_hd1047310567_ (let () (declare (not safe)) - (##car _e1047210563_))) - (_tl1047410570_ + (##car _e1047410563_))) + (_tl1047210570_ (let () (declare (not safe)) - (##cdr _e1047210563_)))) - (if (gx#stx-pair? _tl1047410570_) - (let ((_e1047510573_ - (gx#syntax-e _tl1047410570_))) + (##cdr _e1047410563_)))) + (if (gx#stx-pair? _tl1047210570_) + (let ((_e1047710573_ + (gx#syntax-e _tl1047210570_))) (let ((_hd1047610577_ (let () (declare (not safe)) - (##car _e1047510573_))) - (_tl1047710580_ + (##car _e1047710573_))) + (_tl1047510580_ (let () (declare (not safe)) - (##cdr _e1047510573_)))) - (if (gx#stx-pair? _tl1047710580_) - (let ((_e1047810583_ - (gx#syntax-e _tl1047710580_))) + (##cdr _e1047710573_)))) + (if (gx#stx-pair? _tl1047510580_) + (let ((_e1048010583_ + (gx#syntax-e _tl1047510580_))) (let ((_hd1047910587_ (let () (declare (not safe)) - (##car _e1047810583_))) - (_tl1048010590_ + (##car _e1048010583_))) + (_tl1047810590_ (let () (declare (not safe)) - (##cdr _e1047810583_)))) - (if (gx#stx-null? _tl1048010590_) + (##cdr _e1048010583_)))) + (if (gx#stx-null? _tl1047810590_) ((lambda (_L10593_ _L10595_ _L10596_ @@ -5022,85 +5079,85 @@ (_g98249976_ (lambda (_g98269863_) (if (gx#stx-pair? _g98269863_) - (let ((_e98339866_ + (let ((_e98359866_ (gx#syntax-e _g98269863_))) (let ((_hd98349870_ (let () (declare (not safe)) - (##car _e98339866_))) - (_tl98359873_ + (##car _e98359866_))) + (_tl98339873_ (let () (declare (not safe)) - (##cdr _e98339866_)))) + (##cdr _e98359866_)))) (if (gx#stx-pair? - _tl98359873_) - (let ((_e98369876_ + _tl98339873_) + (let ((_e98389876_ (gx#syntax-e - _tl98359873_))) + _tl98339873_))) (let ((_hd98379880_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e98369876_))) - (_tl98389883_ - (let () (declare (not safe)) (##cdr _e98369876_)))) - (if (gx#stx-pair? _tl98389883_) - (let ((_e98399886_ (gx#syntax-e _tl98389883_))) + (##car _e98389876_))) + (_tl98369883_ + (let () (declare (not safe)) (##cdr _e98389876_)))) + (if (gx#stx-pair? _tl98369883_) + (let ((_e98419886_ (gx#syntax-e _tl98369883_))) (let ((_hd98409890_ (let () (declare (not safe)) - (##car _e98399886_))) - (_tl98419893_ + (##car _e98419886_))) + (_tl98399893_ (let () (declare (not safe)) - (##cdr _e98399886_)))) + (##cdr _e98419886_)))) (if (gx#stx-pair? _hd98409890_) - (let ((_e98429896_ (gx#syntax-e _hd98409890_))) + (let ((_e98449896_ (gx#syntax-e _hd98409890_))) (let ((_hd98439900_ (let () (declare (not safe)) - (##car _e98429896_))) - (_tl98449903_ + (##car _e98449896_))) + (_tl98429903_ (let () (declare (not safe)) - (##cdr _e98429896_)))) - (if (gx#stx-null? _tl98449903_) - (if (gx#stx-pair? _tl98419893_) - (let ((_e98459906_ - (gx#syntax-e _tl98419893_))) + (##cdr _e98449896_)))) + (if (gx#stx-null? _tl98429903_) + (if (gx#stx-pair? _tl98399893_) + (let ((_e98479906_ + (gx#syntax-e _tl98399893_))) (let ((_hd98469910_ (let () (declare (not safe)) - (##car _e98459906_))) - (_tl98479913_ + (##car _e98479906_))) + (_tl98459913_ (let () (declare (not safe)) - (##cdr _e98459906_)))) - (if (gx#stx-pair? _tl98479913_) - (let ((_e98489916_ + (##cdr _e98479906_)))) + (if (gx#stx-pair? _tl98459913_) + (let ((_e98509916_ (gx#syntax-e - _tl98479913_))) + _tl98459913_))) (let ((_hd98499920_ (let () (declare (not safe)) - (##car _e98489916_))) - (_tl98509923_ + (##car _e98509916_))) + (_tl98489923_ (let () (declare (not safe)) - (##cdr _e98489916_)))) + (##cdr _e98509916_)))) (if (gx#stx-pair? - _tl98509923_) - (let ((_e98519926_ + _tl98489923_) + (let ((_e98539926_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl98509923_))) + (gx#syntax-e _tl98489923_))) (let ((_hd98529930_ - (let () (declare (not safe)) (##car _e98519926_))) - (_tl98539933_ - (let () (declare (not safe)) (##cdr _e98519926_)))) - (if (gx#stx-null? _tl98539933_) + (let () (declare (not safe)) (##car _e98539926_))) + (_tl98519933_ + (let () (declare (not safe)) (##cdr _e98539926_)))) + (if (gx#stx-null? _tl98519933_) ((lambda (_L9936_ _L9938_ _L9939_ @@ -5186,49 +5243,49 @@ (_g997910180_ (lambda (_g998110028_) (if (gx#stx-pair? _g998110028_) - (let ((_e998910031_ + (let ((_e999110031_ (gx#syntax-e _g998110028_))) (let ((_hd999010035_ (let () (declare (not safe)) - (##car _e998910031_))) - (_tl999110038_ + (##car _e999110031_))) + (_tl998910038_ (let () (declare (not safe)) - (##cdr _e998910031_)))) + (##cdr _e999110031_)))) (if (gx#stx-pair? - _tl999110038_) - (let ((_e999210041_ + _tl998910038_) + (let ((_e999410041_ (gx#syntax-e - _tl999110038_))) + _tl998910038_))) (let ((_hd999310045_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e999210041_))) - (_tl999410048_ - (let () (declare (not safe)) (##cdr _e999210041_)))) - (if (gx#stx-pair? _tl999410048_) - (let ((_e999510051_ (gx#syntax-e _tl999410048_))) + (##car _e999410041_))) + (_tl999210048_ + (let () (declare (not safe)) (##cdr _e999410041_)))) + (if (gx#stx-pair? _tl999210048_) + (let ((_e999710051_ (gx#syntax-e _tl999210048_))) (let ((_hd999610055_ (let () (declare (not safe)) - (##car _e999510051_))) - (_tl999710058_ + (##car _e999710051_))) + (_tl999510058_ (let () (declare (not safe)) - (##cdr _e999510051_)))) - (if (gx#stx-pair? _tl999710058_) - (let ((_e999810061_ (gx#syntax-e _tl999710058_))) + (##cdr _e999710051_)))) + (if (gx#stx-pair? _tl999510058_) + (let ((_e1000010061_ (gx#syntax-e _tl999510058_))) (let ((_hd999910065_ (let () (declare (not safe)) - (##car _e999810061_))) - (_tl1000010068_ + (##car _e1000010061_))) + (_tl999810068_ (let () (declare (not safe)) - (##cdr _e999810061_)))) + (##cdr _e1000010061_)))) (if (gx#stx-pair/null? _hd999910065_) (let ((_g42180_ (gx#syntax-split-splice @@ -5274,41 +5331,41 @@ (cons _lp-hd1000610091_ _dispatch1000810084_)))) (let ((_dispatch1000910097_ (reverse _dispatch1000810084_))) - (if (gx#stx-pair? _tl1000010068_) - (let ((_e1001010101_ (gx#syntax-e _tl1000010068_))) + (if (gx#stx-pair? _tl999810068_) + (let ((_e1001210101_ (gx#syntax-e _tl999810068_))) (let ((_hd1001110105_ (let () (declare (not safe)) - (##car _e1001010101_))) - (_tl1001210108_ + (##car _e1001210101_))) + (_tl1001010108_ (let () (declare (not safe)) - (##cdr _e1001010101_)))) - (if (gx#stx-pair? _tl1001210108_) - (let ((_e1001310111_ - (gx#syntax-e _tl1001210108_))) + (##cdr _e1001210101_)))) + (if (gx#stx-pair? _tl1001010108_) + (let ((_e1001510111_ + (gx#syntax-e _tl1001010108_))) (let ((_hd1001410115_ (let () (declare (not safe)) - (##car _e1001310111_))) - (_tl1001510118_ + (##car _e1001510111_))) + (_tl1001310118_ (let () (declare (not safe)) - (##cdr _e1001310111_)))) - (if (gx#stx-pair? _tl1001510118_) - (let ((_e1001610121_ + (##cdr _e1001510111_)))) + (if (gx#stx-pair? _tl1001310118_) + (let ((_e1001810121_ (gx#syntax-e - _tl1001510118_))) + _tl1001310118_))) (let ((_hd1001710125_ (let () (declare (not safe)) - (##car _e1001610121_))) - (_tl1001810128_ + (##car _e1001810121_))) + (_tl1001610128_ (let () (declare (not safe)) - (##cdr _e1001610121_)))) + (##cdr _e1001810121_)))) (if (gx#stx-null? - _tl1001810128_) + _tl1001610128_) ((lambda (_L10131_ _L10133_ _L10134_ @@ -5453,47 +5510,47 @@ (_g95989803_ (lambda (_g96009647_) (if (gx#stx-pair? _g96009647_) - (let ((_e96089650_ + (let ((_e96109650_ (gx#syntax-e _g96009647_))) (let ((_hd96099654_ (let () (declare (not safe)) - (##car _e96089650_))) - (_tl96109657_ + (##car _e96109650_))) + (_tl96089657_ (let () (declare (not safe)) - (##cdr _e96089650_)))) - (if (gx#stx-pair? _tl96109657_) - (let ((_e96119660_ - (gx#syntax-e _tl96109657_))) + (##cdr _e96109650_)))) + (if (gx#stx-pair? _tl96089657_) + (let ((_e96139660_ + (gx#syntax-e _tl96089657_))) (let ((_hd96129664_ (let () (declare (not safe)) - (##car _e96119660_))) - (_tl96139667_ + (##car _e96139660_))) + (_tl96119667_ (let () (declare (not safe)) - (##cdr _e96119660_)))) - (if (gx#stx-pair? _tl96139667_) - (let ((_e96149670_ + (##cdr _e96139660_)))) + (if (gx#stx-pair? _tl96119667_) + (let ((_e96169670_ (gx#syntax-e - _tl96139667_))) + _tl96119667_))) (let ((_hd96159674_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e96149670_))) - (_tl96169677_ - (let () (declare (not safe)) (##cdr _e96149670_)))) - (if (gx#stx-pair? _tl96169677_) - (let ((_e96179680_ (gx#syntax-e _tl96169677_))) + (##car _e96169670_))) + (_tl96149677_ + (let () (declare (not safe)) (##cdr _e96169670_)))) + (if (gx#stx-pair? _tl96149677_) + (let ((_e96199680_ (gx#syntax-e _tl96149677_))) (let ((_hd96189684_ - (let () (declare (not safe)) (##car _e96179680_))) - (_tl96199687_ + (let () (declare (not safe)) (##car _e96199680_))) + (_tl96179687_ (let () (declare (not safe)) - (##cdr _e96179680_)))) + (##cdr _e96199680_)))) (if (gx#stx-pair/null? _hd96189684_) (let ((_g42182_ (gx#syntax-split-splice _hd96189684_ '0))) @@ -5537,36 +5594,36 @@ _lp-tl96269713_ (cons _lp-hd96259710_ _dispatch96279703_)))) (let ((_dispatch96289716_ (reverse _dispatch96279703_))) - (if (gx#stx-pair? _tl96199687_) - (let ((_e96299720_ (gx#syntax-e _tl96199687_))) + (if (gx#stx-pair? _tl96179687_) + (let ((_e96319720_ (gx#syntax-e _tl96179687_))) (let ((_hd96309724_ - (let () (declare (not safe)) (##car _e96299720_))) - (_tl96319727_ + (let () (declare (not safe)) (##car _e96319720_))) + (_tl96299727_ (let () (declare (not safe)) - (##cdr _e96299720_)))) - (if (gx#stx-pair? _tl96319727_) - (let ((_e96329730_ (gx#syntax-e _tl96319727_))) + (##cdr _e96319720_)))) + (if (gx#stx-pair? _tl96299727_) + (let ((_e96349730_ (gx#syntax-e _tl96299727_))) (let ((_hd96339734_ (let () (declare (not safe)) - (##car _e96329730_))) - (_tl96349737_ + (##car _e96349730_))) + (_tl96329737_ (let () (declare (not safe)) - (##cdr _e96329730_)))) - (if (gx#stx-pair? _tl96349737_) - (let ((_e96359740_ - (gx#syntax-e _tl96349737_))) + (##cdr _e96349730_)))) + (if (gx#stx-pair? _tl96329737_) + (let ((_e96379740_ + (gx#syntax-e _tl96329737_))) (let ((_hd96369744_ (let () (declare (not safe)) - (##car _e96359740_))) - (_tl96379747_ + (##car _e96379740_))) + (_tl96359747_ (let () (declare (not safe)) - (##cdr _e96359740_)))) - (if (gx#stx-null? _tl96379747_) + (##cdr _e96379740_)))) + (if (gx#stx-null? _tl96359747_) ((lambda (_L9750_ _L9752_ _L9753_ @@ -5739,48 +5796,48 @@ (_g93039549_ (lambda (_g93059352_) (if (gx#stx-pair? _g93059352_) - (let ((_e93139355_ + (let ((_e93159355_ (gx#syntax-e _g93059352_))) (let ((_hd93149359_ (let () (declare (not safe)) - (##car _e93139355_))) - (_tl93159362_ + (##car _e93159355_))) + (_tl93139362_ (let () (declare (not safe)) - (##cdr _e93139355_)))) - (if (gx#stx-pair? _tl93159362_) - (let ((_e93169365_ + (##cdr _e93159355_)))) + (if (gx#stx-pair? _tl93139362_) + (let ((_e93189365_ (gx#syntax-e - _tl93159362_))) + _tl93139362_))) (let ((_hd93179369_ (let () (declare (not safe)) - (##car _e93169365_))) - (_tl93189372_ + (##car _e93189365_))) + (_tl93169372_ (let () (declare (not safe)) - (##cdr _e93169365_)))) + (##cdr _e93189365_)))) (if (gx#stx-pair? - _tl93189372_) - (let ((_e93199375_ + _tl93169372_) + (let ((_e93219375_ (gx#syntax-e - _tl93189372_))) + _tl93169372_))) (let ((_hd93209379_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e93199375_))) - (_tl93219382_ - (let () (declare (not safe)) (##cdr _e93199375_)))) - (if (gx#stx-pair? _tl93219382_) - (let ((_e93229385_ (gx#syntax-e _tl93219382_))) + (let () (declare (not safe)) (##car _e93219375_))) + (_tl93199382_ + (let () (declare (not safe)) (##cdr _e93219375_)))) + (if (gx#stx-pair? _tl93199382_) + (let ((_e93249385_ (gx#syntax-e _tl93199382_))) (let ((_hd93239389_ (let () (declare (not safe)) - (##car _e93229385_))) - (_tl93249392_ + (##car _e93249385_))) + (_tl93229392_ (let () (declare (not safe)) - (##cdr _e93229385_)))) + (##cdr _e93249385_)))) (if (gx#stx-pair/null? _hd93239389_) (let ((_g42184_ (gx#syntax-split-splice @@ -5823,38 +5880,38 @@ _lp-tl93319418_ (cons _lp-hd93309415_ _dispatch93329408_)))) (let ((_dispatch93339421_ (reverse _dispatch93329408_))) - (if (gx#stx-pair? _tl93249392_) - (let ((_e93349425_ (gx#syntax-e _tl93249392_))) + (if (gx#stx-pair? _tl93229392_) + (let ((_e93369425_ (gx#syntax-e _tl93229392_))) (let ((_hd93359429_ (let () (declare (not safe)) - (##car _e93349425_))) - (_tl93369432_ + (##car _e93369425_))) + (_tl93349432_ (let () (declare (not safe)) - (##cdr _e93349425_)))) - (if (gx#stx-pair? _tl93369432_) - (let ((_e93379435_ (gx#syntax-e _tl93369432_))) + (##cdr _e93369425_)))) + (if (gx#stx-pair? _tl93349432_) + (let ((_e93399435_ (gx#syntax-e _tl93349432_))) (let ((_hd93389439_ (let () (declare (not safe)) - (##car _e93379435_))) - (_tl93399442_ + (##car _e93399435_))) + (_tl93379442_ (let () (declare (not safe)) - (##cdr _e93379435_)))) - (if (gx#stx-pair? _tl93399442_) - (let ((_e93409445_ - (gx#syntax-e _tl93399442_))) + (##cdr _e93399435_)))) + (if (gx#stx-pair? _tl93379442_) + (let ((_e93429445_ + (gx#syntax-e _tl93379442_))) (let ((_hd93419449_ (let () (declare (not safe)) - (##car _e93409445_))) - (_tl93429452_ + (##car _e93429445_))) + (_tl93409452_ (let () (declare (not safe)) - (##cdr _e93409445_)))) - (if (gx#stx-null? _tl93429452_) + (##cdr _e93429445_)))) + (if (gx#stx-null? _tl93409452_) ((lambda (_L9455_ _L9457_ _L9458_ @@ -6005,47 +6062,47 @@ (_g90789283_ (lambda (_g90809127_) (if (gx#stx-pair? _g90809127_) - (let ((_e90889130_ + (let ((_e90909130_ (gx#syntax-e _g90809127_))) (let ((_hd90899134_ (let () (declare (not safe)) - (##car _e90889130_))) - (_tl90909137_ + (##car _e90909130_))) + (_tl90889137_ (let () (declare (not safe)) - (##cdr _e90889130_)))) - (if (gx#stx-pair? _tl90909137_) - (let ((_e90919140_ - (gx#syntax-e _tl90909137_))) + (##cdr _e90909130_)))) + (if (gx#stx-pair? _tl90889137_) + (let ((_e90939140_ + (gx#syntax-e _tl90889137_))) (let ((_hd90929144_ (let () (declare (not safe)) - (##car _e90919140_))) - (_tl90939147_ + (##car _e90939140_))) + (_tl90919147_ (let () (declare (not safe)) - (##cdr _e90919140_)))) - (if (gx#stx-pair? _tl90939147_) - (let ((_e90949150_ + (##cdr _e90939140_)))) + (if (gx#stx-pair? _tl90919147_) + (let ((_e90969150_ (gx#syntax-e - _tl90939147_))) + _tl90919147_))) (let ((_hd90959154_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e90949150_))) - (_tl90969157_ - (let () (declare (not safe)) (##cdr _e90949150_)))) - (if (gx#stx-pair? _tl90969157_) - (let ((_e90979160_ (gx#syntax-e _tl90969157_))) + (##car _e90969150_))) + (_tl90949157_ + (let () (declare (not safe)) (##cdr _e90969150_)))) + (if (gx#stx-pair? _tl90949157_) + (let ((_e90999160_ (gx#syntax-e _tl90949157_))) (let ((_hd90989164_ - (let () (declare (not safe)) (##car _e90979160_))) - (_tl90999167_ + (let () (declare (not safe)) (##car _e90999160_))) + (_tl90979167_ (let () (declare (not safe)) - (##cdr _e90979160_)))) + (##cdr _e90999160_)))) (if (gx#stx-pair/null? _hd90989164_) (let ((_g42186_ (gx#syntax-split-splice _hd90989164_ '0))) @@ -6089,36 +6146,36 @@ _lp-tl91069193_ (cons _lp-hd91059190_ _dispatch91079183_)))) (let ((_dispatch91089196_ (reverse _dispatch91079183_))) - (if (gx#stx-pair? _tl90999167_) - (let ((_e91099200_ (gx#syntax-e _tl90999167_))) + (if (gx#stx-pair? _tl90979167_) + (let ((_e91119200_ (gx#syntax-e _tl90979167_))) (let ((_hd91109204_ - (let () (declare (not safe)) (##car _e91099200_))) - (_tl91119207_ + (let () (declare (not safe)) (##car _e91119200_))) + (_tl91099207_ (let () (declare (not safe)) - (##cdr _e91099200_)))) - (if (gx#stx-pair? _tl91119207_) - (let ((_e91129210_ (gx#syntax-e _tl91119207_))) + (##cdr _e91119200_)))) + (if (gx#stx-pair? _tl91099207_) + (let ((_e91149210_ (gx#syntax-e _tl91099207_))) (let ((_hd91139214_ (let () (declare (not safe)) - (##car _e91129210_))) - (_tl91149217_ + (##car _e91149210_))) + (_tl91129217_ (let () (declare (not safe)) - (##cdr _e91129210_)))) - (if (gx#stx-pair? _tl91149217_) - (let ((_e91159220_ - (gx#syntax-e _tl91149217_))) + (##cdr _e91149210_)))) + (if (gx#stx-pair? _tl91129217_) + (let ((_e91179220_ + (gx#syntax-e _tl91129217_))) (let ((_hd91169224_ (let () (declare (not safe)) - (##car _e91159220_))) - (_tl91179227_ + (##car _e91179220_))) + (_tl91159227_ (let () (declare (not safe)) - (##cdr _e91159220_)))) - (if (gx#stx-null? _tl91179227_) + (##cdr _e91179220_)))) + (if (gx#stx-null? _tl91159227_) ((lambda (_L9230_ _L9232_ _L9233_ @@ -6272,49 +6329,49 @@ (_g88199061_ (lambda (_g88218876_) (if (gx#stx-pair? _g88218876_) - (let ((_e88318879_ + (let ((_e88338879_ (gx#syntax-e _g88218876_))) (let ((_hd88328883_ (let () (declare (not safe)) - (##car _e88318879_))) - (_tl88338886_ + (##car _e88338879_))) + (_tl88318886_ (let () (declare (not safe)) - (##cdr _e88318879_)))) - (if (gx#stx-pair? _tl88338886_) - (let ((_e88348889_ + (##cdr _e88338879_)))) + (if (gx#stx-pair? _tl88318886_) + (let ((_e88368889_ (gx#syntax-e - _tl88338886_))) + _tl88318886_))) (let ((_hd88358893_ (let () (declare (not safe)) - (##car _e88348889_))) - (_tl88368896_ + (##car _e88368889_))) + (_tl88348896_ (let () (declare (not safe)) - (##cdr _e88348889_)))) + (##cdr _e88368889_)))) (if (gx#stx-pair? - _tl88368896_) - (let ((_e88378899_ + _tl88348896_) + (let ((_e88398899_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl88368896_))) + (gx#syntax-e _tl88348896_))) (let ((_hd88388903_ - (let () (declare (not safe)) (##car _e88378899_))) - (_tl88398906_ - (let () (declare (not safe)) (##cdr _e88378899_)))) - (if (gx#stx-pair? _tl88398906_) - (let ((_e88408909_ (gx#syntax-e _tl88398906_))) + (let () (declare (not safe)) (##car _e88398899_))) + (_tl88378906_ + (let () (declare (not safe)) (##cdr _e88398899_)))) + (if (gx#stx-pair? _tl88378906_) + (let ((_e88428909_ (gx#syntax-e _tl88378906_))) (let ((_hd88418913_ (let () (declare (not safe)) - (##car _e88408909_))) - (_tl88428916_ + (##car _e88428909_))) + (_tl88408916_ (let () (declare (not safe)) - (##cdr _e88408909_)))) + (##cdr _e88428909_)))) (if (gx#stx-pair/null? _hd88418913_) (let ((_g42189_ (gx#syntax-split-splice @@ -6359,62 +6416,62 @@ _lp-tl88498942_ (cons _lp-hd88488939_ _dispatch88508932_)))) (let ((_dispatch88518945_ (reverse _dispatch88508932_))) - (if (gx#stx-pair? _tl88428916_) - (let ((_e88528949_ (gx#syntax-e _tl88428916_))) + (if (gx#stx-pair? _tl88408916_) + (let ((_e88548949_ (gx#syntax-e _tl88408916_))) (let ((_hd88538953_ (let () (declare (not safe)) - (##car _e88528949_))) - (_tl88548956_ + (##car _e88548949_))) + (_tl88528956_ (let () (declare (not safe)) - (##cdr _e88528949_)))) - (if (gx#stx-pair? _tl88548956_) - (let ((_e88558959_ - (gx#syntax-e _tl88548956_))) + (##cdr _e88548949_)))) + (if (gx#stx-pair? _tl88528956_) + (let ((_e88578959_ + (gx#syntax-e _tl88528956_))) (let ((_hd88568963_ (let () (declare (not safe)) - (##car _e88558959_))) - (_tl88578966_ + (##car _e88578959_))) + (_tl88558966_ (let () (declare (not safe)) - (##cdr _e88558959_)))) - (if (gx#stx-pair? _tl88578966_) - (let ((_e88588969_ - (gx#syntax-e _tl88578966_))) + (##cdr _e88578959_)))) + (if (gx#stx-pair? _tl88558966_) + (let ((_e88608969_ + (gx#syntax-e _tl88558966_))) (let ((_hd88598973_ (let () (declare (not safe)) - (##car _e88588969_))) - (_tl88608976_ + (##car _e88608969_))) + (_tl88588976_ (let () (declare (not safe)) - (##cdr _e88588969_)))) - (if (gx#stx-pair? _tl88608976_) - (let ((_e88618979_ + (##cdr _e88608969_)))) + (if (gx#stx-pair? _tl88588976_) + (let ((_e88638979_ (gx#syntax-e - _tl88608976_))) + _tl88588976_))) (let ((_hd88628983_ (let () (declare (not safe)) - (##car _e88618979_))) - (_tl88638986_ + (##car _e88638979_))) + (_tl88618986_ (let () (declare (not safe)) - (##cdr _e88618979_)))) + (##cdr _e88638979_)))) (if (gx#stx-pair? - _tl88638986_) - (let ((_e88648989_ + _tl88618986_) + (let ((_e88668989_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl88638986_))) + (gx#syntax-e _tl88618986_))) (let ((_hd88658993_ - (let () (declare (not safe)) (##car _e88648989_))) - (_tl88668996_ - (let () (declare (not safe)) (##cdr _e88648989_)))) - (if (gx#stx-null? _tl88668996_) + (let () (declare (not safe)) (##car _e88668989_))) + (_tl88648996_ + (let () (declare (not safe)) (##cdr _e88668989_)))) + (if (gx#stx-null? _tl88648996_) ((lambda (_L8999_ _L9001_ _L9002_ @@ -6554,29 +6611,29 @@ (_g86768797_ (lambda (_g86788705_) (if (gx#stx-pair? _g86788705_) - (let ((_e86818708_ (gx#syntax-e _g86788705_))) + (let ((_e86838708_ (gx#syntax-e _g86788705_))) (let ((_hd86828712_ (let () (declare (not safe)) - (##car _e86818708_))) - (_tl86838715_ + (##car _e86838708_))) + (_tl86818715_ (let () (declare (not safe)) - (##cdr _e86818708_)))) - (if (gx#stx-pair? _tl86838715_) - (let ((_e86848718_ (gx#syntax-e _tl86838715_))) + (##cdr _e86838708_)))) + (if (gx#stx-pair? _tl86818715_) + (let ((_e86868718_ (gx#syntax-e _tl86818715_))) (let ((_hd86858722_ (let () (declare (not safe)) - (##car _e86848718_))) - (_tl86868725_ + (##car _e86868718_))) + (_tl86848725_ (let () (declare (not safe)) - (##cdr _e86848718_)))) - (if (gx#stx-pair/null? _tl86868725_) + (##cdr _e86868718_)))) + (if (gx#stx-pair/null? _tl86848725_) (let ((_g42191_ (gx#syntax-split-splice - _tl86868725_ + _tl86848725_ '0))) (begin (let ((_g42192_ @@ -6714,38 +6771,38 @@ (_g1170111786_ (lambda (_g1170311724_) (if (gx#stx-pair? _g1170311724_) - (let ((_e1170611727_ (gx#syntax-e _g1170311724_))) + (let ((_e1170811727_ (gx#syntax-e _g1170311724_))) (let ((_hd1170711731_ (let () (declare (not safe)) - (##car _e1170611727_))) - (_tl1170811734_ + (##car _e1170811727_))) + (_tl1170611734_ (let () (declare (not safe)) - (##cdr _e1170611727_)))) - (if (gx#stx-pair? _tl1170811734_) - (let ((_e1170911737_ - (gx#syntax-e _tl1170811734_))) + (##cdr _e1170811727_)))) + (if (gx#stx-pair? _tl1170611734_) + (let ((_e1171111737_ + (gx#syntax-e _tl1170611734_))) (let ((_hd1171011741_ (let () (declare (not safe)) - (##car _e1170911737_))) - (_tl1171111744_ + (##car _e1171111737_))) + (_tl1170911744_ (let () (declare (not safe)) - (##cdr _e1170911737_)))) - (if (gx#stx-pair? _tl1171111744_) - (let ((_e1171211747_ - (gx#syntax-e _tl1171111744_))) + (##cdr _e1171111737_)))) + (if (gx#stx-pair? _tl1170911744_) + (let ((_e1171411747_ + (gx#syntax-e _tl1170911744_))) (let ((_hd1171311751_ (let () (declare (not safe)) - (##car _e1171211747_))) - (_tl1171411754_ + (##car _e1171411747_))) + (_tl1171211754_ (let () (declare (not safe)) - (##cdr _e1171211747_)))) - (if (gx#stx-null? _tl1171411754_) + (##cdr _e1171411747_)))) + (if (gx#stx-null? _tl1171211754_) ((lambda (_L11757_ _L11759_) (let ((_datum-e11775_ (gx#stx-e _L11759_))) @@ -6788,30 +6845,30 @@ (_g1179311903_ (lambda (_g1179511822_) (if (gx#stx-pair? _g1179511822_) - (let ((_e1179811825_ (gx#syntax-e _g1179511822_))) + (let ((_e1180011825_ (gx#syntax-e _g1179511822_))) (let ((_hd1179911829_ (let () (declare (not safe)) - (##car _e1179811825_))) - (_tl1180011832_ + (##car _e1180011825_))) + (_tl1179811832_ (let () (declare (not safe)) - (##cdr _e1179811825_)))) - (if (gx#stx-pair? _tl1180011832_) - (let ((_e1180111835_ - (gx#syntax-e _tl1180011832_))) + (##cdr _e1180011825_)))) + (if (gx#stx-pair? _tl1179811832_) + (let ((_e1180311835_ + (gx#syntax-e _tl1179811832_))) (let ((_hd1180211839_ (let () (declare (not safe)) - (##car _e1180111835_))) - (_tl1180311842_ + (##car _e1180311835_))) + (_tl1180111842_ (let () (declare (not safe)) - (##cdr _e1180111835_)))) - (if (gx#stx-pair/null? _tl1180311842_) + (##cdr _e1180311835_)))) + (if (gx#stx-pair/null? _tl1180111842_) (let ((_g42195_ (gx#syntax-split-splice - _tl1180311842_ + _tl1180111842_ '0))) (begin (let ((_g42196_ @@ -6922,28 +6979,28 @@ (_g1220512266_ (lambda (_g1220712225_) (if (gx#stx-pair? _g1220712225_) - (let ((_e1221012228_ + (let ((_e1221212228_ (gx#syntax-e _g1220712225_))) (let ((_hd1221112232_ (let () (declare (not safe)) - (##car _e1221012228_))) - (_tl1221212235_ + (##car _e1221212228_))) + (_tl1221012235_ (let () (declare (not safe)) - (##cdr _e1221012228_)))) - (if (gx#stx-pair? _tl1221212235_) - (let ((_e1221312238_ - (gx#syntax-e _tl1221212235_))) + (##cdr _e1221212228_)))) + (if (gx#stx-pair? _tl1221012235_) + (let ((_e1221512238_ + (gx#syntax-e _tl1221012235_))) (let ((_hd1221412242_ (let () (declare (not safe)) - (##car _e1221312238_))) - (_tl1221512245_ + (##car _e1221512238_))) + (_tl1221312245_ (let () (declare (not safe)) - (##cdr _e1221312238_)))) - (if (gx#stx-null? _tl1221512245_) + (##cdr _e1221512238_)))) + (if (gx#stx-null? _tl1221312245_) ((lambda (_L12248_ _L12250_) (let () (cons (gx#datum->syntax @@ -6988,15 +7045,15 @@ '() _L12078_))))))) (let ((___match3810038101_ - (lambda (_e1198812018_ + (lambda (_e1199012018_ _hd1198912022_ - _tl1199012025_ - _e1199112028_ + _tl1198812025_ + _e1199312028_ _hd1199212032_ - _tl1199312035_ - _e1199412038_ + _tl1199112035_ + _e1199612038_ _hd1199512042_ - _tl1199612045_ + _tl1199412045_ ___splice3795637957_ _target1199712048_ _tl1199912051_) @@ -7025,95 +7082,95 @@ _hd1199212032_)))))) (_loop1200012054_ _target1199712048_ '()))))) (if (gx#stx-pair? ___stx3794337944_) - (let ((_e1191912458_ (gx#syntax-e ___stx3794337944_))) - (let ((_tl1192112465_ - (let () (declare (not safe)) (##cdr _e1191912458_))) + (let ((_e1192112458_ (gx#syntax-e ___stx3794337944_))) + (let ((_tl1191912465_ + (let () (declare (not safe)) (##cdr _e1192112458_))) (_hd1192012462_ (let () (declare (not safe)) - (##car _e1191912458_)))) - (if (gx#stx-pair? _tl1192112465_) - (let ((_e1192212468_ (gx#syntax-e _tl1192112465_))) - (let ((_tl1192412475_ + (##car _e1192112458_)))) + (if (gx#stx-pair? _tl1191912465_) + (let ((_e1192412468_ (gx#syntax-e _tl1191912465_))) + (let ((_tl1192212475_ (let () (declare (not safe)) - (##cdr _e1192212468_))) + (##cdr _e1192412468_))) (_hd1192312472_ (let () (declare (not safe)) - (##car _e1192212468_)))) - (if (gx#stx-pair? _tl1192412475_) - (let ((_e1192512478_ - (gx#syntax-e _tl1192412475_))) - (let ((_tl1192712485_ + (##car _e1192412468_)))) + (if (gx#stx-pair? _tl1192212475_) + (let ((_e1192712478_ + (gx#syntax-e _tl1192212475_))) + (let ((_tl1192512485_ (let () (declare (not safe)) - (##cdr _e1192512478_))) + (##cdr _e1192712478_))) (_hd1192612482_ (let () (declare (not safe)) - (##car _e1192512478_)))) - (if (gx#stx-null? _tl1192712485_) + (##car _e1192712478_)))) + (if (gx#stx-null? _tl1192512485_) (___kont3794637947_ _hd1192612482_ _hd1192312472_) - (if (gx#stx-pair? _tl1192712485_) - (let ((_e1194012420_ + (if (gx#stx-pair? _tl1192512485_) + (let ((_e1194212420_ (gx#syntax-e - _tl1192712485_))) - (let ((_tl1194212427_ + _tl1192512485_))) + (let ((_tl1194012427_ (let () (declare (not safe)) - (##cdr _e1194012420_))) + (##cdr _e1194212420_))) (_hd1194112424_ (let () (declare (not safe)) - (##car _e1194012420_)))) + (##car _e1194212420_)))) (if (gx#stx-null? - _tl1194212427_) + _tl1194012427_) (___kont3794837949_ _hd1194112424_ _hd1192612482_ _hd1192312472_) (if (gx#stx-pair? - _tl1194212427_) - (let ((_e1195912317_ + _tl1194012427_) + (let ((_e1196112317_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1194212427_))) - (let ((_tl1196112324_ - (let () (declare (not safe)) (##cdr _e1195912317_))) + (gx#syntax-e _tl1194012427_))) + (let ((_tl1195912324_ + (let () (declare (not safe)) (##cdr _e1196112317_))) (_hd1196012321_ (let () (declare (not safe)) - (##car _e1195912317_)))) - (if (gx#stx-null? _tl1196112324_) + (##car _e1196112317_)))) + (if (gx#stx-null? _tl1195912324_) (___kont3795037951_ _hd1196012321_ _hd1194112424_ _hd1192612482_ _hd1192312472_) - (if (gx#stx-pair? _tl1196112324_) - (let ((_e1198212167_ - (gx#syntax-e _tl1196112324_))) - (let ((_tl1198412174_ + (if (gx#stx-pair? _tl1195912324_) + (let ((_e1198412167_ + (gx#syntax-e _tl1195912324_))) + (let ((_tl1198212174_ (let () (declare (not safe)) - (##cdr _e1198212167_))) + (##cdr _e1198412167_))) (_hd1198312171_ (let () (declare (not safe)) - (##car _e1198212167_)))) - (if (gx#stx-null? _tl1198412174_) + (##car _e1198412167_)))) + (if (gx#stx-null? _tl1198212174_) (___kont3795237953_ _hd1198312171_ _hd1196012321_ _hd1194112424_ _hd1192612482_ _hd1192312472_) - (if (gx#stx-pair/null? _tl1192712485_) + (if (gx#stx-pair/null? _tl1192512485_) (let ((___splice3795637957_ (gx#syntax-split-splice - _tl1192712485_ + _tl1192512485_ '0))) (let ((_tl1199912051_ (let () @@ -7129,24 +7186,28 @@ '0)))) (if (gx#stx-null? _tl1199912051_) (___match3810038101_ - _e1191912458_ + _e1192112458_ _hd1192012462_ - _tl1192112465_ - _e1192212468_ + _tl1191912465_ + _e1192412468_ _hd1192312472_ - _tl1192412475_ - _e1192512478_ + _tl1192212475_ + _e1192712478_ _hd1192612482_ - _tl1192712485_ + _tl1192512485_ ___splice3795637957_ _target1199712048_ _tl1199912051_) - (_g1191512011_)))) - (_g1191512011_))))) - (if (gx#stx-pair/null? _tl1192712485_) + (let () + (declare (not safe)) + (_g1191512011_))))) + (let () + (declare (not safe)) + (_g1191512011_)))))) + (if (gx#stx-pair/null? _tl1192512485_) (let ((___splice3795637957_ (gx#syntax-split-splice - _tl1192712485_ + _tl1192512485_ '0))) (let ((_tl1199912051_ (let () @@ -7162,23 +7223,27 @@ '0)))) (if (gx#stx-null? _tl1199912051_) (___match3810038101_ - _e1191912458_ + _e1192112458_ _hd1192012462_ - _tl1192112465_ - _e1192212468_ + _tl1191912465_ + _e1192412468_ _hd1192312472_ - _tl1192412475_ - _e1192512478_ + _tl1192212475_ + _e1192712478_ _hd1192612482_ - _tl1192712485_ + _tl1192512485_ ___splice3795637957_ _target1199712048_ _tl1199912051_) - (_g1191512011_)))) - (_g1191512011_)))))) - (if (gx#stx-pair/null? _tl1192712485_) + (let () + (declare (not safe)) + (_g1191512011_))))) + (let () + (declare (not safe)) + (_g1191512011_))))))) + (if (gx#stx-pair/null? _tl1192512485_) (let ((___splice3795637957_ - (gx#syntax-split-splice _tl1192712485_ '0))) + (gx#syntax-split-splice _tl1192512485_ '0))) (let ((_tl1199912051_ (let () (declare (not safe)) @@ -7189,26 +7254,26 @@ (##vector-ref ___splice3795637957_ '0)))) (if (gx#stx-null? _tl1199912051_) (___match3810038101_ - _e1191912458_ + _e1192112458_ _hd1192012462_ - _tl1192112465_ - _e1192212468_ + _tl1191912465_ + _e1192412468_ _hd1192312472_ - _tl1192412475_ - _e1192512478_ + _tl1192212475_ + _e1192712478_ _hd1192612482_ - _tl1192712485_ + _tl1192512485_ ___splice3795637957_ _target1199712048_ _tl1199912051_) - (_g1191512011_)))) - (_g1191512011_)))))) + (let () (declare (not safe)) (_g1191512011_))))) + (let () (declare (not safe)) (_g1191512011_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl1192712485_) + _tl1192512485_) (let ((___splice3795637957_ (gx#syntax-split-splice - _tl1192712485_ + _tl1192512485_ '0))) (let ((_tl1199912051_ (let () @@ -7227,23 +7292,30 @@ (if (gx#stx-null? _tl1199912051_) (___match3810038101_ - _e1191912458_ + _e1192112458_ _hd1192012462_ - _tl1192112465_ - _e1192212468_ + _tl1191912465_ + _e1192412468_ _hd1192312472_ - _tl1192412475_ - _e1192512478_ + _tl1192212475_ + _e1192712478_ _hd1192612482_ - _tl1192712485_ + _tl1192512485_ ___splice3795637957_ _target1199712048_ _tl1199912051_) - (_g1191512011_)))) - (_g1191512011_)))))) - (_g1191512011_)))) - (_g1191512011_)))) - (_g1191512011_))))))) + (let () + (declare + (not safe)) + (_g1191512011_))))) + (let () + (declare (not safe)) + (_g1191512011_))))))) + (let () + (declare (not safe)) + (_g1191512011_))))) + (let () (declare (not safe)) (_g1191512011_))))) + (let () (declare (not safe)) (_g1191512011_)))))))) (define |gerbil/core$$[:0:]#~case-dispatch-bsearch| (lambda (_stx12510_) (letrec ((_split12513_ @@ -7263,42 +7335,42 @@ (_g1251512870_ (lambda (_g1251712548_) (if (gx#stx-pair? _g1251712548_) - (let ((_e1252112551_ (gx#syntax-e _g1251712548_))) + (let ((_e1252312551_ (gx#syntax-e _g1251712548_))) (let ((_hd1252212555_ (let () (declare (not safe)) - (##car _e1252112551_))) - (_tl1252312558_ + (##car _e1252312551_))) + (_tl1252112558_ (let () (declare (not safe)) - (##cdr _e1252112551_)))) - (if (gx#stx-pair? _tl1252312558_) - (let ((_e1252412561_ - (gx#syntax-e _tl1252312558_))) + (##cdr _e1252312551_)))) + (if (gx#stx-pair? _tl1252112558_) + (let ((_e1252612561_ + (gx#syntax-e _tl1252112558_))) (let ((_hd1252512565_ (let () (declare (not safe)) - (##car _e1252412561_))) - (_tl1252612568_ + (##car _e1252612561_))) + (_tl1252412568_ (let () (declare (not safe)) - (##cdr _e1252412561_)))) - (if (gx#stx-pair? _tl1252612568_) - (let ((_e1252712571_ - (gx#syntax-e _tl1252612568_))) + (##cdr _e1252612561_)))) + (if (gx#stx-pair? _tl1252412568_) + (let ((_e1252912571_ + (gx#syntax-e _tl1252412568_))) (let ((_hd1252812575_ (let () (declare (not safe)) - (##car _e1252712571_))) - (_tl1252912578_ + (##car _e1252912571_))) + (_tl1252712578_ (let () (declare (not safe)) - (##cdr _e1252712571_)))) + (##cdr _e1252912571_)))) (if (gx#stx-pair/null? - _tl1252912578_) + _tl1252712578_) (let ((_g42197_ (gx#syntax-split-splice - _tl1252912578_ + _tl1252712578_ '0))) (begin (let ((_g42198_ @@ -7403,28 +7475,28 @@ (lambda (_g1266512709_) (if (gx#stx-pair? _g1266512709_) - (let ((_e1267012712_ + (let ((_e1267212712_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-e _g1266512709_))) (let ((_hd1267112716_ (let () (declare (not safe)) - (##car _e1267012712_))) - (_tl1267212719_ + (##car _e1267212712_))) + (_tl1267012719_ (let () (declare (not safe)) - (##cdr _e1267012712_)))) - (if (gx#stx-pair? _tl1267212719_) - (let ((_e1267312722_ - (gx#syntax-e _tl1267212719_))) + (##cdr _e1267212712_)))) + (if (gx#stx-pair? _tl1267012719_) + (let ((_e1267512722_ + (gx#syntax-e _tl1267012719_))) (let ((_hd1267412726_ (let () (declare (not safe)) - (##car _e1267312722_))) - (_tl1267512729_ + (##car _e1267512722_))) + (_tl1267312729_ (let () (declare (not safe)) - (##cdr _e1267312722_)))) + (##cdr _e1267512722_)))) (if (gx#stx-pair/null? _hd1267412726_) (let ((_g42201_ (gx#syntax-split-splice @@ -7470,17 +7542,17 @@ _lp-tl1268212755_ (cons _lp-hd1268112752_ _K-left1268312745_)))) (let ((_K-left1268412758_ (reverse _K-left1268312745_))) - (if (gx#stx-pair? _tl1267512729_) - (let ((_e1268512762_ - (gx#syntax-e _tl1267512729_))) + (if (gx#stx-pair? _tl1267312729_) + (let ((_e1268712762_ + (gx#syntax-e _tl1267312729_))) (let ((_hd1268612766_ (let () (declare (not safe)) - (##car _e1268512762_))) - (_tl1268712769_ + (##car _e1268712762_))) + (_tl1268512769_ (let () (declare (not safe)) - (##cdr _e1268512762_)))) + (##cdr _e1268712762_)))) (if (gx#stx-pair/null? _hd1268612766_) (let ((_g42203_ (gx#syntax-split-splice @@ -7527,18 +7599,18 @@ (cons _lp-hd1269312792_ _K-right1269512785_)))) (let ((_K-right1269612798_ (reverse _K-right1269512785_))) - (if (gx#stx-pair? _tl1268712769_) - (let ((_e1269712802_ - (gx#syntax-e _tl1268712769_))) + (if (gx#stx-pair? _tl1268512769_) + (let ((_e1269912802_ + (gx#syntax-e _tl1268512769_))) (let ((_hd1269812806_ (let () (declare (not safe)) - (##car _e1269712802_))) - (_tl1269912809_ + (##car _e1269912802_))) + (_tl1269712809_ (let () (declare (not safe)) - (##cdr _e1269712802_)))) - (if (gx#stx-null? _tl1269912809_) + (##cdr _e1269912802_)))) + (if (gx#stx-null? _tl1269712809_) ((lambda (_L12812_ _L12814_ _L12815_ @@ -7554,19 +7626,19 @@ (cons (cons (gx#datum->syntax '#f '~case-dispatch*) (cons _L12614_ (cons _L12613_ - (foldr (lambda (_g1284912854_ - _g1285012857_) - (cons _g1284912854_ - _g1285012857_)) + (foldr (lambda (_g1285112854_ + _g1285212857_) + (cons _g1285112854_ + _g1285212857_)) '() _L12815_)))) (cons (cons (gx#datum->syntax '#f '~case-dispatch*) (cons _L12812_ (cons _L12613_ - (foldr (lambda (_g1285112860_ - _g1285212863_) - (cons _g1285112860_ - _g1285212863_)) + (foldr (lambda (_g1284912860_ + _g1285012863_) + (cons _g1284912860_ + _g1285012863_)) '() _L12814_)))) '())))))) @@ -7622,26 +7694,26 @@ (_g1289313254_ (lambda (_g1289512969_) (if (gx#stx-pair? _g1289512969_) - (let ((_e1290212972_ (gx#syntax-e _g1289512969_))) + (let ((_e1290412972_ (gx#syntax-e _g1289512969_))) (let ((_hd1290312976_ (let () (declare (not safe)) - (##car _e1290212972_))) - (_tl1290412979_ + (##car _e1290412972_))) + (_tl1290212979_ (let () (declare (not safe)) - (##cdr _e1290212972_)))) - (if (gx#stx-pair? _tl1290412979_) - (let ((_e1290512982_ - (gx#syntax-e _tl1290412979_))) + (##cdr _e1290412972_)))) + (if (gx#stx-pair? _tl1290212979_) + (let ((_e1290712982_ + (gx#syntax-e _tl1290212979_))) (let ((_hd1290612986_ (let () (declare (not safe)) - (##car _e1290512982_))) - (_tl1290712989_ + (##car _e1290712982_))) + (_tl1290512989_ (let () (declare (not safe)) - (##cdr _e1290512982_)))) + (##cdr _e1290712982_)))) (if (gx#stx-pair/null? _hd1290612986_) (let ((_g42205_ (gx#syntax-split-splice @@ -7686,59 +7758,59 @@ (declare (not safe)) (##cdr _e1291213012_)))) (if (gx#stx-pair? _lp-hd1291313016_) - (let ((_e1292113022_ + (let ((_e1292313022_ (gx#syntax-e _lp-hd1291313016_))) (let ((_hd1292213026_ (let () (declare (not safe)) - (##car _e1292113022_))) - (_tl1292313029_ + (##car _e1292313022_))) + (_tl1292113029_ (let () (declare (not safe)) - (##cdr _e1292113022_)))) - (if (gx#stx-pair? _tl1292313029_) - (let ((_e1292413032_ - (gx#syntax-e _tl1292313029_))) + (##cdr _e1292313022_)))) + (if (gx#stx-pair? _tl1292113029_) + (let ((_e1292613032_ + (gx#syntax-e _tl1292113029_))) (let ((_hd1292513036_ (let () (declare (not safe)) - (##car _e1292413032_))) - (_tl1292613039_ + (##car _e1292613032_))) + (_tl1292413039_ (let () (declare (not safe)) - (##cdr _e1292413032_)))) + (##cdr _e1292613032_)))) (if (gx#stx-pair/null? - _tl1292613039_) - (let ((_g42207_ + _tl1292413039_) + (let ((_g42211_ (gx#syntax-split-splice - _tl1292613039_ + _tl1292413039_ '0))) (begin - (let ((_g42208_ + (let ((_g42212_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42207_) - (##vector-length _g42207_) + _g42211_) + (##vector-length _g42211_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42208_ 2))) - (error "Context expects 2 values" _g42208_))) + (if (not (let () (declare (not safe)) (##fx= _g42212_ 2))) + (error "Context expects 2 values" _g42212_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1292713042_ (let () (declare (not safe)) (##vector-ref - _g42207_ + _g42211_ 0))) (_tl1292913045_ (let () (declare (not safe)) (##vector-ref - _g42207_ + _g42211_ 1)))) (if (gx#stx-null? _tl1292913045_) @@ -7778,61 +7850,61 @@ (let ((_step1291813072_ (reverse _step1291513005_)) (_init1291913075_ (reverse _init1291613007_)) (_var1292013077_ (reverse _var1291713009_))) - (if (gx#stx-pair? _tl1290712989_) - (let ((_e1293613080_ - (gx#syntax-e _tl1290712989_))) + (if (gx#stx-pair? _tl1290512989_) + (let ((_e1293813080_ + (gx#syntax-e _tl1290512989_))) (let ((_hd1293713084_ (let () (declare (not safe)) - (##car _e1293613080_))) - (_tl1293813087_ + (##car _e1293813080_))) + (_tl1293613087_ (let () (declare (not safe)) - (##cdr _e1293613080_)))) + (##cdr _e1293813080_)))) (if (gx#stx-pair? _hd1293713084_) - (let ((_e1293913090_ + (let ((_e1294113090_ (gx#syntax-e _hd1293713084_))) (let ((_hd1294013094_ (let () (declare (not safe)) - (##car _e1293913090_))) - (_tl1294113097_ + (##car _e1294113090_))) + (_tl1293913097_ (let () (declare (not safe)) - (##cdr _e1293913090_)))) + (##cdr _e1294113090_)))) (if (gx#stx-pair/null? - _tl1294113097_) - (let ((_g42209_ + _tl1293913097_) + (let ((_g42207_ (gx#syntax-split-splice - _tl1294113097_ + _tl1293913097_ '0))) (begin - (let ((_g42210_ + (let ((_g42208_ (let () (declare (not safe)) (if (##values? - _g42209_) + _g42207_) (##vector-length - _g42209_) + _g42207_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42210_ 2))) - (error "Context expects 2 values" _g42210_))) + (##fx= _g42208_ 2))) + (error "Context expects 2 values" _g42208_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1294213100_ (let () (declare (not safe)) (##vector-ref - _g42209_ + _g42207_ 0))) (_tl1294413103_ (let () (declare (not safe)) (##vector-ref - _g42209_ + _g42207_ 1)))) (if (gx#stx-null? _tl1294413103_) @@ -7856,32 +7928,32 @@ _fini1294913113_)))) (let ((_fini1295013126_ (reverse _fini1294913113_))) - (if (gx#stx-pair/null? _tl1293813087_) - (let ((_g42211_ + (if (gx#stx-pair/null? _tl1293613087_) + (let ((_g42209_ (gx#syntax-split-splice - _tl1293813087_ + _tl1293613087_ '0))) (begin - (let ((_g42212_ + (let ((_g42210_ (let () (declare (not safe)) - (if (##values? _g42211_) + (if (##values? _g42209_) (##vector-length - _g42211_) + _g42209_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42212_ 2))) + (##fx= _g42210_ 2))) (error "Context expects 2 values" - _g42212_))) + _g42210_))) (let ((_target1295113130_ (let () (declare (not safe)) - (##vector-ref _g42211_ 0))) + (##vector-ref _g42209_ 0))) (_tl1295313133_ (let () (declare (not safe)) - (##vector-ref _g42211_ 1)))) + (##vector-ref _g42209_ 1)))) (if (gx#stx-null? _tl1295313133_) (letrec ((_loop1295413136_ (lambda (_hd1295213140_ @@ -7919,12 +7991,12 @@ (gx#syntax-check-splice-targets _L13165_ _L13166_) - (foldr (lambda (_g1320713220_ + (foldr (lambda (_g1321613220_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1320813223_ - _g1320913225_) - (cons (cons _g1320813223_ (cons _g1320713220_ '())) - _g1320913225_)) + _g1321713223_ + _g1321813225_) + (cons (cons _g1321713223_ (cons _g1321613220_ '())) + _g1321813225_)) '() _L13165_ _L13166_)) @@ -7936,36 +8008,36 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'begin) (cons '#!void - (foldr (lambda (_g1321013228_ - _g1321113231_) - (cons _g1321013228_ - _g1321113231_)) + (foldr (lambda (_g1321413228_ + _g1321513231_) + (cons _g1321413228_ + _g1321513231_)) '() _L13162_))) (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_g1321213234_ - _g1321313237_) - (cons _g1321213234_ - _g1321313237_)) + (foldr (lambda (_g1320713234_ + _g1320813237_) + (cons _g1320713234_ + _g1320813237_)) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$loop) (begin (gx#syntax-check-splice-targets _L13164_ _L13166_) - (foldr (lambda (_g1321413240_ - _g1321513243_ - _g1321613245_) + (foldr (lambda (_g1320913240_ + _g1321013243_ + _g1321113245_) (cons (cons (gx#datum->syntax '#f 'begin) - (cons _g1321513243_ - (foldr (lambda (_g1321713248_ + (cons _g1321013243_ + (foldr (lambda (_g1321213248_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1321813251_) - (cons _g1321713248_ _g1321813251_)) + _g1321313251_) + (cons _g1321213248_ _g1321313251_)) '() - _g1321413240_))) + _g1320913240_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1321613245_)) + _g1321113245_)) '() _L13164_ _L13166_))) @@ -8015,49 +8087,49 @@ (_g1326513360_ (lambda (_g1326713293_) (if (gx#stx-pair? _g1326713293_) - (let ((_e1327213296_ (gx#syntax-e _g1326713293_))) + (let ((_e1327413296_ (gx#syntax-e _g1326713293_))) (let ((_hd1327313300_ (let () (declare (not safe)) - (##car _e1327213296_))) - (_tl1327413303_ + (##car _e1327413296_))) + (_tl1327213303_ (let () (declare (not safe)) - (##cdr _e1327213296_)))) - (if (gx#stx-pair? _tl1327413303_) - (let ((_e1327513306_ - (gx#syntax-e _tl1327413303_))) + (##cdr _e1327413296_)))) + (if (gx#stx-pair? _tl1327213303_) + (let ((_e1327713306_ + (gx#syntax-e _tl1327213303_))) (let ((_hd1327613310_ (let () (declare (not safe)) - (##car _e1327513306_))) - (_tl1327713313_ + (##car _e1327713306_))) + (_tl1327513313_ (let () (declare (not safe)) - (##cdr _e1327513306_)))) - (if (gx#stx-pair? _tl1327713313_) - (let ((_e1327813316_ - (gx#syntax-e _tl1327713313_))) + (##cdr _e1327713306_)))) + (if (gx#stx-pair? _tl1327513313_) + (let ((_e1328013316_ + (gx#syntax-e _tl1327513313_))) (let ((_hd1327913320_ (let () (declare (not safe)) - (##car _e1327813316_))) - (_tl1328013323_ + (##car _e1328013316_))) + (_tl1327813323_ (let () (declare (not safe)) - (##cdr _e1327813316_)))) + (##cdr _e1328013316_)))) (if (gx#stx-pair? _hd1327913320_) - (let ((_e1328113326_ + (let ((_e1328313326_ (gx#syntax-e _hd1327913320_))) (let ((_hd1328213330_ (let () (declare (not safe)) - (##car _e1328113326_))) - (_tl1328313333_ + (##car _e1328313326_))) + (_tl1328113333_ (let () (declare (not safe)) - (##cdr _e1328113326_)))) + (##cdr _e1328313326_)))) ((lambda (_L13336_ _L13338_ _L13339_ @@ -8072,8 +8144,8 @@ _L13338_) _L13336_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl1328013323_ - _tl1328313333_ + _tl1327813323_ + _tl1328113333_ _hd1328213330_ _hd1327613310_))) (_g1326613289_ _g1326713293_)))) @@ -8111,12 +8183,12 @@ (cons (gx#datum->syntax '#f '$r) '()))))))) (let ((___match3814638147_ - (lambda (_e1338013407_ + (lambda (_e1338213407_ _hd1338113411_ - _tl1338213414_ - _e1338313417_ + _tl1338013414_ + _e1338513417_ _hd1338413421_ - _tl1338513424_ + _tl1338313424_ ___splice3811038111_ _target1338613427_ _tl1338813430_) @@ -8144,29 +8216,29 @@ _hd1338413421_)))))) (_loop1338913433_ _target1338613427_ '()))))) (if (gx#stx-pair? ___stx3810338104_) - (let ((_e1337213492_ (gx#syntax-e ___stx3810338104_))) - (let ((_tl1337413499_ - (let () (declare (not safe)) (##cdr _e1337213492_))) + (let ((_e1337413492_ (gx#syntax-e ___stx3810338104_))) + (let ((_tl1337213499_ + (let () (declare (not safe)) (##cdr _e1337413492_))) (_hd1337313496_ (let () (declare (not safe)) - (##car _e1337213492_)))) - (if (gx#stx-pair? _tl1337413499_) - (let ((_e1337513502_ (gx#syntax-e _tl1337413499_))) - (let ((_tl1337713509_ + (##car _e1337413492_)))) + (if (gx#stx-pair? _tl1337213499_) + (let ((_e1337713502_ (gx#syntax-e _tl1337213499_))) + (let ((_tl1337513509_ (let () (declare (not safe)) - (##cdr _e1337513502_))) + (##cdr _e1337713502_))) (_hd1337613506_ (let () (declare (not safe)) - (##car _e1337513502_)))) - (if (gx#stx-null? _tl1337713509_) + (##car _e1337713502_)))) + (if (gx#stx-null? _tl1337513509_) (___kont3810638107_ _hd1337613506_) - (if (gx#stx-pair/null? _tl1337713509_) + (if (gx#stx-pair/null? _tl1337513509_) (let ((___splice3811038111_ (gx#syntax-split-splice - _tl1337713509_ + _tl1337513509_ '0))) (let ((_tl1338813430_ (let () @@ -8182,19 +8254,23 @@ '0)))) (if (gx#stx-null? _tl1338813430_) (___match3814638147_ - _e1337213492_ + _e1337413492_ _hd1337313496_ - _tl1337413499_ - _e1337513502_ + _tl1337213499_ + _e1337713502_ _hd1337613506_ - _tl1337713509_ + _tl1337513509_ ___splice3811038111_ _target1338613427_ _tl1338813430_) - (_g1336913400_)))) - (_g1336913400_))))) - (_g1336913400_)))) - (_g1336913400_))))))) + (let () + (declare (not safe)) + (_g1336913400_))))) + (let () + (declare (not safe)) + (_g1336913400_)))))) + (let () (declare (not safe)) (_g1336913400_))))) + (let () (declare (not safe)) (_g1336913400_)))))))) (define |gerbil/core$$[:0:]#rec| (lambda (_$stx13530_) (let* ((___stx3814938150_ _$stx13530_) @@ -8235,15 +8311,15 @@ '()) (cons _L13659_ '())))))) (let* ((___match3823638237_ - (lambda (_e1356613596_ + (lambda (_e1356813596_ _hd1356713600_ - _tl1356813603_ - _e1356913606_ + _tl1356613603_ + _e1357113606_ _hd1357013610_ - _tl1357113613_ - _e1357213616_ + _tl1356913613_ + _e1357413616_ _hd1357313620_ - _tl1357413623_ + _tl1357213623_ ___splice3815838159_ _target1357513626_ _tl1357713629_) @@ -8267,36 +8343,38 @@ (let ((_body1358313652_ (reverse _body1358213639_))) (let ((_L13656_ _body1358313652_) - (_L13658_ _tl1357413623_) + (_L13658_ _tl1357213623_) (_L13659_ _hd1357313620_)) (if (gx#identifier? _L13659_) (___kont3815638157_ _L13656_ _L13658_ _L13659_) - (_g1353613589_)))))))) + (let () + (declare (not safe)) + (_g1353613589_))))))))) (_loop1357813632_ _target1357513626_ '())))) (___match3821038211_ - (lambda (_e1355113695_ + (lambda (_e1355313695_ _hd1355213699_ - _tl1355313702_ - _e1355413705_ + _tl1355113702_ + _e1355613705_ _hd1355513709_ - _tl1355613712_ - _e1355713715_ + _tl1355413712_ + _e1355913715_ _hd1355813719_ - _tl1355913722_ - _e1356013725_ + _tl1355713722_ + _e1356213725_ _hd1356113729_ - _tl1356213732_) + _tl1356013732_) (let ((_L13735_ _hd1356113729_) - (_L13737_ _tl1355913722_)) + (_L13737_ _tl1355713722_)) (if (gx#identifier-list? _L13737_) (___kont3815438155_ _L13735_ _L13737_) - (if (gx#stx-pair/null? _tl1355613712_) + (if (gx#stx-pair/null? _tl1355413712_) (let ((___splice3815838159_ (gx#syntax-split-splice - _tl1355613712_ + _tl1355413712_ '0))) (let ((_tl1357713629_ (let () @@ -8312,67 +8390,71 @@ '0)))) (if (gx#stx-null? _tl1357713629_) (___match3823638237_ - _e1355113695_ + _e1355313695_ _hd1355213699_ - _tl1355313702_ - _e1355413705_ + _tl1355113702_ + _e1355613705_ _hd1355513709_ - _tl1355613712_ - _e1355713715_ + _tl1355413712_ + _e1355913715_ _hd1355813719_ - _tl1355913722_ + _tl1355713722_ ___splice3815838159_ _target1357513626_ _tl1357713629_) - (_g1353613589_)))) - (_g1353613589_)))))) + (let () + (declare (not safe)) + (_g1353613589_))))) + (let () + (declare (not safe)) + (_g1353613589_))))))) (___match3818038181_ - (lambda (_e1354013761_ + (lambda (_e1354213761_ _hd1354113765_ - _tl1354213768_ - _e1354313771_ + _tl1354013768_ + _e1354513771_ _hd1354413775_ - _tl1354513778_ - _e1354613781_ + _tl1354313778_ + _e1354813781_ _hd1354713785_ - _tl1354813788_) + _tl1354613788_) (let ((_L13791_ _hd1354713785_) (_L13793_ _hd1354413775_)) (if (gx#identifier? _L13793_) (___kont3815238153_ _L13791_ _L13793_) (if (gx#stx-pair? _hd1354413775_) - (let ((_e1355713715_ + (let ((_e1355913715_ (gx#syntax-e _hd1354413775_))) - (let ((_tl1355913722_ + (let ((_tl1355713722_ (let () (declare (not safe)) - (##cdr _e1355713715_))) + (##cdr _e1355913715_))) (_hd1355813719_ (let () (declare (not safe)) - (##car _e1355713715_)))) + (##car _e1355913715_)))) (if (gx#identifier? _hd1355813719_) (if (gx#free-identifier=? |gerbil/core$$[1]#_g42213_| _hd1355813719_) (___match3821038211_ - _e1354013761_ + _e1354213761_ _hd1354113765_ - _tl1354213768_ - _e1354313771_ + _tl1354013768_ + _e1354513771_ _hd1354413775_ - _tl1354513778_ - _e1355713715_ + _tl1354313778_ + _e1355913715_ _hd1355813719_ - _tl1355913722_ - _e1354613781_ + _tl1355713722_ + _e1354813781_ _hd1354713785_ - _tl1354813788_) + _tl1354613788_) (if (gx#stx-pair/null? - _tl1354513778_) + _tl1354313778_) (let ((___splice3815838159_ (gx#syntax-split-splice - _tl1354513778_ + _tl1354313778_ '0))) (let ((_tl1357713629_ (let () @@ -8389,24 +8471,28 @@ (if (gx#stx-null? _tl1357713629_) (___match3823638237_ - _e1354013761_ + _e1354213761_ _hd1354113765_ - _tl1354213768_ - _e1354313771_ + _tl1354013768_ + _e1354513771_ _hd1354413775_ - _tl1354513778_ - _e1355713715_ + _tl1354313778_ + _e1355913715_ _hd1355813719_ - _tl1355913722_ + _tl1355713722_ ___splice3815838159_ _target1357513626_ _tl1357713629_) - (_g1353613589_)))) - (_g1353613589_))) - (if (gx#stx-pair/null? _tl1354513778_) + (let () + (declare (not safe)) + (_g1353613589_))))) + (let () + (declare (not safe)) + (_g1353613589_)))) + (if (gx#stx-pair/null? _tl1354313778_) (let ((___splice3815838159_ (gx#syntax-split-splice - _tl1354513778_ + _tl1354313778_ '0))) (let ((_tl1357713629_ (let () @@ -8423,78 +8509,84 @@ (if (gx#stx-null? _tl1357713629_) (___match3823638237_ - _e1354013761_ + _e1354213761_ _hd1354113765_ - _tl1354213768_ - _e1354313771_ + _tl1354013768_ + _e1354513771_ _hd1354413775_ - _tl1354513778_ - _e1355713715_ + _tl1354313778_ + _e1355913715_ _hd1355813719_ - _tl1355913722_ + _tl1355713722_ ___splice3815838159_ _target1357513626_ _tl1357713629_) - (_g1353613589_)))) - (_g1353613589_))))) - (_g1353613589_))))))) + (let () + (declare (not safe)) + (_g1353613589_))))) + (let () + (declare (not safe)) + (_g1353613589_)))))) + (let () + (declare (not safe)) + (_g1353613589_)))))))) (if (gx#stx-pair? ___stx3814938150_) - (let ((_e1354013761_ (gx#syntax-e ___stx3814938150_))) - (let ((_tl1354213768_ - (let () (declare (not safe)) (##cdr _e1354013761_))) + (let ((_e1354213761_ (gx#syntax-e ___stx3814938150_))) + (let ((_tl1354013768_ + (let () (declare (not safe)) (##cdr _e1354213761_))) (_hd1354113765_ (let () (declare (not safe)) - (##car _e1354013761_)))) - (if (gx#stx-pair? _tl1354213768_) - (let ((_e1354313771_ (gx#syntax-e _tl1354213768_))) - (let ((_tl1354513778_ + (##car _e1354213761_)))) + (if (gx#stx-pair? _tl1354013768_) + (let ((_e1354513771_ (gx#syntax-e _tl1354013768_))) + (let ((_tl1354313778_ (let () (declare (not safe)) - (##cdr _e1354313771_))) + (##cdr _e1354513771_))) (_hd1354413775_ (let () (declare (not safe)) - (##car _e1354313771_)))) - (if (gx#stx-pair? _tl1354513778_) - (let ((_e1354613781_ - (gx#syntax-e _tl1354513778_))) - (let ((_tl1354813788_ + (##car _e1354513771_)))) + (if (gx#stx-pair? _tl1354313778_) + (let ((_e1354813781_ + (gx#syntax-e _tl1354313778_))) + (let ((_tl1354613788_ (let () (declare (not safe)) - (##cdr _e1354613781_))) + (##cdr _e1354813781_))) (_hd1354713785_ (let () (declare (not safe)) - (##car _e1354613781_)))) - (if (gx#stx-null? _tl1354813788_) + (##car _e1354813781_)))) + (if (gx#stx-null? _tl1354613788_) (___match3818038181_ - _e1354013761_ + _e1354213761_ _hd1354113765_ - _tl1354213768_ - _e1354313771_ + _tl1354013768_ + _e1354513771_ _hd1354413775_ - _tl1354513778_ - _e1354613781_ + _tl1354313778_ + _e1354813781_ _hd1354713785_ - _tl1354813788_) + _tl1354613788_) (if (gx#stx-pair? _hd1354413775_) - (let ((_e1355713715_ + (let ((_e1355913715_ (gx#syntax-e _hd1354413775_))) - (let ((_tl1355913722_ + (let ((_tl1355713722_ (let () (declare (not safe)) - (##cdr _e1355713715_))) + (##cdr _e1355913715_))) (_hd1355813719_ (let () (declare (not safe)) - (##car _e1355713715_)))) + (##car _e1355913715_)))) (if (gx#stx-pair/null? - _tl1354513778_) + _tl1354313778_) (let ((___splice3815838159_ (gx#syntax-split-splice - _tl1354513778_ + _tl1354313778_ '0))) (let ((_tl1357713629_ (let () @@ -8507,38 +8599,40 @@ (##vector-ref ___splice3815838159_ '0)))) (if (gx#stx-null? _tl1357713629_) (___match3823638237_ - _e1354013761_ + _e1354213761_ _hd1354113765_ - _tl1354213768_ - _e1354313771_ + _tl1354013768_ + _e1354513771_ _hd1354413775_ - _tl1354513778_ - _e1355713715_ + _tl1354313778_ + _e1355913715_ _hd1355813719_ - _tl1355913722_ + _tl1355713722_ ___splice3815838159_ _target1357513626_ _tl1357713629_) - (_g1353613589_)))) - (_g1353613589_)))) + (let () (declare (not safe)) (_g1353613589_))))) + (let () (declare (not safe)) (_g1353613589_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1353613589_))))) + (let () + (declare (not safe)) + (_g1353613589_)))))) (if (gx#stx-pair? _hd1354413775_) - (let ((_e1355713715_ + (let ((_e1355913715_ (gx#syntax-e _hd1354413775_))) - (let ((_tl1355913722_ + (let ((_tl1355713722_ (let () (declare (not safe)) - (##cdr _e1355713715_))) + (##cdr _e1355913715_))) (_hd1355813719_ (let () (declare (not safe)) - (##car _e1355713715_)))) + (##car _e1355913715_)))) (if (gx#stx-pair/null? - _tl1354513778_) + _tl1354313778_) (let ((___splice3815838159_ (gx#syntax-split-splice - _tl1354513778_ + _tl1354313778_ '0))) (let ((_tl1357713629_ (let () @@ -8555,23 +8649,29 @@ (if (gx#stx-null? _tl1357713629_) (___match3823638237_ - _e1354013761_ + _e1354213761_ _hd1354113765_ - _tl1354213768_ - _e1354313771_ + _tl1354013768_ + _e1354513771_ _hd1354413775_ - _tl1354513778_ - _e1355713715_ + _tl1354313778_ + _e1355913715_ _hd1355813719_ - _tl1355913722_ + _tl1355713722_ ___splice3815838159_ _target1357513626_ _tl1357713629_) - (_g1353613589_)))) - (_g1353613589_)))) - (_g1353613589_))))) - (_g1353613589_)))) - (_g1353613589_))))))) + (let () + (declare (not safe)) + (_g1353613589_))))) + (let () + (declare (not safe)) + (_g1353613589_))))) + (let () + (declare (not safe)) + (_g1353613589_)))))) + (let () (declare (not safe)) (_g1353613589_))))) + (let () (declare (not safe)) (_g1353613589_)))))))) (define |gerbil/core$$[:0:]#alet| (lambda (_stx13813_) (letrec ((_let-bind?13816_ @@ -8589,33 +8689,33 @@ (___kont3824438245_ (lambda (_L14791_) '#t)) (___kont3824638247_ (lambda () '#f))) (if (gx#stx-pair? ___stx3823938240_) - (let ((_e1474814811_ + (let ((_e1475014811_ (gx#syntax-e ___stx3823938240_))) - (let ((_tl1475014818_ + (let ((_tl1474814818_ (let () (declare (not safe)) - (##cdr _e1474814811_))) + (##cdr _e1475014811_))) (_hd1474914815_ (let () (declare (not safe)) - (##car _e1474814811_)))) - (if (gx#stx-pair? _tl1475014818_) - (let ((_e1475114821_ - (gx#syntax-e _tl1475014818_))) - (let ((_tl1475314828_ + (##car _e1475014811_)))) + (if (gx#stx-pair? _tl1474814818_) + (let ((_e1475314821_ + (gx#syntax-e _tl1474814818_))) + (let ((_tl1475114828_ (let () (declare (not safe)) - (##cdr _e1475114821_))) + (##cdr _e1475314821_))) (_hd1475214825_ (let () (declare (not safe)) - (##car _e1475114821_)))) - (if (gx#stx-null? _tl1475314828_) + (##car _e1475314821_)))) + (if (gx#stx-null? _tl1475114828_) (___kont3824238243_ _hd1475214825_ _hd1474914815_) (___kont3824638247_)))) - (if (gx#stx-null? _tl1475014818_) + (if (gx#stx-null? _tl1474814818_) (___kont3824438245_ _hd1474914815_) (___kont3824638247_))))) (___kont3824638247_)))))) @@ -8635,36 +8735,40 @@ (cons (gx#datum->syntax '#f '_) (cons _L14681_ '()))))) (if (gx#stx-pair? ___stx3827338274_) - (let ((_e1464914700_ + (let ((_e1465114700_ (gx#syntax-e ___stx3827338274_))) - (let ((_tl1465114707_ + (let ((_tl1464914707_ (let () (declare (not safe)) - (##cdr _e1464914700_))) + (##cdr _e1465114700_))) (_hd1465014704_ (let () (declare (not safe)) - (##car _e1464914700_)))) - (if (gx#stx-pair? _tl1465114707_) - (let ((_e1465214710_ - (gx#syntax-e _tl1465114707_))) - (let ((_tl1465414717_ + (##car _e1465114700_)))) + (if (gx#stx-pair? _tl1464914707_) + (let ((_e1465414710_ + (gx#syntax-e _tl1464914707_))) + (let ((_tl1465214717_ (let () (declare (not safe)) - (##cdr _e1465214710_))) + (##cdr _e1465414710_))) (_hd1465314714_ (let () (declare (not safe)) - (##car _e1465214710_)))) - (if (gx#stx-null? _tl1465414717_) + (##car _e1465414710_)))) + (if (gx#stx-null? _tl1465214717_) (___kont3827638277_ _hd1465314714_ _hd1465014704_) - (_g1464514664_)))) - (if (gx#stx-null? _tl1465114707_) + (let () + (declare (not safe)) + (_g1464514664_))))) + (if (gx#stx-null? _tl1464914707_) (___kont3827838279_ _hd1465014704_) - (_g1464514664_))))) - (_g1464514664_)))))) + (let () + (declare (not safe)) + (_g1464514664_)))))) + (let () (declare (not safe)) (_g1464514664_))))))) (_let-head?13819_ (lambda (_x14581_) (let* ((___stx3830538306_ _x14581_) @@ -8680,21 +8784,21 @@ (___kont3831038311_ (lambda () (gx#identifier? _x14581_)))) (if (gx#stx-pair? ___stx3830538306_) - (let ((_e1458814614_ + (let ((_e1459014614_ (gx#syntax-e ___stx3830538306_))) - (let ((_tl1459014621_ + (let ((_tl1458814621_ (let () (declare (not safe)) - (##cdr _e1458814614_))) + (##cdr _e1459014614_))) (_hd1458914618_ (let () (declare (not safe)) - (##car _e1458814614_)))) + (##car _e1459014614_)))) (if (gx#identifier? _hd1458914618_) (if (gx#free-identifier=? |gerbil/core$$[1]#_g42214_| _hd1458914618_) - (___kont3830838309_ _tl1459014621_) + (___kont3830838309_ _tl1458814621_) (___kont3831038311_)) (___kont3831038311_)))) (___kont3831038311_)))))) @@ -8710,21 +8814,21 @@ (let ((___kont3832838329_ (lambda (_L14564_) _L14564_)) (___kont3833038331_ (lambda () (list _x14521_)))) (if (gx#stx-pair? ___stx3832538326_) - (let ((_e1452814554_ + (let ((_e1453014554_ (gx#syntax-e ___stx3832538326_))) - (let ((_tl1453014561_ + (let ((_tl1452814561_ (let () (declare (not safe)) - (##cdr _e1452814554_))) + (##cdr _e1453014554_))) (_hd1452914558_ (let () (declare (not safe)) - (##car _e1452814554_)))) + (##car _e1453014554_)))) (if (gx#identifier? _hd1452914558_) (if (gx#free-identifier=? |gerbil/core$$[1]#_g42215_| _hd1452914558_) - (___kont3832838329_ _tl1453014561_) + (___kont3832838329_ _tl1452814561_) (___kont3833038331_)) (___kont3833038331_)))) (___kont3833038331_))))))) @@ -8808,28 +8912,28 @@ (declare (not safe)) (##cdr _e1402414067_)))) (if (gx#stx-pair? _lp-hd1402514071_) - (let ((_e1403114077_ + (let ((_e1403314077_ (gx#syntax-e _lp-hd1402514071_))) (let ((_hd1403214081_ (let () (declare (not safe)) - (##car _e1403114077_))) - (_tl1403314084_ + (##car _e1403314077_))) + (_tl1403114084_ (let () (declare (not safe)) - (##cdr _e1403114077_)))) - (if (gx#stx-pair? _tl1403314084_) - (let ((_e1403414087_ - (gx#syntax-e _tl1403314084_))) + (##cdr _e1403314077_)))) + (if (gx#stx-pair? _tl1403114084_) + (let ((_e1403614087_ + (gx#syntax-e _tl1403114084_))) (let ((_hd1403514091_ (let () (declare (not safe)) - (##car _e1403414087_))) - (_tl1403614094_ + (##car _e1403614087_))) + (_tl1403414094_ (let () (declare (not safe)) - (##cdr _e1403414087_)))) - (if (gx#stx-null? _tl1403614094_) + (##cdr _e1403614087_)))) + (if (gx#stx-null? _tl1403414094_) (_loop1402314055_ _lp-tl1402614074_ (cons _hd1403514091_ @@ -8976,19 +9080,19 @@ (gx#syntax-check-splice-targets _L14103_ _L14175_) - (foldr (lambda (_g1426414275_ + (foldr (lambda (_g1427114275_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1426514278_ - _g1426614280_) - (cons (cons (cons _g1426514278_ '()) - (cons _g1426414275_ '())) - _g1426614280_)) + _g1427214278_ + _g1427314280_) + (cons (cons (cons _g1427214278_ '()) + (cons _g1427114275_ '())) + _g1427314280_)) '() _L14103_ _L14175_)) (cons (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_g1426714283_ _g1426814286_) - (cons _g1426714283_ _g1426814286_)) + (foldr (lambda (_g1426414283_ _g1426514286_) + (cons _g1426414283_ _g1426514286_)) (cons (cons (gx#datum->syntax '#f 'let-values) @@ -8996,20 +9100,20 @@ (gx#syntax-check-splice-targets _L14175_ _L14246_) - (foldr (lambda (_g1426914289_ + (foldr (lambda (_g1426814289_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1427014292_ - _g1427114294_) - (cons (cons _g1427014292_ (cons _g1426914289_ '())) - _g1427114294_)) + _g1426914292_ + _g1427014294_) + (cons (cons _g1426914292_ (cons _g1426814289_ '())) + _g1427014294_)) '() _L14175_ _L14246_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_g1427214297_ + (foldr (lambda (_g1426614297_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1427314300_) - (cons _g1427214297_ _g1427314300_)) + _g1426714300_) + (cons _g1426614297_ _g1426714300_)) '() _L13983_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -9061,12 +9165,12 @@ '() _L13985_))))))) (let* ((___match3844238443_ - (lambda (_e1386713903_ + (lambda (_e1386913903_ _hd1386813907_ - _tl1386913910_ - _e1387013913_ + _tl1386713910_ + _e1387213913_ _hd1387113917_ - _tl1387213920_ + _tl1387013920_ ___splice3835638357_ _target1387313923_ _tl1387513926_) @@ -9090,10 +9194,10 @@ (let ((_bind1388113949_ (reverse _bind1388013936_))) (if (gx#stx-pair/null? - _tl1387213920_) + _tl1387013920_) (let ((___splice3835838359_ (gx#syntax-split-splice - _tl1387213920_ + _tl1387013920_ '0))) (let ((_tl1388413956_ (let () @@ -9140,25 +9244,29 @@ '() _L13985_)) (___kont3835438355_ _L13983_ _L13985_) - (_g1382413896_)))))))) + (let () + (declare (not safe)) + (_g1382413896_))))))))) (_loop1388513959_ _target1388213953_ '())) - (_g1382413896_)))) + (let () (declare (not safe)) (_g1382413896_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1382413896_))))))) + (let () + (declare (not safe)) + (_g1382413896_)))))))) (_loop1387613929_ _target1387313923_ '())))) (___match3842238423_ - (lambda (_e1384414346_ + (lambda (_e1384614346_ _hd1384514350_ - _tl1384614353_ - _e1384714356_ + _tl1384414353_ + _e1384914356_ _hd1384814360_ - _tl1384914363_ - _e1385014366_ + _tl1384714363_ + _e1385214366_ _hd1385114370_ - _tl1385214373_ - _e1385314376_ + _tl1385014373_ + _e1385514376_ _hd1385414380_ - _tl1385514383_ + _tl1385314383_ ___splice3835238353_ _target1385614386_ _tl1385814389_) @@ -9186,19 +9294,19 @@ _hd1385414380_)))))) (_loop1385914392_ _target1385614386_ '())))) (___match3838638387_ - (lambda (_e1383014454_ + (lambda (_e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ - _e1383614474_ + _tl1383314471_ + _e1383814474_ _hd1383714478_ - _tl1383814481_ - _e1383914484_ + _tl1383614481_ + _e1384114484_ _hd1384014488_ - _tl1384114491_) - (let ((_L14494_ _tl1383514471_) + _tl1383914491_) + (let ((_L14494_ _tl1383314471_) (_L14496_ _hd1384014488_) (_L14497_ _hd1383714478_) (_L14498_ _hd1383114458_)) @@ -9209,16 +9317,16 @@ _L14497_ _L14498_) (if (gx#stx-pair? _hd1383714478_) - (let ((_e1385314376_ + (let ((_e1385514376_ (gx#syntax-e _hd1383714478_))) - (let ((_tl1385514383_ + (let ((_tl1385314383_ (let () (declare (not safe)) - (##cdr _e1385314376_))) + (##cdr _e1385514376_))) (_hd1385414380_ (let () (declare (not safe)) - (##car _e1385314376_)))) + (##car _e1385514376_)))) (if (gx#stx-pair/null? _hd1383414468_) (let ((___splice3835638357_ (gx#syntax-split-splice @@ -9238,17 +9346,21 @@ '0)))) (if (gx#stx-null? _tl1387513926_) (___match3844238443_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ + _tl1383314471_ ___splice3835638357_ _target1387313923_ _tl1387513926_) - (_g1382413896_)))) - (_g1382413896_)))) + (let () + (declare (not safe)) + (_g1382413896_))))) + (let () + (declare (not safe)) + (_g1382413896_))))) (if (gx#stx-pair/null? _hd1383414468_) (let ((___splice3835638357_ (gx#syntax-split-splice @@ -9268,85 +9380,89 @@ '0)))) (if (gx#stx-null? _tl1387513926_) (___match3844238443_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ + _tl1383314471_ ___splice3835638357_ _target1387313923_ _tl1387513926_) - (_g1382413896_)))) - (_g1382413896_)))))))) + (let () + (declare (not safe)) + (_g1382413896_))))) + (let () + (declare (not safe)) + (_g1382413896_))))))))) (if (gx#stx-pair? ___stx3834538346_) - (let ((_e1383014454_ (gx#syntax-e ___stx3834538346_))) - (let ((_tl1383214461_ + (let ((_e1383214454_ (gx#syntax-e ___stx3834538346_))) + (let ((_tl1383014461_ (let () (declare (not safe)) - (##cdr _e1383014454_))) + (##cdr _e1383214454_))) (_hd1383114458_ (let () (declare (not safe)) - (##car _e1383014454_)))) - (if (gx#stx-pair? _tl1383214461_) - (let ((_e1383314464_ (gx#syntax-e _tl1383214461_))) - (let ((_tl1383514471_ + (##car _e1383214454_)))) + (if (gx#stx-pair? _tl1383014461_) + (let ((_e1383514464_ (gx#syntax-e _tl1383014461_))) + (let ((_tl1383314471_ (let () (declare (not safe)) - (##cdr _e1383314464_))) + (##cdr _e1383514464_))) (_hd1383414468_ (let () (declare (not safe)) - (##car _e1383314464_)))) + (##car _e1383514464_)))) (if (gx#stx-pair? _hd1383414468_) - (let ((_e1383614474_ + (let ((_e1383814474_ (gx#syntax-e _hd1383414468_))) - (let ((_tl1383814481_ + (let ((_tl1383614481_ (let () (declare (not safe)) - (##cdr _e1383614474_))) + (##cdr _e1383814474_))) (_hd1383714478_ (let () (declare (not safe)) - (##car _e1383614474_)))) - (if (gx#stx-pair? _tl1383814481_) - (let ((_e1383914484_ + (##car _e1383814474_)))) + (if (gx#stx-pair? _tl1383614481_) + (let ((_e1384114484_ (gx#syntax-e - _tl1383814481_))) - (let ((_tl1384114491_ + _tl1383614481_))) + (let ((_tl1383914491_ (let () (declare (not safe)) - (##cdr _e1383914484_))) + (##cdr _e1384114484_))) (_hd1384014488_ (let () (declare (not safe)) - (##car _e1383914484_)))) + (##car _e1384114484_)))) (if (gx#stx-null? - _tl1384114491_) + _tl1383914491_) (___match3838638387_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ - _e1383614474_ + _tl1383314471_ + _e1383814474_ _hd1383714478_ - _tl1383814481_ - _e1383914484_ + _tl1383614481_ + _e1384114484_ _hd1384014488_ - _tl1384114491_) + _tl1383914491_) (if (gx#stx-pair? _hd1383714478_) - (let ((_e1385314376_ + (let ((_e1385514376_ (gx#syntax-e _hd1383714478_))) - (let ((_tl1385514383_ + (let ((_tl1385314383_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e1385314376_))) + (let () (declare (not safe)) (##cdr _e1385514376_))) (_hd1385414380_ - (let () (declare (not safe)) (##car _e1385314376_)))) + (let () (declare (not safe)) (##car _e1385514376_)))) (if (gx#stx-pair/null? _hd1383414468_) (let ((___splice3835638357_ (gx#syntax-split-splice _hd1383414468_ '0))) @@ -9360,17 +9476,19 @@ (##vector-ref ___splice3835638357_ '0)))) (if (gx#stx-null? _tl1387513926_) (___match3844238443_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ + _tl1383314471_ ___splice3835638357_ _target1387313923_ _tl1387513926_) - (_g1382413896_)))) - (_g1382413896_)))) + (let () + (declare (not safe)) + (_g1382413896_))))) + (let () (declare (not safe)) (_g1382413896_))))) (if (gx#stx-pair/null? _hd1383414468_) (let ((___splice3835638357_ (gx#syntax-split-splice _hd1383414468_ '0))) @@ -9384,39 +9502,39 @@ (##vector-ref ___splice3835638357_ '0)))) (if (gx#stx-null? _tl1387513926_) (___match3844238443_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ + _tl1383314471_ ___splice3835638357_ _target1387313923_ _tl1387513926_) - (_g1382413896_)))) - (_g1382413896_)))))) + (let () (declare (not safe)) (_g1382413896_))))) + (let () (declare (not safe)) (_g1382413896_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? _hd1383714478_) - (let ((_e1385314376_ + (let ((_e1385514376_ (gx#syntax-e _hd1383714478_))) - (let ((_tl1385514383_ + (let ((_tl1385314383_ (let () (declare (not safe)) - (##cdr _e1385314376_))) + (##cdr _e1385514376_))) (_hd1385414380_ (let () (declare (not safe)) - (##car _e1385314376_)))) + (##car _e1385514376_)))) (if (gx#stx-null? - _tl1385514383_) + _tl1385314383_) (if (gx#stx-null? - _tl1383814481_) + _tl1383614481_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1383514471_) + _tl1383314471_) (let ((___splice3835238353_ - (gx#syntax-split-splice _tl1383514471_ '0))) + (gx#syntax-split-splice _tl1383314471_ '0))) (let ((_tl1385814389_ (let () (declare (not safe)) @@ -9427,18 +9545,18 @@ (##vector-ref ___splice3835238353_ '0)))) (if (gx#stx-null? _tl1385814389_) (___match3842238423_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ - _e1383614474_ + _tl1383314471_ + _e1383814474_ _hd1383714478_ - _tl1383814481_ - _e1385314376_ + _tl1383614481_ + _e1385514376_ _hd1385414380_ - _tl1385514383_ + _tl1385314383_ ___splice3835238353_ _target1385614386_ _tl1385814389_) @@ -9461,17 +9579,21 @@ '0)))) (if (gx#stx-null? _tl1387513926_) (___match3844238443_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ + _tl1383314471_ ___splice3835638357_ _target1387313923_ _tl1387513926_) - (_g1382413896_)))) - (_g1382413896_))))) + (let () + (declare (not safe)) + (_g1382413896_))))) + (let () + (declare (not safe)) + (_g1382413896_)))))) (if (gx#stx-pair/null? _hd1383414468_) (let ((___splice3835638357_ (gx#syntax-split-splice _hd1383414468_ '0))) @@ -9487,17 +9609,19 @@ '0)))) (if (gx#stx-null? _tl1387513926_) (___match3844238443_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ + _tl1383314471_ ___splice3835638357_ _target1387313923_ _tl1387513926_) - (_g1382413896_)))) - (_g1382413896_))) + (let () + (declare (not safe)) + (_g1382413896_))))) + (let () (declare (not safe)) (_g1382413896_)))) (if (gx#stx-pair/null? _hd1383414468_) (let ((___splice3835638357_ (gx#syntax-split-splice _hd1383414468_ '0))) @@ -9511,17 +9635,19 @@ (##vector-ref ___splice3835638357_ '0)))) (if (gx#stx-null? _tl1387513926_) (___match3844238443_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ + _tl1383314471_ ___splice3835638357_ _target1387313923_ _tl1387513926_) - (_g1382413896_)))) - (_g1382413896_))) + (let () + (declare (not safe)) + (_g1382413896_))))) + (let () (declare (not safe)) (_g1382413896_)))) (if (gx#stx-pair/null? _hd1383414468_) (let ((___splice3835638357_ (gx#syntax-split-splice _hd1383414468_ '0))) @@ -9535,17 +9661,17 @@ (##vector-ref ___splice3835638357_ '0)))) (if (gx#stx-null? _tl1387513926_) (___match3844238443_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ + _tl1383314471_ ___splice3835638357_ _target1387313923_ _tl1387513926_) - (_g1382413896_)))) - (_g1382413896_))))) + (let () (declare (not safe)) (_g1382413896_))))) + (let () (declare (not safe)) (_g1382413896_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1383414468_) @@ -9565,18 +9691,20 @@ (##vector-ref ___splice3835638357_ '0)))) (if (gx#stx-null? _tl1387513926_) (___match3844238443_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ + _tl1383314471_ ___splice3835638357_ _target1387313923_ _tl1387513926_) - (_g1382413896_)))) + (let () (declare (not safe)) (_g1382413896_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1382413896_)))))) + (let () + (declare (not safe)) + (_g1382413896_))))))) (if (gx#stx-pair/null? _hd1383414468_) (let ((___splice3835638357_ (gx#syntax-split-splice @@ -9596,19 +9724,23 @@ '0)))) (if (gx#stx-null? _tl1387513926_) (___match3844238443_ - _e1383014454_ + _e1383214454_ _hd1383114458_ - _tl1383214461_ - _e1383314464_ + _tl1383014461_ + _e1383514464_ _hd1383414468_ - _tl1383514471_ + _tl1383314471_ ___splice3835638357_ _target1387313923_ _tl1387513926_) - (_g1382413896_)))) - (_g1382413896_))))) - (_g1382413896_)))) - (_g1382413896_)))))))) + (let () + (declare (not safe)) + (_g1382413896_))))) + (let () + (declare (not safe)) + (_g1382413896_)))))) + (let () (declare (not safe)) (_g1382413896_))))) + (let () (declare (not safe)) (_g1382413896_))))))))) (define |gerbil/core$$[:0:]#alet*| (lambda (_$stx14856_) (let* ((___stx3844538446_ _$stx14856_) @@ -9642,15 +9774,15 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (let* ((___match3852238523_ - (lambda (_e1489014920_ + (lambda (_e1489214920_ _hd1489114924_ - _tl1489214927_ - _e1489314930_ + _tl1489014927_ + _e1489514930_ _hd1489414934_ - _tl1489514937_ - _e1489614940_ + _tl1489314937_ + _e1489814940_ _hd1489714944_ - _tl1489814947_ + _tl1489614947_ ___splice3845638457_ _target1489914950_ _tl1490114953_) @@ -9675,17 +9807,17 @@ (reverse _body1490614963_))) (___kont3845438455_ _body1490714976_ - _tl1489814947_ + _tl1489614947_ _hd1489714944_ _hd1489114924_)))))) (_loop1490214956_ _target1489914950_ '())))) (___match3849638497_ - (lambda (_e1487115021_ + (lambda (_e1487315021_ _hd1487215025_ - _tl1487315028_ - _e1487415031_ + _tl1487115028_ + _e1487615031_ _hd1487515035_ - _tl1487615038_ + _tl1487415038_ ___splice3845238453_ _target1487715041_ _tl1487915044_) @@ -9712,30 +9844,30 @@ _body1488515067_)))))) (_loop1488015047_ _target1487715041_ '()))))) (if (gx#stx-pair? ___stx3844538446_) - (let ((_e1486415103_ (gx#syntax-e ___stx3844538446_))) - (let ((_tl1486615110_ - (let () (declare (not safe)) (##cdr _e1486415103_))) + (let ((_e1486615103_ (gx#syntax-e ___stx3844538446_))) + (let ((_tl1486415110_ + (let () (declare (not safe)) (##cdr _e1486615103_))) (_hd1486515107_ (let () (declare (not safe)) - (##car _e1486415103_)))) - (if (gx#stx-pair? _tl1486615110_) - (let ((_e1486715113_ (gx#syntax-e _tl1486615110_))) - (let ((_tl1486915120_ + (##car _e1486615103_)))) + (if (gx#stx-pair? _tl1486415110_) + (let ((_e1486915113_ (gx#syntax-e _tl1486415110_))) + (let ((_tl1486715120_ (let () (declare (not safe)) - (##cdr _e1486715113_))) + (##cdr _e1486915113_))) (_hd1486815117_ (let () (declare (not safe)) - (##car _e1486715113_)))) + (##car _e1486915113_)))) (if (gx#stx-null? _hd1486815117_) - (if (gx#stx-null? _tl1486915120_) + (if (gx#stx-null? _tl1486715120_) (___kont3844838449_) - (if (gx#stx-pair/null? _tl1486915120_) + (if (gx#stx-pair/null? _tl1486715120_) (let ((___splice3845238453_ (gx#syntax-split-splice - _tl1486915120_ + _tl1486715120_ '0))) (let ((_tl1487915044_ (let () @@ -9751,33 +9883,37 @@ '0)))) (if (gx#stx-null? _tl1487915044_) (___match3849638497_ - _e1486415103_ + _e1486615103_ _hd1486515107_ - _tl1486615110_ - _e1486715113_ + _tl1486415110_ + _e1486915113_ _hd1486815117_ - _tl1486915120_ + _tl1486715120_ ___splice3845238453_ _target1487715041_ _tl1487915044_) - (_g1486214913_)))) - (_g1486214913_))) + (let () + (declare (not safe)) + (_g1486214913_))))) + (let () + (declare (not safe)) + (_g1486214913_)))) (if (gx#stx-pair? _hd1486815117_) - (let ((_e1489614940_ + (let ((_e1489814940_ (gx#syntax-e _hd1486815117_))) - (let ((_tl1489814947_ + (let ((_tl1489614947_ (let () (declare (not safe)) - (##cdr _e1489614940_))) + (##cdr _e1489814940_))) (_hd1489714944_ (let () (declare (not safe)) - (##car _e1489614940_)))) + (##car _e1489814940_)))) (if (gx#stx-pair/null? - _tl1486915120_) + _tl1486715120_) (let ((___splice3845638457_ (gx#syntax-split-splice - _tl1486915120_ + _tl1486715120_ '0))) (let ((_tl1490114953_ (let () @@ -9794,23 +9930,29 @@ (if (gx#stx-null? _tl1490114953_) (___match3852238523_ - _e1486415103_ + _e1486615103_ _hd1486515107_ - _tl1486615110_ - _e1486715113_ + _tl1486415110_ + _e1486915113_ _hd1486815117_ - _tl1486915120_ - _e1489614940_ + _tl1486715120_ + _e1489814940_ _hd1489714944_ - _tl1489814947_ + _tl1489614947_ ___splice3845638457_ _target1489914950_ _tl1490114953_) - (_g1486214913_)))) - (_g1486214913_)))) - (_g1486214913_))))) - (_g1486214913_)))) - (_g1486214913_))))))) + (let () + (declare (not safe)) + (_g1486214913_))))) + (let () + (declare (not safe)) + (_g1486214913_))))) + (let () + (declare (not safe)) + (_g1486214913_)))))) + (let () (declare (not safe)) (_g1486214913_))))) + (let () (declare (not safe)) (_g1486214913_)))))))) (define |gerbil/core$$[:0:]#@list| (lambda (_$stx15133_) (let* ((___stx3852538526_ _$stx15133_) @@ -9844,16 +9986,16 @@ (cons _L15280_ (cons (cons _L15281_ _L15278_) '()))))) (___kont3854238543_ (lambda (_L15239_) _L15239_))) (let* ((___match3866438665_ - (lambda (_e1519515302_ + (lambda (_e1519715302_ _hd1519615306_ - _tl1519715309_ - _e1519815312_ + _tl1519515309_ + _e1520015312_ _hd1519915316_ - _tl1520015319_ - _e1520115322_ + _tl1519815319_ + _e1520315322_ _hd1520215326_ - _tl1520315329_) - (let ((_L15332_ _tl1520315329_) + _tl1520115329_) + (let ((_L15332_ _tl1520115329_) (_L15334_ _hd1520215326_) (_L15335_ _hd1519915316_) (_L15336_ _hd1519615306_)) @@ -9864,161 +10006,161 @@ _L15335_ _L15336_) (___kont3854038541_ - _tl1520015319_ + _tl1519815319_ _hd1519915316_ _hd1519615306_))))) (___match3864638647_ - (lambda (_e1518215360_ + (lambda (_e1518415360_ _hd1518315364_ - _tl1518415367_ - _e1518515370_ + _tl1518215367_ + _e1518715370_ _hd1518615374_ - _tl1518715377_ - _e1518815380_ + _tl1518515377_ + _e1519015380_ _hd1518915384_ - _tl1519015387_) + _tl1518815387_) (let ((_L15390_ _hd1518915384_) (_L15392_ _hd1518615374_)) (if (gx#ellipsis? _L15390_) (___kont3853638537_ _L15390_ _L15392_) (___match3866438665_ - _e1518215360_ + _e1518415360_ _hd1518315364_ - _tl1518415367_ - _e1518515370_ + _tl1518215367_ + _e1518715370_ _hd1518615374_ - _tl1518715377_ - _e1518815380_ + _tl1518515377_ + _e1519015380_ _hd1518915384_ - _tl1519015387_)))))) + _tl1518815387_)))))) (if (gx#stx-pair? ___stx3852538526_) - (let ((_e1514615575_ (gx#syntax-e ___stx3852538526_))) - (let ((_tl1514815582_ - (let () (declare (not safe)) (##cdr _e1514615575_))) + (let ((_e1514815575_ (gx#syntax-e ___stx3852538526_))) + (let ((_tl1514615582_ + (let () (declare (not safe)) (##cdr _e1514815575_))) (_hd1514715579_ (let () (declare (not safe)) - (##car _e1514615575_)))) - (if (gx#stx-null? _tl1514815582_) + (##car _e1514815575_)))) + (if (gx#stx-null? _tl1514615582_) (___kont3852838529_) - (if (gx#stx-pair? _tl1514815582_) - (let ((_e1515315533_ - (gx#syntax-e _tl1514815582_))) - (let ((_tl1515515540_ + (if (gx#stx-pair? _tl1514615582_) + (let ((_e1515515533_ + (gx#syntax-e _tl1514615582_))) + (let ((_tl1515315540_ (let () (declare (not safe)) - (##cdr _e1515315533_))) + (##cdr _e1515515533_))) (_hd1515415537_ (let () (declare (not safe)) - (##car _e1515315533_)))) + (##car _e1515515533_)))) (if (gx#identifier? _hd1515415537_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42222_| + |gerbil/core$$[1]#_g42223_| _hd1515415537_) - (if (gx#stx-pair? _tl1515515540_) - (let ((_e1515615543_ + (if (gx#stx-pair? _tl1515315540_) + (let ((_e1515815543_ (gx#syntax-e - _tl1515515540_))) - (let ((_tl1515815550_ + _tl1515315540_))) + (let ((_tl1515615550_ (let () (declare (not safe)) - (##cdr _e1515615543_))) + (##cdr _e1515815543_))) (_hd1515715547_ (let () (declare (not safe)) - (##car _e1515615543_)))) + (##car _e1515815543_)))) (if (gx#stx-null? - _tl1515815550_) + _tl1515615550_) (___kont3853038531_ _hd1515715547_) (___match3866438665_ - _e1514615575_ + _e1514815575_ _hd1514715579_ - _tl1514815582_ - _e1515315533_ + _tl1514615582_ + _e1515515533_ _hd1515415537_ - _tl1515515540_ - _e1515615543_ + _tl1515315540_ + _e1515815543_ _hd1515715547_ - _tl1515815550_)))) + _tl1515615550_)))) (___kont3854038541_ - _tl1515515540_ + _tl1515315540_ _hd1515415537_ _hd1514715579_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42223_| + |gerbil/core$$[1]#_g42222_| _hd1515415537_) - (if (gx#stx-pair? _tl1515515540_) - (let ((_e1516615491_ + (if (gx#stx-pair? _tl1515315540_) + (let ((_e1516815491_ (gx#syntax-e - _tl1515515540_))) - (let ((_tl1516815498_ + _tl1515315540_))) + (let ((_tl1516615498_ (let () (declare (not safe)) - (##cdr _e1516615491_))) + (##cdr _e1516815491_))) (_hd1516715495_ (let () (declare (not safe)) - (##car _e1516615491_)))) + (##car _e1516815491_)))) (if (gx#stx-null? - _tl1516815498_) + _tl1516615498_) (___kont3853238533_ _hd1516715495_) (___match3866438665_ - _e1514615575_ + _e1514815575_ _hd1514715579_ - _tl1514815582_ - _e1515315533_ + _tl1514615582_ + _e1515515533_ _hd1515415537_ - _tl1515515540_ - _e1516615491_ + _tl1515315540_ + _e1516815491_ _hd1516715495_ - _tl1516815498_)))) + _tl1516615498_)))) (___kont3854038541_ - _tl1515515540_ + _tl1515315540_ _hd1515415537_ _hd1514715579_)) - (if (gx#stx-pair? _tl1515515540_) - (let ((_e1518815380_ + (if (gx#stx-pair? _tl1515315540_) + (let ((_e1519015380_ (gx#syntax-e - _tl1515515540_))) - (let ((_tl1519015387_ + _tl1515315540_))) + (let ((_tl1518815387_ (let () (declare (not safe)) - (##cdr _e1518815380_))) + (##cdr _e1519015380_))) (_hd1518915384_ (let () (declare (not safe)) - (##car _e1518815380_)))) + (##car _e1519015380_)))) (if (gx#stx-null? - _tl1519015387_) + _tl1518815387_) (___match3864638647_ - _e1514615575_ + _e1514815575_ _hd1514715579_ - _tl1514815582_ - _e1515315533_ + _tl1514615582_ + _e1515515533_ _hd1515415537_ - _tl1515515540_ - _e1518815380_ + _tl1515315540_ + _e1519015380_ _hd1518915384_ - _tl1519015387_) + _tl1518815387_) (___match3866438665_ - _e1514615575_ + _e1514815575_ _hd1514715579_ - _tl1514815582_ - _e1515315533_ + _tl1514615582_ + _e1515515533_ _hd1515415537_ - _tl1515515540_ - _e1518815380_ + _tl1515315540_ + _e1519015380_ _hd1518915384_ - _tl1519015387_)))) + _tl1518815387_)))) (___kont3854038541_ - _tl1515515540_ + _tl1515315540_ _hd1515415537_ _hd1514715579_)))) (if (gx#stx-datum? _hd1515415537_) @@ -10026,114 +10168,114 @@ (gx#stx-e _hd1515415537_))) (if (equal? _e1517615434_ '::) (if (gx#stx-pair? - _tl1515515540_) - (let ((_e1517715438_ + _tl1515315540_) + (let ((_e1517915438_ (gx#syntax-e - _tl1515515540_))) - (let ((_tl1517915445_ + _tl1515315540_))) + (let ((_tl1517715445_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e1517715438_))) + (##cdr _e1517915438_))) (_hd1517815442_ - (let () (declare (not safe)) (##car _e1517715438_)))) - (if (gx#stx-null? _tl1517915445_) + (let () (declare (not safe)) (##car _e1517915438_)))) + (if (gx#stx-null? _tl1517715445_) (___kont3853438535_ _hd1517815442_) (___match3866438665_ - _e1514615575_ + _e1514815575_ _hd1514715579_ - _tl1514815582_ - _e1515315533_ + _tl1514615582_ + _e1515515533_ _hd1515415537_ - _tl1515515540_ - _e1517715438_ + _tl1515315540_ + _e1517915438_ _hd1517815442_ - _tl1517915445_)))) + _tl1517715445_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont3854038541_ - _tl1515515540_ + _tl1515315540_ _hd1515415537_ _hd1514715579_)) (if (gx#stx-pair? - _tl1515515540_) - (let ((_e1518815380_ + _tl1515315540_) + (let ((_e1519015380_ (gx#syntax-e - _tl1515515540_))) - (let ((_tl1519015387_ + _tl1515315540_))) + (let ((_tl1518815387_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e1518815380_))) + (##cdr _e1519015380_))) (_hd1518915384_ - (let () (declare (not safe)) (##car _e1518815380_)))) - (if (gx#stx-null? _tl1519015387_) + (let () (declare (not safe)) (##car _e1519015380_)))) + (if (gx#stx-null? _tl1518815387_) (___match3864638647_ - _e1514615575_ + _e1514815575_ _hd1514715579_ - _tl1514815582_ - _e1515315533_ + _tl1514615582_ + _e1515515533_ _hd1515415537_ - _tl1515515540_ - _e1518815380_ + _tl1515315540_ + _e1519015380_ _hd1518915384_ - _tl1519015387_) + _tl1518815387_) (___match3866438665_ - _e1514615575_ + _e1514815575_ _hd1514715579_ - _tl1514815582_ - _e1515315533_ + _tl1514615582_ + _e1515515533_ _hd1515415537_ - _tl1515515540_ - _e1518815380_ + _tl1515315540_ + _e1519015380_ _hd1518915384_ - _tl1519015387_)))) + _tl1518815387_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont3854038541_ - _tl1515515540_ + _tl1515315540_ _hd1515415537_ _hd1514715579_)))) - (if (gx#stx-pair? _tl1515515540_) - (let ((_e1518815380_ + (if (gx#stx-pair? _tl1515315540_) + (let ((_e1519015380_ (gx#syntax-e - _tl1515515540_))) - (let ((_tl1519015387_ + _tl1515315540_))) + (let ((_tl1518815387_ (let () (declare (not safe)) - (##cdr _e1518815380_))) + (##cdr _e1519015380_))) (_hd1518915384_ (let () (declare (not safe)) - (##car _e1518815380_)))) + (##car _e1519015380_)))) (if (gx#stx-null? - _tl1519015387_) + _tl1518815387_) (___match3864638647_ - _e1514615575_ + _e1514815575_ _hd1514715579_ - _tl1514815582_ - _e1515315533_ + _tl1514615582_ + _e1515515533_ _hd1515415537_ - _tl1515515540_ - _e1518815380_ + _tl1515315540_ + _e1519015380_ _hd1518915384_ - _tl1519015387_) + _tl1518815387_) (___match3866438665_ - _e1514615575_ + _e1514815575_ _hd1514715579_ - _tl1514815582_ - _e1515315533_ + _tl1514615582_ + _e1515515533_ _hd1515415537_ - _tl1515515540_ - _e1518815380_ + _tl1515315540_ + _e1519015380_ _hd1518915384_ - _tl1519015387_)))) + _tl1518815387_)))) (___kont3854038541_ - _tl1515515540_ + _tl1515315540_ _hd1515415537_ _hd1514715579_)))))) - (___kont3854238543_ _tl1514815582_))))) - (_g1514415222_))))))) + (___kont3854238543_ _tl1514615582_))))) + (let () (declare (not safe)) (_g1514415222_)))))))) (define |gerbil/core$$[:0:]#quasiquote| (lambda (_stx15593_) (letrec ((_simple-quote?15596_ @@ -10237,76 +10379,80 @@ _tl1631916381_) (___kont3870038701_)))) (___kont3870038701_))) - (_g1629416367_))))) + (let () + (declare (not safe)) + (_g1629416367_)))))) (if (gx#stx-pair? ___stx3868538686_) - (let ((_e1629816498_ + (let ((_e1630016498_ (gx#syntax-e ___stx3868538686_))) - (let ((_tl1630016505_ + (let ((_tl1629816505_ (let () (declare (not safe)) - (##cdr _e1629816498_))) + (##cdr _e1630016498_))) (_hd1629916502_ (let () (declare (not safe)) - (##car _e1629816498_)))) + (##car _e1630016498_)))) (if (gx#identifier? _hd1629916502_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42224_| + |gerbil/core$$[1]#_g42225_| _hd1629916502_) - (if (gx#stx-pair? _tl1630016505_) - (let ((_e1630116508_ + (if (gx#stx-pair? _tl1629816505_) + (let ((_e1630316508_ (gx#syntax-e - _tl1630016505_))) - (let ((_tl1630316515_ + _tl1629816505_))) + (let ((_tl1630116515_ (let () (declare (not safe)) - (##cdr _e1630116508_))) + (##cdr _e1630316508_))) (_hd1630216512_ (let () (declare (not safe)) - (##car _e1630116508_)))) + (##car _e1630316508_)))) (if (gx#stx-null? - _tl1630316515_) + _tl1630116515_) (___kont3868838689_) (___kont3869238693_ - _tl1630016505_ + _tl1629816505_ _hd1629916502_)))) (___kont3869238693_ - _tl1630016505_ + _tl1629816505_ _hd1629916502_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42225_| + |gerbil/core$$[1]#_g42224_| _hd1629916502_) - (if (gx#stx-pair? _tl1630016505_) - (let ((_e1630716477_ + (if (gx#stx-pair? _tl1629816505_) + (let ((_e1630916477_ (gx#syntax-e - _tl1630016505_))) - (let ((_tl1630916484_ + _tl1629816505_))) + (let ((_tl1630716484_ (let () (declare (not safe)) - (##cdr _e1630716477_))) + (##cdr _e1630916477_))) (_hd1630816481_ (let () (declare (not safe)) - (##car _e1630716477_)))) + (##car _e1630916477_)))) (if (gx#stx-null? - _tl1630916484_) + _tl1630716484_) (___kont3869038691_) (___kont3869238693_ - _tl1630016505_ + _tl1629816505_ _hd1629916502_)))) (___kont3869238693_ - _tl1630016505_ + _tl1629816505_ _hd1629916502_)) (___kont3869238693_ - _tl1630016505_ + _tl1629816505_ _hd1629916502_))) (___kont3869238693_ - _tl1630016505_ + _tl1629816505_ _hd1629916502_)))) - (_g1629316430_))))))) + (let () + (declare (not safe)) + (_g1629316430_)))))))) (_generate15598_ (lambda (_e15660_ _d15662_) (let* ((___stx3876338764_ _e15660_) @@ -10445,31 +10591,31 @@ (_g1592115982_ (lambda (_g1592315941_) (if (gx#stx-pair? _g1592315941_) - (let ((_e1592615944_ + (let ((_e1592815944_ (gx#syntax-e _g1592315941_))) (let ((_hd1592715948_ (let () (declare (not safe)) - (##car _e1592615944_))) - (_tl1592815951_ + (##car _e1592815944_))) + (_tl1592615951_ (let () (declare (not safe)) - (##cdr _e1592615944_)))) + (##cdr _e1592815944_)))) (if (gx#stx-pair? - _tl1592815951_) - (let ((_e1592915954_ + _tl1592615951_) + (let ((_e1593115954_ (gx#syntax-e - _tl1592815951_))) + _tl1592615951_))) (let ((_hd1593015958_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e1592915954_))) - (_tl1593115961_ - (let () (declare (not safe)) (##cdr _e1592915954_)))) - (if (gx#stx-null? _tl1593115961_) + (##car _e1593115954_))) + (_tl1592915961_ + (let () (declare (not safe)) (##cdr _e1593115954_)))) + (if (gx#stx-null? _tl1592915961_) ((lambda (_L15964_ _L15966_) (let () (cons (gx#datum->syntax '#f 'cons) @@ -10607,167 +10753,171 @@ ___stx3876338764_)))) (___kont3878238783_ ___stx3876338764_))) - (_g1566915798_))))) + (let () + (declare (not safe)) + (_g1566915798_)))))) (if (gx#stx-pair? ___stx3876338764_) - (let ((_e1567416220_ + (let ((_e1567616220_ (gx#syntax-e ___stx3876338764_))) - (let ((_tl1567616227_ + (let ((_tl1567416227_ (let () (declare (not safe)) - (##cdr _e1567416220_))) + (##cdr _e1567616220_))) (_hd1567516224_ (let () (declare (not safe)) - (##car _e1567416220_)))) + (##car _e1567616220_)))) (if (gx#identifier? _hd1567516224_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42226_| + |gerbil/core$$[1]#_g42229_| _hd1567516224_) - (if (gx#stx-pair? _tl1567616227_) - (let ((_e1567716230_ + (if (gx#stx-pair? _tl1567416227_) + (let ((_e1567916230_ (gx#syntax-e - _tl1567616227_))) - (let ((_tl1567916237_ + _tl1567416227_))) + (let ((_tl1567716237_ (let () (declare (not safe)) - (##cdr _e1567716230_))) + (##cdr _e1567916230_))) (_hd1567816234_ (let () (declare (not safe)) - (##car _e1567716230_)))) + (##car _e1567916230_)))) (if (gx#stx-null? - _tl1567916237_) + _tl1567716237_) (___kont3876638767_ _hd1567816234_) (___kont3877438775_ - _tl1567616227_ + _tl1567416227_ _hd1567516224_)))) (___kont3877438775_ - _tl1567616227_ + _tl1567416227_ _hd1567516224_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42227_| + |gerbil/core$$[1]#_g42228_| _hd1567516224_) - (if (gx#stx-pair? _tl1567616227_) - (let ((_e1568416159_ + (if (gx#stx-pair? _tl1567416227_) + (let ((_e1568616159_ (gx#syntax-e - _tl1567616227_))) - (let ((_tl1568616166_ + _tl1567416227_))) + (let ((_tl1568416166_ (let () (declare (not safe)) - (##cdr _e1568416159_))) + (##cdr _e1568616159_))) (_hd1568516163_ (let () (declare (not safe)) - (##car _e1568416159_)))) + (##car _e1568616159_)))) (if (gx#stx-null? - _tl1568616166_) + _tl1568416166_) (___kont3876838769_ _hd1568516163_) (___kont3877438775_ - _tl1567616227_ + _tl1567416227_ _hd1567516224_)))) (___kont3877438775_ - _tl1567616227_ + _tl1567416227_ _hd1567516224_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42228_| + |gerbil/core$$[1]#_g42227_| _hd1567516224_) (if (gx#stx-pair? - _tl1567616227_) - (let ((_e1569116088_ + _tl1567416227_) + (let ((_e1569316088_ (gx#syntax-e - _tl1567616227_))) - (let ((_tl1569316095_ + _tl1567416227_))) + (let ((_tl1569116095_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e1569116088_))) + (##cdr _e1569316088_))) (_hd1569216092_ - (let () (declare (not safe)) (##car _e1569116088_)))) - (if (gx#stx-null? _tl1569316095_) + (let () (declare (not safe)) (##car _e1569316088_)))) + (if (gx#stx-null? _tl1569116095_) (___kont3877038771_ _hd1569216092_) - (___kont3877438775_ _tl1567616227_ _hd1567516224_)))) - (___kont3877438775_ _tl1567616227_ _hd1567516224_)) + (___kont3877438775_ _tl1567416227_ _hd1567516224_)))) + (___kont3877438775_ _tl1567416227_ _hd1567516224_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont3877438775_ - _tl1567616227_ + _tl1567416227_ _hd1567516224_)))) (if (gx#stx-pair? _hd1567516224_) - (let ((_e1569916003_ + (let ((_e1570116003_ (gx#syntax-e _hd1567516224_))) - (let ((_tl1570116010_ + (let ((_tl1569916010_ (let () (declare (not safe)) - (##cdr _e1569916003_))) + (##cdr _e1570116003_))) (_hd1570016007_ (let () (declare (not safe)) - (##car _e1569916003_)))) + (##car _e1570116003_)))) (if (gx#identifier? _hd1570016007_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42229_| + |gerbil/core$$[1]#_g42226_| _hd1570016007_) (if (gx#stx-pair? - _tl1570116010_) - (let ((_e1570216013_ + _tl1569916010_) + (let ((_e1570416013_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1570116010_))) - (let ((_tl1570416020_ - (let () (declare (not safe)) (##cdr _e1570216013_))) + (gx#syntax-e _tl1569916010_))) + (let ((_tl1570216020_ + (let () (declare (not safe)) (##cdr _e1570416013_))) (_hd1570316017_ (let () (declare (not safe)) - (##car _e1570216013_)))) - (if (gx#stx-null? _tl1570416020_) + (##car _e1570416013_)))) + (if (gx#stx-null? _tl1570216020_) (if (fxzero? _d15662_) - (let ((_L16023_ _tl1567616227_) + (let ((_L16023_ _tl1567416227_) (_L16025_ _hd1570316017_)) (___kont3877238773_ _L16023_ _L16025_)) (___kont3877438775_ - _tl1567616227_ + _tl1567416227_ _hd1567516224_)) - (___kont3877438775_ _tl1567616227_ _hd1567516224_)))) - (___kont3877438775_ _tl1567616227_ _hd1567516224_)) - (___kont3877438775_ _tl1567616227_ _hd1567516224_)) + (___kont3877438775_ _tl1567416227_ _hd1567516224_)))) + (___kont3877438775_ _tl1567416227_ _hd1567516224_)) + (___kont3877438775_ _tl1567416227_ _hd1567516224_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont3877438775_ - _tl1567616227_ + _tl1567416227_ _hd1567516224_)))) (___kont3877438775_ - _tl1567616227_ + _tl1567416227_ _hd1567516224_))))) - (_g1566815892_)))))))) + (let () + (declare (not safe)) + (_g1566815892_))))))))) (let* ((_g1560015614_ (lambda (_g1560115610_) (gx#raise-syntax-error '#f '"Bad syntax" _g1560115610_))) (_g1559915656_ (lambda (_g1560115618_) (if (gx#stx-pair? _g1560115618_) - (let ((_e1560315621_ (gx#syntax-e _g1560115618_))) + (let ((_e1560515621_ (gx#syntax-e _g1560115618_))) (let ((_hd1560415625_ (let () (declare (not safe)) - (##car _e1560315621_))) - (_tl1560515628_ + (##car _e1560515621_))) + (_tl1560315628_ (let () (declare (not safe)) - (##cdr _e1560315621_)))) - (if (gx#stx-pair? _tl1560515628_) - (let ((_e1560615631_ - (gx#syntax-e _tl1560515628_))) + (##cdr _e1560515621_)))) + (if (gx#stx-pair? _tl1560315628_) + (let ((_e1560815631_ + (gx#syntax-e _tl1560315628_))) (let ((_hd1560715635_ (let () (declare (not safe)) - (##car _e1560615631_))) - (_tl1560815638_ + (##car _e1560815631_))) + (_tl1560615638_ (let () (declare (not safe)) - (##cdr _e1560615631_)))) - (if (gx#stx-null? _tl1560815638_) + (##cdr _e1560815631_)))) + (if (gx#stx-null? _tl1560615638_) ((lambda (_L15641_) (if (_simple-quote?15596_ _L15641_) (cons (gx#datum->syntax @@ -10799,45 +10949,47 @@ (cons '() (cons _L16581_ '()))) '()))))) (let ((___match3891038911_ - (lambda (_e1653616602_ + (lambda (_e1653816602_ _hd1653716606_ - _tl1653816609_ - _e1653916612_ + _tl1653616609_ + _e1654116612_ _hd1654016616_ - _tl1654116619_) + _tl1653916619_) (let ((_L16622_ _hd1654016616_)) (if (gx#stx-datum? _L16622_) (___kont3889238893_ _L16622_) (___kont3889438895_ _hd1654016616_)))))) (if (gx#stx-pair? ___stx3888938890_) - (let ((_e1653616602_ (gx#syntax-e ___stx3888938890_))) - (let ((_tl1653816609_ - (let () (declare (not safe)) (##cdr _e1653616602_))) + (let ((_e1653816602_ (gx#syntax-e ___stx3888938890_))) + (let ((_tl1653616609_ + (let () (declare (not safe)) (##cdr _e1653816602_))) (_hd1653716606_ (let () (declare (not safe)) - (##car _e1653616602_)))) - (if (gx#stx-pair? _tl1653816609_) - (let ((_e1653916612_ (gx#syntax-e _tl1653816609_))) - (let ((_tl1654116619_ + (##car _e1653816602_)))) + (if (gx#stx-pair? _tl1653616609_) + (let ((_e1654116612_ (gx#syntax-e _tl1653616609_))) + (let ((_tl1653916619_ (let () (declare (not safe)) - (##cdr _e1653916612_))) + (##cdr _e1654116612_))) (_hd1654016616_ (let () (declare (not safe)) - (##car _e1653916612_)))) - (if (gx#stx-null? _tl1654116619_) + (##car _e1654116612_)))) + (if (gx#stx-null? _tl1653916619_) (___match3891038911_ - _e1653616602_ + _e1653816602_ _hd1653716606_ - _tl1653816609_ - _e1653916612_ + _tl1653616609_ + _e1654116612_ _hd1654016616_ - _tl1654116619_) - (_g1653316554_)))) - (_g1653316554_)))) - (_g1653316554_))))))) + _tl1653916619_) + (let () + (declare (not safe)) + (_g1653316554_))))) + (let () (declare (not safe)) (_g1653316554_))))) + (let () (declare (not safe)) (_g1653316554_)))))))) (define |gerbil/core$$[:0:]#cut| (lambda (_stx16639_) (letrec ((_generate16642_ @@ -10894,11 +11046,11 @@ (cons _L16815_ _body16770_))))) (if (gx#identifier? ___stx3892738928_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42230_| + |gerbil/core$$[1]#_g42231_| ___stx3892738928_) (___kont3893038931_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42231_| + |gerbil/core$$[1]#_g42230_| ___stx3892738928_) (___kont3893238933_) (___kont3893438935_))) @@ -10909,18 +11061,18 @@ (reverse _body16770_) '#f)))) (if (gx#stx-pair? ___stx3894738948_) - (let ((_e1677716803_ + (let ((_e1677916803_ (gx#syntax-e ___stx3894738948_))) - (let ((_tl1677916810_ + (let ((_tl1677716810_ (let () (declare (not safe)) - (##cdr _e1677716803_))) + (##cdr _e1677916803_))) (_hd1677816807_ (let () (declare (not safe)) - (##car _e1677716803_)))) + (##car _e1677916803_)))) (___kont3895038951_ - _tl1677916810_ + _tl1677716810_ _hd1677816807_))) (___kont3895238953_)))))))) (let* ((_g1664516656_ @@ -10929,15 +11081,15 @@ (_g1664416757_ (lambda (_g1664616660_) (if (gx#stx-pair? _g1664616660_) - (let ((_e1664816663_ (gx#syntax-e _g1664616660_))) + (let ((_e1665016663_ (gx#syntax-e _g1664616660_))) (let ((_hd1664916667_ (let () (declare (not safe)) - (##car _e1664816663_))) - (_tl1665016670_ + (##car _e1665016663_))) + (_tl1664816670_ (let () (declare (not safe)) - (##cdr _e1664816663_)))) + (##cdr _e1665016663_)))) ((lambda (_L16673_) (if (and (gx#stx-list? _L16673_) (not (gx#stx-null? _L16673_))) @@ -11005,7 +11157,7 @@ _g1669216703_)))) (_g1669016753_ _hd16686_))))) (_g1664516656_ _g1664616660_))) - _tl1665016670_))) + _tl1664816670_))) (_g1664516656_ _g1664616660_))))) (_g1664416757_ _stx16639_))))) (define |gerbil/core$$[:0:]#<>| diff --git a/src/bootstrap/gerbil/core__5.scm b/src/bootstrap/gerbil/core__5.scm index b8e6509de..69e8d4451 100644 --- a/src/bootstrap/gerbil/core__5.scm +++ b/src/bootstrap/gerbil/core__5.scm @@ -36,60 +36,62 @@ (cons (gx#datum->syntax '#f 'define-syntax) (cons _L16999_ (cons _L16997_ '())))))) (let* ((___match3901839019_ - (lambda (_e1694616967_ + (lambda (_e1694816967_ _hd1694716971_ - _tl1694816974_ - _e1694916977_ + _tl1694616974_ + _e1695116977_ _hd1695016981_ - _tl1695116984_ - _e1695216987_ + _tl1694916984_ + _e1695416987_ _hd1695316991_ - _tl1695416994_) + _tl1695216994_) (let ((_L16997_ _hd1695316991_) (_L16999_ _hd1695016981_)) (if (gx#identifier? _L16999_) (___kont3897038971_ _L16997_ _L16999_) - (_g1692116960_))))) + (let () (declare (not safe)) (_g1692116960_)))))) (___match3901039011_ - (lambda (_e1694616967_ + (lambda (_e1694816967_ _hd1694716971_ - _tl1694816974_ - _e1694916977_ + _tl1694616974_ + _e1695116977_ _hd1695016981_ - _tl1695116984_) - (if (gx#stx-pair? _tl1695116984_) - (let ((_e1695216987_ (gx#syntax-e _tl1695116984_))) - (let ((_tl1695416994_ + _tl1694916984_) + (if (gx#stx-pair? _tl1694916984_) + (let ((_e1695416987_ (gx#syntax-e _tl1694916984_))) + (let ((_tl1695216994_ (let () (declare (not safe)) - (##cdr _e1695216987_))) + (##cdr _e1695416987_))) (_hd1695316991_ (let () (declare (not safe)) - (##car _e1695216987_)))) - (if (gx#stx-null? _tl1695416994_) + (##car _e1695416987_)))) + (if (gx#stx-null? _tl1695216994_) (___match3901839019_ - _e1694616967_ + _e1694816967_ _hd1694716971_ - _tl1694816974_ - _e1694916977_ + _tl1694616974_ + _e1695116977_ _hd1695016981_ - _tl1695116984_ - _e1695216987_ + _tl1694916984_ + _e1695416987_ _hd1695316991_ - _tl1695416994_) - (_g1692116960_)))) - (_g1692116960_)))) + _tl1695216994_) + (let () + (declare (not safe)) + (_g1692116960_))))) + (let () (declare (not safe)) (_g1692116960_))))) (___match3899838999_ - (lambda (_e1692617023_ + (lambda (_e1692817023_ _hd1692717027_ - _tl1692817030_ - _e1692917033_ + _tl1692617030_ + _e1693117033_ _hd1693017037_ - _tl1693117040_ - _e1693217043_ + _tl1692917040_ + _e1693417043_ _hd1693317047_ - _tl1693417050_ + _tl1693217050_ ___splice3896838969_ _target1693517053_ _tl1693717056_) @@ -113,7 +115,7 @@ (let ((_body1694317079_ (reverse _body1694217066_))) (let ((_L17083_ _body1694317079_) - (_L17085_ _tl1693417050_) + (_L17085_ _tl1693217050_) (_L17086_ _hd1693317047_)) (if (gx#identifier? _L17086_) (___kont3896638967_ @@ -121,46 +123,46 @@ _L17085_ _L17086_) (___match3901039011_ - _e1692617023_ + _e1692817023_ _hd1692717027_ - _tl1692817030_ - _e1692917033_ + _tl1692617030_ + _e1693117033_ _hd1693017037_ - _tl1693117040_)))))))) + _tl1692917040_)))))))) (_loop1693817059_ _target1693517053_ '()))))) (if (gx#stx-pair? ___stx3896338964_) - (let ((_e1692617023_ (gx#syntax-e ___stx3896338964_))) - (let ((_tl1692817030_ - (let () (declare (not safe)) (##cdr _e1692617023_))) + (let ((_e1692817023_ (gx#syntax-e ___stx3896338964_))) + (let ((_tl1692617030_ + (let () (declare (not safe)) (##cdr _e1692817023_))) (_hd1692717027_ (let () (declare (not safe)) - (##car _e1692617023_)))) - (if (gx#stx-pair? _tl1692817030_) - (let ((_e1692917033_ (gx#syntax-e _tl1692817030_))) - (let ((_tl1693117040_ + (##car _e1692817023_)))) + (if (gx#stx-pair? _tl1692617030_) + (let ((_e1693117033_ (gx#syntax-e _tl1692617030_))) + (let ((_tl1692917040_ (let () (declare (not safe)) - (##cdr _e1692917033_))) + (##cdr _e1693117033_))) (_hd1693017037_ (let () (declare (not safe)) - (##car _e1692917033_)))) + (##car _e1693117033_)))) (if (gx#stx-pair? _hd1693017037_) - (let ((_e1693217043_ + (let ((_e1693417043_ (gx#syntax-e _hd1693017037_))) - (let ((_tl1693417050_ + (let ((_tl1693217050_ (let () (declare (not safe)) - (##cdr _e1693217043_))) + (##cdr _e1693417043_))) (_hd1693317047_ (let () (declare (not safe)) - (##car _e1693217043_)))) - (if (gx#stx-pair/null? _tl1693117040_) + (##car _e1693417043_)))) + (if (gx#stx-pair/null? _tl1692917040_) (let ((___splice3896838969_ (gx#syntax-split-splice - _tl1693117040_ + _tl1692917040_ '0))) (let ((_tl1693717056_ (let () @@ -176,96 +178,104 @@ '0)))) (if (gx#stx-null? _tl1693717056_) (___match3899838999_ - _e1692617023_ + _e1692817023_ _hd1692717027_ - _tl1692817030_ - _e1692917033_ + _tl1692617030_ + _e1693117033_ _hd1693017037_ - _tl1693117040_ - _e1693217043_ + _tl1692917040_ + _e1693417043_ _hd1693317047_ - _tl1693417050_ + _tl1693217050_ ___splice3896838969_ _target1693517053_ _tl1693717056_) (if (gx#stx-pair? - _tl1693117040_) - (let ((_e1695216987_ + _tl1692917040_) + (let ((_e1695416987_ (gx#syntax-e - _tl1693117040_))) - (let ((_tl1695416994_ + _tl1692917040_))) + (let ((_tl1695216994_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e1695216987_))) + (##cdr _e1695416987_))) (_hd1695316991_ - (let () (declare (not safe)) (##car _e1695216987_)))) - (if (gx#stx-null? _tl1695416994_) + (let () (declare (not safe)) (##car _e1695416987_)))) + (if (gx#stx-null? _tl1695216994_) (___match3901839019_ - _e1692617023_ + _e1692817023_ _hd1692717027_ - _tl1692817030_ - _e1692917033_ + _tl1692617030_ + _e1693117033_ _hd1693017037_ - _tl1693117040_ - _e1695216987_ + _tl1692917040_ + _e1695416987_ _hd1695316991_ - _tl1695416994_) - (_g1692116960_)))) - (_g1692116960_))))) + _tl1695216994_) + (let () (declare (not safe)) (_g1692116960_))))) + (let () (declare (not safe)) (_g1692116960_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl1693117040_) - (let ((_e1695216987_ + (if (gx#stx-pair? _tl1692917040_) + (let ((_e1695416987_ (gx#syntax-e - _tl1693117040_))) - (let ((_tl1695416994_ + _tl1692917040_))) + (let ((_tl1695216994_ (let () (declare (not safe)) - (##cdr _e1695216987_))) + (##cdr _e1695416987_))) (_hd1695316991_ (let () (declare (not safe)) - (##car _e1695216987_)))) + (##car _e1695416987_)))) (if (gx#stx-null? - _tl1695416994_) + _tl1695216994_) (___match3901839019_ - _e1692617023_ + _e1692817023_ _hd1692717027_ - _tl1692817030_ - _e1692917033_ + _tl1692617030_ + _e1693117033_ _hd1693017037_ - _tl1693117040_ - _e1695216987_ + _tl1692917040_ + _e1695416987_ _hd1695316991_ - _tl1695416994_) - (_g1692116960_)))) - (_g1692116960_))))) - (if (gx#stx-pair? _tl1693117040_) - (let ((_e1695216987_ - (gx#syntax-e _tl1693117040_))) - (let ((_tl1695416994_ + _tl1695216994_) + (let () + (declare (not safe)) + (_g1692116960_))))) + (let () + (declare (not safe)) + (_g1692116960_)))))) + (if (gx#stx-pair? _tl1692917040_) + (let ((_e1695416987_ + (gx#syntax-e _tl1692917040_))) + (let ((_tl1695216994_ (let () (declare (not safe)) - (##cdr _e1695216987_))) + (##cdr _e1695416987_))) (_hd1695316991_ (let () (declare (not safe)) - (##car _e1695216987_)))) - (if (gx#stx-null? _tl1695416994_) + (##car _e1695416987_)))) + (if (gx#stx-null? _tl1695216994_) (___match3901839019_ - _e1692617023_ + _e1692817023_ _hd1692717027_ - _tl1692817030_ - _e1692917033_ + _tl1692617030_ + _e1693117033_ _hd1693017037_ - _tl1693117040_ - _e1695216987_ + _tl1692917040_ + _e1695416987_ _hd1695316991_ - _tl1695416994_) - (_g1692116960_)))) - (_g1692116960_))))) - (_g1692116960_)))) - (_g1692116960_))))))) + _tl1695216994_) + (let () + (declare (not safe)) + (_g1692116960_))))) + (let () + (declare (not safe)) + (_g1692116960_)))))) + (let () (declare (not safe)) (_g1692116960_))))) + (let () (declare (not safe)) (_g1692116960_)))))))) (define |gerbil/core$$[:0:]#definline| (lambda (_stx17119_) (let* ((_g1712217159_ @@ -274,42 +284,42 @@ (_g1712117520_ (lambda (_g1712317163_) (if (gx#stx-pair? _g1712317163_) - (let ((_e1712717166_ (gx#syntax-e _g1712317163_))) + (let ((_e1712917166_ (gx#syntax-e _g1712317163_))) (let ((_hd1712817170_ (let () (declare (not safe)) - (##car _e1712717166_))) - (_tl1712917173_ + (##car _e1712917166_))) + (_tl1712717173_ (let () (declare (not safe)) - (##cdr _e1712717166_)))) - (if (gx#stx-pair? _tl1712917173_) - (let ((_e1713017176_ - (gx#syntax-e _tl1712917173_))) + (##cdr _e1712917166_)))) + (if (gx#stx-pair? _tl1712717173_) + (let ((_e1713217176_ + (gx#syntax-e _tl1712717173_))) (let ((_hd1713117180_ (let () (declare (not safe)) - (##car _e1713017176_))) - (_tl1713217183_ + (##car _e1713217176_))) + (_tl1713017183_ (let () (declare (not safe)) - (##cdr _e1713017176_)))) + (##cdr _e1713217176_)))) (if (gx#stx-pair? _hd1713117180_) - (let ((_e1713317186_ + (let ((_e1713517186_ (gx#syntax-e _hd1713117180_))) (let ((_hd1713417190_ (let () (declare (not safe)) - (##car _e1713317186_))) - (_tl1713517193_ + (##car _e1713517186_))) + (_tl1713317193_ (let () (declare (not safe)) - (##cdr _e1713317186_)))) + (##cdr _e1713517186_)))) (if (gx#stx-pair/null? - _tl1713517193_) + _tl1713317193_) (let ((_g42234_ (gx#syntax-split-splice - _tl1713517193_ + _tl1713317193_ '0))) (begin (let ((_g42235_ @@ -361,10 +371,10 @@ _arg1714317209_)))) (let ((_arg1714417222_ (reverse _arg1714317209_))) - (if (gx#stx-pair/null? _tl1713217183_) + (if (gx#stx-pair/null? _tl1713017183_) (let ((_g42236_ (gx#syntax-split-splice - _tl1713217183_ + _tl1713017183_ '0))) (begin (let ((_g42237_ @@ -518,17 +528,17 @@ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) (cons (cons _L17307_ - (foldr (lambda (_g1745117456_ + (foldr (lambda (_g1745317456_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1745217459_) - (cons _g1745117456_ _g1745217459_)) + _g1745417459_) + (cons _g1745317456_ _g1745417459_)) '() _L17258_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_g1745317462_ - _g1745417465_) - (cons _g1745317462_ - _g1745417465_)) + (foldr (lambda (_g1745117462_ + _g1745217465_) + (cons _g1745117462_ + _g1745217465_)) '() _L17256_))) (gx#stx-source _stx17119_)))))) @@ -541,10 +551,10 @@ (cons (cons (cons (gx#datum->syntax '#f '_) - (foldr (lambda (_g1747117480_ + (foldr (lambda (_g1747717480_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1747217483_) - (cons _g1747117480_ _g1747217483_)) + _g1747817483_) + (cons _g1747717480_ _g1747817483_)) '() _L17373_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -552,16 +562,16 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons (foldr (lambda (_g1747317486_ _g1747417489_) - (cons _g1747317486_ _g1747417489_)) + (cons (foldr (lambda (_g1747517486_ _g1747617489_) + (cons _g1747517486_ _g1747617489_)) '() _L17258_) - (foldr (lambda (_g1747517492_ _g1747617495_) - (cons _g1747517492_ _g1747617495_)) + (foldr (lambda (_g1747317492_ _g1747417495_) + (cons _g1747317492_ _g1747417495_)) '() _L17256_))) - (foldr (lambda (_g1747717498_ _g1747817501_) - (cons _g1747717498_ _g1747817501_)) + (foldr (lambda (_g1747117498_ _g1747217501_) + (cons _g1747117498_ _g1747217501_)) '() _L17373_)) '())) @@ -656,189 +666,195 @@ (cons _L17605_ '())) '())))))) (let* ((___match3908639087_ - (lambda (_e1755417575_ + (lambda (_e1755617575_ _hd1755517579_ - _tl1755617582_ - _e1755717585_ + _tl1755417582_ + _e1755917585_ _hd1755817589_ - _tl1755917592_ - _e1756017595_ + _tl1755717592_ + _e1756217595_ _hd1756117599_ - _tl1756217602_) + _tl1756017602_) (let ((_L17605_ _hd1756117599_) (_L17607_ _hd1755817589_) (_L17608_ _hd1755517579_)) (if (and (gx#identifier? _L17607_) (gx#stx-datum? _L17605_)) (___kont3902639027_ _L17605_ _L17607_ _L17608_) - (_g1753217568_))))) + (let () (declare (not safe)) (_g1753217568_)))))) (___match3906639067_ - (lambda (_e1753617632_ + (lambda (_e1753817632_ _hd1753717636_ - _tl1753817639_ - _e1753917642_ + _tl1753617639_ + _e1754117642_ _hd1754017646_ - _tl1754117649_ - _e1754217652_ + _tl1753917649_ + _e1754417652_ _hd1754317656_ - _tl1754417659_ - _e1754517662_ + _tl1754217659_ + _e1754717662_ _hd1754617666_ - _tl1754717669_ - _e1754817672_ + _tl1754517669_ + _e1755017672_ _hd1754917676_ - _tl1755017679_) + _tl1754817679_) (let ((_L17682_ _hd1754917676_) (_L17684_ _hd1754017646_)) (if (gx#identifier? _L17684_) (___kont3902439025_ _L17682_ _L17684_) (___match3908639087_ - _e1753617632_ + _e1753817632_ _hd1753717636_ - _tl1753817639_ - _e1753917642_ + _tl1753617639_ + _e1754117642_ _hd1754017646_ - _tl1754117649_ - _e1754217652_ + _tl1753917649_ + _e1754417652_ _hd1754317656_ - _tl1754417659_)))))) + _tl1754217659_)))))) (if (gx#stx-pair? ___stx3902139022_) - (let ((_e1753617632_ (gx#syntax-e ___stx3902139022_))) - (let ((_tl1753817639_ - (let () (declare (not safe)) (##cdr _e1753617632_))) + (let ((_e1753817632_ (gx#syntax-e ___stx3902139022_))) + (let ((_tl1753617639_ + (let () (declare (not safe)) (##cdr _e1753817632_))) (_hd1753717636_ (let () (declare (not safe)) - (##car _e1753617632_)))) - (if (gx#stx-pair? _tl1753817639_) - (let ((_e1753917642_ (gx#syntax-e _tl1753817639_))) - (let ((_tl1754117649_ + (##car _e1753817632_)))) + (if (gx#stx-pair? _tl1753617639_) + (let ((_e1754117642_ (gx#syntax-e _tl1753617639_))) + (let ((_tl1753917649_ (let () (declare (not safe)) - (##cdr _e1753917642_))) + (##cdr _e1754117642_))) (_hd1754017646_ (let () (declare (not safe)) - (##car _e1753917642_)))) - (if (gx#stx-pair? _tl1754117649_) - (let ((_e1754217652_ - (gx#syntax-e _tl1754117649_))) - (let ((_tl1754417659_ + (##car _e1754117642_)))) + (if (gx#stx-pair? _tl1753917649_) + (let ((_e1754417652_ + (gx#syntax-e _tl1753917649_))) + (let ((_tl1754217659_ (let () (declare (not safe)) - (##cdr _e1754217652_))) + (##cdr _e1754417652_))) (_hd1754317656_ (let () (declare (not safe)) - (##car _e1754217652_)))) + (##car _e1754417652_)))) (if (gx#stx-pair? _hd1754317656_) - (let ((_e1754517662_ + (let ((_e1754717662_ (gx#syntax-e _hd1754317656_))) - (let ((_tl1754717669_ + (let ((_tl1754517669_ (let () (declare (not safe)) - (##cdr _e1754517662_))) + (##cdr _e1754717662_))) (_hd1754617666_ (let () (declare (not safe)) - (##car _e1754517662_)))) + (##car _e1754717662_)))) (if (gx#identifier? _hd1754617666_) (if (gx#free-identifier=? |gerbil/core$$[1]#_g42240_| _hd1754617666_) (if (gx#stx-pair? - _tl1754717669_) - (let ((_e1754817672_ + _tl1754517669_) + (let ((_e1755017672_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1754717669_))) - (let ((_tl1755017679_ - (let () (declare (not safe)) (##cdr _e1754817672_))) + (gx#syntax-e _tl1754517669_))) + (let ((_tl1754817679_ + (let () (declare (not safe)) (##cdr _e1755017672_))) (_hd1754917676_ (let () (declare (not safe)) - (##car _e1754817672_)))) - (if (gx#stx-null? _tl1755017679_) - (if (gx#stx-null? _tl1754417659_) + (##car _e1755017672_)))) + (if (gx#stx-null? _tl1754817679_) + (if (gx#stx-null? _tl1754217659_) (___match3906639067_ - _e1753617632_ + _e1753817632_ _hd1753717636_ - _tl1753817639_ - _e1753917642_ + _tl1753617639_ + _e1754117642_ _hd1754017646_ - _tl1754117649_ - _e1754217652_ + _tl1753917649_ + _e1754417652_ _hd1754317656_ - _tl1754417659_ - _e1754517662_ + _tl1754217659_ + _e1754717662_ _hd1754617666_ - _tl1754717669_ - _e1754817672_ + _tl1754517669_ + _e1755017672_ _hd1754917676_ - _tl1755017679_) - (_g1753217568_)) - (if (gx#stx-null? _tl1754417659_) + _tl1754817679_) + (let () (declare (not safe)) (_g1753217568_))) + (if (gx#stx-null? _tl1754217659_) (___match3908639087_ - _e1753617632_ + _e1753817632_ _hd1753717636_ - _tl1753817639_ - _e1753917642_ + _tl1753617639_ + _e1754117642_ _hd1754017646_ - _tl1754117649_ - _e1754217652_ + _tl1753917649_ + _e1754417652_ _hd1754317656_ - _tl1754417659_) - (_g1753217568_))))) - (if (gx#stx-null? _tl1754417659_) + _tl1754217659_) + (let () (declare (not safe)) (_g1753217568_)))))) + (if (gx#stx-null? _tl1754217659_) (___match3908639087_ - _e1753617632_ + _e1753817632_ _hd1753717636_ - _tl1753817639_ - _e1753917642_ + _tl1753617639_ + _e1754117642_ _hd1754017646_ - _tl1754117649_ - _e1754217652_ + _tl1753917649_ + _e1754417652_ _hd1754317656_ - _tl1754417659_) - (_g1753217568_))) - (if (gx#stx-null? _tl1754417659_) + _tl1754217659_) + (let () (declare (not safe)) (_g1753217568_)))) + (if (gx#stx-null? _tl1754217659_) (___match3908639087_ - _e1753617632_ + _e1753817632_ _hd1753717636_ - _tl1753817639_ - _e1753917642_ + _tl1753617639_ + _e1754117642_ _hd1754017646_ - _tl1754117649_ - _e1754217652_ + _tl1753917649_ + _e1754417652_ _hd1754317656_ - _tl1754417659_) - (_g1753217568_))) + _tl1754217659_) + (let () (declare (not safe)) (_g1753217568_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl1754417659_) + _tl1754217659_) (___match3908639087_ - _e1753617632_ + _e1753817632_ _hd1753717636_ - _tl1753817639_ - _e1753917642_ + _tl1753617639_ + _e1754117642_ _hd1754017646_ - _tl1754117649_ - _e1754217652_ + _tl1753917649_ + _e1754417652_ _hd1754317656_ - _tl1754417659_) - (_g1753217568_))))) - (if (gx#stx-null? _tl1754417659_) + _tl1754217659_) + (let () + (declare (not safe)) + (_g1753217568_)))))) + (if (gx#stx-null? _tl1754217659_) (___match3908639087_ - _e1753617632_ + _e1753817632_ _hd1753717636_ - _tl1753817639_ - _e1753917642_ + _tl1753617639_ + _e1754117642_ _hd1754017646_ - _tl1754117649_ - _e1754217652_ + _tl1753917649_ + _e1754417652_ _hd1754317656_ - _tl1754417659_) - (_g1753217568_))))) - (_g1753217568_)))) - (_g1753217568_)))) - (_g1753217568_))))))))) + _tl1754217659_) + (let () + (declare (not safe)) + (_g1753217568_)))))) + (let () + (declare (not safe)) + (_g1753217568_))))) + (let () (declare (not safe)) (_g1753217568_))))) + (let () (declare (not safe)) (_g1753217568_)))))))))) diff --git a/src/bootstrap/gerbil/core__6.scm b/src/bootstrap/gerbil/core__6.scm index 7285976f2..450277949 100644 --- a/src/bootstrap/gerbil/core__6.scm +++ b/src/bootstrap/gerbil/core__6.scm @@ -25,53 +25,59 @@ (cons _off19181_ (cons _L19250_ (cons _L19248_ '())))))) (if (gx#stx-pair? ___stx3908939090_) - (let ((_e1918819275_ + (let ((_e1919019275_ (gx#syntax-e ___stx3908939090_))) - (let ((_tl1919019282_ + (let ((_tl1918819282_ (let () (declare (not safe)) - (##cdr _e1918819275_))) + (##cdr _e1919019275_))) (_hd1918919279_ (let () (declare (not safe)) - (##car _e1918819275_)))) - (if (gx#stx-pair? _tl1919019282_) - (let ((_e1919119285_ - (gx#syntax-e _tl1919019282_))) - (let ((_tl1919319292_ + (##car _e1919019275_)))) + (if (gx#stx-pair? _tl1918819282_) + (let ((_e1919319285_ + (gx#syntax-e _tl1918819282_))) + (let ((_tl1919119292_ (let () (declare (not safe)) - (##cdr _e1919119285_))) + (##cdr _e1919319285_))) (_hd1919219289_ (let () (declare (not safe)) - (##car _e1919119285_)))) - (if (gx#stx-null? _tl1919319292_) + (##car _e1919319285_)))) + (if (gx#stx-null? _tl1919119292_) (___kont3909239093_ _hd1919219289_ _hd1918919279_) - (if (gx#stx-pair? _tl1919319292_) - (let ((_e1920319238_ + (if (gx#stx-pair? _tl1919119292_) + (let ((_e1920519238_ (gx#syntax-e - _tl1919319292_))) - (let ((_tl1920519245_ + _tl1919119292_))) + (let ((_tl1920319245_ (let () (declare (not safe)) - (##cdr _e1920319238_))) + (##cdr _e1920519238_))) (_hd1920419242_ (let () (declare (not safe)) - (##car _e1920319238_)))) + (##car _e1920519238_)))) (if (gx#stx-null? - _tl1920519245_) + _tl1920319245_) (___kont3909439095_ _hd1920419242_ _hd1919219289_ _hd1918919279_) - (_g1918419211_)))) - (_g1918419211_))))) - (_g1918419211_)))) - (_g1918419211_)))))) + (let () + (declare (not safe)) + (_g1918419211_))))) + (let () + (declare (not safe)) + (_g1918419211_)))))) + (let () + (declare (not safe)) + (_g1918419211_))))) + (let () (declare (not safe)) (_g1918419211_))))))) (_field-id17716_ (lambda (_field19045_) (let* ((___stx3913339134_ _field19045_) @@ -85,53 +91,59 @@ (___kont3913839139_ (lambda (_L19113_ _L19115_ _L19116_) _L19116_))) (if (gx#stx-pair? ___stx3913339134_) - (let ((_e1905319140_ + (let ((_e1905519140_ (gx#syntax-e ___stx3913339134_))) - (let ((_tl1905519147_ + (let ((_tl1905319147_ (let () (declare (not safe)) - (##cdr _e1905319140_))) + (##cdr _e1905519140_))) (_hd1905419144_ (let () (declare (not safe)) - (##car _e1905319140_)))) - (if (gx#stx-pair? _tl1905519147_) - (let ((_e1905619150_ - (gx#syntax-e _tl1905519147_))) - (let ((_tl1905819157_ + (##car _e1905519140_)))) + (if (gx#stx-pair? _tl1905319147_) + (let ((_e1905819150_ + (gx#syntax-e _tl1905319147_))) + (let ((_tl1905619157_ (let () (declare (not safe)) - (##cdr _e1905619150_))) + (##cdr _e1905819150_))) (_hd1905719154_ (let () (declare (not safe)) - (##car _e1905619150_)))) - (if (gx#stx-null? _tl1905819157_) + (##car _e1905819150_)))) + (if (gx#stx-null? _tl1905619157_) (___kont3913639137_ _hd1905719154_ _hd1905419144_) - (if (gx#stx-pair? _tl1905819157_) - (let ((_e1906819103_ + (if (gx#stx-pair? _tl1905619157_) + (let ((_e1907019103_ (gx#syntax-e - _tl1905819157_))) - (let ((_tl1907019110_ + _tl1905619157_))) + (let ((_tl1906819110_ (let () (declare (not safe)) - (##cdr _e1906819103_))) + (##cdr _e1907019103_))) (_hd1906919107_ (let () (declare (not safe)) - (##car _e1906819103_)))) + (##car _e1907019103_)))) (if (gx#stx-null? - _tl1907019110_) + _tl1906819110_) (___kont3913839139_ _hd1906919107_ _hd1905719154_ _hd1905419144_) - (_g1904919076_)))) - (_g1904919076_))))) - (_g1904919076_)))) - (_g1904919076_)))))) + (let () + (declare (not safe)) + (_g1904919076_))))) + (let () + (declare (not safe)) + (_g1904919076_)))))) + (let () + (declare (not safe)) + (_g1904919076_))))) + (let () (declare (not safe)) (_g1904919076_))))))) (_struct-opt?17717_ (lambda (_key19042_) (memq (gx#stx-e _key19042_) @@ -166,61 +178,61 @@ (_g1772019022_ (lambda (_g1772217752_) (if (gx#stx-pair? _g1772217752_) - (let ((_e1772817755_ (gx#syntax-e _g1772217752_))) + (let ((_e1773017755_ (gx#syntax-e _g1772217752_))) (let ((_hd1772917759_ (let () (declare (not safe)) - (##car _e1772817755_))) - (_tl1773017762_ + (##car _e1773017755_))) + (_tl1772817762_ (let () (declare (not safe)) - (##cdr _e1772817755_)))) - (if (gx#stx-pair? _tl1773017762_) - (let ((_e1773117765_ - (gx#syntax-e _tl1773017762_))) + (##cdr _e1773017755_)))) + (if (gx#stx-pair? _tl1772817762_) + (let ((_e1773317765_ + (gx#syntax-e _tl1772817762_))) (let ((_hd1773217769_ (let () (declare (not safe)) - (##car _e1773117765_))) - (_tl1773317772_ + (##car _e1773317765_))) + (_tl1773117772_ (let () (declare (not safe)) - (##cdr _e1773117765_)))) - (if (gx#stx-pair? _tl1773317772_) - (let ((_e1773417775_ - (gx#syntax-e _tl1773317772_))) + (##cdr _e1773317765_)))) + (if (gx#stx-pair? _tl1773117772_) + (let ((_e1773617775_ + (gx#syntax-e _tl1773117772_))) (let ((_hd1773517779_ (let () (declare (not safe)) - (##car _e1773417775_))) - (_tl1773617782_ + (##car _e1773617775_))) + (_tl1773417782_ (let () (declare (not safe)) - (##cdr _e1773417775_)))) - (if (gx#stx-pair? _tl1773617782_) - (let ((_e1773717785_ + (##cdr _e1773617775_)))) + (if (gx#stx-pair? _tl1773417782_) + (let ((_e1773917785_ (gx#syntax-e - _tl1773617782_))) + _tl1773417782_))) (let ((_hd1773817789_ (let () (declare (not safe)) - (##car _e1773717785_))) - (_tl1773917792_ + (##car _e1773917785_))) + (_tl1773717792_ (let () (declare (not safe)) - (##cdr _e1773717785_)))) + (##cdr _e1773917785_)))) (if (gx#stx-pair? - _tl1773917792_) - (let ((_e1774017795_ + _tl1773717792_) + (let ((_e1774217795_ (gx#syntax-e - _tl1773917792_))) + _tl1773717792_))) (let ((_hd1774117799_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e1774017795_))) - (_tl1774217802_ - (let () (declare (not safe)) (##cdr _e1774017795_)))) + (##car _e1774217795_))) + (_tl1774017802_ + (let () (declare (not safe)) (##cdr _e1774217795_)))) ((lambda (_L17805_ _L17807_ _L17808_ _L17809_ _L17810_) (if (and (gx#identifier? _L17810_) (or (gx#identifier? _L17808_) @@ -246,73 +258,73 @@ (_g1784619018_ (lambda (_g1784817882_) (if (gx#stx-pair? _g1784817882_) - (let ((_e1785517885_ + (let ((_e1785717885_ (gx#syntax-e _g1784817882_))) (let ((_hd1785617889_ (let () (declare (not safe)) - (##car _e1785517885_))) - (_tl1785717892_ + (##car _e1785717885_))) + (_tl1785517892_ (let () (declare (not safe)) - (##cdr _e1785517885_)))) - (if (gx#stx-pair? _tl1785717892_) - (let ((_e1785817895_ + (##cdr _e1785717885_)))) + (if (gx#stx-pair? _tl1785517892_) + (let ((_e1786017895_ (gx#syntax-e - _tl1785717892_))) + _tl1785517892_))) (let ((_hd1785917899_ (let () (declare (not safe)) - (##car _e1785817895_))) - (_tl1786017902_ + (##car _e1786017895_))) + (_tl1785817902_ (let () (declare (not safe)) - (##cdr _e1785817895_)))) + (##cdr _e1786017895_)))) (if (gx#stx-pair? - _tl1786017902_) - (let ((_e1786117905_ + _tl1785817902_) + (let ((_e1786317905_ (gx#syntax-e - _tl1786017902_))) + _tl1785817902_))) (let ((_hd1786217909_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e1786117905_))) - (_tl1786317912_ - (let () (declare (not safe)) (##cdr _e1786117905_)))) - (if (gx#stx-pair? _tl1786317912_) - (let ((_e1786417915_ (gx#syntax-e _tl1786317912_))) + (##car _e1786317905_))) + (_tl1786117912_ + (let () (declare (not safe)) (##cdr _e1786317905_)))) + (if (gx#stx-pair? _tl1786117912_) + (let ((_e1786617915_ (gx#syntax-e _tl1786117912_))) (let ((_hd1786517919_ (let () (declare (not safe)) - (##car _e1786417915_))) - (_tl1786617922_ + (##car _e1786617915_))) + (_tl1786417922_ (let () (declare (not safe)) - (##cdr _e1786417915_)))) - (if (gx#stx-pair? _tl1786617922_) - (let ((_e1786717925_ - (gx#syntax-e _tl1786617922_))) + (##cdr _e1786617915_)))) + (if (gx#stx-pair? _tl1786417922_) + (let ((_e1786917925_ + (gx#syntax-e _tl1786417922_))) (let ((_hd1786817929_ (let () (declare (not safe)) - (##car _e1786717925_))) - (_tl1786917932_ + (##car _e1786917925_))) + (_tl1786717932_ (let () (declare (not safe)) - (##cdr _e1786717925_)))) - (if (gx#stx-pair? _tl1786917932_) - (let ((_e1787017935_ - (gx#syntax-e _tl1786917932_))) + (##cdr _e1786917925_)))) + (if (gx#stx-pair? _tl1786717932_) + (let ((_e1787217935_ + (gx#syntax-e _tl1786717932_))) (let ((_hd1787117939_ (let () (declare (not safe)) - (##car _e1787017935_))) - (_tl1787217942_ + (##car _e1787217935_))) + (_tl1787017942_ (let () (declare (not safe)) - (##cdr _e1787017935_)))) - (if (gx#stx-null? _tl1787217942_) + (##cdr _e1787217935_)))) + (if (gx#stx-null? _tl1787017942_) ((lambda (_L17945_ _L17947_ _L17948_ @@ -458,34 +470,46 @@ (_lp-tl1821718265_ (let () (declare (not safe)) (##cdr _e1821518258_)))) (if (gx#stx-pair? _lp-hd1821618262_) - (let ((_e1822218268_ (gx#syntax-e _lp-hd1821618262_))) + (let ((_e1822418268_ (gx#syntax-e _lp-hd1821618262_))) (let ((_hd1822318272_ (let () (declare (not safe)) - (##car _e1822218268_))) - (_tl1822418275_ + (##car _e1822418268_))) + (_tl1822218275_ (let () (declare (not safe)) - (##cdr _e1822218268_)))) - (if (gx#stx-pair? _tl1822418275_) - (let ((_e1822518278_ (gx#syntax-e _tl1822418275_))) + (##cdr _e1822418268_)))) + (if (gx#stx-pair? _tl1822218275_) + (let ((_e1822718278_ (gx#syntax-e _tl1822218275_))) (let ((_hd1822618282_ (let () (declare (not safe)) - (##car _e1822518278_))) - (_tl1822718285_ + (##car _e1822718278_))) + (_tl1822518285_ (let () (declare (not safe)) - (##cdr _e1822518278_)))) - (if (gx#stx-null? _tl1822718285_) - (_loop1821418246_ - _lp-tl1821718265_ - (cons _hd1822618282_ _def-setf1821818253_) - (cons _hd1822318272_ - _def-getf1821918255_)) - (_g1820718233_ _g1820818237_)))) - (_g1820718233_ _g1820818237_)))) - (_g1820718233_ _g1820818237_)))) + (##cdr _e1822718278_)))) + (if (gx#stx-null? _tl1822518285_) + (let ((__tmp42253 + (cons _hd1822618282_ + _def-setf1821818253_)) + (__tmp42252 + (cons _hd1822318272_ + _def-getf1821918255_))) + (declare (not safe)) + (_loop1821418246_ + _lp-tl1821718265_ + __tmp42253 + __tmp42252)) + (let () + (declare (not safe)) + (_g1820718233_ _g1820818237_))))) + (let () + (declare (not safe)) + (_g1820718233_ _g1820818237_))))) + (let () + (declare (not safe)) + (_g1820718233_ _g1820818237_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_def-setf1822018288_ (reverse _def-setf1821818253_)) @@ -547,37 +571,48 @@ (declare (not safe)) (##cdr _e1832218365_)))) (if (gx#stx-pair? _lp-hd1832318369_) - (let ((_e1832918375_ + (let ((_e1833118375_ (gx#syntax-e _lp-hd1832318369_))) (let ((_hd1833018379_ (let () (declare (not safe)) - (##car _e1832918375_))) - (_tl1833118382_ + (##car _e1833118375_))) + (_tl1832918382_ (let () (declare (not safe)) - (##cdr _e1832918375_)))) - (if (gx#stx-pair? _tl1833118382_) - (let ((_e1833218385_ - (gx#syntax-e _tl1833118382_))) + (##cdr _e1833118375_)))) + (if (gx#stx-pair? _tl1832918382_) + (let ((_e1833418385_ + (gx#syntax-e _tl1832918382_))) (let ((_hd1833318389_ (let () (declare (not safe)) - (##car _e1833218385_))) - (_tl1833418392_ + (##car _e1833418385_))) + (_tl1833218392_ (let () (declare (not safe)) - (##cdr _e1833218385_)))) - (if (gx#stx-null? _tl1833418392_) - (_loop1832118353_ - _lp-tl1832418372_ - (cons _hd1833318389_ - _def-usetf1832518360_) - (cons _hd1833018379_ - _def-ugetf1832618362_)) - (_g1831418340_ _g1831518344_)))) - (_g1831418340_ _g1831518344_)))) - (_g1831418340_ _g1831518344_)))) + (##cdr _e1833418385_)))) + (if (gx#stx-null? _tl1833218392_) + (let ((__tmp42247 + (cons _hd1833318389_ + _def-usetf1832518360_)) + (__tmp42246 + (cons _hd1833018379_ + _def-ugetf1832618362_))) + (declare (not safe)) + (_loop1832118353_ + _lp-tl1832418372_ + __tmp42247 + __tmp42246)) + (let () + (declare (not safe)) + (_g1831418340_ _g1831518344_))))) + (let () + (declare (not safe)) + (_g1831418340_ _g1831518344_))))) + (let () + (declare (not safe)) + (_g1831418340_ _g1831518344_))))) (let ((_def-usetf1832718395_ (reverse _def-usetf1832518360_)) (_def-ugetf1832818398_ @@ -585,650 +620,751 @@ ((lambda (_L18401_ _L18403_) (let () (let () - (_wrap17713_ - (cons (gx#datum->syntax '#f 'begin) - (cons _L18135_ - (cons _L18191_ - (cons _L18163_ - (foldr (lambda (_g1842118430_ + (let ((__tmp42245 + (cons (gx#datum->syntax '#f 'begin) + (cons _L18135_ + (cons _L18191_ + (cons _L18163_ + (foldr (lambda (_g1842118430_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1842218433_) - (cons _g1842118430_ _g1842218433_)) - (foldr (lambda (_g1842318436_ _g1842418439_) - (cons _g1842318436_ _g1842418439_)) - (foldr (lambda (_g1842518442_ _g1842618445_) - (cons _g1842518442_ _g1842618445_)) - (foldr (lambda (_g1842718448_ _g1842818451_) - (cons _g1842718448_ _g1842818451_)) - '() - _L18401_) - _L18403_) - _L18294_) - _L18296_))))))))) + _g1842218433_) + (cons _g1842118430_ _g1842218433_)) + (foldr (lambda (_g1842318436_ _g1842418439_) + (cons _g1842318436_ _g1842418439_)) + (foldr (lambda (_g1842518442_ _g1842618445_) + (cons _g1842518442_ _g1842618445_)) + (foldr (lambda (_g1842718448_ + _g1842818451_) + (cons _g1842718448_ + _g1842818451_)) + '() + _L18401_) + _L18403_) + _L18294_) + _L18296_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_wrap17713_ __tmp42245))))) _def-usetf1832718395_ _def-ugetf1832818398_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1832118353_ - _target1831818347_ - '() - '())) - (_g1831418340_ _g1831518344_))))) - (_g1831418340_ _g1831518344_))))) - (_g1831318454_ - (if (gx#stx-e (gx#stx-getq 'unchecked: _L17805_)) - (gx#stx-map - (lambda (_ref18458_) - (let* ((_g1846118480_ - (lambda (_g1846218476_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g1846218476_))) - (_g1846018602_ - (lambda (_g1846218484_) - (if (gx#stx-pair? _g1846218484_) - (let ((_e1846618487_ - (gx#syntax-e _g1846218484_))) - (let ((_hd1846718491_ - (let () - (declare (not safe)) - (##car _e1846618487_))) - (_tl1846818494_ - (let () - (declare (not safe)) - (##cdr _e1846618487_)))) - (if (gx#stx-pair? - _tl1846818494_) - (let ((_e1846918497_ - (gx#syntax-e - _tl1846818494_))) - (let ((_hd1847018501_ - (let () - (declare - (not safe)) - (##car _e1846918497_))) - (_tl1847118504_ - (let () - (declare - (not safe)) - (##cdr _e1846918497_)))) - (if (gx#stx-pair? - _tl1847118504_) - (let ((_e1847218507_ + (let () + (declare (not safe)) + (_loop1832118353_ + _target1831818347_ + '() + '()))) + (let () + (declare (not safe)) + (_g1831418340_ _g1831518344_)))))) + (let () + (declare (not safe)) + (_g1831418340_ _g1831518344_))))) + (__tmp42248 + (if (gx#stx-e (gx#stx-getq 'unchecked: _L17805_)) + (gx#stx-map + (lambda (_ref18458_) + (let* ((_g1846118480_ + (lambda (_g1846218476_) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1846218476_))) + (_g1846018602_ + (lambda (_g1846218484_) + (if (gx#stx-pair? _g1846218484_) + (let ((_e1846818487_ + (gx#syntax-e + _g1846218484_))) + (let ((_hd1846718491_ + (let () + (declare (not safe)) + (##car _e1846818487_))) + (_tl1846618494_ + (let () + (declare (not safe)) + (##cdr _e1846818487_)))) + (if (gx#stx-pair? + _tl1846618494_) + (let ((_e1847118497_ + (gx#syntax-e + _tl1846618494_))) + (let ((_hd1847018501_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1847118504_))) - (let ((_hd1847318511_ - (let () - (declare (not safe)) - (##car _e1847218507_))) - (_tl1847418514_ - (let () - (declare (not safe)) - (##cdr _e1847218507_)))) - (if (gx#stx-null? _tl1847418514_) - ((lambda (_L18517_ _L18519_ _L18520_) - (let* ((_g1853818553_ - (lambda (_g1853918549_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g1853918549_))) - (_g1853718598_ - (lambda (_g1853918557_) - (if (gx#stx-pair? _g1853918557_) - (let ((_e1854218560_ - (gx#syntax-e - _g1853918557_))) - (let ((_hd1854318564_ - (let () - (declare (not safe)) - (##car _e1854218560_))) - (_tl1854418567_ - (let () - (declare (not safe)) - (##cdr _e1854218560_)))) - (if (gx#stx-pair? - _tl1854418567_) - (let ((_e1854518570_ - (gx#syntax-e - _tl1854418567_))) - (let ((_hd1854618574_ - (let () - (declare + (let () (declare (not safe)) (##car _e1847118497_))) + (_tl1846918504_ + (let () (declare (not safe)) (##cdr _e1847118497_)))) + (if (gx#stx-pair? _tl1846918504_) + (let ((_e1847418507_ (gx#syntax-e _tl1846918504_))) + (let ((_hd1847318511_ + (let () + (declare (not safe)) + (##car _e1847418507_))) + (_tl1847218514_ + (let () + (declare (not safe)) + (##cdr _e1847418507_)))) + (if (gx#stx-null? _tl1847218514_) + ((lambda (_L18517_ _L18519_ _L18520_) + (let* ((_g1853818553_ + (lambda (_g1853918549_) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1853918549_))) + (_g1853718598_ + (lambda (_g1853918557_) + (if (gx#stx-pair? _g1853918557_) + (let ((_e1854418560_ + (gx#syntax-e + _g1853918557_))) + (let ((_hd1854318564_ + (let () + (declare + (not safe)) + (##car _e1854418560_))) + (_tl1854218567_ + (let () + (declare + (not safe)) + (##cdr _e1854418560_)))) + (if (gx#stx-pair? + _tl1854218567_) + (let ((_e1854718570_ + (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1854518570_))) - (_tl1854718577_ - (let () (declare (not safe)) (##cdr _e1854518570_)))) - (if (gx#stx-null? _tl1854718577_) - ((lambda (_L18580_ _L18582_) - (let () - (cons (_wrap17713_ - (cons (gx#datum->syntax '#f 'def) - (cons _L18582_ - (cons (cons _L17947_ - (cons _L17810_ - (cons (cons (gx#datum->syntax + _tl1854218567_))) + (let ((_hd1854618574_ + (let () (declare (not safe)) (##car _e1854718570_))) + (_tl1854518577_ + (let () (declare (not safe)) (##cdr _e1854718570_)))) + (if (gx#stx-null? _tl1854518577_) + ((lambda (_L18580_ _L18582_) + (let () + (cons (let ((__tmp42249 + (cons (gx#datum->syntax '#f 'def) + (cons _L18582_ + (cons (cons _L17947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L18520_ '())) - '()))) + (cons _L17810_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _L18520_ '())) + '()))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - (cons (_wrap17713_ - (cons (gx#datum->syntax '#f 'def) - (cons _L18580_ - (cons (cons _L17945_ - (cons _L17810_ + (declare (not safe)) + (_wrap17713_ __tmp42249)) + (cons (let ((__tmp42250 + (cons (gx#datum->syntax + '#f + 'def) + (cons _L18580_ + (cons (cons _L17945_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18520_ '())) - '()))) - '())))) + (cons _L17810_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _L18520_ '())) + '()))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - _hd1854618574_ - _hd1854318564_) - (_g1853818553_ _g1853918557_)))) + (declare (not safe)) + (_wrap17713_ __tmp42250)) + '())))) + _hd1854618574_ + _hd1854318564_) + (let () + (declare (not safe)) + (_g1853818553_ _g1853918557_))))) + (let () (declare (not safe)) (_g1853818553_ _g1853918557_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1853818553_ - _g1853918557_)))) - (_g1853818553_ _g1853918557_))))) - (_g1853718598_ - (list (gx#stx-identifier - _L18519_ - '"&" - _L18519_) - (gx#stx-identifier - _L18517_ - '"&" - _L18517_))))) - _hd1847318511_ - _hd1847018501_ - _hd1846718491_) - (_g1846118480_ _g1846218484_)))) - (_g1846118480_ _g1846218484_)))) + (let () + (declare (not safe)) + (_g1853818553_ + _g1853918557_))))) + (__tmp42251 + (list (gx#stx-identifier + _L18519_ + '"&" + _L18519_) + (gx#stx-identifier + _L18517_ + '"&" + _L18517_)))) + (declare (not safe)) + (_g1853718598_ __tmp42251))) + _hd1847318511_ + _hd1847018501_ + _hd1846718491_) + (let () + (declare (not safe)) + (_g1846118480_ _g1846218484_))))) + (let () + (declare (not safe)) + (_g1846118480_ _g1846218484_))))) + (let () (declare (not safe)) (_g1846118480_ _g1846218484_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1846118480_ - _g1846218484_)))) - (_g1846118480_ _g1846218484_))))) - (_g1846018602_ _ref18458_))) - _attrs18204_) - '()))))) + (let () + (declare (not safe)) + (_g1846118480_ + _g1846218484_)))))) + (declare (not safe)) + (_g1846018602_ _ref18458_))) + _attrs18204_) + '()))) + (declare (not safe)) + (_g1831318454_ __tmp42248)))) _def-setf1822018288_ _def-getf1822118291_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1821418246_ - _target1821118240_ - '() - '())) - (_g1820718233_ _g1820818237_))))) - (_g1820718233_ _g1820818237_))))) - (_g1820618606_ - (gx#stx-map - (lambda (_ref18610_) - (let* ((_g1861318632_ - (lambda (_g1861418628_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g1861418628_))) - (_g1861218690_ - (lambda (_g1861418636_) - (if (gx#stx-pair? _g1861418636_) - (let ((_e1861818639_ - (gx#syntax-e _g1861418636_))) - (let ((_hd1861918643_ - (let () - (declare (not safe)) - (##car _e1861818639_))) - (_tl1862018646_ - (let () - (declare (not safe)) - (##cdr _e1861818639_)))) - (if (gx#stx-pair? _tl1862018646_) - (let ((_e1862118649_ - (gx#syntax-e _tl1862018646_))) - (let ((_hd1862218653_ - (let () - (declare (not safe)) - (##car _e1862118649_))) - (_tl1862318656_ - (let () - (declare (not safe)) - (##cdr _e1862118649_)))) - (if (gx#stx-pair? _tl1862318656_) - (let ((_e1862418659_ - (gx#syntax-e - _tl1862318656_))) - (let ((_hd1862518663_ - (let () - (declare (not safe)) - (##car _e1862418659_))) - (_tl1862618666_ - (let () - (declare (not safe)) - (##cdr _e1862418659_)))) - (if (gx#stx-null? - _tl1862618666_) - ((lambda (_L18669_ + (let () + (declare (not safe)) + (_loop1821418246_ + _target1821118240_ + '() + '()))) + (let () + (declare (not safe)) + (_g1820718233_ _g1820818237_)))))) + (let () + (declare (not safe)) + (_g1820718233_ _g1820818237_))))) + (__tmp42254 + (gx#stx-map + (lambda (_ref18610_) + (let* ((_g1861318632_ + (lambda (_g1861418628_) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1861418628_))) + (_g1861218690_ + (lambda (_g1861418636_) + (if (gx#stx-pair? _g1861418636_) + (let ((_e1862018639_ + (gx#syntax-e _g1861418636_))) + (let ((_hd1861918643_ + (let () + (declare (not safe)) + (##car _e1862018639_))) + (_tl1861818646_ + (let () + (declare (not safe)) + (##cdr _e1862018639_)))) + (if (gx#stx-pair? _tl1861818646_) + (let ((_e1862318649_ + (gx#syntax-e + _tl1861818646_))) + (let ((_hd1862218653_ + (let () + (declare (not safe)) + (##car _e1862318649_))) + (_tl1862118656_ + (let () + (declare (not safe)) + (##cdr _e1862318649_)))) + (if (gx#stx-pair? + _tl1862118656_) + (let ((_e1862618659_ + (gx#syntax-e + _tl1862118656_))) + (let ((_hd1862518663_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L18671_ - _L18672_) - (cons (_wrap17713_ - (cons (gx#datum->syntax '#f 'def) - (cons _L18671_ - (cons (cons _L17949_ - (cons _L17810_ - (cons (cons (gx#datum->syntax + (not safe)) + (##car _e1862618659_))) + (_tl1862418666_ + (let () (declare (not safe)) (##cdr _e1862618659_)))) + (if (gx#stx-null? _tl1862418666_) + ((lambda (_L18669_ _L18671_ _L18672_) + (cons (let ((__tmp42255 + (cons (gx#datum->syntax '#f 'def) + (cons _L18671_ + (cons (cons _L17949_ + (cons _L17810_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L18672_ '())) - '()))) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _L18672_ '())) + '()))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - (cons (_wrap17713_ - (cons (gx#datum->syntax '#f 'def) - (cons _L18669_ - (cons (cons _L17948_ - (cons _L17810_ - (cons (cons (gx#datum->syntax + (declare (not safe)) + (_wrap17713_ __tmp42255)) + (cons (let ((__tmp42256 + (cons (gx#datum->syntax '#f 'def) + (cons _L18669_ + (cons (cons _L17948_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L18672_ '())) - '()))) + (cons _L17810_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _L18672_ '())) + '()))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '()))) - _hd1862518663_ - _hd1862218653_ - _hd1861918643_) - (_g1861318632_ _g1861418636_)))) + (declare (not safe)) + (_wrap17713_ __tmp42256)) + '()))) + _hd1862518663_ + _hd1862218653_ + _hd1861918643_) + (let () + (declare (not safe)) + (_g1861318632_ _g1861418636_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1861318632_ - _g1861418636_)))) - (_g1861318632_ _g1861418636_)))) - (_g1861318632_ _g1861418636_))))) - (_g1861218690_ _ref18610_))) - _attrs18204_))))) + (let () + (declare (not safe)) + (_g1861318632_ + _g1861418636_))))) + (let () + (declare (not safe)) + (_g1861318632_ + _g1861418636_))))) + (let () + (declare (not safe)) + (_g1861318632_ _g1861418636_)))))) + (declare (not safe)) + (_g1861218690_ _ref18610_))) + _attrs18204_))) + (declare (not safe)) + (_g1820618606_ __tmp42254)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1817718188_)))) - (_g1817518694_ - (_wrap17713_ - (cons (gx#datum->syntax '#f 'def) - (cons _L17807_ - (cons (cons _L17950_ + _g1817718188_))) + (__tmp42257 + (let ((__tmp42258 + (cons (gx#datum->syntax + '#f + 'def) + (cons _L17807_ + (cons (cons _L17950_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L17810_ '())) - '())))))))) + (cons _L17810_ '())) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1814918160_)))) - (_g1814718698_ - (if (gx#stx-false? _L17808_) - (cons (gx#datum->syntax '#f 'begin) '()) - (_wrap17713_ - (cons (gx#datum->syntax '#f 'def) - (cons (cons _L17808_ - (gx#datum->syntax '#f '$args)) - (cons (cons (gx#datum->syntax - '#f - 'apply) - (cons _L17951_ - (cons _L17810_ + (declare (not safe)) + (_wrap17713_ __tmp42258)))) + (declare (not safe)) + (_g1817518694_ __tmp42257)))) + _g1814918160_))) + (__tmp42259 + (if (gx#stx-false? _L17808_) + (cons (gx#datum->syntax '#f 'begin) '()) + (let ((__tmp42260 + (cons (gx#datum->syntax '#f 'def) + (cons (cons _L17808_ + (gx#datum->syntax + '#f + '$args)) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f '$args) '())))) + '#f + 'apply) + (cons _L17951_ + (cons _L17810_ + (cons (gx#datum->syntax '#f '$args) + '())))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))))))) - _g1812118132_)))) + (declare (not safe)) + (_wrap17713_ __tmp42260))))) + (declare (not safe)) + (_g1814718698_ __tmp42259)))) + _g1812118132_))) + (__tmp42261 + (let ((__tmp42262 + (cons (gx#datum->syntax '#f 'def) + (cons _L17810_ (cons _L18107_ '()))))) + (declare (not safe)) + (_wrap17713_ __tmp42262)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1811918702_ - (_wrap17713_ - (cons (gx#datum->syntax - '#f - 'def) - (cons _L17810_ - (cons _L18107_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1809318104_)))) - (_g1809118706_ - (if _struct?17711_ - (let* ((_g1871018734_ - (lambda (_g1871118730_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g1871118730_))) - (_g1870918821_ - (lambda (_g1871118738_) - (if (gx#stx-pair? - _g1871118738_) - (let ((_e1871418741_ - (gx#syntax-e - _g1871118738_))) - (let ((_hd1871518745_ - (let () - (declare + (declare (not safe)) + (_g1811918702_ __tmp42261)))) + _g1809318104_))) + (__tmp42263 + (if _struct?17711_ + (let* ((_g1871018734_ + (lambda (_g1871118730_) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1871118730_))) + (_g1870918821_ + (lambda (_g1871118738_) + (if (gx#stx-pair? + _g1871118738_) + (let ((_e1871618741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1871418741_))) - (_tl1871618748_ - (let () (declare (not safe)) (##cdr _e1871418741_)))) - (if (gx#stx-pair? _tl1871618748_) - (let ((_e1871718751_ (gx#syntax-e _tl1871618748_))) - (let ((_hd1871818755_ - (let () - (declare (not safe)) - (##car _e1871718751_))) - (_tl1871918758_ - (let () - (declare (not safe)) - (##cdr _e1871718751_)))) - (if (gx#stx-pair/null? _hd1871818755_) - (let ((_g42245_ - (gx#syntax-split-splice - _hd1871818755_ - '0))) - (begin - (let ((_g42246_ - (let () - (declare (not safe)) - (if (##values? _g42245_) - (##vector-length _g42245_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g42246_ 2))) - (error "Context expects 2 values" - _g42246_))) - (let ((_target1872018761_ - (let () - (declare (not safe)) - (##vector-ref _g42245_ 0))) - (_tl1872218764_ - (let () - (declare (not safe)) - (##vector-ref _g42245_ 1)))) - (if (gx#stx-null? _tl1872218764_) - (letrec ((_loop1872318767_ - (lambda (_hd1872118771_ - _field-id1872718774_) - (if (gx#stx-pair? - _hd1872118771_) - (let ((_e1872418777_ - (gx#syntax-e - _hd1872118771_))) - (let ((_lp-hd1872518781_ - (let () + (gx#syntax-e _g1871118738_))) + (let ((_hd1871518745_ + (let () (declare (not safe)) (##car _e1871618741_))) + (_tl1871418748_ + (let () + (declare (not safe)) + (##cdr _e1871618741_)))) + (if (gx#stx-pair? _tl1871418748_) + (let ((_e1871918751_ (gx#syntax-e _tl1871418748_))) + (let ((_hd1871818755_ + (let () + (declare (not safe)) + (##car _e1871918751_))) + (_tl1871718758_ + (let () + (declare (not safe)) + (##cdr _e1871918751_)))) + (if (gx#stx-pair/null? _hd1871818755_) + (let ((_g42271_ + (gx#syntax-split-splice + _hd1871818755_ + '0))) + (begin + (let ((_g42272_ + (let () + (declare (not safe)) + (if (##values? _g42271_) + (##vector-length _g42271_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g42272_ 2))) + (error "Context expects 2 values" + _g42272_))) + (let ((_target1872018761_ + (let () + (declare (not safe)) + (##vector-ref _g42271_ 0))) + (_tl1872218764_ + (let () + (declare (not safe)) + (##vector-ref _g42271_ 1)))) + (if (gx#stx-null? _tl1872218764_) + (letrec ((_loop1872318767_ + (lambda (_hd1872118771_ + _field-id1872718774_) + (if (gx#stx-pair? + _hd1872118771_) + (let ((_e1872418777_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _hd1872118771_))) + (let ((_lp-hd1872518781_ + (let () + (declare (not safe)) + (##car _e1872418777_))) + (_lp-tl1872618784_ + (let () + (declare (not safe)) + (##cdr _e1872418777_)))) + (let ((__tmp42273 + (cons _lp-hd1872518781_ _field-id1872718774_))) (declare (not safe)) - (##car _e1872418777_))) - (_lp-tl1872618784_ - (let () (declare (not safe)) (##cdr _e1872418777_)))) - (_loop1872318767_ - _lp-tl1872618784_ - (cons _lp-hd1872518781_ _field-id1872718774_)))) - (let ((_field-id1872818787_ (reverse _field-id1872718774_))) - (if (gx#stx-null? _tl1871918758_) - ((lambda (_L18791_ _L18793_) - (let () - (cons (gx#datum->syntax '#f 'make-struct-type) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L17995_ '())) - (cons _L17809_ - (cons _L18793_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _L18023_ + (_loop1872318767_ _lp-tl1872618784_ __tmp42273)))) + (let ((_field-id1872818787_ + (reverse _field-id1872718774_))) + (if (gx#stx-null? _tl1871718758_) + ((lambda (_L18791_ _L18793_) + (let () + (cons (gx#datum->syntax '#f 'make-struct-type) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _L17995_ '())) + (cons _L17809_ + (cons _L18793_ + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _L18023_ '())) + (cons _L18051_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _L18079_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons (foldr (lambda (_g1881218815_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons _L18051_ - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18079_ '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_g1881218815_ - _g1881318818_) - (cons _g1881218815_ - _g1881318818_)) - '() - _L18791_) - '())) - '())))))))))) + _g1881318818_) + (cons _g1881218815_ _g1881318818_)) + '() + _L18791_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _field-id1872818787_ - _hd1871518745_) - (_g1871018734_ _g1871118738_))))))) + '())) + '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1872318767_ - _target1872018761_ - '())) - (_g1871018734_ _g1871118738_))))) - (_g1871018734_ _g1871118738_)))) - (_g1871018734_ _g1871118738_)))) + _field-id1872818787_ + _hd1871518745_) + (let () + (declare (not safe)) + (_g1871018734_ _g1871118738_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1871018734_ - _g1871118738_))))) - (_g1870918821_ - (list (gx#stx-length _els17844_) - (gx#stx-map - _field-id17716_ - _els17844_)))) - (let* ((_g1882518858_ - (lambda (_g1882618854_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g1882618854_))) - (_g1882418986_ - (lambda (_g1882618862_) - (if (gx#stx-pair? - _g1882618862_) - (let ((_e1882918865_ - (gx#syntax-e - _g1882618862_))) - (let ((_hd1883018869_ - (let () - (declare + (let () + (declare (not safe)) + (_loop1872318767_ + _target1872018761_ + '()))) + (let () + (declare (not safe)) + (_g1871018734_ + _g1871118738_)))))) + (let () + (declare (not safe)) + (_g1871018734_ _g1871118738_))))) + (let () + (declare (not safe)) + (_g1871018734_ _g1871118738_))))) + (let () + (declare (not safe)) + (_g1871018734_ _g1871118738_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp42274 + (list (gx#stx-length + _els17844_) + (gx#stx-map + _field-id17716_ + _els17844_)))) + (declare (not safe)) + (_g1870918821_ __tmp42274)) + (let* ((_g1882518858_ + (lambda (_g1882618854_) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g1882618854_))) + (_g1882418986_ + (lambda (_g1882618862_) + (if (gx#stx-pair? + _g1882618862_) + (let ((_e1883118865_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1882918865_))) - (_tl1883118872_ - (let () (declare (not safe)) (##cdr _e1882918865_)))) - (if (gx#stx-pair/null? _hd1883018869_) - (let ((_g42247_ - (gx#syntax-split-splice _hd1883018869_ '0))) - (begin - (let ((_g42248_ - (let () - (declare (not safe)) - (if (##values? _g42247_) - (##vector-length _g42247_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g42248_ 2))) - (error "Context expects 2 values" _g42248_))) - (let ((_target1883218875_ - (let () - (declare (not safe)) - (##vector-ref _g42247_ 0))) - (_tl1883418878_ - (let () - (declare (not safe)) - (##vector-ref _g42247_ 1)))) - (if (gx#stx-null? _tl1883418878_) - (letrec ((_loop1883518881_ - (lambda (_hd1883318885_ - _super1883918888_) - (if (gx#stx-pair? _hd1883318885_) - (let ((_e1883618891_ - (gx#syntax-e - _hd1883318885_))) - (let ((_lp-hd1883718895_ - (let () - (declare (not safe)) - (##car _e1883618891_))) - (_lp-tl1883818898_ - (let () - (declare (not safe)) - (##cdr _e1883618891_)))) - (_loop1883518881_ - _lp-tl1883818898_ - (cons _lp-hd1883718895_ - _super1883918888_)))) - (let ((_super1884018901_ - (reverse _super1883918888_))) - (if (gx#stx-pair? - _tl1883118872_) - (let ((_e1884118905_ - (gx#syntax-e - _tl1883118872_))) - (let ((_hd1884218909_ - (let () - (declare + (gx#syntax-e _g1882618862_))) + (let ((_hd1883018869_ + (let () (declare (not safe)) (##car _e1883118865_))) + (_tl1882918872_ + (let () + (declare (not safe)) + (##cdr _e1883118865_)))) + (if (gx#stx-pair/null? _hd1883018869_) + (let ((_g42264_ + (gx#syntax-split-splice _hd1883018869_ '0))) + (begin + (let ((_g42265_ + (let () + (declare (not safe)) + (if (##values? _g42264_) + (##vector-length _g42264_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g42265_ 2))) + (error "Context expects 2 values" + _g42265_))) + (let ((_target1883218875_ + (let () + (declare (not safe)) + (##vector-ref _g42264_ 0))) + (_tl1883418878_ + (let () + (declare (not safe)) + (##vector-ref _g42264_ 1)))) + (if (gx#stx-null? _tl1883418878_) + (letrec ((_loop1883518881_ + (lambda (_hd1883318885_ + _super1883918888_) + (if (gx#stx-pair? + _hd1883318885_) + (let ((_e1883618891_ + (gx#syntax-e + _hd1883318885_))) + (let ((_lp-hd1883718895_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1884118905_))) - (_tl1884318912_ - (let () (declare (not safe)) (##cdr _e1884118905_)))) - (if (gx#stx-pair/null? _hd1884218909_) - (let ((_g42249_ - (gx#syntax-split-splice _hd1884218909_ '0))) - (begin - (let ((_g42250_ - (let () - (declare (not safe)) - (if (##values? _g42249_) - (##vector-length _g42249_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g42250_ 2))) - (error "Context expects 2 values" _g42250_))) - (let ((_target1884418915_ - (let () - (declare (not safe)) - (##vector-ref _g42249_ 0))) - (_tl1884618918_ - (let () - (declare (not safe)) - (##vector-ref _g42249_ 1)))) - (if (gx#stx-null? _tl1884618918_) - (letrec ((_loop1884718921_ - (lambda (_hd1884518925_ - _slot1885118928_) - (if (gx#stx-pair? _hd1884518925_) - (let ((_e1884818931_ - (gx#syntax-e - _hd1884518925_))) - (let ((_lp-hd1884918935_ - (let () - (declare (not safe)) - (##car _e1884818931_))) - (_lp-tl1885018938_ - (let () - (declare (not safe)) - (##cdr _e1884818931_)))) - (_loop1884718921_ - _lp-tl1885018938_ - (cons _lp-hd1884918935_ - _slot1885118928_)))) - (let ((_slot1885218941_ - (reverse _slot1885118928_))) - (if (gx#stx-null? - _tl1884318912_) - ((lambda (_L18945_ - _L18947_) - (let () - (cons (gx#datum->syntax + (not safe)) + (##car _e1883618891_))) + (_lp-tl1883818898_ + (let () (declare (not safe)) (##cdr _e1883618891_)))) + (let ((__tmp42269 (cons _lp-hd1883718895_ _super1883918888_))) + (declare (not safe)) + (_loop1883518881_ _lp-tl1883818898_ __tmp42269)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_super1884018901_ + (reverse _super1883918888_))) + (if (gx#stx-pair? + _tl1882918872_) + (let ((_e1884318905_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'make-class-type) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L17995_ '())) - (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g1896918974_ - _g1897018977_) - (cons _g1896918974_ - _g1897018977_)) - '() - _L18947_)) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_g1897118980_ + (gx#syntax-e _tl1882918872_))) + (let ((_hd1884218909_ + (let () (declare (not safe)) (##car _e1884318905_))) + (_tl1884118912_ + (let () + (declare (not safe)) + (##cdr _e1884318905_)))) + (if (gx#stx-pair/null? _hd1884218909_) + (let ((_g42266_ + (gx#syntax-split-splice _hd1884218909_ '0))) + (begin + (let ((_g42267_ + (let () + (declare (not safe)) + (if (##values? _g42266_) + (##vector-length _g42266_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g42267_ 2))) + (error "Context expects 2 values" + _g42267_))) + (let ((_target1884418915_ + (let () + (declare (not safe)) + (##vector-ref _g42266_ 0))) + (_tl1884618918_ + (let () + (declare (not safe)) + (##vector-ref _g42266_ 1)))) + (if (gx#stx-null? _tl1884618918_) + (letrec ((_loop1884718921_ + (lambda (_hd1884518925_ + _slot1885118928_) + (if (gx#stx-pair? + _hd1884518925_) + (let ((_e1884818931_ + (gx#syntax-e + _hd1884518925_))) + (let ((_lp-hd1884918935_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1897218983_) - (cons _g1897118980_ _g1897218983_)) - '() - _L18945_) - '())) + (not safe)) + (##car _e1884818931_))) + (_lp-tl1885018938_ + (let () (declare (not safe)) (##cdr _e1884818931_)))) + (let ((__tmp42268 (cons _lp-hd1884918935_ _slot1885118928_))) + (declare (not safe)) + (_loop1884718921_ _lp-tl1885018938_ __tmp42268)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _L18023_ '())) - (cons _L18051_ - (cons (cons (gx#datum->syntax + (let ((_slot1885218941_ + (reverse _slot1885118928_))) + (if (gx#stx-null? + _tl1884118912_) + ((lambda (_L18945_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L18079_ '())) - '()))))))))) + _L18947_) + (let () + (cons (gx#datum->syntax '#f 'make-class-type) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _L17995_ '())) + (cons (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_g1897118974_ + _g1897218977_) + (cons _g1897118974_ + _g1897218977_)) + '() + _L18947_)) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons (foldr (lambda (_g1896918980_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1897018983_) + (cons _g1896918980_ _g1897018983_)) + '() + _L18945_) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _slot1885218941_ - _super1884018901_) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _L18023_ '())) + (cons _L18051_ + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _L18079_ '())) + '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1882518858_ - _g1882618862_))))))) - (_loop1884718921_ _target1884418915_ '())) - (_g1882518858_ _g1882618862_))))) - (_g1882518858_ _g1882618862_)))) + _slot1885218941_ + _super1884018901_) + (let () + (declare (not safe)) + (_g1882518858_ _g1882618862_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1882518858_ - _g1882618862_))))))) - (_loop1883518881_ _target1883218875_ '())) - (_g1882518858_ _g1882618862_))))) - (_g1882518858_ _g1882618862_)))) + (let () + (declare (not safe)) + (_loop1884718921_ + _target1884418915_ + '()))) + (let () + (declare (not safe)) + (_g1882518858_ _g1882618862_)))))) + (let () + (declare (not safe)) + (_g1882518858_ _g1882618862_))))) + (let () + (declare (not safe)) + (_g1882518858_ _g1882618862_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1882518858_ - _g1882618862_))))) - (_g1882418986_ - (list _L17809_ - (gx#stx-map - gx#stx-car - _els17844_))))))))) - _g1806518076_)))) - (_g1806318990_ (gx#stx-getq 'constructor: _L17805_))))) + (let () + (declare (not safe)) + (_loop1883518881_ + _target1883218875_ + '()))) + (let () + (declare (not safe)) + (_g1882518858_ _g1882618862_)))))) + (let () + (declare (not safe)) + (_g1882518858_ _g1882618862_))))) + (let () + (declare (not safe)) + (_g1882518858_ _g1882618862_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1803718048_)))) - (_g1803518994_ - (let ((_$e18998_ - (gx#stx-getq - 'plist: - _L17805_))) - (if _$e18998_ - _$e18998_ - (cons (gx#datum->syntax - '#f - '@list) - '()))))))) - _g1800918020_)))) - (_g1800719002_ - (let ((_$e19006_ (gx#stx-getq 'name: _L17805_))) - (if _$e19006_ _$e19006_ _L17810_)))))) - _g1798117992_)))) - (_g1797919010_ - (let ((_$e19014_ (gx#stx-getq 'id: _L17805_))) - (if _$e19014_ - _$e19014_ - (if (gx#module-context? (gx#current-expander-context)) - (_module-type-id17719_ _L17810_) - (gx#genident _L17810_)))))))) + (__tmp42270 + (list _L17809_ + (gx#stx-map + gx#stx-car + _els17844_)))) + (declare (not safe)) + (_g1882418986_ __tmp42270))))) + (declare (not safe)) + (_g1809118706_ __tmp42263)))) + _g1806518076_))) + (__tmp42275 (gx#stx-getq 'constructor: _L17805_))) + (declare (not safe)) + (_g1806318990_ __tmp42275)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1803718048_))) + (__tmp42276 + (let ((_$e18998_ + (gx#stx-getq + 'plist: + _L17805_))) + (if _$e18998_ + _$e18998_ + (cons (gx#datum->syntax + '#f + '@list) + '()))))) + (declare (not safe)) + (_g1803518994_ __tmp42276)))) + _g1800918020_))) + (__tmp42277 + (let ((_$e19006_ + (gx#stx-getq 'name: _L17805_))) + (if _$e19006_ _$e19006_ _L17810_)))) + (declare (not safe)) + (_g1800719002_ __tmp42277)))) + _g1798117992_))) + (__tmp42278 + (let ((_$e19014_ (gx#stx-getq 'id: _L17805_))) + (if _$e19014_ + _$e19014_ + (if (gx#module-context? + (gx#current-expander-context)) + (let () + (declare (not safe)) + (_module-type-id17719_ _L17810_)) + (gx#genident _L17810_)))))) + (declare (not safe)) + (_g1797919010_ __tmp42278)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1787117939_ _hd1786817929_ @@ -1236,74 +1372,106 @@ _hd1786217909_ _hd1785917899_ _hd1785617889_) - (_g1784717878_ _g1784817882_)))) - (_g1784717878_ _g1784817882_)))) - (_g1784717878_ _g1784817882_)))) - (_g1784717878_ _g1784817882_)))) - (_g1784717878_ _g1784817882_)))) + (let () + (declare (not safe)) + (_g1784717878_ + _g1784817882_))))) + (let () + (declare (not safe)) + (_g1784717878_ _g1784817882_))))) + (let () + (declare (not safe)) + (_g1784717878_ _g1784817882_))))) + (let () + (declare (not safe)) + (_g1784717878_ _g1784817882_))))) + (let () (declare (not safe)) (_g1784717878_ _g1784817882_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1784717878_ _g1784817882_)))) - (_g1784717878_ _g1784817882_))))) - (_g1784619018_ - (if _struct?17711_ - (cons (gx#datum->syntax - '#f - 'make-struct-instance) - (cons (gx#datum->syntax - '#f - 'make-struct-predicate) - (cons (gx#datum->syntax - '#f - 'make-struct-field-accessor) - (cons (gx#datum->syntax - '#f - 'make-struct-field-mutator) - (cons (gx#datum->syntax - '#f - 'make-struct-field-unchecked-accessor) - (cons (gx#datum->syntax + (let () + (declare (not safe)) + (_g1784717878_ + _g1784817882_))))) + (let () + (declare (not safe)) + (_g1784717878_ _g1784817882_))))) + (__tmp42279 + (if _struct?17711_ + (cons (gx#datum->syntax + '#f + 'make-struct-instance) + (cons (gx#datum->syntax + '#f + 'make-struct-predicate) + (cons (gx#datum->syntax + '#f + 'make-struct-field-accessor) + (cons (gx#datum->syntax + '#f + 'make-struct-field-mutator) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'make-struct-field-unchecked-mutator) - '())))))) + '#f + 'make-struct-field-unchecked-accessor) + (cons (gx#datum->syntax + '#f + 'make-struct-field-unchecked-mutator) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (gx#datum->syntax - '#f - 'make-class-instance) - (cons (gx#datum->syntax - '#f - 'make-class-predicate) - (cons (gx#datum->syntax - '#f - 'make-class-slot-accessor) - (cons (gx#datum->syntax - '#f - 'make-class-slot-mutator) - (cons (gx#datum->syntax - '#f - 'make-class-slot-unchecked-accessor) - (cons (gx#datum->syntax + (cons (gx#datum->syntax + '#f + 'make-class-instance) + (cons (gx#datum->syntax + '#f + 'make-class-predicate) + (cons (gx#datum->syntax + '#f + 'make-class-slot-accessor) + (cons (gx#datum->syntax + '#f + 'make-class-slot-mutator) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'make-class-slot-unchecked-mutator) - '()))))))))) + '#f + 'make-class-slot-unchecked-accessor) + (cons (gx#datum->syntax + '#f + 'make-class-slot-unchecked-mutator) + '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1772117748_ _g1772217752_))) - _tl1774217802_ + (declare (not safe)) + (_g1784619018_ __tmp42279)) + (let () + (declare (not safe)) + (_g1772117748_ _g1772217752_)))) + _tl1774017802_ _hd1774117799_ _hd1773817789_ _hd1773517779_ _hd1773217769_))) - (_g1772117748_ _g1772217752_)))) + (let () (declare (not safe)) (_g1772117748_ _g1772217752_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1772117748_ _g1772217752_)))) - (_g1772117748_ _g1772217752_)))) - (_g1772117748_ _g1772217752_)))) - (_g1772117748_ _g1772217752_))))) + (let () + (declare (not safe)) + (_g1772117748_ + _g1772217752_))))) + (let () + (declare (not safe)) + (_g1772117748_ _g1772217752_))))) + (let () + (declare (not safe)) + (_g1772117748_ _g1772217752_))))) + (let () + (declare (not safe)) + (_g1772117748_ _g1772217752_)))))) + (declare (not safe)) (_g1772019022_ _stx17709_))))) (define |gerbil/core$$[:0:]#defstruct-type| (lambda (_stx19322_) - (|gerbil/core$$[1]#generate-typedef| _stx19322_ '#t))) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#generate-typedef| _stx19322_ '#t)))) (define |gerbil/core$$[:0:]#defclass-type| (lambda (_stx19325_) - (|gerbil/core$$[1]#generate-typedef| _stx19325_ '#f)))) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#generate-typedef| _stx19325_ '#f))))) diff --git a/src/bootstrap/gerbil/core__7.scm b/src/bootstrap/gerbil/core__7.scm index 8f15c78fb..f35d474cd 100644 --- a/src/bootstrap/gerbil/core__7.scm +++ b/src/bootstrap/gerbil/core__7.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g42266_| + (define |gerbil/core$$[1]#_g42323_| (##structure gx#syntax-quote::t '@method @@ -243,9 +243,11 @@ (let ((_e2076120763_ (gx#syntax-local-value _stx20758_ false))) (if _e2076120763_ (let ((_e20767_ _e2076120763_)) - (if (class-instance? - |gerbil/core$$[1]#runtime-type-info::t| - _e20767_) + (if (let () + (declare (not safe)) + (class-instance? + |gerbil/core$$[1]#runtime-type-info::t| + _e20767_)) (_is?20760_ _e20767_) '#f)) '#f)) @@ -253,40 +255,58 @@ (define |gerbil/core$$[1]#syntax-local-type-info?__0| (lambda (_stx20774_) (let ((_is?20777_ true)) + (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__%| _stx20774_ _is?20777_)))) (define |gerbil/core$$[1]#syntax-local-type-info?| - (lambda _g42252_ - (let ((_g42251_ (let () (declare (not safe)) (##length _g42252_)))) - (cond ((let () (declare (not safe)) (##fx= _g42251_ 1)) - (apply |gerbil/core$$[1]#syntax-local-type-info?__0| - _g42252_)) - ((let () (declare (not safe)) (##fx= _g42251_ 2)) - (apply |gerbil/core$$[1]#syntax-local-type-info?__%| - _g42252_)) + (lambda _g42281_ + (let ((_g42280_ (let () (declare (not safe)) (##length _g42281_)))) + (cond ((let () (declare (not safe)) (##fx= _g42280_ 1)) + (apply (lambda (_stx20774_) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#syntax-local-type-info?__0| + _stx20774_))) + _g42281_)) + ((let () (declare (not safe)) (##fx= _g42280_ 2)) + (apply (lambda (_stx20780_ _is?20782_) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#syntax-local-type-info?__%| + _stx20780_ + _is?20782_))) + _g42281_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$$[1]#syntax-local-type-info?| - _g42252_)))))) + _g42281_)))))) (define |gerbil/core$$[1]#syntax-local-struct-info?| (lambda (_stx20754_) - (|gerbil/core$$[1]#syntax-local-type-info?__%| - _stx20754_ - |gerbil/core$$[1]#runtime-struct-info?|))) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#syntax-local-type-info?__%| + _stx20754_ + |gerbil/core$$[1]#runtime-struct-info?|)))) (define |gerbil/core$$[1]#syntax-local-class-info?| (lambda (_stx20751_) - (|gerbil/core$$[1]#syntax-local-type-info?__%| - _stx20751_ - |gerbil/core$$[1]#runtime-class-info?|))) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#syntax-local-type-info?__%| + _stx20751_ + |gerbil/core$$[1]#runtime-class-info?|)))) (define |gerbil/core$$[1]#runtime-type-exhibitor-e| (lambda (_id20745_) (if _id20745_ (let ((_info20748_ (gx#syntax-local-value _id20745_))) - (if (class-instance? - |gerbil/core$$[1]#extended-runtime-type-info::t| - _info20748_) - (unchecked-slot-ref _info20748_ 'type-exhibitor) + (if (let () + (declare (not safe)) + (class-instance? + |gerbil/core$$[1]#extended-runtime-type-info::t| + _info20748_)) + (let () + (declare (not safe)) + (unchecked-slot-ref _info20748_ 'type-exhibitor)) '#f)) '#f))) (define |gerbil/core$$[1]#expander-type-info::apply-macro-expander| @@ -297,40 +317,40 @@ (_g2051320741_ (lambda (_g2051520538_) (if (gx#stx-pair? _g2051520538_) - (let ((_e2051720541_ (gx#syntax-e _g2051520538_))) + (let ((_e2051920541_ (gx#syntax-e _g2051520538_))) (let ((_hd2051820545_ (let () (declare (not safe)) - (##car _e2051720541_))) - (_tl2051920548_ + (##car _e2051920541_))) + (_tl2051720548_ (let () (declare (not safe)) - (##cdr _e2051720541_)))) - (if (gx#stx-pair/null? _tl2051920548_) - (let ((_g42253_ + (##cdr _e2051920541_)))) + (if (gx#stx-pair/null? _tl2051720548_) + (let ((_g42282_ (gx#syntax-split-splice - _tl2051920548_ + _tl2051720548_ '0))) (begin - (let ((_g42254_ + (let ((_g42283_ (let () (declare (not safe)) - (if (##values? _g42253_) - (##vector-length _g42253_) + (if (##values? _g42282_) + (##vector-length _g42282_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42254_ 2))) + (##fx= _g42283_ 2))) (error "Context expects 2 values" - _g42254_))) + _g42283_))) (let ((_target2052020551_ (let () (declare (not safe)) - (##vector-ref _g42253_ 0))) + (##vector-ref _g42282_ 0))) (_tl2052220554_ (let () (declare (not safe)) - (##vector-ref _g42253_ 1)))) + (##vector-ref _g42282_ 1)))) (if (gx#stx-null? _tl2052220554_) (letrec ((_loop2052320557_ (lambda (_hd2052120561_ @@ -345,9 +365,10 @@ (let () (declare (not safe)) (##car _e2052420567_))) (_lp-tl2052620574_ (let () (declare (not safe)) (##cdr _e2052420567_)))) - (_loop2052320557_ - _lp-tl2052620574_ - (cons _lp-hd2052520571_ _arg2052720564_)))) + (let ((__tmp42285 + (cons _lp-hd2052520571_ _arg2052720564_))) + (declare (not safe)) + (_loop2052320557_ _lp-tl2052620574_ __tmp42285)))) (let ((_arg2052820577_ (reverse _arg2052720564_))) ((lambda (_L20581_) (let* ((_g2059720628_ @@ -359,78 +380,78 @@ (_g2059620737_ (lambda (_g2059820632_) (if (gx#stx-pair? _g2059820632_) - (let ((_e2060520635_ + (let ((_e2060720635_ (gx#syntax-e _g2059820632_))) (let ((_hd2060620639_ (let () (declare (not safe)) - (##car _e2060520635_))) - (_tl2060720642_ + (##car _e2060720635_))) + (_tl2060520642_ (let () (declare (not safe)) - (##cdr _e2060520635_)))) - (if (gx#stx-pair? _tl2060720642_) - (let ((_e2060820645_ + (##cdr _e2060720635_)))) + (if (gx#stx-pair? _tl2060520642_) + (let ((_e2061020645_ (gx#syntax-e - _tl2060720642_))) + _tl2060520642_))) (let ((_hd2060920649_ (let () (declare (not safe)) - (##car _e2060820645_))) - (_tl2061020652_ + (##car _e2061020645_))) + (_tl2060820652_ (let () (declare (not safe)) - (##cdr _e2060820645_)))) + (##cdr _e2061020645_)))) (if (gx#stx-pair? - _tl2061020652_) - (let ((_e2061120655_ + _tl2060820652_) + (let ((_e2061320655_ (gx#syntax-e - _tl2061020652_))) + _tl2060820652_))) (let ((_hd2061220659_ (let () (declare (not safe)) - (##car _e2061120655_))) - (_tl2061320662_ + (##car _e2061320655_))) + (_tl2061120662_ (let () (declare (not safe)) - (##cdr _e2061120655_)))) + (##cdr _e2061320655_)))) (if (gx#stx-pair? - _tl2061320662_) - (let ((_e2061420665_ + _tl2061120662_) + (let ((_e2061620665_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2061320662_))) + (gx#syntax-e _tl2061120662_))) (let ((_hd2061520669_ (let () (declare (not safe)) - (##car _e2061420665_))) - (_tl2061620672_ + (##car _e2061620665_))) + (_tl2061420672_ (let () (declare (not safe)) - (##cdr _e2061420665_)))) - (if (gx#stx-pair? _tl2061620672_) - (let ((_e2061720675_ (gx#syntax-e _tl2061620672_))) + (##cdr _e2061620665_)))) + (if (gx#stx-pair? _tl2061420672_) + (let ((_e2061920675_ (gx#syntax-e _tl2061420672_))) (let ((_hd2061820679_ (let () (declare (not safe)) - (##car _e2061720675_))) - (_tl2061920682_ + (##car _e2061920675_))) + (_tl2061720682_ (let () (declare (not safe)) - (##cdr _e2061720675_)))) - (if (gx#stx-pair? _tl2061920682_) - (let ((_e2062020685_ - (gx#syntax-e _tl2061920682_))) + (##cdr _e2061920675_)))) + (if (gx#stx-pair? _tl2061720682_) + (let ((_e2062220685_ + (gx#syntax-e _tl2061720682_))) (let ((_hd2062120689_ (let () (declare (not safe)) - (##car _e2062020685_))) - (_tl2062220692_ + (##car _e2062220685_))) + (_tl2062020692_ (let () (declare (not safe)) - (##cdr _e2062020685_)))) - (if (gx#stx-null? _tl2062220692_) + (##cdr _e2062220685_)))) + (if (gx#stx-null? _tl2062020692_) ((lambda (_L20695_ _L20697_ _L20698_ @@ -452,27 +473,54 @@ _hd2061220659_ _hd2060920649_ _hd2060620639_) - (_g2059720628_ _g2059820632_)))) - (_g2059720628_ _g2059820632_)))) - (_g2059720628_ _g2059820632_)))) - (_g2059720628_ _g2059820632_)))) + (let () + (declare (not safe)) + (_g2059720628_ _g2059820632_))))) + (let () + (declare (not safe)) + (_g2059720628_ _g2059820632_))))) + (let () + (declare (not safe)) + (_g2059720628_ _g2059820632_))))) + (let () + (declare (not safe)) + (_g2059720628_ _g2059820632_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2059720628_ - _g2059820632_)))) - (_g2059720628_ _g2059820632_)))) - (_g2059720628_ _g2059820632_))))) - (_g2059620737_ - (unchecked-slot-ref - _self20510_ - 'expander-identifiers)))) + (let () + (declare (not safe)) + (_g2059720628_ + _g2059820632_))))) + (let () + (declare (not safe)) + (_g2059720628_ _g2059820632_))))) + (let () + (declare (not safe)) + (_g2059720628_ _g2059820632_))))) + (__tmp42284 + (let () + (declare (not safe)) + (unchecked-slot-ref + _self20510_ + 'expander-identifiers)))) + (declare (not safe)) + (_g2059620737_ __tmp42284))) _arg2052820577_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop2052320557_ - _target2052020551_ - '())) - (_g2051420534_ _g2051520538_))))) - (_g2051420534_ _g2051520538_)))) - (_g2051420534_ _g2051520538_))))) + (let () + (declare (not safe)) + (_loop2052320557_ + _target2052020551_ + '()))) + (let () + (declare (not safe)) + (_g2051420534_ _g2051520538_)))))) + (let () + (declare (not safe)) + (_g2051420534_ _g2051520538_))))) + (let () + (declare (not safe)) + (_g2051420534_ _g2051520538_)))))) + (declare (not safe)) (_g2051320741_ _stx20512_)))) (bind-method! |gerbil/core$$[1]#expander-type-info::t| @@ -507,7 +555,7 @@ (gx#stx-source _stx19329_)))) (_make-id19339_ (if (uninterned-symbol? (gx#stx-e _id19331_)) - (lambda _g42255_ (gx#genident _id19331_)) + (lambda _g42286_ (gx#genident _id19331_)) (lambda _args20495_ (apply gx#stx-identifier _id19331_ _args20495_))))) (gx#check-duplicate-identifiers _els19333_ _stx19329_) @@ -586,30 +634,30 @@ (_g1951720465_ (lambda (_g1951919539_) (if (gx#stx-pair/null? _g1951919539_) - (let ((_g42256_ + (let ((_g42287_ (gx#syntax-split-splice _g1951919539_ '0))) (begin - (let ((_g42257_ + (let ((_g42288_ (let () (declare (not safe)) - (if (##values? _g42256_) - (##vector-length _g42256_) + (if (##values? _g42287_) + (##vector-length _g42287_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42257_ 2))) + (##fx= _g42288_ 2))) (error "Context expects 2 values" - _g42257_))) + _g42288_))) (let ((_target1952119542_ (let () (declare (not safe)) - (##vector-ref _g42256_ 0))) + (##vector-ref _g42287_ 0))) (_tl1952319545_ (let () (declare (not safe)) - (##vector-ref _g42256_ 1)))) + (##vector-ref _g42287_ 1)))) (if (gx#stx-null? _tl1952319545_) (letrec ((_loop1952419548_ (lambda (_hd1952219552_ @@ -627,9 +675,10 @@ (let () (declare (not safe)) (##cdr _e1952519558_)))) - (_loop1952419548_ - _lp-tl1952719565_ - (cons _lp-hd1952619562_ _attr1952819555_)))) + (let ((__tmp42316 + (cons _lp-hd1952619562_ _attr1952819555_))) + (declare (not safe)) + (_loop1952419548_ _lp-tl1952719565_ __tmp42316)))) (let ((_attr1952919568_ (reverse _attr1952819555_))) ((lambda (_L19572_) (let () @@ -642,34 +691,34 @@ (_g1958820456_ (lambda (_g1959019610_) (if (gx#stx-pair/null? _g1959019610_) - (let ((_g42258_ + (let ((_g42289_ (gx#syntax-split-splice _g1959019610_ '0))) (begin - (let ((_g42259_ + (let ((_g42290_ (let () (declare (not safe)) - (if (##values? _g42258_) + (if (##values? _g42289_) (##vector-length - _g42258_) + _g42289_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42259_ 2))) + (##fx= _g42290_ 2))) (error "Context expects 2 values" - _g42259_))) + _g42290_))) (let ((_target1959219613_ (let () (declare (not safe)) (##vector-ref - _g42258_ + _g42289_ 0))) (_tl1959419616_ (let () (declare (not safe)) (##vector-ref - _g42258_ + _g42289_ 1)))) (if (gx#stx-null? _tl1959419616_) @@ -687,9 +736,13 @@ (let () (declare (not safe)) (##cdr _e1959619629_)))) - (_loop1959519619_ - _lp-tl1959819636_ - (cons _lp-hd1959719633_ _getf1959919626_)))) + (let ((__tmp42314 + (cons _lp-hd1959719633_ + _getf1959919626_))) + (declare (not safe)) + (_loop1959519619_ + _lp-tl1959819636_ + __tmp42314)))) (let ((_getf1960019639_ (reverse _getf1959919626_))) ((lambda (_L19643_) (let () @@ -703,36 +756,36 @@ (lambda (_g1966119681_) (if (gx#stx-pair/null? _g1966119681_) - (let ((_g42260_ + (let ((_g42291_ (gx#syntax-split-splice _g1966119681_ '0))) (begin - (let ((_g42261_ + (let ((_g42292_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42260_) - (##vector-length _g42260_) + _g42291_) + (##vector-length _g42291_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42261_ 2))) - (error "Context expects 2 values" _g42261_))) + (if (not (let () (declare (not safe)) (##fx= _g42292_ 2))) + (error "Context expects 2 values" _g42292_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1966319684_ (let () (declare (not safe)) (##vector-ref - _g42260_ + _g42291_ 0))) (_tl1966519687_ (let () (declare (not safe)) (##vector-ref - _g42260_ + _g42291_ 1)))) (if (gx#stx-null? _tl1966519687_) @@ -750,10 +803,13 @@ (let () (declare (not safe)) (##cdr _e1966719700_)))) - (_loop1966619690_ - _lp-tl1966919707_ - (cons _lp-hd1966819704_ - _setf1967019697_)))) + (let ((__tmp42312 + (cons _lp-hd1966819704_ + _setf1967019697_))) + (declare (not safe)) + (_loop1966619690_ + _lp-tl1966919707_ + __tmp42312)))) (let ((_setf1967119710_ (reverse _setf1967019697_))) ((lambda (_L19714_) @@ -905,6 +961,7 @@ (cons _L19858_ '())) '())))) _g1984419855_)))) + (declare (not safe)) (_g1984219876_ _plist19840_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_type-unchecked19895_ @@ -933,28 +990,28 @@ (lambda (_g1989919919_) (if (gx#stx-pair/null? _g1989919919_) - (let ((_g42262_ + (let ((_g42293_ (gx#syntax-split-splice _g1989919919_ '0))) (begin - (let ((_g42263_ + (let ((_g42294_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g42262_) - (##vector-length _g42262_) + (if (##values? _g42293_) + (##vector-length _g42293_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42263_ 2))) - (error "Context expects 2 values" _g42263_))) + (if (not (let () (declare (not safe)) (##fx= _g42294_ 2))) + (error "Context expects 2 values" _g42294_))) (let ((_target1990119922_ (let () (declare (not safe)) - (##vector-ref _g42262_ 0))) + (##vector-ref _g42293_ 0))) (_tl1990319925_ (let () (declare (not safe)) - (##vector-ref _g42262_ 1)))) + (##vector-ref _g42293_ 1)))) (if (gx#stx-null? _tl1990319925_) (letrec ((_loop1990419928_ (lambda (_hd1990219932_ @@ -970,10 +1027,13 @@ (let () (declare (not safe)) (##cdr _e1990519938_)))) - (_loop1990419928_ - _lp-tl1990719945_ - (cons _lp-hd1990619942_ - _type-body1990819935_)))) + (let ((__tmp42310 + (cons _lp-hd1990619942_ + _type-body1990819935_))) + (declare (not safe)) + (_loop1990419928_ + _lp-tl1990719945_ + __tmp42310)))) (let ((_type-body1990919948_ (reverse _type-body1990819935_))) ((lambda (_L19952_) @@ -1083,336 +1143,441 @@ ((lambda (_L20236_) (let () (let () - (_wrap19337_ - (cons (gx#datum->syntax '#f 'begin) - (cons _L19984_ - (cons _L20236_ '()))))))) - _g2022220233_)))) - (_g2022020251_ - (_wrap19337_ - (cons (gx#datum->syntax '#f 'defsyntax) - (cons _L19393_ - (cons (cons _L20012_ - (cons 'runtime-identifier: + (let ((__tmp42295 + (cons (gx#datum->syntax + '#f + 'begin) + (cons _L19984_ + (cons _L20236_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_wrap19337_ __tmp42295))))) + _g2022220233_))) + (__tmp42296 + (let ((__tmp42297 + (cons (gx#datum->syntax '#f 'defsyntax) + (cons _L19393_ + (cons (cons _L20012_ + (cons 'runtime-identifier: +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _L19421_ '())) + (cons 'expander-identifiers: + (cons (cons (gx#datum->syntax + '#f + '@list) + (cons _L20040_ + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote-syntax) + (cons _L19421_ '())) + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _L19449_ '())) + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _L19477_ '())) + (cons (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_g2025820261_ + _g2025920264_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _L19421_ '())) - (cons 'expander-identifiers: - (cons (cons (gx#datum->syntax '#f '@list) - (cons _L20040_ - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _L19421_ '())) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote-syntax) - (cons _L19449_ '())) - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L19477_ '())) - (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2025420261_ - _g2025520264_) - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _g2025420261_ - '())) - _g2025520264_)) - '() - _L19643_)) - (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2025620267_ - _g2025720270_) - (cons (cons (gx#datum->syntax + (cons _g2025820261_ '())) + _g2025920264_)) + '() + _L19643_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + '@list) + (foldr (lambda (_g2025620267_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote-syntax) - (cons _g2025620267_ '())) - _g2025720270_)) + _g2025720270_) + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _g2025620267_ '())) + _g2025720270_)) + '() + _L19714_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '() - _L19714_)) - '()))))))) + '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons 'type-exhibitor: - (cons (cons _L20068_ - (cons (cons (gx#datum->syntax + (cons 'type-exhibitor: + (cons (cons _L20068_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L20096_ '())) - (cons _L20124_ - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20152_ '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20180_ '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20208_ '())) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons (foldr (lambda (_g2025820273_ + '#f + 'quote) + (cons _L20096_ '())) + (cons _L20124_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _L20152_ '())) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _L20180_ '())) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _L20208_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2025920276_) - (cons _g2025820273_ _g2025920276_)) - '() - _L19572_) - '())) + '())) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons (foldr (lambda (_g2025420273_ _g2025520276_) + (cons _g2025420273_ _g2025520276_)) + '() + _L19572_) + '())) + '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))))) + '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))))) + (declare (not safe)) + (_wrap19337_ __tmp42297)))) + (declare (not safe)) + (_g2022020251_ __tmp42296)))) _g2019420205_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) (_g2019220279_ _plist19840_)))) - _g2016620177_)))) - (_g2016420283_ - (if (not (null? _type-ctor19796_)) - (cadr _type-ctor19796_) - '#f))))) - _g2013820149_)))) - (_g2013620287_ (cadr _type-name19766_))))) - _g2011020121_)))) + _g2016620177_))) + (__tmp42298 + (if (not (null? _type-ctor19796_)) + (cadr _type-ctor19796_) + '#f))) + (declare (not safe)) + (_g2016420283_ __tmp42298)))) + _g2013820149_))) + (__tmp42299 (cadr _type-name19766_))) + (declare (not safe)) + (_g2013620287_ __tmp42299)))) + _g2011020121_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2010820291_ - (let ((_quote-e20330_ - (lambda (_x-ref20295_) - (if _x-ref20295_ - (let* ((_g2029820306_ + (__tmp42300 + (let ((_quote-e20330_ + (lambda (_x-ref20295_) + (if _x-ref20295_ + (let* ((_g2029820306_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2029920302_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2029920302_))) - (_g2029720326_ - (lambda (_g2029920310_) - ((lambda (_L20313_) - (let () - (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L20313_ '())))) - _g2029920310_)))) - (_g2029720326_ _x-ref20295_)) - '#f)))) + (lambda (_g2029920302_) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2029920302_))) + (_g2029720326_ + (lambda (_g2029920310_) + ((lambda (_L20313_) + (let () + (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _L20313_ '())))) + _g2029920310_)))) + (declare (not safe)) + (_g2029720326_ _x-ref20295_)) + '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _struct?19335_ - (_quote-e20330_ - _super-ref19332_) - (cons 'list - (map _quote-e20330_ - _super-ref19332_)))))))) - _g2008220093_)))) - (_g2008020333_ - (if (not (null? _type-id19781_)) - (cadr _type-id19781_) - '#f))))) - _g2005420065_)))) - (_g2005220337_ - (if _struct?19335_ - (gx#datum->syntax '#f 'make-runtime-struct-exhibitor) - (gx#datum->syntax '#f 'make-runtime-class-exhibitor)))))) + (if _struct?19335_ + (let () + (declare (not safe)) + (_quote-e20330_ + _super-ref19332_)) + (cons 'list + (map _quote-e20330_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _super-ref19332_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2002620037_)))) - (_g2002420341_ - (if _struct?19335_ - (if _super19344_ - (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _L19505_ '())) - '#f) - (let* ((_g2034520362_ - (lambda (_g2034620358_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g2034620358_))) - (_g2034420423_ - (lambda (_g2034620366_) - (if (gx#stx-pair/null? - _g2034620366_) - (let ((_g42264_ + (declare (not safe)) + (_g2010820291_ __tmp42300)))) + _g2008220093_))) + (__tmp42301 + (if (not (null? _type-id19781_)) + (cadr _type-id19781_) + '#f))) + (declare (not safe)) + (_g2008020333_ __tmp42301)))) + _g2005420065_))) + (__tmp42302 + (if _struct?19335_ + (gx#datum->syntax '#f 'make-runtime-struct-exhibitor) + (gx#datum->syntax + '#f + 'make-runtime-class-exhibitor)))) + (declare (not safe)) + (_g2005220337_ __tmp42302)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g2002620037_))) + (__tmp42303 + (if _struct?19335_ + (if _super19344_ + (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _L19505_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _g2034620366_ '0))) - (begin - (let ((_g42265_ - (let () - (declare (not safe)) - (if (##values? _g42264_) - (##vector-length _g42264_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g42265_ 2))) - (error "Context expects 2 values" _g42265_))) - (let ((_target2034820369_ - (let () - (declare (not safe)) - (##vector-ref _g42264_ 0))) - (_tl2035020372_ - (let () - (declare (not safe)) - (##vector-ref _g42264_ 1)))) - (if (gx#stx-null? _tl2035020372_) - (letrec ((_loop2035120375_ - (lambda (_hd2034920379_ - _super-id2035520382_) - (if (gx#stx-pair? _hd2034920379_) - (let ((_e2035220385_ - (gx#syntax-e - _hd2034920379_))) - (let ((_lp-hd2035320389_ - (let () - (declare (not safe)) - (##car _e2035220385_))) - (_lp-tl2035420392_ - (let () - (declare (not safe)) - (##cdr _e2035220385_)))) - (_loop2035120375_ - _lp-tl2035420392_ - (cons _lp-hd2035320389_ - _super-id2035520382_)))) - (let ((_super-id2035620395_ - (reverse _super-id2035520382_))) - ((lambda (_L20399_) - (let () - (cons (gx#datum->syntax - '#f - '@list) - (foldr (lambda (_g2041420417_ + '())) + '#f) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let* ((_g2034520362_ + (lambda (_g2034620358_) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _g2034620358_))) + (_g2034420423_ + (lambda (_g2034620366_) + (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2041520420_) - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _g2041420417_ '())) - _g2041520420_)) - '() - _L20399_)))) + _g2034620366_) + (let ((_g42304_ + (gx#syntax-split-splice _g2034620366_ '0))) + (begin + (let ((_g42305_ + (let () + (declare (not safe)) + (if (##values? _g42304_) + (##vector-length _g42304_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g42305_ 2))) + (error "Context expects 2 values" _g42305_))) + (let ((_target2034820369_ + (let () + (declare (not safe)) + (##vector-ref _g42304_ 0))) + (_tl2035020372_ + (let () + (declare (not safe)) + (##vector-ref _g42304_ 1)))) + (if (gx#stx-null? _tl2035020372_) + (letrec ((_loop2035120375_ + (lambda (_hd2034920379_ + _super-id2035520382_) + (if (gx#stx-pair? _hd2034920379_) + (let ((_e2035220385_ + (gx#syntax-e + _hd2034920379_))) + (let ((_lp-hd2035320389_ + (let () + (declare + (not safe)) + (##car _e2035220385_))) + (_lp-tl2035420392_ + (let () + (declare + (not safe)) + (##cdr _e2035220385_)))) + (let ((__tmp42306 + (cons _lp-hd2035320389_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _super-id2035520382_))) + (declare (not safe)) + (_loop2035120375_ _lp-tl2035420392_ __tmp42306)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _super-id2035620395_)))))) - (_loop2035120375_ _target2034820369_ '())) - (_g2034520362_ _g2034620366_))))) - (_g2034520362_ _g2034620366_))))) + (let ((_super-id2035620395_ + (reverse _super-id2035520382_))) + ((lambda (_L20399_) + (let () + (cons (gx#datum->syntax + '#f + '@list) + (foldr (lambda (_g2041420417_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2041520420_) + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _g2041420417_ '())) + _g2041520420_)) + '() + _L20399_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2034420423_ _L19505_))))))) - _g1999820009_)))) - (_g1999620427_ - (if _struct?19335_ - (gx#datum->syntax '#f 'make-extended-struct-info) - (gx#datum->syntax - '#f - 'make-extended-class-info)))))) - _g1997019981_)))) + _super-id2035620395_)))))) + (let () + (declare (not safe)) + (_loop2035120375_ + _target2034820369_ + '()))) + (let () + (declare (not safe)) + (_g2034520362_ _g2034620366_)))))) + (let () + (declare (not safe)) + (_g2034520362_ _g2034620366_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1996820431_ - (_wrap19337_ - (cons _L19362_ - (cons _L19421_ - (cons _L19505_ + (declare (not safe)) + (_g2034420423_ + _L19505_))))) + (declare (not safe)) + (_g2002420341_ __tmp42303)))) + _g1999820009_))) + (__tmp42307 + (if _struct?19335_ + (gx#datum->syntax + '#f + 'make-extended-struct-info) + (gx#datum->syntax + '#f + 'make-extended-class-info)))) + (declare (not safe)) + (_g1999620427_ __tmp42307)))) + _g1997019981_))) + (__tmp42308 + (let ((__tmp42309 + (cons _L19362_ + (cons _L19421_ + (cons _L19505_ + (cons _L19449_ + (cons _L19477_ + (foldr (lambda (_g2043420437_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L19449_ - (cons _L19477_ - (foldr (lambda (_g2043420437_ - _g2043520440_) - (cons _g2043420437_ - _g2043520440_)) - '() - _L19952_))))))))))) + _g2043520440_) + (cons _g2043420437_ _g2043520440_)) + '() + _L19952_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_wrap19337_ __tmp42309)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g1996820431_ __tmp42308)))) _type-body1990919948_)))))) - (_loop1990419928_ _target1990119922_ '())) - (_g1989819915_ _g1989919919_))))) - (_g1989819915_ _g1989919919_))))) + (let () + (declare (not safe)) + (_loop1990419928_ _target1990119922_ '()))) + (let () + (declare (not safe)) + (_g1989819915_ _g1989919919_)))))) + (let () (declare (not safe)) (_g1989819915_ _g1989919919_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1989720443_ - (foldr cons - (foldr cons - (foldr cons + (__tmp42311 + (foldr cons + (foldr cons + (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr cons - (foldr cons - _type-unchecked19895_ - _type-plist19880_) - _type-ctor19796_) - _type-name19766_) - _type-id19781_) + (foldr cons + (foldr cons + _type-unchecked19895_ + _type-plist19880_) + _type-ctor19796_) + _type-name19766_) + _type-id19781_) + _type-attr19759_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _type-attr19759_))))) + (declare (not safe)) + (_g1989720443_ __tmp42311)))) _setf1967119710_)))))) - (_loop1966619690_ _target1966319684_ '())) - (_g1966019677_ _g1966119681_))))) + (let () + (declare (not safe)) + (_loop1966619690_ _target1966319684_ '()))) + (let () + (declare (not safe)) + (_g1966019677_ _g1966119681_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1966019677_ - _g1966119681_))))) - (_g1965920447_ - (gx#stx-map - (lambda (_g2045020452_) - (_make-id19339_ - _name19341_ - '"-" - _g2045020452_ - '"-set!")) - _els19333_))))) + (let () + (declare (not safe)) + (_g1966019677_ + _g1966119681_))))) + (__tmp42313 + (gx#stx-map + (lambda (_g2045020452_) + (_make-id19339_ + _name19341_ + '"-" + _g2045020452_ + '"-set!")) + _els19333_))) + (declare (not safe)) + (_g1965920447_ __tmp42313)))) _getf1960019639_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1959519619_ - _target1959219613_ - '())) - (_g1958919606_ - _g1959019610_))))) - (_g1958919606_ _g1959019610_))))) - (_g1958820456_ - (gx#stx-map - (lambda (_g2045920461_) - (_make-id19339_ - _name19341_ - '"-" - _g2045920461_)) - _els19333_))))) + (let () + (declare (not safe)) + (_loop1959519619_ + _target1959219613_ + '()))) + (let () + (declare (not safe)) + (_g1958919606_ + _g1959019610_)))))) + (let () + (declare (not safe)) + (_g1958919606_ _g1959019610_))))) + (__tmp42315 + (gx#stx-map + (lambda (_g2045920461_) + (_make-id19339_ + _name19341_ + '"-" + _g2045920461_)) + _els19333_))) + (declare (not safe)) + (_g1958820456_ __tmp42315)))) _attr1952919568_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1952419548_ - _target1952119542_ - '())) - (_g1951819535_ _g1951919539_))))) - (_g1951819535_ _g1951919539_))))) + (let () + (declare (not safe)) + (_loop1952419548_ + _target1952119542_ + '()))) + (let () + (declare (not safe)) + (_g1951819535_ + _g1951919539_)))))) + (let () + (declare (not safe)) + (_g1951819535_ _g1951919539_)))))) + (declare (not safe)) (_g1951720465_ _els19333_)))) - _g1949119502_)))) + _g1949119502_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp42317 + (if _struct?19335_ + (if _super19344_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (unchecked-slot-ref _super19344_ 'runtime-identifier)) + '#f) + (map |gerbil/core$$[1]#runtime-type-identifier| + _super19344_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1948920469_ - (if _struct?19335_ - (if _super19344_ - (unchecked-slot-ref - _super19344_ - 'runtime-identifier) - '#f) - (map |gerbil/core$$[1]#runtime-type-identifier| - _super19344_)))))) - _g1946319474_)))) - (_g1946120473_ - (_make-id19339_ _name19341_ '"?"))))) - _g1943519446_)))) - (_g1943320477_ (_make-id19339_ '"make-" _name19341_))))) + (declare (not safe)) + (_g1948920469_ __tmp42317)))) + _g1946319474_))) + (__tmp42318 + (_make-id19339_ _name19341_ '"?"))) + (declare (not safe)) + (_g1946120473_ __tmp42318)))) + _g1943519446_))) + (__tmp42319 (_make-id19339_ '"make-" _name19341_))) + (declare (not safe)) + (_g1943320477_ __tmp42319)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1940719418_)))) - (_g1940520481_ - (_make-id19339_ - _name19341_ - '"::t"))))) + _g1940719418_))) + (__tmp42320 + (_make-id19339_ + _name19341_ + '"::t"))) + (declare (not safe)) + (_g1940520481_ __tmp42320)))) _g1937919390_)))) + (declare (not safe)) (_g1937720485_ _id19331_)))) - _g1934819359_)))) - (_g1934620489_ - (if _struct?19335_ - (gx#datum->syntax '#f 'defstruct-type) - (gx#datum->syntax '#f 'defclass-type))))))) + _g1934819359_))) + (__tmp42321 + (if _struct?19335_ + (gx#datum->syntax '#f 'defstruct-type) + (gx#datum->syntax '#f 'defclass-type)))) + (declare (not safe)) + (_g1934620489_ __tmp42321))))) (define |gerbil/core$$[:0:]#defstruct| (lambda (_stx20817_) (letrec ((_generate20820_ @@ -1426,72 +1591,78 @@ ___stx3917739178_)))) (let ((___kont3918039181_ (lambda (_L20963_ _L20965_) - (|gerbil/core$$[1]#generate-typedef| - _stx20817_ - _L20965_ - _L20963_ - _fields20906_ - _body20907_ - '#t))) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#generate-typedef| + _stx20817_ + _L20965_ + _L20963_ + _fields20906_ + _body20907_ + '#t)))) (___kont3918239183_ (lambda () (if (gx#identifier? _hd20904_) - (|gerbil/core$$[1]#generate-typedef| - _stx20817_ - _hd20904_ - '#f - _fields20906_ - _body20907_ - '#t) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#generate-typedef| + _stx20817_ + _hd20904_ + '#f + _fields20906_ + _body20907_ + '#t)) (gx#raise-syntax-error '#f '"Bad syntax" _stx20817_ _hd20904_))))) (let ((___match3919839199_ - (lambda (_e2091420943_ + (lambda (_e2091620943_ _hd2091520947_ - _tl2091620950_ - _e2091720953_ + _tl2091420950_ + _e2091920953_ _hd2091820957_ - _tl2091920960_) + _tl2091720960_) (let ((_L20963_ _hd2091820957_) (_L20965_ _hd2091520947_)) (if (and (gx#identifier? _L20965_) - (|gerbil/core$$[1]#syntax-local-struct-info?| - _L20963_)) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#syntax-local-struct-info?| + _L20963_))) (___kont3918039181_ _L20963_ _L20965_) (___kont3918239183_)))))) (if (gx#stx-pair? ___stx3917739178_) - (let ((_e2091420943_ + (let ((_e2091620943_ (gx#syntax-e ___stx3917739178_))) - (let ((_tl2091620950_ + (let ((_tl2091420950_ (let () (declare (not safe)) - (##cdr _e2091420943_))) + (##cdr _e2091620943_))) (_hd2091520947_ (let () (declare (not safe)) - (##car _e2091420943_)))) - (if (gx#stx-pair? _tl2091620950_) - (let ((_e2091720953_ - (gx#syntax-e _tl2091620950_))) - (let ((_tl2091920960_ + (##car _e2091620943_)))) + (if (gx#stx-pair? _tl2091420950_) + (let ((_e2091920953_ + (gx#syntax-e _tl2091420950_))) + (let ((_tl2091720960_ (let () (declare (not safe)) - (##cdr _e2091720953_))) + (##cdr _e2091920953_))) (_hd2091820957_ (let () (declare (not safe)) - (##car _e2091720953_)))) - (if (gx#stx-null? _tl2091920960_) + (##car _e2091920953_)))) + (if (gx#stx-null? _tl2091720960_) (___match3919839199_ - _e2091420943_ + _e2091620943_ _hd2091520947_ - _tl2091620950_ - _e2091720953_ + _tl2091420950_ + _e2091920953_ _hd2091820957_ - _tl2091920960_) + _tl2091720960_) (___kont3918239183_)))) (___kont3918239183_)))) (___kont3918239183_)))))))) @@ -1501,51 +1672,53 @@ (_g2082220900_ (lambda (_g2082420846_) (if (gx#stx-pair? _g2082420846_) - (let ((_e2082820849_ (gx#syntax-e _g2082420846_))) + (let ((_e2083020849_ (gx#syntax-e _g2082420846_))) (let ((_hd2082920853_ (let () (declare (not safe)) - (##car _e2082820849_))) - (_tl2083020856_ + (##car _e2083020849_))) + (_tl2082820856_ (let () (declare (not safe)) - (##cdr _e2082820849_)))) - (if (gx#stx-pair? _tl2083020856_) - (let ((_e2083120859_ - (gx#syntax-e _tl2083020856_))) + (##cdr _e2083020849_)))) + (if (gx#stx-pair? _tl2082820856_) + (let ((_e2083320859_ + (gx#syntax-e _tl2082820856_))) (let ((_hd2083220863_ (let () (declare (not safe)) - (##car _e2083120859_))) - (_tl2083320866_ + (##car _e2083320859_))) + (_tl2083120866_ (let () (declare (not safe)) - (##cdr _e2083120859_)))) - (if (gx#stx-pair? _tl2083320866_) - (let ((_e2083420869_ - (gx#syntax-e _tl2083320866_))) + (##cdr _e2083320859_)))) + (if (gx#stx-pair? _tl2083120866_) + (let ((_e2083620869_ + (gx#syntax-e _tl2083120866_))) (let ((_hd2083520873_ (let () (declare (not safe)) - (##car _e2083420869_))) - (_tl2083620876_ + (##car _e2083620869_))) + (_tl2083420876_ (let () (declare (not safe)) - (##cdr _e2083420869_)))) + (##cdr _e2083620869_)))) ((lambda (_L20879_ _L20881_ _L20882_) (if (and (gx#identifier-list? _L20881_) - (|gerbil/core$$[1]#typedef-body?| - _L20879_)) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#typedef-body?| + _L20879_))) (_generate20820_ _L20882_ _L20881_ _L20879_) (_g2082320842_ _g2082420846_))) - _tl2083620876_ + _tl2083420876_ _hd2083520873_ _hd2083220863_))) (_g2082320842_ _g2082420846_)))) @@ -1565,33 +1738,37 @@ ___stx3920139202_)))) (let ((___kont3920439205_ (lambda (_L21117_ _L21119_) - (|gerbil/core$$[1]#generate-typedef| - _stx20984_ - _L21119_ - (gx#syntax->list _L21117_) - _slots21073_ - _body21074_ - '#f))) + (let ((__tmp42322 (gx#syntax->list _L21117_))) + (declare (not safe)) + (|gerbil/core$$[1]#generate-typedef| + _stx20984_ + _L21119_ + __tmp42322 + _slots21073_ + _body21074_ + '#f)))) (___kont3920639207_ (lambda () (if (gx#identifier? _hd21071_) - (|gerbil/core$$[1]#generate-typedef| - _stx20984_ - _hd21071_ - '() - _slots21073_ - _body21074_ - '#f) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#generate-typedef| + _stx20984_ + _hd21071_ + '() + _slots21073_ + _body21074_ + '#f)) (gx#raise-syntax-error '#f '"Bad syntax" _stx20984_ _hd21071_))))) (let ((___match3921439215_ - (lambda (_e2108121107_ + (lambda (_e2108321107_ _hd2108221111_ - _tl2108321114_) - (let ((_L21117_ _tl2108321114_) + _tl2108121114_) + (let ((_L21117_ _tl2108121114_) (_L21119_ _hd2108221111_)) (if (and (gx#stx-list? _L21117_) (gx#stx-andmap @@ -1600,20 +1777,20 @@ (___kont3920439205_ _L21117_ _L21119_) (___kont3920639207_)))))) (if (gx#stx-pair? ___stx3920139202_) - (let ((_e2108121107_ + (let ((_e2108321107_ (gx#syntax-e ___stx3920139202_))) - (let ((_tl2108321114_ + (let ((_tl2108121114_ (let () (declare (not safe)) - (##cdr _e2108121107_))) + (##cdr _e2108321107_))) (_hd2108221111_ (let () (declare (not safe)) - (##car _e2108121107_)))) + (##car _e2108321107_)))) (___match3921439215_ - _e2108121107_ + _e2108321107_ _hd2108221111_ - _tl2108321114_))) + _tl2108121114_))) (___kont3920639207_)))))))) (let* ((_g2099021009_ (lambda (_g2099121005_) @@ -1621,51 +1798,53 @@ (_g2098921067_ (lambda (_g2099121013_) (if (gx#stx-pair? _g2099121013_) - (let ((_e2099521016_ (gx#syntax-e _g2099121013_))) + (let ((_e2099721016_ (gx#syntax-e _g2099121013_))) (let ((_hd2099621020_ (let () (declare (not safe)) - (##car _e2099521016_))) - (_tl2099721023_ + (##car _e2099721016_))) + (_tl2099521023_ (let () (declare (not safe)) - (##cdr _e2099521016_)))) - (if (gx#stx-pair? _tl2099721023_) - (let ((_e2099821026_ - (gx#syntax-e _tl2099721023_))) + (##cdr _e2099721016_)))) + (if (gx#stx-pair? _tl2099521023_) + (let ((_e2100021026_ + (gx#syntax-e _tl2099521023_))) (let ((_hd2099921030_ (let () (declare (not safe)) - (##car _e2099821026_))) - (_tl2100021033_ + (##car _e2100021026_))) + (_tl2099821033_ (let () (declare (not safe)) - (##cdr _e2099821026_)))) - (if (gx#stx-pair? _tl2100021033_) - (let ((_e2100121036_ - (gx#syntax-e _tl2100021033_))) + (##cdr _e2100021026_)))) + (if (gx#stx-pair? _tl2099821033_) + (let ((_e2100321036_ + (gx#syntax-e _tl2099821033_))) (let ((_hd2100221040_ (let () (declare (not safe)) - (##car _e2100121036_))) - (_tl2100321043_ + (##car _e2100321036_))) + (_tl2100121043_ (let () (declare (not safe)) - (##cdr _e2100121036_)))) + (##cdr _e2100321036_)))) ((lambda (_L21046_ _L21048_ _L21049_) (if (and (gx#identifier-list? _L21048_) - (|gerbil/core$$[1]#typedef-body?| - _L21046_)) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#typedef-body?| + _L21046_))) (_generate20987_ _L21049_ _L21048_ _L21046_) (_g2099021009_ _g2099121013_))) - _tl2100321043_ + _tl2100121043_ _hd2100221040_ _hd2099921030_))) (_g2099021009_ _g2099121013_)))) @@ -1687,80 +1866,82 @@ (_g2114221469_ (lambda (_g2114421176_) (if (gx#stx-pair? _g2114421176_) - (let ((_e2114921179_ (gx#syntax-e _g2114421176_))) + (let ((_e2115121179_ (gx#syntax-e _g2114421176_))) (let ((_hd2115021183_ (let () (declare (not safe)) - (##car _e2114921179_))) - (_tl2115121186_ + (##car _e2115121179_))) + (_tl2114921186_ (let () (declare (not safe)) - (##cdr _e2114921179_)))) - (if (gx#stx-pair? _tl2115121186_) - (let ((_e2115221189_ - (gx#syntax-e _tl2115121186_))) + (##cdr _e2115121179_)))) + (if (gx#stx-pair? _tl2114921186_) + (let ((_e2115421189_ + (gx#syntax-e _tl2114921186_))) (let ((_hd2115321193_ (let () (declare (not safe)) - (##car _e2115221189_))) - (_tl2115421196_ + (##car _e2115421189_))) + (_tl2115221196_ (let () (declare (not safe)) - (##cdr _e2115221189_)))) + (##cdr _e2115421189_)))) (if (gx#stx-pair? _hd2115321193_) - (let ((_e2115521199_ + (let ((_e2115721199_ (gx#syntax-e _hd2115321193_))) (let ((_hd2115621203_ (let () (declare (not safe)) - (##car _e2115521199_))) - (_tl2115721206_ + (##car _e2115721199_))) + (_tl2115521206_ (let () (declare (not safe)) - (##cdr _e2115521199_)))) + (##cdr _e2115721199_)))) (if (gx#identifier? _hd2115621203_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42266_| + |gerbil/core$$[1]#_g42323_| _hd2115621203_) (if (gx#stx-pair? - _tl2115721206_) - (let ((_e2115821209_ + _tl2115521206_) + (let ((_e2116021209_ (gx#syntax-e - _tl2115721206_))) + _tl2115521206_))) (let ((_hd2115921213_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e2115821209_))) - (_tl2116021216_ - (let () (declare (not safe)) (##cdr _e2115821209_)))) - (if (gx#stx-pair? _tl2116021216_) - (let ((_e2116121219_ (gx#syntax-e _tl2116021216_))) + (let () (declare (not safe)) (##car _e2116021209_))) + (_tl2115821216_ + (let () (declare (not safe)) (##cdr _e2116021209_)))) + (if (gx#stx-pair? _tl2115821216_) + (let ((_e2116321219_ (gx#syntax-e _tl2115821216_))) (let ((_hd2116221223_ (let () (declare (not safe)) - (##car _e2116121219_))) - (_tl2116321226_ + (##car _e2116321219_))) + (_tl2116121226_ (let () (declare (not safe)) - (##cdr _e2116121219_)))) - (if (gx#stx-null? _tl2116321226_) - (if (gx#stx-pair? _tl2115421196_) - (let ((_e2116421229_ - (gx#syntax-e _tl2115421196_))) + (##cdr _e2116321219_)))) + (if (gx#stx-null? _tl2116121226_) + (if (gx#stx-pair? _tl2115221196_) + (let ((_e2116621229_ + (gx#syntax-e _tl2115221196_))) (let ((_hd2116521233_ (let () (declare (not safe)) - (##car _e2116421229_))) - (_tl2116621236_ + (##car _e2116621229_))) + (_tl2116421236_ (let () (declare (not safe)) - (##cdr _e2116421229_)))) + (##cdr _e2116621229_)))) ((lambda (_L21239_ _L21241_ _L21242_ _L21243_) (if (and (gx#identifier? _L21243_) - (|gerbil/core$$[1]#syntax-local-type-info?__0| - _L21242_) + (let () + (declare (not safe)) + (|gerbil/core$$[1]#syntax-local-type-info?__0| + _L21242_)) (gx#stx-plist? _L21239_ _method-opt?21141_)) @@ -1917,9 +2098,11 @@ _g2127521286_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g2127321465_ - (unchecked-slot-ref - _klass21268_ - 'runtime-identifier))) + (let () + (declare (not safe)) + (unchecked-slot-ref + _klass21268_ + 'runtime-identifier)))) (if (not (gx#identifier? _L21243_)) (gx#raise-syntax-error @@ -1927,8 +2110,11 @@ '"Bad syntax; expected method identifier" _stx21136_ _L21243_) - (if (not (|gerbil/core$$[1]#syntax-local-type-info?__0| - _L21242_)) + (if (not (let () + (declare + (not safe)) + (|gerbil/core$$[1]#syntax-local-type-info?__0| + _L21242_))) (gx#raise-syntax-error '#f '"Bad syntax; expected type identifier" @@ -1938,7 +2124,7 @@ '#f '"Bad syntax; illegal method options" _stx21136_))))) - _tl2116621236_ + _tl2116421236_ _hd2116521233_ _hd2116221223_ _hd2115921213_))) @@ -1995,15 +2181,15 @@ '() _L21600_))))))) (let* ((___match3928039281_ - (lambda (_e2151021540_ + (lambda (_e2151221540_ _hd2151121544_ - _tl2151221547_ - _e2151321550_ + _tl2151021547_ + _e2151521550_ _hd2151421554_ - _tl2151521557_ - _e2151621560_ + _tl2151321557_ + _e2151821560_ _hd2151721564_ - _tl2151821567_ + _tl2151621567_ ___splice3922639227_ _target2151921570_ _tl2152121573_) @@ -2034,18 +2220,20 @@ _L21600_ _L21602_ _L21603_) - (_g2148421533_)))))))) + (let () + (declare (not safe)) + (_g2148421533_))))))))) (_loop2152221576_ _target2151921570_ '())))) (___match3925439255_ - (lambda (_e2148921639_ + (lambda (_e2149121639_ _hd2149021643_ - _tl2149121646_ - _e2149221649_ + _tl2148921646_ + _e2149421649_ _hd2149321653_ - _tl2149421656_ - _e2149521659_ + _tl2149221656_ + _e2149721659_ _hd2149621663_ - _tl2149721666_ + _tl2149521666_ ___splice3922239223_ _target2149821669_ _tl2150021672_) @@ -2086,52 +2274,52 @@ _L21701_ _L21702_) (___match3928039281_ - _e2148921639_ + _e2149121639_ _hd2149021643_ - _tl2149121646_ - _e2149221649_ + _tl2148921646_ + _e2149421649_ _hd2149321653_ - _tl2149421656_ - _e2149521659_ + _tl2149221656_ + _e2149721659_ _hd2149621663_ - _tl2149721666_ + _tl2149521666_ ___splice3922239223_ _target2149821669_ _tl2150021672_)))))))) (_loop2150121675_ _target2149821669_ '()))))) (if (gx#stx-pair? ___stx3921739218_) - (let ((_e2148921639_ (gx#syntax-e ___stx3921739218_))) - (let ((_tl2149121646_ - (let () (declare (not safe)) (##cdr _e2148921639_))) + (let ((_e2149121639_ (gx#syntax-e ___stx3921739218_))) + (let ((_tl2148921646_ + (let () (declare (not safe)) (##cdr _e2149121639_))) (_hd2149021643_ (let () (declare (not safe)) - (##car _e2148921639_)))) - (if (gx#stx-pair? _tl2149121646_) - (let ((_e2149221649_ (gx#syntax-e _tl2149121646_))) - (let ((_tl2149421656_ + (##car _e2149121639_)))) + (if (gx#stx-pair? _tl2148921646_) + (let ((_e2149421649_ (gx#syntax-e _tl2148921646_))) + (let ((_tl2149221656_ (let () (declare (not safe)) - (##cdr _e2149221649_))) + (##cdr _e2149421649_))) (_hd2149321653_ (let () (declare (not safe)) - (##car _e2149221649_)))) - (if (gx#stx-pair? _tl2149421656_) - (let ((_e2149521659_ - (gx#syntax-e _tl2149421656_))) - (let ((_tl2149721666_ + (##car _e2149421649_)))) + (if (gx#stx-pair? _tl2149221656_) + (let ((_e2149721659_ + (gx#syntax-e _tl2149221656_))) + (let ((_tl2149521666_ (let () (declare (not safe)) - (##cdr _e2149521659_))) + (##cdr _e2149721659_))) (_hd2149621663_ (let () (declare (not safe)) - (##car _e2149521659_)))) - (if (gx#stx-pair/null? _tl2149721666_) + (##car _e2149721659_)))) + (if (gx#stx-pair/null? _tl2149521666_) (let ((___splice3922239223_ (gx#syntax-split-splice - _tl2149721666_ + _tl2149521666_ '0))) (let ((_tl2150021672_ (let () @@ -2147,23 +2335,29 @@ '0)))) (if (gx#stx-null? _tl2150021672_) (___match3925439255_ - _e2148921639_ + _e2149121639_ _hd2149021643_ - _tl2149121646_ - _e2149221649_ + _tl2148921646_ + _e2149421649_ _hd2149321653_ - _tl2149421656_ - _e2149521659_ + _tl2149221656_ + _e2149721659_ _hd2149621663_ - _tl2149721666_ + _tl2149521666_ ___splice3922239223_ _target2149821669_ _tl2150021672_) - (_g2148421533_)))) - (_g2148421533_)))) - (_g2148421533_)))) - (_g2148421533_)))) - (_g2148421533_))))))) + (let () + (declare (not safe)) + (_g2148421533_))))) + (let () + (declare (not safe)) + (_g2148421533_))))) + (let () + (declare (not safe)) + (_g2148421533_))))) + (let () (declare (not safe)) (_g2148421533_))))) + (let () (declare (not safe)) (_g2148421533_)))))))) (define |gerbil/core$$[:0:]#@| (lambda (_$stx21744_) (let* ((___stx3928339284_ _$stx21744_) @@ -2190,15 +2384,15 @@ '() _L21856_)))))) (let* ((___match3933839339_ - (lambda (_e2176621796_ + (lambda (_e2176821796_ _hd2176721800_ - _tl2176821803_ - _e2176921806_ + _tl2176621803_ + _e2177121806_ _hd2177021810_ - _tl2177121813_ - _e2177221816_ + _tl2176921813_ + _e2177421816_ _hd2177321820_ - _tl2177421823_ + _tl2177221823_ ___splice3929039291_ _target2177521826_ _tl2177721829_) @@ -2228,23 +2422,23 @@ _hd2176721800_)))))) (_loop2177821832_ _target2177521826_ '())))) (___match3931239313_ - (lambda (_e2175321897_ + (lambda (_e2175521897_ _hd2175421901_ - _tl2175521904_ - _e2175621907_ + _tl2175321904_ + _e2175821907_ _hd2175721911_ - _tl2175821914_ - _e2175921917_ + _tl2175621914_ + _e2176121917_ _hd2176021921_ - _tl2176121924_) + _tl2175921924_) (let ((_L21927_ _hd2176021921_) (_L21929_ _hd2175721911_)) (if (gx#identifier? _L21927_) (___kont3928639287_ _L21927_ _L21929_) - (if (gx#stx-pair/null? _tl2176121924_) + (if (gx#stx-pair/null? _tl2175921924_) (let ((___splice3929039291_ (gx#syntax-split-splice - _tl2176121924_ + _tl2175921924_ '0))) (let ((_tl2177721829_ (let () @@ -2260,65 +2454,69 @@ '0)))) (if (gx#stx-null? _tl2177721829_) (___match3933839339_ - _e2175321897_ + _e2175521897_ _hd2175421901_ - _tl2175521904_ - _e2175621907_ + _tl2175321904_ + _e2175821907_ _hd2175721911_ - _tl2175821914_ - _e2175921917_ + _tl2175621914_ + _e2176121917_ _hd2176021921_ - _tl2176121924_ + _tl2175921924_ ___splice3929039291_ _target2177521826_ _tl2177721829_) - (_g2174921789_)))) - (_g2174921789_))))))) + (let () + (declare (not safe)) + (_g2174921789_))))) + (let () + (declare (not safe)) + (_g2174921789_)))))))) (if (gx#stx-pair? ___stx3928339284_) - (let ((_e2175321897_ (gx#syntax-e ___stx3928339284_))) - (let ((_tl2175521904_ - (let () (declare (not safe)) (##cdr _e2175321897_))) + (let ((_e2175521897_ (gx#syntax-e ___stx3928339284_))) + (let ((_tl2175321904_ + (let () (declare (not safe)) (##cdr _e2175521897_))) (_hd2175421901_ (let () (declare (not safe)) - (##car _e2175321897_)))) - (if (gx#stx-pair? _tl2175521904_) - (let ((_e2175621907_ (gx#syntax-e _tl2175521904_))) - (let ((_tl2175821914_ + (##car _e2175521897_)))) + (if (gx#stx-pair? _tl2175321904_) + (let ((_e2175821907_ (gx#syntax-e _tl2175321904_))) + (let ((_tl2175621914_ (let () (declare (not safe)) - (##cdr _e2175621907_))) + (##cdr _e2175821907_))) (_hd2175721911_ (let () (declare (not safe)) - (##car _e2175621907_)))) - (if (gx#stx-pair? _tl2175821914_) - (let ((_e2175921917_ - (gx#syntax-e _tl2175821914_))) - (let ((_tl2176121924_ + (##car _e2175821907_)))) + (if (gx#stx-pair? _tl2175621914_) + (let ((_e2176121917_ + (gx#syntax-e _tl2175621914_))) + (let ((_tl2175921924_ (let () (declare (not safe)) - (##cdr _e2175921917_))) + (##cdr _e2176121917_))) (_hd2176021921_ (let () (declare (not safe)) - (##car _e2175921917_)))) - (if (gx#stx-null? _tl2176121924_) + (##car _e2176121917_)))) + (if (gx#stx-null? _tl2175921924_) (___match3931239313_ - _e2175321897_ + _e2175521897_ _hd2175421901_ - _tl2175521904_ - _e2175621907_ + _tl2175321904_ + _e2175821907_ _hd2175721911_ - _tl2175821914_ - _e2175921917_ + _tl2175621914_ + _e2176121917_ _hd2176021921_ - _tl2176121924_) + _tl2175921924_) (if (gx#stx-pair/null? - _tl2176121924_) + _tl2175921924_) (let ((___splice3929039291_ (gx#syntax-split-splice - _tl2176121924_ + _tl2175921924_ '0))) (let ((_tl2177721829_ (let () @@ -2335,23 +2533,29 @@ (if (gx#stx-null? _tl2177721829_) (___match3933839339_ - _e2175321897_ + _e2175521897_ _hd2175421901_ - _tl2175521904_ - _e2175621907_ + _tl2175321904_ + _e2175821907_ _hd2175721911_ - _tl2175821914_ - _e2175921917_ + _tl2175621914_ + _e2176121917_ _hd2176021921_ - _tl2176121924_ + _tl2175921924_ ___splice3929039291_ _target2177521826_ _tl2177721829_) - (_g2174921789_)))) - (_g2174921789_))))) - (_g2174921789_)))) - (_g2174921789_)))) - (_g2174921789_))))))) + (let () + (declare (not safe)) + (_g2174921789_))))) + (let () + (declare (not safe)) + (_g2174921789_)))))) + (let () + (declare (not safe)) + (_g2174921789_))))) + (let () (declare (not safe)) (_g2174921789_))))) + (let () (declare (not safe)) (_g2174921789_)))))))) (define |gerbil/core$$[:0:]#@-set!| (lambda (_$stx21949_) (let* ((___stx3934139342_ _$stx21949_) @@ -2388,24 +2592,24 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons _L22095_ (cons _L22093_ '()))))))) (let* ((___match3941639417_ - (lambda (_e2197722013_ + (lambda (_e2197922013_ _hd2197822017_ - _tl2197922020_ - _e2198022023_ + _tl2197722020_ + _e2198222023_ _hd2198122027_ - _tl2198222030_ - _e2198322033_ + _tl2198022030_ + _e2198522033_ _hd2198422037_ - _tl2198522040_ + _tl2198322040_ ___splice3934839349_ _target2198622043_ _tl2198822046_ - _e2199522049_ + _e2199722049_ _hd2199622053_ - _tl2199722056_ - _e2199822059_ + _tl2199522056_ + _e2200022059_ _hd2199922063_ - _tl2200022066_) + _tl2199822066_) (letrec ((_loop2198922069_ (lambda (_hd2198722073_ _path2199322076_) (if (gx#stx-pair? _hd2198722073_) @@ -2434,28 +2638,28 @@ _hd2197822017_)))))) (_loop2198922069_ _target2198622043_ '())))) (___match3937639377_ - (lambda (_e2195922142_ + (lambda (_e2196122142_ _hd2196022146_ - _tl2196122149_ - _e2196222152_ + _tl2195922149_ + _e2196422152_ _hd2196322156_ - _tl2196422159_ - _e2196522162_ + _tl2196222159_ + _e2196722162_ _hd2196622166_ - _tl2196722169_ - _e2196822172_ + _tl2196522169_ + _e2197022172_ _hd2196922176_ - _tl2197022179_) + _tl2196822179_) (let ((_L22182_ _hd2196922176_) (_L22184_ _hd2196622166_) (_L22185_ _hd2196322156_)) (if (gx#identifier? _L22184_) (___kont3934439345_ _L22182_ _L22184_ _L22185_) - (if (gx#stx-pair/null? _tl2196722169_) - (if (fx>= (gx#stx-length _tl2196722169_) '2) + (if (gx#stx-pair/null? _tl2196522169_) + (if (fx>= (gx#stx-length _tl2196522169_) '2) (let ((___splice3934839349_ (gx#syntax-split-splice - _tl2196722169_ + _tl2196522169_ '2))) (let ((_tl2198822046_ (let () @@ -2470,118 +2674,126 @@ ___splice3934839349_ '0)))) (if (gx#stx-pair? _tl2198822046_) - (let ((_e2199522049_ + (let ((_e2199722049_ (gx#syntax-e _tl2198822046_))) - (let ((_tl2199722056_ + (let ((_tl2199522056_ (let () (declare (not safe)) - (##cdr _e2199522049_))) + (##cdr _e2199722049_))) (_hd2199622053_ (let () (declare (not safe)) - (##car _e2199522049_)))) + (##car _e2199722049_)))) (if (gx#stx-pair? - _tl2199722056_) - (let ((_e2199822059_ + _tl2199522056_) + (let ((_e2200022059_ (gx#syntax-e - _tl2199722056_))) - (let ((_tl2200022066_ + _tl2199522056_))) + (let ((_tl2199822066_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2199822059_))) + (##cdr _e2200022059_))) (_hd2199922063_ - (let () (declare (not safe)) (##car _e2199822059_)))) - (if (gx#stx-null? _tl2200022066_) + (let () (declare (not safe)) (##car _e2200022059_)))) + (if (gx#stx-null? _tl2199822066_) (___match3941639417_ - _e2195922142_ + _e2196122142_ _hd2196022146_ - _tl2196122149_ - _e2196222152_ + _tl2195922149_ + _e2196422152_ _hd2196322156_ - _tl2196422159_ - _e2196522162_ + _tl2196222159_ + _e2196722162_ _hd2196622166_ - _tl2196722169_ + _tl2196522169_ ___splice3934839349_ _target2198622043_ _tl2198822046_ - _e2199522049_ + _e2199722049_ _hd2199622053_ - _tl2199722056_ - _e2199822059_ + _tl2199522056_ + _e2200022059_ _hd2199922063_ - _tl2200022066_) - (_g2195422006_)))) + _tl2199822066_) + (let () (declare (not safe)) (_g2195422006_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2195422006_)))) - (_g2195422006_)))) - (_g2195422006_)) - (_g2195422006_))))))) + (let () + (declare (not safe)) + (_g2195422006_))))) + (let () + (declare (not safe)) + (_g2195422006_))))) + (let () + (declare (not safe)) + (_g2195422006_))) + (let () + (declare (not safe)) + (_g2195422006_)))))))) (if (gx#stx-pair? ___stx3934139342_) - (let ((_e2195922142_ (gx#syntax-e ___stx3934139342_))) - (let ((_tl2196122149_ - (let () (declare (not safe)) (##cdr _e2195922142_))) + (let ((_e2196122142_ (gx#syntax-e ___stx3934139342_))) + (let ((_tl2195922149_ + (let () (declare (not safe)) (##cdr _e2196122142_))) (_hd2196022146_ (let () (declare (not safe)) - (##car _e2195922142_)))) - (if (gx#stx-pair? _tl2196122149_) - (let ((_e2196222152_ (gx#syntax-e _tl2196122149_))) - (let ((_tl2196422159_ + (##car _e2196122142_)))) + (if (gx#stx-pair? _tl2195922149_) + (let ((_e2196422152_ (gx#syntax-e _tl2195922149_))) + (let ((_tl2196222159_ (let () (declare (not safe)) - (##cdr _e2196222152_))) + (##cdr _e2196422152_))) (_hd2196322156_ (let () (declare (not safe)) - (##car _e2196222152_)))) - (if (gx#stx-pair? _tl2196422159_) - (let ((_e2196522162_ - (gx#syntax-e _tl2196422159_))) - (let ((_tl2196722169_ + (##car _e2196422152_)))) + (if (gx#stx-pair? _tl2196222159_) + (let ((_e2196722162_ + (gx#syntax-e _tl2196222159_))) + (let ((_tl2196522169_ (let () (declare (not safe)) - (##cdr _e2196522162_))) + (##cdr _e2196722162_))) (_hd2196622166_ (let () (declare (not safe)) - (##car _e2196522162_)))) - (if (gx#stx-pair? _tl2196722169_) - (let ((_e2196822172_ - (gx#syntax-e _tl2196722169_))) - (let ((_tl2197022179_ + (##car _e2196722162_)))) + (if (gx#stx-pair? _tl2196522169_) + (let ((_e2197022172_ + (gx#syntax-e _tl2196522169_))) + (let ((_tl2196822179_ (let () (declare (not safe)) - (##cdr _e2196822172_))) + (##cdr _e2197022172_))) (_hd2196922176_ (let () (declare (not safe)) - (##car _e2196822172_)))) - (if (gx#stx-null? _tl2197022179_) + (##car _e2197022172_)))) + (if (gx#stx-null? _tl2196822179_) (___match3937639377_ - _e2195922142_ + _e2196122142_ _hd2196022146_ - _tl2196122149_ - _e2196222152_ + _tl2195922149_ + _e2196422152_ _hd2196322156_ - _tl2196422159_ - _e2196522162_ + _tl2196222159_ + _e2196722162_ _hd2196622166_ - _tl2196722169_ - _e2196822172_ + _tl2196522169_ + _e2197022172_ _hd2196922176_ - _tl2197022179_) + _tl2196822179_) (if (gx#stx-pair/null? - _tl2196722169_) + _tl2196522169_) (if (fx>= (gx#stx-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2196722169_) + _tl2196522169_) '2) (let ((___splice3934839349_ - (gx#syntax-split-splice _tl2196722169_ '2))) + (gx#syntax-split-splice _tl2196522169_ '2))) (let ((_tl2198822046_ (let () (declare (not safe)) @@ -2591,60 +2803,64 @@ (declare (not safe)) (##vector-ref ___splice3934839349_ '0)))) (if (gx#stx-pair? _tl2198822046_) - (let ((_e2199522049_ (gx#syntax-e _tl2198822046_))) - (let ((_tl2199722056_ + (let ((_e2199722049_ (gx#syntax-e _tl2198822046_))) + (let ((_tl2199522056_ (let () (declare (not safe)) - (##cdr _e2199522049_))) + (##cdr _e2199722049_))) (_hd2199622053_ (let () (declare (not safe)) - (##car _e2199522049_)))) - (if (gx#stx-pair? _tl2199722056_) - (let ((_e2199822059_ - (gx#syntax-e _tl2199722056_))) - (let ((_tl2200022066_ + (##car _e2199722049_)))) + (if (gx#stx-pair? _tl2199522056_) + (let ((_e2200022059_ + (gx#syntax-e _tl2199522056_))) + (let ((_tl2199822066_ (let () (declare (not safe)) - (##cdr _e2199822059_))) + (##cdr _e2200022059_))) (_hd2199922063_ (let () (declare (not safe)) - (##car _e2199822059_)))) - (if (gx#stx-null? _tl2200022066_) + (##car _e2200022059_)))) + (if (gx#stx-null? _tl2199822066_) (___match3941639417_ - _e2195922142_ + _e2196122142_ _hd2196022146_ - _tl2196122149_ - _e2196222152_ + _tl2195922149_ + _e2196422152_ _hd2196322156_ - _tl2196422159_ - _e2196522162_ + _tl2196222159_ + _e2196722162_ _hd2196622166_ - _tl2196722169_ + _tl2196522169_ ___splice3934839349_ _target2198622043_ _tl2198822046_ - _e2199522049_ + _e2199722049_ _hd2199622053_ - _tl2199722056_ - _e2199822059_ + _tl2199522056_ + _e2200022059_ _hd2199922063_ - _tl2200022066_) - (_g2195422006_)))) - (_g2195422006_)))) - (_g2195422006_)))) - (_g2195422006_)) - (_g2195422006_))))) + _tl2199822066_) + (let () + (declare (not safe)) + (_g2195422006_))))) + (let () + (declare (not safe)) + (_g2195422006_))))) + (let () (declare (not safe)) (_g2195422006_))))) + (let () (declare (not safe)) (_g2195422006_))) + (let () (declare (not safe)) (_g2195422006_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl2196722169_) + _tl2196522169_) (if (fx>= (gx#stx-length - _tl2196722169_) + _tl2196522169_) '2) (let ((___splice3934839349_ (gx#syntax-split-splice - _tl2196722169_ + _tl2196522169_ '2))) (let ((_tl2198822046_ (let () @@ -2662,51 +2878,59 @@ '0)))) (if (gx#stx-pair? _tl2198822046_) - (let ((_e2199522049_ + (let ((_e2199722049_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-e _tl2198822046_))) - (let ((_tl2199722056_ - (let () (declare (not safe)) (##cdr _e2199522049_))) + (let ((_tl2199522056_ + (let () (declare (not safe)) (##cdr _e2199722049_))) (_hd2199622053_ (let () (declare (not safe)) - (##car _e2199522049_)))) - (if (gx#stx-pair? _tl2199722056_) - (let ((_e2199822059_ (gx#syntax-e _tl2199722056_))) - (let ((_tl2200022066_ + (##car _e2199722049_)))) + (if (gx#stx-pair? _tl2199522056_) + (let ((_e2200022059_ (gx#syntax-e _tl2199522056_))) + (let ((_tl2199822066_ (let () (declare (not safe)) - (##cdr _e2199822059_))) + (##cdr _e2200022059_))) (_hd2199922063_ (let () (declare (not safe)) - (##car _e2199822059_)))) - (if (gx#stx-null? _tl2200022066_) + (##car _e2200022059_)))) + (if (gx#stx-null? _tl2199822066_) (___match3941639417_ - _e2195922142_ + _e2196122142_ _hd2196022146_ - _tl2196122149_ - _e2196222152_ + _tl2195922149_ + _e2196422152_ _hd2196322156_ - _tl2196422159_ - _e2196522162_ + _tl2196222159_ + _e2196722162_ _hd2196622166_ - _tl2196722169_ + _tl2196522169_ ___splice3934839349_ _target2198622043_ _tl2198822046_ - _e2199522049_ + _e2199722049_ _hd2199622053_ - _tl2199722056_ - _e2199822059_ + _tl2199522056_ + _e2200022059_ _hd2199922063_ - _tl2200022066_) - (_g2195422006_)))) - (_g2195422006_)))) - (_g2195422006_)))) + _tl2199822066_) + (let () + (declare (not safe)) + (_g2195422006_))))) + (let () (declare (not safe)) (_g2195422006_))))) + (let () (declare (not safe)) (_g2195422006_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2195422006_)) - (_g2195422006_))))) - (_g2195422006_)))) - (_g2195422006_)))) - (_g2195422006_))))))))) + (let () + (declare (not safe)) + (_g2195422006_))) + (let () + (declare (not safe)) + (_g2195422006_)))))) + (let () + (declare (not safe)) + (_g2195422006_))))) + (let () (declare (not safe)) (_g2195422006_))))) + (let () (declare (not safe)) (_g2195422006_)))))))))) diff --git a/src/bootstrap/gerbil/core__8.scm b/src/bootstrap/gerbil/core__8.scm index 6e2e6ed1e..37e274c3e 100644 --- a/src/bootstrap/gerbil/core__8.scm +++ b/src/bootstrap/gerbil/core__8.scm @@ -26,7 +26,7 @@ (define |gerbil/core$$[1]#macro-object::apply-macro-expander| (lambda (_self22356_ _stx22358_) (gx#core-apply-expander - (unchecked-slot-ref _self22356_ 'macro) + (let () (declare (not safe)) (unchecked-slot-ref _self22356_ 'macro)) _stx22358_))) (define |gerbil/core$$[1]#macro-object::apply-macro-expander::specialize| (lambda (__t36469) diff --git a/src/bootstrap/gerbil/core__9.scm b/src/bootstrap/gerbil/core__9.scm index a482e6976..7c54a7091 100644 --- a/src/bootstrap/gerbil/core__9.scm +++ b/src/bootstrap/gerbil/core__9.scm @@ -1,104 +1,104 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[2]#_g42267_| + (define |gerbil/core$$[2]#_g42325_| (##structure gx#syntax-quote::t 'runtime-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42268_| + (define |gerbil/core$$[2]#_g42327_| (##structure gx#syntax-quote::t 'runtime-struct-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42269_| + (define |gerbil/core$$[2]#_g42329_| (##structure gx#syntax-quote::t 'runtime-class-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42270_| + (define |gerbil/core$$[2]#_g42331_| (##structure gx#syntax-quote::t 'expander-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42271_| + (define |gerbil/core$$[2]#_g42333_| (##structure gx#syntax-quote::t 'extended-runtime-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42272_| + (define |gerbil/core$$[2]#_g42335_| (##structure gx#syntax-quote::t 'extended-struct-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42273_| + (define |gerbil/core$$[2]#_g42337_| (##structure gx#syntax-quote::t 'extended-class-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42274_| + (define |gerbil/core$$[2]#_g42339_| (##structure gx#syntax-quote::t 'runtime-rtd-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42275_| + (define |gerbil/core$$[2]#_g42341_| (##structure gx#syntax-quote::t 'runtime-struct-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42276_| + (define |gerbil/core$$[2]#_g42343_| (##structure gx#syntax-quote::t 'runtime-class-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42277_| + (define |gerbil/core$$[2]#_g42347_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42278_| + (define |gerbil/core$$[2]#_g42348_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42279_| + (define |gerbil/core$$[2]#_g42349_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42280_| + (define |gerbil/core$$[2]#_g42350_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42281_| + (define |gerbil/core$$[2]#_g42351_| (##structure gx#syntax-quote::t 'macro-object-macro-set! @@ -107,78 +107,104 @@ '())) (begin (define |gerbil/core$$[:1:]#runtime-type-info| - (make-class-instance - |gerbil/core$$[1]#runtime-class-info::t| - 'runtime-identifier: - |gerbil/core$$[2]#_g42267_|)) + (let ((__tmp42324 |gerbil/core$$[2]#_g42325_|)) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#runtime-class-info::t| + 'runtime-identifier: + __tmp42324))) (define |gerbil/core$$[:1:]#runtime-struct-info| - (make-class-instance - |gerbil/core$$[1]#runtime-class-info::t| - 'runtime-identifier: - |gerbil/core$$[2]#_g42268_|)) + (let ((__tmp42326 |gerbil/core$$[2]#_g42327_|)) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#runtime-class-info::t| + 'runtime-identifier: + __tmp42326))) (define |gerbil/core$$[:1:]#runtime-class-info| - (make-class-instance - |gerbil/core$$[1]#runtime-class-info::t| - 'runtime-identifier: - |gerbil/core$$[2]#_g42269_|)) + (let ((__tmp42328 |gerbil/core$$[2]#_g42329_|)) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#runtime-class-info::t| + 'runtime-identifier: + __tmp42328))) (define |gerbil/core$$[:1:]#expander-type-info| - (make-class-instance - |gerbil/core$$[1]#runtime-class-info::t| - 'runtime-identifier: - |gerbil/core$$[2]#_g42270_|)) + (let ((__tmp42330 |gerbil/core$$[2]#_g42331_|)) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#runtime-class-info::t| + 'runtime-identifier: + __tmp42330))) (define |gerbil/core$$[:1:]#extended-runtime-type-info| - (make-class-instance - |gerbil/core$$[1]#runtime-class-info::t| - 'runtime-identifier: - |gerbil/core$$[2]#_g42271_|)) + (let ((__tmp42332 |gerbil/core$$[2]#_g42333_|)) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#runtime-class-info::t| + 'runtime-identifier: + __tmp42332))) (define |gerbil/core$$[:1:]#extended-struct-info| - (make-class-instance - |gerbil/core$$[1]#runtime-class-info::t| - 'runtime-identifier: - |gerbil/core$$[2]#_g42272_|)) + (let ((__tmp42334 |gerbil/core$$[2]#_g42335_|)) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#runtime-class-info::t| + 'runtime-identifier: + __tmp42334))) (define |gerbil/core$$[:1:]#extended-class-info| - (make-class-instance - |gerbil/core$$[1]#runtime-class-info::t| - 'runtime-identifier: - |gerbil/core$$[2]#_g42273_|)) + (let ((__tmp42336 |gerbil/core$$[2]#_g42337_|)) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#runtime-class-info::t| + 'runtime-identifier: + __tmp42336))) (define |gerbil/core$$[:1:]#runtime-rtd-exhibitor| - (make-class-instance - |gerbil/core$$[1]#runtime-class-info::t| - 'runtime-identifier: - |gerbil/core$$[2]#_g42274_|)) + (let ((__tmp42338 |gerbil/core$$[2]#_g42339_|)) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#runtime-class-info::t| + 'runtime-identifier: + __tmp42338))) (define |gerbil/core$$[:1:]#runtime-struct-exhibitor| - (make-class-instance - |gerbil/core$$[1]#runtime-class-info::t| - 'runtime-identifier: - |gerbil/core$$[2]#_g42275_|)) + (let ((__tmp42340 |gerbil/core$$[2]#_g42341_|)) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#runtime-class-info::t| + 'runtime-identifier: + __tmp42340))) (define |gerbil/core$$[:1:]#runtime-class-exhibitor| - (make-class-instance - |gerbil/core$$[1]#runtime-class-info::t| - 'runtime-identifier: - |gerbil/core$$[2]#_g42276_|)) + (let ((__tmp42342 |gerbil/core$$[2]#_g42343_|)) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#runtime-class-info::t| + 'runtime-identifier: + __tmp42342))) (define |gerbil/core$$[:1:]#macro-object| - (make-class-instance - |gerbil/core$$[1]#extended-class-info::t| - 'runtime-identifier: - |gerbil/core$$[2]#_g42277_| - 'expander-identifiers: - (cons '() - (cons |gerbil/core$$[2]#_g42277_| - (cons |gerbil/core$$[2]#_g42278_| - (cons |gerbil/core$$[2]#_g42279_| - (cons (cons |gerbil/core$$[2]#_g42280_| - '()) - (cons (cons |gerbil/core$$[2]#_g42281_| + (let ((__tmp42352 |gerbil/core$$[2]#_g42347_|) + (__tmp42346 + (cons '() + (cons |gerbil/core$$[2]#_g42347_| + (cons |gerbil/core$$[2]#_g42348_| + (cons |gerbil/core$$[2]#_g42349_| + (cons (cons |gerbil/core$$[2]#_g42350_| '()) - '())))))) - 'type-exhibitor: - (let ((__tmp42282 (list))) - (declare (not safe)) - (##structure - |gerbil/core$$[1]#runtime-class-exhibitor::t| - 'gerbil.core#macro-object::t - __tmp42282 - 'macro-object - '#f - '() - '(macro))))))) + (cons (cons |gerbil/core$$[2]#_g42351_| + '()) + '()))))))) + (__tmp42344 + (let ((__tmp42345 (list))) + (declare (not safe)) + (##structure + |gerbil/core$$[1]#runtime-class-exhibitor::t| + 'gerbil.core#macro-object::t + __tmp42345 + 'macro-object + '#f + '() + '(macro))))) + (declare (not safe)) + (make-class-instance + |gerbil/core$$[1]#extended-class-info::t| + 'runtime-identifier: + __tmp42352 + 'expander-identifiers: + __tmp42346 + 'type-exhibitor: + __tmp42344))))) diff --git a/src/bootstrap/gerbil/expander/common__0.scm b/src/bootstrap/gerbil/expander/common__0.scm index 20449a4a1..6953e6d6e 100644 --- a/src/bootstrap/gerbil/expander/common__0.scm +++ b/src/bootstrap/gerbil/expander/common__0.scm @@ -1,18 +1,36 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/common::timestamp 1695199285) + (define gerbil/expander/common::timestamp 1695292397) (begin (define gx#AST::t - (make-struct-type 'gerbil#AST::t '#f '2 'syntax '() '#f '(e source))) - (define gx#AST? (make-struct-predicate gx#AST::t)) + (let () + (declare (not safe)) + (make-struct-type 'gerbil#AST::t '#f '2 'syntax '() '#f '(e source)))) + (define gx#AST? + (let () (declare (not safe)) (make-struct-predicate gx#AST::t))) (define gx#make-AST (lambda _$args1320_ (apply make-struct-instance gx#AST::t _$args1320_))) - (define gx#AST-e (make-struct-field-accessor gx#AST::t '0)) - (define gx#AST-source (make-struct-field-accessor gx#AST::t '1)) - (define gx#AST-e-set! (make-struct-field-mutator gx#AST::t '0)) - (define gx#AST-source-set! (make-struct-field-mutator gx#AST::t '1)) - (define gx#&AST-e (make-struct-field-unchecked-accessor gx#AST::t '0)) - (define gx#&AST-source (make-struct-field-unchecked-accessor gx#AST::t '1)) - (define gx#&AST-e-set! (make-struct-field-unchecked-mutator gx#AST::t '0)) + (define gx#AST-e + (let () (declare (not safe)) (make-struct-field-accessor gx#AST::t '0))) + (define gx#AST-source + (let () (declare (not safe)) (make-struct-field-accessor gx#AST::t '1))) + (define gx#AST-e-set! + (let () (declare (not safe)) (make-struct-field-mutator gx#AST::t '0))) + (define gx#AST-source-set! + (let () (declare (not safe)) (make-struct-field-mutator gx#AST::t '1))) + (define gx#&AST-e + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor gx#AST::t '0))) + (define gx#&AST-source + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor gx#AST::t '1))) + (define gx#&AST-e-set! + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator gx#AST::t '0))) (define gx#&AST-source-set! - (make-struct-field-unchecked-mutator gx#AST::t '1)))) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator gx#AST::t '1))))) diff --git a/src/bootstrap/gerbil/expander/common__1.scm b/src/bootstrap/gerbil/expander/common__1.scm index 29685f6bd..1abdddb3d 100644 --- a/src/bootstrap/gerbil/expander/common__1.scm +++ b/src/bootstrap/gerbil/expander/common__1.scm @@ -7,49 +7,49 @@ #f (gx#current-expander-context) '())) - (define |gx[1]#_g5029_| + (define |gx[1]#_g5037_| (##structure gx#syntax-quote::t - 'make-AST + 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g5030_| + (define |gx[1]#_g5039_| (##structure gx#syntax-quote::t - 'AST? + 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g5031_| + (define |gx[1]#_g5043_| (##structure gx#syntax-quote::t - 'AST-e + 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g5032_| + (define |gx[1]#_g5045_| (##structure gx#syntax-quote::t - 'AST-source + 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g5033_| + (define |gx[1]#_g5047_| (##structure gx#syntax-quote::t - 'AST-e-set! + 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g5034_| + (define |gx[1]#_g5049_| (##structure gx#syntax-quote::t - 'AST-source-set! + 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g5035_| + (define |gx[1]#_g5157_| (##structure gx#syntax-quote::t 'else @@ -62,15 +62,47 @@ 'runtime-identifier: |gx[1]#_g5028_| 'expander-identifiers: - (cons '#f - (cons |gx[1]#_g5028_| - (cons |gx[1]#_g5029_| - (cons |gx[1]#_g5030_| - (cons (cons |gx[1]#_g5031_| - (cons |gx[1]#_g5032_| '())) - (cons (cons |gx[1]#_g5033_| - (cons |gx[1]#_g5034_| '())) - '())))))) + (let ((__tmp5029 + (let ((__tmp5050 |gx[1]#_g5028_|) + (__tmp5030 + (let ((__tmp5048 |gx[1]#_g5049_|) + (__tmp5031 + (let ((__tmp5046 |gx[1]#_g5047_|) + (__tmp5032 + (let ((__tmp5040 + (let ((__tmp5044 |gx[1]#_g5045_|) + (__tmp5041 + (let ((__tmp5042 + |gx[1]#_g5043_|)) + (declare (not safe)) + (cons __tmp5042 '())))) + (declare (not safe)) + (cons __tmp5044 __tmp5041))) + (__tmp5033 + (let ((__tmp5034 + (let ((__tmp5038 + |gx[1]#_g5039_|) + (__tmp5035 + (let ((__tmp5036 + |gx[1]#_g5037_|)) + (declare (not safe)) + (cons __tmp5036 + '())))) + (declare (not safe)) + (cons __tmp5038 + __tmp5035)))) + (declare (not safe)) + (cons __tmp5034 '())))) + (declare (not safe)) + (cons __tmp5040 __tmp5033)))) + (declare (not safe)) + (cons __tmp5046 __tmp5032)))) + (declare (not safe)) + (cons __tmp5048 __tmp5031)))) + (declare (not safe)) + (cons __tmp5050 __tmp5030)))) + (declare (not safe)) + (cons '#f __tmp5029)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gerbil#AST::t @@ -86,35 +118,58 @@ (_g42100_ (lambda (_g4461_) (if (gx#stx-pair? _g4461_) - (let ((_e4664_ (gx#syntax-e _g4461_))) + (let ((_e4864_ (gx#syntax-e _g4461_))) (let ((_hd4768_ - (let () (declare (not safe)) (##car _e4664_))) - (_tl4871_ - (let () (declare (not safe)) (##cdr _e4664_)))) - (if (gx#stx-pair? _tl4871_) - (let ((_e4974_ (gx#syntax-e _tl4871_))) + (let () (declare (not safe)) (##car _e4864_))) + (_tl4671_ + (let () (declare (not safe)) (##cdr _e4864_)))) + (if (gx#stx-pair? _tl4671_) + (let ((_e5174_ (gx#syntax-e _tl4671_))) (let ((_hd5078_ (let () (declare (not safe)) - (##car _e4974_))) - (_tl5181_ + (##car _e5174_))) + (_tl4981_ (let () (declare (not safe)) - (##cdr _e4974_)))) - (if (gx#stx-null? _tl5181_) + (##cdr _e5174_)))) + (if (gx#stx-null? _tl4981_) ((lambda (_L84_) - (cons (gx#datum->syntax '#f 'unless) - (cons (cons (gx#datum->syntax - '#f - 'procedure?) - (cons _L84_ '())) - (cons (cons (gx#datum->syntax + (let ((__tmp5060 + (gx#datum->syntax '#f 'unless)) + (__tmp5051 + (let ((__tmp5057 + (let ((__tmp5059 + (gx#datum->syntax + '#f + 'procedure?)) + (__tmp5058 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'error) - (cons '"expected procedure" (cons _L84_ '()))) - '())))) + (not safe)) + (cons _L84_ '())))) + (declare (not safe)) + (cons __tmp5059 __tmp5058))) + (__tmp5052 + (let ((__tmp5053 + (let ((__tmp5056 (gx#datum->syntax '#f 'error)) + (__tmp5054 + (let ((__tmp5055 + (let () + (declare (not safe)) + (cons _L84_ '())))) + (declare (not safe)) + (cons '"expected procedure" __tmp5055)))) + (declare (not safe)) + (cons __tmp5056 __tmp5054)))) + (declare (not safe)) + (cons __tmp5053 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp5057 __tmp5052)))) + (declare (not safe)) + (cons __tmp5060 __tmp5051))) _hd5078_) (_g4357_ _g4461_)))) (_g4357_ _g4461_)))) @@ -157,45 +212,45 @@ _stx104_ _hd1171_)))) (if (gx#stx-pair? ___stx49314932_) - (let ((_e11811280_ + (let ((_e11831280_ (gx#syntax-e ___stx49314932_))) - (let ((_tl11831287_ + (let ((_tl11811287_ (let () (declare (not safe)) - (##cdr _e11811280_))) + (##cdr _e11831280_))) (_hd11821284_ (let () (declare (not safe)) - (##car _e11811280_)))) - (if (gx#stx-pair? _tl11831287_) - (let ((_e11841290_ + (##car _e11831280_)))) + (if (gx#stx-pair? _tl11811287_) + (let ((_e11861290_ (gx#syntax-e - _tl11831287_))) - (let ((_tl11861297_ + _tl11811287_))) + (let ((_tl11841297_ (let () (declare (not safe)) - (##cdr _e11841290_))) + (##cdr _e11861290_))) (_hd11851294_ (let () (declare (not safe)) - (##car _e11841290_)))) + (##car _e11861290_)))) (if (gx#stx-null? - _tl11861297_) + _tl11841297_) (___kont49344935_ _hd11851294_ _hd11821284_) (if (gx#stx-pair? - _tl11861297_) - (let ((_e11961242_ + _tl11841297_) + (let ((_e11981242_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl11861297_))) - (let ((_tl11981249_ - (let () (declare (not safe)) (##cdr _e11961242_))) + (gx#syntax-e _tl11841297_))) + (let ((_tl11961249_ + (let () (declare (not safe)) (##cdr _e11981242_))) (_hd11971246_ (let () (declare (not safe)) - (##car _e11961242_)))) - (if (gx#stx-null? _tl11981249_) + (##car _e11981242_)))) + (if (gx#stx-null? _tl11961249_) (___kont49364937_ _hd11971246_ _hd11851294_ @@ -283,36 +338,115 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax '#f 'stx-pair?) - (cons _L989_ '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L1016_ + (let ((__tmp5093 (gx#datum->syntax '#f 'if)) + (__tmp5061 + (let ((__tmp5090 + (let ((__tmp5092 + (gx#datum->syntax + '#f + 'stx-pair?)) + (__tmp5091 + (let () + (declare (not safe)) + (cons _L989_ '())))) + (declare (not safe)) + (cons __tmp5092 __tmp5091))) + (__tmp5062 + (let ((__tmp5064 + (let ((__tmp5089 + (gx#datum->syntax + '#f + 'let)) + (__tmp5065 + (let ((__tmp5083 + (let ((__tmp5084 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'syntax-e) - (cons _L989_ '())) - '())) - '()) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L1044_ - (cons (cons (gx#datum->syntax - '#f - '##car) - (cons _L1016_ '())) - '())) - (cons (cons _L1072_ - (cons (cons (gx#datum->syntax + (let ((__tmp5085 + (let ((__tmp5086 + (let ((__tmp5088 + (gx#datum->syntax + '#f + 'syntax-e)) + (__tmp5087 + (let () + (declare (not safe)) + (cons _L989_ '())))) + (declare (not safe)) + (cons __tmp5088 __tmp5087)))) + (declare (not safe)) + (cons __tmp5086 '())))) + (declare (not safe)) + (cons _L1016_ __tmp5085)))) + (declare (not safe)) + (cons __tmp5084 '()))) + (__tmp5066 + (let ((__tmp5067 + (let ((__tmp5082 (gx#datum->syntax '#f 'let)) + (__tmp5068 + (let ((__tmp5070 + (let ((__tmp5077 + (let ((__tmp5078 + (let ((__tmp5079 + (let ((__tmp5081 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##cdr) - (cons _L1016_ '())) - '())) + (gx#datum->syntax '#f '##car)) + (__tmp5080 + (let () + (declare (not safe)) + (cons _L1016_ '())))) + (declare (not safe)) + (cons __tmp5081 __tmp5080)))) + (declare (not safe)) + (cons __tmp5079 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons _L1100_ '()))) - '()))) + (declare (not safe)) + (cons _L1044_ __tmp5078))) + (__tmp5071 + (let ((__tmp5072 + (let ((__tmp5073 + (let ((__tmp5074 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp5076 (gx#datum->syntax '#f '##cdr)) + (__tmp5075 + (let () + (declare (not safe)) + (cons _L1016_ '())))) + (declare (not safe)) + (cons __tmp5076 __tmp5075)))) + (declare (not safe)) + (cons __tmp5074 '())))) + (declare (not safe)) + (cons _L1072_ __tmp5073)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp5072 '())))) + (declare (not safe)) + (cons __tmp5077 __tmp5071))) + (__tmp5069 + (let () + (declare (not safe)) + (cons _L1100_ '())))) + (declare (not safe)) + (cons __tmp5070 __tmp5069)))) + (declare (not safe)) + (cons __tmp5082 __tmp5068)))) + (declare (not safe)) + (cons __tmp5067 '())))) + (declare (not safe)) + (cons __tmp5083 __tmp5066)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L1128_ '()))))))) + (declare (not safe)) + (cons __tmp5089 __tmp5065))) + (__tmp5063 + (let () + (declare (not safe)) + (cons _L1128_ '())))) + (declare (not safe)) + (cons __tmp5064 __tmp5063)))) + (declare (not safe)) + (cons __tmp5090 __tmp5062)))) + (declare (not safe)) + (cons __tmp5093 __tmp5061))))) _g11141125_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g11121143_ _E654_)))) @@ -340,10 +474,14 @@ (if (gx#underscore? _hd659_) _K662_ - (if (find (lambda (_g687689_) + (if (let ((__tmp5138 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#bound-identifier=? _g687689_ _hd659_)) - _kws258_) + (lambda (_g687689_) + (gx#bound-identifier=? + _g687689_ + _hd659_)))) + (declare (not safe)) + (find __tmp5138 _kws258_)) (let* ((_g693708_ (lambda (_g694704_) (gx#raise-syntax-error @@ -353,55 +491,96 @@ (_g692759_ (lambda (_g694712_) (if (gx#stx-pair? _g694712_) - (let ((_e697715_ + (let ((_e699715_ (gx#syntax-e _g694712_))) (let ((_hd698719_ (let () (declare (not safe)) - (##car _e697715_))) - (_tl699722_ + (##car _e699715_))) + (_tl697722_ (let () (declare (not safe)) - (##cdr _e697715_)))) - (if (gx#stx-pair? _tl699722_) - (let ((_e700725_ + (##cdr _e699715_)))) + (if (gx#stx-pair? _tl697722_) + (let ((_e702725_ (gx#syntax-e - _tl699722_))) + _tl697722_))) (let ((_hd701729_ (let () (declare (not safe)) - (##car _e700725_))) - (_tl702732_ + (##car _e702725_))) + (_tl700732_ (let () (declare (not safe)) - (##cdr _e700725_)))) + (##cdr _e702725_)))) (if (gx#stx-null? - _tl702732_) + _tl700732_) ((lambda (_L735_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L737_) (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons (gx#datum->syntax - '#f - 'identifier?) - (cons _L737_ '())) - (cons (cons (gx#datum->syntax - '#f - 'core-identifier=?) - (cons _L737_ - (cons (cons (gx#datum->syntax + (let ((__tmp5137 (gx#datum->syntax '#f 'if)) + (__tmp5120 + (let ((__tmp5123 + (let ((__tmp5136 + (gx#datum->syntax '#f 'and)) + (__tmp5124 + (let ((__tmp5133 + (let ((__tmp5135 + (gx#datum->syntax + '#f + 'identifier?)) + (__tmp5134 + (let () + (declare (not safe)) + (cons _L737_ '())))) + (declare (not safe)) + (cons __tmp5135 + __tmp5134))) + (__tmp5125 + (let ((__tmp5126 + (let ((__tmp5132 + (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L735_ '())) - '()))) + '#f + 'core-identifier=?)) + (__tmp5127 + (let ((__tmp5128 + (let ((__tmp5129 + (let ((__tmp5131 + (gx#datum->syntax '#f 'quote)) + (__tmp5130 + (let () + (declare (not safe)) + (cons _L735_ '())))) + (declare (not safe)) + (cons __tmp5131 __tmp5130)))) + (declare (not safe)) + (cons __tmp5129 '())))) + (declare (not safe)) + (cons _L737_ __tmp5128)))) + (declare (not safe)) + (cons __tmp5132 __tmp5127)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons _K662_ (cons _E654_ '())))))) + (declare (not safe)) + (cons __tmp5126 '())))) + (declare (not safe)) + (cons __tmp5133 __tmp5125)))) + (declare (not safe)) + (cons __tmp5136 __tmp5124))) + (__tmp5121 + (let ((__tmp5122 + (let () + (declare (not safe)) + (cons _E654_ '())))) + (declare (not safe)) + (cons _K662_ __tmp5122)))) + (declare (not safe)) + (cons __tmp5123 __tmp5121)))) + (declare (not safe)) + (cons __tmp5137 __tmp5120)))) _hd701729_ _hd698719_) (_g693708_ _g694712_)))) @@ -418,39 +597,56 @@ (_g762822_ (lambda (_g764782_) (if (gx#stx-pair? _g764782_) - (let ((_e767785_ + (let ((_e769785_ (gx#syntax-e _g764782_))) (let ((_hd768789_ (let () (declare (not safe)) - (##car _e767785_))) - (_tl769792_ + (##car _e769785_))) + (_tl767792_ (let () (declare (not safe)) - (##cdr _e767785_)))) - (if (gx#stx-pair? _tl769792_) - (let ((_e770795_ + (##cdr _e769785_)))) + (if (gx#stx-pair? _tl767792_) + (let ((_e772795_ (gx#syntax-e - _tl769792_))) + _tl767792_))) (let ((_hd771799_ (let () (declare (not safe)) - (##car _e770795_))) - (_tl772802_ + (##car _e772795_))) + (_tl770802_ (let () (declare (not safe)) - (##cdr _e770795_)))) + (##cdr _e772795_)))) (if (gx#stx-null? - _tl772802_) + _tl770802_) ((lambda (_L805_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L807_) (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L805_ (cons _L807_ '())) '()) - (cons _K662_ '()))))) + (let ((__tmp5119 (gx#datum->syntax '#f 'let)) + (__tmp5114 + (let ((__tmp5116 + (let ((__tmp5117 + (let ((__tmp5118 + (let () + (declare (not safe)) + (cons _L807_ '())))) + (declare (not safe)) + (cons _L805_ __tmp5118)))) + (declare (not safe)) + (cons __tmp5117 '()))) + (__tmp5115 + (let () + (declare (not safe)) + (cons _K662_ '())))) + (declare (not safe)) + (cons __tmp5116 __tmp5115)))) + (declare (not safe)) + (cons __tmp5119 __tmp5114)))) _hd771799_ _hd768789_) (_g763778_ _g764782_)))) @@ -469,13 +665,39 @@ (lambda (_g827838_) ((lambda (_L841_) (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'stx-null?) - (cons _L841_ '())) - (cons _K662_ - (cons _E654_ '())))))) + (let ((__tmp5113 + (gx#datum->syntax '#f 'if)) + (__tmp5107 + (let ((__tmp5110 + (let ((__tmp5112 + (gx#datum->syntax + '#f + 'stx-null?)) + (__tmp5111 + (let () + (declare + (not safe)) + (cons _L841_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons __tmp5112 __tmp5111))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp5108 + (let ((__tmp5109 + (let () + (declare + (not safe)) + (cons _E654_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons _K662_ __tmp5109)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp5110 __tmp5108)))) + (declare (not safe)) + (cons __tmp5113 __tmp5107)))) _g827838_)))) (_g825852_ _tgt661_)) (if (gx#stx-datum? _hd659_) @@ -488,57 +710,83 @@ (_g855933_ (lambda (_g857879_) (if (gx#stx-pair? _g857879_) - (let ((_e861882_ + (let ((_e863882_ (gx#syntax-e _g857879_))) (let ((_hd862886_ (let () (declare (not safe)) - (##car _e861882_))) - (_tl863889_ + (##car _e863882_))) + (_tl861889_ (let () (declare (not safe)) - (##cdr _e861882_)))) - (if (gx#stx-pair? _tl863889_) - (let ((_e864892_ + (##cdr _e863882_)))) + (if (gx#stx-pair? _tl861889_) + (let ((_e866892_ (gx#syntax-e - _tl863889_))) + _tl861889_))) (let ((_hd865896_ (let () (declare (not safe)) - (##car _e864892_))) - (_tl866899_ + (##car _e866892_))) + (_tl864899_ (let () (declare (not safe)) - (##cdr _e864892_)))) + (##cdr _e866892_)))) (if (gx#stx-pair? - _tl866899_) - (let ((_e867902_ + _tl864899_) + (let ((_e869902_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl866899_))) + _tl864899_))) (let ((_hd868906_ - (let () (declare (not safe)) (##car _e867902_))) - (_tl869909_ - (let () (declare (not safe)) (##cdr _e867902_)))) - (if (gx#stx-null? _tl869909_) + (let () (declare (not safe)) (##car _e869902_))) + (_tl867909_ + (let () (declare (not safe)) (##cdr _e869902_)))) + (if (gx#stx-null? _tl867909_) ((lambda (_L912_ _L914_ _L915_) (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons _L912_ - (cons (cons (gx#datum->syntax - '#f - 'stx-e) - (cons _L915_ '())) - (cons (cons (gx#datum->syntax + (let ((__tmp5106 (gx#datum->syntax '#f 'if)) + (__tmp5094 + (let ((__tmp5097 + (let ((__tmp5098 + (let ((__tmp5103 + (let ((__tmp5105 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L914_ '())) - '()))) + (gx#datum->syntax '#f 'stx-e)) + (__tmp5104 + (let () (declare (not safe)) (cons _L915_ '())))) + (declare (not safe)) + (cons __tmp5105 __tmp5104))) + (__tmp5099 + (let ((__tmp5100 + (let ((__tmp5102 (gx#datum->syntax '#f 'quote)) + (__tmp5101 + (let () + (declare (not safe)) + (cons _L914_ '())))) + (declare (not safe)) + (cons __tmp5102 __tmp5101)))) + (declare (not safe)) + (cons __tmp5100 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _K662_ (cons _E654_ '())))))) + (declare (not safe)) + (cons __tmp5103 + __tmp5099)))) + (declare (not safe)) + (cons _L912_ __tmp5098))) + (__tmp5095 + (let ((__tmp5096 + (let () + (declare (not safe)) + (cons _E654_ '())))) + (declare (not safe)) + (cons _K662_ __tmp5096)))) + (declare (not safe)) + (cons __tmp5097 __tmp5095)))) + (declare (not safe)) + (cons __tmp5106 __tmp5094)))) _hd868906_ _hd865896_ _hd862886_) @@ -551,10 +799,16 @@ (list _tgt661_ _hd659_ (let ((_e937_ (gx#stx-e _hd659_))) - (if (or (keyword? _e937_) - (immediate? _e937_)) + (if (or (let () + (declare (not safe)) + (keyword? _e937_)) + (let () + (declare (not safe)) + (immediate? _e937_))) (gx#datum->syntax '#f 'eq?) - (if (number? _e937_) + (if (let () + (declare (not safe)) + (number? _e937_)) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -568,27 +822,37 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx49774978_) - (let ((_e669951_ + (let ((_e671951_ (gx#syntax-e ___stx49774978_))) - (let ((_tl671958_ + (let ((_tl669958_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e669951_))) + (##cdr _e671951_))) (_hd670955_ - (let () (declare (not safe)) (##car _e669951_)))) - (___kont49804981_ _tl671958_ _hd670955_))) + (let () (declare (not safe)) (##car _e671951_)))) + (___kont49804981_ _tl669958_ _hd670955_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont49824983_))))))) (_recur656_ _hd651_ _tgt256_ - (cons (gx#datum->syntax '#f 'if) - (cons _fender652_ - (cons _body653_ - (cons _E654_ '())))))))) + (let ((__tmp5142 (gx#datum->syntax '#f 'if)) + (__tmp5139 + (let ((__tmp5140 + (let ((__tmp5141 + (let () + (declare (not safe)) + (cons _E654_ '())))) + (declare (not safe)) + (cons _body653_ + __tmp5141)))) + (declare (not safe)) + (cons _fender652_ __tmp5140)))) + (declare (not safe)) + (cons __tmp5142 __tmp5139)))))) (_generate-clauses264_ (lambda (_clauses387_) (let _lp390_ ((_rest393_ _clauses387_) @@ -617,21 +881,38 @@ (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L630_) - (not (gx#stx-null? _L630_))) - (cons (cons _E395_ - (cons (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'lambda) - (cons '() - (cons (cons (gx#datum->syntax + (let ((__tmp5151 (gx#stx-null? _L630_))) + (declare (not safe)) + (not __tmp5151))) + (let ((__tmp5143 + (let ((__tmp5144 + (let ((__tmp5145 + (gx#stx-wrap-source + (let ((__tmp5150 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp5146 + (let ((__tmp5147 + (let ((__tmp5148 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'begin) - _L630_) - '()))) + (let ((__tmp5149 (gx#datum->syntax '#f 'begin))) + (declare (not safe)) + (cons __tmp5149 _L630_)))) + (declare (not safe)) + (cons __tmp5148 '())))) + (declare (not safe)) + (cons '() __tmp5147)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _L478_)) - '())) - _r396_) + (declare (not safe)) + (cons __tmp5150 __tmp5146)) + (gx#stx-source _L478_)))) + (declare (not safe)) + (cons __tmp5145 '())))) + (declare (not safe)) + (cons _E395_ __tmp5144)))) + (declare (not safe)) + (cons __tmp5143 _r396_)) (gx#raise-syntax-error '#f '"Bad syntax" @@ -677,45 +958,61 @@ (_lp390_ _L476_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L527_ - (cons (cons _E395_ (cons _L586_ '())) - _r396_))))) + (let ((__tmp5152 + (let ((__tmp5153 + (let () + (declare (not safe)) + (cons _L586_ '())))) + (declare (not safe)) + (cons _E395_ __tmp5153)))) + (declare (not safe)) + (cons __tmp5152 _r396_)))))) _g572583_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g570601_ (gx#stx-wrap-source - (cons (gx#datum->syntax - '#f - 'lambda) - (cons '() - (cons _L558_ + (let ((__tmp5156 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp5154 + (let ((__tmp5155 + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) + (declare (not safe)) + (cons _L558_ '())))) + (declare (not safe)) + (cons '() __tmp5155)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp5156 __tmp5154)) (gx#stx-source _L478_)))))) _g544555_)))) (_g542605_ (_generate-clause261_ _L478_ - (cons _L527_ '())))))) + (let () + (declare (not safe)) + (cons _L527_ '()))))))) _g513524_)))) (_g511609_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx49934994_) - (let ((_e493620_ + (let ((_e495620_ (gx#syntax-e ___stx49934994_))) - (let ((_tl495627_ + (let ((_tl493627_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e493620_))) + (##cdr _e495620_))) (_hd494624_ - (let () (declare (not safe)) (##car _e493620_)))) + (let () (declare (not safe)) (##car _e495620_)))) (if (gx#identifier? _hd494624_) - (if (gx#free-identifier=? |gx[1]#_g5035_| _hd494624_) - (___kont49964997_ _tl495627_) + (if (gx#free-identifier=? |gx[1]#_g5157_| _hd494624_) + (___kont49964997_ _tl493627_) (___kont49984999_)) (___kont49984999_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -732,39 +1029,64 @@ (lambda (_g423434_) ((lambda (_L437_) (let () - (cons (cons _E395_ + (let ((__tmp5158 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'lambda) - (cons '() - (cons (cons (gx#datum->syntax - '#f - 'raise-syntax-error) - (cons '#f + (let ((__tmp5159 + (let ((__tmp5160 + (gx#stx-wrap-source + (let ((__tmp5168 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp5161 + (let ((__tmp5162 + (let ((__tmp5163 + (let ((__tmp5167 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '"Bad syntax" (cons _L437_ '())))) - '()))) + (gx#datum->syntax '#f 'raise-syntax-error)) + (__tmp5164 + (let ((__tmp5165 + (let ((__tmp5166 + (let () + (declare (not safe)) + (cons _L437_ '())))) + (declare (not safe)) + (cons '"Bad syntax" __tmp5166)))) + (declare (not safe)) + (cons '#f __tmp5165)))) + (declare (not safe)) + (cons __tmp5167 __tmp5164)))) + (declare (not safe)) + (cons __tmp5163 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx104_)) - '())) - _r396_))) + (declare (not safe)) + (cons '() __tmp5162)))) + (declare (not safe)) + (cons __tmp5168 __tmp5161)) + (gx#stx-source _stx104_)))) + (declare (not safe)) + (cons __tmp5160 '())))) + (declare (not safe)) + (cons _E395_ __tmp5159)))) + (declare (not safe)) + (cons __tmp5158 _r396_)))) _g423434_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g421455_ _tgt256_))))) (if (gx#stx-pair? ___stx50135014_) - (let ((_e403466_ + (let ((_e405466_ (gx#syntax-e ___stx50135014_))) - (let ((_tl405473_ + (let ((_tl403473_ (let () (declare (not safe)) - (##cdr _e403466_))) + (##cdr _e405466_))) (_hd404470_ (let () (declare (not safe)) - (##car _e403466_)))) + (##car _e405466_)))) (___kont50165017_ - _tl405473_ + _tl403473_ _hd404470_))) (___kont50185019_)))))))) (let* ((_bind266_ (_generate-clauses264_ _clauses259_)) @@ -777,30 +1099,30 @@ (_g268383_ (lambda (_g270290_) (if (gx#stx-pair/null? _g270290_) - (let ((_g5036_ (gx#syntax-split-splice + (let ((_g5169_ (gx#syntax-split-splice _g270290_ '0))) (begin - (let ((_g5037_ (let () + (let ((_g5170_ (let () (declare (not safe)) (if (##values? - _g5036_) + _g5169_) (##vector-length - _g5036_) + _g5169_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g5037_ 2))) + (##fx= _g5170_ 2))) (error "Context expects 2 values" - _g5037_))) + _g5170_))) (let ((_target272293_ (let () (declare (not safe)) - (##vector-ref _g5036_ 0))) + (##vector-ref _g5169_ 0))) (_tl274296_ (let () (declare (not safe)) - (##vector-ref _g5036_ 1)))) + (##vector-ref _g5169_ 1)))) (if (gx#stx-null? _tl274296_) (letrec ((_loop275299_ (lambda (_hd273303_ @@ -816,8 +1138,13 @@ (##cdr _e276309_)))) (_loop275299_ _lp-tl278316_ - (cons _lp-hd277313_ _bind-try279306_)))) - (let ((_bind-try280319_ (reverse _bind-try279306_))) + (let () + (declare (not safe)) + (cons _lp-hd277313_ _bind-try279306_))))) + (let ((_bind-try280319_ + (let () + (declare (not safe)) + (reverse _bind-try279306_)))) ((lambda (_L323_) (let () (let* ((_g341349_ @@ -831,19 +1158,38 @@ ((lambda (_L356_) (let () (let () - (cons (gx#datum->syntax - '#f - 'let*) - (cons (foldr1 (lambda (_g370373_ + (let ((__tmp5176 + (gx#datum->syntax + '#f + 'let*)) + (__tmp5171 + (let ((__tmp5174 + (let ((__tmp5175 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g371376_) - (cons _g370373_ _g371376_)) - '() - _L323_) - (cons (cons _L356_ '()) '())))))) + (lambda (_g370373_ _g371376_) + (let () + (declare (not safe)) + (cons _g370373_ _g371376_))))) + (declare (not safe)) + (foldr1 __tmp5175 '() _L323_))) + (__tmp5172 + (let ((__tmp5173 + (let () (declare (not safe)) (cons _L356_ '())))) + (declare (not safe)) + (cons __tmp5173 '())))) + (declare (not safe)) + (cons __tmp5174 __tmp5172)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp5176 __tmp5171))))) _g342353_)))) - (_g340379_ (car (last _bind266_)))))) + (_g340379_ + (let ((__tmp5177 + (let () + (declare (not safe)) + (last _bind266_)))) + (declare (not safe)) + (car __tmp5177)))))) _bind-try280319_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop275299_ @@ -858,36 +1204,36 @@ (_g109252_ (lambda (_g111133_) (if (gx#stx-pair? _g111133_) - (let ((_e115136_ (gx#syntax-e _g111133_))) + (let ((_e117136_ (gx#syntax-e _g111133_))) (let ((_hd116140_ (let () (declare (not safe)) - (##car _e115136_))) - (_tl117143_ + (##car _e117136_))) + (_tl115143_ (let () (declare (not safe)) - (##cdr _e115136_)))) - (if (gx#stx-pair? _tl117143_) - (let ((_e118146_ (gx#syntax-e _tl117143_))) + (##cdr _e117136_)))) + (if (gx#stx-pair? _tl115143_) + (let ((_e120146_ (gx#syntax-e _tl115143_))) (let ((_hd119150_ (let () (declare (not safe)) - (##car _e118146_))) - (_tl120153_ + (##car _e120146_))) + (_tl118153_ (let () (declare (not safe)) - (##cdr _e118146_)))) - (if (gx#stx-pair? _tl120153_) - (let ((_e121156_ - (gx#syntax-e _tl120153_))) + (##cdr _e120146_)))) + (if (gx#stx-pair? _tl118153_) + (let ((_e123156_ + (gx#syntax-e _tl118153_))) (let ((_hd122160_ (let () (declare (not safe)) - (##car _e121156_))) - (_tl123163_ + (##car _e123156_))) + (_tl121163_ (let () (declare (not safe)) - (##cdr _e121156_)))) + (##cdr _e123156_)))) ((lambda (_L166_ _L168_ _L169_) (if (and (gx#identifier-list? _L168_) @@ -914,13 +1260,27 @@ ((lambda (_L229_) (let () (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L202_ + (let ((__tmp5183 + (gx#datum->syntax '#f 'let)) + (__tmp5178 + (let ((__tmp5180 + (let ((__tmp5181 + (let ((__tmp5182 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L169_ '())) - '()) - (cons _L229_ '())))))) + (let () + (declare (not safe)) + (cons _L169_ '())))) + (declare (not safe)) + (cons _L202_ __tmp5182)))) + (declare (not safe)) + (cons __tmp5181 '()))) + (__tmp5179 (let () (declare (not safe)) (cons _L229_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp5180 + __tmp5179)))) + (declare (not safe)) + (cons __tmp5183 __tmp5178))))) _g215226_)))) (_g213244_ (_generate107_ @@ -932,7 +1292,7 @@ (_g186248_ (gx#genident 'e))) (_g110129_ _g111133_))) - _tl123163_ + _tl121163_ _hd122160_ _hd119150_))) (_g110129_ _g111133_)))) diff --git a/src/bootstrap/gerbil/expander/compile.ssxi.ss b/src/bootstrap/gerbil/expander/compile.ssxi.ss index 2909b8930..7172acddb 100644 --- a/src/bootstrap/gerbil/expander/compile.ssxi.ss +++ b/src/bootstrap/gerbil/expander/compile.ssxi.ss @@ -4,11 +4,6 @@ package: gerbil/expander (begin (declare-type gx#core-compile-top-syntax (@lambda 1 #f)) (declare-type gx#core-expander::compile-top-syntax (@lambda 2 #f)) - (declare-method - gx#core-expander::t - compile-top-syntax - gx#core-expander::compile-top-syntax - #f) (declare-type gx#core-compile-top-error (@lambda 1 #f)) (declare-type gx#core-compile-top-begin% (@lambda 1 #f)) (declare-type gx#core-compile-top-begin-syntax% (@lambda 1 #f)) diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index 85b145e3e..7a08bcb98 100644 --- a/src/bootstrap/gerbil/expander/compile__0.scm +++ b/src/bootstrap/gerbil/expander/compile__0.scm @@ -1,766 +1,772 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1695199285) + (define gerbil/expander/compile::timestamp 1695292397) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_stx17291_) - (let* ((_e1729217299_ _stx17291_) - (_E1729417303_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1729217299_))) - (_E1729317317_ - (lambda () - (if (gx#stx-pair? _e1729217299_) - (let ((_e1729517307_ (gx#syntax-e _e1729217299_))) - (let ((_hd1729617310_ (##car _e1729517307_)) - (_tl1729717312_ (##cdr _e1729517307_))) - (let ((_form17315_ _hd1729617310_)) + (lambda (_stx18006_) + (let* ((_e1800718014_ _stx18006_) + (_E1800918018_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1800718014_))) + (_E1800818032_ + (lambda () + (if (gx#stx-pair? _e1800718014_) + (let ((_e1801018022_ (gx#syntax-e _e1800718014_))) + (let ((_hd1801118025_ (##car _e1801018022_)) + (_tl1801218027_ (##cdr _e1801018022_))) + (let ((_form18030_ _hd1801118025_)) (if '#t - (let* ((__self17320 - (gx#syntax-local-e__0 _form17315_)) - (__method17321 + (let* ((__self18035 + (gx#syntax-local-e__0 _form18030_)) + (__method18036 (method-ref - __self17320 + __self18035 'compile-top-syntax))) - (if __method17321 - (__method17321 __self17320 _stx17291_) + (if __method18036 + (__method18036 __self18035 _stx18006_) (error '"Missing method" - __self17320 + __self18035 'compile-top-syntax))) - (_E1729417303_))))) - (_E1729417303_))))) - (_E1729317317_)))) + (_E1800918018_))))) + (_E1800918018_))))) + (_E1800818032_)))) (define gx#core-expander::compile-top-syntax - (lambda (_self17251_ _stx17252_) - (let* ((_self1725317261_ _self17251_) - (_E1725517265_ - (lambda () (error '"No clause matching" _self1725317261_))) - (_K1725617277_ - (lambda (_K17268_) - (let ((_$e17270_ (gx#stx-source _stx17252_))) - (if _$e17270_ - ((lambda (_g1727217274_) + (lambda (_self17966_ _stx17967_) + (let* ((_self1796817976_ _self17966_) + (_E1797017980_ + (lambda () (error '"No clause matching" _self1796817976_))) + (_K1797117992_ + (lambda (_K17983_) + (let ((_$e17985_ (gx#stx-source _stx17967_))) + (if _$e17985_ + ((lambda (_g1798717989_) (gx#stx-wrap-source - (_K17268_ _stx17252_) - _g1727217274_)) - _$e17270_) - (_K17268_ _stx17252_)))))) - (if (##structure-instance-of? _self1725317261_ 'gx#core-expander::t) - (let* ((_e1725717280_ (##vector-ref _self1725317261_ '1)) - (_e1725817283_ (##vector-ref _self1725317261_ '2)) - (_e1725917286_ (##vector-ref _self1725317261_ '3)) - (_K17289_ _e1725917286_)) - (_K1725617277_ _K17289_)) - (_E1725517265_))))) + (_K17983_ _stx17967_) + _g1798717989_)) + _$e17985_) + (_K17983_ _stx17967_)))))) + (if (##structure-instance-of? _self1796817976_ 'gx#core-expander::t) + (let* ((_e1797217995_ (##vector-ref _self1796817976_ '1)) + (_e1797317998_ (##vector-ref _self1796817976_ '2)) + (_e1797418001_ (##vector-ref _self1796817976_ '3)) + (_K18004_ _e1797418001_)) + (_K1797117992_ _K18004_)) + (_E1797017980_))))) (bind-method! gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_stx17125_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _stx17125_))) + (lambda (_stx17840_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _stx17840_))) (define gx#core-compile-top-begin% - (lambda (_stx17095_) - (let* ((_e1709617103_ _stx17095_) - (_E1709817107_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1709617103_))) - (_E1709717121_ - (lambda () - (if (gx#stx-pair? _e1709617103_) - (let ((_e1709917111_ (gx#syntax-e _e1709617103_))) - (let ((_hd1710017114_ (##car _e1709917111_)) - (_tl1710117116_ (##cdr _e1709917111_))) - (let ((_body17119_ _tl1710117116_)) + (lambda (_stx17810_) + (let* ((_e1781117818_ _stx17810_) + (_E1781317822_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1781117818_))) + (_E1781217836_ + (lambda () + (if (gx#stx-pair? _e1781117818_) + (let ((_e1781417826_ (gx#syntax-e _e1781117818_))) + (let ((_hd1781517829_ (##car _e1781417826_)) + (_tl1781617831_ (##cdr _e1781417826_))) + (let ((_body17834_ _tl1781617831_)) (if '#t (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _body17119_)) - (_E1709817107_))))) - (_E1709817107_))))) - (_E1709717121_)))) + _body17834_)) + (_E1781317822_))))) + (_E1781317822_))))) + (_E1781217836_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_stx17064_) - (let* ((_e1706517072_ _stx17064_) - (_E1706717076_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1706517072_))) - (_E1706617091_ - (lambda () - (if (gx#stx-pair? _e1706517072_) - (let ((_e1706817080_ (gx#syntax-e _e1706517072_))) - (let ((_hd1706917083_ (##car _e1706817080_)) - (_tl1707017085_ (##cdr _e1706817080_))) - (let ((_body17088_ _tl1707017085_)) + (lambda (_stx17779_) + (let* ((_e1778017787_ _stx17779_) + (_E1778217791_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1778017787_))) + (_E1778117806_ + (lambda () + (if (gx#stx-pair? _e1778017787_) + (let ((_e1778317795_ (gx#syntax-e _e1778017787_))) + (let ((_hd1778417798_ (##car _e1778317795_)) + (_tl1778517800_ (##cdr _e1778317795_))) + (let ((_body17803_ _tl1778517800_)) (if '#t (cons '%#begin-syntax (call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _body17088_)) + _body17803_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))) - (_E1706717076_))))) - (_E1706717076_))))) - (_E1706617091_)))) + (_E1778217791_))))) + (_E1778217791_))))) + (_E1778117806_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_stx17034_) - (let* ((_e1703517042_ _stx17034_) - (_E1703717046_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1703517042_))) - (_E1703617060_ - (lambda () - (if (gx#stx-pair? _e1703517042_) - (let ((_e1703817050_ (gx#syntax-e _e1703517042_))) - (let ((_hd1703917053_ (##car _e1703817050_)) - (_tl1704017055_ (##cdr _e1703817050_))) - (let ((_body17058_ _tl1704017055_)) + (lambda (_stx17749_) + (let* ((_e1775017757_ _stx17749_) + (_E1775217761_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1775017757_))) + (_E1775117775_ + (lambda () + (if (gx#stx-pair? _e1775017757_) + (let ((_e1775317765_ (gx#syntax-e _e1775017757_))) + (let ((_hd1775417768_ (##car _e1775317765_)) + (_tl1775517770_ (##cdr _e1775317765_))) + (let ((_body17773_ _tl1775517770_)) (if '#t - (cons '%#begin-foreign _body17058_) - (_E1703717046_))))) - (_E1703717046_))))) - (_E1703617060_)))) + (cons '%#begin-foreign _body17773_) + (_E1775217761_))))) + (_E1775217761_))))) + (_E1775117775_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_stx16980_) - (let* ((_e1698116994_ _stx16980_) - (_E1698316998_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1698116994_))) - (_E1698217030_ - (lambda () - (if (gx#stx-pair? _e1698116994_) - (let ((_e1698417002_ (gx#syntax-e _e1698116994_))) - (let ((_hd1698517005_ (##car _e1698417002_)) - (_tl1698617007_ (##cdr _e1698417002_))) - (if (gx#stx-pair? _tl1698617007_) - (let ((_e1698717010_ - (gx#syntax-e _tl1698617007_))) - (let ((_hd1698817013_ (##car _e1698717010_)) - (_tl1698917015_ (##cdr _e1698717010_))) - (let ((_ann17018_ _hd1698817013_)) - (if (gx#stx-pair? _tl1698917015_) - (let ((_e1699017020_ - (gx#syntax-e _tl1698917015_))) - (let ((_hd1699117023_ - (##car _e1699017020_)) - (_tl1699217025_ - (##cdr _e1699017020_))) - (let ((_expr17028_ _hd1699117023_)) - (if (gx#stx-null? _tl1699217025_) + (lambda (_stx17695_) + (let* ((_e1769617709_ _stx17695_) + (_E1769817713_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1769617709_))) + (_E1769717745_ + (lambda () + (if (gx#stx-pair? _e1769617709_) + (let ((_e1769917717_ (gx#syntax-e _e1769617709_))) + (let ((_hd1770017720_ (##car _e1769917717_)) + (_tl1770117722_ (##cdr _e1769917717_))) + (if (gx#stx-pair? _tl1770117722_) + (let ((_e1770217725_ + (gx#syntax-e _tl1770117722_))) + (let ((_hd1770317728_ (##car _e1770217725_)) + (_tl1770417730_ (##cdr _e1770217725_))) + (let ((_ann17733_ _hd1770317728_)) + (if (gx#stx-pair? _tl1770417730_) + (let ((_e1770517735_ + (gx#syntax-e _tl1770417730_))) + (let ((_hd1770617738_ + (##car _e1770517735_)) + (_tl1770717740_ + (##cdr _e1770517735_))) + (let ((_expr17743_ _hd1770617738_)) + (if (gx#stx-null? _tl1770717740_) (if '#t (gx#core-compile-top-syntax - _expr17028_) - (_E1698316998_)) - (_E1698316998_))))) - (_E1698316998_))))) - (_E1698316998_)))) - (_E1698316998_))))) - (_E1698217030_)))) + _expr17743_) + (_E1769817713_)) + (_E1769817713_))))) + (_E1769817713_))))) + (_E1769817713_)))) + (_E1769817713_))))) + (_E1769717745_)))) (define gx#core-compile-top-import% - (lambda (_stx16950_) - (let* ((_e1695116958_ _stx16950_) - (_E1695316962_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1695116958_))) - (_E1695216976_ - (lambda () - (if (gx#stx-pair? _e1695116958_) - (let ((_e1695416966_ (gx#syntax-e _e1695116958_))) - (let ((_hd1695516969_ (##car _e1695416966_)) - (_tl1695616971_ (##cdr _e1695416966_))) - (let ((_body16974_ _tl1695616971_)) + (lambda (_stx17665_) + (let* ((_e1766617673_ _stx17665_) + (_E1766817677_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1766617673_))) + (_E1766717691_ + (lambda () + (if (gx#stx-pair? _e1766617673_) + (let ((_e1766917681_ (gx#syntax-e _e1766617673_))) + (let ((_hd1767017684_ (##car _e1766917681_)) + (_tl1767117686_ (##cdr _e1766917681_))) + (let ((_body17689_ _tl1767117686_)) (if '#t - (cons '%#import _body16974_) - (_E1695316962_))))) - (_E1695316962_))))) - (_E1695216976_)))) + (cons '%#import _body17689_) + (_E1766817677_))))) + (_E1766817677_))))) + (_E1766717691_)))) (define gx#core-compile-top-module% - (lambda (_stx16907_) - (let* ((_e1690816918_ _stx16907_) - (_E1691016922_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1690816918_))) - (_E1690916946_ - (lambda () - (if (gx#stx-pair? _e1690816918_) - (let ((_e1691116926_ (gx#syntax-e _e1690816918_))) - (let ((_hd1691216929_ (##car _e1691116926_)) - (_tl1691316931_ (##cdr _e1691116926_))) - (if (gx#stx-pair? _tl1691316931_) - (let ((_e1691416934_ - (gx#syntax-e _tl1691316931_))) - (let ((_hd1691516937_ (##car _e1691416934_)) - (_tl1691616939_ (##cdr _e1691416934_))) - (let* ((_hd16942_ _hd1691516937_) - (_body16944_ _tl1691616939_)) + (lambda (_stx17622_) + (let* ((_e1762317633_ _stx17622_) + (_E1762517637_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1762317633_))) + (_E1762417661_ + (lambda () + (if (gx#stx-pair? _e1762317633_) + (let ((_e1762617641_ (gx#syntax-e _e1762317633_))) + (let ((_hd1762717644_ (##car _e1762617641_)) + (_tl1762817646_ (##cdr _e1762617641_))) + (if (gx#stx-pair? _tl1762817646_) + (let ((_e1762917649_ + (gx#syntax-e _tl1762817646_))) + (let ((_hd1763017652_ (##car _e1762917649_)) + (_tl1763117654_ (##cdr _e1762917649_))) + (let* ((_hd17657_ _hd1763017652_) + (_body17659_ _tl1763117654_)) (if '#t (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _hd16942_) + _hd17657_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _body16944_))) - (_E1691016922_))))) - (_E1691016922_)))) - (_E1691016922_))))) - (_E1690916946_)))) + _body17659_))) + (_E1762517637_))))) + (_E1762517637_)))) + (_E1762517637_))))) + (_E1762417661_)))) (define gx#core-compile-top-export% - (lambda (_stx16877_) - (let* ((_e1687816885_ _stx16877_) - (_E1688016889_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1687816885_))) - (_E1687916903_ - (lambda () - (if (gx#stx-pair? _e1687816885_) - (let ((_e1688116893_ (gx#syntax-e _e1687816885_))) - (let ((_hd1688216896_ (##car _e1688116893_)) - (_tl1688316898_ (##cdr _e1688116893_))) - (let ((_body16901_ _tl1688316898_)) + (lambda (_stx17592_) + (let* ((_e1759317600_ _stx17592_) + (_E1759517604_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1759317600_))) + (_E1759417618_ + (lambda () + (if (gx#stx-pair? _e1759317600_) + (let ((_e1759617608_ (gx#syntax-e _e1759317600_))) + (let ((_hd1759717611_ (##car _e1759617608_)) + (_tl1759817613_ (##cdr _e1759617608_))) + (let ((_body17616_ _tl1759817613_)) (if '#t - (cons '%#export _body16901_) - (_E1688016889_))))) - (_E1688016889_))))) - (_E1687916903_)))) + (cons '%#export _body17616_) + (_E1759517604_))))) + (_E1759517604_))))) + (_E1759417618_)))) (define gx#core-compile-top-provide% - (lambda (_stx16847_) - (let* ((_e1684816855_ _stx16847_) - (_E1685016859_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1684816855_))) - (_E1684916873_ - (lambda () - (if (gx#stx-pair? _e1684816855_) - (let ((_e1685116863_ (gx#syntax-e _e1684816855_))) - (let ((_hd1685216866_ (##car _e1685116863_)) - (_tl1685316868_ (##cdr _e1685116863_))) - (let ((_body16871_ _tl1685316868_)) + (lambda (_stx17562_) + (let* ((_e1756317570_ _stx17562_) + (_E1756517574_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1756317570_))) + (_E1756417588_ + (lambda () + (if (gx#stx-pair? _e1756317570_) + (let ((_e1756617578_ (gx#syntax-e _e1756317570_))) + (let ((_hd1756717581_ (##car _e1756617578_)) + (_tl1756817583_ (##cdr _e1756617578_))) + (let ((_body17586_ _tl1756817583_)) (if '#t - (cons '%#provide _body16871_) - (_E1685016859_))))) - (_E1685016859_))))) - (_E1684916873_)))) + (cons '%#provide _body17586_) + (_E1756517574_))))) + (_E1756517574_))))) + (_E1756417588_)))) (define gx#core-compile-top-extern% - (lambda (_stx16817_) - (let* ((_e1681816825_ _stx16817_) - (_E1682016829_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1681816825_))) - (_E1681916843_ - (lambda () - (if (gx#stx-pair? _e1681816825_) - (let ((_e1682116833_ (gx#syntax-e _e1681816825_))) - (let ((_hd1682216836_ (##car _e1682116833_)) - (_tl1682316838_ (##cdr _e1682116833_))) - (let ((_body16841_ _tl1682316838_)) + (lambda (_stx17532_) + (let* ((_e1753317540_ _stx17532_) + (_E1753517544_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1753317540_))) + (_E1753417558_ + (lambda () + (if (gx#stx-pair? _e1753317540_) + (let ((_e1753617548_ (gx#syntax-e _e1753317540_))) + (let ((_hd1753717551_ (##car _e1753617548_)) + (_tl1753817553_ (##cdr _e1753617548_))) + (let ((_body17556_ _tl1753817553_)) (if '#t - (cons '%#extern _body16841_) - (_E1682016829_))))) - (_E1682016829_))))) - (_E1681916843_)))) + (cons '%#extern _body17556_) + (_E1753517544_))))) + (_E1753517544_))))) + (_E1753417558_)))) (define gx#core-compile-top-define-values% - (lambda (_stx16763_) - (let* ((_e1676416777_ _stx16763_) - (_E1676616781_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1676416777_))) - (_E1676516813_ - (lambda () - (if (gx#stx-pair? _e1676416777_) - (let ((_e1676716785_ (gx#syntax-e _e1676416777_))) - (let ((_hd1676816788_ (##car _e1676716785_)) - (_tl1676916790_ (##cdr _e1676716785_))) - (if (gx#stx-pair? _tl1676916790_) - (let ((_e1677016793_ - (gx#syntax-e _tl1676916790_))) - (let ((_hd1677116796_ (##car _e1677016793_)) - (_tl1677216798_ (##cdr _e1677016793_))) - (let ((_hd16801_ _hd1677116796_)) - (if (gx#stx-pair? _tl1677216798_) - (let ((_e1677316803_ - (gx#syntax-e _tl1677216798_))) - (let ((_hd1677416806_ - (##car _e1677316803_)) - (_tl1677516808_ - (##cdr _e1677316803_))) - (let ((_expr16811_ _hd1677416806_)) - (if (gx#stx-null? _tl1677516808_) + (lambda (_stx17478_) + (let* ((_e1747917492_ _stx17478_) + (_E1748117496_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1747917492_))) + (_E1748017528_ + (lambda () + (if (gx#stx-pair? _e1747917492_) + (let ((_e1748217500_ (gx#syntax-e _e1747917492_))) + (let ((_hd1748317503_ (##car _e1748217500_)) + (_tl1748417505_ (##cdr _e1748217500_))) + (if (gx#stx-pair? _tl1748417505_) + (let ((_e1748517508_ + (gx#syntax-e _tl1748417505_))) + (let ((_hd1748617511_ (##car _e1748517508_)) + (_tl1748717513_ (##cdr _e1748517508_))) + (let ((_hd17516_ _hd1748617511_)) + (if (gx#stx-pair? _tl1748717513_) + (let ((_e1748817518_ + (gx#syntax-e _tl1748717513_))) + (let ((_hd1748917521_ + (##car _e1748817518_)) + (_tl1749017523_ + (##cdr _e1748817518_))) + (let ((_expr17526_ _hd1748917521_)) + (if (gx#stx-null? _tl1749017523_) (if '#t (cons '%#define-values (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-runtime-bind - _hd16801_) - (cons (gx#core-compile-top-syntax _expr16811_) '()))) - (_E1676616781_)) + _hd17516_) + (cons (gx#core-compile-top-syntax _expr17526_) '()))) + (_E1748117496_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1676616781_))))) - (_E1676616781_))))) - (_E1676616781_)))) - (_E1676616781_))))) - (_E1676516813_)))) + (_E1748117496_))))) + (_E1748117496_))))) + (_E1748117496_)))) + (_E1748117496_))))) + (_E1748017528_)))) (define gx#core-compile-top-define-syntax% - (lambda (_stx16708_) - (let* ((_e1670916722_ _stx16708_) - (_E1671116726_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1670916722_))) - (_E1671016759_ - (lambda () - (if (gx#stx-pair? _e1670916722_) - (let ((_e1671216730_ (gx#syntax-e _e1670916722_))) - (let ((_hd1671316733_ (##car _e1671216730_)) - (_tl1671416735_ (##cdr _e1671216730_))) - (if (gx#stx-pair? _tl1671416735_) - (let ((_e1671516738_ - (gx#syntax-e _tl1671416735_))) - (let ((_hd1671616741_ (##car _e1671516738_)) - (_tl1671716743_ (##cdr _e1671516738_))) - (let ((_hd16746_ _hd1671616741_)) - (if (gx#stx-pair? _tl1671716743_) - (let ((_e1671816748_ - (gx#syntax-e _tl1671716743_))) - (let ((_hd1671916751_ - (##car _e1671816748_)) - (_tl1672016753_ - (##cdr _e1671816748_))) - (let ((_expr16756_ _hd1671916751_)) - (if (gx#stx-null? _tl1672016753_) + (lambda (_stx17423_) + (let* ((_e1742417437_ _stx17423_) + (_E1742617441_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1742417437_))) + (_E1742517474_ + (lambda () + (if (gx#stx-pair? _e1742417437_) + (let ((_e1742717445_ (gx#syntax-e _e1742417437_))) + (let ((_hd1742817448_ (##car _e1742717445_)) + (_tl1742917450_ (##cdr _e1742717445_))) + (if (gx#stx-pair? _tl1742917450_) + (let ((_e1743017453_ + (gx#syntax-e _tl1742917450_))) + (let ((_hd1743117456_ (##car _e1743017453_)) + (_tl1743217458_ (##cdr _e1743017453_))) + (let ((_hd17461_ _hd1743117456_)) + (if (gx#stx-pair? _tl1743217458_) + (let ((_e1743317463_ + (gx#syntax-e _tl1743217458_))) + (let ((_hd1743417466_ + (##car _e1743317463_)) + (_tl1743517468_ + (##cdr _e1743317463_))) + (let ((_expr17471_ _hd1743417466_)) + (if (gx#stx-null? _tl1743517468_) (if '#t (cons '%#define-syntax - (cons _hd16746_ + (cons _hd17461_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (call-with-parameters (lambda () - (gx#core-compile-top-syntax _expr16756_)) + (gx#core-compile-top-syntax _expr17471_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)) '()))) - (_E1671116726_)) + (_E1742617441_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1671116726_))))) - (_E1671116726_))))) - (_E1671116726_)))) - (_E1671116726_))))) - (_E1671016759_)))) + (_E1742617441_))))) + (_E1742617441_))))) + (_E1742617441_)))) + (_E1742617441_))))) + (_E1742517474_)))) (define gx#core-compile-top-define-alias% - (lambda (_stx16678_) - (let* ((_e1667916686_ _stx16678_) - (_E1668116690_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1667916686_))) - (_E1668016704_ - (lambda () - (if (gx#stx-pair? _e1667916686_) - (let ((_e1668216694_ (gx#syntax-e _e1667916686_))) - (let ((_hd1668316697_ (##car _e1668216694_)) - (_tl1668416699_ (##cdr _e1668216694_))) - (let ((_body16702_ _tl1668416699_)) + (lambda (_stx17393_) + (let* ((_e1739417401_ _stx17393_) + (_E1739617405_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1739417401_))) + (_E1739517419_ + (lambda () + (if (gx#stx-pair? _e1739417401_) + (let ((_e1739717409_ (gx#syntax-e _e1739417401_))) + (let ((_hd1739817412_ (##car _e1739717409_)) + (_tl1739917414_ (##cdr _e1739717409_))) + (let ((_body17417_ _tl1739917414_)) (if '#t - (cons '%#define-alias _body16702_) - (_E1668116690_))))) - (_E1668116690_))))) - (_E1668016704_)))) + (cons '%#define-alias _body17417_) + (_E1739617405_))))) + (_E1739617405_))))) + (_E1739517419_)))) (define gx#core-compile-top-define-runtime% - (lambda (_stx16648_) - (let* ((_e1664916656_ _stx16648_) - (_E1665116660_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1664916656_))) - (_E1665016674_ - (lambda () - (if (gx#stx-pair? _e1664916656_) - (let ((_e1665216664_ (gx#syntax-e _e1664916656_))) - (let ((_hd1665316667_ (##car _e1665216664_)) - (_tl1665416669_ (##cdr _e1665216664_))) - (let ((_body16672_ _tl1665416669_)) + (lambda (_stx17363_) + (let* ((_e1736417371_ _stx17363_) + (_E1736617375_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1736417371_))) + (_E1736517389_ + (lambda () + (if (gx#stx-pair? _e1736417371_) + (let ((_e1736717379_ (gx#syntax-e _e1736417371_))) + (let ((_hd1736817382_ (##car _e1736717379_)) + (_tl1736917384_ (##cdr _e1736717379_))) + (let ((_body17387_ _tl1736917384_)) (if '#t - (cons '%#define-runtime _body16672_) - (_E1665116660_))))) - (_E1665116660_))))) - (_E1665016674_)))) + (cons '%#define-runtime _body17387_) + (_E1736617375_))))) + (_E1736617375_))))) + (_E1736517389_)))) (define gx#core-compile-top-declare% - (lambda (_stx16618_) - (let* ((_e1661916626_ _stx16618_) - (_E1662116630_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1661916626_))) - (_E1662016644_ - (lambda () - (if (gx#stx-pair? _e1661916626_) - (let ((_e1662216634_ (gx#syntax-e _e1661916626_))) - (let ((_hd1662316637_ (##car _e1662216634_)) - (_tl1662416639_ (##cdr _e1662216634_))) - (let ((_decls16642_ _tl1662416639_)) + (lambda (_stx17333_) + (let* ((_e1733417341_ _stx17333_) + (_E1733617345_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1733417341_))) + (_E1733517359_ + (lambda () + (if (gx#stx-pair? _e1733417341_) + (let ((_e1733717349_ (gx#syntax-e _e1733417341_))) + (let ((_hd1733817352_ (##car _e1733717349_)) + (_tl1733917354_ (##cdr _e1733717349_))) + (let ((_decls17357_ _tl1733917354_)) (if '#t - (cons '%#declare _decls16642_) - (_E1662116630_))))) - (_E1662116630_))))) - (_E1662016644_)))) + (cons '%#declare _decls17357_) + (_E1733617345_))))) + (_E1733617345_))))) + (_E1733517359_)))) (define gx#core-compile-top-lambda% - (lambda (_stx16588_) - (let* ((_e1658916596_ _stx16588_) - (_E1659116600_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1658916596_))) - (_E1659016614_ - (lambda () - (if (gx#stx-pair? _e1658916596_) - (let ((_e1659216604_ (gx#syntax-e _e1658916596_))) - (let ((_hd1659316607_ (##car _e1659216604_)) - (_tl1659416609_ (##cdr _e1659216604_))) - (let ((_clause16612_ _tl1659416609_)) + (lambda (_stx17303_) + (let* ((_e1730417311_ _stx17303_) + (_E1730617315_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1730417311_))) + (_E1730517329_ + (lambda () + (if (gx#stx-pair? _e1730417311_) + (let ((_e1730717319_ (gx#syntax-e _e1730417311_))) + (let ((_hd1730817322_ (##car _e1730717319_)) + (_tl1730917324_ (##cdr _e1730717319_))) + (let ((_clause17327_ _tl1730917324_)) (if '#t (cons '%#lambda (gx#core-compile-top-lambda-clause - _clause16612_)) - (_E1659116600_))))) - (_E1659116600_))))) - (_E1659016614_)))) + _clause17327_)) + (_E1730617315_))))) + (_E1730617315_))))) + (_E1730517329_)))) (define gx#core-compile-top-lambda-clause - (lambda (_stx16545_) - (let* ((_e1654616556_ _stx16545_) - (_E1654816560_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1654616556_))) - (_E1654716584_ - (lambda () - (if (gx#stx-pair? _e1654616556_) - (let ((_e1654916564_ (gx#syntax-e _e1654616556_))) - (let ((_hd1655016567_ (##car _e1654916564_)) - (_tl1655116569_ (##cdr _e1654916564_))) - (let ((_hd16572_ _hd1655016567_)) - (if (gx#stx-pair? _tl1655116569_) - (let ((_e1655216574_ - (gx#syntax-e _tl1655116569_))) - (let ((_hd1655316577_ (##car _e1655216574_)) - (_tl1655416579_ (##cdr _e1655216574_))) - (let ((_body16582_ _hd1655316577_)) - (if (gx#stx-null? _tl1655416579_) + (lambda (_stx17260_) + (let* ((_e1726117271_ _stx17260_) + (_E1726317275_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1726117271_))) + (_E1726217299_ + (lambda () + (if (gx#stx-pair? _e1726117271_) + (let ((_e1726417279_ (gx#syntax-e _e1726117271_))) + (let ((_hd1726517282_ (##car _e1726417279_)) + (_tl1726617284_ (##cdr _e1726417279_))) + (let ((_hd17287_ _hd1726517282_)) + (if (gx#stx-pair? _tl1726617284_) + (let ((_e1726717289_ + (gx#syntax-e _tl1726617284_))) + (let ((_hd1726817292_ (##car _e1726717289_)) + (_tl1726917294_ (##cdr _e1726717289_))) + (let ((_body17297_ _hd1726817292_)) + (if (gx#stx-null? _tl1726917294_) (if '#t (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _hd16572_) + _hd17287_) (cons (gx#core-compile-top-syntax - _body16582_) + _body17297_) '())) - (_E1654816560_)) - (_E1654816560_))))) - (_E1654816560_))))) - (_E1654816560_))))) - (_E1654716584_)))) + (_E1726317275_)) + (_E1726317275_))))) + (_E1726317275_))))) + (_E1726317275_))))) + (_E1726217299_)))) (define gx#core-compile-top-case-lambda% - (lambda (_stx16515_) - (let* ((_e1651616523_ _stx16515_) - (_E1651816527_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1651616523_))) - (_E1651716541_ - (lambda () - (if (gx#stx-pair? _e1651616523_) - (let ((_e1651916531_ (gx#syntax-e _e1651616523_))) - (let ((_hd1652016534_ (##car _e1651916531_)) - (_tl1652116536_ (##cdr _e1651916531_))) - (let ((_clauses16539_ _tl1652116536_)) + (lambda (_stx17230_) + (let* ((_e1723117238_ _stx17230_) + (_E1723317242_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1723117238_))) + (_E1723217256_ + (lambda () + (if (gx#stx-pair? _e1723117238_) + (let ((_e1723417246_ (gx#syntax-e _e1723117238_))) + (let ((_hd1723517249_ (##car _e1723417246_)) + (_tl1723617251_ (##cdr _e1723417246_))) + (let ((_clauses17254_ _tl1723617251_)) (if '#t (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _clauses16539_)) - (_E1651816527_))))) - (_E1651816527_))))) - (_E1651716541_)))) + _clauses17254_)) + (_E1723317242_))))) + (_E1723317242_))))) + (_E1723217256_)))) (define gx#core-compile-top-let-values%__% - (lambda (_stx16450_ _form16451_) - (let* ((_e1645216465_ _stx16450_) - (_E1645416469_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1645216465_))) - (_E1645316501_ - (lambda () - (if (gx#stx-pair? _e1645216465_) - (let ((_e1645516473_ (gx#syntax-e _e1645216465_))) - (let ((_hd1645616476_ (##car _e1645516473_)) - (_tl1645716478_ (##cdr _e1645516473_))) - (if (gx#stx-pair? _tl1645716478_) - (let ((_e1645816481_ - (gx#syntax-e _tl1645716478_))) - (let ((_hd1645916484_ (##car _e1645816481_)) - (_tl1646016486_ (##cdr _e1645816481_))) - (let ((_hd16489_ _hd1645916484_)) - (if (gx#stx-pair? _tl1646016486_) - (let ((_e1646116491_ - (gx#syntax-e _tl1646016486_))) - (let ((_hd1646216494_ - (##car _e1646116491_)) - (_tl1646316496_ - (##cdr _e1646116491_))) - (let ((_body16499_ _hd1646216494_)) - (if (gx#stx-null? _tl1646316496_) + (lambda (_stx17165_ _form17166_) + (let* ((_e1716717180_ _stx17165_) + (_E1716917184_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1716717180_))) + (_E1716817216_ + (lambda () + (if (gx#stx-pair? _e1716717180_) + (let ((_e1717017188_ (gx#syntax-e _e1716717180_))) + (let ((_hd1717117191_ (##car _e1717017188_)) + (_tl1717217193_ (##cdr _e1717017188_))) + (if (gx#stx-pair? _tl1717217193_) + (let ((_e1717317196_ + (gx#syntax-e _tl1717217193_))) + (let ((_hd1717417199_ (##car _e1717317196_)) + (_tl1717517201_ (##cdr _e1717317196_))) + (let ((_hd17204_ _hd1717417199_)) + (if (gx#stx-pair? _tl1717517201_) + (let ((_e1717617206_ + (gx#syntax-e _tl1717517201_))) + (let ((_hd1717717209_ + (##car _e1717617206_)) + (_tl1717817211_ + (##cdr _e1717617206_))) + (let ((_body17214_ _hd1717717209_)) + (if (gx#stx-null? _tl1717817211_) (if '#t - (cons _form16451_ + (cons _form17166_ (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-lambda-clause - _hd16489_) - (cons (gx#core-compile-top-syntax _body16499_) '()))) - (_E1645416469_)) + _hd17204_) + (cons (gx#core-compile-top-syntax _body17214_) '()))) + (_E1716917184_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1645416469_))))) - (_E1645416469_))))) - (_E1645416469_)))) - (_E1645416469_))))) - (_E1645316501_)))) + (_E1716917184_))))) + (_E1716917184_))))) + (_E1716917184_)))) + (_E1716917184_))))) + (_E1716817216_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_stx16508_) - (let ((_form16510_ '%#let-values)) - (gx#core-compile-top-let-values%__% _stx16508_ _form16510_)))) + (lambda (_stx17223_) + (let ((_form17225_ '%#let-values)) + (gx#core-compile-top-let-values%__% _stx17223_ _form17225_)))) (define gx#core-compile-top-let-values% - (lambda _g17323_ - (let ((_g17322_ (##length _g17323_))) - (cond ((##fx= _g17322_ 1) - (apply gx#core-compile-top-let-values%__0 _g17323_)) - ((##fx= _g17322_ 2) - (apply gx#core-compile-top-let-values%__% _g17323_)) + (lambda _g18038_ + (let ((_g18037_ (##length _g18038_))) + (cond ((##fx= _g18037_ 1) + (apply (lambda (_stx17223_) + (gx#core-compile-top-let-values%__0 _stx17223_)) + _g18038_)) + ((##fx= _g18037_ 2) + (apply (lambda (_stx17227_ _form17228_) + (gx#core-compile-top-let-values%__% + _stx17227_ + _form17228_)) + _g18038_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g17323_)))))) + _g18038_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_stx16447_) - (gx#core-compile-top-let-values%__% _stx16447_ '%#letrec-values))) + (lambda (_stx17162_) + (gx#core-compile-top-let-values%__% _stx17162_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_stx16445_) - (gx#core-compile-top-let-values%__% _stx16445_ '%#letrec*-values))) + (lambda (_stx17160_) + (gx#core-compile-top-let-values%__% _stx17160_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_stx16404_) - (let* ((_e1640516415_ _stx16404_) - (_E1640716419_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1640516415_))) - (_E1640616441_ - (lambda () - (if (gx#stx-pair? _e1640516415_) - (let ((_e1640816423_ (gx#syntax-e _e1640516415_))) - (let ((_hd1640916426_ (##car _e1640816423_)) - (_tl1641016428_ (##cdr _e1640816423_))) - (if (gx#stx-pair? _tl1641016428_) - (let ((_e1641116431_ - (gx#syntax-e _tl1641016428_))) - (let ((_hd1641216434_ (##car _e1641116431_)) - (_tl1641316436_ (##cdr _e1641116431_))) - (let ((_e16439_ _hd1641216434_)) - (if (gx#stx-null? _tl1641316436_) + (lambda (_stx17119_) + (let* ((_e1712017130_ _stx17119_) + (_E1712217134_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1712017130_))) + (_E1712117156_ + (lambda () + (if (gx#stx-pair? _e1712017130_) + (let ((_e1712317138_ (gx#syntax-e _e1712017130_))) + (let ((_hd1712417141_ (##car _e1712317138_)) + (_tl1712517143_ (##cdr _e1712317138_))) + (if (gx#stx-pair? _tl1712517143_) + (let ((_e1712617146_ + (gx#syntax-e _tl1712517143_))) + (let ((_hd1712717149_ (##car _e1712617146_)) + (_tl1712817151_ (##cdr _e1712617146_))) + (let ((_e17154_ _hd1712717149_)) + (if (gx#stx-null? _tl1712817151_) (if '#t (cons '%#quote (cons (gx#syntax->datum - _e16439_) + _e17154_) '())) - (_E1640716419_)) - (_E1640716419_))))) - (_E1640716419_)))) - (_E1640716419_))))) - (_E1640616441_)))) + (_E1712217134_)) + (_E1712217134_))))) + (_E1712217134_)))) + (_E1712217134_))))) + (_E1712117156_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_stx16363_) - (let* ((_e1636416374_ _stx16363_) - (_E1636616378_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1636416374_))) - (_E1636516400_ - (lambda () - (if (gx#stx-pair? _e1636416374_) - (let ((_e1636716382_ (gx#syntax-e _e1636416374_))) - (let ((_hd1636816385_ (##car _e1636716382_)) - (_tl1636916387_ (##cdr _e1636716382_))) - (if (gx#stx-pair? _tl1636916387_) - (let ((_e1637016390_ - (gx#syntax-e _tl1636916387_))) - (let ((_hd1637116393_ (##car _e1637016390_)) - (_tl1637216395_ (##cdr _e1637016390_))) - (let ((_e16398_ _hd1637116393_)) - (if (gx#stx-null? _tl1637216395_) + (lambda (_stx17078_) + (let* ((_e1707917089_ _stx17078_) + (_E1708117093_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1707917089_))) + (_E1708017115_ + (lambda () + (if (gx#stx-pair? _e1707917089_) + (let ((_e1708217097_ (gx#syntax-e _e1707917089_))) + (let ((_hd1708317100_ (##car _e1708217097_)) + (_tl1708417102_ (##cdr _e1708217097_))) + (if (gx#stx-pair? _tl1708417102_) + (let ((_e1708517105_ + (gx#syntax-e _tl1708417102_))) + (let ((_hd1708617108_ (##car _e1708517105_)) + (_tl1708717110_ (##cdr _e1708517105_))) + (let ((_e17113_ _hd1708617108_)) + (if (gx#stx-null? _tl1708717110_) (if '#t (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _e16398_) + _e17113_) '())) - (_E1636616378_)) - (_E1636616378_))))) - (_E1636616378_)))) - (_E1636616378_))))) - (_E1636516400_)))) + (_E1708117093_)) + (_E1708117093_))))) + (_E1708117093_)))) + (_E1708117093_))))) + (_E1708017115_)))) (define gx#core-compile-top-call% - (lambda (_stx16320_) - (let* ((_e1632116331_ _stx16320_) - (_E1632316335_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1632116331_))) - (_E1632216359_ - (lambda () - (if (gx#stx-pair? _e1632116331_) - (let ((_e1632416339_ (gx#syntax-e _e1632116331_))) - (let ((_hd1632516342_ (##car _e1632416339_)) - (_tl1632616344_ (##cdr _e1632416339_))) - (if (gx#stx-pair? _tl1632616344_) - (let ((_e1632716347_ - (gx#syntax-e _tl1632616344_))) - (let ((_hd1632816350_ (##car _e1632716347_)) - (_tl1632916352_ (##cdr _e1632716347_))) - (let* ((_rator16355_ _hd1632816350_) - (_args16357_ _tl1632916352_)) + (lambda (_stx17035_) + (let* ((_e1703617046_ _stx17035_) + (_E1703817050_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1703617046_))) + (_E1703717074_ + (lambda () + (if (gx#stx-pair? _e1703617046_) + (let ((_e1703917054_ (gx#syntax-e _e1703617046_))) + (let ((_hd1704017057_ (##car _e1703917054_)) + (_tl1704117059_ (##cdr _e1703917054_))) + (if (gx#stx-pair? _tl1704117059_) + (let ((_e1704217062_ + (gx#syntax-e _tl1704117059_))) + (let ((_hd1704317065_ (##car _e1704217062_)) + (_tl1704417067_ (##cdr _e1704217062_))) + (let* ((_rator17070_ _hd1704317065_) + (_args17072_ _tl1704417067_)) (if '#t (cons '%#call (cons (gx#core-compile-top-syntax - _rator16355_) + _rator17070_) (gx#stx-map1 gx#core-compile-top-syntax - _args16357_))) - (_E1632316335_))))) - (_E1632316335_)))) - (_E1632316335_))))) - (_E1632216359_)))) + _args17072_))) + (_E1703817050_))))) + (_E1703817050_)))) + (_E1703817050_))))) + (_E1703717074_)))) (define gx#core-compile-top-if% - (lambda (_stx16253_) - (let* ((_e1625416270_ _stx16253_) - (_E1625616274_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1625416270_))) - (_E1625516316_ - (lambda () - (if (gx#stx-pair? _e1625416270_) - (let ((_e1625716278_ (gx#syntax-e _e1625416270_))) - (let ((_hd1625816281_ (##car _e1625716278_)) - (_tl1625916283_ (##cdr _e1625716278_))) - (if (gx#stx-pair? _tl1625916283_) - (let ((_e1626016286_ - (gx#syntax-e _tl1625916283_))) - (let ((_hd1626116289_ (##car _e1626016286_)) - (_tl1626216291_ (##cdr _e1626016286_))) - (let ((_test16294_ _hd1626116289_)) - (if (gx#stx-pair? _tl1626216291_) - (let ((_e1626316296_ - (gx#syntax-e _tl1626216291_))) - (let ((_hd1626416299_ - (##car _e1626316296_)) - (_tl1626516301_ - (##cdr _e1626316296_))) - (let ((_K16304_ _hd1626416299_)) - (if (gx#stx-pair? _tl1626516301_) - (let ((_e1626616306_ + (lambda (_stx16968_) + (let* ((_e1696916985_ _stx16968_) + (_E1697116989_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1696916985_))) + (_E1697017031_ + (lambda () + (if (gx#stx-pair? _e1696916985_) + (let ((_e1697216993_ (gx#syntax-e _e1696916985_))) + (let ((_hd1697316996_ (##car _e1697216993_)) + (_tl1697416998_ (##cdr _e1697216993_))) + (if (gx#stx-pair? _tl1697416998_) + (let ((_e1697517001_ + (gx#syntax-e _tl1697416998_))) + (let ((_hd1697617004_ (##car _e1697517001_)) + (_tl1697717006_ (##cdr _e1697517001_))) + (let ((_test17009_ _hd1697617004_)) + (if (gx#stx-pair? _tl1697717006_) + (let ((_e1697817011_ + (gx#syntax-e _tl1697717006_))) + (let ((_hd1697917014_ + (##car _e1697817011_)) + (_tl1698017016_ + (##cdr _e1697817011_))) + (let ((_K17019_ _hd1697917014_)) + (if (gx#stx-pair? _tl1698017016_) + (let ((_e1698117021_ (gx#syntax-e - _tl1626516301_))) - (let ((_hd1626716309_ - (##car _e1626616306_)) - (_tl1626816311_ - (##cdr _e1626616306_))) - (let ((_E16314_ - _hd1626716309_)) + _tl1698017016_))) + (let ((_hd1698217024_ + (##car _e1698117021_)) + (_tl1698317026_ + (##cdr _e1698117021_))) + (let ((_E17029_ + _hd1698217024_)) (if (gx#stx-null? - _tl1626816311_) + _tl1698317026_) (if '#t (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _test16294_) - (cons (gx#core-compile-top-syntax _K16304_) + (cons (gx#core-compile-top-syntax _test17009_) + (cons (gx#core-compile-top-syntax _K17019_) (cons (gx#core-compile-top-syntax - _E16314_) + _E17029_) '())))) - (_E1625616274_)) - (_E1625616274_))))) + (_E1697116989_)) + (_E1697116989_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1625616274_))))) - (_E1625616274_))))) - (_E1625616274_)))) - (_E1625616274_))))) - (_E1625516316_)))) + (_E1697116989_))))) + (_E1697116989_))))) + (_E1697116989_)))) + (_E1697116989_))))) + (_E1697017031_)))) (define gx#core-compile-top-ref% - (lambda (_stx16212_) - (let* ((_e1621316223_ _stx16212_) - (_E1621516227_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1621316223_))) - (_E1621416249_ - (lambda () - (if (gx#stx-pair? _e1621316223_) - (let ((_e1621616231_ (gx#syntax-e _e1621316223_))) - (let ((_hd1621716234_ (##car _e1621616231_)) - (_tl1621816236_ (##cdr _e1621616231_))) - (if (gx#stx-pair? _tl1621816236_) - (let ((_e1621916239_ - (gx#syntax-e _tl1621816236_))) - (let ((_hd1622016242_ (##car _e1621916239_)) - (_tl1622116244_ (##cdr _e1621916239_))) - (let ((_id16247_ _hd1622016242_)) - (if (gx#stx-null? _tl1622116244_) - (if (gx#identifier? _id16247_) + (lambda (_stx16927_) + (let* ((_e1692816938_ _stx16927_) + (_E1693016942_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1692816938_))) + (_E1692916964_ + (lambda () + (if (gx#stx-pair? _e1692816938_) + (let ((_e1693116946_ (gx#syntax-e _e1692816938_))) + (let ((_hd1693216949_ (##car _e1693116946_)) + (_tl1693316951_ (##cdr _e1693116946_))) + (if (gx#stx-pair? _tl1693316951_) + (let ((_e1693416954_ + (gx#syntax-e _tl1693316951_))) + (let ((_hd1693516957_ (##car _e1693416954_)) + (_tl1693616959_ (##cdr _e1693416954_))) + (let ((_id16962_ _hd1693516957_)) + (if (gx#stx-null? _tl1693616959_) + (if (gx#identifier? _id16962_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _id16247_) + _id16962_) '())) - (_E1621516227_)) - (_E1621516227_))))) - (_E1621516227_)))) - (_E1621516227_))))) - (_E1621416249_)))) + (_E1693016942_)) + (_E1693016942_))))) + (_E1693016942_)))) + (_E1693016942_))))) + (_E1692916964_)))) (define gx#core-compile-top-setq% - (lambda (_stx16158_) - (let* ((_e1615916172_ _stx16158_) - (_E1616116176_ - (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1615916172_))) - (_E1616016208_ - (lambda () - (if (gx#stx-pair? _e1615916172_) - (let ((_e1616216180_ (gx#syntax-e _e1615916172_))) - (let ((_hd1616316183_ (##car _e1616216180_)) - (_tl1616416185_ (##cdr _e1616216180_))) - (if (gx#stx-pair? _tl1616416185_) - (let ((_e1616516188_ - (gx#syntax-e _tl1616416185_))) - (let ((_hd1616616191_ (##car _e1616516188_)) - (_tl1616716193_ (##cdr _e1616516188_))) - (let ((_id16196_ _hd1616616191_)) - (if (gx#stx-pair? _tl1616716193_) - (let ((_e1616816198_ - (gx#syntax-e _tl1616716193_))) - (let ((_hd1616916201_ - (##car _e1616816198_)) - (_tl1617016203_ - (##cdr _e1616816198_))) - (let ((_expr16206_ _hd1616916201_)) - (if (gx#stx-null? _tl1617016203_) + (lambda (_stx16873_) + (let* ((_e1687416887_ _stx16873_) + (_E1687616891_ + (lambda () + (gx#raise-syntax-error '#f '"Bad syntax" _e1687416887_))) + (_E1687516923_ + (lambda () + (if (gx#stx-pair? _e1687416887_) + (let ((_e1687716895_ (gx#syntax-e _e1687416887_))) + (let ((_hd1687816898_ (##car _e1687716895_)) + (_tl1687916900_ (##cdr _e1687716895_))) + (if (gx#stx-pair? _tl1687916900_) + (let ((_e1688016903_ + (gx#syntax-e _tl1687916900_))) + (let ((_hd1688116906_ (##car _e1688016903_)) + (_tl1688216908_ (##cdr _e1688016903_))) + (let ((_id16911_ _hd1688116906_)) + (if (gx#stx-pair? _tl1688216908_) + (let ((_e1688316913_ + (gx#syntax-e _tl1688216908_))) + (let ((_hd1688416916_ + (##car _e1688316913_)) + (_tl1688516918_ + (##cdr _e1688316913_))) + (let ((_expr16921_ _hd1688416916_)) + (if (gx#stx-null? _tl1688516918_) (if (gx#identifier? - _id16196_) + _id16911_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id16196_) - (cons (gx#core-compile-top-syntax _expr16206_) '()))) - (_E1616116176_)) + _id16911_) + (cons (gx#core-compile-top-syntax _expr16921_) '()))) + (_E1687616891_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1616116176_))))) - (_E1616116176_))))) - (_E1616116176_)))) - (_E1616116176_))))) - (_E1616016208_)))) + (_E1687616891_))))) + (_E1687616891_))))) + (_E1687616891_)))) + (_E1687616891_))))) + (_E1687516923_)))) (define gx#core-compile-top-runtime-ref - (lambda (_id16153_) - (let ((_$e16155_ (gx#resolve-identifier__0 _id16153_))) - (if _$e16155_ - (##unchecked-structure-ref _$e16155_ '1 gx#binding::t '#f) - _id16153_)))) + (lambda (_id16868_) + (let ((_$e16870_ (gx#resolve-identifier__0 _id16868_))) + (if _$e16870_ + (##unchecked-structure-ref _$e16870_ '1 gx#binding::t '#f) + _id16868_)))) (define gx#core-compile-top-runtime-bind - (lambda (_hd16151_) - (if (gx#identifier? _hd16151_) - (gx#core-compile-top-runtime-ref _hd16151_) + (lambda (_hd16866_) + (if (gx#identifier? _hd16866_) + (gx#core-compile-top-runtime-ref _hd16866_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core.ssxi.ss b/src/bootstrap/gerbil/expander/core.ssxi.ss index bb681b691..d82cc12ec 100644 --- a/src/bootstrap/gerbil/expander/core.ssxi.ss +++ b/src/bootstrap/gerbil/expander/core.ssxi.ss @@ -164,7 +164,6 @@ package: gerbil/expander (declare-type gx#phi-context:::init! (@case-lambda (2 gx#phi-context:::init!__0) (3 gx#phi-context:::init!__%))) - (declare-method gx#phi-context::t :init! gx#phi-context:::init! #f) (declare-type gx#local-context:::init!__% (@lambda 2 #f)) (declare-type gx#local-context:::init!__0 (@lambda 1 #f)) (declare-type @@ -172,7 +171,6 @@ package: gerbil/expander (@case-lambda (1 gx#local-context:::init!__0) (2 gx#local-context:::init!__%))) - (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 ((transparent: . #t)))) @@ -519,23 +517,8 @@ package: gerbil/expander gx#core-apply-expander (@case-lambda (2 gx#core-apply-expander__0) (3 gx#core-apply-expander__%))) (declare-type gx#expander::apply-macro-expander (@lambda 2 #f)) - (declare-method - gx#expander::t - apply-macro-expander - gx#expander::apply-macro-expander - #f) (declare-type gx#macro-expander::apply-macro-expander (@lambda 2 #f)) - (declare-method - gx#macro-expander::t - apply-macro-expander - gx#macro-expander::apply-macro-expander - #f) (declare-type gx#core-expander::apply-macro-expander (@lambda 2 #f)) - (declare-method - gx#core-expander::t - apply-macro-expander - gx#core-expander::apply-macro-expander - #f) (declare-type gx#top-special-form::apply-macro-expander__% (@lambda 3 #f)) (declare-type gx#top-special-form::apply-macro-expander__0 (@lambda 2 #f)) (declare-type @@ -543,23 +526,8 @@ package: gerbil/expander (@case-lambda (2 gx#top-special-form::apply-macro-expander__0) (3 gx#top-special-form::apply-macro-expander__%))) - (declare-method - gx#top-special-form::t - apply-macro-expander - gx#top-special-form::apply-macro-expander - #f) (declare-type gx#module-special-form::apply-macro-expander (@lambda 2 #f)) - (declare-method - gx#module-special-form::t - apply-macro-expander - gx#module-special-form::apply-macro-expander - #f) (declare-type gx#rename-macro-expander::apply-macro-expander (@lambda 2 #f)) - (declare-method - gx#rename-macro-expander::t - apply-macro-expander - gx#rename-macro-expander::apply-macro-expander - #f) (declare-type gx#core-apply-user-expander__% (@lambda 3 #f)) (declare-type gx#core-apply-user-expander__0 (@lambda 2 #f)) (declare-type @@ -573,11 +541,6 @@ package: gerbil/expander (@case-lambda (2 gx#core-apply-user-expander__0) (3 gx#core-apply-user-expander__%))) - (declare-method - gx#user-expander::t - apply-macro-expander - gx#user-expander::apply-macro-expander - #f) (declare-type gx#resolve-identifier__% (@lambda 3 #f)) (declare-type gx#resolve-identifier__0 (@lambda 1 #f)) (declare-type gx#resolve-identifier__1 (@lambda 2 #f)) diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index 0657698be..e2672d3c0 100644 --- a/src/bootstrap/gerbil/expander/core__0.scm +++ b/src/bootstrap/gerbil/expander/core__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/core::timestamp 1695199285) + (define gerbil/expander/core::timestamp 1695292397) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -30,8 +30,8 @@ (define gx#expander-context? (make-struct-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _$args9318_ - (apply make-struct-instance gx#expander-context::t _$args9318_))) + (lambda _$args9509_ + (apply make-struct-instance gx#expander-context::t _$args9509_))) (define gx#expander-context-id (make-struct-field-accessor gx#expander-context::t '0)) (define gx#expander-context-table @@ -59,8 +59,8 @@ '())) (define gx#root-context? (make-struct-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _$args9315_ - (apply make-struct-instance gx#root-context::t _$args9315_))) + (lambda _$args9506_ + (apply make-struct-instance gx#root-context::t _$args9506_))) (define gx#phi-context::t (make-struct-type 'gx#context-phi::t @@ -72,8 +72,8 @@ '(super up down))) (define gx#phi-context? (make-struct-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _$args9312_ - (apply make-struct-instance gx#phi-context::t _$args9312_))) + (lambda _$args9503_ + (apply make-struct-instance gx#phi-context::t _$args9503_))) (define gx#phi-context-super (make-struct-field-accessor gx#phi-context::t '0)) (define gx#phi-context-up @@ -109,8 +109,8 @@ '())) (define gx#top-context? (make-struct-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _$args9309_ - (apply make-struct-instance gx#top-context::t _$args9309_))) + (lambda _$args9500_ + (apply make-struct-instance gx#top-context::t _$args9500_))) (define gx#module-context::t (make-struct-type 'gx#module-context::t @@ -122,8 +122,8 @@ '(ns path import export e code))) (define gx#module-context? (make-struct-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _$args9306_ - (apply make-struct-instance gx#module-context::t _$args9306_))) + (lambda _$args9497_ + (apply make-struct-instance gx#module-context::t _$args9497_))) (define gx#module-context-ns (make-struct-field-accessor gx#module-context::t '0)) (define gx#module-context-path @@ -183,8 +183,8 @@ '(path import e))) (define gx#prelude-context? (make-struct-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _$args9303_ - (apply make-struct-instance gx#prelude-context::t _$args9303_))) + (lambda _$args9494_ + (apply make-struct-instance gx#prelude-context::t _$args9494_))) (define gx#prelude-context-path (make-struct-field-accessor gx#prelude-context::t '0)) (define gx#prelude-context-import @@ -208,53 +208,68 @@ '())) (define gx#local-context? (make-struct-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _$args9300_ - (apply make-struct-instance gx#local-context::t _$args9300_))) + (lambda _$args9491_ + (apply make-struct-instance gx#local-context::t _$args9491_))) (define gx#phi-context:::init!__% - (lambda (_self9284_ _id9285_ _super9286_) - (if (##fx< '3 (##vector-length _self9284_)) + (lambda (_self9475_ _id9476_ _super9477_) + (if (##fx< '3 (##vector-length _self9475_)) (begin - (##vector-set! _self9284_ '1 _id9285_) - (##vector-set! _self9284_ '2 (make-table 'test: eq?)) - (##vector-set! _self9284_ '3 _super9286_)) + (##vector-set! _self9475_ '1 _id9476_) + (##vector-set! _self9475_ '2 (make-table 'test: eq?)) + (##vector-set! _self9475_ '3 _super9477_)) (error '"struct-instance-init!: too many arguments for struct" - _self9284_)))) + _self9475_)))) (define gx#phi-context:::init!__0 - (lambda (_self9291_ _id9292_) - (let ((_super9294_ (gx#current-expander-context))) - (gx#phi-context:::init!__% _self9291_ _id9292_ _super9294_)))) + (lambda (_self9482_ _id9483_) + (let ((_super9485_ (gx#current-expander-context))) + (gx#phi-context:::init!__% _self9482_ _id9483_ _super9485_)))) (define gx#phi-context:::init! - (lambda _g9331_ - (let ((_g9330_ (##length _g9331_))) - (cond ((##fx= _g9330_ 2) (apply gx#phi-context:::init!__0 _g9331_)) - ((##fx= _g9330_ 3) (apply gx#phi-context:::init!__% _g9331_)) + (lambda _g9522_ + (let ((_g9521_ (##length _g9522_))) + (cond ((##fx= _g9521_ 2) + (apply (lambda (_self9482_ _id9483_) + (gx#phi-context:::init!__0 _self9482_ _id9483_)) + _g9522_)) + ((##fx= _g9521_ 3) + (apply (lambda (_self9487_ _id9488_ _super9489_) + (gx#phi-context:::init!__% + _self9487_ + _id9488_ + _super9489_)) + _g9522_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g9331_)))))) + _g9522_)))))) (bind-method! gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_self9148_ _super9149_) - (if (##fx< '3 (##vector-length _self9148_)) + (lambda (_self9339_ _super9340_) + (if (##fx< '3 (##vector-length _self9339_)) (begin - (##vector-set! _self9148_ '1 (gensym 'L)) - (##vector-set! _self9148_ '2 (make-table 'test: eq?)) - (##vector-set! _self9148_ '3 _super9149_)) + (##vector-set! _self9339_ '1 (gensym 'L)) + (##vector-set! _self9339_ '2 (make-table 'test: eq?)) + (##vector-set! _self9339_ '3 _super9340_)) (error '"struct-instance-init!: too many arguments for struct" - _self9148_)))) + _self9339_)))) (define gx#local-context:::init!__0 - (lambda (_self9154_) - (let ((_super9156_ (gx#current-expander-context))) - (gx#local-context:::init!__% _self9154_ _super9156_)))) + (lambda (_self9345_) + (let ((_super9347_ (gx#current-expander-context))) + (gx#local-context:::init!__% _self9345_ _super9347_)))) (define gx#local-context:::init! - (lambda _g9333_ - (let ((_g9332_ (##length _g9333_))) - (cond ((##fx= _g9332_ 1) (apply gx#local-context:::init!__0 _g9333_)) - ((##fx= _g9332_ 2) (apply gx#local-context:::init!__% _g9333_)) + (lambda _g9524_ + (let ((_g9523_ (##length _g9524_))) + (cond ((##fx= _g9523_ 1) + (apply (lambda (_self9345_) + (gx#local-context:::init!__0 _self9345_)) + _g9524_)) + ((##fx= _g9523_ 2) + (apply (lambda (_self9349_ _super9350_) + (gx#local-context:::init!__% _self9349_ _super9350_)) + _g9524_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g9333_)))))) + _g9524_)))))) (bind-method! gx#local-context::t ':init! gx#local-context:::init! '#f) (define gx#binding::t (make-struct-type @@ -267,8 +282,8 @@ '(id key phi))) (define gx#binding? (make-struct-predicate gx#binding::t)) (define gx#make-binding - (lambda _$args9022_ - (apply make-struct-instance gx#binding::t _$args9022_))) + (lambda _$args9213_ + (apply make-struct-instance gx#binding::t _$args9213_))) (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)) @@ -298,8 +313,8 @@ '())) (define gx#runtime-binding? (make-struct-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _$args9019_ - (apply make-struct-instance gx#runtime-binding::t _$args9019_))) + (lambda _$args9210_ + (apply make-struct-instance gx#runtime-binding::t _$args9210_))) (define gx#local-binding::t (make-struct-type 'gx#local-binding::t @@ -311,8 +326,8 @@ '())) (define gx#local-binding? (make-struct-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _$args9016_ - (apply make-struct-instance gx#local-binding::t _$args9016_))) + (lambda _$args9207_ + (apply make-struct-instance gx#local-binding::t _$args9207_))) (define gx#top-binding::t (make-struct-type 'gx#top-binding::t @@ -324,8 +339,8 @@ '())) (define gx#top-binding? (make-struct-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _$args9013_ - (apply make-struct-instance gx#top-binding::t _$args9013_))) + (lambda _$args9204_ + (apply make-struct-instance gx#top-binding::t _$args9204_))) (define gx#module-binding::t (make-struct-type 'gx#module-binding::t @@ -337,8 +352,8 @@ '(context))) (define gx#module-binding? (make-struct-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _$args9010_ - (apply make-struct-instance gx#module-binding::t _$args9010_))) + (lambda _$args9201_ + (apply make-struct-instance gx#module-binding::t _$args9201_))) (define gx#module-binding-context (make-struct-field-accessor gx#module-binding::t '0)) (define gx#module-binding-context-set! @@ -354,8 +369,8 @@ '())) (define gx#extern-binding? (make-struct-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _$args9007_ - (apply make-struct-instance gx#extern-binding::t _$args9007_))) + (lambda _$args9198_ + (apply make-struct-instance gx#extern-binding::t _$args9198_))) (define gx#syntax-binding::t (make-struct-type 'gx#syntax-binding::t @@ -367,8 +382,8 @@ '(e))) (define gx#syntax-binding? (make-struct-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _$args9004_ - (apply make-struct-instance gx#syntax-binding::t _$args9004_))) + (lambda _$args9195_ + (apply make-struct-instance gx#syntax-binding::t _$args9195_))) (define gx#syntax-binding-e (make-struct-field-accessor gx#syntax-binding::t '0)) (define gx#syntax-binding-e-set! @@ -388,8 +403,8 @@ '(e context weak?))) (define gx#import-binding? (make-struct-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _$args9001_ - (apply make-struct-instance gx#import-binding::t _$args9001_))) + (lambda _$args9192_ + (apply make-struct-instance gx#import-binding::t _$args9192_))) (define gx#import-binding-e (make-struct-field-accessor gx#import-binding::t '0)) (define gx#import-binding-context @@ -425,8 +440,8 @@ '(e))) (define gx#alias-binding? (make-struct-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _$args8998_ - (apply make-struct-instance gx#alias-binding::t _$args8998_))) + (lambda _$args9189_ + (apply make-struct-instance gx#alias-binding::t _$args9189_))) (define gx#alias-binding-e (make-struct-field-accessor gx#alias-binding::t '0)) (define gx#alias-binding-e-set! @@ -439,8 +454,8 @@ (make-struct-type 'gx#expander::t '#f '1 'expander '() '#f '(e))) (define gx#expander? (make-struct-predicate gx#expander::t)) (define gx#make-expander - (lambda _$args8995_ - (apply make-struct-instance gx#expander::t _$args8995_))) + (lambda _$args9186_ + (apply make-struct-instance gx#expander::t _$args9186_))) (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 @@ -454,8 +469,8 @@ '(id compile-top))) (define gx#core-expander? (make-struct-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _$args8992_ - (apply make-struct-instance gx#core-expander::t _$args8992_))) + (lambda _$args9183_ + (apply make-struct-instance gx#core-expander::t _$args9183_))) (define gx#core-expander-id (make-struct-field-accessor gx#core-expander::t '0)) (define gx#core-expander-compile-top @@ -475,8 +490,8 @@ '())) (define gx#expression-form? (make-struct-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _$args8989_ - (apply make-struct-instance gx#expression-form::t _$args8989_))) + (lambda _$args9180_ + (apply make-struct-instance gx#expression-form::t _$args9180_))) (define gx#special-form::t (make-struct-type 'gx#special-form::t @@ -488,8 +503,8 @@ '())) (define gx#special-form? (make-struct-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _$args8986_ - (apply make-struct-instance gx#special-form::t _$args8986_))) + (lambda _$args9177_ + (apply make-struct-instance gx#special-form::t _$args9177_))) (define gx#definition-form::t (make-struct-type 'gx#definition-form::t @@ -501,8 +516,8 @@ '())) (define gx#definition-form? (make-struct-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _$args8983_ - (apply make-struct-instance gx#definition-form::t _$args8983_))) + (lambda _$args9174_ + (apply make-struct-instance gx#definition-form::t _$args9174_))) (define gx#top-special-form::t (make-struct-type 'gx#top-special-form::t @@ -515,8 +530,8 @@ (define gx#top-special-form? (make-struct-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _$args8980_ - (apply make-struct-instance gx#top-special-form::t _$args8980_))) + (lambda _$args9171_ + (apply make-struct-instance gx#top-special-form::t _$args9171_))) (define gx#module-special-form::t (make-struct-type 'gx#module-special-form::t @@ -529,8 +544,8 @@ (define gx#module-special-form? (make-struct-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _$args8977_ - (apply make-struct-instance gx#module-special-form::t _$args8977_))) + (lambda _$args9168_ + (apply make-struct-instance gx#module-special-form::t _$args9168_))) (define gx#feature-expander::t (make-struct-type 'gx#feature-expander::t @@ -543,8 +558,8 @@ (define gx#feature-expander? (make-struct-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _$args8974_ - (apply make-struct-instance gx#feature-expander::t _$args8974_))) + (lambda _$args9165_ + (apply make-struct-instance gx#feature-expander::t _$args9165_))) (define gx#private-feature-expander::t (make-struct-type 'gx#private-feature-expander::t @@ -557,10 +572,10 @@ (define gx#private-feature-expander? (make-struct-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _$args8971_ + (lambda _$args9162_ (apply make-struct-instance gx#private-feature-expander::t - _$args8971_))) + _$args9162_))) (define gx#reserved-expander::t (make-struct-type 'gx#reserved-expander::t @@ -573,8 +588,8 @@ (define gx#reserved-expander? (make-struct-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _$args8968_ - (apply make-struct-instance gx#reserved-expander::t _$args8968_))) + (lambda _$args9159_ + (apply make-struct-instance gx#reserved-expander::t _$args9159_))) (define gx#macro-expander::t (make-struct-type 'gx#core-macro::t @@ -586,8 +601,8 @@ '())) (define gx#macro-expander? (make-struct-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _$args8965_ - (apply make-struct-instance gx#macro-expander::t _$args8965_))) + (lambda _$args9156_ + (apply make-struct-instance gx#macro-expander::t _$args9156_))) (define gx#rename-macro-expander::t (make-struct-type 'gx#rename-macro-expander::t @@ -600,8 +615,8 @@ (define gx#rename-macro-expander? (make-struct-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _$args8962_ - (apply make-struct-instance gx#rename-macro-expander::t _$args8962_))) + (lambda _$args9153_ + (apply make-struct-instance gx#rename-macro-expander::t _$args9153_))) (define gx#user-expander::t (make-struct-type 'gx#macro-expander::t @@ -613,8 +628,8 @@ '(context phi))) (define gx#user-expander? (make-struct-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _$args8959_ - (apply make-struct-instance gx#user-expander::t _$args8959_))) + (lambda _$args9150_ + (apply make-struct-instance gx#user-expander::t _$args9150_))) (define gx#user-expander-context (make-struct-field-accessor gx#user-expander::t '0)) (define gx#user-expander-phi @@ -634,8 +649,8 @@ '(subst context phi trace))) (define gx#expander-mark? (make-struct-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _$args8956_ - (apply make-struct-instance gx#expander-mark::t _$args8956_))) + (lambda _$args9147_ + (apply make-struct-instance gx#expander-mark::t _$args9147_))) (define gx#expander-mark-subst (make-struct-field-accessor gx#expander-mark::t '0)) (define gx#expander-mark-context @@ -669,864 +684,926 @@ (define gx#&expander-mark-trace-set! (make-struct-field-unchecked-mutator gx#expander-mark::t '3)) (define gx#raise-syntax-error - (lambda (_where8951_ _message8952_ _stx8953_ . _details8954_) + (lambda (_where9142_ _message9143_ _stx9144_ . _details9145_) (raise (make-syntax-error - _message8952_ - (cons _stx8953_ _details8954_) - _where8951_ + _message9143_ + (cons _stx9144_ _details9145_) + _where9142_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi))))) (define gx#eval-syntax__% - (lambda (_stx8938_ _expression?8939_) - (gx#eval-syntax* (gx#core-expand__% _stx8938_ _expression?8939_)))) + (lambda (_stx9129_ _expression?9130_) + (gx#eval-syntax* (gx#core-expand__% _stx9129_ _expression?9130_)))) (define gx#eval-syntax__0 - (lambda (_stx8944_) - (let ((_expression?8946_ '#f)) - (gx#eval-syntax__% _stx8944_ _expression?8946_)))) + (lambda (_stx9135_) + (let ((_expression?9137_ '#f)) + (gx#eval-syntax__% _stx9135_ _expression?9137_)))) (define gx#eval-syntax - (lambda _g9335_ - (let ((_g9334_ (##length _g9335_))) - (cond ((##fx= _g9334_ 1) (apply gx#eval-syntax__0 _g9335_)) - ((##fx= _g9334_ 2) (apply gx#eval-syntax__% _g9335_)) + (lambda _g9526_ + (let ((_g9525_ (##length _g9526_))) + (cond ((##fx= _g9525_ 1) + (apply (lambda (_stx9135_) (gx#eval-syntax__0 _stx9135_)) + _g9526_)) + ((##fx= _g9525_ 2) + (apply (lambda (_stx9139_ _expression?9140_) + (gx#eval-syntax__% _stx9139_ _expression?9140_)) + _g9526_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g9335_)))))) + _g9526_)))))) (define gx#eval-syntax* - (lambda (_stx8935_) + (lambda (_stx9126_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _stx8935_)))) + ((gx#current-expander-compile) _stx9126_)))) (define gx#core-expand__% - (lambda (_stx8922_ _expression?8923_) - (if _expression?8923_ - (gx#core-expand-expression _stx8922_) - (gx#core-expand-top _stx8922_)))) + (lambda (_stx9113_ _expression?9114_) + (if _expression?9114_ + (gx#core-expand-expression _stx9113_) + (gx#core-expand-top _stx9113_)))) (define gx#core-expand__0 - (lambda (_stx8928_) - (let ((_expression?8930_ '#f)) - (gx#core-expand__% _stx8928_ _expression?8930_)))) + (lambda (_stx9119_) + (let ((_expression?9121_ '#f)) + (gx#core-expand__% _stx9119_ _expression?9121_)))) (define gx#core-expand - (lambda _g9337_ - (let ((_g9336_ (##length _g9337_))) - (cond ((##fx= _g9336_ 1) (apply gx#core-expand__0 _g9337_)) - ((##fx= _g9336_ 2) (apply gx#core-expand__% _g9337_)) + (lambda _g9528_ + (let ((_g9527_ (##length _g9528_))) + (cond ((##fx= _g9527_ 1) + (apply (lambda (_stx9119_) (gx#core-expand__0 _stx9119_)) + _g9528_)) + ((##fx= _g9527_ 2) + (apply (lambda (_stx9123_ _expression?9124_) + (gx#core-expand__% _stx9123_ _expression?9124_)) + _g9528_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g9337_)))))) + _g9528_)))))) (define gx#core-expand-top - (lambda (_stx8889_) - (let* ((_stx8891_ (gx#core-expand*__0 _stx8889_)) - (_e88928899_ _stx8891_) - (_E88948903_ (lambda () (gx#core-expand-expression _stx8891_))) - (_E88938917_ + (lambda (_stx9080_) + (let* ((_stx9082_ (gx#core-expand*__0 _stx9080_)) + (_e90839090_ _stx9082_) + (_E90859094_ (lambda () (gx#core-expand-expression _stx9082_))) + (_E90849108_ (lambda () - (if (gx#stx-pair? _e88928899_) - (let ((_e88958907_ (gx#syntax-e _e88928899_))) - (let ((_hd88968910_ (##car _e88958907_)) - (_tl88978912_ (##cdr _e88958907_))) - (let ((_form8915_ _hd88968910_)) - (if (gx#core-bound-identifier?__0 _form8915_) - _stx8891_ - (_E88948903_))))) - (_E88948903_))))) - (_E88938917_)))) + (if (gx#stx-pair? _e90839090_) + (let ((_e90869098_ (gx#syntax-e _e90839090_))) + (let ((_hd90879101_ (##car _e90869098_)) + (_tl90889103_ (##cdr _e90869098_))) + (let ((_form9106_ _hd90879101_)) + (if (gx#core-bound-identifier?__0 _form9106_) + _stx9082_ + (_E90859094_))))) + (_E90859094_))))) + (_E90849108_)))) (define gx#core-expand-expression - (lambda (_stx8836_) - (letrec ((_sealed-expression?8838_ - (lambda (_hd8859_) - (if (gx#sealed-syntax? _hd8859_) - (let* ((_e88608867_ _hd8859_) - (_E88628871_ (lambda () '#f)) - (_E88618885_ + (lambda (_stx9027_) + (letrec ((_sealed-expression?9029_ + (lambda (_hd9050_) + (if (gx#sealed-syntax? _hd9050_) + (let* ((_e90519058_ _hd9050_) + (_E90539062_ (lambda () '#f)) + (_E90529076_ (lambda () - (if (gx#stx-pair? _e88608867_) - (let ((_e88638875_ - (gx#syntax-e _e88608867_))) - (let ((_hd88648878_ - (##car _e88638875_)) - (_tl88658880_ - (##cdr _e88638875_))) - (let ((_form8883_ _hd88648878_)) + (if (gx#stx-pair? _e90519058_) + (let ((_e90549066_ + (gx#syntax-e _e90519058_))) + (let ((_hd90559069_ + (##car _e90549066_)) + (_tl90569071_ + (##cdr _e90549066_))) + (let ((_form9074_ _hd90559069_)) (if '#t (gx#core-bound-identifier?__% - _form8883_ + _form9074_ gx#expression-form-binding?) - (_E88628871_))))) - (_E88628871_))))) - (_E88618885_)) + (_E90539062_))))) + (_E90539062_))))) + (_E90529076_)) '#f))) - (_illegal-expression8839_ - (lambda (_hd8857_ . _g9338_) + (_illegal-expression9030_ + (lambda (_hd9048_ . _g9529_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _stx8836_ - _hd8857_))) - (_expand-e8840_ - (lambda (_form8852_ _hd8853_) - (let ((_bind8855_ + _stx9027_ + _hd9048_))) + (_expand-e9031_ + (lambda (_form9043_ _hd9044_) + (let ((_bind9046_ (if (##structure-instance-of? - _form8852_ + _form9043_ 'gx#binding::t) - _form8852_ - (gx#resolve-identifier__0 _form8852_)))) - (if (gx#core-expander-binding? _bind8855_) + _form9043_ + (gx#resolve-identifier__0 _form9043_)))) + (if (gx#core-expander-binding? _bind9046_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind8855_ + _bind9046_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd8853_ - (gx#stx-source _stx8836_))) + _hd9044_ + (gx#stx-source _stx9027_))) (if (##structure-direct-instance-of? - _bind8855_ + _bind9046_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind8855_ + _bind9046_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd8853_ - (gx#stx-source _stx8836_)))) + _hd9044_ + (gx#stx-source _stx9027_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _stx8836_ - _form8852_))))))) - (let ((_hd8842_ (gx#core-expand-head _stx8836_))) - (if (_sealed-expression?8838_ _hd8842_) - _hd8842_ - (if (gx#stx-pair? _hd8842_) - (let* ((_form8844_ (gx#stx-car _hd8842_)) - (_bind8846_ - (if (gx#identifier? _form8844_) - (gx#resolve-identifier__0 _form8844_) + _stx9027_ + _form9043_))))))) + (let ((_hd9033_ (gx#core-expand-head _stx9027_))) + (if (_sealed-expression?9029_ _hd9033_) + _hd9033_ + (if (gx#stx-pair? _hd9033_) + (let* ((_form9035_ (gx#stx-car _hd9033_)) + (_bind9037_ + (if (gx#identifier? _form9035_) + (gx#resolve-identifier__0 _form9035_) '#f))) - (if (or (not _bind8846_) - (not (gx#core-expander-binding? _bind8846_))) - (_expand-e8840_ '%%app (cons '%%app _hd8842_)) + (if (or (not _bind9037_) + (not (gx#core-expander-binding? _bind9037_))) + (_expand-e9031_ '%%app (cons '%%app _hd9033_)) (if (eq? (##unchecked-structure-ref - _bind8846_ + _bind9037_ '1 gx#binding::t '#f) '%#begin) (gx#core-expand-block* - _hd8842_ - _illegal-expression8839_) - (if (gx#expression-form-binding? _bind8846_) - (_expand-e8840_ _bind8846_ _hd8842_) + _hd9033_ + _illegal-expression9030_) + (if (gx#expression-form-binding? _bind9037_) + (_expand-e9031_ _bind9037_ _hd9033_) (if (gx#direct-special-form-binding? - _bind8846_) + _bind9037_) (gx#core-expand-expression - (_expand-e8840_ _bind8846_ _hd8842_)) - (_illegal-expression8839_ _hd8842_)))))) - (if (gx#core-bound-identifier?__0 _hd8842_) - (_illegal-expression8839_ _hd8842_) - (if (gx#identifier? _hd8842_) - (_expand-e8840_ + (_expand-e9031_ _bind9037_ _hd9033_)) + (_illegal-expression9030_ _hd9033_)))))) + (if (gx#core-bound-identifier?__0 _hd9033_) + (_illegal-expression9030_ _hd9033_) + (if (gx#identifier? _hd9033_) + (_expand-e9031_ '%%ref - (cons '%%ref (cons _hd8842_ '()))) - (if (gx#stx-datum? _hd8842_) - (_expand-e8840_ + (cons '%%ref (cons _hd9033_ '()))) + (if (gx#stx-datum? _hd9033_) + (_expand-e9031_ '%#quote - (cons '%#quote (cons _hd8842_ '()))) - (_illegal-expression8839_ _hd8842_)))))))))) + (cons '%#quote (cons _hd9033_ '()))) + (_illegal-expression9030_ _hd9033_)))))))))) (define gx#core-expand-expression+1 - (lambda (_stx8831_) + (lambda (_stx9022_) (call-with-parameters (lambda () - (let ((_stx8834_ (gx#core-expand-expression _stx8831_))) - (values _stx8834_ (gx#eval-syntax* _stx8834_)))) + (let ((_stx9025_ (gx#core-expand-expression _stx9022_))) + (values _stx9025_ (gx#eval-syntax* _stx9025_)))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_stx8812_ _stop?8813_) - (let _lp8815_ ((_stx8817_ _stx8812_)) - (if (_stop?8813_ _stx8817_) - _stx8817_ - (let ((_rstx8819_ (gx#core-expand1 _stx8817_))) - (if (eq? _stx8817_ _rstx8819_) - _stx8817_ - (_lp8815_ _rstx8819_))))))) + (lambda (_stx9003_ _stop?9004_) + (let _lp9006_ ((_stx9008_ _stx9003_)) + (if (_stop?9004_ _stx9008_) + _stx9008_ + (let ((_rstx9010_ (gx#core-expand1 _stx9008_))) + (if (eq? _stx9008_ _rstx9010_) + _stx9008_ + (_lp9006_ _rstx9010_))))))) (define gx#core-expand*__0 - (lambda (_stx8824_) - (let ((_stop?8826_ false)) - (gx#core-expand*__% _stx8824_ _stop?8826_)))) + (lambda (_stx9015_) + (let ((_stop?9017_ false)) + (gx#core-expand*__% _stx9015_ _stop?9017_)))) (define gx#core-expand* - (lambda _g9340_ - (let ((_g9339_ (##length _g9340_))) - (cond ((##fx= _g9339_ 1) (apply gx#core-expand*__0 _g9340_)) - ((##fx= _g9339_ 2) (apply gx#core-expand*__% _g9340_)) + (lambda _g9531_ + (let ((_g9530_ (##length _g9531_))) + (cond ((##fx= _g9530_ 1) + (apply (lambda (_stx9015_) (gx#core-expand*__0 _stx9015_)) + _g9531_)) + ((##fx= _g9530_ 2) + (apply (lambda (_stx9019_ _stop?9020_) + (gx#core-expand*__% _stx9019_ _stop?9020_)) + _g9531_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g9340_)))))) + _g9531_)))))) (define gx#core-expand1 - (lambda (_stx8768_) - (letrec ((_step8770_ - (lambda (_hd8807_) - (let ((_bind8809_ (gx#resolve-identifier__0 _hd8807_))) + (lambda (_stx8959_) + (letrec ((_step8961_ + (lambda (_hd8998_) + (let ((_bind9000_ (gx#resolve-identifier__0 _hd8998_))) (if (##structure-instance-of? - _bind8809_ + _bind9000_ 'gx#runtime-binding::t) - _stx8768_ + _stx8959_ (if (##structure-direct-instance-of? - _bind8809_ + _bind9000_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind8809_ + _bind9000_ '4 gx#syntax-binding::t '#f) - _stx8768_) - (if (not _bind8809_) - _stx8768_ + _stx8959_) + (if (not _bind9000_) + _stx8959_ (gx#raise-syntax-error '#f '"Bad syntax" - _stx8768_)))))))) - (let* ((_e87718779_ _stx8768_) - (_E87778783_ (lambda () _stx8768_)) - (_E87738789_ + _stx8959_)))))))) + (let* ((_e89628970_ _stx8959_) + (_E89688974_ (lambda () _stx8959_)) + (_E89648980_ (lambda () - (let ((_hd8787_ _e87718779_)) - (if (gx#identifier? _hd8787_) - (_step8770_ _hd8787_) - (_E87778783_))))) - (_E87728803_ + (let ((_hd8978_ _e89628970_)) + (if (gx#identifier? _hd8978_) + (_step8961_ _hd8978_) + (_E89688974_))))) + (_E89638994_ (lambda () - (if (gx#stx-pair? _e87718779_) - (let ((_e87748793_ (gx#syntax-e _e87718779_))) - (let ((_hd87758796_ (##car _e87748793_)) - (_tl87768798_ (##cdr _e87748793_))) - (let ((_hd8801_ _hd87758796_)) - (if (gx#identifier? _hd8801_) - (_step8770_ _hd8801_) - (_E87738789_))))) - (_E87738789_))))) - (_E87728803_))))) + (if (gx#stx-pair? _e89628970_) + (let ((_e89658984_ (gx#syntax-e _e89628970_))) + (let ((_hd89668987_ (##car _e89658984_)) + (_tl89678989_ (##cdr _e89658984_))) + (let ((_hd8992_ _hd89668987_)) + (if (gx#identifier? _hd8992_) + (_step8961_ _hd8992_) + (_E89648980_))))) + (_E89648980_))))) + (_E89638994_))))) (define gx#core-expand-head - (lambda (_stx8734_) - (letrec ((_stop?8736_ - (lambda (_stx8738_) - (let* ((_e87398746_ _stx8738_) - (_E87418750_ (lambda () '#f)) - (_E87408764_ + (lambda (_stx8925_) + (letrec ((_stop?8927_ + (lambda (_stx8929_) + (let* ((_e89308937_ _stx8929_) + (_E89328941_ (lambda () '#f)) + (_E89318955_ (lambda () - (if (gx#stx-pair? _e87398746_) - (let ((_e87428754_ - (gx#syntax-e _e87398746_))) - (let ((_hd87438757_ (##car _e87428754_)) - (_tl87448759_ (##cdr _e87428754_))) - (let ((_hd8762_ _hd87438757_)) + (if (gx#stx-pair? _e89308937_) + (let ((_e89338945_ + (gx#syntax-e _e89308937_))) + (let ((_hd89348948_ (##car _e89338945_)) + (_tl89358950_ (##cdr _e89338945_))) + (let ((_hd8953_ _hd89348948_)) (if '#t (gx#core-bound-identifier?__0 - _hd8762_) - (_E87418750_))))) - (_E87418750_))))) - (_E87408764_))))) - (gx#core-expand*__% _stx8734_ _stop?8736_)))) + _hd8953_) + (_E89328941_))))) + (_E89328941_))))) + (_E89318955_))))) + (gx#core-expand*__% _stx8925_ _stop?8927_)))) (define gx#core-expand-block__% - (lambda (_stx8540_ _expand-special8541_ _begin-form8542_ _expand-e8543_) - (letrec ((_expand-splice8545_ - (lambda (_hd8708_ _body8709_ _rest8710_ _r8711_) - (if (gx#stx-list? _body8709_) - (_K8549_ (gx#stx-foldr cons _rest8710_ _body8709_) - _r8711_) + (lambda (_stx8731_ _expand-special8732_ _begin-form8733_ _expand-e8734_) + (letrec ((_expand-splice8736_ + (lambda (_hd8899_ _body8900_ _rest8901_ _r8902_) + (if (gx#stx-list? _body8900_) + (_K8740_ (gx#stx-foldr cons _rest8901_ _body8900_) + _r8902_) (gx#raise-syntax-error '#f '"Bad syntax" - _stx8540_ - _hd8708_)))) - (_expand-cond-expand8546_ - (lambda (_hd8704_ _rest8705_ _r8706_) - (_K8549_ (cons (gx#core-expand-cond-expand% _hd8704_) - _rest8705_) - _r8706_))) - (_expand-include8547_ - (lambda (_hd8653_ _rest8654_ _r8655_) - (let* ((_e86568666_ _hd8653_) - (_E86588670_ + _stx8731_ + _hd8899_)))) + (_expand-cond-expand8737_ + (lambda (_hd8895_ _rest8896_ _r8897_) + (_K8740_ (cons (gx#core-expand-cond-expand% _hd8895_) + _rest8896_) + _r8897_))) + (_expand-include8738_ + (lambda (_hd8844_ _rest8845_ _r8846_) + (let* ((_e88478857_ _hd8844_) + (_E88498861_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e86568666_))) - (_E86578700_ + _e88478857_))) + (_E88488891_ (lambda () - (if (gx#stx-pair? _e86568666_) - (let ((_e86598674_ - (gx#syntax-e _e86568666_))) - (let ((_hd86608677_ (##car _e86598674_)) - (_tl86618679_ (##cdr _e86598674_))) - (if (gx#stx-pair? _tl86618679_) - (let ((_e86628682_ - (gx#syntax-e _tl86618679_))) - (let ((_hd86638685_ - (##car _e86628682_)) - (_tl86648687_ - (##cdr _e86628682_))) - (let ((_path8690_ _hd86638685_)) - (if (gx#stx-null? _tl86648687_) + (if (gx#stx-pair? _e88478857_) + (let ((_e88508865_ + (gx#syntax-e _e88478857_))) + (let ((_hd88518868_ (##car _e88508865_)) + (_tl88528870_ (##cdr _e88508865_))) + (if (gx#stx-pair? _tl88528870_) + (let ((_e88538873_ + (gx#syntax-e _tl88528870_))) + (let ((_hd88548876_ + (##car _e88538873_)) + (_tl88558878_ + (##cdr _e88538873_))) + (let ((_path8881_ _hd88548876_)) + (if (gx#stx-null? _tl88558878_) (if (gx#stx-string? - _path8690_) - (let* ((_rpath8692_ + _path8881_) + (let* ((_rpath8883_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _path8690_ - (gx#stx-source _hd8653_))) - (_block8694_ - (gx#core-expand-include%__% _hd8653_ _rpath8692_)) - (_rbody8697_ + _path8881_ + (gx#stx-source _hd8844_))) + (_block8885_ + (gx#core-expand-include%__% _hd8844_ _rpath8883_)) + (_rbody8888_ (call-with-parameters (lambda () (gx#core-expand-block__% - _block8694_ - _expand-special8541_ + _block8885_ + _expand-special8732_ '#f - _expand-e8543_)) + _expand-e8734_)) gx#current-expander-path - (cons _rpath8692_ (gx#current-expander-path))))) - (_K8549_ _rest8654_ (foldr1 cons _r8655_ _rbody8697_))) - (_E86588670_)) + (cons _rpath8883_ (gx#current-expander-path))))) + (_K8740_ _rest8845_ (foldr1 cons _r8846_ _rbody8888_))) + (_E88498861_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E86588670_))))) - (_E86588670_)))) - (_E86588670_))))) - (_E86578700_)))) - (_expand-expression8548_ - (lambda (_hd8649_ _rest8650_ _r8651_) - (_K8549_ _rest8650_ - (cons (_expand-e8543_ _hd8649_) _r8651_)))) - (_K8549_ (lambda (_rest8579_ _r8580_) - (let* ((_e85818588_ _rest8579_) - (_E85838592_ + (_E88498861_))))) + (_E88498861_)))) + (_E88498861_))))) + (_E88488891_)))) + (_expand-expression8739_ + (lambda (_hd8840_ _rest8841_ _r8842_) + (_K8740_ _rest8841_ + (cons (_expand-e8734_ _hd8840_) _r8842_)))) + (_K8740_ (lambda (_rest8770_ _r8771_) + (let* ((_e87728779_ _rest8770_) + (_E87748783_ (lambda () - (if _begin-form8542_ + (if _begin-form8733_ (gx#core-quote-syntax__1 (gx#core-cons - _begin-form8542_ - (reverse _r8580_)) - (gx#stx-source _stx8540_)) - _r8580_))) - (_E85828645_ + _begin-form8733_ + (reverse _r8771_)) + (gx#stx-source _stx8731_)) + _r8771_))) + (_E87738836_ (lambda () - (if (gx#stx-pair? _e85818588_) - (let ((_e85848596_ - (gx#syntax-e _e85818588_))) - (let ((_hd85858599_ - (##car _e85848596_)) - (_tl85868601_ - (##cdr _e85848596_))) - (let* ((_hd8604_ _hd85858599_) - (_rest8606_ _tl85868601_)) + (if (gx#stx-pair? _e87728779_) + (let ((_e87758787_ + (gx#syntax-e _e87728779_))) + (let ((_hd87768790_ + (##car _e87758787_)) + (_tl87778792_ + (##cdr _e87758787_))) + (let* ((_hd8795_ _hd87768790_) + (_rest8797_ _tl87778792_)) (if '#t - (let* ((_hd8608_ + (let* ((_hd8799_ (gx#core-expand-head - _hd8604_)) - (_e86098616_ - _hd8608_) - (_E86118620_ + _hd8795_)) + (_e88008807_ + _hd8799_) + (_E88028811_ (lambda () - (_expand-expression8548_ - _hd8608_ - _rest8606_ - _r8580_))) - (_E86108641_ + (_expand-expression8739_ + _hd8799_ + _rest8797_ + _r8771_))) + (_E88018832_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e86098616_) - (let ((_e86128624_ (gx#syntax-e _e86098616_))) - (let ((_hd86138627_ (##car _e86128624_)) - (_tl86148629_ (##cdr _e86128624_))) - (let* ((_form8632_ _hd86138627_) - (_body8634_ _tl86148629_)) + _e88008807_) + (let ((_e88038815_ (gx#syntax-e _e88008807_))) + (let ((_hd88048818_ (##car _e88038815_)) + (_tl88058820_ (##cdr _e88038815_))) + (let* ((_form8823_ _hd88048818_) + (_body8825_ _tl88058820_)) (if '#t - (let ((_bind8636_ - (if (gx#identifier? _form8632_) + (let ((_bind8827_ + (if (gx#identifier? _form8823_) (gx#resolve-identifier__0 - _form8632_) + _form8823_) '#f))) - (if (gx#special-form-binding? _bind8636_) - (let ((_$e8638_ + (if (gx#special-form-binding? _bind8827_) + (let ((_$e8829_ (##unchecked-structure-ref - _bind8636_ + _bind8827_ '1 gx#binding::t '#f))) - (if (eq? '%#begin _$e8638_) - (_expand-splice8545_ - _hd8608_ - _body8634_ - _rest8606_ - _r8580_) + (if (eq? '%#begin _$e8829_) + (_expand-splice8736_ + _hd8799_ + _body8825_ + _rest8797_ + _r8771_) (if (eq? '%#cond-expand - _$e8638_) - (_expand-cond-expand8546_ - _hd8608_ - _rest8606_ - _r8580_) + _$e8829_) + (_expand-cond-expand8737_ + _hd8799_ + _rest8797_ + _r8771_) (if (eq? '%#include - _$e8638_) - (_expand-include8547_ - _hd8608_ - _rest8606_ - _r8580_) - (_expand-special8541_ - _hd8608_ - _K8549_ - _rest8606_ - _r8580_))))) - (_expand-expression8548_ - _hd8608_ - _rest8606_ - _r8580_))) - (_E86118620_))))) - (_E86118620_))))) - (_E86108641_)) + _$e8829_) + (_expand-include8738_ + _hd8799_ + _rest8797_ + _r8771_) + (_expand-special8732_ + _hd8799_ + _K8740_ + _rest8797_ + _r8771_))))) + (_expand-expression8739_ + _hd8799_ + _rest8797_ + _r8771_))) + (_E88028811_))))) + (_E88028811_))))) + (_E88018832_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E85838592_))))) - (_E85838592_))))) - (_E85828645_))))) - (let* ((_e85508557_ _stx8540_) - (_E85528561_ + (_E87748783_))))) + (_E87748783_))))) + (_E87738836_))))) + (let* ((_e87418748_ _stx8731_) + (_E87438752_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e85508557_))) - (_E85518575_ + (gx#raise-syntax-error '#f '"Bad syntax" _e87418748_))) + (_E87428766_ (lambda () - (if (gx#stx-pair? _e85508557_) - (let ((_e85538565_ (gx#syntax-e _e85508557_))) - (let ((_hd85548568_ (##car _e85538565_)) - (_tl85558570_ (##cdr _e85538565_))) - (let ((_body8573_ _tl85558570_)) - (if (gx#stx-list? _body8573_) - (_K8549_ _body8573_ '()) - (_E85528561_))))) - (_E85528561_))))) - (_E85518575_))))) + (if (gx#stx-pair? _e87418748_) + (let ((_e87448756_ (gx#syntax-e _e87418748_))) + (let ((_hd87458759_ (##car _e87448756_)) + (_tl87468761_ (##cdr _e87448756_))) + (let ((_body8764_ _tl87468761_)) + (if (gx#stx-list? _body8764_) + (_K8740_ _body8764_ '()) + (_E87438752_))))) + (_E87438752_))))) + (_E87428766_))))) (define gx#core-expand-block__0 - (lambda (_stx8716_ _expand-special8717_) - (let* ((_begin-form8719_ '%#begin) - (_expand-e8721_ gx#core-expand-expression)) + (lambda (_stx8907_ _expand-special8908_) + (let* ((_begin-form8910_ '%#begin) + (_expand-e8912_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx8716_ - _expand-special8717_ - _begin-form8719_ - _expand-e8721_)))) + _stx8907_ + _expand-special8908_ + _begin-form8910_ + _expand-e8912_)))) (define gx#core-expand-block__1 - (lambda (_stx8723_ _expand-special8724_ _begin-form8725_) - (let ((_expand-e8727_ gx#core-expand-expression)) + (lambda (_stx8914_ _expand-special8915_ _begin-form8916_) + (let ((_expand-e8918_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx8723_ - _expand-special8724_ - _begin-form8725_ - _expand-e8727_)))) + _stx8914_ + _expand-special8915_ + _begin-form8916_ + _expand-e8918_)))) (define gx#core-expand-block - (lambda _g9342_ - (let ((_g9341_ (##length _g9342_))) - (cond ((##fx= _g9341_ 2) (apply gx#core-expand-block__0 _g9342_)) - ((##fx= _g9341_ 3) (apply gx#core-expand-block__1 _g9342_)) - ((##fx= _g9341_ 4) (apply gx#core-expand-block__% _g9342_)) + (lambda _g9533_ + (let ((_g9532_ (##length _g9533_))) + (cond ((##fx= _g9532_ 2) + (apply (lambda (_stx8907_ _expand-special8908_) + (gx#core-expand-block__0 + _stx8907_ + _expand-special8908_)) + _g9533_)) + ((##fx= _g9532_ 3) + (apply (lambda (_stx8914_ + _expand-special8915_ + _begin-form8916_) + (gx#core-expand-block__1 + _stx8914_ + _expand-special8915_ + _begin-form8916_)) + _g9533_)) + ((##fx= _g9532_ 4) + (apply (lambda (_stx8920_ + _expand-special8921_ + _begin-form8922_ + _expand-e8923_) + (gx#core-expand-block__% + _stx8920_ + _expand-special8921_ + _begin-form8922_ + _expand-e8923_)) + _g9533_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g9342_)))))) + _g9533_)))))) (define gx#core-expand-block* - (lambda (_stx8488_ _expand-special8489_) - (let* ((_g84908501_ - (gx#core-expand-block__1 _stx8488_ _expand-special8489_ '#f)) - (_E84948505_ - (lambda () (error '"No clause matching" _g84908501_)))) - (let ((_K84998536_ + (lambda (_stx8679_ _expand-special8680_) + (let* ((_g86818692_ + (gx#core-expand-block__1 _stx8679_ _expand-special8680_ '#f)) + (_E86858696_ + (lambda () (error '"No clause matching" _g86818692_)))) + (let ((_K86908727_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _stx8488_))) - (_K84968522_ (lambda (_expr8520_) _expr8520_)) - (_K84958511_ - (lambda (_body8509_) + _stx8679_))) + (_K86878713_ (lambda (_expr8711_) _expr8711_)) + (_K86868702_ + (lambda (_body8700_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _body8509_)) - (gx#stx-source _stx8488_))))) - (let ((_try-match84928532_ + (gx#core-cons '%#begin (reverse _body8700_)) + (gx#stx-source _stx8679_))))) + (let ((_try-match86838723_ (lambda () - (if (##pair? _g84908501_) - (let ((_tl84988527_ (##cdr _g84908501_)) - (_hd84978525_ (##car _g84908501_))) - (if (##null? _tl84988527_) - (let ((_expr8530_ _hd84978525_)) - (_K84968522_ _expr8530_)) - (let ((_body8514_ _g84908501_)) - (_K84958511_ _body8514_)))) - (let ((_body8514_ _g84908501_)) - (_K84958511_ _body8514_)))))) - (if (##null? _g84908501_) - (_K84998536_) - (_try-match84928532_))))))) + (if (##pair? _g86818692_) + (let ((_tl86898718_ (##cdr _g86818692_)) + (_hd86888716_ (##car _g86818692_))) + (if (##null? _tl86898718_) + (let ((_expr8721_ _hd86888716_)) + (_K86878713_ _expr8721_)) + (let ((_body8705_ _g86818692_)) + (_K86868702_ _body8705_)))) + (let ((_body8705_ _g86818692_)) + (_K86868702_ _body8705_)))))) + (if (##null? _g86818692_) + (_K86908727_) + (_try-match86838723_))))))) (define gx#core-expand-cond-expand% - (lambda (_stx8316_) - (letrec ((_satisfied?8318_ - (lambda (_condition8416_) - (let* ((_e84178432_ _condition8416_) - (_E84278436_ + (lambda (_stx8507_) + (letrec ((_satisfied?8509_ + (lambda (_condition8607_) + (let* ((_e86088623_ _condition8607_) + (_E86188627_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e84178432_))) - (_E84208455_ + _e86088623_))) + (_E86118646_ (lambda () - (if (gx#stx-pair? _e84178432_) - (let ((_e84288440_ - (gx#syntax-e _e84178432_))) - (let ((_hd84298443_ (##car _e84288440_)) - (_tl84308445_ (##cdr _e84288440_))) - (let* ((_combinator8448_ _hd84298443_) - (_body8450_ _tl84308445_)) - (if (gx#stx-list? _body8450_) - (let ((_$e8452_ + (if (gx#stx-pair? _e86088623_) + (let ((_e86198631_ + (gx#syntax-e _e86088623_))) + (let ((_hd86208634_ (##car _e86198631_)) + (_tl86218636_ (##cdr _e86198631_))) + (let* ((_combinator8639_ _hd86208634_) + (_body8641_ _tl86218636_)) + (if (gx#stx-list? _body8641_) + (let ((_$e8643_ (gx#stx-e - _combinator8448_))) - (if (eq? 'not _$e8452_) + _combinator8639_))) + (if (eq? 'not _$e8643_) (not (gx#stx-ormap - _satisfied?8318_ - _body8450_)) - (if (eq? 'and _$e8452_) + _satisfied?8509_ + _body8641_)) + (if (eq? 'and _$e8643_) (gx#stx-andmap - _satisfied?8318_ - _body8450_) - (if (eq? 'or _$e8452_) + _satisfied?8509_ + _body8641_) + (if (eq? 'or _$e8643_) (gx#stx-ormap - _satisfied?8318_ - _body8450_) + _satisfied?8509_ + _body8641_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e8452_) - (gx#stx-andmap gx#core-resolve-identifier _body8450_) + _$e8643_) + (gx#stx-andmap gx#core-resolve-identifier _body8641_) (gx#raise-syntax-error '#f '"Bad syntax" - _stx8316_ - _combinator8448_)))))) + _stx8507_ + _combinator8639_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E84278436_))))) - (_E84278436_)))) - (_E84198478_ + (_E86188627_))))) + (_E86188627_)))) + (_E86108669_ (lambda () - (if (gx#stx-pair? _e84178432_) - (let ((_e84218459_ - (gx#syntax-e _e84178432_))) - (let ((_hd84228462_ (##car _e84218459_)) - (_tl84238464_ (##cdr _e84218459_))) - (if (and (gx#identifier? _hd84228462_) + (if (gx#stx-pair? _e86088623_) + (let ((_e86128650_ + (gx#syntax-e _e86088623_))) + (let ((_hd86138653_ (##car _e86128650_)) + (_tl86148655_ (##cdr _e86128650_))) + (if (and (gx#identifier? _hd86138653_) (gx#core-identifier=? - _hd84228462_ + _hd86138653_ 'unquote)) - (if (gx#stx-pair? _tl84238464_) - (let ((_e84248467_ + (if (gx#stx-pair? _tl86148655_) + (let ((_e86158658_ (gx#syntax-e - _tl84238464_))) - (let ((_hd84258470_ - (##car _e84248467_)) - (_tl84268472_ - (##cdr _e84248467_))) - (let ((_expr8475_ - _hd84258470_)) + _tl86148655_))) + (let ((_hd86168661_ + (##car _e86158658_)) + (_tl86178663_ + (##cdr _e86158658_))) + (let ((_expr8666_ + _hd86168661_)) (if (gx#stx-null? - _tl84268472_) + _tl86178663_) (if '#t (call-with-parameters (lambda () (gx#eval-syntax__0 - _expr8475_)) + _expr8666_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1)) - (_E84208455_)) - (_E84208455_))))) + (_E86118646_)) + (_E86118646_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E84208455_)) - (_E84208455_)))) - (_E84208455_)))) - (_E84188484_ + (_E86118646_)) + (_E86118646_)))) + (_E86118646_)))) + (_E86098675_ (lambda () - (let ((_id8482_ _e84178432_)) - (if (gx#identifier? _id8482_) + (let ((_id8673_ _e86088623_)) + (if (gx#identifier? _id8673_) (gx#core-bound-identifier?__% - _id8482_ + _id8673_ gx#feature-binding?) - (_E84198478_)))))) - (_E84188484_)))) - (_loop8319_ - (lambda (_rest8349_) - (let* ((_e83508358_ _rest8349_) - (_E83568362_ + (_E86108669_)))))) + (_E86098675_)))) + (_loop8510_ + (lambda (_rest8540_) + (let* ((_e85418549_ _rest8540_) + (_E85478553_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e83508358_))) - (_E83528366_ + _e85418549_))) + (_E85438557_ (lambda () - (if (gx#stx-null? _e83508358_) - (if '#t '() (_E83568362_)) - (_E83568362_)))) - (_E83518412_ + (if (gx#stx-null? _e85418549_) + (if '#t '() (_E85478553_)) + (_E85478553_)))) + (_E85428603_ (lambda () - (if (gx#stx-pair? _e83508358_) - (let ((_e83538370_ - (gx#syntax-e _e83508358_))) - (let ((_hd83548373_ (##car _e83538370_)) - (_tl83558375_ (##cdr _e83538370_))) - (let* ((_hd8378_ _hd83548373_) - (_rest8380_ _tl83558375_)) + (if (gx#stx-pair? _e85418549_) + (let ((_e85448561_ + (gx#syntax-e _e85418549_))) + (let ((_hd85458564_ (##car _e85448561_)) + (_tl85468566_ (##cdr _e85448561_))) + (let* ((_hd8569_ _hd85458564_) + (_rest8571_ _tl85468566_)) (if '#t - (let* ((_e83818388_ _hd8378_) - (_E83838392_ + (let* ((_e85728579_ _hd8569_) + (_E85748583_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e83818388_))) - (_E83828408_ + _e85728579_))) + (_E85738599_ (lambda () (if (gx#stx-pair? - _e83818388_) - (let ((_e83848396_ + _e85728579_) + (let ((_e85758587_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e83818388_))) - (let ((_hd83858399_ (##car _e83848396_)) - (_tl83868401_ (##cdr _e83848396_))) - (let* ((_condition8404_ _hd83858399_) - (_body8406_ _tl83868401_)) + (gx#syntax-e _e85728579_))) + (let ((_hd85768590_ (##car _e85758587_)) + (_tl85778592_ (##cdr _e85758587_))) + (let* ((_condition8595_ _hd85768590_) + (_body8597_ _tl85778592_)) (if '#t - (if (gx#stx-eq? _condition8404_ 'else) - (if (gx#stx-null? _rest8380_) - _body8406_ + (if (gx#stx-eq? _condition8595_ 'else) + (if (gx#stx-null? _rest8571_) + _body8597_ (gx#raise-syntax-error '#f '"Bad syntax" - _stx8316_ - _hd8378_)) - (if (_satisfied?8318_ _condition8404_) - _body8406_ - (_loop8319_ _rest8380_))) - (_E83838392_))))) - (_E83838392_))))) + _stx8507_ + _hd8569_)) + (if (_satisfied?8509_ _condition8595_) + _body8597_ + (_loop8510_ _rest8571_))) + (_E85748583_))))) + (_E85748583_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E83828408_)) - (_E83528366_))))) - (_E83528366_))))) - (_E83518412_))))) - (let* ((_e83208327_ _stx8316_) - (_E83228331_ + (_E85738599_)) + (_E85438557_))))) + (_E85438557_))))) + (_E85428603_))))) + (let* ((_e85118518_ _stx8507_) + (_E85138522_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e83208327_))) - (_E83218345_ + (gx#raise-syntax-error '#f '"Bad syntax" _e85118518_))) + (_E85128536_ (lambda () - (if (gx#stx-pair? _e83208327_) - (let ((_e83238335_ (gx#syntax-e _e83208327_))) - (let ((_hd83248338_ (##car _e83238335_)) - (_tl83258340_ (##cdr _e83238335_))) - (let ((_clauses8343_ _tl83258340_)) - (if (gx#stx-list? _clauses8343_) + (if (gx#stx-pair? _e85118518_) + (let ((_e85148526_ (gx#syntax-e _e85118518_))) + (let ((_hd85158529_ (##car _e85148526_)) + (_tl85168531_ (##cdr _e85148526_))) + (let ((_clauses8534_ _tl85168531_)) + (if (gx#stx-list? _clauses8534_) (gx#core-cons 'begin - (_loop8319_ _clauses8343_)) - (_E83228331_))))) - (_E83228331_))))) - (_E83218345_))))) + (_loop8510_ _clauses8534_)) + (_E85138522_))))) + (_E85138522_))))) + (_E85128536_))))) (define gx#core-expand-include%__% - (lambda (_stx8259_ _rpath8260_) - (let* ((_e82618271_ _stx8259_) - (_E82638275_ + (lambda (_stx8450_ _rpath8451_) + (let* ((_e84528462_ _stx8450_) + (_E84548466_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e82618271_))) - (_E82628302_ + (gx#raise-syntax-error '#f '"Bad syntax" _e84528462_))) + (_E84538493_ (lambda () - (if (gx#stx-pair? _e82618271_) - (let ((_e82648279_ (gx#syntax-e _e82618271_))) - (let ((_hd82658282_ (##car _e82648279_)) - (_tl82668284_ (##cdr _e82648279_))) - (if (gx#stx-pair? _tl82668284_) - (let ((_e82678287_ (gx#syntax-e _tl82668284_))) - (let ((_hd82688290_ (##car _e82678287_)) - (_tl82698292_ (##cdr _e82678287_))) - (let ((_path8295_ _hd82688290_)) - (if (gx#stx-null? _tl82698292_) - (if (gx#stx-string? _path8295_) - (let ((_rpath8300_ - (let ((_$e8297_ - _rpath8260_)) - (if _$e8297_ - _$e8297_ + (if (gx#stx-pair? _e84528462_) + (let ((_e84558470_ (gx#syntax-e _e84528462_))) + (let ((_hd84568473_ (##car _e84558470_)) + (_tl84578475_ (##cdr _e84558470_))) + (if (gx#stx-pair? _tl84578475_) + (let ((_e84588478_ (gx#syntax-e _tl84578475_))) + (let ((_hd84598481_ (##car _e84588478_)) + (_tl84608483_ (##cdr _e84588478_))) + (let ((_path8486_ _hd84598481_)) + (if (gx#stx-null? _tl84608483_) + (if (gx#stx-string? _path8486_) + (let ((_rpath8491_ + (let ((_$e8488_ + _rpath8451_)) + (if _$e8488_ + _$e8488_ (gx#core-resolve-path__% - _path8295_ + _path8486_ (gx#stx-source - _stx8259_)))))) - (if (member _rpath8300_ + _stx8450_)))))) + (if (member _rpath8491_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _stx8259_) + _stx8450_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _rpath8300_)) + _rpath8491_)) (gx#stx-source - _stx8259_))))) - (_E82638275_)) - (_E82638275_))))) - (_E82638275_)))) - (_E82638275_))))) - (_E82628302_)))) + _stx8450_))))) + (_E84548466_)) + (_E84548466_))))) + (_E84548466_)))) + (_E84548466_))))) + (_E84538493_)))) (define gx#core-expand-include%__0 - (lambda (_stx8309_) - (let ((_rpath8311_ '#f)) - (gx#core-expand-include%__% _stx8309_ _rpath8311_)))) + (lambda (_stx8500_) + (let ((_rpath8502_ '#f)) + (gx#core-expand-include%__% _stx8500_ _rpath8502_)))) (define gx#core-expand-include% - (lambda _g9344_ - (let ((_g9343_ (##length _g9344_))) - (cond ((##fx= _g9343_ 1) (apply gx#core-expand-include%__0 _g9344_)) - ((##fx= _g9343_ 2) (apply gx#core-expand-include%__% _g9344_)) + (lambda _g9535_ + (let ((_g9534_ (##length _g9535_))) + (cond ((##fx= _g9534_ 1) + (apply (lambda (_stx8500_) + (gx#core-expand-include%__0 _stx8500_)) + _g9535_)) + ((##fx= _g9534_ 2) + (apply (lambda (_stx8504_ _rpath8505_) + (gx#core-expand-include%__% _stx8504_ _rpath8505_)) + _g9535_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g9344_)))))) + _g9535_)))))) (define gx#core-apply-expander__% - (lambda (_K8228_ _stx8229_ _method8230_) - (if (procedure? _K8228_) - (let ((_$e8232_ (gx#stx-source _stx8229_))) - (if _$e8232_ - ((lambda (_g82348236_) - (gx#stx-wrap-source (_K8228_ _stx8229_) _g82348236_)) - _$e8232_) - (_K8228_ _stx8229_))) - (let ((_$e8239_ (bound-method-ref _K8228_ _method8230_))) - (if _$e8239_ - ((lambda (_g82418243_) + (lambda (_K8419_ _stx8420_ _method8421_) + (if (procedure? _K8419_) + (let ((_$e8423_ (gx#stx-source _stx8420_))) + (if _$e8423_ + ((lambda (_g84258427_) + (gx#stx-wrap-source (_K8419_ _stx8420_) _g84258427_)) + _$e8423_) + (_K8419_ _stx8420_))) + (let ((_$e8430_ (bound-method-ref _K8419_ _method8421_))) + (if _$e8430_ + ((lambda (_g84328434_) (gx#core-apply-expander__% - _g82418243_ - _stx8229_ - _method8230_)) - _$e8239_) + _g84328434_ + _stx8420_ + _method8421_)) + _$e8430_) (gx#raise-syntax-error '#f '"Bad syntax" - _stx8229_ - _method8230_)))))) + _stx8420_ + _method8421_)))))) (define gx#core-apply-expander__0 - (lambda (_K8249_ _stx8250_) - (let ((_method8252_ 'apply-macro-expander)) - (gx#core-apply-expander__% _K8249_ _stx8250_ _method8252_)))) + (lambda (_K8440_ _stx8441_) + (let ((_method8443_ 'apply-macro-expander)) + (gx#core-apply-expander__% _K8440_ _stx8441_ _method8443_)))) (define gx#core-apply-expander - (lambda _g9346_ - (let ((_g9345_ (##length _g9346_))) - (cond ((##fx= _g9345_ 2) (apply gx#core-apply-expander__0 _g9346_)) - ((##fx= _g9345_ 3) (apply gx#core-apply-expander__% _g9346_)) + (lambda _g9537_ + (let ((_g9536_ (##length _g9537_))) + (cond ((##fx= _g9536_ 2) + (apply (lambda (_K8440_ _stx8441_) + (gx#core-apply-expander__0 _K8440_ _stx8441_)) + _g9537_)) + ((##fx= _g9536_ 3) + (apply (lambda (_K8445_ _stx8446_ _method8447_) + (gx#core-apply-expander__% + _K8445_ + _stx8446_ + _method8447_)) + _g9537_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g9346_)))))) + _g9537_)))))) (define gx#expander::apply-macro-expander - (lambda (_self8224_ _stx8225_) - (gx#raise-syntax-error '#f '"Bad syntax" _stx8225_))) + (lambda (_self8415_ _stx8416_) + (gx#raise-syntax-error '#f '"Bad syntax" _stx8416_))) (bind-method! gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_self8077_ _stx8078_) - (let* ((_self80798085_ _self8077_) - (_E80818089_ - (lambda () (error '"No clause matching" _self80798085_))) - (_K80828094_ - (lambda (_K8092_) - (gx#core-apply-expander__0 _K8092_ _stx8078_)))) - (if (##structure-instance-of? _self80798085_ 'gx#core-macro::t) - (let* ((_e80838097_ (##vector-ref _self80798085_ '1)) - (_K8100_ _e80838097_)) - (_K80828094_ _K8100_)) - (_E80818089_))))) + (lambda (_self8268_ _stx8269_) + (let* ((_self82708276_ _self8268_) + (_E82728280_ + (lambda () (error '"No clause matching" _self82708276_))) + (_K82738285_ + (lambda (_K8283_) + (gx#core-apply-expander__0 _K8283_ _stx8269_)))) + (if (##structure-instance-of? _self82708276_ 'gx#core-macro::t) + (let* ((_e82748288_ (##vector-ref _self82708276_ '1)) + (_K8291_ _e82748288_)) + (_K82738285_ _K8291_)) + (_E82728280_))))) (bind-method! gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_self7930_ _stx7931_) - (if (gx#sealed-syntax? _stx7931_) - _stx7931_ - (let* ((_self79327938_ _self7930_) - (_E79347942_ - (lambda () (error '"No clause matching" _self79327938_))) - (_K79357947_ - (lambda (_K7945_) - (gx#core-apply-expander__0 _K7945_ _stx7931_)))) + (lambda (_self8121_ _stx8122_) + (if (gx#sealed-syntax? _stx8122_) + _stx8122_ + (let* ((_self81238129_ _self8121_) + (_E81258133_ + (lambda () (error '"No clause matching" _self81238129_))) + (_K81268138_ + (lambda (_K8136_) + (gx#core-apply-expander__0 _K8136_ _stx8122_)))) (if (##structure-instance-of? - _self79327938_ + _self81238129_ 'gx#core-expander::t) - (let* ((_e79367950_ (##vector-ref _self79327938_ '1)) - (_K7953_ _e79367950_)) - (_K79357947_ _K7953_)) - (_E79347942_)))))) + (let* ((_e81278141_ (##vector-ref _self81238129_ '1)) + (_K8144_ _e81278141_)) + (_K81268138_ _K8144_)) + (_E81258133_)))))) (bind-method! gx#core-expander::t 'apply-macro-expander gx#core-expander::apply-macro-expander '#f) (define gx#top-special-form::apply-macro-expander__% - (lambda (_self7792_ _stx7793_ _top?7794_) - (if (_top?7794_ (gx#current-expander-context)) - (gx#core-expander::apply-macro-expander _self7792_ _stx7793_) + (lambda (_self7983_ _stx7984_ _top?7985_) + (if (_top?7985_ (gx#current-expander-context)) + (gx#core-expander::apply-macro-expander _self7983_ _stx7984_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _stx7793_)))) + _stx7984_)))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_self7799_ _stx7800_) - (let ((_top?7802_ gx#top-context?)) + (lambda (_self7990_ _stx7991_) + (let ((_top?7993_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _self7799_ - _stx7800_ - _top?7802_)))) + _self7990_ + _stx7991_ + _top?7993_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g9348_ - (let ((_g9347_ (##length _g9348_))) - (cond ((##fx= _g9347_ 2) - (apply gx#top-special-form::apply-macro-expander__0 _g9348_)) - ((##fx= _g9347_ 3) - (apply gx#top-special-form::apply-macro-expander__% _g9348_)) + (lambda _g9539_ + (let ((_g9538_ (##length _g9539_))) + (cond ((##fx= _g9538_ 2) + (apply (lambda (_self7990_ _stx7991_) + (gx#top-special-form::apply-macro-expander__0 + _self7990_ + _stx7991_)) + _g9539_)) + ((##fx= _g9538_ 3) + (apply (lambda (_self7995_ _stx7996_ _top?7997_) + (gx#top-special-form::apply-macro-expander__% + _self7995_ + _stx7996_ + _top?7997_)) + _g9539_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g9348_)))))) + _g9539_)))))) (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 (_self7666_ _stx7667_) + (lambda (_self7857_ _stx7858_) (gx#top-special-form::apply-macro-expander__% - _self7666_ - _stx7667_ + _self7857_ + _stx7858_ gx#module-context?))) (bind-method! gx#module-special-form::t @@ -1534,99 +1611,108 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_self7491_ _stx7492_) - (let* ((_self74937499_ _self7491_) - (_E74957503_ - (lambda () (error '"No clause matching" _self74937499_))) - (_K74967536_ - (lambda (_id7506_) - (let* ((_e75077514_ _stx7492_) - (_E75097518_ + (lambda (_self7682_ _stx7683_) + (let* ((_self76847690_ _self7682_) + (_E76867694_ + (lambda () (error '"No clause matching" _self76847690_))) + (_K76877727_ + (lambda (_id7697_) + (let* ((_e76987705_ _stx7683_) + (_E77007709_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e75077514_))) - (_E75087532_ + _e76987705_))) + (_E76997723_ (lambda () - (if (gx#stx-pair? _e75077514_) - (let ((_e75107522_ (gx#syntax-e _e75077514_))) - (let ((_hd75117525_ (##car _e75107522_)) - (_tl75127527_ (##cdr _e75107522_))) - (let ((_body7530_ _tl75127527_)) + (if (gx#stx-pair? _e76987705_) + (let ((_e77017713_ (gx#syntax-e _e76987705_))) + (let ((_hd77027716_ (##car _e77017713_)) + (_tl77037718_ (##cdr _e77017713_))) + (let ((_body7721_ _tl77037718_)) (if '#t - (gx#core-cons _id7506_ _body7530_) - (_E75097518_))))) - (_E75097518_))))) - (_E75087532_))))) + (gx#core-cons _id7697_ _body7721_) + (_E77007709_))))) + (_E77007709_))))) + (_E76997723_))))) (if (##structure-instance-of? - _self74937499_ + _self76847690_ 'gx#rename-macro-expander::t) - (let* ((_e74977539_ (##vector-ref _self74937499_ '1)) - (_id7542_ _e74977539_)) - (_K74967536_ _id7542_)) - (_E74957503_))))) + (let* ((_e76887730_ (##vector-ref _self76847690_ '1)) + (_id7733_ _e76887730_)) + (_K76877727_ _id7733_)) + (_E76867694_))))) (bind-method! gx#rename-macro-expander::t 'apply-macro-expander gx#rename-macro-expander::apply-macro-expander '#f) (define gx#core-apply-user-expander__% - (lambda (_self7317_ _stx7318_ _method7319_) - (let* ((_self73207328_ _self7317_) - (_E73227332_ - (lambda () (error '"No clause matching" _self73207328_))) - (_K73237339_ - (lambda (_phi7335_ _ctx7336_ _K7337_) + (lambda (_self7508_ _stx7509_ _method7510_) + (let* ((_self75117519_ _self7508_) + (_E75137523_ + (lambda () (error '"No clause matching" _self75117519_))) + (_K75147530_ + (lambda (_phi7526_ _ctx7527_ _K7528_) (gx#core-apply-user-macro - _K7337_ - _stx7318_ - _ctx7336_ - _phi7335_ - _method7319_)))) - (if (##structure-instance-of? _self73207328_ 'gx#macro-expander::t) - (let* ((_e73247342_ (##vector-ref _self73207328_ '1)) - (_K7345_ _e73247342_) - (_e73257347_ (##vector-ref _self73207328_ '2)) - (_ctx7350_ _e73257347_) - (_e73267352_ (##vector-ref _self73207328_ '3)) - (_phi7355_ _e73267352_)) - (_K73237339_ _phi7355_ _ctx7350_ _K7345_)) - (_E73227332_))))) + _K7528_ + _stx7509_ + _ctx7527_ + _phi7526_ + _method7510_)))) + (if (##structure-instance-of? _self75117519_ 'gx#macro-expander::t) + (let* ((_e75157533_ (##vector-ref _self75117519_ '1)) + (_K7536_ _e75157533_) + (_e75167538_ (##vector-ref _self75117519_ '2)) + (_ctx7541_ _e75167538_) + (_e75177543_ (##vector-ref _self75117519_ '3)) + (_phi7546_ _e75177543_)) + (_K75147530_ _phi7546_ _ctx7541_ _K7536_)) + (_E75137523_))))) (define gx#core-apply-user-expander__0 - (lambda (_self7360_ _stx7361_) - (let ((_method7363_ 'apply-macro-expander)) - (gx#core-apply-user-expander__% _self7360_ _stx7361_ _method7363_)))) + (lambda (_self7551_ _stx7552_) + (let ((_method7554_ 'apply-macro-expander)) + (gx#core-apply-user-expander__% _self7551_ _stx7552_ _method7554_)))) (define gx#core-apply-user-expander - (lambda _g9350_ - (let ((_g9349_ (##length _g9350_))) - (cond ((##fx= _g9349_ 2) - (apply gx#core-apply-user-expander__0 _g9350_)) - ((##fx= _g9349_ 3) - (apply gx#core-apply-user-expander__% _g9350_)) + (lambda _g9541_ + (let ((_g9540_ (##length _g9541_))) + (cond ((##fx= _g9540_ 2) + (apply (lambda (_self7551_ _stx7552_) + (gx#core-apply-user-expander__0 + _self7551_ + _stx7552_)) + _g9541_)) + ((##fx= _g9540_ 3) + (apply (lambda (_self7556_ _stx7557_ _method7558_) + (gx#core-apply-user-expander__% + _self7556_ + _stx7557_ + _method7558_)) + _g9541_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g9350_)))))) + _g9541_)))))) (define gx#core-apply-user-macro - (lambda (_K7307_ _stx7308_ _ctx7309_ _phi7310_ _method7311_) - (let ((_mark7313_ + (lambda (_K7498_ _stx7499_ _ctx7500_ _phi7501_ _method7502_) + (let ((_mark7504_ (##structure gx#expander-mark::t '#f - _ctx7309_ - _phi7310_ - _stx7308_))) + _ctx7500_ + _phi7501_ + _stx7499_))) (call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _K7307_ - (gx#stx-apply-mark _stx7308_ _mark7313_) - _method7311_) - _mark7313_)) + _K7498_ + (gx#stx-apply-mark _stx7499_ _mark7504_) + _method7502_) + _mark7504_)) gx#current-expander-marks - (cons _mark7313_ (gx#current-expander-marks)))))) + (cons _mark7504_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (bind-method! gx#user-expander::t @@ -1634,347 +1720,396 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_stx7159_ _phi7160_ _ctx7161_) - (let _lp7163_ ((_bind7165_ + (lambda (_stx7350_ _phi7351_ _ctx7352_) + (let _lp7354_ ((_bind7356_ (gx#core-resolve-identifier__% - _stx7159_ - _phi7160_ - _ctx7161_))) + _stx7350_ + _phi7351_ + _ctx7352_))) (if (##structure-direct-instance-of? - _bind7165_ + _bind7356_ 'gx#import-binding::t) - (_lp7163_ + (_lp7354_ (##unchecked-structure-ref - _bind7165_ + _bind7356_ '4 gx#import-binding::t '#f)) (if (##structure-direct-instance-of? - _bind7165_ + _bind7356_ 'gx#alias-binding::t) - (_lp7163_ + (_lp7354_ (gx#core-resolve-identifier__% (##unchecked-structure-ref - _bind7165_ + _bind7356_ '4 gx#alias-binding::t '#f) - _phi7160_ - _ctx7161_)) - _bind7165_))))) + _phi7351_ + _ctx7352_)) + _bind7356_))))) (define gx#resolve-identifier__0 - (lambda (_stx7170_) - (let* ((_phi7172_ (gx#current-expander-phi)) - (_ctx7174_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx7170_ _phi7172_ _ctx7174_)))) + (lambda (_stx7361_) + (let* ((_phi7363_ (gx#current-expander-phi)) + (_ctx7365_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx7361_ _phi7363_ _ctx7365_)))) (define gx#resolve-identifier__1 - (lambda (_stx7176_ _phi7177_) - (let ((_ctx7179_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx7176_ _phi7177_ _ctx7179_)))) + (lambda (_stx7367_ _phi7368_) + (let ((_ctx7370_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx7367_ _phi7368_ _ctx7370_)))) (define gx#resolve-identifier - (lambda _g9352_ - (let ((_g9351_ (##length _g9352_))) - (cond ((##fx= _g9351_ 1) (apply gx#resolve-identifier__0 _g9352_)) - ((##fx= _g9351_ 2) (apply gx#resolve-identifier__1 _g9352_)) - ((##fx= _g9351_ 3) (apply gx#resolve-identifier__% _g9352_)) + (lambda _g9543_ + (let ((_g9542_ (##length _g9543_))) + (cond ((##fx= _g9542_ 1) + (apply (lambda (_stx7361_) + (gx#resolve-identifier__0 _stx7361_)) + _g9543_)) + ((##fx= _g9542_ 2) + (apply (lambda (_stx7367_ _phi7368_) + (gx#resolve-identifier__1 _stx7367_ _phi7368_)) + _g9543_)) + ((##fx= _g9542_ 3) + (apply (lambda (_stx7372_ _phi7373_ _ctx7374_) + (gx#resolve-identifier__% + _stx7372_ + _phi7373_ + _ctx7374_)) + _g9543_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g9352_)))))) + _g9543_)))))) (define gx#bind-identifier!__% - (lambda (_stx7117_ _val7118_ _rebind?7119_ _phi7120_ _ctx7121_) - (let ((_rebind?7123_ - (if (not _rebind?7119_) + (lambda (_stx7308_ _val7309_ _rebind?7310_ _phi7311_ _ctx7312_) + (let ((_rebind?7314_ + (if (not _rebind?7310_) gx#core-context-rebind? - (if (procedure? _rebind?7119_) _rebind?7119_ true)))) + (if (procedure? _rebind?7310_) _rebind?7310_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _stx7117_) - _val7118_ - _rebind?7123_ - _phi7120_ - _ctx7121_)))) + (gx#core-identifier-key _stx7308_) + _val7309_ + _rebind?7314_ + _phi7311_ + _ctx7312_)))) (define gx#bind-identifier!__0 - (lambda (_stx7128_ _val7129_) - (let* ((_rebind?7131_ '#f) - (_phi7133_ (gx#current-expander-phi)) - (_ctx7135_ (gx#current-expander-context))) + (lambda (_stx7319_ _val7320_) + (let* ((_rebind?7322_ '#f) + (_phi7324_ (gx#current-expander-phi)) + (_ctx7326_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx7128_ - _val7129_ - _rebind?7131_ - _phi7133_ - _ctx7135_)))) + _stx7319_ + _val7320_ + _rebind?7322_ + _phi7324_ + _ctx7326_)))) (define gx#bind-identifier!__1 - (lambda (_stx7137_ _val7138_ _rebind?7139_) - (let* ((_phi7141_ (gx#current-expander-phi)) - (_ctx7143_ (gx#current-expander-context))) + (lambda (_stx7328_ _val7329_ _rebind?7330_) + (let* ((_phi7332_ (gx#current-expander-phi)) + (_ctx7334_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx7137_ - _val7138_ - _rebind?7139_ - _phi7141_ - _ctx7143_)))) + _stx7328_ + _val7329_ + _rebind?7330_ + _phi7332_ + _ctx7334_)))) (define gx#bind-identifier!__2 - (lambda (_stx7145_ _val7146_ _rebind?7147_ _phi7148_) - (let ((_ctx7150_ (gx#current-expander-context))) + (lambda (_stx7336_ _val7337_ _rebind?7338_ _phi7339_) + (let ((_ctx7341_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx7145_ - _val7146_ - _rebind?7147_ - _phi7148_ - _ctx7150_)))) + _stx7336_ + _val7337_ + _rebind?7338_ + _phi7339_ + _ctx7341_)))) (define gx#bind-identifier! - (lambda _g9354_ - (let ((_g9353_ (##length _g9354_))) - (cond ((##fx= _g9353_ 2) (apply gx#bind-identifier!__0 _g9354_)) - ((##fx= _g9353_ 3) (apply gx#bind-identifier!__1 _g9354_)) - ((##fx= _g9353_ 4) (apply gx#bind-identifier!__2 _g9354_)) - ((##fx= _g9353_ 5) (apply gx#bind-identifier!__% _g9354_)) + (lambda _g9545_ + (let ((_g9544_ (##length _g9545_))) + (cond ((##fx= _g9544_ 2) + (apply (lambda (_stx7319_ _val7320_) + (gx#bind-identifier!__0 _stx7319_ _val7320_)) + _g9545_)) + ((##fx= _g9544_ 3) + (apply (lambda (_stx7328_ _val7329_ _rebind?7330_) + (gx#bind-identifier!__1 + _stx7328_ + _val7329_ + _rebind?7330_)) + _g9545_)) + ((##fx= _g9544_ 4) + (apply (lambda (_stx7336_ _val7337_ _rebind?7338_ _phi7339_) + (gx#bind-identifier!__2 + _stx7336_ + _val7337_ + _rebind?7338_ + _phi7339_)) + _g9545_)) + ((##fx= _g9544_ 5) + (apply (lambda (_stx7343_ + _val7344_ + _rebind?7345_ + _phi7346_ + _ctx7347_) + (gx#bind-identifier!__% + _stx7343_ + _val7344_ + _rebind?7345_ + _phi7346_ + _ctx7347_)) + _g9545_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g9354_)))))) + _g9545_)))))) (define gx#core-resolve-identifier__% - (lambda (_stx7089_ _phi7090_ _ctx7091_) - (let _lp7093_ ((_e7095_ _stx7089_) - (_marks7096_ (gx#current-expander-marks))) - (if (symbol? _e7095_) + (lambda (_stx7280_ _phi7281_ _ctx7282_) + (let _lp7284_ ((_e7286_ _stx7280_) + (_marks7287_ (gx#current-expander-marks))) + (if (symbol? _e7286_) (gx#core-resolve-binding - _e7095_ - _phi7090_ - _phi7090_ - _ctx7091_ - (reverse _marks7096_)) - (if (gx#identifier-quote? _e7095_) + _e7286_ + _phi7281_ + _phi7281_ + _ctx7282_ + (reverse _marks7287_)) + (if (gx#identifier-quote? _e7286_) (gx#core-resolve-binding - (##unchecked-structure-ref _e7095_ '1 gx#AST::t '#f) - _phi7090_ + (##unchecked-structure-ref _e7286_ '1 gx#AST::t '#f) + _phi7281_ '0 (##unchecked-structure-ref - _e7095_ + _e7286_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _e7095_ + _e7286_ '4 gx#syntax-quote::t '#f)) (if (##structure-direct-instance-of? - _e7095_ + _e7286_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _e7095_ '1 gx#AST::t '#f) - _phi7090_ - _phi7090_ - _ctx7091_ + (##unchecked-structure-ref _e7286_ '1 gx#AST::t '#f) + _phi7281_ + _phi7281_ + _ctx7282_ (foldl1 gx#apply-mark (##unchecked-structure-ref - _e7095_ + _e7286_ '3 gx#identifier-wrap::t '#f) - _marks7096_)) + _marks7287_)) (if (##structure-direct-instance-of? - _e7095_ + _e7286_ 'gx#syntax-wrap::t) - (_lp7093_ - (##unchecked-structure-ref _e7095_ '1 gx#AST::t '#f) + (_lp7284_ + (##unchecked-structure-ref _e7286_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e7095_ + _e7286_ '3 gx#syntax-wrap::t '#f) - _marks7096_)) - (if (##structure-instance-of? _e7095_ 'gerbil#AST::t) - (_lp7093_ + _marks7287_)) + (if (##structure-instance-of? _e7286_ 'gerbil#AST::t) + (_lp7284_ (##unchecked-structure-ref - _e7095_ + _e7286_ '1 gx#AST::t '#f) - _marks7096_) + _marks7287_) (gx#raise-syntax-error '#f '"Bad identifier" - _stx7089_))))))))) + _stx7280_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_stx7101_) - (let* ((_phi7103_ (gx#current-expander-phi)) - (_ctx7105_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% _stx7101_ _phi7103_ _ctx7105_)))) + (lambda (_stx7292_) + (let* ((_phi7294_ (gx#current-expander-phi)) + (_ctx7296_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx7292_ _phi7294_ _ctx7296_)))) (define gx#core-resolve-identifier__1 - (lambda (_stx7107_ _phi7108_) - (let ((_ctx7110_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% _stx7107_ _phi7108_ _ctx7110_)))) + (lambda (_stx7298_ _phi7299_) + (let ((_ctx7301_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx7298_ _phi7299_ _ctx7301_)))) (define gx#core-resolve-identifier - (lambda _g9356_ - (let ((_g9355_ (##length _g9356_))) - (cond ((##fx= _g9355_ 1) - (apply gx#core-resolve-identifier__0 _g9356_)) - ((##fx= _g9355_ 2) - (apply gx#core-resolve-identifier__1 _g9356_)) - ((##fx= _g9355_ 3) - (apply gx#core-resolve-identifier__% _g9356_)) + (lambda _g9547_ + (let ((_g9546_ (##length _g9547_))) + (cond ((##fx= _g9546_ 1) + (apply (lambda (_stx7292_) + (gx#core-resolve-identifier__0 _stx7292_)) + _g9547_)) + ((##fx= _g9546_ 2) + (apply (lambda (_stx7298_ _phi7299_) + (gx#core-resolve-identifier__1 _stx7298_ _phi7299_)) + _g9547_)) + ((##fx= _g9546_ 3) + (apply (lambda (_stx7303_ _phi7304_ _ctx7305_) + (gx#core-resolve-identifier__% + _stx7303_ + _phi7304_ + _ctx7305_)) + _g9547_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g9356_)))))) + _g9547_)))))) (define gx#core-resolve-binding - (lambda (_id7002_ _phi7003_ _src-phi7004_ _ctx7005_ _marks7006_) - (letrec ((_resolve7008_ - (lambda (_ctx7076_ _src-phi7077_ _key7078_) - (let _lp7080_ ((_ctx7082_ + (lambda (_id7193_ _phi7194_ _src-phi7195_ _ctx7196_ _marks7197_) + (letrec ((_resolve7199_ + (lambda (_ctx7267_ _src-phi7268_ _key7269_) + (let _lp7271_ ((_ctx7273_ (gx#core-context-shift - _ctx7076_ - _phi7003_)) - (_dphi7083_ (fx- _phi7003_ _src-phi7077_))) - (let ((_$e7085_ - (gx#core-context-resolve _ctx7082_ _key7078_))) - (if _$e7085_ - (values _$e7085_) - (if (fxzero? _dphi7083_) + _ctx7267_ + _phi7194_)) + (_dphi7274_ (fx- _phi7194_ _src-phi7268_))) + (let ((_$e7276_ + (gx#core-context-resolve _ctx7273_ _key7269_))) + (if _$e7276_ + (values _$e7276_) + (if (fxzero? _dphi7274_) '#f - (if (fxpositive? _dphi7083_) - (_lp7080_ - (gx#core-context-shift _ctx7082_ '-1) - (fx- _dphi7083_ '1)) - (_lp7080_ - (gx#core-context-shift _ctx7082_ '1) - (fx+ _dphi7083_ '1)))))))))) - (let _lp7010_ ((_ctx7012_ _ctx7005_) - (_src-phi7013_ _src-phi7004_) - (_rest7014_ _marks7006_)) - (let* ((_rest70157023_ _rest7014_) - (_else70177031_ + (if (fxpositive? _dphi7274_) + (_lp7271_ + (gx#core-context-shift _ctx7273_ '-1) + (fx- _dphi7274_ '1)) + (_lp7271_ + (gx#core-context-shift _ctx7273_ '1) + (fx+ _dphi7274_ '1)))))))))) + (let _lp7201_ ((_ctx7203_ _ctx7196_) + (_src-phi7204_ _src-phi7195_) + (_rest7205_ _marks7197_)) + (let* ((_rest72067214_ _rest7205_) + (_else72087222_ (lambda () - (_resolve7008_ _ctx7012_ _src-phi7013_ _id7002_))) - (_K70197064_ - (lambda (_rest7034_ _hd7035_) - (let* ((_hd70367042_ _hd7035_) - (_E70387046_ + (_resolve7199_ _ctx7203_ _src-phi7204_ _id7193_))) + (_K72107255_ + (lambda (_rest7225_ _hd7226_) + (let* ((_hd72277233_ _hd7226_) + (_E72297237_ (lambda () - (error '"No clause matching" _hd70367042_))) - (_K70397056_ - (lambda (_subst7049_) - (let ((_$e7053_ - (let ((_key7051_ - (if _subst7049_ + (error '"No clause matching" _hd72277233_))) + (_K72307247_ + (lambda (_subst7240_) + (let ((_$e7244_ + (let ((_key7242_ + (if _subst7240_ (table-ref - _subst7049_ - _id7002_ + _subst7240_ + _id7193_ '#f) '#f))) - (if _key7051_ - (_resolve7008_ - _ctx7012_ - _src-phi7013_ - _key7051_) + (if _key7242_ + (_resolve7199_ + _ctx7203_ + _src-phi7204_ + _key7242_) '#f)))) - (if _$e7053_ - _$e7053_ - (_lp7010_ + (if _$e7244_ + _$e7244_ + (_lp7201_ (##unchecked-structure-ref - _hd7035_ + _hd7226_ '2 gx#expander-mark::t '#f) (##unchecked-structure-ref - _hd7035_ + _hd7226_ '3 gx#expander-mark::t '#f) - _rest7034_)))))) + _rest7225_)))))) (if (##structure-instance-of? - _hd70367042_ + _hd72277233_ 'gx#expander-mark::t) - (let* ((_e70407059_ (##vector-ref _hd70367042_ '1)) - (_subst7062_ _e70407059_)) - (_K70397056_ _subst7062_)) - (_E70387046_)))))) - (if (##pair? _rest70157023_) - (let ((_hd70207067_ (##car _rest70157023_)) - (_tl70217069_ (##cdr _rest70157023_))) - (let* ((_hd7072_ _hd70207067_) (_rest7074_ _tl70217069_)) - (_K70197064_ _rest7074_ _hd7072_))) - (_else70177031_))))))) + (let* ((_e72317250_ (##vector-ref _hd72277233_ '1)) + (_subst7253_ _e72317250_)) + (_K72307247_ _subst7253_)) + (_E72297237_)))))) + (if (##pair? _rest72067214_) + (let ((_hd72117258_ (##car _rest72067214_)) + (_tl72127260_ (##cdr _rest72067214_))) + (let* ((_hd7263_ _hd72117258_) (_rest7265_ _tl72127260_)) + (_K72107255_ _rest7265_ _hd7263_))) + (_else72087222_))))))) (define gx#core-bind!__% - (lambda (_key6878_ _val6879_ _rebind?6880_ _phi6881_ _ctx6882_) - (letrec ((_update-binding6884_ - (lambda (_xval6955_) - (if (or (_rebind?6880_ _ctx6882_ _xval6955_ _val6879_) + (lambda (_key7069_ _val7070_ _rebind?7071_ _phi7072_ _ctx7073_) + (letrec ((_update-binding7075_ + (lambda (_xval7146_) + (if (or (_rebind?7071_ _ctx7073_ _xval7146_ _val7070_) (and (##structure-direct-instance-of? - _xval6955_ + _xval7146_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _xval6955_ + _xval7146_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _val6879_ + _val7070_ 'gx#binding::t) (not (##structure-direct-instance-of? - _val6879_ + _val7070_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _xval6955_ + _xval7146_ 'gx#extern-binding::t) (##structure-instance-of? - _val6879_ + _val7070_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _val6879_ + _val7070_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval6955_ + _xval7146_ '1 gx#binding::t '#f)))) - _val6879_ + _val7070_ (if (and (##structure-direct-instance-of? - _val6879_ + _val7070_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _val6879_ + _val7070_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _xval6955_ + _xval7146_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _val6879_ + _val7070_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval6955_ + _xval7146_ '1 gx#binding::t '#f))))) - _xval6955_ + _xval7146_ (if (and (##structure-direct-instance-of? - _val6879_ + _val7070_ 'gx#import-binding::t) (##structure-instance-of? - _xval6955_ + _xval7146_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _key6878_ + _key7069_ (cons (##unchecked-structure-ref - _val6879_ + _val7070_ '1 gx#binding::t '#f) (cons (##structure-ref (##unchecked-structure-ref - _val6879_ + _val7070_ '5 gx#import-binding::t '#f) @@ -1983,720 +2118,813 @@ '#f) '())) (cons (##unchecked-structure-ref - _xval6955_ + _xval7146_ '1 gx#binding::t '#f) (cons (if (##structure-direct-instance-of? - _xval6955_ + _xval7146_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _xval6955_ + _xval7146_ '5 gx#import-binding::t '#f) '1 gx#expander-context::t '#f) - _xval6955_) + _xval7146_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _key6878_ - _val6879_ - _xval6955_)))))) - (_gensubst6885_ - (lambda (_subst6950_ _id6951_) - (let ((_eid6953_ - (gensym (if (uninterned-symbol? _id6951_) + _key7069_ + _val7070_ + _xval7146_)))))) + (_gensubst7076_ + (lambda (_subst7141_ _id7142_) + (let ((_eid7144_ + (gensym (if (uninterned-symbol? _id7142_) '% - _id6951_)))) - (table-set! _subst6950_ _id6951_ _eid6953_) - _eid6953_))) - (_subst!6886_ - (lambda (_key6888_) - (let* ((_key68896897_ _key6888_) - (_else68916905_ (lambda () _key6888_)) - (_K68936938_ - (lambda (_mark6908_ _id6909_) - (let* ((_mark69106916_ _mark6908_) - (_E69126920_ + _id7142_)))) + (table-set! _subst7141_ _id7142_ _eid7144_) + _eid7144_))) + (_subst!7077_ + (lambda (_key7079_) + (let* ((_key70807088_ _key7079_) + (_else70827096_ (lambda () _key7079_)) + (_K70847129_ + (lambda (_mark7099_ _id7100_) + (let* ((_mark71017107_ _mark7099_) + (_E71037111_ (lambda () (error '"No clause matching" - _mark69106916_))) - (_K69136930_ - (lambda (_subst6923_) - (if (not _subst6923_) - (let ((_subst6925_ + _mark71017107_))) + (_K71047121_ + (lambda (_subst7114_) + (if (not _subst7114_) + (let ((_subst7116_ (make-table 'test: eq?))) (##unchecked-structure-set! - _mark6908_ - _subst6925_ + _mark7099_ + _subst7116_ '1 gx#expander-mark::t '#f) - (_gensubst6885_ - _subst6925_ - _id6909_)) - (let ((_$e6927_ + (_gensubst7076_ + _subst7116_ + _id7100_)) + (let ((_$e7118_ (table-ref - _subst6923_ - _id6909_ + _subst7114_ + _id7100_ '#f))) - (if _$e6927_ - (values _$e6927_) - (_gensubst6885_ - _subst6923_ - _id6909_))))))) + (if _$e7118_ + (values _$e7118_) + (_gensubst7076_ + _subst7114_ + _id7100_))))))) (if (##structure-instance-of? - _mark69106916_ + _mark71017107_ 'gx#expander-mark::t) - (let* ((_e69146933_ - (##vector-ref _mark69106916_ '1)) - (_subst6936_ _e69146933_)) - (_K69136930_ _subst6936_)) - (_E69126920_)))))) - (if (##pair? _key68896897_) - (let ((_hd68946941_ (##car _key68896897_)) - (_tl68956943_ (##cdr _key68896897_))) - (let* ((_id6946_ _hd68946941_) - (_mark6948_ _tl68956943_)) - (_K68936938_ _mark6948_ _id6946_))) - (_else68916905_)))))) + (let* ((_e71057124_ + (##vector-ref _mark71017107_ '1)) + (_subst7127_ _e71057124_)) + (_K71047121_ _subst7127_)) + (_E71037111_)))))) + (if (##pair? _key70807088_) + (let ((_hd70857132_ (##car _key70807088_)) + (_tl70867134_ (##cdr _key70807088_))) + (let* ((_id7137_ _hd70857132_) + (_mark7139_ _tl70867134_)) + (_K70847129_ _mark7139_ _id7137_))) + (_else70827096_)))))) (gx#core-context-bind! - (gx#core-context-shift _ctx6882_ _phi6881_) - (_subst!6886_ _key6878_) - _val6879_ - _update-binding6884_)))) + (gx#core-context-shift _ctx7073_ _phi7072_) + (_subst!7077_ _key7069_) + _val7070_ + _update-binding7075_)))) (define gx#core-bind!__0 - (lambda (_key6972_ _val6973_) - (let* ((_rebind?6975_ false) - (_phi6977_ (gx#current-expander-phi)) - (_ctx6979_ (gx#current-expander-context))) + (lambda (_key7163_ _val7164_) + (let* ((_rebind?7166_ false) + (_phi7168_ (gx#current-expander-phi)) + (_ctx7170_ (gx#current-expander-context))) (gx#core-bind!__% - _key6972_ - _val6973_ - _rebind?6975_ - _phi6977_ - _ctx6979_)))) + _key7163_ + _val7164_ + _rebind?7166_ + _phi7168_ + _ctx7170_)))) (define gx#core-bind!__1 - (lambda (_key6981_ _val6982_ _rebind?6983_) - (let* ((_phi6985_ (gx#current-expander-phi)) - (_ctx6987_ (gx#current-expander-context))) + (lambda (_key7172_ _val7173_ _rebind?7174_) + (let* ((_phi7176_ (gx#current-expander-phi)) + (_ctx7178_ (gx#current-expander-context))) (gx#core-bind!__% - _key6981_ - _val6982_ - _rebind?6983_ - _phi6985_ - _ctx6987_)))) + _key7172_ + _val7173_ + _rebind?7174_ + _phi7176_ + _ctx7178_)))) (define gx#core-bind!__2 - (lambda (_key6989_ _val6990_ _rebind?6991_ _phi6992_) - (let ((_ctx6994_ (gx#current-expander-context))) + (lambda (_key7180_ _val7181_ _rebind?7182_ _phi7183_) + (let ((_ctx7185_ (gx#current-expander-context))) (gx#core-bind!__% - _key6989_ - _val6990_ - _rebind?6991_ - _phi6992_ - _ctx6994_)))) + _key7180_ + _val7181_ + _rebind?7182_ + _phi7183_ + _ctx7185_)))) (define gx#core-bind! - (lambda _g9358_ - (let ((_g9357_ (##length _g9358_))) - (cond ((##fx= _g9357_ 2) (apply gx#core-bind!__0 _g9358_)) - ((##fx= _g9357_ 3) (apply gx#core-bind!__1 _g9358_)) - ((##fx= _g9357_ 4) (apply gx#core-bind!__2 _g9358_)) - ((##fx= _g9357_ 5) (apply gx#core-bind!__% _g9358_)) + (lambda _g9549_ + (let ((_g9548_ (##length _g9549_))) + (cond ((##fx= _g9548_ 2) + (apply (lambda (_key7163_ _val7164_) + (gx#core-bind!__0 _key7163_ _val7164_)) + _g9549_)) + ((##fx= _g9548_ 3) + (apply (lambda (_key7172_ _val7173_ _rebind?7174_) + (gx#core-bind!__1 _key7172_ _val7173_ _rebind?7174_)) + _g9549_)) + ((##fx= _g9548_ 4) + (apply (lambda (_key7180_ _val7181_ _rebind?7182_ _phi7183_) + (gx#core-bind!__2 + _key7180_ + _val7181_ + _rebind?7182_ + _phi7183_)) + _g9549_)) + ((##fx= _g9548_ 5) + (apply (lambda (_key7187_ + _val7188_ + _rebind?7189_ + _phi7190_ + _ctx7191_) + (gx#core-bind!__% + _key7187_ + _val7188_ + _rebind?7189_ + _phi7190_ + _ctx7191_)) + _g9549_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g9358_)))))) + _g9549_)))))) (define gx#core-identifier-key - (lambda (_stx6812_) - (if (symbol? _stx6812_) - (let* ((_g68136821_ (gx#current-expander-marks)) - (_else68156829_ (lambda () _stx6812_)) - (_K68176834_ (lambda (_hd6832_) (cons _stx6812_ _hd6832_)))) - (if (##pair? _g68136821_) - (let* ((_hd68186837_ (##car _g68136821_)) - (_hd6840_ _hd68186837_)) - (_K68176834_ _hd6840_)) - (_else68156829_))) - (if (gx#identifier? _stx6812_) - (let* ((_id6842_ (gx#syntax-local-unwrap _stx6812_)) - (_eid6844_ (gx#stx-e _id6842_)) - (_marks6846_ (gx#stx-identifier-marks* _id6842_))) - (let* ((_marks68486856_ _marks6846_) - (_else68506864_ (lambda () _eid6844_)) - (_K68526869_ - (lambda (_hd6867_) (cons _eid6844_ _hd6867_)))) - (if (##pair? _marks68486856_) - (let* ((_hd68536872_ (##car _marks68486856_)) - (_hd6875_ _hd68536872_)) - (_K68526869_ _hd6875_)) - (_else68506864_)))) - (gx#raise-syntax-error '#f '"Bad identifier" _stx6812_))))) + (lambda (_stx7003_) + (if (symbol? _stx7003_) + (let* ((_g70047012_ (gx#current-expander-marks)) + (_else70067020_ (lambda () _stx7003_)) + (_K70087025_ (lambda (_hd7023_) (cons _stx7003_ _hd7023_)))) + (if (##pair? _g70047012_) + (let* ((_hd70097028_ (##car _g70047012_)) + (_hd7031_ _hd70097028_)) + (_K70087025_ _hd7031_)) + (_else70067020_))) + (if (gx#identifier? _stx7003_) + (let* ((_id7033_ (gx#syntax-local-unwrap _stx7003_)) + (_eid7035_ (gx#stx-e _id7033_)) + (_marks7037_ (gx#stx-identifier-marks* _id7033_))) + (let* ((_marks70397047_ _marks7037_) + (_else70417055_ (lambda () _eid7035_)) + (_K70437060_ + (lambda (_hd7058_) (cons _eid7035_ _hd7058_)))) + (if (##pair? _marks70397047_) + (let* ((_hd70447063_ (##car _marks70397047_)) + (_hd7066_ _hd70447063_)) + (_K70437060_ _hd7066_)) + (_else70417055_)))) + (gx#raise-syntax-error '#f '"Bad identifier" _stx7003_))))) (define gx#core-context-shift - (lambda (_ctx6757_ _phi6758_) - (letrec ((_make-phi6760_ - (lambda (_super6810_) - (let ((__obj9329 (make-object gx#phi-context::t '5))) + (lambda (_ctx6948_ _phi6949_) + (letrec ((_make-phi6951_ + (lambda (_super7001_) + (let ((__obj9520 (make-object gx#phi-context::t '5))) (gx#phi-context:::init!__% - __obj9329 + __obj9520 (gensym 'phi) - _super6810_) - __obj9329))) - (_make-phi/up6761_ - (lambda (_ctx6805_ _super6806_) - (let ((_ctx+16808_ (_make-phi6760_ _super6806_))) + _super7001_) + __obj9520))) + (_make-phi/up6952_ + (lambda (_ctx6996_ _super6997_) + (let ((_ctx+16999_ (_make-phi6951_ _super6997_))) (##unchecked-structure-set! - _ctx6805_ - _ctx+16808_ + _ctx6996_ + _ctx+16999_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx+16808_ - _ctx6805_ + _ctx+16999_ + _ctx6996_ '5 gx#phi-context::t '#f) - _ctx+16808_))) - (_make-phi/down6762_ - (lambda (_ctx6800_ _super6801_) - (let ((_ctx-16803_ (_make-phi6760_ _super6801_))) + _ctx+16999_))) + (_make-phi/down6953_ + (lambda (_ctx6991_ _super6992_) + (let ((_ctx-16994_ (_make-phi6951_ _super6992_))) (##unchecked-structure-set! - _ctx-16803_ - _ctx6800_ + _ctx-16994_ + _ctx6991_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx6800_ - _ctx-16803_ + _ctx6991_ + _ctx-16994_ '5 gx#phi-context::t '#f) - _ctx-16803_))) - (_shift6763_ - (lambda (_ctx6784_ - _delta6785_ - _make-delta-context6786_ - _phi6787_ - _K6788_) - (let ((_$e6790_ + _ctx-16994_))) + (_shift6954_ + (lambda (_ctx6975_ + _delta6976_ + _make-delta-context6977_ + _phi6978_ + _K6979_) + (let ((_$e6981_ (##unchecked-structure-ref - _ctx6784_ + _ctx6975_ '3 gx#phi-context::t '#f))) - (if _$e6790_ - ((lambda (_super6793_) - (let* ((_super6795_ - (_K6788_ _super6793_ _delta6785_)) - (_ctx+d6797_ - (_make-delta-context6786_ - _ctx6784_ - _super6795_))) - (_K6788_ _ctx+d6797_ - (fx- _phi6787_ _delta6785_)))) - _$e6790_) - (error '"Bad context" _ctx6784_)))))) - (let _K6765_ ((_ctx6767_ _ctx6757_) (_phi6768_ _phi6758_)) - (if (fxzero? _phi6768_) - _ctx6767_ - (if (fx> (##vector-length _ctx6767_) '3) - (if (fxpositive? _phi6768_) - (let ((_$e6770_ + (if _$e6981_ + ((lambda (_super6984_) + (let* ((_super6986_ + (_K6979_ _super6984_ _delta6976_)) + (_ctx+d6988_ + (_make-delta-context6977_ + _ctx6975_ + _super6986_))) + (_K6979_ _ctx+d6988_ + (fx- _phi6978_ _delta6976_)))) + _$e6981_) + (error '"Bad context" _ctx6975_)))))) + (let _K6956_ ((_ctx6958_ _ctx6948_) (_phi6959_ _phi6949_)) + (if (fxzero? _phi6959_) + _ctx6958_ + (if (fx> (##vector-length _ctx6958_) '3) + (if (fxpositive? _phi6959_) + (let ((_$e6961_ (##unchecked-structure-ref - _ctx6767_ + _ctx6958_ '4 gx#phi-context::t '#f))) - (if _$e6770_ - ((lambda (_g67726774_) - (_K6765_ _g67726774_ (fx- _phi6768_ '1))) - _$e6770_) - (_shift6763_ - _ctx6767_ + (if _$e6961_ + ((lambda (_g69636965_) + (_K6956_ _g69636965_ (fx- _phi6959_ '1))) + _$e6961_) + (_shift6954_ + _ctx6958_ '1 - _make-phi/up6761_ - _phi6768_ - _K6765_))) - (let ((_$e6777_ + _make-phi/up6952_ + _phi6959_ + _K6956_))) + (let ((_$e6968_ (##unchecked-structure-ref - _ctx6767_ + _ctx6958_ '5 gx#phi-context::t '#f))) - (if _$e6777_ - ((lambda (_g67796781_) - (_K6765_ _g67796781_ (fx+ _phi6768_ '1))) - _$e6777_) - (_shift6763_ - _ctx6767_ + (if _$e6968_ + ((lambda (_g69706972_) + (_K6956_ _g69706972_ (fx+ _phi6959_ '1))) + _$e6968_) + (_shift6954_ + _ctx6958_ '-1 - _make-phi/down6762_ - _phi6768_ - _K6765_)))) - _ctx6767_)))))) + _make-phi/down6953_ + _phi6959_ + _K6956_)))) + _ctx6958_)))))) (define gx#core-context-get - (lambda (_ctx6754_ _key6755_) + (lambda (_ctx6945_ _key6946_) (table-ref - (##unchecked-structure-ref _ctx6754_ '2 gx#expander-context::t '#f) - _key6755_ + (##unchecked-structure-ref _ctx6945_ '2 gx#expander-context::t '#f) + _key6946_ '#f))) (define gx#core-context-put! - (lambda (_ctx6750_ _key6751_ _val6752_) + (lambda (_ctx6941_ _key6942_ _val6943_) (table-set! - (##unchecked-structure-ref _ctx6750_ '2 gx#expander-context::t '#f) - _key6751_ - _val6752_))) + (##unchecked-structure-ref _ctx6941_ '2 gx#expander-context::t '#f) + _key6942_ + _val6943_))) (define gx#core-context-resolve - (lambda (_ctx6737_ _key6738_) - (let _lp6740_ ((_ctx6742_ _ctx6737_)) - (let ((_$e6744_ (gx#core-context-get _ctx6742_ _key6738_))) - (if _$e6744_ - (values _$e6744_) - (let ((_$e6747_ - (if (fx> (##vector-length _ctx6742_) '3) + (lambda (_ctx6928_ _key6929_) + (let _lp6931_ ((_ctx6933_ _ctx6928_)) + (let ((_$e6935_ (gx#core-context-get _ctx6933_ _key6929_))) + (if _$e6935_ + (values _$e6935_) + (let ((_$e6938_ + (if (fx> (##vector-length _ctx6933_) '3) (##unchecked-structure-ref - _ctx6742_ + _ctx6933_ '3 gx#phi-context::t '#f) '#f))) - (if _$e6747_ (_lp6740_ _$e6747_) '#f))))))) + (if _$e6938_ (_lp6931_ _$e6938_) '#f))))))) (define gx#core-context-bind! - (lambda (_ctx6727_ _key6728_ _val6729_ _rebind6730_) - (let ((_$e6732_ (gx#core-context-get _ctx6727_ _key6728_))) - (if _$e6732_ - ((lambda (_xval6735_) + (lambda (_ctx6918_ _key6919_ _val6920_ _rebind6921_) + (let ((_$e6923_ (gx#core-context-get _ctx6918_ _key6919_))) + (if _$e6923_ + ((lambda (_xval6926_) (gx#core-context-put! - _ctx6727_ - _key6728_ - (_rebind6730_ _xval6735_))) - _$e6732_) - (gx#core-context-put! _ctx6727_ _key6728_ _val6729_))))) + _ctx6918_ + _key6919_ + (_rebind6921_ _xval6926_))) + _$e6923_) + (gx#core-context-put! _ctx6918_ _key6919_ _val6920_))))) (define gx#core-context-top__% - (lambda (_ctx6705_ _stop?6706_) - (let _lp6708_ ((_ctx6710_ _ctx6705_)) - (if (_stop?6706_ _ctx6710_) - _ctx6710_ - (if (##structure-instance-of? _ctx6710_ 'gx#context-phi::t) - (_lp6708_ + (lambda (_ctx6896_ _stop?6897_) + (let _lp6899_ ((_ctx6901_ _ctx6896_)) + (if (_stop?6897_ _ctx6901_) + _ctx6901_ + (if (##structure-instance-of? _ctx6901_ 'gx#context-phi::t) + (_lp6899_ (##unchecked-structure-ref - _ctx6710_ + _ctx6901_ '3 gx#phi-context::t '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_ctx6716_ (gx#current-expander-context)) - (_stop?6718_ gx#top-context?)) - (gx#core-context-top__% _ctx6716_ _stop?6718_)))) + (let* ((_ctx6907_ (gx#current-expander-context)) + (_stop?6909_ gx#top-context?)) + (gx#core-context-top__% _ctx6907_ _stop?6909_)))) (define gx#core-context-top__1 - (lambda (_ctx6720_) - (let ((_stop?6722_ gx#top-context?)) - (gx#core-context-top__% _ctx6720_ _stop?6722_)))) + (lambda (_ctx6911_) + (let ((_stop?6913_ gx#top-context?)) + (gx#core-context-top__% _ctx6911_ _stop?6913_)))) (define gx#core-context-top - (lambda _g9360_ - (let ((_g9359_ (##length _g9360_))) - (cond ((##fx= _g9359_ 0) (apply gx#core-context-top__0 _g9360_)) - ((##fx= _g9359_ 1) (apply gx#core-context-top__1 _g9360_)) - ((##fx= _g9359_ 2) (apply gx#core-context-top__% _g9360_)) + (lambda _g9551_ + (let ((_g9550_ (##length _g9551_))) + (cond ((##fx= _g9550_ 0) + (apply (lambda () (gx#core-context-top__0)) _g9551_)) + ((##fx= _g9550_ 1) + (apply (lambda (_ctx6911_) (gx#core-context-top__1 _ctx6911_)) + _g9551_)) + ((##fx= _g9550_ 2) + (apply (lambda (_ctx6915_ _stop?6916_) + (gx#core-context-top__% _ctx6915_ _stop?6916_)) + _g9551_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g9360_)))))) + _g9551_)))))) (define gx#core-context-root__% - (lambda (_ctx6690_) - (let _lp6692_ ((_ctx6694_ _ctx6690_)) - (if (##structure-instance-of? _ctx6694_ 'gx#context-phi::t) - (_lp6692_ - (##unchecked-structure-ref _ctx6694_ '3 gx#phi-context::t '#f)) - _ctx6694_)))) + (lambda (_ctx6881_) + (let _lp6883_ ((_ctx6885_ _ctx6881_)) + (if (##structure-instance-of? _ctx6885_ 'gx#context-phi::t) + (_lp6883_ + (##unchecked-structure-ref _ctx6885_ '3 gx#phi-context::t '#f)) + _ctx6885_)))) (define gx#core-context-root__0 (lambda () - (let ((_ctx6700_ (gx#current-expander-context))) - (gx#core-context-root__% _ctx6700_)))) + (let ((_ctx6891_ (gx#current-expander-context))) + (gx#core-context-root__% _ctx6891_)))) (define gx#core-context-root - (lambda _g9362_ - (let ((_g9361_ (##length _g9362_))) - (cond ((##fx= _g9361_ 0) (apply gx#core-context-root__0 _g9362_)) - ((##fx= _g9361_ 1) (apply gx#core-context-root__% _g9362_)) + (lambda _g9553_ + (let ((_g9552_ (##length _g9553_))) + (cond ((##fx= _g9552_ 0) + (apply (lambda () (gx#core-context-root__0)) _g9553_)) + ((##fx= _g9552_ 1) + (apply (lambda (_ctx6893_) + (gx#core-context-root__% _ctx6893_)) + _g9553_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g9362_)))))) + _g9553_)))))) (define gx#core-context-rebind?__% - (lambda (_ctx6671_ . __66686672_) - (let ((_$e6675_ (gx#current-expander-allow-rebind?))) - (if _$e6675_ - _$e6675_ - (if (##structure-instance-of? _ctx6671_ 'gx#top-context::t) + (lambda (_ctx6862_ . __68596863_) + (let ((_$e6866_ (gx#current-expander-allow-rebind?))) + (if _$e6866_ + _$e6866_ + (if (##structure-instance-of? _ctx6862_ 'gx#top-context::t) (if (not (##structure-instance-of? - _ctx6671_ + _ctx6862_ 'gx#module-context::t)) (not (##structure-instance-of? - _ctx6671_ + _ctx6862_ 'gx#prelude-context::t)) '#f) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_ctx6682_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _ctx6682_)))) + (let ((_ctx6873_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _ctx6873_)))) (define gx#core-context-rebind? - (lambda _g9364_ - (let ((_g9363_ (##length _g9364_))) - (cond ((##fx= _g9363_ 0) (apply gx#core-context-rebind?__0 _g9364_)) - ((##fx= _g9363_ 1) (apply gx#core-context-rebind?__% _g9364_)) - ((##fx>= _g9363_ 1) (apply gx#core-context-rebind?__% _g9364_)) + (lambda _g9555_ + (let ((_g9554_ (##length _g9555_))) + (cond ((##fx= _g9554_ 0) + (apply (lambda () (gx#core-context-rebind?__0)) _g9555_)) + ((##fx= _g9554_ 1) + (apply (lambda (_ctx6875_) + (gx#core-context-rebind?__% _ctx6875_)) + _g9555_)) + ((##fx>= _g9554_ 1) (apply gx#core-context-rebind?__% _g9555_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g9364_)))))) + _g9555_)))))) (define gx#core-context-namespace__% - (lambda (_ctx6654_) - (let ((_$e6656_ (gx#core-context-top__1 _ctx6654_))) - (if _$e6656_ - ((lambda (_ctx6659_) - (if (##structure-instance-of? _ctx6659_ 'gx#module-context::t) + (lambda (_ctx6845_) + (let ((_$e6847_ (gx#core-context-top__1 _ctx6845_))) + (if _$e6847_ + ((lambda (_ctx6850_) + (if (##structure-instance-of? _ctx6850_ 'gx#module-context::t) (##unchecked-structure-ref - _ctx6659_ + _ctx6850_ '6 gx#module-context::t '#f) '#f)) - _$e6656_) + _$e6847_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_ctx6665_ (gx#current-expander-context))) - (gx#core-context-namespace__% _ctx6665_)))) + (let ((_ctx6856_ (gx#current-expander-context))) + (gx#core-context-namespace__% _ctx6856_)))) (define gx#core-context-namespace - (lambda _g9366_ - (let ((_g9365_ (##length _g9366_))) - (cond ((##fx= _g9365_ 0) - (apply gx#core-context-namespace__0 _g9366_)) - ((##fx= _g9365_ 1) - (apply gx#core-context-namespace__% _g9366_)) + (lambda _g9557_ + (let ((_g9556_ (##length _g9557_))) + (cond ((##fx= _g9556_ 0) + (apply (lambda () (gx#core-context-namespace__0)) _g9557_)) + ((##fx= _g9556_ 1) + (apply (lambda (_ctx6858_) + (gx#core-context-namespace__% _ctx6858_)) + _g9557_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g9366_)))))) + _g9557_)))))) (define gx#expander-binding?__% - (lambda (_bind6640_ _is?6641_) - (if (##structure-direct-instance-of? _bind6640_ 'gx#syntax-binding::t) - (_is?6641_ + (lambda (_bind6831_ _is?6832_) + (if (##structure-direct-instance-of? _bind6831_ 'gx#syntax-binding::t) + (_is?6832_ (##unchecked-structure-ref - _bind6640_ + _bind6831_ '4 gx#syntax-binding::t '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_bind6646_) - (let ((_is?6648_ gx#expander?)) - (gx#expander-binding?__% _bind6646_ _is?6648_)))) + (lambda (_bind6837_) + (let ((_is?6839_ gx#expander?)) + (gx#expander-binding?__% _bind6837_ _is?6839_)))) (define gx#expander-binding? - (lambda _g9368_ - (let ((_g9367_ (##length _g9368_))) - (cond ((##fx= _g9367_ 1) (apply gx#expander-binding?__0 _g9368_)) - ((##fx= _g9367_ 2) (apply gx#expander-binding?__% _g9368_)) + (lambda _g9559_ + (let ((_g9558_ (##length _g9559_))) + (cond ((##fx= _g9558_ 1) + (apply (lambda (_bind6837_) + (gx#expander-binding?__0 _bind6837_)) + _g9559_)) + ((##fx= _g9558_ 2) + (apply (lambda (_bind6841_ _is?6842_) + (gx#expander-binding?__% _bind6841_ _is?6842_)) + _g9559_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g9368_)))))) + _g9559_)))))) (define gx#core-expander-binding? - (lambda (_bind6637_) - (gx#expander-binding?__% _bind6637_ gx#core-expander?))) + (lambda (_bind6828_) + (gx#expander-binding?__% _bind6828_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_bind6635_) - (gx#expander-binding?__% _bind6635_ gx#expression-form?))) + (lambda (_bind6826_) + (gx#expander-binding?__% _bind6826_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_bind6629_) - (letrec ((_direct-special-form?6631_ - (lambda (_obj6633_) + (lambda (_bind6820_) + (letrec ((_direct-special-form?6822_ + (lambda (_obj6824_) (##structure-direct-instance-of? - _obj6633_ + _obj6824_ (##type-id gx#special-form::t))))) - (gx#expander-binding?__% _bind6629_ _direct-special-form?6631_)))) + (gx#expander-binding?__% _bind6820_ _direct-special-form?6822_)))) (define gx#special-form-binding? - (lambda (_bind6627_) - (gx#expander-binding?__% _bind6627_ gx#special-form?))) + (lambda (_bind6818_) + (gx#expander-binding?__% _bind6818_ gx#special-form?))) (define gx#feature-binding? - (lambda (_bind6618_) - (letrec ((_feature?6620_ - (lambda (_e6622_) - (let ((_$e6624_ + (lambda (_bind6809_) + (letrec ((_feature?6811_ + (lambda (_e6813_) + (let ((_$e6815_ (##structure-instance-of? - _e6622_ + _e6813_ 'gx#feature-expander::t))) - (if _$e6624_ - _$e6624_ + (if _$e6815_ + _$e6815_ (##structure-instance-of? - _e6622_ + _e6813_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _bind6618_ _feature?6620_)))) + (gx#expander-binding?__% _bind6809_ _feature?6811_)))) (define gx#private-feature-binding? - (lambda (_bind6616_) - (gx#expander-binding?__% _bind6616_ gx#private-feature-expander?))) + (lambda (_bind6807_) + (gx#expander-binding?__% _bind6807_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_id6603_ _bound?6604_) - (if (gx#identifier? _id6603_) - (_bound?6604_ (gx#resolve-identifier__0 _id6603_)) + (lambda (_id6794_ _bound?6795_) + (if (gx#identifier? _id6794_) + (_bound?6795_ (gx#resolve-identifier__0 _id6794_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_id6609_) - (let ((_bound?6611_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _id6609_ _bound?6611_)))) + (lambda (_id6800_) + (let ((_bound?6802_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _id6800_ _bound?6802_)))) (define gx#core-bound-identifier? - (lambda _g9370_ - (let ((_g9369_ (##length _g9370_))) - (cond ((##fx= _g9369_ 1) - (apply gx#core-bound-identifier?__0 _g9370_)) - ((##fx= _g9369_ 2) - (apply gx#core-bound-identifier?__% _g9370_)) + (lambda _g9561_ + (let ((_g9560_ (##length _g9561_))) + (cond ((##fx= _g9560_ 1) + (apply (lambda (_id6800_) + (gx#core-bound-identifier?__0 _id6800_)) + _g9561_)) + ((##fx= _g9560_ 2) + (apply (lambda (_id6804_ _bound?6805_) + (gx#core-bound-identifier?__% _id6804_ _bound?6805_)) + _g9561_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g9370_)))))) + _g9561_)))))) (define gx#core-identifier=? - (lambda (_x6593_ _y6594_) - (letrec ((_y=?6596_ - (lambda (_xid6600_) - ((if (list? _y6594_) memq eq?) _xid6600_ _y6594_)))) - (let ((_bind6598_ (gx#resolve-identifier__0 _x6593_))) - (if (##structure-instance-of? _bind6598_ 'gx#binding::t) - (_y=?6596_ - (##unchecked-structure-ref _bind6598_ '1 gx#binding::t '#f)) - (_y=?6596_ (gx#stx-e _x6593_))))))) + (lambda (_x6784_ _y6785_) + (letrec ((_y=?6787_ + (lambda (_xid6791_) + ((if (list? _y6785_) memq eq?) _xid6791_ _y6785_)))) + (let ((_bind6789_ (gx#resolve-identifier__0 _x6784_))) + (if (##structure-instance-of? _bind6789_ 'gx#binding::t) + (_y=?6787_ + (##unchecked-structure-ref _bind6789_ '1 gx#binding::t '#f)) + (_y=?6787_ (gx#stx-e _x6784_))))))) (define gx#core-extern-symbol? - (lambda (_e6591_) - (if (interned-symbol? _e6591_) - (string-index (symbol->string _e6591_) '#\#) + (lambda (_e6782_) + (if (interned-symbol? _e6782_) + (string-index (symbol->string _e6782_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_stx6546_ _src6547_ _ctx6548_ _marks6549_) - (if (##structure? _stx6546_) - (let ((_$e6551_ (gx#sealed-syntax-unwrap _stx6546_))) - (if _$e6551_ - (values _$e6551_) - (if (gx#identifier? _stx6546_) - (let ((_id6554_ - (gx#stx-unwrap__% _stx6546_ _marks6549_))) + (lambda (_stx6737_ _src6738_ _ctx6739_ _marks6740_) + (if (##structure? _stx6737_) + (let ((_$e6742_ (gx#sealed-syntax-unwrap _stx6737_))) + (if _$e6742_ + (values _$e6742_) + (if (gx#identifier? _stx6737_) + (let ((_id6745_ + (gx#stx-unwrap__% _stx6737_ _marks6740_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _id6554_ '1 gx#AST::t '#f) - (let ((_$e6556_ + (##unchecked-structure-ref _id6745_ '1 gx#AST::t '#f) + (let ((_$e6747_ (##unchecked-structure-ref - _id6554_ + _id6745_ '2 gx#AST::t '#f))) - (if _$e6556_ _$e6556_ _src6547_)) - _ctx6548_ + (if _$e6747_ _$e6747_ _src6738_)) + _ctx6739_ (##unchecked-structure-ref - _id6554_ + _id6745_ '3 gx#identifier-wrap::t '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _stx6546_) - (let ((_$e6559_ (gx#stx-source _stx6546_))) - (if _$e6559_ _$e6559_ _src6547_)) - _ctx6548_ - (reverse _marks6549_))))) + (gx#stx-e _stx6737_) + (let ((_$e6750_ (gx#stx-source _stx6737_))) + (if _$e6750_ _$e6750_ _src6738_)) + _ctx6739_ + (reverse _marks6740_))))) (##structure gx#syntax-quote::t - _stx6546_ - _src6547_ - _ctx6548_ - (reverse _marks6549_))))) + _stx6737_ + _src6738_ + _ctx6739_ + (reverse _marks6740_))))) (define gx#core-quote-syntax__0 - (lambda (_stx6565_) - (let* ((_src6567_ '#f) - (_ctx6569_ (gx#current-expander-context)) - (_marks6571_ (gx#current-expander-marks))) + (lambda (_stx6756_) + (let* ((_src6758_ '#f) + (_ctx6760_ (gx#current-expander-context)) + (_marks6762_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx6565_ - _src6567_ - _ctx6569_ - _marks6571_)))) + _stx6756_ + _src6758_ + _ctx6760_ + _marks6762_)))) (define gx#core-quote-syntax__1 - (lambda (_stx6573_ _src6574_) - (let* ((_ctx6576_ (gx#current-expander-context)) - (_marks6578_ (gx#current-expander-marks))) + (lambda (_stx6764_ _src6765_) + (let* ((_ctx6767_ (gx#current-expander-context)) + (_marks6769_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx6573_ - _src6574_ - _ctx6576_ - _marks6578_)))) + _stx6764_ + _src6765_ + _ctx6767_ + _marks6769_)))) (define gx#core-quote-syntax__2 - (lambda (_stx6580_ _src6581_ _ctx6582_) - (let ((_marks6584_ (gx#current-expander-marks))) + (lambda (_stx6771_ _src6772_ _ctx6773_) + (let ((_marks6775_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx6580_ - _src6581_ - _ctx6582_ - _marks6584_)))) + _stx6771_ + _src6772_ + _ctx6773_ + _marks6775_)))) (define gx#core-quote-syntax - (lambda _g9372_ - (let ((_g9371_ (##length _g9372_))) - (cond ((##fx= _g9371_ 1) (apply gx#core-quote-syntax__0 _g9372_)) - ((##fx= _g9371_ 2) (apply gx#core-quote-syntax__1 _g9372_)) - ((##fx= _g9371_ 3) (apply gx#core-quote-syntax__2 _g9372_)) - ((##fx= _g9371_ 4) (apply gx#core-quote-syntax__% _g9372_)) + (lambda _g9563_ + (let ((_g9562_ (##length _g9563_))) + (cond ((##fx= _g9562_ 1) + (apply (lambda (_stx6756_) + (gx#core-quote-syntax__0 _stx6756_)) + _g9563_)) + ((##fx= _g9562_ 2) + (apply (lambda (_stx6764_ _src6765_) + (gx#core-quote-syntax__1 _stx6764_ _src6765_)) + _g9563_)) + ((##fx= _g9562_ 3) + (apply (lambda (_stx6771_ _src6772_ _ctx6773_) + (gx#core-quote-syntax__2 + _stx6771_ + _src6772_ + _ctx6773_)) + _g9563_)) + ((##fx= _g9562_ 4) + (apply (lambda (_stx6777_ _src6778_ _ctx6779_ _marks6780_) + (gx#core-quote-syntax__% + _stx6777_ + _src6778_ + _ctx6779_ + _marks6780_)) + _g9563_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g9372_)))))) + _g9563_)))))) (define gx#core-cons - (lambda (_hd6542_ _tl6543_) - (cons (gx#core-quote-syntax__0 _hd6542_) _tl6543_))) + (lambda (_hd6733_ _tl6734_) + (cons (gx#core-quote-syntax__0 _hd6733_) _tl6734_))) (define gx#core-list - (lambda (_hd6539_ . _rest6540_) - (cons (gx#core-quote-syntax__0 _hd6539_) _rest6540_))) + (lambda (_hd6730_ . _rest6731_) + (cons (gx#core-quote-syntax__0 _hd6730_) _rest6731_))) (define gx#core-cons* - (lambda (_hd6536_ . _rest6537_) - (apply cons* (gx#core-quote-syntax__0 _hd6536_) _rest6537_))) + (lambda (_hd6727_ . _rest6728_) + (apply cons* (gx#core-quote-syntax__0 _hd6727_) _rest6728_))) (define gx#core-resolve-path__% - (lambda (_stx-path6510_ _rel6511_) - (let ((_path6523_ (gx#stx-e _stx-path6510_)) - (_reldir6524_ - (let _lp6513_ ((_relsrc6515_ - (let ((_$e6520_ (gx#stx-source _stx-path6510_))) - (if _$e6520_ _$e6520_ _rel6511_)))) - (if (##structure-instance-of? _relsrc6515_ 'gerbil#AST::t) - (_lp6513_ - (let ((_$e6517_ (gx#stx-source _relsrc6515_))) - (if _$e6517_ _$e6517_ (gx#stx-e _relsrc6515_)))) - (if (source-location-path? _relsrc6515_) - (path-directory (source-location-path _relsrc6515_)) - (if (string? _relsrc6515_) - (path-directory _relsrc6515_) + (lambda (_stx-path6701_ _rel6702_) + (let ((_path6714_ (gx#stx-e _stx-path6701_)) + (_reldir6715_ + (let _lp6704_ ((_relsrc6706_ + (let ((_$e6711_ (gx#stx-source _stx-path6701_))) + (if _$e6711_ _$e6711_ _rel6702_)))) + (if (##structure-instance-of? _relsrc6706_ 'gerbil#AST::t) + (_lp6704_ + (let ((_$e6708_ (gx#stx-source _relsrc6706_))) + (if _$e6708_ _$e6708_ (gx#stx-e _relsrc6706_)))) + (if (source-location-path? _relsrc6706_) + (path-directory (source-location-path _relsrc6706_)) + (if (string? _relsrc6706_) + (path-directory _relsrc6706_) (if (not (null? (gx#current-expander-path))) (path-directory (car (gx#current-expander-path))) (current-directory)))))))) - (path-expand _path6523_ (path-normalize _reldir6524_))))) + (path-expand _path6714_ (path-normalize _reldir6715_))))) (define gx#core-resolve-path__0 - (lambda (_stx-path6529_) - (let ((_rel6531_ '#f)) - (gx#core-resolve-path__% _stx-path6529_ _rel6531_)))) + (lambda (_stx-path6720_) + (let ((_rel6722_ '#f)) + (gx#core-resolve-path__% _stx-path6720_ _rel6722_)))) (define gx#core-resolve-path - (lambda _g9374_ - (let ((_g9373_ (##length _g9374_))) - (cond ((##fx= _g9373_ 1) (apply gx#core-resolve-path__0 _g9374_)) - ((##fx= _g9373_ 2) (apply gx#core-resolve-path__% _g9374_)) + (lambda _g9565_ + (let ((_g9564_ (##length _g9565_))) + (cond ((##fx= _g9564_ 1) + (apply (lambda (_stx-path6720_) + (gx#core-resolve-path__0 _stx-path6720_)) + _g9565_)) + ((##fx= _g9564_ 2) + (apply (lambda (_stx-path6724_ _rel6725_) + (gx#core-resolve-path__% _stx-path6724_ _rel6725_)) + _g9565_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g9374_)))))) + _g9565_)))))) (define gx#core-deserialize-mark__% - (lambda (_repr6466_ _ctx6467_) - (let* ((_repr64686475_ _repr6466_) - (_E64706479_ - (lambda () (error '"No clause matching" _repr64686475_))) - (_K64716487_ - (lambda (_subs6482_ _phi6483_) - (let ((_subst6485_ - (if (not (null? _subs6482_)) - (list->table _subs6482_ 'test: eq?) + (lambda (_repr6657_ _ctx6658_) + (let* ((_repr66596666_ _repr6657_) + (_E66616670_ + (lambda () (error '"No clause matching" _repr66596666_))) + (_K66626678_ + (lambda (_subs6673_ _phi6674_) + (let ((_subst6676_ + (if (not (null? _subs6673_)) + (list->table _subs6673_ 'test: eq?) '#f))) (##structure gx#expander-mark::t - _subst6485_ - _ctx6467_ - _phi6483_ + _subst6676_ + _ctx6658_ + _phi6674_ '#f))))) - (if (##pair? _repr64686475_) - (let ((_hd64726490_ (##car _repr64686475_)) - (_tl64736492_ (##cdr _repr64686475_))) - (let* ((_phi6495_ _hd64726490_) (_subs6497_ _tl64736492_)) - (_K64716487_ _subs6497_ _phi6495_))) - (_E64706479_))))) + (if (##pair? _repr66596666_) + (let ((_hd66636681_ (##car _repr66596666_)) + (_tl66646683_ (##cdr _repr66596666_))) + (let* ((_phi6686_ _hd66636681_) (_subs6688_ _tl66646683_)) + (_K66626678_ _subs6688_ _phi6686_))) + (_E66616670_))))) (define gx#core-deserialize-mark__0 - (lambda (_repr6502_) - (let ((_ctx6504_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _repr6502_ _ctx6504_)))) + (lambda (_repr6693_) + (let ((_ctx6695_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _repr6693_ _ctx6695_)))) (define gx#core-deserialize-mark - (lambda _g9376_ - (let ((_g9375_ (##length _g9376_))) - (cond ((##fx= _g9375_ 1) (apply gx#core-deserialize-mark__0 _g9376_)) - ((##fx= _g9375_ 2) (apply gx#core-deserialize-mark__% _g9376_)) + (lambda _g9567_ + (let ((_g9566_ (##length _g9567_))) + (cond ((##fx= _g9566_ 1) + (apply (lambda (_repr6693_) + (gx#core-deserialize-mark__0 _repr6693_)) + _g9567_)) + ((##fx= _g9566_ 2) + (apply (lambda (_repr6697_ _ctx6698_) + (gx#core-deserialize-mark__% _repr6697_ _ctx6698_)) + _g9567_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g9376_)))))) + _g9567_)))))) (define gx#syntax-local-rewrap - (lambda (_stx6463_) - (gx#stx-rewrap _stx6463_ (gx#current-expander-marks)))) + (lambda (_stx6654_) + (gx#stx-rewrap _stx6654_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_stx6461_) - (gx#stx-unwrap__% _stx6461_ (gx#current-expander-marks)))) + (lambda (_stx6652_) + (gx#stx-unwrap__% _stx6652_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_stx6431_) - (let* ((_g64326440_ (gx#current-expander-marks)) - (_else64346448_ (lambda () _stx6431_)) - (_K64366453_ - (lambda (_hd6451_) (gx#stx-apply-mark _stx6431_ _hd6451_)))) - (if (##pair? _g64326440_) - (let* ((_hd64376456_ (##car _g64326440_)) - (_hd6459_ _hd64376456_)) - (_K64366453_ _hd6459_)) - (_else64346448_))))) + (lambda (_stx6622_) + (let* ((_g66236631_ (gx#current-expander-marks)) + (_else66256639_ (lambda () _stx6622_)) + (_K66276644_ + (lambda (_hd6642_) (gx#stx-apply-mark _stx6622_ _hd6642_)))) + (if (##pair? _g66236631_) + (let* ((_hd66286647_ (##car _g66236631_)) + (_hd6650_ _hd66286647_)) + (_K66276644_ _hd6650_)) + (_else66256639_))))) (define gx#syntax-local-e__% - (lambda (_stx6416_ _E6417_) - (let ((_bind6419_ (gx#resolve-identifier__0 _stx6416_))) + (lambda (_stx6607_ _E6608_) + (let ((_bind6610_ (gx#resolve-identifier__0 _stx6607_))) (if (##structure-direct-instance-of? - _bind6419_ + _bind6610_ 'gx#syntax-binding::t) (##unchecked-structure-ref - _bind6419_ + _bind6610_ '4 gx#syntax-binding::t '#f) - (_E6417_ _stx6416_))))) + (_E6608_ _stx6607_))))) (define gx#syntax-local-e__0 - (lambda (_stx6424_) - (let ((_E6426_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _stx6424_ _E6426_)))) + (lambda (_stx6615_) + (let ((_E6617_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _stx6615_ _E6617_)))) (define gx#syntax-local-e - (lambda _g9378_ - (let ((_g9377_ (##length _g9378_))) - (cond ((##fx= _g9377_ 1) (apply gx#syntax-local-e__0 _g9378_)) - ((##fx= _g9377_ 2) (apply gx#syntax-local-e__% _g9378_)) + (lambda _g9569_ + (let ((_g9568_ (##length _g9569_))) + (cond ((##fx= _g9568_ 1) + (apply (lambda (_stx6615_) (gx#syntax-local-e__0 _stx6615_)) + _g9569_)) + ((##fx= _g9568_ 2) + (apply (lambda (_stx6619_ _E6620_) + (gx#syntax-local-e__% _stx6619_ _E6620_)) + _g9569_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g9378_)))))) + _g9569_)))))) (define gx#syntax-local-value__% - (lambda (_stx6400_ _E6401_) - (let ((_e6403_ (gx#syntax-local-e__% _stx6400_ _E6401_))) - (if (##structure-instance-of? _e6403_ 'gx#expander::t) - (##structure-ref _e6403_ '1 gx#expander::t '#f) - _e6403_)))) + (lambda (_stx6591_ _E6592_) + (let ((_e6594_ (gx#syntax-local-e__% _stx6591_ _E6592_))) + (if (##structure-instance-of? _e6594_ 'gx#expander::t) + (##structure-ref _e6594_ '1 gx#expander::t '#f) + _e6594_)))) (define gx#syntax-local-value__0 - (lambda (_stx6408_) - (let ((_E6410_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _stx6408_ _E6410_)))) + (lambda (_stx6599_) + (let ((_E6601_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _stx6599_ _E6601_)))) (define gx#syntax-local-value - (lambda _g9380_ - (let ((_g9379_ (##length _g9380_))) - (cond ((##fx= _g9379_ 1) (apply gx#syntax-local-value__0 _g9380_)) - ((##fx= _g9379_ 2) (apply gx#syntax-local-value__% _g9380_)) + (lambda _g9571_ + (let ((_g9570_ (##length _g9571_))) + (cond ((##fx= _g9570_ 1) + (apply (lambda (_stx6599_) + (gx#syntax-local-value__0 _stx6599_)) + _g9571_)) + ((##fx= _g9570_ 2) + (apply (lambda (_stx6603_ _E6604_) + (gx#syntax-local-value__% _stx6603_ _E6604_)) + _g9571_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g9380_)))))) + _g9571_)))))) (define gx#raise-syntax-ref-error - (lambda (_stx6397_) + (lambda (_stx6588_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _stx6397_))))) + _stx6588_))))) diff --git a/src/bootstrap/gerbil/expander/core__1.scm b/src/bootstrap/gerbil/expander/core__1.scm index 78fea5488..f42507742 100644 --- a/src/bootstrap/gerbil/expander/core__1.scm +++ b/src/bootstrap/gerbil/expander/core__1.scm @@ -1,1164 +1,1164 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g9381_| + (define |gx[1]#_g9572_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9382_| + (define |gx[1]#_g9581_| (##structure gx#syntax-quote::t - 'make-expander-context + 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9383_| + (define |gx[1]#_g9583_| (##structure gx#syntax-quote::t - 'expander-context? + 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9384_| + (define |gx[1]#_g9587_| (##structure gx#syntax-quote::t - 'expander-context-id + 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g9385_| + (define |gx[1]#_g9589_| (##structure gx#syntax-quote::t - 'expander-context-table + 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g9386_| + (define |gx[1]#_g9591_| (##structure gx#syntax-quote::t - 'expander-context-id-set! + 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9387_| + (define |gx[1]#_g9593_| (##structure gx#syntax-quote::t - 'expander-context-table-set! + 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9388_| + (define |gx[1]#_g9595_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9389_| + (define |gx[1]#_g9602_| (##structure gx#syntax-quote::t - 'make-root-context + 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9390_| + (define |gx[1]#_g9604_| (##structure gx#syntax-quote::t - 'root-context? + 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9391_| + (define |gx[1]#_g9607_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9392_| + (define |gx[1]#_g9608_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9393_| + (define |gx[1]#_g9618_| (##structure gx#syntax-quote::t - 'make-phi-context + 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9394_| + (define |gx[1]#_g9620_| (##structure gx#syntax-quote::t - 'phi-context? + 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9395_| + (define |gx[1]#_g9622_| (##structure gx#syntax-quote::t - 'phi-context-super + 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9396_| + (define |gx[1]#_g9627_| (##structure gx#syntax-quote::t - 'phi-context-up + 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g9397_| + (define |gx[1]#_g9629_| (##structure gx#syntax-quote::t - 'phi-context-down + 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g9398_| + (define |gx[1]#_g9631_| (##structure gx#syntax-quote::t - 'phi-context-super-set! + 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g9399_| + (define |gx[1]#_g9633_| (##structure gx#syntax-quote::t - 'phi-context-up-set! + 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9400_| + (define |gx[1]#_g9635_| (##structure gx#syntax-quote::t - 'phi-context-down-set! + 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9401_| + (define |gx[1]#_g9638_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9402_| + (define |gx[1]#_g9645_| (##structure gx#syntax-quote::t - 'make-top-context + 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9403_| + (define |gx[1]#_g9647_| (##structure gx#syntax-quote::t - 'top-context? + 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9404_| + (define |gx[1]#_g9650_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9405_| + (define |gx[1]#_g9651_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9406_| + (define |gx[1]#_g9664_| (##structure gx#syntax-quote::t - 'make-module-context + 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9407_| + (define |gx[1]#_g9666_| (##structure gx#syntax-quote::t - 'module-context? + 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9408_| + (define |gx[1]#_g9668_| (##structure gx#syntax-quote::t - 'module-context-ns + 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9409_| + (define |gx[1]#_g9670_| (##structure gx#syntax-quote::t - 'module-context-path + 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9410_| + (define |gx[1]#_g9672_| (##structure gx#syntax-quote::t - 'module-context-import + 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9411_| + (define |gx[1]#_g9674_| (##structure gx#syntax-quote::t - 'module-context-export + 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9412_| + (define |gx[1]#_g9682_| (##structure gx#syntax-quote::t - 'module-context-e + 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g9413_| + (define |gx[1]#_g9684_| (##structure gx#syntax-quote::t - 'module-context-code + 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g9414_| + (define |gx[1]#_g9686_| (##structure gx#syntax-quote::t - 'module-context-ns-set! + 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g9415_| + (define |gx[1]#_g9688_| (##structure gx#syntax-quote::t - 'module-context-path-set! + 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g9416_| + (define |gx[1]#_g9690_| (##structure gx#syntax-quote::t - 'module-context-import-set! + 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g9417_| + (define |gx[1]#_g9692_| (##structure gx#syntax-quote::t - 'module-context-export-set! + 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g9418_| + (define |gx[1]#_g9694_| (##structure gx#syntax-quote::t - 'module-context-e-set! + 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9419_| + (define |gx[1]#_g9696_| (##structure gx#syntax-quote::t - 'module-context-code-set! + 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9420_| + (define |gx[1]#_g9699_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9421_| + (define |gx[1]#_g9700_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9422_| + (define |gx[1]#_g9710_| (##structure gx#syntax-quote::t - 'make-prelude-context + 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9423_| + (define |gx[1]#_g9712_| (##structure gx#syntax-quote::t - 'prelude-context? + 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9424_| + (define |gx[1]#_g9714_| (##structure gx#syntax-quote::t - 'prelude-context-path + 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9425_| + (define |gx[1]#_g9719_| (##structure gx#syntax-quote::t - 'prelude-context-import + 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g9426_| + (define |gx[1]#_g9721_| (##structure gx#syntax-quote::t - 'prelude-context-e + 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g9427_| + (define |gx[1]#_g9723_| (##structure gx#syntax-quote::t - 'prelude-context-path-set! + 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g9428_| + (define |gx[1]#_g9725_| (##structure gx#syntax-quote::t - 'prelude-context-import-set! + 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9429_| + (define |gx[1]#_g9727_| (##structure gx#syntax-quote::t - 'prelude-context-e-set! + 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9430_| + (define |gx[1]#_g9730_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9431_| + (define |gx[1]#_g9737_| (##structure gx#syntax-quote::t - 'make-local-context + 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9432_| + (define |gx[1]#_g9739_| (##structure gx#syntax-quote::t - 'local-context? + 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9433_| + (define |gx[1]#_g9742_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9434_| + (define |gx[1]#_g9752_| (##structure gx#syntax-quote::t - 'make-binding + 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9435_| + (define |gx[1]#_g9754_| (##structure gx#syntax-quote::t - 'binding? + 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9436_| + (define |gx[1]#_g9756_| (##structure gx#syntax-quote::t - 'binding-id + 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9437_| + (define |gx[1]#_g9761_| (##structure gx#syntax-quote::t - 'binding-key + 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g9438_| + (define |gx[1]#_g9763_| (##structure gx#syntax-quote::t - 'binding-phi + 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g9439_| + (define |gx[1]#_g9765_| (##structure gx#syntax-quote::t - 'binding-id-set! + 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g9440_| + (define |gx[1]#_g9767_| (##structure gx#syntax-quote::t - 'binding-key-set! + 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9441_| + (define |gx[1]#_g9769_| (##structure gx#syntax-quote::t - 'binding-phi-set! + 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9442_| + (define |gx[1]#_g9771_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9443_| + (define |gx[1]#_g9778_| (##structure gx#syntax-quote::t - 'make-runtime-binding + 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9444_| + (define |gx[1]#_g9780_| (##structure gx#syntax-quote::t - 'runtime-binding? + 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9445_| + (define |gx[1]#_g9783_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9446_| + (define |gx[1]#_g9784_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9447_| + (define |gx[1]#_g9791_| (##structure gx#syntax-quote::t - 'make-local-binding + 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9448_| + (define |gx[1]#_g9793_| (##structure gx#syntax-quote::t - 'local-binding? + 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9449_| + (define |gx[1]#_g9796_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9450_| + (define |gx[1]#_g9797_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9451_| + (define |gx[1]#_g9804_| (##structure gx#syntax-quote::t - 'make-top-binding + 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9452_| + (define |gx[1]#_g9806_| (##structure gx#syntax-quote::t - 'top-binding? + 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9453_| + (define |gx[1]#_g9809_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9454_| + (define |gx[1]#_g9817_| (##structure gx#syntax-quote::t - 'make-module-binding + 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9455_| + (define |gx[1]#_g9820_| (##structure gx#syntax-quote::t - 'module-binding? + 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9456_| + (define |gx[1]#_g9822_| (##structure gx#syntax-quote::t - 'module-binding-context + 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9457_| + (define |gx[1]#_g9824_| (##structure gx#syntax-quote::t - 'module-binding-context-set! + 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9458_| + (define |gx[1]#_g9827_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9459_| + (define |gx[1]#_g9828_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9460_| + (define |gx[1]#_g9835_| (##structure gx#syntax-quote::t - 'make-extern-binding + 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9461_| + (define |gx[1]#_g9837_| (##structure gx#syntax-quote::t - 'extern-binding? + 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9462_| + (define |gx[1]#_g9840_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9463_| + (define |gx[1]#_g9848_| (##structure gx#syntax-quote::t - 'make-syntax-binding + 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9464_| + (define |gx[1]#_g9851_| (##structure gx#syntax-quote::t - 'syntax-binding? + 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g9465_| + (define |gx[1]#_g9853_| (##structure gx#syntax-quote::t - 'syntax-binding-e + 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9466_| + (define |gx[1]#_g9855_| (##structure gx#syntax-quote::t - 'syntax-binding-e-set! + 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9467_| + (define |gx[1]#_g9858_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9468_| + (define |gx[1]#_g9868_| (##structure gx#syntax-quote::t - 'make-import-binding + 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9469_| + (define |gx[1]#_g9870_| (##structure gx#syntax-quote::t - 'import-binding? + 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9470_| + (define |gx[1]#_g9872_| (##structure gx#syntax-quote::t - 'import-binding-e + 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9471_| + (define |gx[1]#_g9877_| (##structure gx#syntax-quote::t - 'import-binding-context + 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9472_| + (define |gx[1]#_g9879_| (##structure gx#syntax-quote::t - 'import-binding-weak? + 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9473_| + (define |gx[1]#_g9881_| (##structure gx#syntax-quote::t - 'import-binding-e-set! + 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g9474_| + (define |gx[1]#_g9883_| (##structure gx#syntax-quote::t - 'import-binding-context-set! + 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9475_| + (define |gx[1]#_g9885_| (##structure gx#syntax-quote::t - 'import-binding-weak?-set! + 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9476_| + (define |gx[1]#_g9888_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9477_| + (define |gx[1]#_g9896_| (##structure gx#syntax-quote::t - 'make-alias-binding + 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9478_| + (define |gx[1]#_g9899_| (##structure gx#syntax-quote::t - 'alias-binding? + 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g9479_| + (define |gx[1]#_g9901_| (##structure gx#syntax-quote::t - 'alias-binding-e + 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9480_| + (define |gx[1]#_g9903_| (##structure gx#syntax-quote::t - 'alias-binding-e-set! + 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g9481_| + (define |gx[1]#_g9906_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9482_| + (define |gx[1]#_g9914_| (##structure gx#syntax-quote::t - 'make-expander + 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9483_| + (define |gx[1]#_g9917_| (##structure gx#syntax-quote::t - 'expander? + 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g9484_| + (define |gx[1]#_g9919_| (##structure gx#syntax-quote::t - 'expander-e + 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9485_| + (define |gx[1]#_g9921_| (##structure gx#syntax-quote::t - 'expander-e-set! + 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9486_| + (define |gx[1]#_g9923_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9487_| + (define |gx[1]#_g9932_| (##structure gx#syntax-quote::t - 'make-core-expander + 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9488_| + (define |gx[1]#_g9934_| (##structure gx#syntax-quote::t - 'core-expander? + 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9489_| + (define |gx[1]#_g9938_| (##structure gx#syntax-quote::t - 'core-expander-id + 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g9490_| + (define |gx[1]#_g9940_| (##structure gx#syntax-quote::t - 'core-expander-compile-top + 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g9491_| + (define |gx[1]#_g9942_| (##structure gx#syntax-quote::t - 'core-expander-id-set! + 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9492_| + (define |gx[1]#_g9944_| (##structure gx#syntax-quote::t - 'core-expander-compile-top-set! + 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9493_| + (define |gx[1]#_g9947_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9494_| + (define |gx[1]#_g9948_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9495_| + (define |gx[1]#_g9955_| (##structure gx#syntax-quote::t - 'make-expression-form + 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9496_| + (define |gx[1]#_g9957_| (##structure gx#syntax-quote::t - 'expression-form? + 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g9497_| + (define |gx[1]#_g9960_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9498_| + (define |gx[1]#_g9961_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9499_| + (define |gx[1]#_g9968_| (##structure gx#syntax-quote::t - 'make-special-form + 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9500_| + (define |gx[1]#_g9970_| (##structure gx#syntax-quote::t - 'special-form? + 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g9501_| + (define |gx[1]#_g9973_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9502_| + (define |gx[1]#_g9980_| (##structure gx#syntax-quote::t - 'make-definition-form + 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9503_| + (define |gx[1]#_g9982_| (##structure gx#syntax-quote::t - 'definition-form? + 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g9504_| + (define |gx[1]#_g9985_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g9505_| + (define |gx[1]#_g9986_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9506_| + (define |gx[1]#_g9993_| (##structure gx#syntax-quote::t - 'make-top-special-form + 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9507_| + (define |gx[1]#_g9995_| (##structure gx#syntax-quote::t - 'top-special-form? + 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g9508_| + (define |gx[1]#_g9998_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9509_| + (define |gx[1]#_g10005_| (##structure gx#syntax-quote::t - 'make-module-special-form + 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9510_| + (define |gx[1]#_g10007_| (##structure gx#syntax-quote::t - 'module-special-form? + 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g9511_| + (define |gx[1]#_g10010_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g9512_| + (define |gx[1]#_g10011_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9513_| + (define |gx[1]#_g10018_| (##structure gx#syntax-quote::t - 'make-feature-expander + 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9514_| + (define |gx[1]#_g10020_| (##structure gx#syntax-quote::t - 'feature-expander? + 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9515_| + (define |gx[1]#_g10023_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9516_| + (define |gx[1]#_g10030_| (##structure gx#syntax-quote::t - 'make-private-feature-expander + 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9517_| + (define |gx[1]#_g10032_| (##structure gx#syntax-quote::t - 'private-feature-expander? + 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9518_| + (define |gx[1]#_g10035_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9519_| + (define |gx[1]#_g10036_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9520_| + (define |gx[1]#_g10043_| (##structure gx#syntax-quote::t - 'make-reserved-expander + 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9521_| + (define |gx[1]#_g10045_| (##structure gx#syntax-quote::t - 'reserved-expander? + 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9522_| + (define |gx[1]#_g10048_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9523_| + (define |gx[1]#_g10055_| (##structure gx#syntax-quote::t - 'make-macro-expander + 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9524_| + (define |gx[1]#_g10057_| (##structure gx#syntax-quote::t - 'macro-expander? + 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9525_| + (define |gx[1]#_g10060_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9526_| + (define |gx[1]#_g10067_| (##structure gx#syntax-quote::t - 'make-rename-macro-expander + 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9527_| + (define |gx[1]#_g10069_| (##structure gx#syntax-quote::t - 'rename-macro-expander? + 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9528_| + (define |gx[1]#_g10072_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9529_| + (define |gx[1]#_g10073_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9530_| + (define |gx[1]#_g10082_| (##structure gx#syntax-quote::t - 'make-user-expander + 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9531_| + (define |gx[1]#_g10084_| (##structure gx#syntax-quote::t - 'user-expander? + 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9532_| + (define |gx[1]#_g10088_| (##structure gx#syntax-quote::t - 'user-expander-context + 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g9533_| + (define |gx[1]#_g10090_| (##structure gx#syntax-quote::t - 'user-expander-phi + 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9534_| + (define |gx[1]#_g10092_| (##structure gx#syntax-quote::t - 'user-expander-context-set! + 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9535_| + (define |gx[1]#_g10094_| (##structure gx#syntax-quote::t - 'user-expander-phi-set! + 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g9536_| + (define |gx[1]#_g10097_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g9537_| + (define |gx[1]#_g10108_| (##structure gx#syntax-quote::t - 'make-expander-mark + 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9538_| + (define |gx[1]#_g10110_| (##structure gx#syntax-quote::t - 'expander-mark? + 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9539_| + (define |gx[1]#_g10112_| (##structure gx#syntax-quote::t - 'expander-mark-subst + 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9540_| + (define |gx[1]#_g10114_| (##structure gx#syntax-quote::t - 'expander-mark-context + 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g9541_| + (define |gx[1]#_g10120_| (##structure gx#syntax-quote::t - 'expander-mark-phi + 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g9542_| + (define |gx[1]#_g10122_| (##structure gx#syntax-quote::t - 'expander-mark-trace + 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g9543_| + (define |gx[1]#_g10124_| (##structure gx#syntax-quote::t - 'expander-mark-subst-set! + 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g9544_| + (define |gx[1]#_g10126_| (##structure gx#syntax-quote::t - 'expander-mark-context-set! + 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g9545_| + (define |gx[1]#_g10128_| (##structure gx#syntax-quote::t - 'expander-mark-phi-set! + 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g9546_| + (define |gx[1]#_g10130_| (##structure gx#syntax-quote::t - 'expander-mark-trace-set! + 'make-expander-mark #f (gx#current-expander-context) '())) @@ -1166,17 +1166,49 @@ (define |gx[:0:]#expander-context| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9381_| + |gx[1]#_g9572_| 'expander-identifiers: - (cons '#f - (cons |gx[1]#_g9381_| - (cons |gx[1]#_g9382_| - (cons |gx[1]#_g9383_| - (cons (cons |gx[1]#_g9384_| - (cons |gx[1]#_g9385_| '())) - (cons (cons |gx[1]#_g9386_| - (cons |gx[1]#_g9387_| '())) - '())))))) + (let ((__tmp9573 + (let ((__tmp9594 |gx[1]#_g9572_|) + (__tmp9574 + (let ((__tmp9592 |gx[1]#_g9593_|) + (__tmp9575 + (let ((__tmp9590 |gx[1]#_g9591_|) + (__tmp9576 + (let ((__tmp9584 + (let ((__tmp9588 |gx[1]#_g9589_|) + (__tmp9585 + (let ((__tmp9586 + |gx[1]#_g9587_|)) + (declare (not safe)) + (cons __tmp9586 '())))) + (declare (not safe)) + (cons __tmp9588 __tmp9585))) + (__tmp9577 + (let ((__tmp9578 + (let ((__tmp9582 + |gx[1]#_g9583_|) + (__tmp9579 + (let ((__tmp9580 + |gx[1]#_g9581_|)) + (declare (not safe)) + (cons __tmp9580 + '())))) + (declare (not safe)) + (cons __tmp9582 + __tmp9579)))) + (declare (not safe)) + (cons __tmp9578 '())))) + (declare (not safe)) + (cons __tmp9584 __tmp9577)))) + (declare (not safe)) + (cons __tmp9590 __tmp9576)))) + (declare (not safe)) + (cons __tmp9592 __tmp9575)))) + (declare (not safe)) + (cons __tmp9594 __tmp9574)))) + (declare (not safe)) + (cons '#f __tmp9573)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#expander-context::t @@ -1188,16 +1220,34 @@ (define |gx[:0:]#root-context| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9388_| + |gx[1]#_g9595_| 'expander-identifiers: - (cons |gx[1]#_g9381_| - (cons |gx[1]#_g9388_| - (cons |gx[1]#_g9389_| - (cons |gx[1]#_g9390_| (cons '() (cons '() '())))))) + (let ((__tmp9606 |gx[1]#_g9572_|) + (__tmp9596 + (let ((__tmp9605 |gx[1]#_g9595_|) + (__tmp9597 + (let ((__tmp9603 |gx[1]#_g9604_|) + (__tmp9598 + (let ((__tmp9601 |gx[1]#_g9602_|) + (__tmp9599 + (let ((__tmp9600 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp9600)))) + (declare (not safe)) + (cons __tmp9601 __tmp9599)))) + (declare (not safe)) + (cons __tmp9603 __tmp9598)))) + (declare (not safe)) + (cons __tmp9605 __tmp9597)))) + (declare (not safe)) + (cons __tmp9606 __tmp9596)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#root-context::t - |gx[1]#_g9391_| + |gx[1]#_g9607_| 'root-context '#f '() @@ -1205,24 +1255,67 @@ (define |gx[:0:]#phi-context| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9392_| + |gx[1]#_g9608_| 'expander-identifiers: - (cons |gx[1]#_g9381_| - (cons |gx[1]#_g9392_| - (cons |gx[1]#_g9393_| - (cons |gx[1]#_g9394_| - (cons (cons |gx[1]#_g9395_| - (cons |gx[1]#_g9396_| - (cons |gx[1]#_g9397_| '()))) - (cons (cons |gx[1]#_g9398_| - (cons |gx[1]#_g9399_| - (cons |gx[1]#_g9400_| - '()))) - '())))))) + (let ((__tmp9637 |gx[1]#_g9572_|) + (__tmp9609 + (let ((__tmp9636 |gx[1]#_g9608_|) + (__tmp9610 + (let ((__tmp9634 |gx[1]#_g9635_|) + (__tmp9611 + (let ((__tmp9632 |gx[1]#_g9633_|) + (__tmp9612 + (let ((__tmp9623 + (let ((__tmp9630 |gx[1]#_g9631_|) + (__tmp9624 + (let ((__tmp9628 + |gx[1]#_g9629_|) + (__tmp9625 + (let ((__tmp9626 + |gx[1]#_g9627_|)) + (declare (not safe)) + (cons __tmp9626 + '())))) + (declare (not safe)) + (cons __tmp9628 + __tmp9625)))) + (declare (not safe)) + (cons __tmp9630 __tmp9624))) + (__tmp9613 + (let ((__tmp9614 + (let ((__tmp9621 + |gx[1]#_g9622_|) + (__tmp9615 + (let ((__tmp9619 + |gx[1]#_g9620_|) + (__tmp9616 + (let ((__tmp9617 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gx[1]#_g9618_|)) + (declare (not safe)) + (cons __tmp9617 '())))) + (declare (not safe)) + (cons __tmp9619 __tmp9616)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp9621 + __tmp9615)))) + (declare (not safe)) + (cons __tmp9614 '())))) + (declare (not safe)) + (cons __tmp9623 __tmp9613)))) + (declare (not safe)) + (cons __tmp9632 __tmp9612)))) + (declare (not safe)) + (cons __tmp9634 __tmp9611)))) + (declare (not safe)) + (cons __tmp9636 __tmp9610)))) + (declare (not safe)) + (cons __tmp9637 __tmp9609)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#context-phi::t - |gx[1]#_g9391_| + |gx[1]#_g9607_| 'phi-context '#f '() @@ -1230,16 +1323,34 @@ (define |gx[:0:]#top-context| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9401_| + |gx[1]#_g9638_| 'expander-identifiers: - (cons |gx[1]#_g9392_| - (cons |gx[1]#_g9401_| - (cons |gx[1]#_g9402_| - (cons |gx[1]#_g9403_| (cons '() (cons '() '())))))) + (let ((__tmp9649 |gx[1]#_g9608_|) + (__tmp9639 + (let ((__tmp9648 |gx[1]#_g9638_|) + (__tmp9640 + (let ((__tmp9646 |gx[1]#_g9647_|) + (__tmp9641 + (let ((__tmp9644 |gx[1]#_g9645_|) + (__tmp9642 + (let ((__tmp9643 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp9643)))) + (declare (not safe)) + (cons __tmp9644 __tmp9642)))) + (declare (not safe)) + (cons __tmp9646 __tmp9641)))) + (declare (not safe)) + (cons __tmp9648 __tmp9640)))) + (declare (not safe)) + (cons __tmp9649 __tmp9639)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#top-context::t - |gx[1]#_g9404_| + |gx[1]#_g9650_| 'top-context '#f '() @@ -1247,33 +1358,93 @@ (define |gx[:0:]#module-context| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9405_| + |gx[1]#_g9651_| 'expander-identifiers: - (cons |gx[1]#_g9401_| - (cons |gx[1]#_g9405_| - (cons |gx[1]#_g9406_| - (cons |gx[1]#_g9407_| - (cons (cons |gx[1]#_g9408_| - (cons |gx[1]#_g9409_| - (cons |gx[1]#_g9410_| - (cons |gx[1]#_g9411_| - (cons |gx[1]#_g9412_| + (let ((__tmp9698 |gx[1]#_g9638_|) + (__tmp9652 + (let ((__tmp9697 |gx[1]#_g9651_|) + (__tmp9653 + (let ((__tmp9695 |gx[1]#_g9696_|) + (__tmp9654 + (let ((__tmp9693 |gx[1]#_g9694_|) + (__tmp9655 + (let ((__tmp9675 + (let ((__tmp9691 |gx[1]#_g9692_|) + (__tmp9676 + (let ((__tmp9689 + |gx[1]#_g9690_|) + (__tmp9677 + (let ((__tmp9687 + |gx[1]#_g9688_|) + (__tmp9678 + (let ((__tmp9685 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gx[1]#_g9413_| '())))))) + |gx[1]#_g9686_|) + (__tmp9679 + (let ((__tmp9683 |gx[1]#_g9684_|) + (__tmp9680 + (let ((__tmp9681 |gx[1]#_g9682_|)) + (declare (not safe)) + (cons __tmp9681 '())))) + (declare (not safe)) + (cons __tmp9683 __tmp9680)))) + (declare (not safe)) + (cons __tmp9685 __tmp9679)))) + (declare (not safe)) + (cons __tmp9687 __tmp9678)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons |gx[1]#_g9414_| - (cons |gx[1]#_g9415_| - (cons |gx[1]#_g9416_| - (cons |gx[1]#_g9417_| + (declare (not safe)) + (cons __tmp9689 + __tmp9677)))) + (declare (not safe)) + (cons __tmp9691 __tmp9676))) + (__tmp9656 + (let ((__tmp9657 + (let ((__tmp9673 + |gx[1]#_g9674_|) + (__tmp9658 + (let ((__tmp9671 + |gx[1]#_g9672_|) + (__tmp9659 + (let ((__tmp9669 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gx[1]#_g9418_| - (cons |gx[1]#_g9419_| '())))))) + |gx[1]#_g9670_|) + (__tmp9660 + (let ((__tmp9667 |gx[1]#_g9668_|) + (__tmp9661 + (let ((__tmp9665 |gx[1]#_g9666_|) + (__tmp9662 + (let ((__tmp9663 |gx[1]#_g9664_|)) + (declare (not safe)) + (cons __tmp9663 '())))) + (declare (not safe)) + (cons __tmp9665 __tmp9662)))) + (declare (not safe)) + (cons __tmp9667 __tmp9661)))) + (declare (not safe)) + (cons __tmp9669 __tmp9660)))) + (declare (not safe)) + (cons __tmp9671 __tmp9659)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp9673 + __tmp9658)))) + (declare (not safe)) + (cons __tmp9657 '())))) + (declare (not safe)) + (cons __tmp9675 __tmp9656)))) + (declare (not safe)) + (cons __tmp9693 __tmp9655)))) + (declare (not safe)) + (cons __tmp9695 __tmp9654)))) + (declare (not safe)) + (cons __tmp9697 __tmp9653)))) + (declare (not safe)) + (cons __tmp9698 __tmp9652)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#module-context::t - |gx[1]#_g9420_| + |gx[1]#_g9699_| 'module-context '#f '() @@ -1281,24 +1452,67 @@ (define |gx[:0:]#prelude-context| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9421_| + |gx[1]#_g9700_| 'expander-identifiers: - (cons |gx[1]#_g9401_| - (cons |gx[1]#_g9421_| - (cons |gx[1]#_g9422_| - (cons |gx[1]#_g9423_| - (cons (cons |gx[1]#_g9424_| - (cons |gx[1]#_g9425_| - (cons |gx[1]#_g9426_| '()))) - (cons (cons |gx[1]#_g9427_| - (cons |gx[1]#_g9428_| - (cons |gx[1]#_g9429_| - '()))) - '())))))) + (let ((__tmp9729 |gx[1]#_g9638_|) + (__tmp9701 + (let ((__tmp9728 |gx[1]#_g9700_|) + (__tmp9702 + (let ((__tmp9726 |gx[1]#_g9727_|) + (__tmp9703 + (let ((__tmp9724 |gx[1]#_g9725_|) + (__tmp9704 + (let ((__tmp9715 + (let ((__tmp9722 |gx[1]#_g9723_|) + (__tmp9716 + (let ((__tmp9720 + |gx[1]#_g9721_|) + (__tmp9717 + (let ((__tmp9718 + |gx[1]#_g9719_|)) + (declare (not safe)) + (cons __tmp9718 + '())))) + (declare (not safe)) + (cons __tmp9720 + __tmp9717)))) + (declare (not safe)) + (cons __tmp9722 __tmp9716))) + (__tmp9705 + (let ((__tmp9706 + (let ((__tmp9713 + |gx[1]#_g9714_|) + (__tmp9707 + (let ((__tmp9711 + |gx[1]#_g9712_|) + (__tmp9708 + (let ((__tmp9709 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gx[1]#_g9710_|)) + (declare (not safe)) + (cons __tmp9709 '())))) + (declare (not safe)) + (cons __tmp9711 __tmp9708)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp9713 + __tmp9707)))) + (declare (not safe)) + (cons __tmp9706 '())))) + (declare (not safe)) + (cons __tmp9715 __tmp9705)))) + (declare (not safe)) + (cons __tmp9724 __tmp9704)))) + (declare (not safe)) + (cons __tmp9726 __tmp9703)))) + (declare (not safe)) + (cons __tmp9728 __tmp9702)))) + (declare (not safe)) + (cons __tmp9729 __tmp9701)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#prelude-context::t - |gx[1]#_g9420_| + |gx[1]#_g9699_| 'prelude-context '#f '() @@ -1306,16 +1520,34 @@ (define |gx[:0:]#local-context| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9430_| + |gx[1]#_g9730_| 'expander-identifiers: - (cons |gx[1]#_g9392_| - (cons |gx[1]#_g9430_| - (cons |gx[1]#_g9431_| - (cons |gx[1]#_g9432_| (cons '() (cons '() '())))))) + (let ((__tmp9741 |gx[1]#_g9608_|) + (__tmp9731 + (let ((__tmp9740 |gx[1]#_g9730_|) + (__tmp9732 + (let ((__tmp9738 |gx[1]#_g9739_|) + (__tmp9733 + (let ((__tmp9736 |gx[1]#_g9737_|) + (__tmp9734 + (let ((__tmp9735 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp9735)))) + (declare (not safe)) + (cons __tmp9736 __tmp9734)))) + (declare (not safe)) + (cons __tmp9738 __tmp9733)))) + (declare (not safe)) + (cons __tmp9740 __tmp9732)))) + (declare (not safe)) + (cons __tmp9741 __tmp9731)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#local-context::t - |gx[1]#_g9404_| + |gx[1]#_g9650_| 'local-context '#f '() @@ -1323,20 +1555,62 @@ (define |gx[:0:]#binding| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9433_| + |gx[1]#_g9742_| 'expander-identifiers: - (cons '#f - (cons |gx[1]#_g9433_| - (cons |gx[1]#_g9434_| - (cons |gx[1]#_g9435_| - (cons (cons |gx[1]#_g9436_| - (cons |gx[1]#_g9437_| - (cons |gx[1]#_g9438_| '()))) - (cons (cons |gx[1]#_g9439_| - (cons |gx[1]#_g9440_| - (cons |gx[1]#_g9441_| - '()))) - '())))))) + (let ((__tmp9743 + (let ((__tmp9770 |gx[1]#_g9742_|) + (__tmp9744 + (let ((__tmp9768 |gx[1]#_g9769_|) + (__tmp9745 + (let ((__tmp9766 |gx[1]#_g9767_|) + (__tmp9746 + (let ((__tmp9757 + (let ((__tmp9764 |gx[1]#_g9765_|) + (__tmp9758 + (let ((__tmp9762 + |gx[1]#_g9763_|) + (__tmp9759 + (let ((__tmp9760 + |gx[1]#_g9761_|)) + (declare (not safe)) + (cons __tmp9760 + '())))) + (declare (not safe)) + (cons __tmp9762 + __tmp9759)))) + (declare (not safe)) + (cons __tmp9764 __tmp9758))) + (__tmp9747 + (let ((__tmp9748 + (let ((__tmp9755 + |gx[1]#_g9756_|) + (__tmp9749 + (let ((__tmp9753 + |gx[1]#_g9754_|) + (__tmp9750 + (let ((__tmp9751 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gx[1]#_g9752_|)) + (declare (not safe)) + (cons __tmp9751 '())))) + (declare (not safe)) + (cons __tmp9753 __tmp9750)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp9755 + __tmp9749)))) + (declare (not safe)) + (cons __tmp9748 '())))) + (declare (not safe)) + (cons __tmp9757 __tmp9747)))) + (declare (not safe)) + (cons __tmp9766 __tmp9746)))) + (declare (not safe)) + (cons __tmp9768 __tmp9745)))) + (declare (not safe)) + (cons __tmp9770 __tmp9744)))) + (declare (not safe)) + (cons '#f __tmp9743)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#binding::t @@ -1348,16 +1622,34 @@ (define |gx[:0:]#runtime-binding| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9442_| + |gx[1]#_g9771_| 'expander-identifiers: - (cons |gx[1]#_g9433_| - (cons |gx[1]#_g9442_| - (cons |gx[1]#_g9443_| - (cons |gx[1]#_g9444_| (cons '() (cons '() '())))))) + (let ((__tmp9782 |gx[1]#_g9742_|) + (__tmp9772 + (let ((__tmp9781 |gx[1]#_g9771_|) + (__tmp9773 + (let ((__tmp9779 |gx[1]#_g9780_|) + (__tmp9774 + (let ((__tmp9777 |gx[1]#_g9778_|) + (__tmp9775 + (let ((__tmp9776 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp9776)))) + (declare (not safe)) + (cons __tmp9777 __tmp9775)))) + (declare (not safe)) + (cons __tmp9779 __tmp9774)))) + (declare (not safe)) + (cons __tmp9781 __tmp9773)))) + (declare (not safe)) + (cons __tmp9782 __tmp9772)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#runtime-binding::t - |gx[1]#_g9445_| + |gx[1]#_g9783_| 'runtime-binding '#f '((transparent: . #t)) @@ -1365,16 +1657,34 @@ (define |gx[:0:]#local-binding| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9446_| + |gx[1]#_g9784_| 'expander-identifiers: - (cons |gx[1]#_g9442_| - (cons |gx[1]#_g9446_| - (cons |gx[1]#_g9447_| - (cons |gx[1]#_g9448_| (cons '() (cons '() '())))))) + (let ((__tmp9795 |gx[1]#_g9771_|) + (__tmp9785 + (let ((__tmp9794 |gx[1]#_g9784_|) + (__tmp9786 + (let ((__tmp9792 |gx[1]#_g9793_|) + (__tmp9787 + (let ((__tmp9790 |gx[1]#_g9791_|) + (__tmp9788 + (let ((__tmp9789 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp9789)))) + (declare (not safe)) + (cons __tmp9790 __tmp9788)))) + (declare (not safe)) + (cons __tmp9792 __tmp9787)))) + (declare (not safe)) + (cons __tmp9794 __tmp9786)))) + (declare (not safe)) + (cons __tmp9795 __tmp9785)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#local-binding::t - |gx[1]#_g9449_| + |gx[1]#_g9796_| 'local-binding '#f '((transparent: . #t)) @@ -1382,16 +1692,34 @@ (define |gx[:0:]#top-binding| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9450_| + |gx[1]#_g9797_| 'expander-identifiers: - (cons |gx[1]#_g9442_| - (cons |gx[1]#_g9450_| - (cons |gx[1]#_g9451_| - (cons |gx[1]#_g9452_| (cons '() (cons '() '())))))) + (let ((__tmp9808 |gx[1]#_g9771_|) + (__tmp9798 + (let ((__tmp9807 |gx[1]#_g9797_|) + (__tmp9799 + (let ((__tmp9805 |gx[1]#_g9806_|) + (__tmp9800 + (let ((__tmp9803 |gx[1]#_g9804_|) + (__tmp9801 + (let ((__tmp9802 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp9802)))) + (declare (not safe)) + (cons __tmp9803 __tmp9801)))) + (declare (not safe)) + (cons __tmp9805 __tmp9800)))) + (declare (not safe)) + (cons __tmp9807 __tmp9799)))) + (declare (not safe)) + (cons __tmp9808 __tmp9798)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#top-binding::t - |gx[1]#_g9449_| + |gx[1]#_g9796_| 'top-binding '#f '((transparent: . #t)) @@ -1399,18 +1727,42 @@ (define |gx[:0:]#module-binding| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9453_| + |gx[1]#_g9809_| 'expander-identifiers: - (cons |gx[1]#_g9450_| - (cons |gx[1]#_g9453_| - (cons |gx[1]#_g9454_| - (cons |gx[1]#_g9455_| - (cons (cons |gx[1]#_g9456_| '()) - (cons (cons |gx[1]#_g9457_| '()) '())))))) + (let ((__tmp9826 |gx[1]#_g9797_|) + (__tmp9810 + (let ((__tmp9825 |gx[1]#_g9809_|) + (__tmp9811 + (let ((__tmp9823 |gx[1]#_g9824_|) + (__tmp9812 + (let ((__tmp9821 |gx[1]#_g9822_|) + (__tmp9813 + (let ((__tmp9818 + (let ((__tmp9819 |gx[1]#_g9820_|)) + (declare (not safe)) + (cons __tmp9819 '()))) + (__tmp9814 + (let ((__tmp9815 + (let ((__tmp9816 + |gx[1]#_g9817_|)) + (declare (not safe)) + (cons __tmp9816 '())))) + (declare (not safe)) + (cons __tmp9815 '())))) + (declare (not safe)) + (cons __tmp9818 __tmp9814)))) + (declare (not safe)) + (cons __tmp9821 __tmp9813)))) + (declare (not safe)) + (cons __tmp9823 __tmp9812)))) + (declare (not safe)) + (cons __tmp9825 __tmp9811)))) + (declare (not safe)) + (cons __tmp9826 __tmp9810)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#module-binding::t - |gx[1]#_g9458_| + |gx[1]#_g9827_| 'module-binding '#f '((transparent: . #t)) @@ -1418,16 +1770,34 @@ (define |gx[:0:]#extern-binding| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9459_| + |gx[1]#_g9828_| 'expander-identifiers: - (cons |gx[1]#_g9450_| - (cons |gx[1]#_g9459_| - (cons |gx[1]#_g9460_| - (cons |gx[1]#_g9461_| (cons '() (cons '() '())))))) + (let ((__tmp9839 |gx[1]#_g9797_|) + (__tmp9829 + (let ((__tmp9838 |gx[1]#_g9828_|) + (__tmp9830 + (let ((__tmp9836 |gx[1]#_g9837_|) + (__tmp9831 + (let ((__tmp9834 |gx[1]#_g9835_|) + (__tmp9832 + (let ((__tmp9833 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp9833)))) + (declare (not safe)) + (cons __tmp9834 __tmp9832)))) + (declare (not safe)) + (cons __tmp9836 __tmp9831)))) + (declare (not safe)) + (cons __tmp9838 __tmp9830)))) + (declare (not safe)) + (cons __tmp9839 __tmp9829)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#extern-binding::t - |gx[1]#_g9458_| + |gx[1]#_g9827_| 'extern-binding '#f '((transparent: . #t)) @@ -1435,18 +1805,42 @@ (define |gx[:0:]#syntax-binding| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9462_| + |gx[1]#_g9840_| 'expander-identifiers: - (cons |gx[1]#_g9433_| - (cons |gx[1]#_g9462_| - (cons |gx[1]#_g9463_| - (cons |gx[1]#_g9464_| - (cons (cons |gx[1]#_g9465_| '()) - (cons (cons |gx[1]#_g9466_| '()) '())))))) + (let ((__tmp9857 |gx[1]#_g9742_|) + (__tmp9841 + (let ((__tmp9856 |gx[1]#_g9840_|) + (__tmp9842 + (let ((__tmp9854 |gx[1]#_g9855_|) + (__tmp9843 + (let ((__tmp9852 |gx[1]#_g9853_|) + (__tmp9844 + (let ((__tmp9849 + (let ((__tmp9850 |gx[1]#_g9851_|)) + (declare (not safe)) + (cons __tmp9850 '()))) + (__tmp9845 + (let ((__tmp9846 + (let ((__tmp9847 + |gx[1]#_g9848_|)) + (declare (not safe)) + (cons __tmp9847 '())))) + (declare (not safe)) + (cons __tmp9846 '())))) + (declare (not safe)) + (cons __tmp9849 __tmp9845)))) + (declare (not safe)) + (cons __tmp9852 __tmp9844)))) + (declare (not safe)) + (cons __tmp9854 __tmp9843)))) + (declare (not safe)) + (cons __tmp9856 __tmp9842)))) + (declare (not safe)) + (cons __tmp9857 __tmp9841)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#syntax-binding::t - |gx[1]#_g9445_| + |gx[1]#_g9783_| 'syntax-binding '#f '((final: . #t) (transparent: . #t)) @@ -1454,24 +1848,67 @@ (define |gx[:0:]#import-binding| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9467_| + |gx[1]#_g9858_| 'expander-identifiers: - (cons |gx[1]#_g9433_| - (cons |gx[1]#_g9467_| - (cons |gx[1]#_g9468_| - (cons |gx[1]#_g9469_| - (cons (cons |gx[1]#_g9470_| - (cons |gx[1]#_g9471_| - (cons |gx[1]#_g9472_| '()))) - (cons (cons |gx[1]#_g9473_| - (cons |gx[1]#_g9474_| - (cons |gx[1]#_g9475_| - '()))) - '())))))) + (let ((__tmp9887 |gx[1]#_g9742_|) + (__tmp9859 + (let ((__tmp9886 |gx[1]#_g9858_|) + (__tmp9860 + (let ((__tmp9884 |gx[1]#_g9885_|) + (__tmp9861 + (let ((__tmp9882 |gx[1]#_g9883_|) + (__tmp9862 + (let ((__tmp9873 + (let ((__tmp9880 |gx[1]#_g9881_|) + (__tmp9874 + (let ((__tmp9878 + |gx[1]#_g9879_|) + (__tmp9875 + (let ((__tmp9876 + |gx[1]#_g9877_|)) + (declare (not safe)) + (cons __tmp9876 + '())))) + (declare (not safe)) + (cons __tmp9878 + __tmp9875)))) + (declare (not safe)) + (cons __tmp9880 __tmp9874))) + (__tmp9863 + (let ((__tmp9864 + (let ((__tmp9871 + |gx[1]#_g9872_|) + (__tmp9865 + (let ((__tmp9869 + |gx[1]#_g9870_|) + (__tmp9866 + (let ((__tmp9867 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gx[1]#_g9868_|)) + (declare (not safe)) + (cons __tmp9867 '())))) + (declare (not safe)) + (cons __tmp9869 __tmp9866)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp9871 + __tmp9865)))) + (declare (not safe)) + (cons __tmp9864 '())))) + (declare (not safe)) + (cons __tmp9873 __tmp9863)))) + (declare (not safe)) + (cons __tmp9882 __tmp9862)))) + (declare (not safe)) + (cons __tmp9884 __tmp9861)))) + (declare (not safe)) + (cons __tmp9886 __tmp9860)))) + (declare (not safe)) + (cons __tmp9887 __tmp9859)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#import-binding::t - |gx[1]#_g9445_| + |gx[1]#_g9783_| 'import-binding '#f '((final: . #t) (transparent: . #t)) @@ -1479,18 +1916,42 @@ (define |gx[:0:]#alias-binding| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9476_| + |gx[1]#_g9888_| 'expander-identifiers: - (cons |gx[1]#_g9433_| - (cons |gx[1]#_g9476_| - (cons |gx[1]#_g9477_| - (cons |gx[1]#_g9478_| - (cons (cons |gx[1]#_g9479_| '()) - (cons (cons |gx[1]#_g9480_| '()) '())))))) + (let ((__tmp9905 |gx[1]#_g9742_|) + (__tmp9889 + (let ((__tmp9904 |gx[1]#_g9888_|) + (__tmp9890 + (let ((__tmp9902 |gx[1]#_g9903_|) + (__tmp9891 + (let ((__tmp9900 |gx[1]#_g9901_|) + (__tmp9892 + (let ((__tmp9897 + (let ((__tmp9898 |gx[1]#_g9899_|)) + (declare (not safe)) + (cons __tmp9898 '()))) + (__tmp9893 + (let ((__tmp9894 + (let ((__tmp9895 + |gx[1]#_g9896_|)) + (declare (not safe)) + (cons __tmp9895 '())))) + (declare (not safe)) + (cons __tmp9894 '())))) + (declare (not safe)) + (cons __tmp9897 __tmp9893)))) + (declare (not safe)) + (cons __tmp9900 __tmp9892)))) + (declare (not safe)) + (cons __tmp9902 __tmp9891)))) + (declare (not safe)) + (cons __tmp9904 __tmp9890)))) + (declare (not safe)) + (cons __tmp9905 __tmp9889)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#alias-binding::t - |gx[1]#_g9445_| + |gx[1]#_g9783_| 'alias-binding '#f '((final: . #t) (transparent: . #t)) @@ -1498,14 +1959,37 @@ (define |gx[:0:]#expander| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9481_| + |gx[1]#_g9906_| 'expander-identifiers: - (cons '#f - (cons |gx[1]#_g9481_| - (cons |gx[1]#_g9482_| - (cons |gx[1]#_g9483_| - (cons (cons |gx[1]#_g9484_| '()) - (cons (cons |gx[1]#_g9485_| '()) '())))))) + (let ((__tmp9907 + (let ((__tmp9922 |gx[1]#_g9906_|) + (__tmp9908 + (let ((__tmp9920 |gx[1]#_g9921_|) + (__tmp9909 + (let ((__tmp9918 |gx[1]#_g9919_|) + (__tmp9910 + (let ((__tmp9915 + (let ((__tmp9916 |gx[1]#_g9917_|)) + (declare (not safe)) + (cons __tmp9916 '()))) + (__tmp9911 + (let ((__tmp9912 + (let ((__tmp9913 + |gx[1]#_g9914_|)) + (declare (not safe)) + (cons __tmp9913 '())))) + (declare (not safe)) + (cons __tmp9912 '())))) + (declare (not safe)) + (cons __tmp9915 __tmp9911)))) + (declare (not safe)) + (cons __tmp9918 __tmp9910)))) + (declare (not safe)) + (cons __tmp9920 __tmp9909)))) + (declare (not safe)) + (cons __tmp9922 __tmp9908)))) + (declare (not safe)) + (cons '#f __tmp9907)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#expander::t @@ -1517,21 +2001,54 @@ (define |gx[:0:]#core-expander| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9486_| + |gx[1]#_g9923_| 'expander-identifiers: - (cons |gx[1]#_g9481_| - (cons |gx[1]#_g9486_| - (cons |gx[1]#_g9487_| - (cons |gx[1]#_g9488_| - (cons (cons |gx[1]#_g9489_| - (cons |gx[1]#_g9490_| '())) - (cons (cons |gx[1]#_g9491_| - (cons |gx[1]#_g9492_| '())) - '())))))) + (let ((__tmp9946 |gx[1]#_g9906_|) + (__tmp9924 + (let ((__tmp9945 |gx[1]#_g9923_|) + (__tmp9925 + (let ((__tmp9943 |gx[1]#_g9944_|) + (__tmp9926 + (let ((__tmp9941 |gx[1]#_g9942_|) + (__tmp9927 + (let ((__tmp9935 + (let ((__tmp9939 |gx[1]#_g9940_|) + (__tmp9936 + (let ((__tmp9937 + |gx[1]#_g9938_|)) + (declare (not safe)) + (cons __tmp9937 '())))) + (declare (not safe)) + (cons __tmp9939 __tmp9936))) + (__tmp9928 + (let ((__tmp9929 + (let ((__tmp9933 + |gx[1]#_g9934_|) + (__tmp9930 + (let ((__tmp9931 + |gx[1]#_g9932_|)) + (declare (not safe)) + (cons __tmp9931 + '())))) + (declare (not safe)) + (cons __tmp9933 + __tmp9930)))) + (declare (not safe)) + (cons __tmp9929 '())))) + (declare (not safe)) + (cons __tmp9935 __tmp9928)))) + (declare (not safe)) + (cons __tmp9941 __tmp9927)))) + (declare (not safe)) + (cons __tmp9943 __tmp9926)))) + (declare (not safe)) + (cons __tmp9945 __tmp9925)))) + (declare (not safe)) + (cons __tmp9946 __tmp9924)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#core-expander::t - |gx[1]#_g9493_| + |gx[1]#_g9947_| 'core-expander '#f '() @@ -1539,16 +2056,34 @@ (define |gx[:0:]#expression-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9494_| + |gx[1]#_g9948_| 'expander-identifiers: - (cons |gx[1]#_g9486_| - (cons |gx[1]#_g9494_| - (cons |gx[1]#_g9495_| - (cons |gx[1]#_g9496_| (cons '() (cons '() '())))))) + (let ((__tmp9959 |gx[1]#_g9923_|) + (__tmp9949 + (let ((__tmp9958 |gx[1]#_g9948_|) + (__tmp9950 + (let ((__tmp9956 |gx[1]#_g9957_|) + (__tmp9951 + (let ((__tmp9954 |gx[1]#_g9955_|) + (__tmp9952 + (let ((__tmp9953 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp9953)))) + (declare (not safe)) + (cons __tmp9954 __tmp9952)))) + (declare (not safe)) + (cons __tmp9956 __tmp9951)))) + (declare (not safe)) + (cons __tmp9958 __tmp9950)))) + (declare (not safe)) + (cons __tmp9959 __tmp9949)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#expression-form::t - |gx[1]#_g9497_| + |gx[1]#_g9960_| 'expression-form '#f '() @@ -1556,16 +2091,34 @@ (define |gx[:0:]#special-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9498_| + |gx[1]#_g9961_| 'expander-identifiers: - (cons |gx[1]#_g9486_| - (cons |gx[1]#_g9498_| - (cons |gx[1]#_g9499_| - (cons |gx[1]#_g9500_| (cons '() (cons '() '())))))) + (let ((__tmp9972 |gx[1]#_g9923_|) + (__tmp9962 + (let ((__tmp9971 |gx[1]#_g9961_|) + (__tmp9963 + (let ((__tmp9969 |gx[1]#_g9970_|) + (__tmp9964 + (let ((__tmp9967 |gx[1]#_g9968_|) + (__tmp9965 + (let ((__tmp9966 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp9966)))) + (declare (not safe)) + (cons __tmp9967 __tmp9965)))) + (declare (not safe)) + (cons __tmp9969 __tmp9964)))) + (declare (not safe)) + (cons __tmp9971 __tmp9963)))) + (declare (not safe)) + (cons __tmp9972 __tmp9962)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#special-form::t - |gx[1]#_g9497_| + |gx[1]#_g9960_| 'special-form '#f '() @@ -1573,16 +2126,34 @@ (define |gx[:0:]#definition-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9501_| + |gx[1]#_g9973_| 'expander-identifiers: - (cons |gx[1]#_g9498_| - (cons |gx[1]#_g9501_| - (cons |gx[1]#_g9502_| - (cons |gx[1]#_g9503_| (cons '() (cons '() '())))))) + (let ((__tmp9984 |gx[1]#_g9961_|) + (__tmp9974 + (let ((__tmp9983 |gx[1]#_g9973_|) + (__tmp9975 + (let ((__tmp9981 |gx[1]#_g9982_|) + (__tmp9976 + (let ((__tmp9979 |gx[1]#_g9980_|) + (__tmp9977 + (let ((__tmp9978 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp9978)))) + (declare (not safe)) + (cons __tmp9979 __tmp9977)))) + (declare (not safe)) + (cons __tmp9981 __tmp9976)))) + (declare (not safe)) + (cons __tmp9983 __tmp9975)))) + (declare (not safe)) + (cons __tmp9984 __tmp9974)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#definition-form::t - |gx[1]#_g9504_| + |gx[1]#_g9985_| 'definition-form '#f '() @@ -1590,16 +2161,34 @@ (define |gx[:0:]#top-special-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9505_| + |gx[1]#_g9986_| 'expander-identifiers: - (cons |gx[1]#_g9498_| - (cons |gx[1]#_g9505_| - (cons |gx[1]#_g9506_| - (cons |gx[1]#_g9507_| (cons '() (cons '() '())))))) + (let ((__tmp9997 |gx[1]#_g9961_|) + (__tmp9987 + (let ((__tmp9996 |gx[1]#_g9986_|) + (__tmp9988 + (let ((__tmp9994 |gx[1]#_g9995_|) + (__tmp9989 + (let ((__tmp9992 |gx[1]#_g9993_|) + (__tmp9990 + (let ((__tmp9991 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp9991)))) + (declare (not safe)) + (cons __tmp9992 __tmp9990)))) + (declare (not safe)) + (cons __tmp9994 __tmp9989)))) + (declare (not safe)) + (cons __tmp9996 __tmp9988)))) + (declare (not safe)) + (cons __tmp9997 __tmp9987)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#top-special-form::t - |gx[1]#_g9504_| + |gx[1]#_g9985_| 'top-special-form '#f '() @@ -1607,16 +2196,34 @@ (define |gx[:0:]#module-special-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9508_| + |gx[1]#_g9998_| 'expander-identifiers: - (cons |gx[1]#_g9505_| - (cons |gx[1]#_g9508_| - (cons |gx[1]#_g9509_| - (cons |gx[1]#_g9510_| (cons '() (cons '() '())))))) + (let ((__tmp10009 |gx[1]#_g9986_|) + (__tmp9999 + (let ((__tmp10008 |gx[1]#_g9998_|) + (__tmp10000 + (let ((__tmp10006 |gx[1]#_g10007_|) + (__tmp10001 + (let ((__tmp10004 |gx[1]#_g10005_|) + (__tmp10002 + (let ((__tmp10003 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp10003)))) + (declare (not safe)) + (cons __tmp10004 __tmp10002)))) + (declare (not safe)) + (cons __tmp10006 __tmp10001)))) + (declare (not safe)) + (cons __tmp10008 __tmp10000)))) + (declare (not safe)) + (cons __tmp10009 __tmp9999)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#module-special-form::t - |gx[1]#_g9511_| + |gx[1]#_g10010_| 'module-special-form '#f '() @@ -1624,16 +2231,34 @@ (define |gx[:0:]#feature-expander| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9512_| + |gx[1]#_g10011_| 'expander-identifiers: - (cons |gx[1]#_g9481_| - (cons |gx[1]#_g9512_| - (cons |gx[1]#_g9513_| - (cons |gx[1]#_g9514_| (cons '() (cons '() '())))))) + (let ((__tmp10022 |gx[1]#_g9906_|) + (__tmp10012 + (let ((__tmp10021 |gx[1]#_g10011_|) + (__tmp10013 + (let ((__tmp10019 |gx[1]#_g10020_|) + (__tmp10014 + (let ((__tmp10017 |gx[1]#_g10018_|) + (__tmp10015 + (let ((__tmp10016 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp10016)))) + (declare (not safe)) + (cons __tmp10017 __tmp10015)))) + (declare (not safe)) + (cons __tmp10019 __tmp10014)))) + (declare (not safe)) + (cons __tmp10021 __tmp10013)))) + (declare (not safe)) + (cons __tmp10022 __tmp10012)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#feature-expander::t - |gx[1]#_g9493_| + |gx[1]#_g9947_| 'feature-expander '#f '() @@ -1641,16 +2266,34 @@ (define |gx[:0:]#private-feature-expander| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9515_| + |gx[1]#_g10023_| 'expander-identifiers: - (cons |gx[1]#_g9512_| - (cons |gx[1]#_g9515_| - (cons |gx[1]#_g9516_| - (cons |gx[1]#_g9517_| (cons '() (cons '() '())))))) + (let ((__tmp10034 |gx[1]#_g10011_|) + (__tmp10024 + (let ((__tmp10033 |gx[1]#_g10023_|) + (__tmp10025 + (let ((__tmp10031 |gx[1]#_g10032_|) + (__tmp10026 + (let ((__tmp10029 |gx[1]#_g10030_|) + (__tmp10027 + (let ((__tmp10028 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp10028)))) + (declare (not safe)) + (cons __tmp10029 __tmp10027)))) + (declare (not safe)) + (cons __tmp10031 __tmp10026)))) + (declare (not safe)) + (cons __tmp10033 __tmp10025)))) + (declare (not safe)) + (cons __tmp10034 __tmp10024)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#private-feature-expander::t - |gx[1]#_g9518_| + |gx[1]#_g10035_| 'private-feature-expander '#f '() @@ -1658,16 +2301,34 @@ (define |gx[:0:]#reserved-expander| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9519_| + |gx[1]#_g10036_| 'expander-identifiers: - (cons |gx[1]#_g9481_| - (cons |gx[1]#_g9519_| - (cons |gx[1]#_g9520_| - (cons |gx[1]#_g9521_| (cons '() (cons '() '())))))) + (let ((__tmp10047 |gx[1]#_g9906_|) + (__tmp10037 + (let ((__tmp10046 |gx[1]#_g10036_|) + (__tmp10038 + (let ((__tmp10044 |gx[1]#_g10045_|) + (__tmp10039 + (let ((__tmp10042 |gx[1]#_g10043_|) + (__tmp10040 + (let ((__tmp10041 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp10041)))) + (declare (not safe)) + (cons __tmp10042 __tmp10040)))) + (declare (not safe)) + (cons __tmp10044 __tmp10039)))) + (declare (not safe)) + (cons __tmp10046 __tmp10038)))) + (declare (not safe)) + (cons __tmp10047 __tmp10037)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#reserved-expander::t - |gx[1]#_g9493_| + |gx[1]#_g9947_| 'reserved-expander '#f '() @@ -1675,16 +2336,34 @@ (define |gx[:0:]#macro-expander| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9522_| + |gx[1]#_g10048_| 'expander-identifiers: - (cons |gx[1]#_g9481_| - (cons |gx[1]#_g9522_| - (cons |gx[1]#_g9523_| - (cons |gx[1]#_g9524_| (cons '() (cons '() '())))))) + (let ((__tmp10059 |gx[1]#_g9906_|) + (__tmp10049 + (let ((__tmp10058 |gx[1]#_g10048_|) + (__tmp10050 + (let ((__tmp10056 |gx[1]#_g10057_|) + (__tmp10051 + (let ((__tmp10054 |gx[1]#_g10055_|) + (__tmp10052 + (let ((__tmp10053 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp10053)))) + (declare (not safe)) + (cons __tmp10054 __tmp10052)))) + (declare (not safe)) + (cons __tmp10056 __tmp10051)))) + (declare (not safe)) + (cons __tmp10058 __tmp10050)))) + (declare (not safe)) + (cons __tmp10059 __tmp10049)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#core-macro::t - |gx[1]#_g9493_| + |gx[1]#_g9947_| 'macro-expander '#f '() @@ -1692,16 +2371,34 @@ (define |gx[:0:]#rename-macro-expander| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9525_| + |gx[1]#_g10060_| 'expander-identifiers: - (cons |gx[1]#_g9522_| - (cons |gx[1]#_g9525_| - (cons |gx[1]#_g9526_| - (cons |gx[1]#_g9527_| (cons '() (cons '() '())))))) + (let ((__tmp10071 |gx[1]#_g10048_|) + (__tmp10061 + (let ((__tmp10070 |gx[1]#_g10060_|) + (__tmp10062 + (let ((__tmp10068 |gx[1]#_g10069_|) + (__tmp10063 + (let ((__tmp10066 |gx[1]#_g10067_|) + (__tmp10064 + (let ((__tmp10065 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp10065)))) + (declare (not safe)) + (cons __tmp10066 __tmp10064)))) + (declare (not safe)) + (cons __tmp10068 __tmp10063)))) + (declare (not safe)) + (cons __tmp10070 __tmp10062)))) + (declare (not safe)) + (cons __tmp10071 __tmp10061)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#rename-macro-expander::t - |gx[1]#_g9528_| + |gx[1]#_g10072_| 'rename-macro-expander '#f '() @@ -1709,21 +2406,54 @@ (define |gx[:0:]#user-expander| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9529_| + |gx[1]#_g10073_| 'expander-identifiers: - (cons |gx[1]#_g9522_| - (cons |gx[1]#_g9529_| - (cons |gx[1]#_g9530_| - (cons |gx[1]#_g9531_| - (cons (cons |gx[1]#_g9532_| - (cons |gx[1]#_g9533_| '())) - (cons (cons |gx[1]#_g9534_| - (cons |gx[1]#_g9535_| '())) - '())))))) + (let ((__tmp10096 |gx[1]#_g10048_|) + (__tmp10074 + (let ((__tmp10095 |gx[1]#_g10073_|) + (__tmp10075 + (let ((__tmp10093 |gx[1]#_g10094_|) + (__tmp10076 + (let ((__tmp10091 |gx[1]#_g10092_|) + (__tmp10077 + (let ((__tmp10085 + (let ((__tmp10089 |gx[1]#_g10090_|) + (__tmp10086 + (let ((__tmp10087 + |gx[1]#_g10088_|)) + (declare (not safe)) + (cons __tmp10087 '())))) + (declare (not safe)) + (cons __tmp10089 __tmp10086))) + (__tmp10078 + (let ((__tmp10079 + (let ((__tmp10083 + |gx[1]#_g10084_|) + (__tmp10080 + (let ((__tmp10081 + |gx[1]#_g10082_|)) + (declare (not safe)) + (cons __tmp10081 + '())))) + (declare (not safe)) + (cons __tmp10083 + __tmp10080)))) + (declare (not safe)) + (cons __tmp10079 '())))) + (declare (not safe)) + (cons __tmp10085 __tmp10078)))) + (declare (not safe)) + (cons __tmp10091 __tmp10077)))) + (declare (not safe)) + (cons __tmp10093 __tmp10076)))) + (declare (not safe)) + (cons __tmp10095 __tmp10075)))) + (declare (not safe)) + (cons __tmp10096 __tmp10074)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#macro-expander::t - |gx[1]#_g9528_| + |gx[1]#_g10072_| 'user-expander '#f '() @@ -1731,25 +2461,72 @@ (define |gx[:0:]#expander-mark| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g9536_| + |gx[1]#_g10097_| 'expander-identifiers: - (cons '#f - (cons |gx[1]#_g9536_| - (cons |gx[1]#_g9537_| - (cons |gx[1]#_g9538_| - (cons (cons |gx[1]#_g9539_| - (cons |gx[1]#_g9540_| - (cons |gx[1]#_g9541_| - (cons |gx[1]#_g9542_| - '())))) - (cons (cons |gx[1]#_g9543_| - (cons |gx[1]#_g9544_| - (cons |gx[1]#_g9545_| - (cons |gx[1]#_g9546_| + (let ((__tmp10098 + (let ((__tmp10131 |gx[1]#_g10097_|) + (__tmp10099 + (let ((__tmp10129 |gx[1]#_g10130_|) + (__tmp10100 + (let ((__tmp10127 |gx[1]#_g10128_|) + (__tmp10101 + (let ((__tmp10115 + (let ((__tmp10125 |gx[1]#_g10126_|) + (__tmp10116 + (let ((__tmp10123 + |gx[1]#_g10124_|) + (__tmp10117 + (let ((__tmp10121 + |gx[1]#_g10122_|) + (__tmp10118 + (let ((__tmp10119 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + |gx[1]#_g10120_|)) + (declare (not safe)) + (cons __tmp10119 '())))) + (declare (not safe)) + (cons __tmp10121 __tmp10118)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp10123 + __tmp10117)))) + (declare (not safe)) + (cons __tmp10125 __tmp10116))) + (__tmp10102 + (let ((__tmp10103 + (let ((__tmp10113 + |gx[1]#_g10114_|) + (__tmp10104 + (let ((__tmp10111 + |gx[1]#_g10112_|) + (__tmp10105 + (let ((__tmp10109 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gx[1]#_g10110_|) + (__tmp10106 + (let ((__tmp10107 |gx[1]#_g10108_|)) + (declare (not safe)) + (cons __tmp10107 '())))) + (declare (not safe)) + (cons __tmp10109 __tmp10106)))) + (declare (not safe)) + (cons __tmp10111 __tmp10105)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp10113 + __tmp10104)))) + (declare (not safe)) + (cons __tmp10103 '())))) + (declare (not safe)) + (cons __tmp10115 __tmp10102)))) + (declare (not safe)) + (cons __tmp10127 __tmp10101)))) + (declare (not safe)) + (cons __tmp10129 __tmp10100)))) + (declare (not safe)) + (cons __tmp10131 __tmp10099)))) + (declare (not safe)) + (cons '#f __tmp10098)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#expander-mark::t @@ -1759,42 +2536,73 @@ '() '(subst context phi trace)))) (define |gx[:0:]#&phi-context?| - (lambda (_$stx6333_) - (let* ((_g63376351_ - (lambda (_g63386347_) - (gx#raise-syntax-error '#f '"Bad syntax" _g63386347_))) - (_g63366393_ - (lambda (_g63386355_) - (if (gx#stx-pair? _g63386355_) - (let ((_e63406358_ (gx#syntax-e _g63386355_))) - (let ((_hd63416362_ + (lambda (_$stx6524_) + (let* ((_g65286542_ + (lambda (_g65296538_) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _g65296538_)))) + (_g65276584_ + (lambda (_g65296546_) + (if (let () (declare (not safe)) (gx#stx-pair? _g65296546_)) + (let ((_e65336549_ + (let () + (declare (not safe)) + (gx#syntax-e _g65296546_)))) + (let ((_hd65326553_ (let () (declare (not safe)) - (##car _e63406358_))) - (_tl63426365_ + (##car _e65336549_))) + (_tl65316556_ (let () (declare (not safe)) - (##cdr _e63406358_)))) - (if (gx#stx-pair? _tl63426365_) - (let ((_e63436368_ (gx#syntax-e _tl63426365_))) - (let ((_hd63446372_ + (##cdr _e65336549_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl65316556_)) + (let ((_e65366559_ + (let () + (declare (not safe)) + (gx#syntax-e _tl65316556_)))) + (let ((_hd65356563_ (let () (declare (not safe)) - (##car _e63436368_))) - (_tl63456375_ + (##car _e65366559_))) + (_tl65346566_ (let () (declare (not safe)) - (##cdr _e63436368_)))) - (if (gx#stx-null? _tl63456375_) - ((lambda (_L6378_) - (cons (gx#datum->syntax__0 '#f 'fx>) - (cons (cons (gx#datum->syntax__0 - '#f - '##vector-length) - (cons _L6378_ '())) - (cons '3 '())))) - _hd63446372_) - (_g63376351_ _g63386355_)))) - (_g63376351_ _g63386355_)))) - (_g63376351_ _g63386355_))))) - (_g63366393_ _$stx6333_)))))) + (##cdr _e65366559_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl65346566_)) + ((lambda (_L6569_) + (let ((__tmp10137 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'fx>))) + (__tmp10132 + (let ((__tmp10134 + (let ((__tmp10136 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#datum->syntax__0 '#f '##vector-length))) + (__tmp10135 + (let () (declare (not safe)) (cons _L6569_ '())))) + (declare (not safe)) + (cons __tmp10136 __tmp10135))) + (__tmp10133 (let () (declare (not safe)) (cons '3 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp10134 + __tmp10133)))) + (declare (not safe)) + (cons __tmp10137 __tmp10132))) + _hd65356563_) + (_g65286542_ _g65296546_)))) + (_g65286542_ _g65296546_)))) + (_g65286542_ _g65296546_))))) + (_g65276584_ _$stx6524_)))))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index 1d126dfa3..8fe526e97 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -184,7 +184,6 @@ package: gerbil/expander (@class-cons gx#import-export-expander::t)) (declare-type gx#call-with-input-source-file (@lambda 2 #f)) (declare-type gx#module-context:::init! (@lambda 5 #f)) - (declare-method gx#module-context::t :init! gx#module-context:::init! #f) (declare-type gx#prelude-context:::init!__% (@lambda 3 #f)) (declare-type gx#prelude-context:::init!__0 (@lambda 2 #f)) (declare-type @@ -192,30 +191,12 @@ package: gerbil/expander (@case-lambda (2 gx#prelude-context:::init!__0) (3 gx#prelude-context:::init!__%))) - (declare-method gx#prelude-context::t :init! gx#prelude-context:::init! #f) (declare-type gx#import-export-expander-init! (@lambda 2 #f)) (declare-type gx#import-expander:::init! (@lambda 2 #f)) - (declare-method gx#import-expander::t :init! gx#import-expander:::init! #f) (declare-type gx#export-expander:::init! (@lambda 2 #f)) - (declare-method gx#export-expander::t :init! gx#export-expander:::init! #f) (declare-type gx#import-export-expander:::init! (@lambda 2 #f)) - (declare-method - gx#import-export-expander::t - :init! - gx#import-export-expander:::init! - #f) (declare-type gx#import-expander::apply-import-expander (@lambda 2 #f)) - (declare-method - gx#import-expander::t - apply-import-expander - gx#import-expander::apply-import-expander - #f) (declare-type gx#export-expander::apply-export-expander (@lambda 2 #f)) - (declare-method - gx#export-expander::t - apply-export-expander - gx#export-expander::apply-export-expander - #f) (declare-type gx#module-source-path (@lambda 1 #f)) (declare-type gx#import-module__% (@lambda 3 #f)) (declare-type gx#import-module__0 (@lambda 1 #f)) diff --git a/src/bootstrap/gerbil/expander/module__0.scm b/src/bootstrap/gerbil/expander/module__0.scm index c935786a7..fdc75dc97 100644 --- a/src/bootstrap/gerbil/expander/module__0.scm +++ b/src/bootstrap/gerbil/expander/module__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/module::timestamp 1695199285) + (define gerbil/expander/module::timestamp 1695292397) (begin (declare (not safe)) (define gx#module-import::t @@ -14,8 +14,8 @@ '(source name phi weak?))) (define gx#module-import? (make-struct-predicate gx#module-import::t)) (define gx#make-module-import - (lambda _$args16023_ - (apply make-struct-instance gx#module-import::t _$args16023_))) + (lambda _$args16614_ + (apply make-struct-instance gx#module-import::t _$args16614_))) (define gx#module-import-source (make-struct-field-accessor gx#module-import::t '0)) (define gx#module-import-name @@ -59,8 +59,8 @@ '(context key phi name weak?))) (define gx#module-export? (make-struct-predicate gx#module-export::t)) (define gx#make-module-export - (lambda _$args16020_ - (apply make-struct-instance gx#module-export::t _$args16020_))) + (lambda _$args16611_ + (apply make-struct-instance gx#module-export::t _$args16611_))) (define gx#module-export-context (make-struct-field-accessor gx#module-export::t '0)) (define gx#module-export-key @@ -112,8 +112,8 @@ '(source phi imports))) (define gx#import-set? (make-struct-predicate gx#import-set::t)) (define gx#make-import-set - (lambda _$args16017_ - (apply make-struct-instance gx#import-set::t _$args16017_))) + (lambda _$args16608_ + (apply make-struct-instance gx#import-set::t _$args16608_))) (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)) @@ -148,8 +148,8 @@ '(source phi exports))) (define gx#export-set? (make-struct-predicate gx#export-set::t)) (define gx#make-export-set - (lambda _$args16014_ - (apply make-struct-instance gx#export-set::t _$args16014_))) + (lambda _$args16605_ + (apply make-struct-instance gx#export-set::t _$args16605_))) (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)) @@ -183,8 +183,8 @@ ':init!)) (define gx#import-expander? (make-class-predicate gx#import-expander::t)) (define gx#make-import-expander - (lambda _$args16011_ - (apply make-class-instance gx#import-expander::t _$args16011_))) + (lambda _$args16602_ + (apply make-class-instance gx#import-expander::t _$args16602_))) (define gx#export-expander::t (make-class-type 'gx#export-expander::t @@ -195,8 +195,8 @@ ':init!)) (define gx#export-expander? (make-class-predicate gx#export-expander::t)) (define gx#make-export-expander - (lambda _$args16008_ - (apply make-class-instance gx#export-expander::t _$args16008_))) + (lambda _$args16599_ + (apply make-class-instance gx#export-expander::t _$args16599_))) (define gx#import-export-expander::t (make-class-type 'gx#import-export-expander::t @@ -208,123 +208,132 @@ (define gx#import-export-expander? (make-class-predicate gx#import-export-expander::t)) (define gx#make-import-export-expander - (lambda _$args16005_ - (apply make-class-instance gx#import-export-expander::t _$args16005_))) + (lambda _$args16596_ + (apply make-class-instance gx#import-export-expander::t _$args16596_))) (define gx#current-import-expander-phi (make-parameter '#f)) (define gx#current-export-expander-phi (make-parameter '#f)) (define gx#current-module-reader-path (make-parameter '#f)) (define gx#current-module-reader-args (make-parameter '#f)) (define gx#source-file-settings '(char-encoding: UTF-8 eol-encoding: lf)) (define gx#call-with-input-source-file - (lambda (_path16002_ _fun16003_) + (lambda (_path16593_ _fun16594_) (call-with-input-file - (cons 'path: (cons _path16002_ gx#source-file-settings)) - _fun16003_))) + (cons 'path: (cons _path16593_ gx#source-file-settings)) + _fun16594_))) (define gx#module-context:::init! - (lambda (_self15996_ _id15997_ _super15998_ _ns15999_ _path16000_) - (if (##fx< '11 (##vector-length _self15996_)) + (lambda (_self16587_ _id16588_ _super16589_ _ns16590_ _path16591_) + (if (##fx< '11 (##vector-length _self16587_)) (begin - (##vector-set! _self15996_ '1 _id15997_) - (##vector-set! _self15996_ '2 (make-table 'test: eq?)) - (##vector-set! _self15996_ '3 _super15998_) - (##vector-set! _self15996_ '4 '#f) - (##vector-set! _self15996_ '5 '#f) - (##vector-set! _self15996_ '6 _ns15999_) - (##vector-set! _self15996_ '7 _path16000_) - (##vector-set! _self15996_ '8 '()) - (##vector-set! _self15996_ '9 '()) - (##vector-set! _self15996_ '10 '#f) - (##vector-set! _self15996_ '11 '#f)) + (##vector-set! _self16587_ '1 _id16588_) + (##vector-set! _self16587_ '2 (make-table 'test: eq?)) + (##vector-set! _self16587_ '3 _super16589_) + (##vector-set! _self16587_ '4 '#f) + (##vector-set! _self16587_ '5 '#f) + (##vector-set! _self16587_ '6 _ns16590_) + (##vector-set! _self16587_ '7 _path16591_) + (##vector-set! _self16587_ '8 '()) + (##vector-set! _self16587_ '9 '()) + (##vector-set! _self16587_ '10 '#f) + (##vector-set! _self16587_ '11 '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self15996_)))) + _self16587_)))) (bind-method! gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_self15840_ _ctx15841_ _root15842_) - (let ((_super15850_ - (let ((_$e15844_ _root15842_)) - (if _$e15844_ - _$e15844_ - (let ((_$e15847_ (gx#core-context-root__0))) - (if _$e15847_ - _$e15847_ + (lambda (_self16431_ _ctx16432_ _root16433_) + (let ((_super16441_ + (let ((_$e16435_ _root16433_)) + (if _$e16435_ + _$e16435_ + (let ((_$e16438_ (gx#core-context-root__0))) + (if _$e16438_ + _$e16438_ (make-struct-instance gx#root-context::t))))))) - (if _ctx15841_ - (let ((_id15853_ + (if _ctx16432_ + (let ((_id16444_ (##structure-ref - _ctx15841_ + _ctx16432_ '1 gx#expander-context::t '#f)) - (_path15854_ - (##structure-ref _ctx15841_ '7 gx#module-context::t '#f)) - (_in15855_ + (_path16445_ + (##structure-ref _ctx16432_ '7 gx#module-context::t '#f)) + (_in16446_ (map gx#core-module-export->import (##structure-ref - _ctx15841_ + _ctx16432_ '9 gx#module-context::t '#f))) - (_e15856_ - (make-promise (lambda () (gx#eval-module _ctx15841_))))) - (if (##fx< '8 (##vector-length _self15840_)) + (_e16447_ + (make-promise (lambda () (gx#eval-module _ctx16432_))))) + (if (##fx< '8 (##vector-length _self16431_)) (begin - (##vector-set! _self15840_ '1 _id15853_) + (##vector-set! _self16431_ '1 _id16444_) (##vector-set! - _self15840_ + _self16431_ '2 - (make-table 'test: eq? 'size: (length _in15855_))) - (##vector-set! _self15840_ '3 _super15850_) - (##vector-set! _self15840_ '4 '#f) - (##vector-set! _self15840_ '5 '#f) - (##vector-set! _self15840_ '6 _path15854_) - (##vector-set! _self15840_ '7 _in15855_) - (##vector-set! _self15840_ '8 _e15856_)) + (make-table 'test: eq? 'size: (length _in16446_))) + (##vector-set! _self16431_ '3 _super16441_) + (##vector-set! _self16431_ '4 '#f) + (##vector-set! _self16431_ '5 '#f) + (##vector-set! _self16431_ '6 _path16445_) + (##vector-set! _self16431_ '7 _in16446_) + (##vector-set! _self16431_ '8 _e16447_)) (error '"struct-instance-init!: too many arguments for struct" - _self15840_)) + _self16431_)) (for-each - (lambda (_g1585715859_) - (gx#core-bind-weak-import!__% _g1585715859_ _self15840_)) - _in15855_)) - (if (##fx< '8 (##vector-length _self15840_)) + (lambda (_g1644816450_) + (gx#core-bind-weak-import!__% _g1644816450_ _self16431_)) + _in16446_)) + (if (##fx< '8 (##vector-length _self16431_)) (begin - (##vector-set! _self15840_ '1 '#f) - (##vector-set! _self15840_ '2 (make-table 'test: eq?)) - (##vector-set! _self15840_ '3 _super15850_) - (##vector-set! _self15840_ '4 '#f) - (##vector-set! _self15840_ '5 '#f) - (##vector-set! _self15840_ '6 '#f) - (##vector-set! _self15840_ '7 '()) - (##vector-set! _self15840_ '8 '#f)) + (##vector-set! _self16431_ '1 '#f) + (##vector-set! _self16431_ '2 (make-table 'test: eq?)) + (##vector-set! _self16431_ '3 _super16441_) + (##vector-set! _self16431_ '4 '#f) + (##vector-set! _self16431_ '5 '#f) + (##vector-set! _self16431_ '6 '#f) + (##vector-set! _self16431_ '7 '()) + (##vector-set! _self16431_ '8 '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self15840_)))))) + _self16431_)))))) (define gx#prelude-context:::init!__0 - (lambda (_self15865_ _ctx15866_) - (let ((_root15868_ '#f)) - (gx#prelude-context:::init!__% _self15865_ _ctx15866_ _root15868_)))) + (lambda (_self16456_ _ctx16457_) + (let ((_root16459_ '#f)) + (gx#prelude-context:::init!__% _self16456_ _ctx16457_ _root16459_)))) (define gx#prelude-context:::init! - (lambda _g16063_ - (let ((_g16062_ (##length _g16063_))) - (cond ((##fx= _g16062_ 2) - (apply gx#prelude-context:::init!__0 _g16063_)) - ((##fx= _g16062_ 3) - (apply gx#prelude-context:::init!__% _g16063_)) + (lambda _g16654_ + (let ((_g16653_ (##length _g16654_))) + (cond ((##fx= _g16653_ 2) + (apply (lambda (_self16456_ _ctx16457_) + (gx#prelude-context:::init!__0 + _self16456_ + _ctx16457_)) + _g16654_)) + ((##fx= _g16653_ 3) + (apply (lambda (_self16461_ _ctx16462_ _root16463_) + (gx#prelude-context:::init!__% + _self16461_ + _ctx16462_ + _root16463_)) + _g16654_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g16063_)))))) + _g16654_)))))) (bind-method! gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_self15714_ _e15715_) - (if (##fx< '3 (##vector-length _self15714_)) + (lambda (_self16305_ _e16306_) + (if (##fx< '3 (##vector-length _self16305_)) (begin - (##vector-set! _self15714_ '1 _e15715_) - (##vector-set! _self15714_ '2 (gx#current-expander-context)) + (##vector-set! _self16305_ '1 _e16306_) + (##vector-set! _self16305_ '2 (gx#current-expander-context)) (##vector-set! - _self15714_ + _self16305_ '3 (fx- (gx#current-expander-phi) '1))) (error '"struct-instance-init!: too many arguments for struct" - _self15714_)))) + _self16305_)))) (define gx#import-expander:::init! gx#import-export-expander-init!) (bind-method! gx#import-expander::t ':init! gx#import-expander:::init! '#f) (define gx#export-expander:::init! gx#import-export-expander-init!) @@ -336,10 +345,10 @@ gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_g1534015343_ _g1534115345_) + (lambda (_g1593115934_ _g1593215936_) (gx#core-apply-user-expander__% - _g1534015343_ - _g1534115345_ + _g1593115934_ + _g1593215936_ 'apply-import-expander))) (bind-method! gx#import-expander::t @@ -347,10 +356,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_g1521115214_ _g1521215216_) + (lambda (_g1580215805_ _g1580315807_) (gx#core-apply-user-expander__% - _g1521115214_ - _g1521215216_ + _g1580215805_ + _g1580315807_ 'apply-export-expander))) (bind-method! gx#export-expander::t @@ -358,199 +367,213 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_ctx15082_) - (let* ((_path15084_ - (##structure-ref _ctx15082_ '7 gx#module-context::t '#f)) - (_path15086_ - (if (pair? _path15084_) (last _path15084_) _path15084_))) - (if (string? _path15086_) _path15086_ '#f)))) + (lambda (_ctx15673_) + (let* ((_path15675_ + (##structure-ref _ctx15673_ '7 gx#module-context::t '#f)) + (_path15677_ + (if (pair? _path15675_) (last _path15675_) _path15675_))) + (if (string? _path15677_) _path15677_ '#f)))) (define gx#import-module__% - (lambda (_path15058_ _reload?15059_ _eval?15060_) - (let ((_ctx15062_ + (lambda (_path15649_ _reload?15650_ _eval?15651_) + (let ((_ctx15653_ ((gx#current-expander-module-import) - _path15058_ - _reload?15059_))) - (if (and _ctx15062_ _eval?15060_) - (gx#eval-module _ctx15062_) + _path15649_ + _reload?15650_))) + (if (and _ctx15653_ _eval?15651_) + (gx#eval-module _ctx15653_) '#!void) - _ctx15062_))) + _ctx15653_))) (define gx#import-module__0 - (lambda (_path15067_) - (let* ((_reload?15069_ '#f) (_eval?15071_ '#f)) - (gx#import-module__% _path15067_ _reload?15069_ _eval?15071_)))) + (lambda (_path15658_) + (let* ((_reload?15660_ '#f) (_eval?15662_ '#f)) + (gx#import-module__% _path15658_ _reload?15660_ _eval?15662_)))) (define gx#import-module__1 - (lambda (_path15073_ _reload?15074_) - (let ((_eval?15076_ '#f)) - (gx#import-module__% _path15073_ _reload?15074_ _eval?15076_)))) + (lambda (_path15664_ _reload?15665_) + (let ((_eval?15667_ '#f)) + (gx#import-module__% _path15664_ _reload?15665_ _eval?15667_)))) (define gx#import-module - (lambda _g16065_ - (let ((_g16064_ (##length _g16065_))) - (cond ((##fx= _g16064_ 1) (apply gx#import-module__0 _g16065_)) - ((##fx= _g16064_ 2) (apply gx#import-module__1 _g16065_)) - ((##fx= _g16064_ 3) (apply gx#import-module__% _g16065_)) + (lambda _g16656_ + (let ((_g16655_ (##length _g16656_))) + (cond ((##fx= _g16655_ 1) + (apply (lambda (_path15658_) + (gx#import-module__0 _path15658_)) + _g16656_)) + ((##fx= _g16655_ 2) + (apply (lambda (_path15664_ _reload?15665_) + (gx#import-module__1 _path15664_ _reload?15665_)) + _g16656_)) + ((##fx= _g16655_ 3) + (apply (lambda (_path15669_ _reload?15670_ _eval?15671_) + (gx#import-module__% + _path15669_ + _reload?15670_ + _eval?15671_)) + _g16656_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g16065_)))))) + _g16656_)))))) (define gx#eval-module - (lambda (_mod15055_) ((gx#current-expander-module-eval) _mod15055_))) + (lambda (_mod15646_) ((gx#current-expander-module-eval) _mod15646_))) (define gx#core-eval-module - (lambda (_obj15040_) - (letrec ((_force-e15042_ - (lambda (_getf15051_ _e15052_) + (lambda (_obj15631_) + (letrec ((_force-e15633_ + (lambda (_getf15642_ _e15643_) (call-with-parameters - (lambda () (force (_getf15051_ _e15052_))) + (lambda () (force (_getf15642_ _e15643_))) gx#current-expander-context - _e15052_ + _e15643_ gx#current-expander-phi '0)))) - (let _recur15044_ ((_e15046_ _obj15040_)) - (if (##structure-instance-of? _e15046_ 'gx#module-context::t) + (let _recur15635_ ((_e15637_ _obj15631_)) + (if (##structure-instance-of? _e15637_ 'gx#module-context::t) (begin - (let ((_$e15048_ (gx#core-context-prelude__% _e15046_))) - (if _$e15048_ (_recur15044_ _$e15048_) '#!void)) - (_force-e15042_ gx#module-context-e _e15046_)) - (if (##structure-instance-of? _e15046_ 'gx#prelude-context::t) - (_force-e15042_ gx#prelude-context-e _e15046_) - (if (gx#stx-string? _e15046_) - (_recur15044_ + (let ((_$e15639_ (gx#core-context-prelude__% _e15637_))) + (if _$e15639_ (_recur15635_ _$e15639_) '#!void)) + (_force-e15633_ gx#module-context-e _e15637_)) + (if (##structure-instance-of? _e15637_ 'gx#prelude-context::t) + (_force-e15633_ gx#prelude-context-e _e15637_) + (if (gx#stx-string? _e15637_) + (_recur15635_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _e15046_))) - (if (gx#core-library-module-path? _e15046_) - (_recur15044_ + (gx#core-resolve-module-path__0 _e15637_))) + (if (gx#core-library-module-path? _e15637_) + (_recur15635_ (gx#import-module__0 - (gx#core-resolve-library-module-path _e15046_))) - (error '"Cannot eval module" _obj15040_))))))))) + (gx#core-resolve-library-module-path _e15637_))) + (error '"Cannot eval module" _obj15631_))))))))) (define gx#core-context-prelude__% - (lambda (_ctx15023_) - (let _lp15025_ ((_e15027_ _ctx15023_)) - (if (or (##structure-instance-of? _e15027_ 'gx#module-context::t) - (##structure-instance-of? _e15027_ 'gx#local-context::t)) - (_lp15025_ - (##unchecked-structure-ref _e15027_ '3 gx#phi-context::t '#f)) - (if (##structure-instance-of? _e15027_ 'gx#prelude-context::t) - _e15027_ + (lambda (_ctx15614_) + (let _lp15616_ ((_e15618_ _ctx15614_)) + (if (or (##structure-instance-of? _e15618_ 'gx#module-context::t) + (##structure-instance-of? _e15618_ 'gx#local-context::t)) + (_lp15616_ + (##unchecked-structure-ref _e15618_ '3 gx#phi-context::t '#f)) + (if (##structure-instance-of? _e15618_ 'gx#prelude-context::t) + _e15618_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_ctx15036_ (gx#current-expander-context))) - (gx#core-context-prelude__% _ctx15036_)))) + (let ((_ctx15627_ (gx#current-expander-context))) + (gx#core-context-prelude__% _ctx15627_)))) (define gx#core-context-prelude - (lambda _g16067_ - (let ((_g16066_ (##length _g16067_))) - (cond ((##fx= _g16066_ 0) - (apply gx#core-context-prelude__0 _g16067_)) - ((##fx= _g16066_ 1) - (apply gx#core-context-prelude__% _g16067_)) + (lambda _g16658_ + (let ((_g16657_ (##length _g16658_))) + (cond ((##fx= _g16657_ 0) + (apply (lambda () (gx#core-context-prelude__0)) _g16658_)) + ((##fx= _g16657_ 1) + (apply (lambda (_ctx15629_) + (gx#core-context-prelude__% _ctx15629_)) + _g16658_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g16067_)))))) + _g16658_)))))) (define gx#core-module->prelude-context - (lambda (_ctx15013_) - (let* ((_ht15015_ (gx#current-expander-module-registry)) - (_$e15017_ (table-ref _ht15015_ _ctx15013_ '#f))) - (if _$e15017_ - (values _$e15017_) - (let ((_pre15020_ - (let ((__obj16058 (make-object gx#prelude-context::t '8))) - (gx#prelude-context:::init!__0 __obj16058 _ctx15013_) - __obj16058))) - (table-set! _ht15015_ _ctx15013_ _pre15020_) - _pre15020_))))) + (lambda (_ctx15604_) + (let* ((_ht15606_ (gx#current-expander-module-registry)) + (_$e15608_ (table-ref _ht15606_ _ctx15604_ '#f))) + (if _$e15608_ + (values _$e15608_) + (let ((_pre15611_ + (let ((__obj16649 (make-object gx#prelude-context::t '8))) + (gx#prelude-context:::init!__0 __obj16649 _ctx15604_) + __obj16649))) + (table-set! _ht15606_ _ctx15604_ _pre15611_) + _pre15611_))))) (define gx#core-import-module__% - (lambda (_rpath14894_ _reload?14895_) - (letrec ((_import-source14897_ - (lambda (_path14982_) - (if (member _path14982_ (gx#current-expander-path)) - (error '"Cyclic expansion" _path14982_) + (lambda (_rpath15485_ _reload?15486_) + (letrec ((_import-source15488_ + (lambda (_path15573_) + (if (member _path15573_ (gx#current-expander-path)) + (error '"Cyclic expansion" _path15573_) '#!void) (call-with-parameters (lambda () - (let ((_g16068_ (gx#core-read-module _path14982_))) + (let ((_g16659_ (gx#core-read-module _path15573_))) (begin - (let ((_g16069_ - (if (##values? _g16068_) - (##vector-length _g16068_) + (let ((_g16660_ + (if (##values? _g16659_) + (##vector-length _g16659_) 1))) - (if (not (##fx= _g16069_ 4)) - (error "Context expects 4 values" _g16069_))) - (let ((_pre14985_ (##vector-ref _g16068_ 0)) - (_id14986_ (##vector-ref _g16068_ 1)) - (_ns14987_ (##vector-ref _g16068_ 2)) - (_body14988_ (##vector-ref _g16068_ 3))) - (let* ((_prelude14993_ + (if (not (##fx= _g16660_ 4)) + (error "Context expects 4 values" _g16660_))) + (let ((_pre15576_ (##vector-ref _g16659_ 0)) + (_id15577_ (##vector-ref _g16659_ 1)) + (_ns15578_ (##vector-ref _g16659_ 2)) + (_body15579_ (##vector-ref _g16659_ 3))) + (let* ((_prelude15584_ (if (##structure-instance-of? - _pre14985_ + _pre15576_ 'gx#prelude-context::t) - _pre14985_ + _pre15576_ (if (##structure-instance-of? - _pre14985_ + _pre15576_ 'gx#module-context::t) (gx#core-module->prelude-context - _pre14985_) - (if (string? _pre14985_) + _pre15576_) + (if (string? _pre15576_) (gx#core-module->prelude-context (gx#core-import-module__0 - _pre14985_)) - (if (not _pre14985_) - (let ((_$e14990_ + _pre15576_)) + (if (not _pre15576_) + (let ((_$e15581_ (gx#current-expander-module-prelude))) - (if _$e14990_ - _$e14990_ - (let ((__obj16059 + (if _$e15581_ + _$e15581_ + (let ((__obj16650 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (make-object gx#prelude-context::t '8))) - (gx#prelude-context:::init!__0 __obj16059 '#f) - __obj16059))) + (gx#prelude-context:::init!__0 __obj16650 '#f) + __obj16650))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Cannot import module; unknown prelude" - _rpath14894_ - _pre14985_)))))) - (_ctx14995_ - (let ((__obj16060 + _rpath15485_ + _pre15576_)))))) + (_ctx15586_ + (let ((__obj16651 (make-object gx#module-context::t '11))) (gx#module-context:::init! - __obj16060 - _id14986_ - _prelude14993_ - _ns14987_ - _path14982_) - __obj16060)) - (_body14997_ + __obj16651 + _id15577_ + _prelude15584_ + _ns15578_ + _path15573_) + __obj16651)) + (_body15588_ (gx#core-expand-module-begin - _body14988_ - _ctx14995_)) - (_body14999_ + _body15579_ + _ctx15586_)) + (_body15590_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _body14997_) - _path14982_ - _ctx14995_ + (gx#core-cons '%#begin _body15588_) + _path15573_ + _ctx15586_ '()))) (##unchecked-structure-set! - _ctx14995_ + _ctx15586_ (make-promise - (lambda () (gx#eval-syntax* _body14999_))) + (lambda () (gx#eval-syntax* _body15590_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx14995_ - _body14999_ + _ctx15586_ + _body15590_ '11 gx#module-context::t '#f) (table-set! (gx#current-expander-module-registry) - _path14982_ - _ctx14995_) + _path15573_ + _ctx15586_) (table-set! (gx#current-expander-module-registry) - _id14986_ - _ctx14995_) - _ctx14995_))))) + _id15577_ + _ctx15586_) + _ctx15586_))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -558,2003 +581,2050 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _path14982_ (gx#current-expander-path)) + (cons _path15573_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_import-submodule14898_ - (lambda (_rpath14910_) - (let* ((_rpath1491114918_ _rpath14910_) - (_E1491314922_ + (_import-submodule15489_ + (lambda (_rpath15501_) + (let* ((_rpath1550215509_ _rpath15501_) + (_E1550415513_ (lambda () - (error '"No clause matching" _rpath1491114918_))) - (_K1491414970_ - (lambda (_refs14925_ _origin14926_) - (let ((_ctx14928_ - (if _origin14926_ + (error '"No clause matching" _rpath1550215509_))) + (_K1550515561_ + (lambda (_refs15516_ _origin15517_) + (let ((_ctx15519_ + (if _origin15517_ (gx#core-import-module__% - _origin14926_ - _reload?14895_) + _origin15517_ + _reload?15486_) (gx#current-expander-context)))) - (let _lp14930_ ((_rest14932_ _refs14925_) - (_ctx14933_ _ctx14928_)) - (let* ((_rest1493414942_ _rest14932_) - (_else1493614950_ - (lambda () _ctx14933_)) - (_K1493814958_ - (lambda (_rest14953_ _id14954_) - (let ((_bind14956_ + (let _lp15521_ ((_rest15523_ _refs15516_) + (_ctx15524_ _ctx15519_)) + (let* ((_rest1552515533_ _rest15523_) + (_else1552715541_ + (lambda () _ctx15524_)) + (_K1552915549_ + (lambda (_rest15544_ _id15545_) + (let ((_bind15547_ (gx#resolve-identifier__% - _id14954_ + _id15545_ '0 - _ctx14933_))) + _ctx15524_))) (if (and (##structure-direct-instance-of? - _bind14956_ + _bind15547_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind14956_ + _bind15547_ '4 gx#syntax-binding::t '#f) 'gx#module-context::t)) - (_lp14930_ - _rest14953_ + (_lp15521_ + _rest15544_ (##unchecked-structure-ref - _bind14956_ + _bind15547_ '4 gx#syntax-binding::t '#f)) (error '"Cannot import submodule; not bound as a module" - _rpath14910_ - _id14954_ - _bind14956_)))))) - (if (##pair? _rest1493414942_) - (let ((_hd1493914961_ - (##car _rest1493414942_)) - (_tl1494014963_ - (##cdr _rest1493414942_))) - (let* ((_id14966_ _hd1493914961_) - (_rest14968_ _tl1494014963_)) - (_K1493814958_ - _rest14968_ - _id14966_))) - (_else1493614950_)))))))) - (if (##pair? _rpath1491114918_) - (let ((_hd1491514973_ (##car _rpath1491114918_)) - (_tl1491614975_ (##cdr _rpath1491114918_))) - (let* ((_origin14978_ _hd1491514973_) - (_refs14980_ _tl1491614975_)) - (_K1491414970_ _refs14980_ _origin14978_))) - (_E1491314922_)))))) - (let ((_$e14900_ - (if (not _reload?14895_) + _rpath15501_ + _id15545_ + _bind15547_)))))) + (if (##pair? _rest1552515533_) + (let ((_hd1553015552_ + (##car _rest1552515533_)) + (_tl1553115554_ + (##cdr _rest1552515533_))) + (let* ((_id15557_ _hd1553015552_) + (_rest15559_ _tl1553115554_)) + (_K1552915549_ + _rest15559_ + _id15557_))) + (_else1552715541_)))))))) + (if (##pair? _rpath1550215509_) + (let ((_hd1550615564_ (##car _rpath1550215509_)) + (_tl1550715566_ (##cdr _rpath1550215509_))) + (let* ((_origin15569_ _hd1550615564_) + (_refs15571_ _tl1550715566_)) + (_K1550515561_ _refs15571_ _origin15569_))) + (_E1550415513_)))))) + (let ((_$e15491_ + (if (not _reload?15486_) (table-ref (gx#current-expander-module-registry) - _rpath14894_ + _rpath15485_ '#f) '#f))) - (if _$e14900_ - (values _$e14900_) - (if (list? _rpath14894_) - (_import-submodule14898_ _rpath14894_) - (if (gx#core-library-module-path? _rpath14894_) - (let ((_ctx14903_ + (if _$e15491_ + (values _$e15491_) + (if (list? _rpath15485_) + (_import-submodule15489_ _rpath15485_) + (if (gx#core-library-module-path? _rpath15485_) + (let ((_ctx15494_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _rpath14894_) - _reload?14895_))) + _rpath15485_) + _reload?15486_))) (table-set! (gx#current-expander-module-registry) - _rpath14894_ - _ctx14903_) - _ctx14903_) - (let* ((_npath14905_ (path-normalize _rpath14894_)) - (_$e14907_ - (if (not _reload?14895_) + _rpath15485_ + _ctx15494_) + _ctx15494_) + (let* ((_npath15496_ (path-normalize _rpath15485_)) + (_$e15498_ + (if (not _reload?15486_) (table-ref (gx#current-expander-module-registry) - _npath14905_ + _npath15496_ '#f) '#f))) - (if _$e14907_ - (values _$e14907_) - (_import-source14897_ _npath14905_)))))))))) + (if _$e15498_ + (values _$e15498_) + (_import-source15488_ _npath15496_)))))))))) (define gx#core-import-module__0 - (lambda (_rpath15006_) - (let ((_reload?15008_ '#f)) - (gx#core-import-module__% _rpath15006_ _reload?15008_)))) + (lambda (_rpath15597_) + (let ((_reload?15599_ '#f)) + (gx#core-import-module__% _rpath15597_ _reload?15599_)))) (define gx#core-import-module - (lambda _g16071_ - (let ((_g16070_ (##length _g16071_))) - (cond ((##fx= _g16070_ 1) (apply gx#core-import-module__0 _g16071_)) - ((##fx= _g16070_ 2) (apply gx#core-import-module__% _g16071_)) + (lambda _g16662_ + (let ((_g16661_ (##length _g16662_))) + (cond ((##fx= _g16661_ 1) + (apply (lambda (_rpath15597_) + (gx#core-import-module__0 _rpath15597_)) + _g16662_)) + ((##fx= _g16661_ 2) + (apply (lambda (_rpath15601_ _reload?15602_) + (gx#core-import-module__% + _rpath15601_ + _reload?15602_)) + _g16662_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g16071_)))))) + _g16662_)))))) (define gx#core-read-module - (lambda (_path14888_) + (lambda (_path15479_) (with-exception-catcher - (lambda (_exn14890_) - (if (and (datum-parsing-exception? _exn14890_) - (eq? (datum-parsing-exception-filepos _exn14890_) '0)) - (gx#core-read-module/lang _path14888_) - (raise _exn14890_))) - (lambda () (gx#core-read-module/sexp _path14888_))))) + (lambda (_exn15481_) + (if (and (datum-parsing-exception? _exn15481_) + (eq? (datum-parsing-exception-filepos _exn15481_) '0)) + (gx#core-read-module/lang _path15479_) + (raise _exn15481_))) + (lambda () (gx#core-read-module/sexp _path15479_))))) (define gx#core-read-module/sexp - (lambda (_path14751_) - (let _lp14753_ ((_body14755_ (read-syntax-from-file _path14751_)) - (_pre14756_ '#f) - (_ns14757_ '#f) - (_pkg14758_ '#f)) - (let* ((_e1475914783_ _body14755_) - (_E1477514805_ + (lambda (_path15342_) + (let _lp15344_ ((_body15346_ (read-syntax-from-file _path15342_)) + (_pre15347_ '#f) + (_ns15348_ '#f) + (_pkg15349_ '#f)) + (let* ((_e1535015374_ _body15346_) + (_E1536615396_ (lambda () - (let ((_g16072_ - (if _pkg14758_ - (values _pre14756_ _ns14757_ _pkg14758_) + (let ((_g16663_ + (if _pkg15349_ + (values _pre15347_ _ns15348_ _pkg15349_) (gx#core-read-module-package - _path14751_ - _pre14756_ - _ns14757_)))) + _path15342_ + _pre15347_ + _ns15348_)))) (begin - (let ((_g16073_ - (if (##values? _g16072_) - (##vector-length _g16072_) + (let ((_g16664_ + (if (##values? _g16663_) + (##vector-length _g16663_) 1))) - (if (not (##fx= _g16073_ 3)) - (error "Context expects 3 values" _g16073_))) - (let ((_pre14787_ (##vector-ref _g16072_ 0)) - (_ns14788_ (##vector-ref _g16072_ 1)) - (_pkg14789_ (##vector-ref _g16072_ 2))) - (let* ((_prelude14791_ + (if (not (##fx= _g16664_ 3)) + (error "Context expects 3 values" _g16664_))) + (let ((_pre15378_ (##vector-ref _g16663_ 0)) + (_ns15379_ (##vector-ref _g16663_ 1)) + (_pkg15380_ (##vector-ref _g16663_ 2))) + (let* ((_prelude15382_ (if (gx#core-bound-module-prelude? - _pre14787_) - (gx#syntax-local-e__0 _pre14787_) + _pre15378_) + (gx#syntax-local-e__0 _pre15378_) (if (gx#core-library-module-path? - _pre14787_) + _pre15378_) (gx#core-resolve-library-module-path - _pre14787_) - (if (gx#stx-string? _pre14787_) + _pre15378_) + (if (gx#stx-string? _pre15378_) (gx#core-resolve-module-path__% - _pre14787_ - _path14751_) - (gx#stx-e _pre14787_))))) - (_path-id14793_ - (gx#core-module-path->namespace _path14751_)) - (_pkg-id14795_ - (if _pkg14789_ + _pre15378_ + _path15342_) + (gx#stx-e _pre15378_))))) + (_path-id15384_ + (gx#core-module-path->namespace _path15342_)) + (_pkg-id15386_ + (if _pkg15380_ (string-append - _pkg14789_ + _pkg15380_ '"/" - _path-id14793_) - _path-id14793_)) - (_module-id14797_ - (string->symbol _pkg-id14795_)) - (_module-ns14802_ - (if (eq? _ns14788_ '#!void) + _path-id15384_) + _path-id15384_)) + (_module-id15388_ + (string->symbol _pkg-id15386_)) + (_module-ns15393_ + (if (eq? _ns15379_ '#!void) '#f - (let ((_$e14799_ _ns14788_)) - (if _$e14799_ - _$e14799_ - _pkg-id14795_))))) - (values _prelude14791_ - _module-id14797_ - _module-ns14802_ - _body14755_))))))) - (_E1476814834_ + (let ((_$e15390_ _ns15379_)) + (if _$e15390_ + _$e15390_ + _pkg-id15386_))))) + (values _prelude15382_ + _module-id15388_ + _module-ns15393_ + _body15346_))))))) + (_E1535915425_ (lambda () - (if (gx#stx-pair? _e1475914783_) - (let ((_e1477614809_ (gx#syntax-e _e1475914783_))) - (let ((_hd1477714812_ (##car _e1477614809_)) - (_tl1477814814_ (##cdr _e1477614809_))) - (if (eq? (gx#stx-e _hd1477714812_) 'package:) - (if (gx#stx-pair? _tl1477814814_) - (let ((_e1477914817_ - (gx#syntax-e _tl1477814814_))) - (let ((_hd1478014820_ - (##car _e1477914817_)) - (_tl1478114822_ - (##cdr _e1477914817_))) - (let* ((_pkg14825_ _hd1478014820_) - (_rest14827_ _tl1478114822_)) + (if (gx#stx-pair? _e1535015374_) + (let ((_e1536715400_ (gx#syntax-e _e1535015374_))) + (let ((_hd1536815403_ (##car _e1536715400_)) + (_tl1536915405_ (##cdr _e1536715400_))) + (if (eq? (gx#stx-e _hd1536815403_) 'package:) + (if (gx#stx-pair? _tl1536915405_) + (let ((_e1537015408_ + (gx#syntax-e _tl1536915405_))) + (let ((_hd1537115411_ + (##car _e1537015408_)) + (_tl1537215413_ + (##cdr _e1537015408_))) + (let* ((_pkg15416_ _hd1537115411_) + (_rest15418_ _tl1537215413_)) (if '#t - (let ((_pkg14832_ + (let ((_pkg15423_ (if (gx#identifier? - _pkg14825_) + _pkg15416_) (symbol->string (gx#stx-e - _pkg14825_)) + _pkg15416_)) (if (or (gx#stx-string? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pkg14825_) - (gx#stx-false? _pkg14825_)) - (gx#stx-e _pkg14825_) + _pkg15416_) + (gx#stx-false? _pkg15416_)) + (gx#stx-e _pkg15416_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _pkg14825_))))) + _pkg15416_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp14753_ - _rest14827_ - _pre14756_ - _ns14757_ - _pkg14832_)) - (_E1477514805_))))) - (_E1477514805_)) - (_E1477514805_)))) - (_E1477514805_)))) - (_E1476114860_ + (_lp15344_ + _rest15418_ + _pre15347_ + _ns15348_ + _pkg15423_)) + (_E1536615396_))))) + (_E1536615396_)) + (_E1536615396_)))) + (_E1536615396_)))) + (_E1535215451_ (lambda () - (if (gx#stx-pair? _e1475914783_) - (let ((_e1476914838_ (gx#syntax-e _e1475914783_))) - (let ((_hd1477014841_ (##car _e1476914838_)) - (_tl1477114843_ (##cdr _e1476914838_))) - (if (eq? (gx#stx-e _hd1477014841_) 'namespace:) - (if (gx#stx-pair? _tl1477114843_) - (let ((_e1477214846_ - (gx#syntax-e _tl1477114843_))) - (let ((_hd1477314849_ - (##car _e1477214846_)) - (_tl1477414851_ - (##cdr _e1477214846_))) - (let* ((_ns14854_ _hd1477314849_) - (_rest14856_ _tl1477414851_)) + (if (gx#stx-pair? _e1535015374_) + (let ((_e1536015429_ (gx#syntax-e _e1535015374_))) + (let ((_hd1536115432_ (##car _e1536015429_)) + (_tl1536215434_ (##cdr _e1536015429_))) + (if (eq? (gx#stx-e _hd1536115432_) 'namespace:) + (if (gx#stx-pair? _tl1536215434_) + (let ((_e1536315437_ + (gx#syntax-e _tl1536215434_))) + (let ((_hd1536415440_ + (##car _e1536315437_)) + (_tl1536515442_ + (##cdr _e1536315437_))) + (let* ((_ns15445_ _hd1536415440_) + (_rest15447_ _tl1536515442_)) (if '#t - (let ((_ns14858_ + (let ((_ns15449_ (if (gx#identifier? - _ns14854_) + _ns15445_) (symbol->string - (gx#stx-e _ns14854_)) + (gx#stx-e _ns15445_)) (if (gx#stx-string? - _ns14854_) + _ns15445_) (gx#stx-e - _ns14854_) + _ns15445_) (if (gx#stx-false? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ns14854_) + _ns15445_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _ns14854_)))))) + _ns15445_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp14753_ - _rest14856_ - _pre14756_ - _ns14858_ - _pkg14758_)) - (_E1476814834_))))) - (_E1476814834_)) - (_E1476814834_)))) - (_E1476814834_)))) - (_E1476014884_ + (_lp15344_ + _rest15447_ + _pre15347_ + _ns15449_ + _pkg15349_)) + (_E1535915425_))))) + (_E1535915425_)) + (_E1535915425_)))) + (_E1535915425_)))) + (_E1535115475_ (lambda () - (if (gx#stx-pair? _e1475914783_) - (let ((_e1476214864_ (gx#syntax-e _e1475914783_))) - (let ((_hd1476314867_ (##car _e1476214864_)) - (_tl1476414869_ (##cdr _e1476214864_))) - (if (eq? (gx#stx-e _hd1476314867_) 'prelude:) - (if (gx#stx-pair? _tl1476414869_) - (let ((_e1476514872_ - (gx#syntax-e _tl1476414869_))) - (let ((_hd1476614875_ - (##car _e1476514872_)) - (_tl1476714877_ - (##cdr _e1476514872_))) - (let* ((_prelude14880_ _hd1476614875_) - (_rest14882_ _tl1476714877_)) + (if (gx#stx-pair? _e1535015374_) + (let ((_e1535315455_ (gx#syntax-e _e1535015374_))) + (let ((_hd1535415458_ (##car _e1535315455_)) + (_tl1535515460_ (##cdr _e1535315455_))) + (if (eq? (gx#stx-e _hd1535415458_) 'prelude:) + (if (gx#stx-pair? _tl1535515460_) + (let ((_e1535615463_ + (gx#syntax-e _tl1535515460_))) + (let ((_hd1535715466_ + (##car _e1535615463_)) + (_tl1535815468_ + (##cdr _e1535615463_))) + (let* ((_prelude15471_ _hd1535715466_) + (_rest15473_ _tl1535815468_)) (if '#t - (_lp14753_ - _rest14882_ - _prelude14880_ - _ns14757_ - _pkg14758_) - (_E1476114860_))))) - (_E1476114860_)) - (_E1476114860_)))) - (_E1476114860_))))) - (_E1476014884_))))) + (_lp15344_ + _rest15473_ + _prelude15471_ + _ns15348_ + _pkg15349_) + (_E1535215451_))))) + (_E1535215451_)) + (_E1535215451_)))) + (_E1535215451_))))) + (_E1535115475_))))) (define gx#core-read-module/lang - (lambda (_path14578_) - (letrec ((_default-read-module-body14580_ - (lambda (_inp14743_) - (let _lp14745_ ((_body14747_ '())) - (let ((_next14749_ (read-syntax _inp14743_))) - (if (eof-object? _next14749_) - (reverse _body14747_) - (_lp14745_ (cons _next14749_ _body14747_))))))) - (_read-body14581_ - (lambda (_inp14662_ - _pre14663_ - _ns14664_ - _pkg14665_ - _args14666_) - (let ((_g16074_ - (if _pkg14665_ - (values _pre14663_ _ns14664_ _pkg14665_) + (lambda (_path15169_) + (letrec ((_default-read-module-body15171_ + (lambda (_inp15334_) + (let _lp15336_ ((_body15338_ '())) + (let ((_next15340_ (read-syntax _inp15334_))) + (if (eof-object? _next15340_) + (reverse _body15338_) + (_lp15336_ (cons _next15340_ _body15338_))))))) + (_read-body15172_ + (lambda (_inp15253_ + _pre15254_ + _ns15255_ + _pkg15256_ + _args15257_) + (let ((_g16665_ + (if _pkg15256_ + (values _pre15254_ _ns15255_ _pkg15256_) (gx#core-read-module-package - _path14578_ - _pre14663_ - _ns14664_)))) + _path15169_ + _pre15254_ + _ns15255_)))) (begin - (let ((_g16075_ - (if (##values? _g16074_) - (##vector-length _g16074_) + (let ((_g16666_ + (if (##values? _g16665_) + (##vector-length _g16665_) 1))) - (if (not (##fx= _g16075_ 3)) - (error "Context expects 3 values" _g16075_))) - (let ((_pre14668_ (##vector-ref _g16074_ 0)) - (_ns14669_ (##vector-ref _g16074_ 1)) - (_pkg14670_ (##vector-ref _g16074_ 2))) - (let* ((_prelude14672_ - (gx#import-module__0 _pre14668_)) - (_read-module-body14726_ - (let ((_$e14718_ - (find (lambda (_e1467314675_) - (let* ((_g1467714687_ - _e1467314675_) - (_else1467914695_ + (if (not (##fx= _g16666_ 3)) + (error "Context expects 3 values" _g16666_))) + (let ((_pre15259_ (##vector-ref _g16665_ 0)) + (_ns15260_ (##vector-ref _g16665_ 1)) + (_pkg15261_ (##vector-ref _g16665_ 2))) + (let* ((_prelude15263_ + (gx#import-module__0 _pre15259_)) + (_read-module-body15317_ + (let ((_$e15309_ + (find (lambda (_e1526415266_) + (let* ((_g1526815278_ + _e1526415266_) + (_else1527015286_ (lambda () '#f)) - (_K1468114699_ + (_K1527215290_ (lambda () '#t))) (if (##structure-direct-instance-of? - _g1467714687_ + _g1526815278_ 'gx#module-export::t) - (let* ((_e1468214702_ + (let* ((_e1527315293_ (##vector-ref - _g1467714687_ + _g1526815278_ '1)) - (_e1468314705_ + (_e1527415296_ (##vector-ref - _g1467714687_ + _g1526815278_ '2)) - (_e1468414708_ + (_e1527515299_ (##vector-ref - _g1467714687_ + _g1526815278_ '3))) - (if (##eq? _e1468414708_ + (if (##eq? _e1527515299_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1) - (let ((_e1468514711_ (##vector-ref _g1467714687_ '4))) - (if ((lambda (_g1471314715_) - (eq? _g1471314715_ 'read-module-body)) - _e1468514711_) - (_K1468114699_) - (_else1467914695_))) - (_else1467914695_))) - (_else1467914695_)))) + (let ((_e1527615302_ (##vector-ref _g1526815278_ '4))) + (if ((lambda (_g1530415306_) + (eq? _g1530415306_ 'read-module-body)) + _e1527615302_) + (_K1527215290_) + (_else1527015286_))) + (_else1527015286_))) + (_else1527015286_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _prelude14672_ + _prelude15263_ '9 gx#module-context::t '#f)))) - (if _$e14718_ - ((lambda (_xport14721_) - (let ((_proc14724_ + (if _$e15309_ + ((lambda (_xport15312_) + (let ((_proc15315_ (with-exception-catcher void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _xport14721_) + _xport15312_) '1 gx#binding::t '#f)))))) - (if (procedure? _proc14724_) - _proc14724_ + (if (procedure? _proc15315_) + _proc15315_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _path14578_ - _pre14668_ - _proc14724_)))) - _$e14718_) - _default-read-module-body14580_))) - (_path-id14728_ - (gx#core-module-path->namespace _path14578_)) - (_pkg-id14730_ - (if _pkg14670_ + _path15169_ + _pre15259_ + _proc15315_)))) + _$e15309_) + _default-read-module-body15171_))) + (_path-id15319_ + (gx#core-module-path->namespace _path15169_)) + (_pkg-id15321_ + (if _pkg15261_ (string-append - _pkg14670_ + _pkg15261_ '"/" - _path-id14728_) - _path-id14728_)) - (_module-id14732_ - (string->symbol _pkg-id14730_)) - (_module-ns14737_ - (let ((_$e14734_ _ns14669_)) - (if _$e14734_ _$e14734_ _pkg-id14730_))) - (_body14740_ + _path-id15319_) + _path-id15319_)) + (_module-id15323_ + (string->symbol _pkg-id15321_)) + (_module-ns15328_ + (let ((_$e15325_ _ns15260_)) + (if _$e15325_ _$e15325_ _pkg-id15321_))) + (_body15331_ (call-with-parameters (lambda () - (_read-module-body14726_ _inp14662_)) + (_read-module-body15317_ _inp15253_)) gx#current-module-reader-path - _path14578_ + _path15169_ gx#current-module-reader-args - _args14666_))) - (values _prelude14672_ - _module-id14732_ - _module-ns14737_ - _body14740_))))))) - (_string-e14582_ - (lambda (_obj14659_ _what14660_) - (if (string? _obj14659_) - _obj14659_ - (if (symbol? _obj14659_) - (symbol->string _obj14659_) + _args15257_))) + (values _prelude15263_ + _module-id15323_ + _module-ns15328_ + _body15331_))))))) + (_string-e15173_ + (lambda (_obj15250_ _what15251_) + (if (string? _obj15250_) + _obj15250_ + (if (symbol? _obj15250_) + (symbol->string _obj15250_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _what14660_) - _path14578_ - _obj14659_))))) - (_read-lang-args14583_ - (lambda (_inp14614_ _args14615_) - (let* ((_args1461614624_ _args14615_) - (_else1461814632_ + (string-append '"Illegal module " _what15251_) + _path15169_ + _obj15250_))))) + (_read-lang-args15174_ + (lambda (_inp15205_ _args15206_) + (let* ((_args1520715215_ _args15206_) + (_else1520915223_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _path14578_))) - (_K1462014647_ - (lambda (_args14635_ _prelude14636_) - (let* ((_pkg14638_ (pgetq 'package: _args14635_)) - (_pkg14640_ - (if _pkg14638_ - (_string-e14582_ - _pkg14638_ + _path15169_))) + (_K1521115238_ + (lambda (_args15226_ _prelude15227_) + (let* ((_pkg15229_ (pgetq 'package: _args15226_)) + (_pkg15231_ + (if _pkg15229_ + (_string-e15173_ + _pkg15229_ '"package") '#f)) - (_ns14642_ - (pgetq 'namespace: _args14635_)) - (_ns14644_ - (if _ns14642_ - (_string-e14582_ - _ns14642_ + (_ns15233_ + (pgetq 'namespace: _args15226_)) + (_ns15235_ + (if _ns15233_ + (_string-e15173_ + _ns15233_ '"namespace") '#f))) - (_read-body14581_ - _inp14614_ - _prelude14636_ - _ns14644_ - _pkg14640_ - _args14635_))))) - (if (##pair? _args1461614624_) - (let ((_hd1462114650_ (##car _args1461614624_)) - (_tl1462214652_ (##cdr _args1461614624_))) - (let* ((_prelude14655_ _hd1462114650_) - (_args14657_ _tl1462214652_)) - (_K1462014647_ _args14657_ _prelude14655_))) - (_else1461814632_))))) - (_read-lang14584_ - (lambda (_inp14589_) - (let* ((_head14591_ (read-line _inp14589_)) - (_$e14593_ (string-index _head14591_ '#\space))) - (if _$e14593_ - ((lambda (_ix14596_) - (let ((_lang14598_ - (substring _head14591_ '0 _ix14596_))) - (if (equal? _lang14598_ '"#lang") - (let* ((_rest14600_ + (_read-body15172_ + _inp15205_ + _prelude15227_ + _ns15235_ + _pkg15231_ + _args15226_))))) + (if (##pair? _args1520715215_) + (let ((_hd1521215241_ (##car _args1520715215_)) + (_tl1521315243_ (##cdr _args1520715215_))) + (let* ((_prelude15246_ _hd1521215241_) + (_args15248_ _tl1521315243_)) + (_K1521115238_ _args15248_ _prelude15246_))) + (_else1520915223_))))) + (_read-lang15175_ + (lambda (_inp15180_) + (let* ((_head15182_ (read-line _inp15180_)) + (_$e15184_ (string-index _head15182_ '#\space))) + (if _$e15184_ + ((lambda (_ix15187_) + (let ((_lang15189_ + (substring _head15182_ '0 _ix15187_))) + (if (equal? _lang15189_ '"#lang") + (let* ((_rest15191_ (substring - _head14591_ - (fx+ _ix14596_ '1) - (string-length _head14591_))) - (_args14611_ + _head15182_ + (fx+ _ix15187_ '1) + (string-length _head15182_))) + (_args15202_ (with-exception-catcher - (lambda (_g1460114603_) + (lambda (_g1519215194_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _path14578_ - _g1460114603_)) + _path15169_ + _g1519215194_)) (lambda () (call-with-input-string - _rest14600_ - (lambda (_g1460614608_) + _rest15191_ + (lambda (_g1519715199_) (read-all - _g1460614608_ + _g1519715199_ read))))))) - (_read-lang-args14583_ - _inp14589_ - _args14611_)) + (_read-lang-args15174_ + _inp15180_ + _args15202_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path14578_)))) - _$e14593_) + _path15169_)))) + _$e15184_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path14578_))))) - (_read-e14585_ - (lambda (_inp14587_) - (if (eq? (peek-char _inp14587_) '#\#) - (_read-lang14584_ _inp14587_) + _path15169_))))) + (_read-e15176_ + (lambda (_inp15178_) + (if (eq? (peek-char _inp15178_) '#\#) + (_read-lang15175_ _inp15178_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path14578_))))) - (gx#call-with-input-source-file _path14578_ _read-e14585_)))) + _path15169_))))) + (gx#call-with-input-source-file _path15169_ _read-e15176_)))) (define gx#core-read-module-package - (lambda (_path14532_ _pre14533_ _ns14534_) - (letrec ((_string-e14536_ - (lambda (_e14576_) - (if (symbol? _e14576_) - (symbol->string _e14576_) - (if (string? _e14576_) - _e14576_ + (lambda (_path15123_ _pre15124_ _ns15125_) + (letrec ((_string-e15127_ + (lambda (_e15167_) + (if (symbol? _e15167_) + (symbol->string _e15167_) + (if (string? _e15167_) + _e15167_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _e14576_)))))) - (let _lp14538_ ((_dir14540_ (path-directory _path14532_)) - (_pkg-path14541_ '())) - (let ((_gerbil.pkg14543_ (path-expand '"gerbil.pkg" _dir14540_))) - (if (file-exists? _gerbil.pkg14543_) - (let ((_plist14545_ - (gx#core-library-package-plist__% _dir14540_ '#t))) - (if (null? _plist14545_) - (let ((_pkg14547_ - (if (not (null? _pkg-path14541_)) - (string-join _pkg-path14541_ '"/") + _e15167_)))))) + (let _lp15129_ ((_dir15131_ (path-directory _path15123_)) + (_pkg-path15132_ '())) + (let ((_gerbil.pkg15134_ (path-expand '"gerbil.pkg" _dir15131_))) + (if (file-exists? _gerbil.pkg15134_) + (let ((_plist15136_ + (gx#core-library-package-plist__% _dir15131_ '#t))) + (if (null? _plist15136_) + (let ((_pkg15138_ + (if (not (null? _pkg-path15132_)) + (string-join _pkg-path15132_ '"/") '#f))) - (values _pre14533_ _ns14534_ _pkg14547_)) - (if (list? _plist14545_) - (let* ((_root14549_ (pgetq 'package: _plist14545_)) - (_pkg14553_ - (let ((_pkg-path14551_ - (if _root14549_ - (cons (_string-e14536_ - _root14549_) - _pkg-path14541_) - _pkg-path14541_))) - (if (not (null? _pkg-path14551_)) - (string-join _pkg-path14551_ '"/") + (values _pre15124_ _ns15125_ _pkg15138_)) + (if (list? _plist15136_) + (let* ((_root15140_ (pgetq 'package: _plist15136_)) + (_pkg15144_ + (let ((_pkg-path15142_ + (if _root15140_ + (cons (_string-e15127_ + _root15140_) + _pkg-path15132_) + _pkg-path15132_))) + (if (not (null? _pkg-path15142_)) + (string-join _pkg-path15142_ '"/") '#f))) - (_ns14560_ - (let ((_ns14558_ - (let ((_$e14555_ _ns14534_)) - (if _$e14555_ - _$e14555_ + (_ns15151_ + (let ((_ns15149_ + (let ((_$e15146_ _ns15125_)) + (if _$e15146_ + _$e15146_ (pgetq 'namespace: - _plist14545_))))) - (if _ns14558_ - (_string-e14536_ _ns14558_) + _plist15136_))))) + (if _ns15149_ + (_string-e15127_ _ns15149_) '#f))) - (_pre14565_ - (let ((_$e14562_ _pre14533_)) - (if _$e14562_ - _$e14562_ - (pgetq 'prelude: _plist14545_))))) - (values _pre14565_ _ns14560_ _pkg14553_)) + (_pre15156_ + (let ((_$e15153_ _pre15124_)) + (if _$e15153_ + _$e15153_ + (pgetq 'prelude: _plist15136_))))) + (values _pre15156_ _ns15151_ _pkg15144_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _plist14545_)))) - (let ((_dir*14568_ - (path-strip-trailing-directory-separator _dir14540_))) - (if (or (string-empty? _dir*14568_) - (equal? _dir14540_ _dir*14568_)) - (values _pre14533_ _ns14534_ '#f) - (let ((_xpath14573_ (path-strip-directory _dir*14568_)) - (_xdir14574_ (path-directory _dir*14568_))) - (_lp14538_ - _xdir14574_ - (cons _xpath14573_ _pkg-path14541_))))))))))) + _plist15136_)))) + (let ((_dir*15159_ + (path-strip-trailing-directory-separator _dir15131_))) + (if (or (string-empty? _dir*15159_) + (equal? _dir15131_ _dir*15159_)) + (values _pre15124_ _ns15125_ '#f) + (let ((_xpath15164_ (path-strip-directory _dir*15159_)) + (_xdir15165_ (path-directory _dir*15159_))) + (_lp15129_ + _xdir15165_ + (cons _xpath15164_ _pkg-path15132_))))))))))) (define gx#core-module-path->namespace - (lambda (_path14530_) - (path-strip-extension (path-strip-directory _path14530_)))) + (lambda (_path15121_) + (path-strip-extension (path-strip-directory _path15121_)))) (define gx#core-module-path->id - (lambda (_path14528_) - (string->symbol (gx#core-module-path->namespace _path14528_)))) + (lambda (_path15119_) + (string->symbol (gx#core-module-path->namespace _path15119_)))) (define gx#core-resolve-module-path__% - (lambda (_stx-path14507_ _rel14508_) - (let* ((_path14510_ (gx#stx-e _stx-path14507_)) - (_path14512_ - (if (string-empty? (path-extension _path14510_)) - (string-append _path14510_ '".ss") - _path14510_))) + (lambda (_stx-path15098_ _rel15099_) + (let* ((_path15101_ (gx#stx-e _stx-path15098_)) + (_path15103_ + (if (string-empty? (path-extension _path15101_)) + (string-append _path15101_ '".ss") + _path15101_))) (gx#core-resolve-path__% - _path14512_ - (let ((_$e14515_ (gx#stx-source _stx-path14507_))) - (if _$e14515_ _$e14515_ _rel14508_)))))) + _path15103_ + (let ((_$e15106_ (gx#stx-source _stx-path15098_))) + (if _$e15106_ _$e15106_ _rel15099_)))))) (define gx#core-resolve-module-path__0 - (lambda (_stx-path14521_) - (let ((_rel14523_ '#f)) - (gx#core-resolve-module-path__% _stx-path14521_ _rel14523_)))) + (lambda (_stx-path15112_) + (let ((_rel15114_ '#f)) + (gx#core-resolve-module-path__% _stx-path15112_ _rel15114_)))) (define gx#core-resolve-module-path - (lambda _g16077_ - (let ((_g16076_ (##length _g16077_))) - (cond ((##fx= _g16076_ 1) - (apply gx#core-resolve-module-path__0 _g16077_)) - ((##fx= _g16076_ 2) - (apply gx#core-resolve-module-path__% _g16077_)) + (lambda _g16668_ + (let ((_g16667_ (##length _g16668_))) + (cond ((##fx= _g16667_ 1) + (apply (lambda (_stx-path15112_) + (gx#core-resolve-module-path__0 _stx-path15112_)) + _g16668_)) + ((##fx= _g16667_ 2) + (apply (lambda (_stx-path15116_ _rel15117_) + (gx#core-resolve-module-path__% + _stx-path15116_ + _rel15117_)) + _g16668_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g16077_)))))) + _g16668_)))))) (define gx#core-resolve-library-module-path - (lambda (_libpath14393_) - (let* ((_spath14395_ (symbol->string (gx#stx-e _libpath14393_))) - (_spath14397_ - (substring _spath14395_ '1 (string-length _spath14395_))) - (_ext14399_ (path-extension _spath14397_)) - (_ssi14401_ - (if (string-empty? _ext14399_) - (string-append _spath14397_ '".ssi") + (lambda (_libpath14984_) + (let* ((_spath14986_ (symbol->string (gx#stx-e _libpath14984_))) + (_spath14988_ + (substring _spath14986_ '1 (string-length _spath14986_))) + (_ext14990_ (path-extension _spath14988_)) + (_ssi14992_ + (if (string-empty? _ext14990_) + (string-append _spath14988_ '".ssi") (string-append - (path-strip-extension _spath14397_) + (path-strip-extension _spath14988_) '".ssi"))) - (_srcs14405_ - (if (string-empty? _ext14399_) - (map (lambda (_ext14403_) - (string-append _spath14397_ _ext14403_)) + (_srcs14996_ + (if (string-empty? _ext14990_) + (map (lambda (_ext14994_) + (string-append _spath14988_ _ext14994_)) '(".ss" ".sld" ".scm")) - (cons _spath14397_ '())))) - (let _lp14408_ ((_rest14410_ + (cons _spath14988_ '())))) + (let _lp14999_ ((_rest15001_ (gx#current-expander-module-library-path))) - (let* ((_rest1441114420_ _rest14410_) - (_E1441414424_ + (let* ((_rest1500215011_ _rest15001_) + (_E1500515015_ (lambda () - (error '"No clause matching" _rest1441114420_)))) - (let ((_K1441614494_ - (lambda (_rest14435_ _dir14436_) - (letrec ((_resolve14438_ - (lambda (_ssi14450_ _srcs14451_) - (let ((_compiled-path14453_ - (path-expand _ssi14450_ _dir14436_))) - (if (file-exists? _compiled-path14453_) - (path-normalize _compiled-path14453_) - (let _lpr14455_ ((_rest-src14457_ - _srcs14451_)) - (let* ((_rest-src1445814466_ - _rest-src14457_) - (_else1446014474_ + (error '"No clause matching" _rest1500215011_)))) + (let ((_K1500715085_ + (lambda (_rest15026_ _dir15027_) + (letrec ((_resolve15029_ + (lambda (_ssi15041_ _srcs15042_) + (let ((_compiled-path15044_ + (path-expand _ssi15041_ _dir15027_))) + (if (file-exists? _compiled-path15044_) + (path-normalize _compiled-path15044_) + (let _lpr15046_ ((_rest-src15048_ + _srcs15042_)) + (let* ((_rest-src1504915057_ + _rest-src15048_) + (_else1505115065_ (lambda () - (_lp14408_ _rest14435_))) - (_K1446214482_ - (lambda (_rest-src14477_ - _src14478_) - (let ((_src-path14480_ + (_lp14999_ _rest15026_))) + (_K1505315073_ + (lambda (_rest-src15068_ + _src15069_) + (let ((_src-path15071_ (path-expand - _src14478_ - _dir14436_))) + _src15069_ + _dir15027_))) (if (file-exists? - _src-path14480_) + _src-path15071_) (path-normalize - _src-path14480_) - (_lpr14455_ - _rest-src14477_)))))) - (if (##pair? _rest-src1445814466_) - (let ((_hd1446314485_ - (##car _rest-src1445814466_)) - (_tl1446414487_ - (##cdr _rest-src1445814466_))) - (let* ((_src14490_ - _hd1446314485_) - (_rest-src14492_ - _tl1446414487_)) - (_K1446214482_ - _rest-src14492_ - _src14490_))) - (_else1446014474_))))))))) - (let ((_$e14440_ + _src-path15071_) + (_lpr15046_ + _rest-src15068_)))))) + (if (##pair? _rest-src1504915057_) + (let ((_hd1505415076_ + (##car _rest-src1504915057_)) + (_tl1505515078_ + (##cdr _rest-src1504915057_))) + (let* ((_src15081_ + _hd1505415076_) + (_rest-src15083_ + _tl1505515078_)) + (_K1505315073_ + _rest-src15083_ + _src15081_))) + (_else1505115065_))))))))) + (let ((_$e15031_ (gx#core-library-package-path-prefix - _dir14436_))) - (if _$e14440_ - ((lambda (_prefix14443_) + _dir15027_))) + (if _$e15031_ + ((lambda (_prefix15034_) (if (string-prefix? - _prefix14443_ - _spath14397_) - (let ((_ssi14447_ + _prefix15034_ + _spath14988_) + (let ((_ssi15038_ (substring - _ssi14401_ - (string-length _prefix14443_) - (string-length _ssi14401_))) - (_srcs14448_ - (map (lambda (_src14445_) + _ssi14992_ + (string-length _prefix15034_) + (string-length _ssi14992_))) + (_srcs15039_ + (map (lambda (_src15036_) (substring - _src14445_ + _src15036_ (string-length - _prefix14443_) + _prefix15034_) (string-length - _src14445_))) - _srcs14405_))) - (_resolve14438_ - _ssi14447_ - _srcs14448_)) - (_lp14408_ _rest14435_))) - _$e14440_) - (_resolve14438_ _ssi14401_ _srcs14405_)))))) - (_K1441514429_ + _src15036_))) + _srcs14996_))) + (_resolve15029_ + _ssi15038_ + _srcs15039_)) + (_lp14999_ _rest15026_))) + _$e15031_) + (_resolve15029_ _ssi14992_ _srcs14996_)))))) + (_K1500615020_ (lambda () (gx#raise-syntax-error '#f '"Cannot find library module" - _libpath14393_)))) - (let ((_try-match1441314432_ + _libpath14984_)))) + (let ((_try-match1500415023_ (lambda () - (if (##null? _rest1441114420_) - (_K1441514429_) - (_E1441414424_))))) - (if (##pair? _rest1441114420_) - (let ((_tl1441814499_ (##cdr _rest1441114420_)) - (_hd1441714497_ (##car _rest1441114420_))) - (let ((_dir14502_ _hd1441714497_) - (_rest14504_ _tl1441814499_)) - (_K1441614494_ _rest14504_ _dir14502_))) - (_try-match1441314432_))))))))) + (if (##null? _rest1500215011_) + (_K1500615020_) + (_E1500515015_))))) + (if (##pair? _rest1500215011_) + (let ((_tl1500915090_ (##cdr _rest1500215011_)) + (_hd1500815088_ (##car _rest1500215011_))) + (let ((_dir15093_ _hd1500815088_) + (_rest15095_ _tl1500915090_)) + (_K1500715085_ _rest15095_ _dir15093_))) + (_try-match1500415023_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_modpath14366_) - (letrec ((_resolve14368_ - (lambda (_path14385_ _base14386_) - (let ((_$e14388_ (string-rindex _base14386_ '#\/))) - (if _$e14388_ - ((lambda (_idx14391_) + (lambda (_modpath14957_) + (letrec ((_resolve14959_ + (lambda (_path14976_ _base14977_) + (let ((_$e14979_ (string-rindex _base14977_ '#\/))) + (if _$e14979_ + ((lambda (_idx14982_) (gx#core-resolve-library-module-path (string->symbol (string-append '":" - (substring _base14386_ '0 _idx14391_) + (substring _base14977_ '0 _idx14982_) '"/" - _path14385_)))) - _$e14388_) + _path14976_)))) + _$e14979_) (gx#core-resolve-library-module-path (string->symbol - (string-append '":" _path14385_)))))))) - (let ((_spath14370_ (symbol->string (gx#stx-e _modpath14366_))) - (_mod14371_ + (string-append '":" _path14976_)))))))) + (let ((_spath14961_ (symbol->string (gx#stx-e _modpath14957_))) + (_mod14962_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _mod14371_ + (if _mod14962_ '#!void (gx#raise-syntax-error '#f '"Cannot resolve relative module path; not in module context" - _modpath14366_)) - (let ((_mpath14373_ + _modpath14957_)) + (let ((_mpath14964_ (symbol->string (##structure-ref - _mod14371_ + _mod14962_ '1 gx#expander-context::t '#f)))) - (let _lp14375_ ((_spath14377_ _spath14370_) - (_mpath14378_ _mpath14373_)) - (if (string-prefix? '"../" _spath14377_) - (let ((_$e14380_ (string-rindex _mpath14378_ '#\/))) - (if _$e14380_ - ((lambda (_idx14383_) - (_lp14375_ + (let _lp14966_ ((_spath14968_ _spath14961_) + (_mpath14969_ _mpath14964_)) + (if (string-prefix? '"../" _spath14968_) + (let ((_$e14971_ (string-rindex _mpath14969_ '#\/))) + (if _$e14971_ + ((lambda (_idx14974_) + (_lp14966_ (substring - _spath14377_ + _spath14968_ '3 - (string-length _spath14377_)) - (substring _mpath14378_ '0 _idx14383_))) - _$e14380_) + (string-length _spath14968_)) + (substring _mpath14969_ '0 _idx14974_))) + _$e14971_) (gx#raise-syntax-error '#f '"Cannot resolve relative module path; illegal traversal" - _modpath14366_))) - (if (string-prefix? '"./" _spath14377_) - (_lp14375_ + _modpath14957_))) + (if (string-prefix? '"./" _spath14968_) + (_lp14966_ (substring - _spath14377_ + _spath14968_ '2 - (string-length _spath14377_)) - _mpath14378_) - (_resolve14368_ _spath14377_ _mpath14378_))))))))) + (string-length _spath14968_)) + _mpath14969_) + (_resolve14959_ _spath14968_ _mpath14969_))))))))) (define gx#core-library-package-path-prefix - (lambda (_dir14359_) - (let ((_$e14361_ + (lambda (_dir14950_) + (let ((_$e14952_ (pgetq 'package: - (gx#core-library-package-plist__0 _dir14359_)))) - (if _$e14361_ - ((lambda (_pkg14364_) - (string-append (symbol->string _pkg14364_) '"/")) - _$e14361_) + (gx#core-library-package-plist__0 _dir14950_)))) + (if _$e14952_ + ((lambda (_pkg14955_) + (string-append (symbol->string _pkg14955_) '"/")) + _$e14952_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_dir14331_ _exists?14332_) - (let* ((_cache14334_ (gx#core-library-package-cache)) - (_$e14336_ (table-ref _cache14334_ _dir14331_ '#f))) - (if _$e14336_ - (values _$e14336_) - (let* ((_gerbil.pkg14339_ (path-expand '"gerbil.pkg" _dir14331_)) - (_plist14346_ - (if (or _exists?14332_ (file-exists? _gerbil.pkg14339_)) - (let ((_e14344_ + (lambda (_dir14922_ _exists?14923_) + (let* ((_cache14925_ (gx#core-library-package-cache)) + (_$e14927_ (table-ref _cache14925_ _dir14922_ '#f))) + (if _$e14927_ + (values _$e14927_) + (let* ((_gerbil.pkg14930_ (path-expand '"gerbil.pkg" _dir14922_)) + (_plist14937_ + (if (or _exists?14923_ (file-exists? _gerbil.pkg14930_)) + (let ((_e14935_ (gx#call-with-input-source-file - _gerbil.pkg14339_ + _gerbil.pkg14930_ read))) - (if (eof-object? _e14344_) + (if (eof-object? _e14935_) '() - (if (list? _e14344_) - _e14344_ + (if (list? _e14935_) + _e14935_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _gerbil.pkg14339_ - _e14344_)))) + _gerbil.pkg14930_ + _e14935_)))) '()))) - (table-set! _cache14334_ _dir14331_ _plist14346_) - _plist14346_))))) + (table-set! _cache14925_ _dir14922_ _plist14937_) + _plist14937_))))) (define gx#core-library-package-plist__0 - (lambda (_dir14352_) - (let ((_exists?14354_ '#f)) - (gx#core-library-package-plist__% _dir14352_ _exists?14354_)))) + (lambda (_dir14943_) + (let ((_exists?14945_ '#f)) + (gx#core-library-package-plist__% _dir14943_ _exists?14945_)))) (define gx#core-library-package-plist - (lambda _g16079_ - (let ((_g16078_ (##length _g16079_))) - (cond ((##fx= _g16078_ 1) - (apply gx#core-library-package-plist__0 _g16079_)) - ((##fx= _g16078_ 2) - (apply gx#core-library-package-plist__% _g16079_)) + (lambda _g16670_ + (let ((_g16669_ (##length _g16670_))) + (cond ((##fx= _g16669_ 1) + (apply (lambda (_dir14943_) + (gx#core-library-package-plist__0 _dir14943_)) + _g16670_)) + ((##fx= _g16669_ 2) + (apply (lambda (_dir14947_ _exists?14948_) + (gx#core-library-package-plist__% + _dir14947_ + _exists?14948_)) + _g16670_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g16079_)))))) + _g16670_)))))) (define gx#core-library-package-cache (lambda () - (let ((_$e14325_ (gx#current-expander-module-library-package-cache))) - (if _$e14325_ - (values _$e14325_) - (let ((_cache14328_ (make-table))) - (gx#current-expander-module-library-package-cache _cache14328_) - _cache14328_))))) + (let ((_$e14916_ (gx#current-expander-module-library-package-cache))) + (if _$e14916_ + (values _$e14916_) + (let ((_cache14919_ (make-table))) + (gx#current-expander-module-library-package-cache _cache14919_) + _cache14919_))))) (define gx#core-library-module-path? - (lambda (_stx14322_) (gx#core-special-module-path? _stx14322_ '#\:))) + (lambda (_stx14913_) (gx#core-special-module-path? _stx14913_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_stx14320_) (gx#core-special-module-path? _stx14320_ '#\.))) + (lambda (_stx14911_) (gx#core-special-module-path? _stx14911_ '#\.))) (define gx#core-special-module-path? - (lambda (_stx14315_ _char14316_) - (if (gx#identifier? _stx14315_) - (if (interned-symbol? (gx#stx-e _stx14315_)) - (let ((_str14318_ (symbol->string (gx#stx-e _stx14315_)))) - (if (fx> (string-length _str14318_) '1) - (eq? (string-ref _str14318_ '0) _char14316_) + (lambda (_stx14906_ _char14907_) + (if (gx#identifier? _stx14906_) + (if (interned-symbol? (gx#stx-e _stx14906_)) + (let ((_str14909_ (symbol->string (gx#stx-e _stx14906_)))) + (if (fx> (string-length _str14909_) '1) + (eq? (string-ref _str14909_ '0) _char14907_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_stx14309_) + (lambda (_stx14900_) (gx#core-bound-identifier?__% - _stx14309_ - (lambda (_g1431014312_) - (gx#expander-binding?__% _g1431014312_ gx#prelude-context?))))) + _stx14900_ + (lambda (_g1490114903_) + (gx#expander-binding?__% _g1490114903_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_stx14303_) + (lambda (_stx14894_) (gx#core-bound-identifier?__% - _stx14303_ - (lambda (_g1430414306_) - (gx#expander-binding?__% _g1430414306_ gx#module-context?))))) + _stx14894_ + (lambda (_g1489514897_) + (gx#expander-binding?__% _g1489514897_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_stx14290_) - (letrec ((_module-prelude?14292_ - (lambda (_e14298_) - (let ((_$e14300_ + (lambda (_stx14881_) + (letrec ((_module-prelude?14883_ + (lambda (_e14889_) + (let ((_$e14891_ (##structure-instance-of? - _e14298_ + _e14889_ 'gx#module-context::t))) - (if _$e14300_ - _$e14300_ + (if _$e14891_ + _$e14891_ (##structure-instance-of? - _e14298_ + _e14889_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _stx14290_ - (lambda (_g1429314295_) + _stx14881_ + (lambda (_g1488414886_) (gx#expander-binding?__% - _g1429314295_ - _module-prelude?14292_)))))) + _g1488414886_ + _module-prelude?14883_)))))) (define gx#core-bind-import!__% - (lambda (_in14220_ _ctx14221_ _force-weak?14222_) - (let* ((_in1422314232_ _in14220_) - (_E1422514236_ - (lambda () (error '"No clause matching" _in1422314232_))) - (_K1422614249_ - (lambda (_weak?14239_ _phi14240_ _key14241_ _source14242_) + (lambda (_in14811_ _ctx14812_ _force-weak?14813_) + (let* ((_in1481414823_ _in14811_) + (_E1481614827_ + (lambda () (error '"No clause matching" _in1481414823_))) + (_K1481714840_ + (lambda (_weak?14830_ _phi14831_ _key14832_ _source14833_) (gx#core-bind!__% - _key14241_ - (let ((_e14244_ - (gx#core-resolve-module-export _source14242_))) + _key14832_ + (let ((_e14835_ + (gx#core-resolve-module-export _source14833_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _e14244_ '1 gx#binding::t '#f) - _key14241_ - _phi14240_ - _e14244_ + (##unchecked-structure-ref _e14835_ '1 gx#binding::t '#f) + _key14832_ + _phi14831_ + _e14835_ (##unchecked-structure-ref - _source14242_ + _source14833_ '1 gx#module-export::t '#f) - (let ((_$e14246_ _force-weak?14222_)) - (if _$e14246_ _$e14246_ _weak?14239_)))) + (let ((_$e14837_ _force-weak?14813_)) + (if _$e14837_ _$e14837_ _weak?14830_)))) gx#core-context-rebind? - _phi14240_ - _ctx14221_)))) + _phi14831_ + _ctx14812_)))) (if (##structure-direct-instance-of? - _in1422314232_ + _in1481414823_ 'gx#module-import::t) - (let* ((_e1422714252_ (##vector-ref _in1422314232_ '1)) - (_source14255_ _e1422714252_) - (_e1422814257_ (##vector-ref _in1422314232_ '2)) - (_key14260_ _e1422814257_) - (_e1422914262_ (##vector-ref _in1422314232_ '3)) - (_phi14265_ _e1422914262_) - (_e1423014267_ (##vector-ref _in1422314232_ '4)) - (_weak?14270_ _e1423014267_)) - (_K1422614249_ - _weak?14270_ - _phi14265_ - _key14260_ - _source14255_)) - (_E1422514236_))))) + (let* ((_e1481814843_ (##vector-ref _in1481414823_ '1)) + (_source14846_ _e1481814843_) + (_e1481914848_ (##vector-ref _in1481414823_ '2)) + (_key14851_ _e1481914848_) + (_e1482014853_ (##vector-ref _in1481414823_ '3)) + (_phi14856_ _e1482014853_) + (_e1482114858_ (##vector-ref _in1481414823_ '4)) + (_weak?14861_ _e1482114858_)) + (_K1481714840_ + _weak?14861_ + _phi14856_ + _key14851_ + _source14846_)) + (_E1481614827_))))) (define gx#core-bind-import!__0 - (lambda (_in14275_) - (let* ((_ctx14277_ (gx#current-expander-context)) - (_force-weak?14279_ '#f)) - (gx#core-bind-import!__% _in14275_ _ctx14277_ _force-weak?14279_)))) + (lambda (_in14866_) + (let* ((_ctx14868_ (gx#current-expander-context)) + (_force-weak?14870_ '#f)) + (gx#core-bind-import!__% _in14866_ _ctx14868_ _force-weak?14870_)))) (define gx#core-bind-import!__1 - (lambda (_in14281_ _ctx14282_) - (let ((_force-weak?14284_ '#f)) - (gx#core-bind-import!__% _in14281_ _ctx14282_ _force-weak?14284_)))) + (lambda (_in14872_ _ctx14873_) + (let ((_force-weak?14875_ '#f)) + (gx#core-bind-import!__% _in14872_ _ctx14873_ _force-weak?14875_)))) (define gx#core-bind-import! - (lambda _g16081_ - (let ((_g16080_ (##length _g16081_))) - (cond ((##fx= _g16080_ 1) (apply gx#core-bind-import!__0 _g16081_)) - ((##fx= _g16080_ 2) (apply gx#core-bind-import!__1 _g16081_)) - ((##fx= _g16080_ 3) (apply gx#core-bind-import!__% _g16081_)) + (lambda _g16672_ + (let ((_g16671_ (##length _g16672_))) + (cond ((##fx= _g16671_ 1) + (apply (lambda (_in14866_) + (gx#core-bind-import!__0 _in14866_)) + _g16672_)) + ((##fx= _g16671_ 2) + (apply (lambda (_in14872_ _ctx14873_) + (gx#core-bind-import!__1 _in14872_ _ctx14873_)) + _g16672_)) + ((##fx= _g16671_ 3) + (apply (lambda (_in14877_ _ctx14878_ _force-weak?14879_) + (gx#core-bind-import!__% + _in14877_ + _ctx14878_ + _force-weak?14879_)) + _g16672_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g16081_)))))) + _g16672_)))))) (define gx#core-bind-weak-import!__% - (lambda (_in14206_ _ctx14207_) - (gx#core-bind-import!__% _in14206_ _ctx14207_ '#t))) + (lambda (_in14797_ _ctx14798_) + (gx#core-bind-import!__% _in14797_ _ctx14798_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_in14212_) - (let ((_ctx14214_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _in14212_ _ctx14214_)))) + (lambda (_in14803_) + (let ((_ctx14805_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _in14803_ _ctx14805_)))) (define gx#core-bind-weak-import! - (lambda _g16083_ - (let ((_g16082_ (##length _g16083_))) - (cond ((##fx= _g16082_ 1) - (apply gx#core-bind-weak-import!__0 _g16083_)) - ((##fx= _g16082_ 2) - (apply gx#core-bind-weak-import!__% _g16083_)) + (lambda _g16674_ + (let ((_g16673_ (##length _g16674_))) + (cond ((##fx= _g16673_ 1) + (apply (lambda (_in14803_) + (gx#core-bind-weak-import!__0 _in14803_)) + _g16674_)) + ((##fx= _g16673_ 2) + (apply (lambda (_in14807_ _ctx14808_) + (gx#core-bind-weak-import!__% _in14807_ _ctx14808_)) + _g16674_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g16083_)))))) + _g16674_)))))) (define gx#core-resolve-module-export - (lambda (_out14097_) - (letrec ((_subst14099_ - (lambda (_key14145_) - (let* ((_key1414614154_ _key14145_) - (_else1414814162_ (lambda () _key14145_)) - (_K1415014193_ - (lambda (_mark14165_ _id14166_) - (let* ((_mark1416714173_ _mark14165_) - (_E1416914177_ + (lambda (_out14688_) + (letrec ((_subst14690_ + (lambda (_key14736_) + (let* ((_key1473714745_ _key14736_) + (_else1473914753_ (lambda () _key14736_)) + (_K1474114784_ + (lambda (_mark14756_ _id14757_) + (let* ((_mark1475814764_ _mark14756_) + (_E1476014768_ (lambda () (error '"No clause matching" - _mark1416714173_))) - (_K1417014185_ - (lambda (_subst14180_) - (let ((_$e14182_ - (if _subst14180_ + _mark1475814764_))) + (_K1476114776_ + (lambda (_subst14771_) + (let ((_$e14773_ + (if _subst14771_ (table-ref - _subst14180_ - _id14166_ + _subst14771_ + _id14757_ '#f) '#f))) - (if _$e14182_ - _$e14182_ + (if _$e14773_ + _$e14773_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _key14145_)))))) + _key14736_)))))) (if (##structure-instance-of? - _mark1416714173_ + _mark1475814764_ 'gx#expander-mark::t) - (let* ((_e1417114188_ - (##vector-ref _mark1416714173_ '1)) - (_subst14191_ _e1417114188_)) - (_K1417014185_ _subst14191_)) - (_E1416914177_)))))) - (if (##pair? _key1414614154_) - (let ((_hd1415114196_ (##car _key1414614154_)) - (_tl1415214198_ (##cdr _key1414614154_))) - (let* ((_id14201_ _hd1415114196_) - (_mark14203_ _tl1415214198_)) - (_K1415014193_ _mark14203_ _id14201_))) - (_else1414814162_)))))) - (let* ((_out1410014110_ _out14097_) - (_E1410214114_ - (lambda () (error '"No clause matching" _out1410014110_))) - (_K1410314121_ - (lambda (_phi14117_ _key14118_ _ctx14119_) + (let* ((_e1476214779_ + (##vector-ref _mark1475814764_ '1)) + (_subst14782_ _e1476214779_)) + (_K1476114776_ _subst14782_)) + (_E1476014768_)))))) + (if (##pair? _key1473714745_) + (let ((_hd1474214787_ (##car _key1473714745_)) + (_tl1474314789_ (##cdr _key1473714745_))) + (let* ((_id14792_ _hd1474214787_) + (_mark14794_ _tl1474314789_)) + (_K1474114784_ _mark14794_ _id14792_))) + (_else1473914753_)))))) + (let* ((_out1469114701_ _out14688_) + (_E1469314705_ + (lambda () (error '"No clause matching" _out1469114701_))) + (_K1469414712_ + (lambda (_phi14708_ _key14709_ _ctx14710_) (gx#core-context-resolve - (gx#core-context-shift _ctx14119_ _phi14117_) - (_subst14099_ _key14118_))))) + (gx#core-context-shift _ctx14710_ _phi14708_) + (_subst14690_ _key14709_))))) (if (##structure-direct-instance-of? - _out1410014110_ + _out1469114701_ 'gx#module-export::t) - (let* ((_e1410414124_ (##vector-ref _out1410014110_ '1)) - (_ctx14127_ _e1410414124_) - (_e1410514129_ (##vector-ref _out1410014110_ '2)) - (_key14132_ _e1410514129_) - (_e1410614134_ (##vector-ref _out1410014110_ '3)) - (_phi14137_ _e1410614134_) - (_e1410714139_ (##vector-ref _out1410014110_ '4)) - (_e1410814142_ (##vector-ref _out1410014110_ '5))) - (_K1410314121_ _phi14137_ _key14132_ _ctx14127_)) - (_E1410214114_)))))) + (let* ((_e1469514715_ (##vector-ref _out1469114701_ '1)) + (_ctx14718_ _e1469514715_) + (_e1469614720_ (##vector-ref _out1469114701_ '2)) + (_key14723_ _e1469614720_) + (_e1469714725_ (##vector-ref _out1469114701_ '3)) + (_phi14728_ _e1469714725_) + (_e1469814730_ (##vector-ref _out1469114701_ '4)) + (_e1469914733_ (##vector-ref _out1469114701_ '5))) + (_K1469414712_ _phi14728_ _key14723_ _ctx14718_)) + (_E1469314705_)))))) (define gx#core-module-export->import__% - (lambda (_out14022_ _rename14023_ _dphi14024_) - (let* ((_out1402514035_ _out14022_) - (_E1402714039_ - (lambda () (error '"No clause matching" _out1402514035_))) - (_K1402814051_ - (lambda (_weak?14042_ - _name14043_ - _phi14044_ - _key14045_ - _ctx14046_) + (lambda (_out14613_ _rename14614_ _dphi14615_) + (let* ((_out1461614626_ _out14613_) + (_E1461814630_ + (lambda () (error '"No clause matching" _out1461614626_))) + (_K1461914642_ + (lambda (_weak?14633_ + _name14634_ + _phi14635_ + _key14636_ + _ctx14637_) (##structure gx#module-import::t - _out14022_ - (let ((_$e14048_ _rename14023_)) - (if _$e14048_ _$e14048_ _name14043_)) - (fx+ _phi14044_ _dphi14024_) - _weak?14042_)))) + _out14613_ + (let ((_$e14639_ _rename14614_)) + (if _$e14639_ _$e14639_ _name14634_)) + (fx+ _phi14635_ _dphi14615_) + _weak?14633_)))) (if (##structure-direct-instance-of? - _out1402514035_ + _out1461614626_ 'gx#module-export::t) - (let* ((_e1402914054_ (##vector-ref _out1402514035_ '1)) - (_ctx14057_ _e1402914054_) - (_e1403014059_ (##vector-ref _out1402514035_ '2)) - (_key14062_ _e1403014059_) - (_e1403114064_ (##vector-ref _out1402514035_ '3)) - (_phi14067_ _e1403114064_) - (_e1403214069_ (##vector-ref _out1402514035_ '4)) - (_name14072_ _e1403214069_) - (_e1403314074_ (##vector-ref _out1402514035_ '5)) - (_weak?14077_ _e1403314074_)) - (_K1402814051_ - _weak?14077_ - _name14072_ - _phi14067_ - _key14062_ - _ctx14057_)) - (_E1402714039_))))) + (let* ((_e1462014645_ (##vector-ref _out1461614626_ '1)) + (_ctx14648_ _e1462014645_) + (_e1462114650_ (##vector-ref _out1461614626_ '2)) + (_key14653_ _e1462114650_) + (_e1462214655_ (##vector-ref _out1461614626_ '3)) + (_phi14658_ _e1462214655_) + (_e1462314660_ (##vector-ref _out1461614626_ '4)) + (_name14663_ _e1462314660_) + (_e1462414665_ (##vector-ref _out1461614626_ '5)) + (_weak?14668_ _e1462414665_)) + (_K1461914642_ + _weak?14668_ + _name14663_ + _phi14658_ + _key14653_ + _ctx14648_)) + (_E1461814630_))))) (define gx#core-module-export->import__0 - (lambda (_out14082_) - (let* ((_rename14084_ '#f) (_dphi14086_ '0)) + (lambda (_out14673_) + (let* ((_rename14675_ '#f) (_dphi14677_ '0)) (gx#core-module-export->import__% - _out14082_ - _rename14084_ - _dphi14086_)))) + _out14673_ + _rename14675_ + _dphi14677_)))) (define gx#core-module-export->import__1 - (lambda (_out14088_ _rename14089_) - (let ((_dphi14091_ '0)) + (lambda (_out14679_ _rename14680_) + (let ((_dphi14682_ '0)) (gx#core-module-export->import__% - _out14088_ - _rename14089_ - _dphi14091_)))) + _out14679_ + _rename14680_ + _dphi14682_)))) (define gx#core-module-export->import - (lambda _g16085_ - (let ((_g16084_ (##length _g16085_))) - (cond ((##fx= _g16084_ 1) - (apply gx#core-module-export->import__0 _g16085_)) - ((##fx= _g16084_ 2) - (apply gx#core-module-export->import__1 _g16085_)) - ((##fx= _g16084_ 3) - (apply gx#core-module-export->import__% _g16085_)) + (lambda _g16676_ + (let ((_g16675_ (##length _g16676_))) + (cond ((##fx= _g16675_ 1) + (apply (lambda (_out14673_) + (gx#core-module-export->import__0 _out14673_)) + _g16676_)) + ((##fx= _g16675_ 2) + (apply (lambda (_out14679_ _rename14680_) + (gx#core-module-export->import__1 + _out14679_ + _rename14680_)) + _g16676_)) + ((##fx= _g16675_ 3) + (apply (lambda (_out14684_ _rename14685_ _dphi14686_) + (gx#core-module-export->import__% + _out14684_ + _rename14685_ + _dphi14686_)) + _g16676_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g16085_)))))) + _g16676_)))))) (define gx#core-expand-module% - (lambda (_stx13950_) - (letrec ((_make-context13952_ - (lambda (_id14003_) - (let* ((_super14005_ (gx#current-expander-context)) - (_bind-id14007_ (gx#stx-e _id14003_)) - (_mod-id14009_ + (lambda (_stx14541_) + (letrec ((_make-context14543_ + (lambda (_id14594_) + (let* ((_super14596_ (gx#current-expander-context)) + (_bind-id14598_ (gx#stx-e _id14594_)) + (_mod-id14600_ (if (##structure-instance-of? - _super14005_ + _super14596_ 'gx#module-context::t) (make-symbol (##structure-ref - _super14005_ + _super14596_ '1 gx#expander-context::t '#f) '"$" - _bind-id14007_) - _bind-id14007_)) - (_ns14011_ (symbol->string _mod-id14009_)) - (_path14018_ + _bind-id14598_) + _bind-id14598_)) + (_ns14602_ (symbol->string _mod-id14600_)) + (_path14609_ (if (##structure-instance-of? - _super14005_ + _super14596_ 'gx#module-context::t) - (let ((_path14013_ + (let ((_path14604_ (##unchecked-structure-ref - _super14005_ + _super14596_ '7 gx#module-context::t '#f))) - (if (or (pair? _path14013_) - (null? _path14013_)) - (cons _bind-id14007_ _path14013_) - (if (not _path14013_) - _bind-id14007_ - (cons _bind-id14007_ - (cons _path14013_ '()))))) - _bind-id14007_))) - (let ((__obj16061 + (if (or (pair? _path14604_) + (null? _path14604_)) + (cons _bind-id14598_ _path14604_) + (if (not _path14604_) + _bind-id14598_ + (cons _bind-id14598_ + (cons _path14604_ '()))))) + _bind-id14598_))) + (let ((__obj16652 (make-object gx#module-context::t '11))) (gx#module-context:::init! - __obj16061 - _mod-id14009_ - _super14005_ - _ns14011_ - _path14018_) - __obj16061))))) - (let* ((_e1395313963_ _stx13950_) - (_E1395513967_ + __obj16652 + _mod-id14600_ + _super14596_ + _ns14602_ + _path14609_) + __obj16652))))) + (let* ((_e1454414554_ _stx14541_) + (_E1454614558_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1395313963_))) - (_E1395413999_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1454414554_))) + (_E1454514590_ (lambda () - (if (gx#stx-pair? _e1395313963_) - (let ((_e1395613971_ (gx#syntax-e _e1395313963_))) - (let ((_hd1395713974_ (##car _e1395613971_)) - (_tl1395813976_ (##cdr _e1395613971_))) - (if (gx#stx-pair? _tl1395813976_) - (let ((_e1395913979_ - (gx#syntax-e _tl1395813976_))) - (let ((_hd1396013982_ (##car _e1395913979_)) - (_tl1396113984_ (##cdr _e1395913979_))) - (let* ((_id13987_ _hd1396013982_) - (_body13989_ _tl1396113984_)) - (if (and (gx#identifier? _id13987_) - (gx#stx-list? _body13989_)) - (let* ((_ctx13991_ - (_make-context13952_ - _id13987_)) - (_body13993_ + (if (gx#stx-pair? _e1454414554_) + (let ((_e1454714562_ (gx#syntax-e _e1454414554_))) + (let ((_hd1454814565_ (##car _e1454714562_)) + (_tl1454914567_ (##cdr _e1454714562_))) + (if (gx#stx-pair? _tl1454914567_) + (let ((_e1455014570_ + (gx#syntax-e _tl1454914567_))) + (let ((_hd1455114573_ (##car _e1455014570_)) + (_tl1455214575_ (##cdr _e1455014570_))) + (let* ((_id14578_ _hd1455114573_) + (_body14580_ _tl1455214575_)) + (if (and (gx#identifier? _id14578_) + (gx#stx-list? _body14580_)) + (let* ((_ctx14582_ + (_make-context14543_ + _id14578_)) + (_body14584_ (gx#core-expand-module-begin - _body13989_ - _ctx13991_)) - (_body13995_ + _body14580_ + _ctx14582_)) + (_body14586_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body13993_) + _body14584_) (gx#stx-source - _stx13950_)))) + _stx14541_)))) (##unchecked-structure-set! - _ctx13991_ + _ctx14582_ (make-promise (lambda () - (gx#eval-syntax* _body13995_))) + (gx#eval-syntax* _body14586_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx13991_ - _body13995_ + _ctx14582_ + _body14586_ '11 gx#module-context::t '#f) (gx#core-bind-syntax!__0 - _id13987_ - _ctx13991_) + _id14578_ + _ctx14582_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _id13987_) - _body13995_) - (gx#stx-source _stx13950_))) - (_E1395513967_))))) - (_E1395513967_)))) - (_E1395513967_))))) - (_E1395413999_))))) + _id14578_) + _body14586_) + (gx#stx-source _stx14541_))) + (_E1454614558_))))) + (_E1454614558_)))) + (_E1454614558_))))) + (_E1454514590_))))) (define gx#core-expand-module-begin - (lambda (_body13916_ _ctx13917_) + (lambda (_body14507_ _ctx14508_) (call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_stx13920_ - (gx#core-expand-head (cons '%%begin-module _body13916_))) - (_e1392113928_ _stx13920_) - (_E1392313932_ + (let* ((_stx14511_ + (gx#core-expand-head (cons '%%begin-module _body14507_))) + (_e1451214519_ _stx14511_) + (_E1451414523_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _stx13920_))) - (_E1392213946_ + _stx14511_))) + (_E1451314537_ (lambda () - (if (gx#stx-pair? _e1392113928_) - (let ((_e1392413936_ (gx#syntax-e _e1392113928_))) - (let ((_hd1392513939_ (##car _e1392413936_)) - (_tl1392613941_ (##cdr _e1392413936_))) - (if (and (gx#identifier? _hd1392513939_) + (if (gx#stx-pair? _e1451214519_) + (let ((_e1451514527_ (gx#syntax-e _e1451214519_))) + (let ((_hd1451614530_ (##car _e1451514527_)) + (_tl1451714532_ (##cdr _e1451514527_))) + (if (and (gx#identifier? _hd1451614530_) (gx#core-identifier=? - _hd1392513939_ + _hd1451614530_ '%#begin-module)) - (let ((_body13944_ _tl1392613941_)) + (let ((_body14535_ _tl1451714532_)) (if '#t - (if (gx#sealed-syntax? _stx13920_) - _body13944_ + (if (gx#sealed-syntax? _stx14511_) + _body14535_ (gx#core-expand-module-body - _body13944_)) - (_E1392313932_))) - (_E1392313932_)))) - (_E1392313932_))))) - (_E1392213946_))) + _body14535_)) + (_E1451414523_))) + (_E1451414523_)))) + (_E1451414523_))))) + (_E1451314537_))) gx#current-expander-context - _ctx13917_ + _ctx14508_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_body13712_) - (letrec ((_expand-special13714_ - (lambda (_hd13843_ _K13844_ _rest13845_ _r13846_) - (let* ((_e1384713864_ _hd13843_) - (_E1385913868_ + (lambda (_body14303_) + (letrec ((_expand-special14305_ + (lambda (_hd14434_ _K14435_ _rest14436_ _r14437_) + (let* ((_e1443814455_ _hd14434_) + (_E1445014459_ (lambda () - (_K13844_ - _rest13845_ - (cons (gx#core-expand-top _hd13843_) - _r13846_)))) - (_E1384913880_ + (_K14435_ + _rest14436_ + (cons (gx#core-expand-top _hd14434_) + _r14437_)))) + (_E1444014471_ (lambda () - (if (gx#stx-pair? _e1384713864_) - (let ((_e1386013872_ - (gx#syntax-e _e1384713864_))) - (let ((_hd1386113875_ - (##car _e1386013872_)) - (_tl1386213877_ - (##cdr _e1386013872_))) - (if (and (gx#identifier? _hd1386113875_) + (if (gx#stx-pair? _e1443814455_) + (let ((_e1445114463_ + (gx#syntax-e _e1443814455_))) + (let ((_hd1445214466_ + (##car _e1445114463_)) + (_tl1445314468_ + (##cdr _e1445114463_))) + (if (and (gx#identifier? _hd1445214466_) (gx#core-identifier=? - _hd1386113875_ + _hd1445214466_ '%#export)) (if '#t - (_K13844_ - _rest13845_ - (cons _hd13843_ _r13846_)) - (_E1385913868_)) - (_E1385913868_)))) - (_E1385913868_)))) - (_E1384813912_ + (_K14435_ + _rest14436_ + (cons _hd14434_ _r14437_)) + (_E1445014459_)) + (_E1445014459_)))) + (_E1445014459_)))) + (_E1443914503_ (lambda () - (if (gx#stx-pair? _e1384713864_) - (let ((_e1385013884_ - (gx#syntax-e _e1384713864_))) - (let ((_hd1385113887_ - (##car _e1385013884_)) - (_tl1385213889_ - (##cdr _e1385013884_))) - (if (and (gx#identifier? _hd1385113887_) + (if (gx#stx-pair? _e1443814455_) + (let ((_e1444114475_ + (gx#syntax-e _e1443814455_))) + (let ((_hd1444214478_ + (##car _e1444114475_)) + (_tl1444314480_ + (##cdr _e1444114475_))) + (if (and (gx#identifier? _hd1444214478_) (gx#core-identifier=? - _hd1385113887_ + _hd1444214478_ '%#define-values)) - (if (gx#stx-pair? _tl1385213889_) - (let ((_e1385313892_ + (if (gx#stx-pair? _tl1444314480_) + (let ((_e1444414483_ (gx#syntax-e - _tl1385213889_))) - (let ((_hd1385413895_ - (##car _e1385313892_)) - (_tl1385513897_ - (##cdr _e1385313892_))) - (let ((_hd-bind13900_ - _hd1385413895_)) + _tl1444314480_))) + (let ((_hd1444514486_ + (##car _e1444414483_)) + (_tl1444614488_ + (##cdr _e1444414483_))) + (let ((_hd-bind14491_ + _hd1444514486_)) (if (gx#stx-pair? - _tl1385513897_) - (let ((_e1385613902_ + _tl1444614488_) + (let ((_e1444714493_ (gx#syntax-e - _tl1385513897_))) - (let ((_hd1385713905_ + _tl1444614488_))) + (let ((_hd1444814496_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e1385613902_)) - (_tl1385813907_ (##cdr _e1385613902_))) - (let ((_expr13910_ _hd1385713905_)) - (if (gx#stx-null? _tl1385813907_) - (if (gx#core-bind-values? _hd-bind13900_) + (##car _e1444714493_)) + (_tl1444914498_ (##cdr _e1444714493_))) + (let ((_expr14501_ _hd1444814496_)) + (if (gx#stx-null? _tl1444914498_) + (if (gx#core-bind-values? _hd-bind14491_) (begin - (gx#core-bind-values!__0 _hd-bind13900_) - (_K13844_ - _rest13845_ - (cons _hd13843_ _r13846_))) - (_E1384913880_)) - (_E1384913880_))))) - (_E1384913880_))))) + (gx#core-bind-values!__0 _hd-bind14491_) + (_K14435_ + _rest14436_ + (cons _hd14434_ _r14437_))) + (_E1444014471_)) + (_E1444014471_))))) + (_E1444014471_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1384913880_)) - (_E1384913880_)))) - (_E1384913880_))))) - (_E1384813912_)))) - (_expand-body13715_ - (lambda (_rbody13717_) - (let _lp13719_ ((_rest13721_ _rbody13717_) - (_body13722_ '())) - (let* ((_rest1372313731_ _rest13721_) - (_else1372513739_ (lambda () _body13722_)) - (_K1372713831_ - (lambda (_rest13742_ _hd13743_) - (let* ((_e1374413765_ _hd13743_) - (_E1376013769_ + (_E1444014471_)) + (_E1444014471_)))) + (_E1444014471_))))) + (_E1443914503_)))) + (_expand-body14306_ + (lambda (_rbody14308_) + (let _lp14310_ ((_rest14312_ _rbody14308_) + (_body14313_ '())) + (let* ((_rest1431414322_ _rest14312_) + (_else1431614330_ (lambda () _body14313_)) + (_K1431814422_ + (lambda (_rest14333_ _hd14334_) + (let* ((_e1433514356_ _hd14334_) + (_E1435114360_ (lambda () - (_lp13719_ - _rest13742_ + (_lp14310_ + _rest14333_ (cons (gx#core-expand-expression - _hd13743_) - _body13722_)))) - (_E1375613783_ + _hd14334_) + _body14313_)))) + (_E1434714374_ (lambda () - (if (gx#stx-pair? _e1374413765_) - (let ((_e1376113773_ + (if (gx#stx-pair? _e1433514356_) + (let ((_e1435214364_ (gx#syntax-e - _e1374413765_))) - (let ((_hd1376213776_ - (##car _e1376113773_)) - (_tl1376313778_ - (##cdr _e1376113773_))) - (let ((_form13781_ - _hd1376213776_)) + _e1433514356_))) + (let ((_hd1435314367_ + (##car _e1435214364_)) + (_tl1435414369_ + (##cdr _e1435214364_))) + (let ((_form14372_ + _hd1435314367_)) (if (gx#core-bound-identifier?__% - _form13781_ + _form14372_ gx#special-form-binding?) - (_lp13719_ - _rest13742_ - (cons _hd13743_ - _body13722_)) - (_E1376013769_))))) - (_E1376013769_)))) - (_E1374613795_ + (_lp14310_ + _rest14333_ + (cons _hd14334_ + _body14313_)) + (_E1435114360_))))) + (_E1435114360_)))) + (_E1433714386_ (lambda () - (if (gx#stx-pair? _e1374413765_) - (let ((_e1375713787_ + (if (gx#stx-pair? _e1433514356_) + (let ((_e1434814378_ (gx#syntax-e - _e1374413765_))) - (let ((_hd1375813790_ - (##car _e1375713787_)) - (_tl1375913792_ - (##cdr _e1375713787_))) + _e1433514356_))) + (let ((_hd1434914381_ + (##car _e1434814378_)) + (_tl1435014383_ + (##cdr _e1434814378_))) (if (and (gx#identifier? - _hd1375813790_) + _hd1434914381_) (gx#core-identifier=? - _hd1375813790_ + _hd1434914381_ '%#export)) (if '#t - (_lp13719_ - _rest13742_ + (_lp14310_ + _rest14333_ (cons (gx#core-expand-export%__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd13743_) - _body13722_)) - (_E1375613783_)) - (_E1375613783_)))) + _hd14334_) + _body14313_)) + (_E1434714374_)) + (_E1434714374_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1375613783_)))) - (_E1374513827_ + (_E1434714374_)))) + (_E1433614418_ (lambda () - (if (gx#stx-pair? _e1374413765_) - (let ((_e1374713799_ + (if (gx#stx-pair? _e1433514356_) + (let ((_e1433814390_ (gx#syntax-e - _e1374413765_))) - (let ((_hd1374813802_ - (##car _e1374713799_)) - (_tl1374913804_ - (##cdr _e1374713799_))) + _e1433514356_))) + (let ((_hd1433914393_ + (##car _e1433814390_)) + (_tl1434014395_ + (##cdr _e1433814390_))) (if (and (gx#identifier? - _hd1374813802_) + _hd1433914393_) (gx#core-identifier=? - _hd1374813802_ + _hd1433914393_ '%#define-values)) (if (gx#stx-pair? - _tl1374913804_) - (let ((_e1375013807_ + _tl1434014395_) + (let ((_e1434114398_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1374913804_))) - (let ((_hd1375113810_ (##car _e1375013807_)) - (_tl1375213812_ (##cdr _e1375013807_))) - (let ((_hd-bind13815_ _hd1375113810_)) - (if (gx#stx-pair? _tl1375213812_) - (let ((_e1375313817_ (gx#syntax-e _tl1375213812_))) - (let ((_hd1375413820_ (##car _e1375313817_)) - (_tl1375513822_ (##cdr _e1375313817_))) - (let ((_expr13825_ _hd1375413820_)) - (if (gx#stx-null? _tl1375513822_) + (gx#syntax-e _tl1434014395_))) + (let ((_hd1434214401_ (##car _e1434114398_)) + (_tl1434314403_ (##cdr _e1434114398_))) + (let ((_hd-bind14406_ _hd1434214401_)) + (if (gx#stx-pair? _tl1434314403_) + (let ((_e1434414408_ (gx#syntax-e _tl1434314403_))) + (let ((_hd1434514411_ (##car _e1434414408_)) + (_tl1434614413_ (##cdr _e1434414408_))) + (let ((_expr14416_ _hd1434514411_)) + (if (gx#stx-null? _tl1434614413_) (if '#t - (_lp13719_ - _rest13742_ + (_lp14310_ + _rest14333_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _hd-bind13815_) + _hd-bind14406_) (gx#core-expand-expression - _expr13825_)) - (gx#stx-source _hd13743_)) - _body13722_)) - (_E1374613795_)) - (_E1374613795_))))) - (_E1374613795_))))) - (_E1374613795_)) - (_E1374613795_)))) + _expr14416_)) + (gx#stx-source _hd14334_)) + _body14313_)) + (_E1433714386_)) + (_E1433714386_))))) + (_E1433714386_))))) + (_E1433714386_)) + (_E1433714386_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1374613795_))))) - (_E1374513827_))))) - (if (##pair? _rest1372313731_) - (let ((_hd1372813834_ (##car _rest1372313731_)) - (_tl1372913836_ (##cdr _rest1372313731_))) - (let* ((_hd13839_ _hd1372813834_) - (_rest13841_ _tl1372913836_)) - (_K1372713831_ _rest13841_ _hd13839_))) - (_else1372513739_))))))) - (_expand-body13715_ + (_E1433714386_))))) + (_E1433614418_))))) + (if (##pair? _rest1431414322_) + (let ((_hd1431914425_ (##car _rest1431414322_)) + (_tl1432014427_ (##cdr _rest1431414322_))) + (let* ((_hd14430_ _hd1431914425_) + (_rest14432_ _tl1432014427_)) + (_K1431814422_ _rest14432_ _hd14430_))) + (_else1431614330_))))))) + (_expand-body14306_ (gx#core-expand-block__% - (cons '%#begin-module _body13712_) - _expand-special13714_ + (cons '%#begin-module _body14303_) + _expand-special14305_ '#f values))))) (define gx#core-expand-import/export - (lambda (_stx13555_ - _expanded?13556_ - _method13557_ - _current-phi13558_ - _expand113559_) - (letrec ((_K13561_ - (lambda (_rest13679_ _r13680_) - (let* ((_e1368113688_ _rest13679_) - (_E1368313692_ (lambda () _r13680_)) - (_E1368213708_ + (lambda (_stx14146_ + _expanded?14147_ + _method14148_ + _current-phi14149_ + _expand114150_) + (letrec ((_K14152_ + (lambda (_rest14270_ _r14271_) + (let* ((_e1427214279_ _rest14270_) + (_E1427414283_ (lambda () _r14271_)) + (_E1427314299_ (lambda () - (if (gx#stx-pair? _e1368113688_) - (let ((_e1368413696_ - (gx#syntax-e _e1368113688_))) - (let ((_hd1368513699_ - (##car _e1368413696_)) - (_tl1368613701_ - (##cdr _e1368413696_))) - (let* ((_hd13704_ _hd1368513699_) - (_rest13706_ _tl1368613701_)) + (if (gx#stx-pair? _e1427214279_) + (let ((_e1427514287_ + (gx#syntax-e _e1427214279_))) + (let ((_hd1427614290_ + (##car _e1427514287_)) + (_tl1427714292_ + (##cdr _e1427514287_))) + (let* ((_hd14295_ _hd1427614290_) + (_rest14297_ _tl1427714292_)) (if '#t - (_step13562_ - _hd13704_ - _rest13706_ - _r13680_) - (_E1368313692_))))) - (_E1368313692_))))) - (_E1368213708_)))) - (_step13562_ - (lambda (_hd13593_ _rest13594_ _r13595_) - (let* ((_e1359613614_ _hd13593_) - (_E1360913618_ + (_step14153_ + _hd14295_ + _rest14297_ + _r14271_) + (_E1427414283_))))) + (_E1427414283_))))) + (_E1427314299_)))) + (_step14153_ + (lambda (_hd14184_ _rest14185_ _r14186_) + (let* ((_e1418714205_ _hd14184_) + (_E1420014209_ (lambda () - (if (_expanded?13556_ (gx#stx-e _hd13593_)) - (_K13561_ - _rest13594_ - (cons (gx#stx-e _hd13593_) _r13595_)) - (_expand113559_ - _hd13593_ - _K13561_ - _rest13594_ - _r13595_)))) - (_E1360513634_ + (if (_expanded?14147_ (gx#stx-e _hd14184_)) + (_K14152_ + _rest14185_ + (cons (gx#stx-e _hd14184_) _r14186_)) + (_expand114150_ + _hd14184_ + _K14152_ + _rest14185_ + _r14186_)))) + (_E1419614225_ (lambda () - (if (gx#stx-pair? _e1359613614_) - (let ((_e1361013622_ - (gx#syntax-e _e1359613614_))) - (let ((_hd1361113625_ - (##car _e1361013622_)) - (_tl1361213627_ - (##cdr _e1361013622_))) - (let* ((_macro13630_ _hd1361113625_) - (_body13632_ _tl1361213627_)) + (if (gx#stx-pair? _e1418714205_) + (let ((_e1420114213_ + (gx#syntax-e _e1418714205_))) + (let ((_hd1420214216_ + (##car _e1420114213_)) + (_tl1420314218_ + (##cdr _e1420114213_))) + (let* ((_macro14221_ _hd1420214216_) + (_body14223_ _tl1420314218_)) (if (gx#core-bound-identifier?__% - _macro13630_ + _macro14221_ gx#syntax-binding?) - (_K13561_ + (_K14152_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _macro13630_) - _hd13593_ - _method13557_) - _rest13594_) - _r13595_) - (_E1360913618_))))) - (_E1360913618_)))) - (_E1359813648_ + _macro14221_) + _hd14184_ + _method14148_) + _rest14185_) + _r14186_) + (_E1420014209_))))) + (_E1420014209_)))) + (_E1418914239_ (lambda () - (if (gx#stx-pair? _e1359613614_) - (let ((_e1360613638_ - (gx#syntax-e _e1359613614_))) - (let ((_hd1360713641_ - (##car _e1360613638_)) - (_tl1360813643_ - (##cdr _e1360613638_))) - (if (eq? (gx#stx-e _hd1360713641_) + (if (gx#stx-pair? _e1418714205_) + (let ((_e1419714229_ + (gx#syntax-e _e1418714205_))) + (let ((_hd1419814232_ + (##car _e1419714229_)) + (_tl1419914234_ + (##cdr _e1419714229_))) + (if (eq? (gx#stx-e _hd1419814232_) 'begin:) - (let ((_body13646_ _tl1360813643_)) + (let ((_body14237_ _tl1419914234_)) (if '#t - (_K13561_ + (_K14152_ (gx#stx-foldr cons - _rest13594_ - _body13646_) - _r13595_) - (_E1360513634_))) - (_E1360513634_)))) - (_E1360513634_)))) - (_E1359713675_ + _rest14185_ + _body14237_) + _r14186_) + (_E1419614225_))) + (_E1419614225_)))) + (_E1419614225_)))) + (_E1418814266_ (lambda () - (if (gx#stx-pair? _e1359613614_) - (let ((_e1359913652_ - (gx#syntax-e _e1359613614_))) - (let ((_hd1360013655_ - (##car _e1359913652_)) - (_tl1360113657_ - (##cdr _e1359913652_))) - (if (eq? (gx#stx-e _hd1360013655_) 'phi:) - (if (gx#stx-pair? _tl1360113657_) - (let ((_e1360213660_ + (if (gx#stx-pair? _e1418714205_) + (let ((_e1419014243_ + (gx#syntax-e _e1418714205_))) + (let ((_hd1419114246_ + (##car _e1419014243_)) + (_tl1419214248_ + (##cdr _e1419014243_))) + (if (eq? (gx#stx-e _hd1419114246_) 'phi:) + (if (gx#stx-pair? _tl1419214248_) + (let ((_e1419314251_ (gx#syntax-e - _tl1360113657_))) - (let ((_hd1360313663_ - (##car _e1360213660_)) - (_tl1360413665_ - (##cdr _e1360213660_))) - (let* ((_dphi13668_ - _hd1360313663_) - (_body13670_ - _tl1360413665_)) + _tl1419214248_))) + (let ((_hd1419414254_ + (##car _e1419314251_)) + (_tl1419514256_ + (##cdr _e1419314251_))) + (let* ((_dphi14259_ + _hd1419414254_) + (_body14261_ + _tl1419514256_)) (if (gx#stx-fixnum? - _dphi13668_) - (let ((_rbody13673_ + _dphi14259_) + (let ((_rbody14264_ (call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_K13561_ _body13670_ '())) - _current-phi13558_ - (fx+ (gx#stx-e _dphi13668_) (_current-phi13558_))))) - (_K13561_ _rest13594_ (foldr1 cons _r13595_ _rbody13673_))) - (_E1359813648_))))) + (_K14152_ _body14261_ '())) + _current-phi14149_ + (fx+ (gx#stx-e _dphi14259_) (_current-phi14149_))))) + (_K14152_ _rest14185_ (foldr1 cons _r14186_ _rbody14264_))) + (_E1418914239_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1359813648_)) - (_E1359813648_)))) - (_E1359813648_))))) - (_E1359713675_))))) - (let* ((_e1356313570_ _stx13555_) - (_E1356513574_ + (_E1418914239_)) + (_E1418914239_)))) + (_E1418914239_))))) + (_E1418814266_))))) + (let* ((_e1415414161_ _stx14146_) + (_E1415614165_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1356313570_))) - (_E1356413589_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1415414161_))) + (_E1415514180_ (lambda () - (if (gx#stx-pair? _e1356313570_) - (let ((_e1356613578_ (gx#syntax-e _e1356313570_))) - (let ((_hd1356713581_ (##car _e1356613578_)) - (_tl1356813583_ (##cdr _e1356613578_))) - (let ((_body13586_ _tl1356813583_)) + (if (gx#stx-pair? _e1415414161_) + (let ((_e1415714169_ (gx#syntax-e _e1415414161_))) + (let ((_hd1415814172_ (##car _e1415714169_)) + (_tl1415914174_ (##cdr _e1415714169_))) + (let ((_body14177_ _tl1415914174_)) (if '#t - (if (_current-phi13558_) - (_K13561_ _body13586_ '()) + (if (_current-phi14149_) + (_K14152_ _body14177_ '()) (call-with-parameters - (lambda () (_K13561_ _body13586_ '())) - _current-phi13558_ + (lambda () (_K14152_ _body14177_ '())) + _current-phi14149_ (gx#current-expander-phi))) - (_E1356513574_))))) - (_E1356513574_))))) - (_E1356413589_))))) + (_E1415614165_))))) + (_E1415614165_))))) + (_E1415514180_))))) (define gx#core-expand-import%__% - (lambda (_stx13222_ _internal-expand?13223_) - (letrec ((_expand113225_ - (lambda (_hd13535_ _K13536_ _rest13537_ _r13538_) - (if (gx#core-bound-module? _hd13535_) - (_import113226_ - (gx#syntax-local-e__0 _hd13535_) - _K13536_ - _rest13537_ - _r13538_) - (if (gx#core-library-module-path? _hd13535_) - (_import113226_ + (lambda (_stx13813_ _internal-expand?13814_) + (letrec ((_expand113816_ + (lambda (_hd14126_ _K14127_ _rest14128_ _r14129_) + (if (gx#core-bound-module? _hd14126_) + (_import113817_ + (gx#syntax-local-e__0 _hd14126_) + _K14127_ + _rest14128_ + _r14129_) + (if (gx#core-library-module-path? _hd14126_) + (_import113817_ (gx#import-module__0 - (gx#core-resolve-library-module-path _hd13535_)) - _K13536_ - _rest13537_ - _r13538_) + (gx#core-resolve-library-module-path _hd14126_)) + _K14127_ + _rest14128_ + _r14129_) (if (gx#core-library-relative-module-path? - _hd13535_) - (_import113226_ + _hd14126_) + (_import113817_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd13535_)) - _K13536_ - _rest13537_ - _r13538_) - (let ((_e13540_ (gx#stx-e _hd13535_))) - (if (pair? _e13540_) - (let ((_$e13542_ - (gx#stx-e (car _e13540_)))) - (if (eq? 'spec: _$e13542_) - (_import-spec13229_ - _hd13535_ - _K13536_ - _rest13537_ - _r13538_) - (if (eq? 'in: _$e13542_) - (_import-submodule13227_ - _hd13535_ - _K13536_ - _rest13537_ - _r13538_) - (if (eq? 'runtime: _$e13542_) - (_import-runtime13228_ - _hd13535_ - _K13536_ - _rest13537_ - _r13538_) + _hd14126_)) + _K14127_ + _rest14128_ + _r14129_) + (let ((_e14131_ (gx#stx-e _hd14126_))) + (if (pair? _e14131_) + (let ((_$e14133_ + (gx#stx-e (car _e14131_)))) + (if (eq? 'spec: _$e14133_) + (_import-spec13820_ + _hd14126_ + _K14127_ + _rest14128_ + _r14129_) + (if (eq? 'in: _$e14133_) + (_import-submodule13818_ + _hd14126_ + _K14127_ + _rest14128_ + _r14129_) + (if (eq? 'runtime: _$e14133_) + (_import-runtime13819_ + _hd14126_ + _K14127_ + _rest14128_ + _r14129_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx13222_ - _hd13535_))))) - (if (string? _e13540_) - (_import113226_ + _stx13813_ + _hd14126_))))) + (if (string? _e14131_) + (_import113817_ (gx#import-module__0 (gx#core-resolve-module-path__% - _hd13535_ - (gx#stx-source _stx13222_))) - _K13536_ - _rest13537_ - _r13538_) + _hd14126_ + (gx#stx-source _stx13813_))) + _K14127_ + _rest14128_ + _r14129_) (if (##structure-instance-of? - _e13540_ + _e14131_ 'gx#module-context::t) - (_K13536_ - _rest13537_ - (cons _e13540_ _r13538_)) + (_K14127_ + _rest14128_ + (cons _e14131_ _r14129_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx13222_ - _hd13535_)))))))))) - (_import113226_ - (lambda (_ctx13524_ _K13525_ _rest13526_ _r13527_) - (let ((_dphi13529_ + _stx13813_ + _hd14126_)))))))))) + (_import113817_ + (lambda (_ctx14115_ _K14116_ _rest14117_ _r14118_) + (let ((_dphi14120_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_K13525_ - _rest13526_ + (_K14116_ + _rest14117_ (cons (##structure gx#import-set::t - _ctx13524_ - _dphi13529_ - (map (lambda (_g1353013532_) + _ctx14115_ + _dphi14120_ + (map (lambda (_g1412114123_) (gx#core-module-export->import__% - _g1353013532_ + _g1412114123_ '#f - _dphi13529_)) + _dphi14120_)) (##unchecked-structure-ref - _ctx13524_ + _ctx14115_ '9 gx#module-context::t '#f))) - _r13527_))))) - (_import-submodule13227_ - (lambda (_hd13491_ _K13492_ _rest13493_ _r13494_) - (let* ((_e1349513502_ _hd13491_) - (_E1349713506_ + _r14118_))))) + (_import-submodule13818_ + (lambda (_hd14082_ _K14083_ _rest14084_ _r14085_) + (let* ((_e1408614093_ _hd14082_) + (_E1408814097_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1349513502_))) - (_E1349613520_ + _e1408614093_))) + (_E1408714111_ (lambda () - (if (gx#stx-pair? _e1349513502_) - (let ((_e1349813510_ - (gx#syntax-e _e1349513502_))) - (let ((_hd1349913513_ - (##car _e1349813510_)) - (_tl1350013515_ - (##cdr _e1349813510_))) - (let ((_spath13518_ _tl1350013515_)) + (if (gx#stx-pair? _e1408614093_) + (let ((_e1408914101_ + (gx#syntax-e _e1408614093_))) + (let ((_hd1409014104_ + (##car _e1408914101_)) + (_tl1409114106_ + (##cdr _e1408914101_))) + (let ((_spath14109_ _tl1409114106_)) (if '#t - (_import113226_ - (_import-spec-source13230_ - _spath13518_) - _K13492_ - _rest13493_ - _r13494_) - (_E1349713506_))))) - (_E1349713506_))))) - (_E1349613520_)))) - (_import-runtime13228_ - (lambda (_hd13458_ _K13459_ _rest13460_ _r13461_) - (let* ((_e1346213469_ _hd13458_) - (_E1346413473_ + (_import113817_ + (_import-spec-source13821_ + _spath14109_) + _K14083_ + _rest14084_ + _r14085_) + (_E1408814097_))))) + (_E1408814097_))))) + (_E1408714111_)))) + (_import-runtime13819_ + (lambda (_hd14049_ _K14050_ _rest14051_ _r14052_) + (let* ((_e1405314060_ _hd14049_) + (_E1405514064_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1346213469_))) - (_E1346313487_ + _e1405314060_))) + (_E1405414078_ (lambda () - (if (gx#stx-pair? _e1346213469_) - (let ((_e1346513477_ - (gx#syntax-e _e1346213469_))) - (let ((_hd1346613480_ - (##car _e1346513477_)) - (_tl1346713482_ - (##cdr _e1346513477_))) - (let ((_spath13485_ _tl1346713482_)) + (if (gx#stx-pair? _e1405314060_) + (let ((_e1405614068_ + (gx#syntax-e _e1405314060_))) + (let ((_hd1405714071_ + (##car _e1405614068_)) + (_tl1405814073_ + (##cdr _e1405614068_))) + (let ((_spath14076_ _tl1405814073_)) (if '#t - (_K13459_ - _rest13460_ - (cons (_import-spec-source13230_ - _spath13485_) - _r13461_)) - (_E1346413473_))))) - (_E1346413473_))))) - (_E1346313487_)))) - (_import-spec13229_ - (lambda (_hd13297_ _K13298_ _rest13299_ _r13300_) - (let* ((_e1330113318_ _hd13297_) - (_E1331013322_ + (_K14050_ + _rest14051_ + (cons (_import-spec-source13821_ + _spath14076_) + _r14052_)) + (_E1405514064_))))) + (_E1405514064_))))) + (_E1405414078_)))) + (_import-spec13820_ + (lambda (_hd13888_ _K13889_ _rest13890_ _r13891_) + (let* ((_e1389213909_ _hd13888_) + (_E1390113913_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1330113318_))) - (_E1330313432_ + _e1389213909_))) + (_E1389414023_ (lambda () - (if (gx#stx-pair? _e1330113318_) - (let ((_e1331113326_ - (gx#syntax-e _e1330113318_))) - (let ((_hd1331213329_ - (##car _e1331113326_)) - (_tl1331313331_ - (##cdr _e1331113326_))) - (if (gx#stx-pair? _tl1331313331_) - (let ((_e1331413334_ - (gx#syntax-e _tl1331313331_))) - (let ((_hd1331513337_ - (##car _e1331413334_)) - (_tl1331613339_ - (##cdr _e1331413334_))) - (let* ((_path13342_ - _hd1331513337_) - (_specs13344_ - _tl1331613339_)) + (if (gx#stx-pair? _e1389213909_) + (let ((_e1390213917_ + (gx#syntax-e _e1389213909_))) + (let ((_hd1390313920_ + (##car _e1390213917_)) + (_tl1390413922_ + (##cdr _e1390213917_))) + (if (gx#stx-pair? _tl1390413922_) + (let ((_e1390513925_ + (gx#syntax-e _tl1390413922_))) + (let ((_hd1390613928_ + (##car _e1390513925_)) + (_tl1390713930_ + (##cdr _e1390513925_))) + (let* ((_path13933_ + _hd1390613928_) + (_specs13935_ + _tl1390713930_)) (if '#t - (let ((_src-ctx13346_ - (_import-spec-source13230_ - _path13342_)) - (_exports13347_ + (let ((_src-ctx13937_ + (_import-spec-source13821_ + _path13933_)) + (_exports13938_ (make-table)) - (_specs13348_ + (_specs13939_ (gx#syntax->list - _specs13344_))) + _specs13935_))) (for-each - (lambda (_out13350_) + (lambda (_out13941_) (table-set! - _exports13347_ + _exports13938_ (cons (##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out13350_ + _out13941_ '3 gx#module-export::t '#f) (##unchecked-structure-ref - _out13350_ + _out13941_ '4 gx#module-export::t '#f)) - _out13350_)) + _out13941_)) (##unchecked-structure-ref - _src-ctx13346_ + _src-ctx13937_ '9 gx#module-context::t '#f)) - (_K13298_ - _rest13299_ - (foldl1 (lambda (_spec13352_ _r13353_) - (let* ((_e1335413370_ _spec13352_) - (_E1335613374_ + (_K13889_ + _rest13890_ + (foldl1 (lambda (_spec13943_ _r13944_) + (let* ((_e1394513961_ _spec13943_) + (_E1394713965_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1335413370_))) - (_E1335513428_ + _e1394513961_))) + (_E1394614019_ (lambda () - (if (gx#stx-pair? _e1335413370_) - (let ((_e1335713378_ - (gx#syntax-e _e1335413370_))) - (let ((_hd1335813381_ - (##car _e1335713378_)) - (_tl1335913383_ - (##cdr _e1335713378_))) - (let ((_phi13386_ _hd1335813381_)) - (if (gx#stx-pair? _tl1335913383_) - (let ((_e1336013388_ + (if (gx#stx-pair? _e1394513961_) + (let ((_e1394813969_ + (gx#syntax-e _e1394513961_))) + (let ((_hd1394913972_ + (##car _e1394813969_)) + (_tl1395013974_ + (##cdr _e1394813969_))) + (let ((_phi13977_ _hd1394913972_)) + (if (gx#stx-pair? _tl1395013974_) + (let ((_e1395113979_ (gx#syntax-e - _tl1335913383_))) - (let ((_hd1336113391_ - (##car _e1336013388_)) - (_tl1336213393_ - (##cdr _e1336013388_))) - (let ((_name13396_ - _hd1336113391_)) + _tl1395013974_))) + (let ((_hd1395213982_ + (##car _e1395113979_)) + (_tl1395313984_ + (##cdr _e1395113979_))) + (let ((_name13987_ + _hd1395213982_)) (if (gx#stx-pair? - _tl1336213393_) - (let ((_e1336313398_ + _tl1395313984_) + (let ((_e1395413989_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1336213393_))) - (let ((_hd1336413401_ (##car _e1336313398_)) - (_tl1336513403_ (##cdr _e1336313398_))) - (let ((_src-phi13406_ _hd1336413401_)) - (if (gx#stx-pair? _tl1336513403_) - (let ((_e1336613408_ - (gx#syntax-e _tl1336513403_))) - (let ((_hd1336713411_ (##car _e1336613408_)) - (_tl1336813413_ (##cdr _e1336613408_))) - (let ((_src-name13416_ _hd1336713411_)) - (if (gx#stx-null? _tl1336813413_) - (if (and (gx#stx-fixnum? _src-phi13406_) + (gx#syntax-e _tl1395313984_))) + (let ((_hd1395513992_ (##car _e1395413989_)) + (_tl1395613994_ (##cdr _e1395413989_))) + (let ((_src-phi13997_ _hd1395513992_)) + (if (gx#stx-pair? _tl1395613994_) + (let ((_e1395713999_ + (gx#syntax-e _tl1395613994_))) + (let ((_hd1395814002_ (##car _e1395713999_)) + (_tl1395914004_ (##cdr _e1395713999_))) + (let ((_src-name14007_ _hd1395814002_)) + (if (gx#stx-null? _tl1395914004_) + (if (and (gx#stx-fixnum? _src-phi13997_) (gx#identifier? - _src-name13416_) - (gx#stx-fixnum? _phi13386_) - (gx#identifier? _name13396_)) - (let ((_src-phi13418_ - (gx#stx-e _src-phi13406_)) - (_src-name13419_ + _src-name14007_) + (gx#stx-fixnum? _phi13977_) + (gx#identifier? _name13987_)) + (let ((_src-phi14009_ + (gx#stx-e _src-phi13997_)) + (_src-name14010_ (gx#core-identifier-key - _src-name13416_)) - (_phi13420_ - (gx#stx-e _phi13386_)) - (_name13421_ + _src-name14007_)) + (_phi14011_ + (gx#stx-e _phi13977_)) + (_name14012_ (gx#core-identifier-key - _name13396_))) - (let ((_$e13423_ + _name13987_))) + (let ((_$e14014_ (table-ref - _exports13347_ - (cons _src-phi13418_ - _src-name13419_) + _exports13938_ + (cons _src-phi14009_ + _src-name14010_) '#f))) - (if _$e13423_ - ((lambda (_out13426_) + (if _$e14014_ + ((lambda (_out14017_) (cons (gx#core-module-export->import__% - _out13426_ - _name13421_ - (fx- _phi13420_ + _out14017_ + _name14012_ + (fx- _phi14011_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _src-phi13418_)) - _r13353_)) + _src-phi14009_)) + _r13944_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e13423_) + _$e14014_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _stx13222_ - _hd13297_)))) - (_E1335613374_)) - (_E1335613374_))))) - (_E1335613374_))))) - (_E1335613374_))))) + _stx13813_ + _hd13888_)))) + (_E1394713965_)) + (_E1394713965_))))) + (_E1394713965_))))) + (_E1394713965_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1335613374_))))) - (_E1335613374_))))) - (_E1335513428_))) - _r13300_ - _specs13348_))) + (_E1394713965_))))) + (_E1394713965_))))) + (_E1394614019_))) + _r13891_ + _specs13939_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1331013322_))))) - (_E1331013322_)))) - (_E1331013322_)))) - (_E1330213454_ + (_E1390113913_))))) + (_E1390113913_)))) + (_E1390113913_)))) + (_E1389314045_ (lambda () - (if (gx#stx-pair? _e1330113318_) - (let ((_e1330413436_ - (gx#syntax-e _e1330113318_))) - (let ((_hd1330513439_ - (##car _e1330413436_)) - (_tl1330613441_ - (##cdr _e1330413436_))) - (if (gx#stx-pair? _tl1330613441_) - (let ((_e1330713444_ - (gx#syntax-e _tl1330613441_))) - (let ((_hd1330813447_ - (##car _e1330713444_)) - (_tl1330913449_ - (##cdr _e1330713444_))) - (let ((_path13452_ - _hd1330813447_)) + (if (gx#stx-pair? _e1389213909_) + (let ((_e1389514027_ + (gx#syntax-e _e1389213909_))) + (let ((_hd1389614030_ + (##car _e1389514027_)) + (_tl1389714032_ + (##cdr _e1389514027_))) + (if (gx#stx-pair? _tl1389714032_) + (let ((_e1389814035_ + (gx#syntax-e _tl1389714032_))) + (let ((_hd1389914038_ + (##car _e1389814035_)) + (_tl1390014040_ + (##cdr _e1389814035_))) + (let ((_path14043_ + _hd1389914038_)) (if (gx#stx-null? - _tl1330913449_) + _tl1390014040_) (if '#t - (_K13298_ - _rest13299_ - (cons (_import-spec-source13230_ - _path13452_) - _r13300_)) - (_E1330313432_)) - (_E1330313432_))))) - (_E1330313432_)))) - (_E1330313432_))))) - (_E1330213454_)))) - (_import-spec-source13230_ - (lambda (_spath13295_) - (gx#core-import-nested-module _spath13295_ _stx13222_))) - (_import!13231_ - (lambda (_rbody13244_) - (letrec* ((_current-ctx13246_ + (_K13889_ + _rest13890_ + (cons (_import-spec-source13821_ + _path14043_) + _r13891_)) + (_E1389414023_)) + (_E1389414023_))))) + (_E1389414023_)))) + (_E1389414023_))))) + (_E1389314045_)))) + (_import-spec-source13821_ + (lambda (_spath13886_) + (gx#core-import-nested-module _spath13886_ _stx13813_))) + (_import!13822_ + (lambda (_rbody13835_) + (letrec* ((_current-ctx13837_ (gx#current-expander-context)) - (_deps13247_ (make-table 'test: eq?)) - (_bind!13248_ - (lambda (_hd13293_) + (_deps13838_ (make-table 'test: eq?)) + (_bind!13839_ + (lambda (_hd13884_) (gx#core-bind-import!__1 - _hd13293_ - _current-ctx13246_)))) - (let _lp13250_ ((_rest13252_ _rbody13244_) - (_body13253_ '())) - (let* ((_rest1325413262_ _rest13252_) - (_else1325613272_ + _hd13884_ + _current-ctx13837_)))) + (let _lp13841_ ((_rest13843_ _rbody13835_) + (_body13844_ '())) + (let* ((_rest1384513853_ _rest13843_) + (_else1384713863_ (lambda () (if (##structure-instance-of? - _current-ctx13246_ + _current-ctx13837_ 'gx#module-context::t) (##unchecked-structure-set! - _current-ctx13246_ + _current-ctx13837_ (foldl1 cons (##unchecked-structure-ref - _current-ctx13246_ + _current-ctx13837_ '8 gx#module-context::t '#f) - _body13253_) + _body13844_) '8 gx#module-context::t '#f) '#!void) (table-for-each - (lambda (_ctx13270_ _g16086_) - (gx#eval-module _ctx13270_)) - _deps13247_) - _body13253_)) - (_K1325813281_ - (lambda (_rest13275_ _hd13276_) + (lambda (_ctx13861_ _g16677_) + (gx#eval-module _ctx13861_)) + _deps13838_) + _body13844_)) + (_K1384913872_ + (lambda (_rest13866_ _hd13867_) (if (##structure-direct-instance-of? - _hd13276_ + _hd13867_ 'gx#module-import::t) (begin - (_bind!13248_ _hd13276_) + (_bind!13839_ _hd13867_) (if (and (fxpositive? (##unchecked-structure-ref - _hd13276_ + _hd13867_ '3 gx#module-import::t '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _hd13276_ + _hd13867_ '1 gx#module-import::t '#f) @@ -2562,10 +2632,10 @@ gx#module-export::t '#f))) (table-set! - _deps13247_ + _deps13838_ (##unchecked-structure-ref (##unchecked-structure-ref - _hd13276_ + _hd13867_ '1 gx#module-import::t '#f) @@ -2575,144 +2645,152 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _hd13276_ + _hd13867_ 'gx#import-set::t) (begin (for-each - _bind!13248_ + _bind!13839_ (##unchecked-structure-ref - _hd13276_ + _hd13867_ '3 gx#import-set::t '#f)) (if (fxpositive? (##unchecked-structure-ref - _hd13276_ + _hd13867_ '2 gx#import-set::t '#f)) (table-set! - _deps13247_ + _deps13838_ (##unchecked-structure-ref - _hd13276_ + _hd13867_ '1 gx#import-set::t '#f) '#t) '#!void)) - (let ((_$e13278_ + (let ((_$e13869_ (##structure-instance-of? - _hd13276_ + _hd13867_ 'gx#module-context::t))) - (if _$e13278_ - _$e13278_ + (if _$e13869_ + _$e13869_ (gx#raise-syntax-error '#f '"Unexpected import" - _stx13222_ - _hd13276_))))) - (_lp13250_ - _rest13275_ - (cons _hd13276_ _body13253_))))) - (if (##pair? _rest1325413262_) - (let ((_hd1325913284_ (##car _rest1325413262_)) - (_tl1326013286_ (##cdr _rest1325413262_))) - (let* ((_hd13289_ _hd1325913284_) - (_rest13291_ _tl1326013286_)) - (_K1325813281_ _rest13291_ _hd13289_))) - (_else1325613272_))))))) - (_expanded-import?13232_ - (lambda (_e13236_) - (let ((_$e13238_ + _stx13813_ + _hd13867_))))) + (_lp13841_ + _rest13866_ + (cons _hd13867_ _body13844_))))) + (if (##pair? _rest1384513853_) + (let ((_hd1385013875_ (##car _rest1384513853_)) + (_tl1385113877_ (##cdr _rest1384513853_))) + (let* ((_hd13880_ _hd1385013875_) + (_rest13882_ _tl1385113877_)) + (_K1384913872_ _rest13882_ _hd13880_))) + (_else1384713863_))))))) + (_expanded-import?13823_ + (lambda (_e13827_) + (let ((_$e13829_ (##structure-direct-instance-of? - _e13236_ + _e13827_ 'gx#import-set::t))) - (if _$e13238_ - _$e13238_ - (let ((_$e13241_ + (if _$e13829_ + _$e13829_ + (let ((_$e13832_ (##structure-direct-instance-of? - _e13236_ + _e13827_ 'gx#module-import::t))) - (if _$e13241_ - _$e13241_ + (if _$e13832_ + _$e13832_ (##structure-instance-of? - _e13236_ + _e13827_ 'gx#module-context::t)))))))) - (let ((_rbody13234_ + (let ((_rbody13825_ (gx#core-expand-import/export - _stx13222_ - _expanded-import?13232_ + _stx13813_ + _expanded-import?13823_ 'apply-import-expander gx#current-import-expander-phi - _expand113225_))) - (if _internal-expand?13223_ - (reverse _rbody13234_) + _expand113816_))) + (if _internal-expand?13814_ + (reverse _rbody13825_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_import!13231_ _rbody13234_)) - (gx#stx-source _stx13222_))))))) + (gx#core-cons '%#import (_import!13822_ _rbody13825_)) + (gx#stx-source _stx13813_))))))) (define gx#core-expand-import%__0 - (lambda (_stx13548_) - (let ((_internal-expand?13550_ '#f)) - (gx#core-expand-import%__% _stx13548_ _internal-expand?13550_)))) + (lambda (_stx14139_) + (let ((_internal-expand?14141_ '#f)) + (gx#core-expand-import%__% _stx14139_ _internal-expand?14141_)))) (define gx#core-expand-import% - (lambda _g16088_ - (let ((_g16087_ (##length _g16088_))) - (cond ((##fx= _g16087_ 1) (apply gx#core-expand-import%__0 _g16088_)) - ((##fx= _g16087_ 2) (apply gx#core-expand-import%__% _g16088_)) + (lambda _g16679_ + (let ((_g16678_ (##length _g16679_))) + (cond ((##fx= _g16678_ 1) + (apply (lambda (_stx14139_) + (gx#core-expand-import%__0 _stx14139_)) + _g16679_)) + ((##fx= _g16678_ 2) + (apply (lambda (_stx14143_ _internal-expand?14144_) + (gx#core-expand-import%__% + _stx14143_ + _internal-expand?14144_)) + _g16679_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g16088_)))))) + _g16679_)))))) (define gx#core-import-nested-module - (lambda (_spath13149_ _where13150_) - (let* ((_e1315113158_ _spath13149_) - (_E1315313162_ + (lambda (_spath13740_ _where13741_) + (let* ((_e1374213749_ _spath13740_) + (_E1374413753_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1315113158_))) - (_E1315213217_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1374213749_))) + (_E1374313808_ (lambda () - (if (gx#stx-pair? _e1315113158_) - (let ((_e1315413166_ (gx#syntax-e _e1315113158_))) - (let ((_hd1315513169_ (##car _e1315413166_)) - (_tl1315613171_ (##cdr _e1315413166_))) - (let* ((_origin13174_ _hd1315513169_) - (_sub13176_ _tl1315613171_)) + (if (gx#stx-pair? _e1374213749_) + (let ((_e1374513757_ (gx#syntax-e _e1374213749_))) + (let ((_hd1374613760_ (##car _e1374513757_)) + (_tl1374713762_ (##cdr _e1374513757_))) + (let* ((_origin13765_ _hd1374613760_) + (_sub13767_ _tl1374713762_)) (if '#t - (let ((_origin-ctx13178_ - (if (gx#stx-false? _origin13174_) + (let ((_origin-ctx13769_ + (if (gx#stx-false? _origin13765_) (gx#current-expander-context) (gx#import-module__0 - _origin13174_)))) - (let _lp13180_ ((_rest13182_ _sub13176_) - (_ctx13183_ - _origin-ctx13178_)) - (let* ((_e1318413191_ _rest13182_) - (_E1318613195_ - (lambda () _ctx13183_)) - (_E1318513213_ + _origin13765_)))) + (let _lp13771_ ((_rest13773_ _sub13767_) + (_ctx13774_ + _origin-ctx13769_)) + (let* ((_e1377513782_ _rest13773_) + (_E1377713786_ + (lambda () _ctx13774_)) + (_E1377613804_ (lambda () - (if (gx#stx-pair? _e1318413191_) - (let ((_e1318713199_ + (if (gx#stx-pair? _e1377513782_) + (let ((_e1377813790_ (gx#syntax-e - _e1318413191_))) - (let ((_hd1318813202_ - (##car _e1318713199_)) - (_tl1318913204_ - (##cdr _e1318713199_))) - (let* ((_id13207_ - _hd1318813202_) - (_rest13209_ - _tl1318913204_)) + _e1377513782_))) + (let ((_hd1377913793_ + (##car _e1377813790_)) + (_tl1378013795_ + (##cdr _e1377813790_))) + (let* ((_id13798_ + _hd1377913793_) + (_rest13800_ + _tl1378013795_)) (if '#t - (let ((_bind13211_ + (let ((_bind13802_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#resolve-identifier__% _id13207_ '0 _ctx13183_))) + (gx#resolve-identifier__% _id13798_ '0 _ctx13774_))) (if (and (##structure-direct-instance-of? - _bind13211_ + _bind13802_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind13211_ + _bind13802_ '4 gx#syntax-binding::t '#f) @@ -2721,747 +2799,800 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _where13150_ - _spath13149_ - _id13207_)) - (_lp13180_ - _rest13209_ + _where13741_ + _spath13740_ + _id13798_)) + (_lp13771_ + _rest13800_ (##unchecked-structure-ref - _bind13211_ + _bind13802_ '4 gx#syntax-binding::t '#f))) - (_E1318613195_))))) + (_E1377713786_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1318613195_))))) - (_E1318513213_)))) - (_E1315313162_))))) - (_E1315313162_))))) - (_E1315213217_)))) + (_E1377713786_))))) + (_E1377613804_)))) + (_E1374413753_))))) + (_E1374413753_))))) + (_E1374313808_)))) (define gx#core-expand-import-source - (lambda (_hd13147_) + (lambda (_hd13738_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _hd13147_ '())) + (cons 'import-internal% (cons _hd13738_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_stx12655_ _internal-expand?12656_) - (letrec* ((_make-export__1602616027_ - (lambda (_bind13095_ _phi13096_ _ctx13097_ _name13098_) - (let* ((_key13100_ + (lambda (_stx13246_ _internal-expand?13247_) + (letrec* ((_make-export__1661716618_ + (lambda (_bind13686_ _phi13687_ _ctx13688_ _name13689_) + (let* ((_key13691_ (##unchecked-structure-ref - _bind13095_ + _bind13686_ '2 gx#binding::t '#f)) - (_export-key13102_ - (if _name13098_ - (gx#core-identifier-key _name13098_) - _key13100_))) + (_export-key13693_ + (if _name13689_ + (gx#core-identifier-key _name13689_) + _key13691_))) (##structure gx#module-export::t - _ctx13097_ - _key13100_ - _phi13096_ - _export-key13102_ - (let ((_$e13105_ + _ctx13688_ + _key13691_ + _phi13687_ + _export-key13693_ + (let ((_$e13696_ (##structure-instance-of? - _bind13095_ + _bind13686_ 'gx#extern-binding::t))) - (if _$e13105_ - _$e13105_ + (if _$e13696_ + _$e13696_ (##structure-direct-instance-of? - _bind13095_ + _bind13686_ 'gx#import-binding::t))))))) - (_make-export__0__1602816031_ - (lambda (_bind13111_) - (let* ((_phi13113_ (gx#current-export-expander-phi)) - (_ctx13115_ (gx#current-expander-context)) - (_name13117_ '#f)) - (_make-export__1602616027_ - _bind13111_ - _phi13113_ - _ctx13115_ - _name13117_)))) - (_make-export__1__1602916032_ - (lambda (_bind13119_ _phi13120_) - (let* ((_ctx13122_ (gx#current-expander-context)) - (_name13124_ '#f)) - (_make-export__1602616027_ - _bind13119_ - _phi13120_ - _ctx13122_ - _name13124_)))) - (_make-export__2__1603016033_ - (lambda (_bind13126_ _phi13127_ _ctx13128_) - (let ((_name13130_ '#f)) - (_make-export__1602616027_ - _bind13126_ - _phi13127_ - _ctx13128_ - _name13130_)))) - (_make-export12658_ - (lambda _g16090_ - (let ((_g16089_ (##length _g16090_))) - (cond ((##fx= _g16089_ 1) - (apply _make-export__0__1602816031_ _g16090_)) - ((##fx= _g16089_ 2) - (apply _make-export__1__1602916032_ _g16090_)) - ((##fx= _g16089_ 3) - (apply _make-export__2__1603016033_ _g16090_)) - ((##fx= _g16089_ 4) - (apply _make-export__1602616027_ _g16090_)) + (_make-export__0__1661916622_ + (lambda (_bind13702_) + (let* ((_phi13704_ (gx#current-export-expander-phi)) + (_ctx13706_ (gx#current-expander-context)) + (_name13708_ '#f)) + (_make-export__1661716618_ + _bind13702_ + _phi13704_ + _ctx13706_ + _name13708_)))) + (_make-export__1__1662016623_ + (lambda (_bind13710_ _phi13711_) + (let* ((_ctx13713_ (gx#current-expander-context)) + (_name13715_ '#f)) + (_make-export__1661716618_ + _bind13710_ + _phi13711_ + _ctx13713_ + _name13715_)))) + (_make-export__2__1662116624_ + (lambda (_bind13717_ _phi13718_ _ctx13719_) + (let ((_name13721_ '#f)) + (_make-export__1661716618_ + _bind13717_ + _phi13718_ + _ctx13719_ + _name13721_)))) + (_make-export13249_ + (lambda _g16681_ + (let ((_g16680_ (##length _g16681_))) + (cond ((##fx= _g16680_ 1) + (apply (lambda (_bind13702_) + (_make-export__0__1661916622_ + _bind13702_)) + _g16681_)) + ((##fx= _g16680_ 2) + (apply (lambda (_bind13710_ _phi13711_) + (_make-export__1__1662016623_ + _bind13710_ + _phi13711_)) + _g16681_)) + ((##fx= _g16680_ 3) + (apply (lambda (_bind13717_ + _phi13718_ + _ctx13719_) + (_make-export__2__1662116624_ + _bind13717_ + _phi13718_ + _ctx13719_)) + _g16681_)) + ((##fx= _g16680_ 4) + (apply (lambda (_bind13723_ + _phi13724_ + _ctx13725_ + _name13726_) + (_make-export__1661716618_ + _bind13723_ + _phi13724_ + _ctx13725_ + _name13726_)) + _g16681_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g16090_)))))) - (_expand112659_ - (lambda (_hd12808_ _K12809_ _rest12810_ _r12811_) - (let* ((_e1281212844_ _hd12808_) - (_E1283912848_ + _g16681_)))))) + (_expand113250_ + (lambda (_hd13399_ _K13400_ _rest13401_ _r13402_) + (let* ((_e1340313435_ _hd13399_) + (_E1343013439_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _stx12655_ - _hd12808_))) - (_E1282912927_ + _stx13246_ + _hd13399_))) + (_E1342013518_ (lambda () - (if (gx#stx-pair? _e1281212844_) - (let ((_e1284012852_ - (gx#syntax-e _e1281212844_))) - (let ((_hd1284112855_ - (##car _e1284012852_)) - (_tl1284212857_ - (##cdr _e1284012852_))) - (if (eq? (gx#stx-e _hd1284112855_) + (if (gx#stx-pair? _e1340313435_) + (let ((_e1343113443_ + (gx#syntax-e _e1340313435_))) + (let ((_hd1343213446_ + (##car _e1343113443_)) + (_tl1343313448_ + (##cdr _e1343113443_))) + (if (eq? (gx#stx-e _hd1343213446_) 'import:) - (let ((_in12860_ _tl1284212857_)) - (if (gx#stx-list? _in12860_) - (let _lp12862_ ((_in-rest12864_ + (let ((_in13451_ _tl1343313448_)) + (if (gx#stx-list? _in13451_) + (let _lp13453_ ((_in-rest13455_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in12860_) - (_r12865_ _r12811_)) + _in13451_) + (_r13456_ _r13402_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e1286612873_ - _in-rest12864_) - (_E1286812877_ + (let* ((_e1345713464_ + _in-rest13455_) + (_E1345913468_ (lambda () - (_K12809_ - _rest12810_ - _r12865_))) - (_E1286712923_ + (_K13400_ + _rest13401_ + _r13456_))) + (_E1345813514_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e1286612873_) - (let ((_e1286912881_ (gx#syntax-e _e1286612873_))) - (let ((_hd1287012884_ (##car _e1286912881_)) - (_tl1287112886_ (##cdr _e1286912881_))) - (let* ((_hd12889_ _hd1287012884_) - (_in-rest12891_ _tl1287112886_)) + _e1345713464_) + (let ((_e1346013472_ (gx#syntax-e _e1345713464_))) + (let ((_hd1346113475_ (##car _e1346013472_)) + (_tl1346213477_ (##cdr _e1346013472_))) + (let* ((_hd13480_ _hd1346113475_) + (_in-rest13482_ _tl1346213477_)) (if '#t - (let ((_src12921_ - (if (gx#core-bound-module? _hd12889_) - (gx#syntax-local-e__0 _hd12889_) + (let ((_src13512_ + (if (gx#core-bound-module? _hd13480_) + (gx#syntax-local-e__0 _hd13480_) (if (gx#core-library-module-path? - _hd12889_) + _hd13480_) (gx#import-module__0 (gx#core-resolve-library-module-path - _hd12889_)) + _hd13480_)) (if (gx#core-library-relative-module-path? - _hd12889_) + _hd13480_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd12889_)) + _hd13480_)) (if (gx#stx-string? - _hd12889_) + _hd13480_) (gx#import-module__0 (gx#core-resolve-module-path__% - _hd12889_ + _hd13480_ (gx#stx-source - _stx12655_))) - (let* ((_e1289212899_ + _stx13246_))) + (let* ((_e1348313490_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd12889_) - (_E1289412903_ + _hd13480_) + (_E1348513494_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _stx12655_ - _hd12889_))) - (_E1289312917_ + _stx13246_ + _hd13480_))) + (_E1348413508_ (lambda () - (if (gx#stx-pair? _e1289212899_) - (let ((_e1289512907_ - (gx#syntax-e _e1289212899_))) - (let ((_hd1289612910_ (##car _e1289512907_)) - (_tl1289712912_ (##cdr _e1289512907_))) - (if (eq? (gx#stx-e _hd1289612910_) 'in:) - (let ((_spath12915_ _tl1289712912_)) + (if (gx#stx-pair? _e1348313490_) + (let ((_e1348613498_ + (gx#syntax-e _e1348313490_))) + (let ((_hd1348713501_ (##car _e1348613498_)) + (_tl1348813503_ (##cdr _e1348613498_))) + (if (eq? (gx#stx-e _hd1348713501_) 'in:) + (let ((_spath13506_ _tl1348813503_)) (if '#t (gx#core-import-nested-module - _spath12915_ - _stx12655_) - (_E1289412903_))) - (_E1289412903_)))) - (_E1289412903_))))) - (_E1289312917_)))))))) + _spath13506_ + _stx13246_) + (_E1348513494_))) + (_E1348513494_)))) + (_E1348513494_))))) + (_E1348413508_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp12862_ - _in-rest12891_ - (_export-imports12660_ - _src12921_ - _r12865_))) - (_E1286812877_))))) - (_E1286812877_))))) + (_lp13453_ + _in-rest13482_ + (_export-imports13251_ + _src13512_ + _r13456_))) + (_E1345913468_))))) + (_E1345913468_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1286712923_))) - (_E1283912848_))) - (_E1283912848_)))) - (_E1283912848_)))) - (_E1281612966_ + (_E1345813514_))) + (_E1343013439_))) + (_E1343013439_)))) + (_E1343013439_)))) + (_E1340713557_ (lambda () - (if (gx#stx-pair? _e1281212844_) - (let ((_e1283012931_ - (gx#syntax-e _e1281212844_))) - (let ((_hd1283112934_ - (##car _e1283012931_)) - (_tl1283212936_ - (##cdr _e1283012931_))) - (if (eq? (gx#stx-e _hd1283112934_) + (if (gx#stx-pair? _e1340313435_) + (let ((_e1342113522_ + (gx#syntax-e _e1340313435_))) + (let ((_hd1342213525_ + (##car _e1342113522_)) + (_tl1342313527_ + (##cdr _e1342113522_))) + (if (eq? (gx#stx-e _hd1342213525_) 'rename:) - (if (gx#stx-pair? _tl1283212936_) - (let ((_e1283312939_ + (if (gx#stx-pair? _tl1342313527_) + (let ((_e1342413530_ (gx#syntax-e - _tl1283212936_))) - (let ((_hd1283412942_ - (##car _e1283312939_)) - (_tl1283512944_ - (##cdr _e1283312939_))) - (let ((_id12947_ - _hd1283412942_)) + _tl1342313527_))) + (let ((_hd1342513533_ + (##car _e1342413530_)) + (_tl1342613535_ + (##cdr _e1342413530_))) + (let ((_id13538_ + _hd1342513533_)) (if (gx#stx-pair? - _tl1283512944_) - (let ((_e1283612949_ + _tl1342613535_) + (let ((_e1342713540_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1283512944_))) - (let ((_hd1283712952_ (##car _e1283612949_)) - (_tl1283812954_ (##cdr _e1283612949_))) - (let ((_name12957_ _hd1283712952_)) - (if (gx#stx-null? _tl1283812954_) + _tl1342613535_))) + (let ((_hd1342813543_ (##car _e1342713540_)) + (_tl1342913545_ (##cdr _e1342713540_))) + (let ((_name13548_ _hd1342813543_)) + (if (gx#stx-null? _tl1342913545_) (if '#t - (let* ((_phi12959_ + (let* ((_phi13550_ (gx#current-export-expander-phi)) - (_$e12961_ + (_$e13552_ (gx#core-resolve-identifier__1 - _id12947_ - _phi12959_))) - (if _$e12961_ - ((lambda (_bind12964_) - (_K12809_ - _rest12810_ - (cons (_make-export__1602616027_ - _bind12964_ - _phi12959_ + _id13538_ + _phi13550_))) + (if _$e13552_ + ((lambda (_bind13555_) + (_K13400_ + _rest13401_ + (cons (_make-export__1661716618_ + _bind13555_ + _phi13550_ (gx#current-expander-context) - _name12957_) - _r12811_))) - _$e12961_) + _name13548_) + _r13402_))) + _$e13552_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx12655_ - _hd12808_ - _id12947_))) - (_E1282912927_)) - (_E1282912927_))))) - (_E1282912927_))))) + _stx13246_ + _hd13399_ + _id13538_))) + (_E1342013518_)) + (_E1342013518_))))) + (_E1342013518_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1282912927_)) - (_E1282912927_)))) - (_E1282912927_)))) - (_E1281513015_ + (_E1342013518_)) + (_E1342013518_)))) + (_E1342013518_)))) + (_E1340613606_ (lambda () - (if (gx#stx-pair? _e1281212844_) - (let ((_e1281712970_ - (gx#syntax-e _e1281212844_))) - (let ((_hd1281812973_ - (##car _e1281712970_)) - (_tl1281912975_ - (##cdr _e1281712970_))) - (if (eq? (gx#stx-e _hd1281812973_) + (if (gx#stx-pair? _e1340313435_) + (let ((_e1340813561_ + (gx#syntax-e _e1340313435_))) + (let ((_hd1340913564_ + (##car _e1340813561_)) + (_tl1341013566_ + (##cdr _e1340813561_))) + (if (eq? (gx#stx-e _hd1340913564_) 'spec:) - (if (gx#stx-pair? _tl1281912975_) - (let ((_e1282012978_ + (if (gx#stx-pair? _tl1341013566_) + (let ((_e1341113569_ (gx#syntax-e - _tl1281912975_))) - (let ((_hd1282112981_ - (##car _e1282012978_)) - (_tl1282212983_ - (##cdr _e1282012978_))) - (let ((_phi12986_ - _hd1282112981_)) + _tl1341013566_))) + (let ((_hd1341213572_ + (##car _e1341113569_)) + (_tl1341313574_ + (##cdr _e1341113569_))) + (let ((_phi13577_ + _hd1341213572_)) (if (gx#stx-pair? - _tl1282212983_) - (let ((_e1282312988_ + _tl1341313574_) + (let ((_e1341413579_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1282212983_))) - (let ((_hd1282412991_ (##car _e1282312988_)) - (_tl1282512993_ (##cdr _e1282312988_))) - (let ((_id12996_ _hd1282412991_)) - (if (gx#stx-pair? _tl1282512993_) - (let ((_e1282612998_ (gx#syntax-e _tl1282512993_))) - (let ((_hd1282713001_ (##car _e1282612998_)) - (_tl1282813003_ (##cdr _e1282612998_))) - (let ((_name13006_ _hd1282713001_)) - (if (gx#stx-null? _tl1282813003_) - (if (and (gx#stx-fixnum? _phi12986_) - (gx#identifier? _id12996_) - (gx#identifier? _name13006_)) - (let* ((_phi13008_ - (gx#stx-e _phi12986_)) - (_$e13010_ + _tl1341313574_))) + (let ((_hd1341513582_ (##car _e1341413579_)) + (_tl1341613584_ (##cdr _e1341413579_))) + (let ((_id13587_ _hd1341513582_)) + (if (gx#stx-pair? _tl1341613584_) + (let ((_e1341713589_ (gx#syntax-e _tl1341613584_))) + (let ((_hd1341813592_ (##car _e1341713589_)) + (_tl1341913594_ (##cdr _e1341713589_))) + (let ((_name13597_ _hd1341813592_)) + (if (gx#stx-null? _tl1341913594_) + (if (and (gx#stx-fixnum? _phi13577_) + (gx#identifier? _id13587_) + (gx#identifier? _name13597_)) + (let* ((_phi13599_ + (gx#stx-e _phi13577_)) + (_$e13601_ (gx#core-resolve-identifier__1 - _id12996_ - _phi13008_))) - (if _$e13010_ - ((lambda (_bind13013_) - (_K12809_ - _rest12810_ - (cons (_make-export__1602616027_ - _bind13013_ - _phi13008_ + _id13587_ + _phi13599_))) + (if _$e13601_ + ((lambda (_bind13604_) + (_K13400_ + _rest13401_ + (cons (_make-export__1661716618_ + _bind13604_ + _phi13599_ (gx#current-expander-context) - _name13006_) - _r12811_))) - _$e13010_) + _name13597_) + _r13402_))) + _$e13601_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx12655_ - _hd12808_ - _id12996_))) - (_E1281612966_)) - (_E1281612966_))))) - (_E1281612966_))))) - (_E1281612966_))))) + _stx13246_ + _hd13399_ + _id13587_))) + (_E1340713557_)) + (_E1340713557_))))) + (_E1340713557_))))) + (_E1340713557_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1281612966_)) - (_E1281612966_)))) - (_E1281612966_)))) - (_E1281413026_ + (_E1340713557_)) + (_E1340713557_)))) + (_E1340713557_)))) + (_E1340513617_ (lambda () - (let ((_id13019_ _e1281212844_)) - (if (gx#identifier? _id13019_) - (let ((_$e13021_ + (let ((_id13610_ _e1340313435_)) + (if (gx#identifier? _id13610_) + (let ((_$e13612_ (gx#core-resolve-identifier__1 - _id13019_ + _id13610_ (gx#current-export-expander-phi)))) - (if _$e13021_ - ((lambda (_bind13024_) - (_K12809_ - _rest12810_ - (cons (_make-export__0__1602816031_ - _bind13024_) - _r12811_))) - _$e13021_) + (if _$e13612_ + ((lambda (_bind13615_) + (_K13400_ + _rest13401_ + (cons (_make-export__0__1661916622_ + _bind13615_) + _r13402_))) + _$e13612_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx12655_ - _hd12808_))) - (_E1281513015_))))) - (_E1281313090_ + _stx13246_ + _hd13399_))) + (_E1340613606_))))) + (_E1340413681_ (lambda () - (if (eq? (gx#stx-e _e1281212844_) '#t) + (if (eq? (gx#stx-e _e1340313435_) '#t) (if '#t - (let* ((_current-ctx13030_ + (let* ((_current-ctx13621_ (gx#current-expander-context)) - (_current-phi13032_ + (_current-phi13623_ (gx#current-export-expander-phi)) - (_phi-ctx13034_ + (_phi-ctx13625_ (gx#core-context-shift - _current-ctx13030_ - _current-phi13032_)) - (_phi-bind13036_ + _current-ctx13621_ + _current-phi13623_)) + (_phi-bind13627_ (table->list (##unchecked-structure-ref - _phi-ctx13034_ + _phi-ctx13625_ '2 gx#expander-context::t '#f)))) - (let _lp13039_ ((_bind-rest13041_ - _phi-bind13036_) - (_set13042_ '())) - (let* ((_bind-rest1304313053_ - _bind-rest13041_) - (_else1304513061_ + (let _lp13630_ ((_bind-rest13632_ + _phi-bind13627_) + (_set13633_ '())) + (let* ((_bind-rest1363413644_ + _bind-rest13632_) + (_else1363613652_ (lambda () - (_K12809_ - _rest12810_ + (_K13400_ + _rest13401_ (cons (##structure gx#export-set::t '#f - _current-phi13032_ - _set13042_) - _r12811_)))) - (_K1304713071_ - (lambda (_bind-rest13064_ - _bind13065_ - _key13066_) + _current-phi13623_ + _set13633_) + _r13402_)))) + (_K1363813662_ + (lambda (_bind-rest13655_ + _bind13656_ + _key13657_) (if (or (##structure-direct-instance-of? - _bind13065_ + _bind13656_ 'gx#import-binding::t) (gx#private-feature-binding? - _bind13065_)) - (_lp13039_ - _bind-rest13064_ - _set13042_) - (_lp13039_ - _bind-rest13064_ - (cons (_make-export__2__1603016033_ + _bind13656_)) + (_lp13630_ + _bind-rest13655_ + _set13633_) + (_lp13630_ + _bind-rest13655_ + (cons (_make-export__2__1662116624_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind13065_ - _current-phi13032_ - _current-ctx13030_) - _set13042_)))))) + _bind13656_ + _current-phi13623_ + _current-ctx13621_) + _set13633_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _bind-rest1304313053_) - (let ((_hd1304813074_ - (##car _bind-rest1304313053_)) - (_tl1304913076_ - (##cdr _bind-rest1304313053_))) - (if (##pair? _hd1304813074_) - (let ((_hd1305013079_ - (##car _hd1304813074_)) - (_tl1305113081_ - (##cdr _hd1304813074_))) - (let* ((_key13084_ + (if (##pair? _bind-rest1363413644_) + (let ((_hd1363913665_ + (##car _bind-rest1363413644_)) + (_tl1364013667_ + (##cdr _bind-rest1363413644_))) + (if (##pair? _hd1363913665_) + (let ((_hd1364113670_ + (##car _hd1363913665_)) + (_tl1364213672_ + (##cdr _hd1363913665_))) + (let* ((_key13675_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1305013079_) - (_bind13086_ _tl1305113081_) - (_bind-rest13088_ _tl1304913076_)) - (_K1304713071_ _bind-rest13088_ _bind13086_ _key13084_))) - (_else1304513061_))) + _hd1364113670_) + (_bind13677_ _tl1364213672_) + (_bind-rest13679_ _tl1364013667_)) + (_K1363813662_ _bind-rest13679_ _bind13677_ _key13675_))) + (_else1363613652_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else1304513061_))))) - (_E1281413026_)) - (_E1281413026_))))) - (_E1281313090_)))) - (_export-imports12660_ - (lambda (_src12684_ _r12685_) - (letrec* ((_current-ctx12687_ + (_else1363613652_))))) + (_E1340513617_)) + (_E1340513617_))))) + (_E1340413681_)))) + (_export-imports13251_ + (lambda (_src13275_ _r13276_) + (letrec* ((_current-ctx13278_ (gx#current-expander-context)) - (_current-phi12688_ + (_current-phi13279_ (gx#current-export-expander-phi)) - (_import->export12689_ - (lambda (_in12770_) - (let* ((_in1277112779_ _in12770_) - (_E1277312783_ + (_import->export13280_ + (lambda (_in13361_) + (let* ((_in1336213370_ _in13361_) + (_E1336413374_ (lambda () (error '"No clause matching" - _in1277112779_))) - (_K1277412790_ - (lambda (_phi12786_ - _key12787_ - _out12788_) + _in1336213370_))) + (_K1336513381_ + (lambda (_phi13377_ + _key13378_ + _out13379_) (##structure gx#module-export::t - _current-ctx12687_ - _key12787_ - _phi12786_ - _key12787_ + _current-ctx13278_ + _key13378_ + _phi13377_ + _key13378_ '#t)))) (if (##structure-direct-instance-of? - _in1277112779_ + _in1336213370_ 'gx#module-import::t) - (let* ((_e1277512793_ + (let* ((_e1336613384_ (##vector-ref - _in1277112779_ + _in1336213370_ '1)) - (_out12796_ _e1277512793_) - (_e1277612798_ + (_out13387_ _e1336613384_) + (_e1336713389_ (##vector-ref - _in1277112779_ + _in1336213370_ '2)) - (_key12801_ _e1277612798_) - (_e1277712803_ + (_key13392_ _e1336713389_) + (_e1336813394_ (##vector-ref - _in1277112779_ + _in1336213370_ '3)) - (_phi12806_ _e1277712803_)) - (_K1277412790_ - _phi12806_ - _key12801_ - _out12796_)) - (_E1277312783_))))) - (_fold-e12690_ - (lambda (_in12692_ _r12693_) - (let* ((_in1269412708_ _in12692_) - (_else1269712716_ - (lambda () _r12693_))) - (let ((_K1270312752_ - (lambda (_phi12748_ - _key12749_ - _out12750_) - (if (and (fx= _phi12748_ - _current-phi12688_) - (eq? _src12684_ + (_phi13397_ _e1336813394_)) + (_K1336513381_ + _phi13397_ + _key13392_ + _out13387_)) + (_E1336413374_))))) + (_fold-e13281_ + (lambda (_in13283_ _r13284_) + (let* ((_in1328513299_ _in13283_) + (_else1328813307_ + (lambda () _r13284_))) + (let ((_K1329413343_ + (lambda (_phi13339_ + _key13340_ + _out13341_) + (if (and (fx= _phi13339_ + _current-phi13279_) + (eq? _src13275_ (##unchecked-structure-ref - _out12750_ + _out13341_ '1 gx#module-export::t '#f))) - (cons (_import->export12689_ - _in12692_) - _r12693_) - _r12693_))) - (_K1269912727_ - (lambda (_imports12720_ - _phi12721_ - _ctx12722_) - (if (and (fx= _phi12721_ - _current-phi12688_) - (eq? _src12684_ - _ctx12722_)) - (foldl1 (lambda (_in12724_ + (cons (_import->export13280_ + _in13283_) + _r13284_) + _r13284_))) + (_K1329013318_ + (lambda (_imports13311_ + _phi13312_ + _ctx13313_) + (if (and (fx= _phi13312_ + _current-phi13279_) + (eq? _src13275_ + _ctx13313_)) + (foldl1 (lambda (_in13315_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r12725_) - (cons (_import->export12689_ _in12724_) _r12725_)) - _r12693_ - _imports12720_) + _r13316_) + (cons (_import->export13280_ _in13315_) _r13316_)) + _r13284_ + _imports13311_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r12693_)))) - (let ((_try-match1269612745_ + _r13284_)))) + (let ((_try-match1328713336_ (lambda () (if (##structure-direct-instance-of? - _in1269412708_ + _in1328513299_ 'gx#import-set::t) - (let* ((_e1270012730_ + (let* ((_e1329113321_ (##vector-ref - _in1269412708_ + _in1328513299_ '1)) - (_e1270112735_ + (_e1329213326_ (##vector-ref - _in1269412708_ + _in1328513299_ '2)) - (_e1270212740_ + (_e1329313331_ (##vector-ref - _in1269412708_ + _in1328513299_ '3))) - (let ((_ctx12733_ - _e1270012730_) - (_phi12738_ - _e1270112735_) - (_imports12743_ - _e1270212740_)) - (_K1269912727_ - _imports12743_ - _phi12738_ - _ctx12733_))) - (_else1269712716_))))) + (let ((_ctx13324_ + _e1329113321_) + (_phi13329_ + _e1329213326_) + (_imports13334_ + _e1329313331_)) + (_K1329013318_ + _imports13334_ + _phi13329_ + _ctx13324_))) + (_else1328813307_))))) (if (##structure-direct-instance-of? - _in1269412708_ + _in1328513299_ 'gx#module-import::t) - (let* ((_e1270412755_ + (let* ((_e1329513346_ (##vector-ref - _in1269412708_ + _in1328513299_ '1)) - (_e1270512760_ + (_e1329613351_ (##vector-ref - _in1269412708_ + _in1328513299_ '2)) - (_e1270612765_ + (_e1329713356_ (##vector-ref - _in1269412708_ + _in1328513299_ '3))) - (let ((_out12758_ _e1270412755_) - (_key12763_ _e1270512760_) - (_phi12768_ _e1270612765_)) - (_K1270312752_ - _phi12768_ - _key12763_ - _out12758_))) - (_try-match1269612745_)))))))) + (let ((_out13349_ _e1329513346_) + (_key13354_ _e1329613351_) + (_phi13359_ _e1329713356_)) + (_K1329413343_ + _phi13359_ + _key13354_ + _out13349_))) + (_try-match1328713336_)))))))) (cons (##structure gx#export-set::t - _src12684_ - _current-phi12688_ - (foldl1 _fold-e12690_ + _src13275_ + _current-phi13279_ + (foldl1 _fold-e13281_ '() (##unchecked-structure-ref - _current-ctx12687_ + _current-ctx13278_ '8 gx#module-context::t '#f))) - _r12685_)))) - (_export!12661_ - (lambda (_rbody12674_) - (letrec* ((_current-ctx12676_ + _r13276_)))) + (_export!13252_ + (lambda (_rbody13265_) + (letrec* ((_current-ctx13267_ (gx#current-expander-context)) - (_fold-e12677_ - (lambda (_out12681_ _r12682_) + (_fold-e13268_ + (lambda (_out13272_ _r13273_) (if (##structure-direct-instance-of? - _out12681_ + _out13272_ 'gx#module-export::t) - (cons _out12681_ _r12682_) + (cons _out13272_ _r13273_) (if (##structure-direct-instance-of? - _out12681_ + _out13272_ 'gx#export-set::t) (foldl1 cons - _r12682_ + _r13273_ (##unchecked-structure-ref - _out12681_ + _out13272_ '3 gx#export-set::t '#f)) - _r12682_))))) - (let ((_body12679_ (reverse _rbody12674_))) + _r13273_))))) + (let ((_body13270_ (reverse _rbody13265_))) (##unchecked-structure-set! - _current-ctx12676_ - (foldl1 _fold-e12677_ + _current-ctx13267_ + (foldl1 _fold-e13268_ (##unchecked-structure-ref - _current-ctx12676_ + _current-ctx13267_ '9 gx#module-context::t '#f) - _body12679_) + _body13270_) '9 gx#module-context::t '#f) - _body12679_)))) - (_expanded-export?12662_ - (lambda (_e12669_) - (let ((_$e12671_ + _body13270_)))) + (_expanded-export?13253_ + (lambda (_e13260_) + (let ((_$e13262_ (##structure-direct-instance-of? - _e12669_ + _e13260_ 'gx#module-export::t))) - (if _$e12671_ - _$e12671_ + (if _$e13262_ + _$e13262_ (##structure-direct-instance-of? - _e12669_ + _e13260_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _internal-expand?12656_) - (let ((_rbody12667_ + _internal-expand?13247_) + (let ((_rbody13258_ (gx#core-expand-import/export - _stx12655_ - _expanded-export?12662_ + _stx13246_ + _expanded-export?13253_ 'apply-export-expander gx#current-export-expander-phi - _expand112659_))) - (if _internal-expand?12656_ - (reverse _rbody12667_) + _expand113250_))) + (if _internal-expand?13247_ + (reverse _rbody13258_) (gx#core-quote-syntax__1 - (gx#core-cons '%#export (_export!12661_ _rbody12667_)) - (gx#stx-source _stx12655_)))) + (gx#core-cons '%#export (_export!13252_ _rbody13258_)) + (gx#stx-source _stx13246_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _stx12655_)) + (gx#stx-source _stx13246_)) (gx#raise-syntax-error '#f '"Illegal context" - _stx12655_)))))) + _stx13246_)))))) (define gx#core-expand-export%__0 - (lambda (_stx13140_) - (let ((_internal-expand?13142_ '#f)) - (gx#core-expand-export%__% _stx13140_ _internal-expand?13142_)))) + (lambda (_stx13731_) + (let ((_internal-expand?13733_ '#f)) + (gx#core-expand-export%__% _stx13731_ _internal-expand?13733_)))) (define gx#core-expand-export% - (lambda _g16092_ - (let ((_g16091_ (##length _g16092_))) - (cond ((##fx= _g16091_ 1) (apply gx#core-expand-export%__0 _g16092_)) - ((##fx= _g16091_ 2) (apply gx#core-expand-export%__% _g16092_)) + (lambda _g16683_ + (let ((_g16682_ (##length _g16683_))) + (cond ((##fx= _g16682_ 1) + (apply (lambda (_stx13731_) + (gx#core-expand-export%__0 _stx13731_)) + _g16683_)) + ((##fx= _g16682_ 2) + (apply (lambda (_stx13735_ _internal-expand?13736_) + (gx#core-expand-export%__% + _stx13735_ + _internal-expand?13736_)) + _g16683_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g16092_)))))) + _g16683_)))))) (define gx#core-expand-export-source - (lambda (_hd12652_) + (lambda (_hd13243_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _hd12652_ '())) + (cons 'export-macro% (cons _hd13243_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_stx12622_) - (let* ((_e1262312630_ _stx12622_) - (_E1262512634_ + (lambda (_stx13213_) + (let* ((_e1321413221_ _stx13213_) + (_E1321613225_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1262312630_))) - (_E1262412648_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1321413221_))) + (_E1321513239_ (lambda () - (if (gx#stx-pair? _e1262312630_) - (let ((_e1262612638_ (gx#syntax-e _e1262312630_))) - (let ((_hd1262712641_ (##car _e1262612638_)) - (_tl1262812643_ (##cdr _e1262612638_))) - (let ((_body12646_ _tl1262812643_)) - (if (gx#identifier-list? _body12646_) + (if (gx#stx-pair? _e1321413221_) + (let ((_e1321713229_ (gx#syntax-e _e1321413221_))) + (let ((_hd1321813232_ (##car _e1321713229_)) + (_tl1321913234_ (##cdr _e1321713229_))) + (let ((_body13237_ _tl1321913234_)) + (if (gx#identifier-list? _body13237_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _body12646_) + _body13237_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _body12646_)) - (gx#stx-source _stx12622_))) - (_E1262512634_))))) - (_E1262512634_))))) - (_E1262412648_)))) + _body13237_)) + (gx#stx-source _stx13213_))) + (_E1321613225_))))) + (_E1321613225_))))) + (_E1321513239_)))) (define gx#core-bind-feature!__% - (lambda (_id12588_ _private?12589_ _phi12590_ _ctx12591_) + (lambda (_id13179_ _private?13180_ _phi13181_ _ctx13182_) (gx#core-bind-syntax!__% - _id12588_ - ((if _private?12589_ + _id13179_ + ((if _private?13180_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _id12588_)) - _private?12589_ - _phi12590_ - _ctx12591_))) + (gx#stx-e _id13179_)) + _private?13180_ + _phi13181_ + _ctx13182_))) (define gx#core-bind-feature!__0 - (lambda (_id12596_) - (let* ((_private?12598_ '#f) - (_phi12600_ (gx#current-expander-phi)) - (_ctx12602_ (gx#current-expander-context))) + (lambda (_id13187_) + (let* ((_private?13189_ '#f) + (_phi13191_ (gx#current-expander-phi)) + (_ctx13193_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id12596_ - _private?12598_ - _phi12600_ - _ctx12602_)))) + _id13187_ + _private?13189_ + _phi13191_ + _ctx13193_)))) (define gx#core-bind-feature!__1 - (lambda (_id12604_ _private?12605_) - (let* ((_phi12607_ (gx#current-expander-phi)) - (_ctx12609_ (gx#current-expander-context))) + (lambda (_id13195_ _private?13196_) + (let* ((_phi13198_ (gx#current-expander-phi)) + (_ctx13200_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id12604_ - _private?12605_ - _phi12607_ - _ctx12609_)))) + _id13195_ + _private?13196_ + _phi13198_ + _ctx13200_)))) (define gx#core-bind-feature!__2 - (lambda (_id12611_ _private?12612_ _phi12613_) - (let ((_ctx12615_ (gx#current-expander-context))) + (lambda (_id13202_ _private?13203_ _phi13204_) + (let ((_ctx13206_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id12611_ - _private?12612_ - _phi12613_ - _ctx12615_)))) + _id13202_ + _private?13203_ + _phi13204_ + _ctx13206_)))) (define gx#core-bind-feature! - (lambda _g16094_ - (let ((_g16093_ (##length _g16094_))) - (cond ((##fx= _g16093_ 1) (apply gx#core-bind-feature!__0 _g16094_)) - ((##fx= _g16093_ 2) (apply gx#core-bind-feature!__1 _g16094_)) - ((##fx= _g16093_ 3) (apply gx#core-bind-feature!__2 _g16094_)) - ((##fx= _g16093_ 4) (apply gx#core-bind-feature!__% _g16094_)) + (lambda _g16685_ + (let ((_g16684_ (##length _g16685_))) + (cond ((##fx= _g16684_ 1) + (apply (lambda (_id13187_) + (gx#core-bind-feature!__0 _id13187_)) + _g16685_)) + ((##fx= _g16684_ 2) + (apply (lambda (_id13195_ _private?13196_) + (gx#core-bind-feature!__1 _id13195_ _private?13196_)) + _g16685_)) + ((##fx= _g16684_ 3) + (apply (lambda (_id13202_ _private?13203_ _phi13204_) + (gx#core-bind-feature!__2 + _id13202_ + _private?13203_ + _phi13204_)) + _g16685_)) + ((##fx= _g16684_ 4) + (apply (lambda (_id13208_ + _private?13209_ + _phi13210_ + _ctx13211_) + (gx#core-bind-feature!__% + _id13208_ + _private?13209_ + _phi13210_ + _ctx13211_)) + _g16685_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g16094_)))))))) + _g16685_)))))))) diff --git a/src/bootstrap/gerbil/expander/module__1.scm b/src/bootstrap/gerbil/expander/module__1.scm index 3730c3eb5..adc037109 100644 --- a/src/bootstrap/gerbil/expander/module__1.scm +++ b/src/bootstrap/gerbil/expander/module__1.scm @@ -1,384 +1,384 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g16095_| + (define |gx[1]#_g16686_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g16096_| + (define |gx[1]#_g16697_| (##structure gx#syntax-quote::t - 'make-module-import + 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16097_| + (define |gx[1]#_g16699_| (##structure gx#syntax-quote::t - 'module-import? + 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16098_| + (define |gx[1]#_g16701_| (##structure gx#syntax-quote::t - 'module-import-source + 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16099_| + (define |gx[1]#_g16703_| (##structure gx#syntax-quote::t - 'module-import-name + 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16100_| + (define |gx[1]#_g16709_| (##structure gx#syntax-quote::t - 'module-import-phi + 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g16101_| + (define |gx[1]#_g16711_| (##structure gx#syntax-quote::t - 'module-import-weak? + 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g16102_| + (define |gx[1]#_g16713_| (##structure gx#syntax-quote::t - 'module-import-source-set! + 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g16103_| + (define |gx[1]#_g16715_| (##structure gx#syntax-quote::t - 'module-import-name-set! + 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g16104_| + (define |gx[1]#_g16717_| (##structure gx#syntax-quote::t - 'module-import-phi-set! + 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g16105_| + (define |gx[1]#_g16719_| (##structure gx#syntax-quote::t - 'module-import-weak?-set! + 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g16106_| + (define |gx[1]#_g16721_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g16107_| + (define |gx[1]#_g16733_| (##structure gx#syntax-quote::t - 'make-module-export + 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16108_| + (define |gx[1]#_g16735_| (##structure gx#syntax-quote::t - 'module-export? + 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16109_| + (define |gx[1]#_g16737_| (##structure gx#syntax-quote::t - 'module-export-context + 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16110_| + (define |gx[1]#_g16739_| (##structure gx#syntax-quote::t - 'module-export-key + 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16111_| + (define |gx[1]#_g16741_| (##structure gx#syntax-quote::t - 'module-export-phi + 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16112_| + (define |gx[1]#_g16748_| (##structure gx#syntax-quote::t - 'module-export-name + 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g16113_| + (define |gx[1]#_g16750_| (##structure gx#syntax-quote::t - 'module-export-weak? + 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g16114_| + (define |gx[1]#_g16752_| (##structure gx#syntax-quote::t - 'module-export-context-set! + 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g16115_| + (define |gx[1]#_g16754_| (##structure gx#syntax-quote::t - 'module-export-key-set! + 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g16116_| + (define |gx[1]#_g16756_| (##structure gx#syntax-quote::t - 'module-export-phi-set! + 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g16117_| + (define |gx[1]#_g16758_| (##structure gx#syntax-quote::t - 'module-export-name-set! + 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g16118_| + (define |gx[1]#_g16760_| (##structure gx#syntax-quote::t - 'module-export-weak?-set! + 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g16119_| + (define |gx[1]#_g16762_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g16120_| + (define |gx[1]#_g16772_| (##structure gx#syntax-quote::t - 'make-import-set + 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16121_| + (define |gx[1]#_g16774_| (##structure gx#syntax-quote::t - 'import-set? + 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16122_| + (define |gx[1]#_g16776_| (##structure gx#syntax-quote::t - 'import-set-source + 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16123_| + (define |gx[1]#_g16781_| (##structure gx#syntax-quote::t - 'import-set-phi + 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g16124_| + (define |gx[1]#_g16783_| (##structure gx#syntax-quote::t - 'import-set-imports + 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g16125_| + (define |gx[1]#_g16785_| (##structure gx#syntax-quote::t - 'import-set-source-set! + 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g16126_| + (define |gx[1]#_g16787_| (##structure gx#syntax-quote::t - 'import-set-phi-set! + 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g16127_| + (define |gx[1]#_g16789_| (##structure gx#syntax-quote::t - 'import-set-imports-set! + 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g16128_| + (define |gx[1]#_g16791_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g16129_| + (define |gx[1]#_g16801_| (##structure gx#syntax-quote::t - 'make-export-set + 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16130_| + (define |gx[1]#_g16803_| (##structure gx#syntax-quote::t - 'export-set? + 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16131_| + (define |gx[1]#_g16805_| (##structure gx#syntax-quote::t - 'export-set-source + 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g16132_| + (define |gx[1]#_g16810_| (##structure gx#syntax-quote::t - 'export-set-phi + 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g16133_| + (define |gx[1]#_g16812_| (##structure gx#syntax-quote::t - 'export-set-exports + 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g16134_| + (define |gx[1]#_g16814_| (##structure gx#syntax-quote::t - 'export-set-source-set! + 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g16135_| + (define |gx[1]#_g16816_| (##structure gx#syntax-quote::t - 'export-set-phi-set! + 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g16136_| + (define |gx[1]#_g16818_| (##structure gx#syntax-quote::t - 'export-set-exports-set! + 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g16137_| + (define |gx[1]#_g16820_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g16138_| + (define |gx[1]#_g16827_| (##structure gx#syntax-quote::t - 'user-expander::t + 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g16139_| + (define |gx[1]#_g16829_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g16140_| + (define |gx[1]#_g16833_| (##structure gx#syntax-quote::t - 'import-expander? + 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g16141_| + (define |gx[1]#_g16834_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g16142_| + (define |gx[1]#_g16835_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g16143_| + (define |gx[1]#_g16842_| (##structure gx#syntax-quote::t - 'make-export-expander + 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g16144_| + (define |gx[1]#_g16844_| (##structure gx#syntax-quote::t - 'export-expander? + 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g16145_| + (define |gx[1]#_g16848_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g16146_| + (define |gx[1]#_g16855_| (##structure gx#syntax-quote::t - 'make-import-export-expander + 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g16147_| + (define |gx[1]#_g16857_| (##structure gx#syntax-quote::t - 'import-export-expander? + 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g16148_| + (define |gx[1]#_g16863_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g16149_| + (define |gx[1]#_g16864_| (##structure gx#syntax-quote::t 'export-expander @@ -389,25 +389,72 @@ (define |gx[:0:]#module-import| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g16095_| + |gx[1]#_g16686_| 'expander-identifiers: - (cons '#f - (cons |gx[1]#_g16095_| - (cons |gx[1]#_g16096_| - (cons |gx[1]#_g16097_| - (cons (cons |gx[1]#_g16098_| - (cons |gx[1]#_g16099_| - (cons |gx[1]#_g16100_| - (cons |gx[1]#_g16101_| - '())))) - (cons (cons |gx[1]#_g16102_| - (cons |gx[1]#_g16103_| - (cons |gx[1]#_g16104_| - (cons |gx[1]#_g16105_| + (let ((__tmp16687 + (let ((__tmp16720 |gx[1]#_g16686_|) + (__tmp16688 + (let ((__tmp16718 |gx[1]#_g16719_|) + (__tmp16689 + (let ((__tmp16716 |gx[1]#_g16717_|) + (__tmp16690 + (let ((__tmp16704 + (let ((__tmp16714 |gx[1]#_g16715_|) + (__tmp16705 + (let ((__tmp16712 + |gx[1]#_g16713_|) + (__tmp16706 + (let ((__tmp16710 + |gx[1]#_g16711_|) + (__tmp16707 + (let ((__tmp16708 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + |gx[1]#_g16709_|)) + (declare (not safe)) + (cons __tmp16708 '())))) + (declare (not safe)) + (cons __tmp16710 __tmp16707)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp16712 + __tmp16706)))) + (declare (not safe)) + (cons __tmp16714 __tmp16705))) + (__tmp16691 + (let ((__tmp16692 + (let ((__tmp16702 + |gx[1]#_g16703_|) + (__tmp16693 + (let ((__tmp16700 + |gx[1]#_g16701_|) + (__tmp16694 + (let ((__tmp16698 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gx[1]#_g16699_|) + (__tmp16695 + (let ((__tmp16696 |gx[1]#_g16697_|)) + (declare (not safe)) + (cons __tmp16696 '())))) + (declare (not safe)) + (cons __tmp16698 __tmp16695)))) + (declare (not safe)) + (cons __tmp16700 __tmp16694)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp16702 + __tmp16693)))) + (declare (not safe)) + (cons __tmp16692 '())))) + (declare (not safe)) + (cons __tmp16704 __tmp16691)))) + (declare (not safe)) + (cons __tmp16716 __tmp16690)))) + (declare (not safe)) + (cons __tmp16718 __tmp16689)))) + (declare (not safe)) + (cons __tmp16720 __tmp16688)))) + (declare (not safe)) + (cons '#f __tmp16687)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#module-import::t @@ -419,28 +466,80 @@ (define |gx[:0:]#module-export| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g16106_| + |gx[1]#_g16721_| 'expander-identifiers: - (cons '#f - (cons |gx[1]#_g16106_| - (cons |gx[1]#_g16107_| - (cons |gx[1]#_g16108_| - (cons (cons |gx[1]#_g16109_| - (cons |gx[1]#_g16110_| - (cons |gx[1]#_g16111_| - (cons |gx[1]#_g16112_| - (cons |gx[1]#_g16113_| + (let ((__tmp16722 + (let ((__tmp16761 |gx[1]#_g16721_|) + (__tmp16723 + (let ((__tmp16759 |gx[1]#_g16760_|) + (__tmp16724 + (let ((__tmp16757 |gx[1]#_g16758_|) + (__tmp16725 + (let ((__tmp16742 + (let ((__tmp16755 |gx[1]#_g16756_|) + (__tmp16743 + (let ((__tmp16753 + |gx[1]#_g16754_|) + (__tmp16744 + (let ((__tmp16751 + |gx[1]#_g16752_|) + (__tmp16745 + (let ((__tmp16749 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))))) + |gx[1]#_g16750_|) + (__tmp16746 + (let ((__tmp16747 |gx[1]#_g16748_|)) + (declare (not safe)) + (cons __tmp16747 '())))) + (declare (not safe)) + (cons __tmp16749 __tmp16746)))) + (declare (not safe)) + (cons __tmp16751 __tmp16745)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons |gx[1]#_g16114_| - (cons |gx[1]#_g16115_| - (cons |gx[1]#_g16116_| - (cons |gx[1]#_g16117_| + (declare (not safe)) + (cons __tmp16753 + __tmp16744)))) + (declare (not safe)) + (cons __tmp16755 __tmp16743))) + (__tmp16726 + (let ((__tmp16727 + (let ((__tmp16740 + |gx[1]#_g16741_|) + (__tmp16728 + (let ((__tmp16738 + |gx[1]#_g16739_|) + (__tmp16729 + (let ((__tmp16736 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gx[1]#_g16118_| '()))))) + |gx[1]#_g16737_|) + (__tmp16730 + (let ((__tmp16734 |gx[1]#_g16735_|) + (__tmp16731 + (let ((__tmp16732 |gx[1]#_g16733_|)) + (declare (not safe)) + (cons __tmp16732 '())))) + (declare (not safe)) + (cons __tmp16734 __tmp16731)))) + (declare (not safe)) + (cons __tmp16736 __tmp16730)))) + (declare (not safe)) + (cons __tmp16738 __tmp16729)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp16740 + __tmp16728)))) + (declare (not safe)) + (cons __tmp16727 '())))) + (declare (not safe)) + (cons __tmp16742 __tmp16726)))) + (declare (not safe)) + (cons __tmp16757 __tmp16725)))) + (declare (not safe)) + (cons __tmp16759 __tmp16724)))) + (declare (not safe)) + (cons __tmp16761 __tmp16723)))) + (declare (not safe)) + (cons '#f __tmp16722)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#module-export::t @@ -452,20 +551,62 @@ (define |gx[:0:]#import-set| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g16119_| + |gx[1]#_g16762_| 'expander-identifiers: - (cons '#f - (cons |gx[1]#_g16119_| - (cons |gx[1]#_g16120_| - (cons |gx[1]#_g16121_| - (cons (cons |gx[1]#_g16122_| - (cons |gx[1]#_g16123_| - (cons |gx[1]#_g16124_| '()))) - (cons (cons |gx[1]#_g16125_| - (cons |gx[1]#_g16126_| - (cons |gx[1]#_g16127_| - '()))) - '())))))) + (let ((__tmp16763 + (let ((__tmp16790 |gx[1]#_g16762_|) + (__tmp16764 + (let ((__tmp16788 |gx[1]#_g16789_|) + (__tmp16765 + (let ((__tmp16786 |gx[1]#_g16787_|) + (__tmp16766 + (let ((__tmp16777 + (let ((__tmp16784 |gx[1]#_g16785_|) + (__tmp16778 + (let ((__tmp16782 + |gx[1]#_g16783_|) + (__tmp16779 + (let ((__tmp16780 + |gx[1]#_g16781_|)) + (declare (not safe)) + (cons __tmp16780 + '())))) + (declare (not safe)) + (cons __tmp16782 + __tmp16779)))) + (declare (not safe)) + (cons __tmp16784 __tmp16778))) + (__tmp16767 + (let ((__tmp16768 + (let ((__tmp16775 + |gx[1]#_g16776_|) + (__tmp16769 + (let ((__tmp16773 + |gx[1]#_g16774_|) + (__tmp16770 + (let ((__tmp16771 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gx[1]#_g16772_|)) + (declare (not safe)) + (cons __tmp16771 '())))) + (declare (not safe)) + (cons __tmp16773 __tmp16770)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp16775 + __tmp16769)))) + (declare (not safe)) + (cons __tmp16768 '())))) + (declare (not safe)) + (cons __tmp16777 __tmp16767)))) + (declare (not safe)) + (cons __tmp16786 __tmp16766)))) + (declare (not safe)) + (cons __tmp16788 __tmp16765)))) + (declare (not safe)) + (cons __tmp16790 __tmp16764)))) + (declare (not safe)) + (cons '#f __tmp16763)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#import-set::t @@ -477,20 +618,62 @@ (define |gx[:0:]#export-set| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g16128_| + |gx[1]#_g16791_| 'expander-identifiers: - (cons '#f - (cons |gx[1]#_g16128_| - (cons |gx[1]#_g16129_| - (cons |gx[1]#_g16130_| - (cons (cons |gx[1]#_g16131_| - (cons |gx[1]#_g16132_| - (cons |gx[1]#_g16133_| '()))) - (cons (cons |gx[1]#_g16134_| - (cons |gx[1]#_g16135_| - (cons |gx[1]#_g16136_| - '()))) - '())))))) + (let ((__tmp16792 + (let ((__tmp16819 |gx[1]#_g16791_|) + (__tmp16793 + (let ((__tmp16817 |gx[1]#_g16818_|) + (__tmp16794 + (let ((__tmp16815 |gx[1]#_g16816_|) + (__tmp16795 + (let ((__tmp16806 + (let ((__tmp16813 |gx[1]#_g16814_|) + (__tmp16807 + (let ((__tmp16811 + |gx[1]#_g16812_|) + (__tmp16808 + (let ((__tmp16809 + |gx[1]#_g16810_|)) + (declare (not safe)) + (cons __tmp16809 + '())))) + (declare (not safe)) + (cons __tmp16811 + __tmp16808)))) + (declare (not safe)) + (cons __tmp16813 __tmp16807))) + (__tmp16796 + (let ((__tmp16797 + (let ((__tmp16804 + |gx[1]#_g16805_|) + (__tmp16798 + (let ((__tmp16802 + |gx[1]#_g16803_|) + (__tmp16799 + (let ((__tmp16800 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gx[1]#_g16801_|)) + (declare (not safe)) + (cons __tmp16800 '())))) + (declare (not safe)) + (cons __tmp16802 __tmp16799)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp16804 + __tmp16798)))) + (declare (not safe)) + (cons __tmp16797 '())))) + (declare (not safe)) + (cons __tmp16806 __tmp16796)))) + (declare (not safe)) + (cons __tmp16815 __tmp16795)))) + (declare (not safe)) + (cons __tmp16817 __tmp16794)))) + (declare (not safe)) + (cons __tmp16819 __tmp16793)))) + (declare (not safe)) + (cons '#f __tmp16792)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#export-set::t @@ -502,16 +685,37 @@ (define |gx[:0:]#import-expander| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |gx[1]#_g16137_| + |gx[1]#_g16820_| 'expander-identifiers: - (cons (cons |gx[1]#_g16138_| '()) - (cons |gx[1]#_g16137_| - (cons |gx[1]#_g16139_| - (cons |gx[1]#_g16140_| (cons '() (cons '() '())))))) + (let ((__tmp16831 + (let ((__tmp16832 |gx[1]#_g16833_|)) + (declare (not safe)) + (cons __tmp16832 '()))) + (__tmp16821 + (let ((__tmp16830 |gx[1]#_g16820_|) + (__tmp16822 + (let ((__tmp16828 |gx[1]#_g16829_|) + (__tmp16823 + (let ((__tmp16826 |gx[1]#_g16827_|) + (__tmp16824 + (let ((__tmp16825 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp16825)))) + (declare (not safe)) + (cons __tmp16826 __tmp16824)))) + (declare (not safe)) + (cons __tmp16828 __tmp16823)))) + (declare (not safe)) + (cons __tmp16830 __tmp16822)))) + (declare (not safe)) + (cons __tmp16831 __tmp16821)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| 'gx#import-expander::t - (list |gx[1]#_g16141_|) + (list |gx[1]#_g16834_|) 'import-expander ':init! '() @@ -519,16 +723,37 @@ (define |gx[:0:]#export-expander| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |gx[1]#_g16142_| + |gx[1]#_g16835_| 'expander-identifiers: - (cons (cons |gx[1]#_g16138_| '()) - (cons |gx[1]#_g16142_| - (cons |gx[1]#_g16143_| - (cons |gx[1]#_g16144_| (cons '() (cons '() '())))))) + (let ((__tmp16846 + (let ((__tmp16847 |gx[1]#_g16833_|)) + (declare (not safe)) + (cons __tmp16847 '()))) + (__tmp16836 + (let ((__tmp16845 |gx[1]#_g16835_|) + (__tmp16837 + (let ((__tmp16843 |gx[1]#_g16844_|) + (__tmp16838 + (let ((__tmp16841 |gx[1]#_g16842_|) + (__tmp16839 + (let ((__tmp16840 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp16840)))) + (declare (not safe)) + (cons __tmp16841 __tmp16839)))) + (declare (not safe)) + (cons __tmp16843 __tmp16838)))) + (declare (not safe)) + (cons __tmp16845 __tmp16837)))) + (declare (not safe)) + (cons __tmp16846 __tmp16836)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| 'gx#export-expander::t - (list |gx[1]#_g16141_|) + (list |gx[1]#_g16834_|) 'export-expander ':init! '() @@ -536,16 +761,41 @@ (define |gx[:0:]#import-export-expander| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |gx[1]#_g16145_| + |gx[1]#_g16848_| 'expander-identifiers: - (cons (cons |gx[1]#_g16137_| (cons |gx[1]#_g16142_| '())) - (cons |gx[1]#_g16145_| - (cons |gx[1]#_g16146_| - (cons |gx[1]#_g16147_| (cons '() (cons '() '())))))) + (let ((__tmp16859 + (let ((__tmp16862 |gx[1]#_g16820_|) + (__tmp16860 + (let ((__tmp16861 |gx[1]#_g16835_|)) + (declare (not safe)) + (cons __tmp16861 '())))) + (declare (not safe)) + (cons __tmp16862 __tmp16860))) + (__tmp16849 + (let ((__tmp16858 |gx[1]#_g16848_|) + (__tmp16850 + (let ((__tmp16856 |gx[1]#_g16857_|) + (__tmp16851 + (let ((__tmp16854 |gx[1]#_g16855_|) + (__tmp16852 + (let ((__tmp16853 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp16853)))) + (declare (not safe)) + (cons __tmp16854 __tmp16852)))) + (declare (not safe)) + (cons __tmp16856 __tmp16851)))) + (declare (not safe)) + (cons __tmp16858 __tmp16850)))) + (declare (not safe)) + (cons __tmp16859 __tmp16849)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| 'gx#import-export-expander::t - (list |gx[1]#_g16148_| |gx[1]#_g16149_|) + (list |gx[1]#_g16863_| |gx[1]#_g16864_|) 'import-export-expander ':init! '() diff --git a/src/bootstrap/gerbil/expander/root.ssxi.ss b/src/bootstrap/gerbil/expander/root.ssxi.ss index 18c111563..e94ff16ec 100644 --- a/src/bootstrap/gerbil/expander/root.ssxi.ss +++ b/src/bootstrap/gerbil/expander/root.ssxi.ss @@ -10,13 +10,11 @@ package: gerbil/expander (1 gx#root-context:::init!__0) (2 gx#root-context:::init!__%))) (declare-type gx#root-context:::init!::specialize (@lambda 1 #f)) - (declare-method gx#root-context::t :init! gx#root-context:::init! #f) (declare-type gx#top-context:::init!__% (@lambda 2 #f)) (declare-type gx#top-context:::init!__0 (@lambda 1 #f)) (declare-type gx#top-context:::init! (@case-lambda (1 gx#top-context:::init!__0) (2 gx#top-context:::init!__%))) - (declare-method gx#top-context::t :init! gx#top-context:::init! #f) (declare-type gx#expander-context::bind-core-syntax-expanders!__% (@lambda 2 #f)) @@ -28,11 +26,6 @@ package: gerbil/expander (@case-lambda (1 gx#expander-context::bind-core-syntax-expanders!__0) (2 gx#expander-context::bind-core-syntax-expanders!__%))) - (declare-method - gx#expander-context::t - bind-core-syntax-expanders! - gx#expander-context::bind-core-syntax-expanders! - #f) (declare-type gx#expander-context::bind-core-macro-expanders!__% (@lambda 2 #f)) @@ -44,14 +37,4 @@ package: gerbil/expander (@case-lambda (1 gx#expander-context::bind-core-macro-expanders!__0) (2 gx#expander-context::bind-core-macro-expanders!__%))) - (declare-method - gx#expander-context::t - bind-core-macro-expanders! - gx#expander-context::bind-core-macro-expanders! - #f) - (declare-type gx#expander-context::bind-core-features! (@lambda 1 #f)) - (declare-method - gx#expander-context::t - bind-core-features! - gx#expander-context::bind-core-features! - #f)) + (declare-type gx#expander-context::bind-core-features! (@lambda 1 #f))) diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index 498d706fe..70715afa9 100644 --- a/src/bootstrap/gerbil/expander/root__0.scm +++ b/src/bootstrap/gerbil/expander/root__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/root::timestamp 1695199285) + (define gerbil/expander/root::timestamp 1695292397) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,503 +262,529 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_self18346_ _bind?18347_) - (if (##fx< '2 (##vector-length _self18346_)) + (lambda (_self19061_ _bind?19062_) + (if (##fx< '2 (##vector-length _self19061_)) (begin - (##vector-set! _self18346_ '1 'root) - (##vector-set! _self18346_ '2 (make-table 'test: eq?))) + (##vector-set! _self19061_ '1 'root) + (##vector-set! _self19061_ '2 (make-table 'test: eq?))) (error '"struct-instance-init!: too many arguments for struct" - _self18346_)) - (if _bind?18347_ + _self19061_)) + (if _bind?19062_ (begin - (let ((__method18397 - (method-ref _self18346_ 'bind-core-syntax-expanders!))) - (if __method18397 - (__method18397 _self18346_) + (let ((__method19112 + (method-ref _self19061_ 'bind-core-syntax-expanders!))) + (if __method19112 + (__method19112 _self19061_) (error '"Missing method" - _self18346_ + _self19061_ 'bind-core-syntax-expanders!))) - (let ((__method18398 - (method-ref _self18346_ 'bind-core-macro-expanders!))) - (if __method18398 - (__method18398 _self18346_) + (let ((__method19113 + (method-ref _self19061_ 'bind-core-macro-expanders!))) + (if __method19113 + (__method19113 _self19061_) (error '"Missing method" - _self18346_ + _self19061_ 'bind-core-macro-expanders!))) - (let ((__method18399 - (method-ref _self18346_ 'bind-core-features!))) - (if __method18399 - (__method18399 _self18346_) + (let ((__method19114 + (method-ref _self19061_ 'bind-core-features!))) + (if __method19114 + (__method19114 _self19061_) (error '"Missing method" - _self18346_ + _self19061_ 'bind-core-features!)))) '#!void))) (define gx#root-context:::init!__0 - (lambda (_self18352_) - (let ((_bind?18354_ '#t)) - (gx#root-context:::init!__% _self18352_ _bind?18354_)))) + (lambda (_self19067_) + (let ((_bind?19069_ '#t)) + (gx#root-context:::init!__% _self19067_ _bind?19069_)))) (define gx#root-context:::init! - (lambda _g18402_ - (let ((_g18401_ (##length _g18402_))) - (cond ((##fx= _g18401_ 1) - (apply gx#root-context:::init!__0 _g18402_)) - ((##fx= _g18401_ 2) - (apply gx#root-context:::init!__% _g18402_)) + (lambda _g19117_ + (let ((_g19116_ (##length _g19117_))) + (cond ((##fx= _g19116_ 1) + (apply (lambda (_self19067_) + (gx#root-context:::init!__0 _self19067_)) + _g19117_)) + ((##fx= _g19116_ 2) + (apply (lambda (_self19071_ _bind?19072_) + (gx#root-context:::init!__% + _self19071_ + _bind?19072_)) + _g19117_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g18402_)))))) + _g19117_)))))) (define gx#root-context:::init!::specialize - (lambda (__t18358) - (let ((__bind-core-features!18359 + (lambda (__t19073) + (let ((__bind-core-macro-expanders!19074 (make-promise (lambda () - (let ((__tmp18362 - (direct-method-ref __t18358 'bind-core-features!))) - (if __tmp18362 - __tmp18362 - (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-syntax-expanders!18360 - (make-promise - (lambda () - (let ((__tmp18363 + (let ((__tmp19077 (direct-method-ref - __t18358 - 'bind-core-syntax-expanders!))) - (if __tmp18363 - __tmp18363 + __t19073 + 'bind-core-macro-expanders!))) + (if __tmp19077 + __tmp19077 (error '"Missing method" - 'bind-core-syntax-expanders!)))))) - (__bind-core-macro-expanders!18361 + 'bind-core-macro-expanders!)))))) + (__bind-core-features!19075 (make-promise (lambda () - (let ((__tmp18364 + (let ((__tmp19078 + (direct-method-ref __t19073 'bind-core-features!))) + (if __tmp19078 + __tmp19078 + (error '"Missing method" 'bind-core-features!)))))) + (__bind-core-syntax-expanders!19076 + (make-promise + (lambda () + (let ((__tmp19079 (direct-method-ref - __t18358 - 'bind-core-macro-expanders!))) - (if __tmp18364 - __tmp18364 + __t19073 + 'bind-core-syntax-expanders!))) + (if __tmp19079 + __tmp19079 (error '"Missing method" - 'bind-core-macro-expanders!))))))) - (let ((_opt-lambda1834418349_ - (lambda (_self18346_ _bind?18347_) - (if (##fx< '2 (##vector-length _self18346_)) + 'bind-core-syntax-expanders!))))))) + (let ((_opt-lambda1905919064_ + (lambda (_self19061_ _bind?19062_) + (if (##fx< '2 (##vector-length _self19061_)) (begin - (##vector-set! _self18346_ '1 'root) + (##vector-set! _self19061_ '1 'root) (##vector-set! - _self18346_ + _self19061_ '2 (make-table 'test: eq?))) (error '"struct-instance-init!: too many arguments for struct" - _self18346_)) - (if _bind?18347_ + _self19061_)) + (if _bind?19062_ (begin - ((force __bind-core-syntax-expanders!18360) - _self18346_) - ((force __bind-core-macro-expanders!18361) - _self18346_) - ((force __bind-core-features!18359) _self18346_)) + ((force __bind-core-syntax-expanders!19076) + _self19061_) + ((force __bind-core-macro-expanders!19074) + _self19061_) + ((force __bind-core-features!19075) _self19061_)) '#!void)))) - (lambda _g18404_ - (let ((_g18403_ (##length _g18404_))) - (cond ((##fx= _g18403_ 1) - (apply (lambda (_self18352_) - (let ((_bind?18354_ '#t)) - (_opt-lambda1834418349_ - _self18352_ - _bind?18354_))) - _g18404_)) - ((##fx= _g18403_ 2) - (apply _opt-lambda1834418349_ _g18404_)) + (lambda _g19119_ + (let ((_g19118_ (##length _g19119_))) + (cond ((##fx= _g19118_ 1) + (apply (lambda (_self19067_) + (let ((_bind?19069_ '#t)) + (_opt-lambda1905919064_ + _self19067_ + _bind?19069_))) + _g19119_)) + ((##fx= _g19118_ 2) + (apply (lambda (_self19071_ _bind?19072_) + (_opt-lambda1905919064_ + _self19071_ + _bind?19072_)) + _g19119_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g18404_))))))))) + _g19119_))))))))) (bind-specializer! gx#root-context:::init! gx#root-context:::init!::specialize) (bind-method! gx#root-context::t ':init! gx#root-context:::init! '#f) (define gx#top-context:::init!__% - (lambda (_self18202_ _super18203_) - (let ((_super18211_ - (let ((_$e18205_ _super18203_)) - (if _$e18205_ - _$e18205_ - (let ((_$e18208_ (gx#core-context-root__0))) - (if _$e18208_ - _$e18208_ - (let ((__obj18400 + (lambda (_self18917_ _super18918_) + (let ((_super18926_ + (let ((_$e18920_ _super18918_)) + (if _$e18920_ + _$e18920_ + (let ((_$e18923_ (gx#core-context-root__0))) + (if _$e18923_ + _$e18923_ + (let ((__obj19115 (make-object gx#root-context::t '2))) - (gx#root-context:::init!__0 __obj18400) - __obj18400))))))) - (if (##fx< '5 (##vector-length _self18202_)) + (gx#root-context:::init!__0 __obj19115) + __obj19115))))))) + (if (##fx< '5 (##vector-length _self18917_)) (begin - (##vector-set! _self18202_ '1 'top) - (##vector-set! _self18202_ '2 (make-table 'test: eq?)) - (##vector-set! _self18202_ '3 _super18211_) - (##vector-set! _self18202_ '4 '#f) - (##vector-set! _self18202_ '5 '#f)) + (##vector-set! _self18917_ '1 'top) + (##vector-set! _self18917_ '2 (make-table 'test: eq?)) + (##vector-set! _self18917_ '3 _super18926_) + (##vector-set! _self18917_ '4 '#f) + (##vector-set! _self18917_ '5 '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self18202_))))) + _self18917_))))) (define gx#top-context:::init!__0 - (lambda (_self18216_) - (let ((_super18218_ '#f)) - (gx#top-context:::init!__% _self18216_ _super18218_)))) + (lambda (_self18931_) + (let ((_super18933_ '#f)) + (gx#top-context:::init!__% _self18931_ _super18933_)))) (define gx#top-context:::init! - (lambda _g18406_ - (let ((_g18405_ (##length _g18406_))) - (cond ((##fx= _g18405_ 1) (apply gx#top-context:::init!__0 _g18406_)) - ((##fx= _g18405_ 2) (apply gx#top-context:::init!__% _g18406_)) + (lambda _g19121_ + (let ((_g19120_ (##length _g19121_))) + (cond ((##fx= _g19120_ 1) + (apply (lambda (_self18931_) + (gx#top-context:::init!__0 _self18931_)) + _g19121_)) + ((##fx= _g19120_ 2) + (apply (lambda (_self18935_ _super18936_) + (gx#top-context:::init!__% _self18935_ _super18936_)) + _g19121_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g18406_)))))) + _g19121_)))))) (bind-method! gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_self17933_ _bindings17934_) + (lambda (_self18648_ _bindings18649_) (for-each - (lambda (_bind17936_) - (let* ((_bind1793717944_ _bind17936_) - (_E1793917948_ - (lambda () (error '"No clause matching" _bind1793717944_))) - (_K1794018057_ - (lambda (_rest17951_ _id17952_) + (lambda (_bind18651_) + (let* ((_bind1865218659_ _bind18651_) + (_E1865418663_ + (lambda () (error '"No clause matching" _bind1865218659_))) + (_K1865518772_ + (lambda (_rest18666_ _id18667_) (gx#core-context-put! - _self17933_ - _id17952_ + _self18648_ + _id18667_ (##structure gx#syntax-binding::t - _id17952_ - _id17952_ + _id18667_ + _id18667_ '#f - (let* ((_rest1795317964_ _rest17951_) - (_E1795517968_ + (let* ((_rest1866818679_ _rest18666_) + (_E1867018683_ (lambda () (error '"No clause matching" - _rest1795317964_))) - (_K1795618033_ - (lambda (_compiler17971_ - _expander17972_ - _key17973_) - ((let* ((_key1797417987_ _key17973_) - (_E1798017991_ + _rest1866818679_))) + (_K1867118748_ + (lambda (_compiler18686_ + _expander18687_ + _key18688_) + ((let* ((_key1868918702_ _key18688_) + (_E1869518706_ (lambda () (error '"No clause matching" - _key1797417987_)))) - (let ((_K1798518027_ + _key1868918702_)))) + (let ((_K1870018742_ (lambda () gx#make-top-special-form)) - (_K1798418020_ + (_K1869918735_ (lambda () gx#make-module-special-form)) - (_K1798318012_ + (_K1869818727_ (lambda () gx#make-definition-form)) - (_K1798218004_ + (_K1869718719_ (lambda () gx#make-special-form)) - (_K1798117996_ + (_K1869618711_ (lambda () gx#make-expression-form))) - (let* ((_try-match1797917999_ + (let* ((_try-match1869418714_ (lambda () - (if (##eq? _key1797417987_ + (if (##eq? _key1868918702_ 'expr:) - (_K1798117996_) - (_E1798017991_)))) - (_try-match1797818007_ + (_K1869618711_) + (_E1869518706_)))) + (_try-match1869318722_ (lambda () - (if (##eq? _key1797417987_ + (if (##eq? _key1868918702_ 'special:) - (_K1798218004_) - (_try-match1797917999_)))) - (_try-match1797718015_ + (_K1869718719_) + (_try-match1869418714_)))) + (_try-match1869218730_ (lambda () - (if (##eq? _key1797417987_ + (if (##eq? _key1868918702_ 'define:) - (_K1798318012_) - (_try-match1797818007_)))) - (_try-match1797618023_ + (_K1869818727_) + (_try-match1869318722_)))) + (_try-match1869118738_ (lambda () - (if (##eq? _key1797417987_ + (if (##eq? _key1868918702_ 'module:) - (_K1798418020_) - (_try-match1797718015_))))) - (if (##eq? _key1797417987_ 'top:) - (_K1798518027_) - (_try-match1797618023_))))) - _expander17972_ - _id17952_ - (let ((_$e18030_ _compiler17971_)) - (if _$e18030_ - _$e18030_ + (_K1869918735_) + (_try-match1869218730_))))) + (if (##eq? _key1868918702_ 'top:) + (_K1870018742_) + (_try-match1869118738_))))) + _expander18687_ + _id18667_ + (let ((_$e18745_ _compiler18686_)) + (if _$e18745_ + _$e18745_ gx#core-compile-top-error)))))) - (if (##pair? _rest1795317964_) - (let ((_hd1795718036_ (##car _rest1795317964_)) - (_tl1795818038_ (##cdr _rest1795317964_))) - (let ((_key18041_ _hd1795718036_)) - (if (##pair? _tl1795818038_) - (let ((_hd1795918043_ - (##car _tl1795818038_)) - (_tl1796018045_ - (##cdr _tl1795818038_))) - (let ((_expander18048_ _hd1795918043_)) - (if (##pair? _tl1796018045_) - (let ((_hd1796118050_ - (##car _tl1796018045_)) - (_tl1796218052_ - (##cdr _tl1796018045_))) - (let ((_compiler18055_ - _hd1796118050_)) - (if (##null? _tl1796218052_) - (_K1795618033_ - _compiler18055_ - _expander18048_ - _key18041_) - (_E1795517968_)))) - (_E1795517968_)))) - (_E1795517968_)))) - (_E1795517968_)))))))) - (if (##pair? _bind1793717944_) - (let ((_hd1794118060_ (##car _bind1793717944_)) - (_tl1794218062_ (##cdr _bind1793717944_))) - (let* ((_id18065_ _hd1794118060_) - (_rest18067_ _tl1794218062_)) - (_K1794018057_ _rest18067_ _id18065_))) - (_E1793917948_)))) - _bindings17934_))) + (if (##pair? _rest1866818679_) + (let ((_hd1867218751_ (##car _rest1866818679_)) + (_tl1867318753_ (##cdr _rest1866818679_))) + (let ((_key18756_ _hd1867218751_)) + (if (##pair? _tl1867318753_) + (let ((_hd1867418758_ + (##car _tl1867318753_)) + (_tl1867518760_ + (##cdr _tl1867318753_))) + (let ((_expander18763_ _hd1867418758_)) + (if (##pair? _tl1867518760_) + (let ((_hd1867618765_ + (##car _tl1867518760_)) + (_tl1867718767_ + (##cdr _tl1867518760_))) + (let ((_compiler18770_ + _hd1867618765_)) + (if (##null? _tl1867718767_) + (_K1867118748_ + _compiler18770_ + _expander18763_ + _key18756_) + (_E1867018683_)))) + (_E1867018683_)))) + (_E1867018683_)))) + (_E1867018683_)))))))) + (if (##pair? _bind1865218659_) + (let ((_hd1865618775_ (##car _bind1865218659_)) + (_tl1865718777_ (##cdr _bind1865218659_))) + (let* ((_id18780_ _hd1865618775_) + (_rest18782_ _tl1865718777_)) + (_K1865518772_ _rest18782_ _id18780_))) + (_E1865418663_)))) + _bindings18649_))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_self18072_) - (let ((_bindings18074_ gx#*core-syntax-expanders*)) + (lambda (_self18787_) + (let ((_bindings18789_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _self18072_ - _bindings18074_)))) + _self18787_ + _bindings18789_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g18408_ - (let ((_g18407_ (##length _g18408_))) - (cond ((##fx= _g18407_ 1) - (apply gx#expander-context::bind-core-syntax-expanders!__0 - _g18408_)) - ((##fx= _g18407_ 2) - (apply gx#expander-context::bind-core-syntax-expanders!__% - _g18408_)) + (lambda _g19123_ + (let ((_g19122_ (##length _g19123_))) + (cond ((##fx= _g19122_ 1) + (apply (lambda (_self18787_) + (gx#expander-context::bind-core-syntax-expanders!__0 + _self18787_)) + _g19123_)) + ((##fx= _g19122_ 2) + (apply (lambda (_self18791_ _bindings18792_) + (gx#expander-context::bind-core-syntax-expanders!__% + _self18791_ + _bindings18792_)) + _g19123_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g18408_)))))) + _g19123_)))))) (bind-method! gx#expander-context::t 'bind-core-syntax-expanders! gx#expander-context::bind-core-syntax-expanders! '#f) (define gx#expander-context::bind-core-macro-expanders!__% - (lambda (_self17705_ _bindings17706_) + (lambda (_self18420_ _bindings18421_) (for-each - (lambda (_bind17708_) - (let* ((_bind1770917716_ _bind17708_) - (_E1771117720_ - (lambda () (error '"No clause matching" _bind1770917716_))) - (_K1771217788_ - (lambda (_rest17723_ _id17724_) + (lambda (_bind18423_) + (let* ((_bind1842418431_ _bind18423_) + (_E1842618435_ + (lambda () (error '"No clause matching" _bind1842418431_))) + (_K1842718503_ + (lambda (_rest18438_ _id18439_) (gx#core-context-put! - _self17705_ - _id17724_ + _self18420_ + _id18439_ (##structure gx#syntax-binding::t - _id17724_ - _id17724_ + _id18439_ + _id18439_ '#f - (let* ((_rest1772517740_ _rest17723_) - (_E1772917744_ + (let* ((_rest1844018455_ _rest18438_) + (_E1844418459_ (lambda () (error '"No clause matching" - _rest1772517740_)))) - (let ((_K1773417773_ - (lambda (_core-id17771_) + _rest1844018455_)))) + (let ((_K1844918488_ + (lambda (_core-id18486_) (##structure gx#rename-macro-expander::t - _core-id17771_))) - (_K1773117758_ - (lambda (_proc17756_) + _core-id18486_))) + (_K1844618473_ + (lambda (_proc18471_) (##structure gx#macro-expander::t - _proc17756_))) - (_K1773017749_ + _proc18471_))) + (_K1844518464_ (lambda () (##structure gx#reserved-expander::t - _id17724_)))) - (let ((_try-match1772817752_ + _id18439_)))) + (let ((_try-match1844318467_ (lambda () - (if (##null? _rest1772517740_) - (_K1773017749_) - (_E1772917744_))))) - (if (##pair? _rest1772517740_) - (let ((_tl1773617778_ - (##cdr _rest1772517740_)) - (_hd1773517776_ - (##car _rest1772517740_))) - (if (##eq? _hd1773517776_ '=>) - (if (##pair? _tl1773617778_) - (let ((_tl1773817783_ - (##cdr _tl1773617778_)) - (_hd1773717781_ - (##car _tl1773617778_))) - (if (##null? _tl1773817783_) - (let ((_core-id17786_ - _hd1773717781_)) + (if (##null? _rest1844018455_) + (_K1844518464_) + (_E1844418459_))))) + (if (##pair? _rest1844018455_) + (let ((_tl1845118493_ + (##cdr _rest1844018455_)) + (_hd1845018491_ + (##car _rest1844018455_))) + (if (##eq? _hd1845018491_ '=>) + (if (##pair? _tl1845118493_) + (let ((_tl1845318498_ + (##cdr _tl1845118493_)) + (_hd1845218496_ + (##car _tl1845118493_))) + (if (##null? _tl1845318498_) + (let ((_core-id18501_ + _hd1845218496_)) (##structure gx#rename-macro-expander::t - _core-id17786_)) - (_E1772917744_))) - (if (##null? _tl1773617778_) - (let ((_proc17766_ - _hd1773517776_)) + _core-id18501_)) + (_E1844418459_))) + (if (##null? _tl1845118493_) + (let ((_proc18481_ + _hd1845018491_)) (##structure gx#macro-expander::t - _proc17766_)) - (_E1772917744_))) - (if (##null? _tl1773617778_) - (let ((_proc17766_ _hd1773517776_)) + _proc18481_)) + (_E1844418459_))) + (if (##null? _tl1845118493_) + (let ((_proc18481_ _hd1845018491_)) (##structure gx#macro-expander::t - _proc17766_)) - (_E1772917744_)))) - (_try-match1772817752_)))))))))) - (if (##pair? _bind1770917716_) - (let ((_hd1771317791_ (##car _bind1770917716_)) - (_tl1771417793_ (##cdr _bind1770917716_))) - (let* ((_id17796_ _hd1771317791_) - (_rest17798_ _tl1771417793_)) - (_K1771217788_ _rest17798_ _id17796_))) - (_E1771117720_)))) - _bindings17706_))) + _proc18481_)) + (_E1844418459_)))) + (_try-match1844318467_)))))))))) + (if (##pair? _bind1842418431_) + (let ((_hd1842818506_ (##car _bind1842418431_)) + (_tl1842918508_ (##cdr _bind1842418431_))) + (let* ((_id18511_ _hd1842818506_) + (_rest18513_ _tl1842918508_)) + (_K1842718503_ _rest18513_ _id18511_))) + (_E1842618435_)))) + _bindings18421_))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_self17803_) - (let ((_bindings17805_ gx#*core-macro-expanders*)) + (lambda (_self18518_) + (let ((_bindings18520_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _self17803_ - _bindings17805_)))) + _self18518_ + _bindings18520_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g18410_ - (let ((_g18409_ (##length _g18410_))) - (cond ((##fx= _g18409_ 1) - (apply gx#expander-context::bind-core-macro-expanders!__0 - _g18410_)) - ((##fx= _g18409_ 2) - (apply gx#expander-context::bind-core-macro-expanders!__% - _g18410_)) + (lambda _g19125_ + (let ((_g19124_ (##length _g19125_))) + (cond ((##fx= _g19124_ 1) + (apply (lambda (_self18518_) + (gx#expander-context::bind-core-macro-expanders!__0 + _self18518_)) + _g19125_)) + ((##fx= _g19124_ 2) + (apply (lambda (_self18522_ _bindings18523_) + (gx#expander-context::bind-core-macro-expanders!__% + _self18522_ + _bindings18523_)) + _g19125_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g18410_)))))) + _g19125_)))))) (bind-method! gx#expander-context::t 'bind-core-macro-expanders! gx#expander-context::bind-core-macro-expanders! '#f) (define gx#expander-context::bind-core-features! - (lambda (_self17449_) - (letrec ((_linux-variant?17451_ - (lambda (_sys-type17550_) - (let* ((_g1755117559_ + (lambda (_self18164_) + (letrec ((_linux-variant?18166_ + (lambda (_sys-type18265_) + (let* ((_g1826618274_ (string-split - (symbol->string _sys-type17550_) + (symbol->string _sys-type18265_) '#\-)) - (_else1755317567_ (lambda () '#f)) - (_K1755517572_ - (lambda (_rest17570_) (not (null? _rest17570_))))) - (if (##pair? _g1755117559_) - (let ((_hd1755617575_ (##car _g1755117559_)) - (_tl1755717577_ (##cdr _g1755117559_))) - (if (equal? _hd1755617575_ '"linux") - (let ((_rest17580_ _tl1755717577_)) - (_K1755517572_ _rest17580_)) - (_else1755317567_))) - (_else1755317567_))))) - (_bsd-variant17452_ - (lambda (_sys-type17509_) - (let ((_sys-type-str17511_ - (symbol->string _sys-type17509_))) - (let _lp17513_ ((_rest17515_ + (_else1826818282_ (lambda () '#f)) + (_K1827018287_ + (lambda (_rest18285_) (not (null? _rest18285_))))) + (if (##pair? _g1826618274_) + (let ((_hd1827118290_ (##car _g1826618274_)) + (_tl1827218292_ (##cdr _g1826618274_))) + (if (equal? _hd1827118290_ '"linux") + (let ((_rest18295_ _tl1827218292_)) + (_K1827018287_ _rest18295_)) + (_else1826818282_))) + (_else1826818282_))))) + (_bsd-variant18167_ + (lambda (_sys-type18224_) + (let ((_sys-type-str18226_ + (symbol->string _sys-type18224_))) + (let _lp18228_ ((_rest18230_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_rest1751617524_ _rest17515_) - (_else1751817532_ (lambda () '#f)) - (_K1752017538_ - (lambda (_rest17535_ _sys17536_) + (let* ((_rest1823118239_ _rest18230_) + (_else1823318247_ (lambda () '#f)) + (_K1823518253_ + (lambda (_rest18250_ _sys18251_) (if (string-prefix? - _sys17536_ - _sys-type-str17511_) - _sys17536_ - (_lp17513_ _rest17535_))))) - (if (##pair? _rest1751617524_) - (let ((_hd1752117541_ (##car _rest1751617524_)) - (_tl1752217543_ (##cdr _rest1751617524_))) - (let* ((_sys17546_ _hd1752117541_) - (_rest17548_ _tl1752217543_)) - (_K1752017538_ _rest17548_ _sys17546_))) - (_else1751817532_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _self17449_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self17449_) - (let* ((_g1745317465_ (system-type)) - (_else1745517473_ (lambda () '#!void)) - (_K1745717485_ - (lambda (_sys-type17476_ _sys-vendor17477_ _sys-cpu17478_) + _sys18251_ + _sys-type-str18226_) + _sys18251_ + (_lp18228_ _rest18250_))))) + (if (##pair? _rest1823118239_) + (let ((_hd1823618256_ (##car _rest1823118239_)) + (_tl1823718258_ (##cdr _rest1823118239_))) + (let* ((_sys18261_ _hd1823618256_) + (_rest18263_ _tl1823718258_)) + (_K1823518253_ _rest18263_ _sys18261_))) + (_else1823318247_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _self18164_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self18164_) + (let* ((_g1816818180_ (system-type)) + (_else1817018188_ (lambda () '#!void)) + (_K1817218200_ + (lambda (_sys-type18191_ _sys-vendor18192_ _sys-cpu18193_) (gx#core-bind-feature!__% - _sys-cpu17478_ + _sys-cpu18193_ '#f '0 - _self17449_) + _self18164_) (gx#core-bind-feature!__% - _sys-type17476_ + _sys-type18191_ '#f '0 - _self17449_) - (if (_linux-variant?17451_ _sys-type17476_) + _self18164_) + (if (_linux-variant?18166_ _sys-type18191_) (gx#core-bind-feature!__% (string->symbol '"linux") '#f '0 - _self17449_) - (let ((_$e17480_ (_bsd-variant17452_ _sys-type17476_))) - (if _$e17480_ - ((lambda (_sys-prefix17483_) + _self18164_) + (let ((_$e18195_ (_bsd-variant18167_ _sys-type18191_))) + (if _$e18195_ + ((lambda (_sys-prefix18198_) (gx#core-bind-feature!__% (string->symbol '"bsd") '#f '0 - _self17449_) + _self18164_) (gx#core-bind-feature!__% - (string->symbol _sys-prefix17483_) + (string->symbol _sys-prefix18198_) '#f '0 - _self17449_)) - _$e17480_) + _self18164_)) + _$e18195_) '#!void)))))) - (if (##pair? _g1745317465_) - (let ((_hd1745817488_ (##car _g1745317465_)) - (_tl1745917490_ (##cdr _g1745317465_))) - (let ((_sys-cpu17493_ _hd1745817488_)) - (if (##pair? _tl1745917490_) - (let ((_hd1746017495_ (##car _tl1745917490_)) - (_tl1746117497_ (##cdr _tl1745917490_))) - (let ((_sys-vendor17500_ _hd1746017495_)) - (if (##pair? _tl1746117497_) - (let ((_hd1746217502_ (##car _tl1746117497_)) - (_tl1746317504_ (##cdr _tl1746117497_))) - (let ((_sys-type17507_ _hd1746217502_)) - (if (##null? _tl1746317504_) - (_K1745717485_ - _sys-type17507_ - _sys-vendor17500_ - _sys-cpu17493_) + (if (##pair? _g1816818180_) + (let ((_hd1817318203_ (##car _g1816818180_)) + (_tl1817418205_ (##cdr _g1816818180_))) + (let ((_sys-cpu18208_ _hd1817318203_)) + (if (##pair? _tl1817418205_) + (let ((_hd1817518210_ (##car _tl1817418205_)) + (_tl1817618212_ (##cdr _tl1817418205_))) + (let ((_sys-vendor18215_ _hd1817518210_)) + (if (##pair? _tl1817618212_) + (let ((_hd1817718217_ (##car _tl1817618212_)) + (_tl1817818219_ (##cdr _tl1817618212_))) + (let ((_sys-type18222_ _hd1817718217_)) + (if (##null? _tl1817818219_) + (_K1817218200_ + _sys-type18222_ + _sys-vendor18215_ + _sys-cpu18208_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self17449_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self18164_) '#!void)))) (bind-method! gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/stx__0.scm b/src/bootstrap/gerbil/expander/stx__0.scm index 46e0c3818..e2e9c130a 100644 --- a/src/bootstrap/gerbil/expander/stx__0.scm +++ b/src/bootstrap/gerbil/expander/stx__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stx::timestamp 1695199285) + (define gerbil/expander/stx::timestamp 1695292397) (begin (declare (not safe)) (define gx#identifier-wrap::t @@ -14,8 +14,8 @@ '(marks))) (define gx#identifier-wrap? (make-struct-predicate gx#identifier-wrap::t)) (define gx#make-identifier-wrap - (lambda _$args6221_ - (apply make-struct-instance gx#identifier-wrap::t _$args6221_))) + (lambda _$args6367_ + (apply make-struct-instance gx#identifier-wrap::t _$args6367_))) (define gx#identifier-wrap-marks (make-struct-field-accessor gx#identifier-wrap::t '0)) (define gx#identifier-wrap-marks-set! @@ -35,8 +35,8 @@ '(mark))) (define gx#syntax-wrap? (make-struct-predicate gx#syntax-wrap::t)) (define gx#make-syntax-wrap - (lambda _$args6218_ - (apply make-struct-instance gx#syntax-wrap::t _$args6218_))) + (lambda _$args6364_ + (apply make-struct-instance gx#syntax-wrap::t _$args6364_))) (define gx#syntax-wrap-mark (make-struct-field-accessor gx#syntax-wrap::t '0)) (define gx#syntax-wrap-mark-set! @@ -56,8 +56,8 @@ '(context marks))) (define gx#syntax-quote? (make-struct-predicate gx#syntax-quote::t)) (define gx#make-syntax-quote - (lambda _$args6215_ - (apply make-struct-instance gx#syntax-quote::t _$args6215_))) + (lambda _$args6361_ + (apply make-struct-instance gx#syntax-quote::t _$args6361_))) (define gx#syntax-quote-context (make-struct-field-accessor gx#syntax-quote::t '0)) (define gx#syntax-quote-marks @@ -74,866 +74,925 @@ (make-struct-field-unchecked-mutator gx#syntax-quote::t '0)) (define gx#&syntax-quote-marks-set! (make-struct-field-unchecked-mutator gx#syntax-quote::t '1)) - (define gx#identifier? (lambda (_stx6213_) (symbol? (gx#stx-e _stx6213_)))) + (define gx#identifier? (lambda (_stx6359_) (symbol? (gx#stx-e _stx6359_)))) (define gx#identifier-quote? - (lambda (_stx6211_) - (if (##structure-direct-instance-of? _stx6211_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _stx6211_ '1 gx#AST::t '#f)) + (lambda (_stx6357_) + (if (##structure-direct-instance-of? _stx6357_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _stx6357_ '1 gx#AST::t '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_stx6209_) - (if (##structure-direct-instance-of? _stx6209_ 'gx#syntax-quote::t) + (lambda (_stx6355_) + (if (##structure-direct-instance-of? _stx6355_ 'gx#syntax-quote::t) '#t - (if (##structure-direct-instance-of? _stx6209_ 'gx#syntax-wrap::t) + (if (##structure-direct-instance-of? _stx6355_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _stx6209_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx6355_ '1 gx#AST::t '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_stx6207_) - (if (##structure-direct-instance-of? _stx6207_ 'gx#syntax-quote::t) - _stx6207_ - (if (##structure-direct-instance-of? _stx6207_ 'gx#syntax-wrap::t) + (lambda (_stx6353_) + (if (##structure-direct-instance-of? _stx6353_ 'gx#syntax-quote::t) + _stx6353_ + (if (##structure-direct-instance-of? _stx6353_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _stx6207_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx6353_ '1 gx#AST::t '#f)) '#f)))) (define gx#syntax-e - (lambda (_stx6190_) - (if (##structure-direct-instance-of? _stx6190_ 'gx#syntax-wrap::t) - (let _lp6192_ ((_e6194_ (##unchecked-structure-ref - _stx6190_ + (lambda (_stx6336_) + (if (##structure-direct-instance-of? _stx6336_ 'gx#syntax-wrap::t) + (let _lp6338_ ((_e6340_ (##unchecked-structure-ref + _stx6336_ '1 gx#AST::t '#f)) - (_marks6195_ + (_marks6341_ (cons (##unchecked-structure-ref - _stx6190_ + _stx6336_ '3 gx#syntax-wrap::t '#f) '()))) - (if (##structure? _e6194_) - (let ((_$e6197_ (##type-id (##structure-type _e6194_)))) - (if (eq? 'gx#syntax-wrap::t _$e6197_) - (_lp6192_ - (##unchecked-structure-ref _e6194_ '1 gx#AST::t '#f) + (if (##structure? _e6340_) + (let ((_$e6343_ (##type-id (##structure-type _e6340_)))) + (if (eq? 'gx#syntax-wrap::t _$e6343_) + (_lp6338_ + (##unchecked-structure-ref _e6340_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e6194_ + _e6340_ '3 gx#syntax-wrap::t '#f) - _marks6195_)) - (if (or (eq? 'gx#syntax-quote::t _$e6197_) - (eq? 'gx#identifier-wrap::t _$e6197_)) + _marks6341_)) + (if (or (eq? 'gx#syntax-quote::t _$e6343_) + (eq? 'gx#identifier-wrap::t _$e6343_)) (##unchecked-structure-ref - _e6194_ + _e6340_ '1 gx#AST::t '#f) - (if (eq? 'gerbil#AST::t _$e6197_) - (_lp6192_ + (if (eq? 'gerbil#AST::t _$e6343_) + (_lp6338_ (##unchecked-structure-ref - _e6194_ + _e6340_ '1 gx#AST::t '#f) - _marks6195_) - _e6194_)))) - (if (null? _marks6195_) - _e6194_ - (if (pair? _e6194_) - (cons (gx#stx-wrap (car _e6194_) _marks6195_) - (gx#stx-wrap (cdr _e6194_) _marks6195_)) - (if (vector? _e6194_) + _marks6341_) + _e6340_)))) + (if (null? _marks6341_) + _e6340_ + (if (pair? _e6340_) + (cons (gx#stx-wrap (car _e6340_) _marks6341_) + (gx#stx-wrap (cdr _e6340_) _marks6341_)) + (if (vector? _e6340_) (vector-map - (lambda (_g62026204_) - (gx#stx-wrap _g62026204_ _marks6195_)) - _e6194_) - (if (box? _e6194_) + (lambda (_g63486350_) + (gx#stx-wrap _g63486350_ _marks6341_)) + _e6340_) + (if (box? _e6340_) (box (gx#stx-wrap - (unbox _e6194_) - _marks6195_)) - _e6194_)))))) - (if (##structure-instance-of? _stx6190_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx6190_ '1 gx#AST::t '#f) - _stx6190_)))) + (unbox _e6340_) + _marks6341_)) + _e6340_)))))) + (if (##structure-instance-of? _stx6336_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx6336_ '1 gx#AST::t '#f) + _stx6336_)))) (define gx#syntax->datum - (lambda (_stx6188_) - (if (##structure-instance-of? _stx6188_ 'gerbil#AST::t) + (lambda (_stx6334_) + (if (##structure-instance-of? _stx6334_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _stx6188_ '1 gx#AST::t '#f)) - (if (pair? _stx6188_) - (cons (gx#syntax->datum (car _stx6188_)) - (gx#syntax->datum (cdr _stx6188_))) - (if (vector? _stx6188_) - (vector-map gx#syntax->datum _stx6188_) - (if (box? _stx6188_) - (box (gx#syntax->datum (unbox _stx6188_))) - _stx6188_)))))) + (##unchecked-structure-ref _stx6334_ '1 gx#AST::t '#f)) + (if (pair? _stx6334_) + (cons (gx#syntax->datum (car _stx6334_)) + (gx#syntax->datum (cdr _stx6334_))) + (if (vector? _stx6334_) + (vector-map gx#syntax->datum _stx6334_) + (if (box? _stx6334_) + (box (gx#syntax->datum (unbox _stx6334_))) + _stx6334_)))))) (define gx#datum->syntax__% - (lambda (_stx6131_ _datum6132_ _src6133_ _quote?6134_) - (letrec ((_wrap-datum6136_ - (lambda (_e6160_ _marks6161_) - (_wrap-inner6138_ - _e6160_ - (lambda (_g61626164_) + (lambda (_stx6277_ _datum6278_ _src6279_ _quote?6280_) + (letrec ((_wrap-datum6282_ + (lambda (_e6306_ _marks6307_) + (_wrap-inner6284_ + _e6306_ + (lambda (_g63086310_) (##structure gx#identifier-wrap::t - _g61626164_ - _src6133_ - _marks6161_))))) - (_wrap-quote6137_ - (lambda (_e6152_ _ctx6153_ _marks6154_) - (_wrap-inner6138_ - _e6152_ - (lambda (_g61556157_) + _g63086310_ + _src6279_ + _marks6307_))))) + (_wrap-quote6283_ + (lambda (_e6298_ _ctx6299_ _marks6300_) + (_wrap-inner6284_ + _e6298_ + (lambda (_g63016303_) (##structure gx#syntax-quote::t - _g61556157_ - _src6133_ - _ctx6153_ - _marks6154_))))) - (_wrap-inner6138_ - (lambda (_e6145_ _wrap-e6146_) - (let _recur6148_ ((_e6150_ _e6145_)) - (if (symbol? _e6150_) - (_wrap-e6146_ _e6150_) - (if (pair? _e6150_) - (cons (_recur6148_ (car _e6150_)) - (_recur6148_ (cdr _e6150_))) - (if (vector? _e6150_) - (vector-map _recur6148_ _e6150_) - (if (box? _e6150_) - (box (_recur6148_ (unbox _e6150_))) - _e6150_))))))) - (_wrap-outer6139_ - (lambda (_e6143_) - (if (##structure-instance-of? _e6143_ 'gerbil#AST::t) - _e6143_ - (##structure gx#AST::t _e6143_ _src6133_))))) - (if (##structure-instance-of? _datum6132_ 'gerbil#AST::t) - _datum6132_ - (if (not _stx6131_) - (##structure gx#AST::t _datum6132_ _src6133_) - (if (gx#identifier? _stx6131_) - (let ((_stx6141_ (gx#stx-unwrap__0 _stx6131_))) - (_wrap-outer6139_ + _g63016303_ + _src6279_ + _ctx6299_ + _marks6300_))))) + (_wrap-inner6284_ + (lambda (_e6291_ _wrap-e6292_) + (let _recur6294_ ((_e6296_ _e6291_)) + (if (symbol? _e6296_) + (_wrap-e6292_ _e6296_) + (if (pair? _e6296_) + (cons (_recur6294_ (car _e6296_)) + (_recur6294_ (cdr _e6296_))) + (if (vector? _e6296_) + (vector-map _recur6294_ _e6296_) + (if (box? _e6296_) + (box (_recur6294_ (unbox _e6296_))) + _e6296_))))))) + (_wrap-outer6285_ + (lambda (_e6289_) + (if (##structure-instance-of? _e6289_ 'gerbil#AST::t) + _e6289_ + (##structure gx#AST::t _e6289_ _src6279_))))) + (if (##structure-instance-of? _datum6278_ 'gerbil#AST::t) + _datum6278_ + (if (not _stx6277_) + (##structure gx#AST::t _datum6278_ _src6279_) + (if (gx#identifier? _stx6277_) + (let ((_stx6287_ (gx#stx-unwrap__0 _stx6277_))) + (_wrap-outer6285_ (if (##structure-direct-instance-of? - _stx6141_ + _stx6287_ 'gx#syntax-quote::t) - (if _quote?6134_ - (_wrap-quote6137_ - _datum6132_ + (if _quote?6280_ + (_wrap-quote6283_ + _datum6278_ (##unchecked-structure-ref - _stx6141_ + _stx6287_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _stx6141_ + _stx6287_ '4 gx#syntax-quote::t '#f)) - (_wrap-datum6136_ - _datum6132_ + (_wrap-datum6282_ + _datum6278_ (##unchecked-structure-ref - _stx6141_ + _stx6287_ '4 gx#syntax-quote::t '#f))) - (_wrap-datum6136_ - _datum6132_ + (_wrap-datum6282_ + _datum6278_ (##unchecked-structure-ref - _stx6141_ + _stx6287_ '3 gx#identifier-wrap::t '#f))))) (error '"Bad template syntax; expected identifier" - _stx6131_))))))) + _stx6277_))))))) (define gx#datum->syntax__0 - (lambda (_stx6170_ _datum6171_) - (let* ((_src6173_ '#f) (_quote?6175_ '#t)) - (gx#datum->syntax__% _stx6170_ _datum6171_ _src6173_ _quote?6175_)))) + (lambda (_stx6316_ _datum6317_) + (let* ((_src6319_ '#f) (_quote?6321_ '#t)) + (gx#datum->syntax__% _stx6316_ _datum6317_ _src6319_ _quote?6321_)))) (define gx#datum->syntax__1 - (lambda (_stx6177_ _datum6178_ _src6179_) - (let ((_quote?6181_ '#t)) - (gx#datum->syntax__% _stx6177_ _datum6178_ _src6179_ _quote?6181_)))) + (lambda (_stx6323_ _datum6324_ _src6325_) + (let ((_quote?6327_ '#t)) + (gx#datum->syntax__% _stx6323_ _datum6324_ _src6325_ _quote?6327_)))) (define gx#datum->syntax - (lambda _g6299_ - (let ((_g6298_ (##length _g6299_))) - (cond ((##fx= _g6298_ 2) (apply gx#datum->syntax__0 _g6299_)) - ((##fx= _g6298_ 3) (apply gx#datum->syntax__1 _g6299_)) - ((##fx= _g6298_ 4) (apply gx#datum->syntax__% _g6299_)) + (lambda _g6445_ + (let ((_g6444_ (##length _g6445_))) + (cond ((##fx= _g6444_ 2) + (apply (lambda (_stx6316_ _datum6317_) + (gx#datum->syntax__0 _stx6316_ _datum6317_)) + _g6445_)) + ((##fx= _g6444_ 3) + (apply (lambda (_stx6323_ _datum6324_ _src6325_) + (gx#datum->syntax__1 + _stx6323_ + _datum6324_ + _src6325_)) + _g6445_)) + ((##fx= _g6444_ 4) + (apply (lambda (_stx6329_ _datum6330_ _src6331_ _quote?6332_) + (gx#datum->syntax__% + _stx6329_ + _datum6330_ + _src6331_ + _quote?6332_)) + _g6445_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g6299_)))))) + _g6445_)))))) (define gx#stx-unwrap__% - (lambda (_stx6107_ _marks6108_) - (let _lp6110_ ((_e6112_ _stx6107_) - (_marks6113_ _marks6108_) - (_src6114_ (gx#stx-source _stx6107_))) - (if (##structure-direct-instance-of? _e6112_ 'gx#syntax-wrap::t) - (_lp6110_ - (##unchecked-structure-ref _e6112_ '1 gx#AST::t '#f) + (lambda (_stx6253_ _marks6254_) + (let _lp6256_ ((_e6258_ _stx6253_) + (_marks6259_ _marks6254_) + (_src6260_ (gx#stx-source _stx6253_))) + (if (##structure-direct-instance-of? _e6258_ 'gx#syntax-wrap::t) + (_lp6256_ + (##unchecked-structure-ref _e6258_ '1 gx#AST::t '#f) (gx#apply-mark - (##unchecked-structure-ref _e6112_ '3 gx#syntax-wrap::t '#f) - _marks6113_) - (##unchecked-structure-ref _e6112_ '2 gx#AST::t '#f)) + (##unchecked-structure-ref _e6258_ '3 gx#syntax-wrap::t '#f) + _marks6259_) + (##unchecked-structure-ref _e6258_ '2 gx#AST::t '#f)) (if (##structure-direct-instance-of? - _e6112_ + _e6258_ 'gx#identifier-wrap::t) - (if (null? _marks6113_) - _e6112_ + (if (null? _marks6259_) + _e6258_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _e6112_ '1 gx#AST::t '#f) - (##unchecked-structure-ref _e6112_ '2 gx#AST::t '#f) + (##unchecked-structure-ref _e6258_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _e6258_ '2 gx#AST::t '#f) (foldl1 gx#apply-mark (##unchecked-structure-ref - _e6112_ + _e6258_ '3 gx#identifier-wrap::t '#f) - _marks6113_))) + _marks6259_))) (if (##structure-direct-instance-of? - _e6112_ + _e6258_ 'gx#syntax-quote::t) - _e6112_ - (if (##structure-instance-of? _e6112_ 'gerbil#AST::t) - (_lp6110_ - (##unchecked-structure-ref _e6112_ '1 gx#AST::t '#f) - _marks6113_ + _e6258_ + (if (##structure-instance-of? _e6258_ 'gerbil#AST::t) + (_lp6256_ + (##unchecked-structure-ref _e6258_ '1 gx#AST::t '#f) + _marks6259_ (##unchecked-structure-ref - _e6112_ + _e6258_ '2 gx#AST::t '#f)) - (if (symbol? _e6112_) + (if (symbol? _e6258_) (##structure gx#identifier-wrap::t - _e6112_ - _src6114_ - (reverse _marks6113_)) - (if (null? _marks6113_) - _e6112_ - (if (pair? _e6112_) + _e6258_ + _src6260_ + (reverse _marks6259_)) + (if (null? _marks6259_) + _e6258_ + (if (pair? _e6258_) (cons (gx#stx-wrap - (car _e6112_) - _marks6113_) + (car _e6258_) + _marks6259_) (gx#stx-wrap - (cdr _e6112_) - _marks6113_)) - (if (vector? _e6112_) + (cdr _e6258_) + _marks6259_)) + (if (vector? _e6258_) (vector-map - (lambda (_g61156117_) + (lambda (_g62616263_) (gx#stx-wrap - _g61156117_ - _marks6113_)) - _e6112_) - (if (box? _e6112_) + _g62616263_ + _marks6259_)) + _e6258_) + (if (box? _e6258_) (box (gx#stx-wrap - (unbox _e6112_) - _marks6113_)) - _e6112_)))))))))))) + (unbox _e6258_) + _marks6259_)) + _e6258_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_stx6123_) - (let ((_marks6125_ '())) (gx#stx-unwrap__% _stx6123_ _marks6125_)))) + (lambda (_stx6269_) + (let ((_marks6271_ '())) (gx#stx-unwrap__% _stx6269_ _marks6271_)))) (define gx#stx-unwrap - (lambda _g6301_ - (let ((_g6300_ (##length _g6301_))) - (cond ((##fx= _g6300_ 1) (apply gx#stx-unwrap__0 _g6301_)) - ((##fx= _g6300_ 2) (apply gx#stx-unwrap__% _g6301_)) + (lambda _g6447_ + (let ((_g6446_ (##length _g6447_))) + (cond ((##fx= _g6446_ 1) + (apply (lambda (_stx6269_) (gx#stx-unwrap__0 _stx6269_)) + _g6447_)) + ((##fx= _g6446_ 2) + (apply (lambda (_stx6273_ _marks6274_) + (gx#stx-unwrap__% _stx6273_ _marks6274_)) + _g6447_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g6301_)))))) + _g6447_)))))) (define gx#stx-wrap - (lambda (_stx6100_ _marks6101_) - (foldl1 (lambda (_mark6103_ _stx6104_) - (gx#stx-apply-mark _stx6104_ _mark6103_)) - _stx6100_ - _marks6101_))) + (lambda (_stx6246_ _marks6247_) + (foldl1 (lambda (_mark6249_ _stx6250_) + (gx#stx-apply-mark _stx6250_ _mark6249_)) + _stx6246_ + _marks6247_))) (define gx#stx-rewrap - (lambda (_stx6094_ _marks6095_) - (foldr1 (lambda (_mark6097_ _stx6098_) - (gx#stx-apply-mark _stx6098_ _mark6097_)) - _stx6094_ - _marks6095_))) + (lambda (_stx6240_ _marks6241_) + (foldr1 (lambda (_mark6243_ _stx6244_) + (gx#stx-apply-mark _stx6244_ _mark6243_)) + _stx6240_ + _marks6241_))) (define gx#stx-apply-mark - (lambda (_stx6091_ _mark6092_) - (if (##structure-direct-instance-of? _stx6091_ 'gx#syntax-quote::t) - _stx6091_ + (lambda (_stx6237_ _mark6238_) + (if (##structure-direct-instance-of? _stx6237_ 'gx#syntax-quote::t) + _stx6237_ (if (and (##structure-direct-instance-of? - _stx6091_ + _stx6237_ 'gx#syntax-wrap::t) - (eq? _mark6092_ + (eq? _mark6238_ (##unchecked-structure-ref - _stx6091_ + _stx6237_ '3 gx#syntax-wrap::t '#f))) - (##unchecked-structure-ref _stx6091_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _stx6237_ '1 gx#AST::t '#f) (##structure gx#syntax-wrap::t - _stx6091_ - (gx#stx-source _stx6091_) - _mark6092_))))) + _stx6237_ + (gx#stx-source _stx6237_) + _mark6238_))))) (define gx#apply-mark - (lambda (_mark6055_ _marks6056_) - (let* ((_marks60576065_ _marks6056_) - (_else60596073_ (lambda () (cons _mark6055_ _marks6056_))) - (_K60616079_ - (lambda (_rest6076_ _hd6077_) - (if (eq? _mark6055_ _hd6077_) - _rest6076_ - (cons _mark6055_ _marks6056_))))) - (if (##pair? _marks60576065_) - (let ((_hd60626082_ (##car _marks60576065_)) - (_tl60636084_ (##cdr _marks60576065_))) - (let* ((_hd6087_ _hd60626082_) (_rest6089_ _tl60636084_)) - (_K60616079_ _rest6089_ _hd6087_))) - (_else60596073_))))) + (lambda (_mark6201_ _marks6202_) + (let* ((_marks62036211_ _marks6202_) + (_else62056219_ (lambda () (cons _mark6201_ _marks6202_))) + (_K62076225_ + (lambda (_rest6222_ _hd6223_) + (if (eq? _mark6201_ _hd6223_) + _rest6222_ + (cons _mark6201_ _marks6202_))))) + (if (##pair? _marks62036211_) + (let ((_hd62086228_ (##car _marks62036211_)) + (_tl62096230_ (##cdr _marks62036211_))) + (let* ((_hd6233_ _hd62086228_) (_rest6235_ _tl62096230_)) + (_K62076225_ _rest6235_ _hd6233_))) + (_else62056219_))))) (define gx#stx-e - (lambda (_stx6053_) - (if (##structure-direct-instance-of? _stx6053_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _stx6053_ '1 gx#AST::t '#f)) - (if (##structure-instance-of? _stx6053_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx6053_ '1 gx#AST::t '#f) - _stx6053_)))) + (lambda (_stx6199_) + (if (##structure-direct-instance-of? _stx6199_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _stx6199_ '1 gx#AST::t '#f)) + (if (##structure-instance-of? _stx6199_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx6199_ '1 gx#AST::t '#f) + _stx6199_)))) (define gx#stx-source - (lambda (_stx6051_) - (if (##structure-instance-of? _stx6051_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx6051_ '2 gx#AST::t '#f) + (lambda (_stx6197_) + (if (##structure-instance-of? _stx6197_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx6197_ '2 gx#AST::t '#f) '#f))) (define gx#stx-wrap-source - (lambda (_stx6045_ _src6046_) - (if (or (##structure-instance-of? _stx6045_ 'gerbil#AST::t) - (not _src6046_)) - _stx6045_ - (##structure gx#AST::t _stx6045_ _src6046_)))) + (lambda (_stx6191_ _src6192_) + (if (or (##structure-instance-of? _stx6191_ 'gerbil#AST::t) + (not _src6192_)) + _stx6191_ + (##structure gx#AST::t _stx6191_ _src6192_)))) (define gx#stx-datum? - (lambda (_stx6043_) (gx#self-quoting? (gx#stx-e _stx6043_)))) + (lambda (_stx6189_) (gx#self-quoting? (gx#stx-e _stx6189_)))) (define gx#self-quoting? - (lambda (_x6026_) - (let ((_$e6028_ (immediate? _x6026_))) - (if _$e6028_ - _$e6028_ - (let ((_$e6031_ (number? _x6026_))) - (if _$e6031_ - _$e6031_ - (let ((_$e6034_ (keyword? _x6026_))) - (if _$e6034_ - _$e6034_ - (let ((_$e6037_ (string? _x6026_))) - (if _$e6037_ - _$e6037_ - (let ((_$e6040_ (vector? _x6026_))) - (if _$e6040_ - _$e6040_ - (u8vector? _x6026_))))))))))))) - (define gx#stx-boolean? (lambda (_e6024_) (boolean? (gx#stx-e _e6024_)))) - (define gx#stx-keyword? (lambda (_e6022_) (keyword? (gx#stx-e _e6022_)))) - (define gx#stx-char? (lambda (_e6020_) (char? (gx#stx-e _e6020_)))) - (define gx#stx-number? (lambda (_e6018_) (number? (gx#stx-e _e6018_)))) - (define gx#stx-fixnum? (lambda (_e6016_) (fixnum? (gx#stx-e _e6016_)))) - (define gx#stx-string? (lambda (_e6014_) (string? (gx#stx-e _e6014_)))) - (define gx#stx-null? (lambda (_e6012_) (null? (gx#stx-e _e6012_)))) - (define gx#stx-pair? (lambda (_e6010_) (pair? (gx#stx-e _e6010_)))) + (lambda (_x6172_) + (let ((_$e6174_ (immediate? _x6172_))) + (if _$e6174_ + _$e6174_ + (let ((_$e6177_ (number? _x6172_))) + (if _$e6177_ + _$e6177_ + (let ((_$e6180_ (keyword? _x6172_))) + (if _$e6180_ + _$e6180_ + (let ((_$e6183_ (string? _x6172_))) + (if _$e6183_ + _$e6183_ + (let ((_$e6186_ (vector? _x6172_))) + (if _$e6186_ + _$e6186_ + (u8vector? _x6172_))))))))))))) + (define gx#stx-boolean? (lambda (_e6170_) (boolean? (gx#stx-e _e6170_)))) + (define gx#stx-keyword? (lambda (_e6168_) (keyword? (gx#stx-e _e6168_)))) + (define gx#stx-char? (lambda (_e6166_) (char? (gx#stx-e _e6166_)))) + (define gx#stx-number? (lambda (_e6164_) (number? (gx#stx-e _e6164_)))) + (define gx#stx-fixnum? (lambda (_e6162_) (fixnum? (gx#stx-e _e6162_)))) + (define gx#stx-string? (lambda (_e6160_) (string? (gx#stx-e _e6160_)))) + (define gx#stx-null? (lambda (_e6158_) (null? (gx#stx-e _e6158_)))) + (define gx#stx-pair? (lambda (_e6156_) (pair? (gx#stx-e _e6156_)))) (define gx#stx-list? - (lambda (_e5972_) - (let* ((_g59735982_ (gx#stx-e _e5972_)) - (_E59765986_ - (lambda () (error '"No clause matching" _g59735982_)))) - (let ((_K59786002_ (lambda (_rest6000_) (gx#stx-list? _rest6000_))) - (_K59775992_ (lambda (_tail5990_) (null? _tail5990_)))) - (if (##pair? _g59735982_) - (let* ((_tl59806005_ (##cdr _g59735982_)) - (_rest6008_ _tl59806005_)) - (gx#stx-list? _rest6008_)) - (let ((_tail5995_ _g59735982_)) (null? _tail5995_))))))) + (lambda (_e6118_) + (let* ((_g61196128_ (gx#stx-e _e6118_)) + (_E61226132_ + (lambda () (error '"No clause matching" _g61196128_)))) + (let ((_K61246148_ (lambda (_rest6146_) (gx#stx-list? _rest6146_))) + (_K61236138_ (lambda (_tail6136_) (null? _tail6136_)))) + (if (##pair? _g61196128_) + (let* ((_tl61266151_ (##cdr _g61196128_)) + (_rest6154_ _tl61266151_)) + (gx#stx-list? _rest6154_)) + (let ((_tail6141_ _g61196128_)) (null? _tail6141_))))))) (define gx#stx-pair/null? - (lambda (_e5965_) - (let* ((_e5967_ (gx#stx-e _e5965_)) (_$e5969_ (pair? _e5967_))) - (if _$e5969_ _$e5969_ (null? _e5967_))))) - (define gx#stx-vector? (lambda (_e5963_) (vector? (gx#stx-e _e5963_)))) - (define gx#stx-box? (lambda (_e5961_) (box? (gx#stx-e _e5961_)))) + (lambda (_e6111_) + (let* ((_e6113_ (gx#stx-e _e6111_)) (_$e6115_ (pair? _e6113_))) + (if _$e6115_ _$e6115_ (null? _e6113_))))) + (define gx#stx-vector? (lambda (_e6109_) (vector? (gx#stx-e _e6109_)))) + (define gx#stx-box? (lambda (_e6107_) (box? (gx#stx-e _e6107_)))) (define gx#stx-eq? - (lambda (_x5958_ _y5959_) (eq? (gx#stx-e _x5958_) (gx#stx-e _y5959_)))) + (lambda (_x6104_ _y6105_) (eq? (gx#stx-e _x6104_) (gx#stx-e _y6105_)))) (define gx#stx-eqv? - (lambda (_x5955_ _y5956_) (eqv? (gx#stx-e _x5955_) (gx#stx-e _y5956_)))) + (lambda (_x6101_ _y6102_) (eqv? (gx#stx-e _x6101_) (gx#stx-e _y6102_)))) (define gx#stx-equal? - (lambda (_x5952_ _y5953_) - (equal? (gx#stx-e _x5952_) (gx#stx-e _y5953_)))) - (define gx#stx-false? (lambda (_x5950_) (not (gx#stx-e _x5950_)))) + (lambda (_x6098_ _y6099_) + (equal? (gx#stx-e _x6098_) (gx#stx-e _y6099_)))) + (define gx#stx-false? (lambda (_x6096_) (not (gx#stx-e _x6096_)))) (define gx#stx-identifier - (lambda (_template5947_ . _args5948_) + (lambda (_template6093_ . _args6094_) (gx#datum->syntax__1 - _template5947_ - (apply make-symbol (map gx#stx-e _args5948_)) - (gx#stx-source _template5947_)))) + _template6093_ + (apply make-symbol (map gx#stx-e _args6094_)) + (gx#stx-source _template6093_)))) (define gx#stx-identifier-marks - (lambda (_stx5945_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx5945_)))) + (lambda (_stx6091_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx6091_)))) (define gx#stx-identifier-marks* - (lambda (_stx5943_) - (if (##structure-direct-instance-of? _stx5943_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _stx5943_ '3 gx#identifier-wrap::t '#f) - (if (##structure-direct-instance-of? _stx5943_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _stx5943_ '4 gx#syntax-quote::t '#f) + (lambda (_stx6089_) + (if (##structure-direct-instance-of? _stx6089_ 'gx#identifier-wrap::t) + (##unchecked-structure-ref _stx6089_ '3 gx#identifier-wrap::t '#f) + (if (##structure-direct-instance-of? _stx6089_ 'gx#syntax-quote::t) + (##unchecked-structure-ref _stx6089_ '4 gx#syntax-quote::t '#f) (error '"Bad wrap; expected unwrapped identifier" - _stx5943_))))) + _stx6089_))))) (define gx#stx-identifier-context - (lambda (_stx5939_) - (let ((_stx5941_ (gx#stx-unwrap__0 _stx5939_))) - (if (gx#identifier-quote? _stx5941_) - (##unchecked-structure-ref _stx5941_ '3 gx#syntax-quote::t '#f) + (lambda (_stx6085_) + (let ((_stx6087_ (gx#stx-unwrap__0 _stx6085_))) + (if (gx#identifier-quote? _stx6087_) + (##unchecked-structure-ref _stx6087_ '3 gx#syntax-quote::t '#f) '#f)))) (define gx#identifier-list? - (lambda (_stx5894_) - (let* ((_g58955905_ (gx#stx-e _stx5894_)) - (_else58985913_ (lambda () '#f))) - (let ((_K59015927_ - (lambda (_rest5924_ _hd5925_) - (if (gx#identifier? _hd5925_) - (gx#identifier-list? _rest5924_) + (lambda (_stx6040_) + (let* ((_g60416051_ (gx#stx-e _stx6040_)) + (_else60446059_ (lambda () '#f))) + (let ((_K60476073_ + (lambda (_rest6070_ _hd6071_) + (if (gx#identifier? _hd6071_) + (gx#identifier-list? _rest6070_) '#f))) - (_K59005918_ (lambda () '#t))) - (let ((_try-match58975921_ + (_K60466064_ (lambda () '#t))) + (let ((_try-match60436067_ (lambda () - (if (##null? _g58955905_) - (_K59005918_) - (_else58985913_))))) - (if (##pair? _g58955905_) - (let ((_tl59035932_ (##cdr _g58955905_)) - (_hd59025930_ (##car _g58955905_))) - (let ((_hd5935_ _hd59025930_) (_rest5937_ _tl59035932_)) - (_K59015927_ _rest5937_ _hd5935_))) - (_try-match58975921_))))))) + (if (##null? _g60416051_) + (_K60466064_) + (_else60446059_))))) + (if (##pair? _g60416051_) + (let ((_tl60496078_ (##cdr _g60416051_)) + (_hd60486076_ (##car _g60416051_))) + (let ((_hd6081_ _hd60486076_) (_rest6083_ _tl60496078_)) + (_K60476073_ _rest6083_ _hd6081_))) + (_try-match60436067_))))))) (define gx#genident__% - (lambda (_e5871_ _src5872_) + (lambda (_e6017_ _src6018_) (gx#stx-wrap-source - (gensym (let ((_e5874_ (gx#stx-e _e5871_))) - (if (interned-symbol? _e5874_) _e5874_ 'g))) - (let ((_$e5876_ (gx#stx-source _e5871_))) - (if _$e5876_ _$e5876_ _src5872_))))) + (gensym (let ((_e6020_ (gx#stx-e _e6017_))) + (if (interned-symbol? _e6020_) _e6020_ 'g))) + (let ((_$e6022_ (gx#stx-source _e6017_))) + (if _$e6022_ _$e6022_ _src6018_))))) (define gx#genident__0 (lambda () - (let* ((_e5883_ 'g) (_src5885_ '#f)) - (gx#genident__% _e5883_ _src5885_)))) + (let* ((_e6029_ 'g) (_src6031_ '#f)) + (gx#genident__% _e6029_ _src6031_)))) (define gx#genident__1 - (lambda (_e5887_) - (let ((_src5889_ '#f)) (gx#genident__% _e5887_ _src5889_)))) + (lambda (_e6033_) + (let ((_src6035_ '#f)) (gx#genident__% _e6033_ _src6035_)))) (define gx#genident - (lambda _g6303_ - (let ((_g6302_ (##length _g6303_))) - (cond ((##fx= _g6302_ 0) (apply gx#genident__0 _g6303_)) - ((##fx= _g6302_ 1) (apply gx#genident__1 _g6303_)) - ((##fx= _g6302_ 2) (apply gx#genident__% _g6303_)) + (lambda _g6449_ + (let ((_g6448_ (##length _g6449_))) + (cond ((##fx= _g6448_ 0) + (apply (lambda () (gx#genident__0)) _g6449_)) + ((##fx= _g6448_ 1) + (apply (lambda (_e6033_) (gx#genident__1 _e6033_)) _g6449_)) + ((##fx= _g6448_ 2) + (apply (lambda (_e6037_ _src6038_) + (gx#genident__% _e6037_ _src6038_)) + _g6449_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g6303_)))))) + _g6449_)))))) (define gx#gentemps - (lambda (_stx-lst5868_) (gx#stx-map1 gx#genident _stx-lst5868_))) + (lambda (_stx-lst6014_) (gx#stx-map1 gx#genident _stx-lst6014_))) (define gx#syntax->list - (lambda (_stx5866_) (gx#stx-map1 values _stx5866_))) + (lambda (_stx6012_) (gx#stx-map1 values _stx6012_))) (define gx#stx-car - (lambda (_stx5863_) (declare (safe)) (car (gx#syntax-e _stx5863_)))) + (lambda (_stx6009_) + (declare (safe)) + (let ((__tmp6450 + (let () (declare (not safe)) (gx#syntax-e _stx6009_)))) + (declare (not safe)) + (car __tmp6450)))) (define gx#stx-cdr - (lambda (_stx5860_) (declare (safe)) (cdr (gx#syntax-e _stx5860_)))) + (lambda (_stx6006_) + (declare (safe)) + (let ((__tmp6451 + (let () (declare (not safe)) (gx#syntax-e _stx6006_)))) + (declare (not safe)) + (cdr __tmp6451)))) (define gx#stx-length - (lambda (_stx5825_) - (let _lp5827_ ((_rest5829_ _stx5825_) (_n5830_ '0)) - (let* ((_g58315839_ (gx#stx-e _rest5829_)) - (_else58335847_ (lambda () _n5830_)) - (_K58355852_ - (lambda (_rest5850_) - (_lp5827_ _rest5850_ (fx+ _n5830_ '1))))) - (if (##pair? _g58315839_) - (let* ((_tl58375855_ (##cdr _g58315839_)) - (_rest5858_ _tl58375855_)) - (_K58355852_ _rest5858_)) - (_else58335847_)))))) + (lambda (_stx5971_) + (let _lp5973_ ((_rest5975_ _stx5971_) (_n5976_ '0)) + (let* ((_g59775985_ (gx#stx-e _rest5975_)) + (_else59795993_ (lambda () _n5976_)) + (_K59815998_ + (lambda (_rest5996_) + (_lp5973_ _rest5996_ (fx+ _n5976_ '1))))) + (if (##pair? _g59775985_) + (let* ((_tl59836001_ (##cdr _g59775985_)) + (_rest6004_ _tl59836001_)) + (_K59815998_ _rest6004_)) + (_else59795993_)))))) (define gx#stx-for-each - (lambda _g6305_ - (let ((_g6304_ (##length _g6305_))) - (cond ((##fx= _g6304_ 2) (apply gx#stx-for-each1 _g6305_)) - ((##fx= _g6304_ 3) (apply gx#stx-for-each2 _g6305_)) + (lambda _g6453_ + (let ((_g6452_ (##length _g6453_))) + (cond ((##fx= _g6452_ 2) + (apply (lambda (_f5964_ _stx5965_) + (gx#stx-for-each1 _f5964_ _stx5965_)) + _g6453_)) + ((##fx= _g6452_ 3) + (apply (lambda (_f5967_ _xstx5968_ _ystx5969_) + (gx#stx-for-each2 _f5967_ _xstx5968_ _ystx5969_)) + _g6453_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g6305_)))))) + _g6453_)))))) (define gx#stx-for-each1 - (lambda (_f5768_ _stx5769_) - (if (procedure? _f5768_) '#!void (error '"expected procedure" _f5768_)) - (let _lp5771_ ((_rest5773_ _stx5769_)) - (let* ((_g57745784_ (gx#syntax-e _rest5773_)) - (_else57775792_ (lambda () (_f5768_ _rest5773_)))) - (let ((_K57805806_ - (lambda (_rest5803_ _hd5804_) - (_f5768_ _hd5804_) - (_lp5771_ _rest5803_))) - (_K57795797_ (lambda () '#!void))) - (let ((_try-match57765800_ + (lambda (_f5914_ _stx5915_) + (if (procedure? _f5914_) '#!void (error '"expected procedure" _f5914_)) + (let _lp5917_ ((_rest5919_ _stx5915_)) + (let* ((_g59205930_ (gx#syntax-e _rest5919_)) + (_else59235938_ (lambda () (_f5914_ _rest5919_)))) + (let ((_K59265952_ + (lambda (_rest5949_ _hd5950_) + (_f5914_ _hd5950_) + (_lp5917_ _rest5949_))) + (_K59255943_ (lambda () '#!void))) + (let ((_try-match59225946_ (lambda () - (if (##null? _g57745784_) - (_K57795797_) - (_else57775792_))))) - (if (##pair? _g57745784_) - (let ((_tl57825811_ (##cdr _g57745784_)) - (_hd57815809_ (##car _g57745784_))) - (let ((_hd5814_ _hd57815809_) (_rest5816_ _tl57825811_)) - (_K57805806_ _rest5816_ _hd5814_))) - (_try-match57765800_)))))))) + (if (##null? _g59205930_) + (_K59255943_) + (_else59235938_))))) + (if (##pair? _g59205930_) + (let ((_tl59285957_ (##cdr _g59205930_)) + (_hd59275955_ (##car _g59205930_))) + (let ((_hd5960_ _hd59275955_) (_rest5962_ _tl59285957_)) + (_K59265952_ _rest5962_ _hd5960_))) + (_try-match59225946_)))))))) (define gx#stx-for-each2 - (lambda (_f5673_ _xstx5674_ _ystx5675_) - (if (procedure? _f5673_) '#!void (error '"expected procedure" _f5673_)) - (let _lp5677_ ((_xrest5679_ _xstx5674_) (_yrest5680_ _ystx5675_)) - (let* ((_g56815691_ (gx#syntax-e _xrest5679_)) - (_else56845699_ (lambda () '#!void))) - (let ((_K56875756_ - (lambda (_xrest5725_ _xhd5726_) - (let* ((_g57275734_ (gx#syntax-e _yrest5680_)) - (_E57295738_ + (lambda (_f5819_ _xstx5820_ _ystx5821_) + (if (procedure? _f5819_) '#!void (error '"expected procedure" _f5819_)) + (let _lp5823_ ((_xrest5825_ _xstx5820_) (_yrest5826_ _ystx5821_)) + (let* ((_g58275837_ (gx#syntax-e _xrest5825_)) + (_else58305845_ (lambda () '#!void))) + (let ((_K58335902_ + (lambda (_xrest5871_ _xhd5872_) + (let* ((_g58735880_ (gx#syntax-e _yrest5826_)) + (_E58755884_ (lambda () - (error '"No clause matching" _g57275734_))) - (_K57305744_ - (lambda (_yrest5741_ _yhd5742_) - (_f5673_ _xhd5726_ _yhd5742_) - (_lp5677_ _xrest5725_ _yrest5741_)))) - (if (##pair? _g57275734_) - (let ((_hd57315747_ (##car _g57275734_)) - (_tl57325749_ (##cdr _g57275734_))) - (let* ((_yhd5752_ _hd57315747_) - (_yrest5754_ _tl57325749_)) - (_K57305744_ _yrest5754_ _yhd5752_))) - (_E57295738_))))) - (_K56865719_ + (error '"No clause matching" _g58735880_))) + (_K58765890_ + (lambda (_yrest5887_ _yhd5888_) + (_f5819_ _xhd5872_ _yhd5888_) + (_lp5823_ _xrest5871_ _yrest5887_)))) + (if (##pair? _g58735880_) + (let ((_hd58775893_ (##car _g58735880_)) + (_tl58785895_ (##cdr _g58735880_))) + (let* ((_yhd5898_ _hd58775893_) + (_yrest5900_ _tl58785895_)) + (_K58765890_ _yrest5900_ _yhd5898_))) + (_E58755884_))))) + (_K58325865_ (lambda () - (let* ((_yrest57035708_ _yrest5680_) - (_E57055712_ + (let* ((_yrest58495854_ _yrest5826_) + (_E58515858_ (lambda () - (error '"No clause matching" _yrest57035708_))) - (_K57065716_ - (lambda () (_f5673_ _xrest5679_ _yrest5680_)))) - (if (not (gx#stx-null? _yrest57035708_)) - (_K57065716_) - (_E57055712_)))))) - (let ((_try-match56835722_ + (error '"No clause matching" _yrest58495854_))) + (_K58525862_ + (lambda () (_f5819_ _xrest5825_ _yrest5826_)))) + (if (not (gx#stx-null? _yrest58495854_)) + (_K58525862_) + (_E58515858_)))))) + (let ((_try-match58295868_ (lambda () - (if (not (null? _g56815691_)) - (_K56865719_) - (_else56845699_))))) - (if (##pair? _g56815691_) - (let ((_tl56895761_ (##cdr _g56815691_)) - (_hd56885759_ (##car _g56815691_))) - (let ((_xhd5764_ _hd56885759_) - (_xrest5766_ _tl56895761_)) - (_K56875756_ _xrest5766_ _xhd5764_))) - (_try-match56835722_)))))))) + (if (not (null? _g58275837_)) + (_K58325865_) + (_else58305845_))))) + (if (##pair? _g58275837_) + (let ((_tl58355907_ (##cdr _g58275837_)) + (_hd58345905_ (##car _g58275837_))) + (let ((_xhd5910_ _hd58345905_) + (_xrest5912_ _tl58355907_)) + (_K58335902_ _xrest5912_ _xhd5910_))) + (_try-match58295868_)))))))) (define gx#stx-map - (lambda _g6307_ - (let ((_g6306_ (##length _g6307_))) - (cond ((##fx= _g6306_ 2) (apply gx#stx-map1 _g6307_)) - ((##fx= _g6306_ 3) (apply gx#stx-map2 _g6307_)) + (lambda _g6455_ + (let ((_g6454_ (##length _g6455_))) + (cond ((##fx= _g6454_ 2) + (apply (lambda (_f5812_ _stx5813_) + (gx#stx-map1 _f5812_ _stx5813_)) + _g6455_)) + ((##fx= _g6454_ 3) + (apply (lambda (_f5815_ _xstx5816_ _ystx5817_) + (gx#stx-map2 _f5815_ _xstx5816_ _ystx5817_)) + _g6455_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g6307_)))))) + _g6455_)))))) (define gx#stx-map1 - (lambda (_f5616_ _stx5617_) - (if (procedure? _f5616_) '#!void (error '"expected procedure" _f5616_)) - (let _recur5619_ ((_rest5621_ _stx5617_)) - (let* ((_g56225632_ (gx#syntax-e _rest5621_)) - (_else56255640_ (lambda () (_f5616_ _rest5621_)))) - (let ((_K56285654_ - (lambda (_rest5651_ _hd5652_) - (cons (_f5616_ _hd5652_) (_recur5619_ _rest5651_)))) - (_K56275645_ (lambda () '()))) - (let ((_try-match56245648_ + (lambda (_f5762_ _stx5763_) + (if (procedure? _f5762_) '#!void (error '"expected procedure" _f5762_)) + (let _recur5765_ ((_rest5767_ _stx5763_)) + (let* ((_g57685778_ (gx#syntax-e _rest5767_)) + (_else57715786_ (lambda () (_f5762_ _rest5767_)))) + (let ((_K57745800_ + (lambda (_rest5797_ _hd5798_) + (cons (_f5762_ _hd5798_) (_recur5765_ _rest5797_)))) + (_K57735791_ (lambda () '()))) + (let ((_try-match57705794_ (lambda () - (if (##null? _g56225632_) - (_K56275645_) - (_else56255640_))))) - (if (##pair? _g56225632_) - (let ((_tl56305659_ (##cdr _g56225632_)) - (_hd56295657_ (##car _g56225632_))) - (let ((_hd5662_ _hd56295657_) (_rest5664_ _tl56305659_)) - (_K56285654_ _rest5664_ _hd5662_))) - (_try-match56245648_)))))))) + (if (##null? _g57685778_) + (_K57735791_) + (_else57715786_))))) + (if (##pair? _g57685778_) + (let ((_tl57765805_ (##cdr _g57685778_)) + (_hd57755803_ (##car _g57685778_))) + (let ((_hd5808_ _hd57755803_) (_rest5810_ _tl57765805_)) + (_K57745800_ _rest5810_ _hd5808_))) + (_try-match57705794_)))))))) (define gx#stx-map2 - (lambda (_f5521_ _xstx5522_ _ystx5523_) - (if (procedure? _f5521_) '#!void (error '"expected procedure" _f5521_)) - (let _recur5525_ ((_xrest5527_ _xstx5522_) (_yrest5528_ _ystx5523_)) - (let* ((_g55295539_ (gx#syntax-e _xrest5527_)) - (_else55325547_ (lambda () '()))) - (let ((_K55355604_ - (lambda (_xrest5573_ _xhd5574_) - (let* ((_g55755582_ (gx#syntax-e _yrest5528_)) - (_E55775586_ + (lambda (_f5667_ _xstx5668_ _ystx5669_) + (if (procedure? _f5667_) '#!void (error '"expected procedure" _f5667_)) + (let _recur5671_ ((_xrest5673_ _xstx5668_) (_yrest5674_ _ystx5669_)) + (let* ((_g56755685_ (gx#syntax-e _xrest5673_)) + (_else56785693_ (lambda () '()))) + (let ((_K56815750_ + (lambda (_xrest5719_ _xhd5720_) + (let* ((_g57215728_ (gx#syntax-e _yrest5674_)) + (_E57235732_ (lambda () - (error '"No clause matching" _g55755582_))) - (_K55785592_ - (lambda (_yrest5589_ _yhd5590_) - (cons (_f5521_ _xhd5574_ _yhd5590_) - (_recur5525_ _xrest5573_ _yrest5589_))))) - (if (##pair? _g55755582_) - (let ((_hd55795595_ (##car _g55755582_)) - (_tl55805597_ (##cdr _g55755582_))) - (let* ((_yhd5600_ _hd55795595_) - (_yrest5602_ _tl55805597_)) - (_K55785592_ _yrest5602_ _yhd5600_))) - (_E55775586_))))) - (_K55345567_ + (error '"No clause matching" _g57215728_))) + (_K57245738_ + (lambda (_yrest5735_ _yhd5736_) + (cons (_f5667_ _xhd5720_ _yhd5736_) + (_recur5671_ _xrest5719_ _yrest5735_))))) + (if (##pair? _g57215728_) + (let ((_hd57255741_ (##car _g57215728_)) + (_tl57265743_ (##cdr _g57215728_))) + (let* ((_yhd5746_ _hd57255741_) + (_yrest5748_ _tl57265743_)) + (_K57245738_ _yrest5748_ _yhd5746_))) + (_E57235732_))))) + (_K56805713_ (lambda () - (let* ((_yrest55515556_ _yrest5528_) - (_E55535560_ + (let* ((_yrest56975702_ _yrest5674_) + (_E56995706_ (lambda () - (error '"No clause matching" _yrest55515556_))) - (_K55545564_ - (lambda () (_f5521_ _xrest5527_ _yrest5528_)))) - (if (not (gx#stx-null? _yrest55515556_)) - (_K55545564_) - (_E55535560_)))))) - (let ((_try-match55315570_ + (error '"No clause matching" _yrest56975702_))) + (_K57005710_ + (lambda () (_f5667_ _xrest5673_ _yrest5674_)))) + (if (not (gx#stx-null? _yrest56975702_)) + (_K57005710_) + (_E56995706_)))))) + (let ((_try-match56775716_ (lambda () - (if (not (null? _g55295539_)) - (_K55345567_) - (_else55325547_))))) - (if (##pair? _g55295539_) - (let ((_tl55375609_ (##cdr _g55295539_)) - (_hd55365607_ (##car _g55295539_))) - (let ((_xhd5612_ _hd55365607_) - (_xrest5614_ _tl55375609_)) - (_K55355604_ _xrest5614_ _xhd5612_))) - (_try-match55315570_)))))))) + (if (not (null? _g56755685_)) + (_K56805713_) + (_else56785693_))))) + (if (##pair? _g56755685_) + (let ((_tl56835755_ (##cdr _g56755685_)) + (_hd56825753_ (##car _g56755685_))) + (let ((_xhd5758_ _hd56825753_) + (_xrest5760_ _tl56835755_)) + (_K56815750_ _xrest5760_ _xhd5758_))) + (_try-match56775716_)))))))) (define gx#stx-andmap - (lambda (_f5471_ _stx5472_) - (if (procedure? _f5471_) '#!void (error '"expected procedure" _f5471_)) - (let _lp5474_ ((_rest5476_ _stx5472_)) - (let* ((_g54775487_ (gx#syntax-e _rest5476_)) - (_else54805495_ (lambda () (_f5471_ _rest5476_)))) - (let ((_K54835509_ - (lambda (_rest5506_ _hd5507_) - (if (_f5471_ _hd5507_) (_lp5474_ _rest5506_) '#f))) - (_K54825500_ (lambda () '#t))) - (let ((_try-match54795503_ + (lambda (_f5617_ _stx5618_) + (if (procedure? _f5617_) '#!void (error '"expected procedure" _f5617_)) + (let _lp5620_ ((_rest5622_ _stx5618_)) + (let* ((_g56235633_ (gx#syntax-e _rest5622_)) + (_else56265641_ (lambda () (_f5617_ _rest5622_)))) + (let ((_K56295655_ + (lambda (_rest5652_ _hd5653_) + (if (_f5617_ _hd5653_) (_lp5620_ _rest5652_) '#f))) + (_K56285646_ (lambda () '#t))) + (let ((_try-match56255649_ (lambda () - (if (##null? _g54775487_) - (_K54825500_) - (_else54805495_))))) - (if (##pair? _g54775487_) - (let ((_tl54855514_ (##cdr _g54775487_)) - (_hd54845512_ (##car _g54775487_))) - (let ((_hd5517_ _hd54845512_) (_rest5519_ _tl54855514_)) - (_K54835509_ _rest5519_ _hd5517_))) - (_try-match54795503_)))))))) + (if (##null? _g56235633_) + (_K56285646_) + (_else56265641_))))) + (if (##pair? _g56235633_) + (let ((_tl56315660_ (##cdr _g56235633_)) + (_hd56305658_ (##car _g56235633_))) + (let ((_hd5663_ _hd56305658_) (_rest5665_ _tl56315660_)) + (_K56295655_ _rest5665_ _hd5663_))) + (_try-match56255649_)))))))) (define gx#stx-ormap - (lambda (_f5418_ _stx5419_) - (if (procedure? _f5418_) '#!void (error '"expected procedure" _f5418_)) - (let _lp5421_ ((_rest5423_ _stx5419_)) - (let* ((_g54245434_ (gx#syntax-e _rest5423_)) - (_else54275442_ (lambda () (_f5418_ _rest5423_)))) - (let ((_K54305459_ - (lambda (_rest5453_ _hd5454_) - (let ((_$e5456_ (_f5418_ _hd5454_))) - (if _$e5456_ _$e5456_ (_lp5421_ _rest5453_))))) - (_K54295447_ (lambda () '#f))) - (let ((_try-match54265450_ + (lambda (_f5564_ _stx5565_) + (if (procedure? _f5564_) '#!void (error '"expected procedure" _f5564_)) + (let _lp5567_ ((_rest5569_ _stx5565_)) + (let* ((_g55705580_ (gx#syntax-e _rest5569_)) + (_else55735588_ (lambda () (_f5564_ _rest5569_)))) + (let ((_K55765605_ + (lambda (_rest5599_ _hd5600_) + (let ((_$e5602_ (_f5564_ _hd5600_))) + (if _$e5602_ _$e5602_ (_lp5567_ _rest5599_))))) + (_K55755593_ (lambda () '#f))) + (let ((_try-match55725596_ (lambda () - (if (##null? _g54245434_) - (_K54295447_) - (_else54275442_))))) - (if (##pair? _g54245434_) - (let ((_tl54325464_ (##cdr _g54245434_)) - (_hd54315462_ (##car _g54245434_))) - (let ((_hd5467_ _hd54315462_) (_rest5469_ _tl54325464_)) - (_K54305459_ _rest5469_ _hd5467_))) - (_try-match54265450_)))))))) + (if (##null? _g55705580_) + (_K55755593_) + (_else55735588_))))) + (if (##pair? _g55705580_) + (let ((_tl55785610_ (##cdr _g55705580_)) + (_hd55775608_ (##car _g55705580_))) + (let ((_hd5613_ _hd55775608_) (_rest5615_ _tl55785610_)) + (_K55765605_ _rest5615_ _hd5613_))) + (_try-match55725596_)))))))) (define gx#stx-foldl - (lambda (_f5366_ _iv5367_ _stx5368_) - (if (procedure? _f5366_) '#!void (error '"expected procedure" _f5366_)) - (let _lp5370_ ((_r5372_ _iv5367_) (_rest5373_ _stx5368_)) - (let* ((_g53745384_ (gx#syntax-e _rest5373_)) - (_else53775392_ (lambda () (_f5366_ _rest5373_ _r5372_)))) - (let ((_K53805406_ - (lambda (_rest5403_ _hd5404_) - (_lp5370_ (_f5366_ _hd5404_ _r5372_) _rest5403_))) - (_K53795397_ (lambda () _r5372_))) - (let ((_try-match53765400_ + (lambda (_f5512_ _iv5513_ _stx5514_) + (if (procedure? _f5512_) '#!void (error '"expected procedure" _f5512_)) + (let _lp5516_ ((_r5518_ _iv5513_) (_rest5519_ _stx5514_)) + (let* ((_g55205530_ (gx#syntax-e _rest5519_)) + (_else55235538_ (lambda () (_f5512_ _rest5519_ _r5518_)))) + (let ((_K55265552_ + (lambda (_rest5549_ _hd5550_) + (_lp5516_ (_f5512_ _hd5550_ _r5518_) _rest5549_))) + (_K55255543_ (lambda () _r5518_))) + (let ((_try-match55225546_ (lambda () - (if (##null? _g53745384_) - (_K53795397_) - (_else53775392_))))) - (if (##pair? _g53745384_) - (let ((_tl53825411_ (##cdr _g53745384_)) - (_hd53815409_ (##car _g53745384_))) - (let ((_hd5414_ _hd53815409_) (_rest5416_ _tl53825411_)) - (_K53805406_ _rest5416_ _hd5414_))) - (_try-match53765400_)))))))) + (if (##null? _g55205530_) + (_K55255543_) + (_else55235538_))))) + (if (##pair? _g55205530_) + (let ((_tl55285557_ (##cdr _g55205530_)) + (_hd55275555_ (##car _g55205530_))) + (let ((_hd5560_ _hd55275555_) (_rest5562_ _tl55285557_)) + (_K55265552_ _rest5562_ _hd5560_))) + (_try-match55225546_)))))))) (define gx#stx-foldr - (lambda (_f5315_ _iv5316_ _stx5317_) - (if (procedure? _f5315_) '#!void (error '"expected procedure" _f5315_)) - (let _recur5319_ ((_rest5321_ _stx5317_)) - (let* ((_g53225332_ (gx#syntax-e _rest5321_)) - (_else53255340_ (lambda () (_f5315_ _rest5321_ _iv5316_)))) - (let ((_K53285354_ - (lambda (_rest5351_ _hd5352_) - (_f5315_ _hd5352_ (_recur5319_ _rest5351_)))) - (_K53275345_ (lambda () _iv5316_))) - (let ((_try-match53245348_ + (lambda (_f5461_ _iv5462_ _stx5463_) + (if (procedure? _f5461_) '#!void (error '"expected procedure" _f5461_)) + (let _recur5465_ ((_rest5467_ _stx5463_)) + (let* ((_g54685478_ (gx#syntax-e _rest5467_)) + (_else54715486_ (lambda () (_f5461_ _rest5467_ _iv5462_)))) + (let ((_K54745500_ + (lambda (_rest5497_ _hd5498_) + (_f5461_ _hd5498_ (_recur5465_ _rest5497_)))) + (_K54735491_ (lambda () _iv5462_))) + (let ((_try-match54705494_ (lambda () - (if (##null? _g53225332_) - (_K53275345_) - (_else53255340_))))) - (if (##pair? _g53225332_) - (let ((_tl53305359_ (##cdr _g53225332_)) - (_hd53295357_ (##car _g53225332_))) - (let ((_hd5362_ _hd53295357_) (_rest5364_ _tl53305359_)) - (_K53285354_ _rest5364_ _hd5362_))) - (_try-match53245348_)))))))) + (if (##null? _g54685478_) + (_K54735491_) + (_else54715486_))))) + (if (##pair? _g54685478_) + (let ((_tl54765505_ (##cdr _g54685478_)) + (_hd54755503_ (##car _g54685478_))) + (let ((_hd5508_ _hd54755503_) (_rest5510_ _tl54765505_)) + (_K54745500_ _rest5510_ _hd5508_))) + (_try-match54705494_)))))))) (define gx#stx-reverse - (lambda (_stx5313_) (gx#stx-foldl cons '() _stx5313_))) + (lambda (_stx5459_) (gx#stx-foldl cons '() _stx5459_))) (define gx#stx-last - (lambda (_stx5274_) - (let _lp5276_ ((_rest5278_ _stx5274_)) - (let* ((_g52795287_ (gx#syntax-e _rest5278_)) - (_else52815295_ (lambda () _rest5278_)) - (_K52835301_ - (lambda (_rest5298_ _hd5299_) - (if (gx#stx-null? _rest5298_) - _hd5299_ - (_lp5276_ _rest5298_))))) - (if (##pair? _g52795287_) - (let ((_hd52845304_ (##car _g52795287_)) - (_tl52855306_ (##cdr _g52795287_))) - (let* ((_hd5309_ _hd52845304_) (_rest5311_ _tl52855306_)) - (_K52835301_ _rest5311_ _hd5309_))) - (_else52815295_)))))) + (lambda (_stx5420_) + (let _lp5422_ ((_rest5424_ _stx5420_)) + (let* ((_g54255433_ (gx#syntax-e _rest5424_)) + (_else54275441_ (lambda () _rest5424_)) + (_K54295447_ + (lambda (_rest5444_ _hd5445_) + (if (gx#stx-null? _rest5444_) + _hd5445_ + (_lp5422_ _rest5444_))))) + (if (##pair? _g54255433_) + (let ((_hd54305450_ (##car _g54255433_)) + (_tl54315452_ (##cdr _g54255433_))) + (let* ((_hd5455_ _hd54305450_) (_rest5457_ _tl54315452_)) + (_K54295447_ _rest5457_ _hd5455_))) + (_else54275441_)))))) (define gx#stx-last-pair - (lambda (_stx5245_) - (let _lp5247_ ((_hd5249_ _stx5245_)) - (let* ((_g52505257_ (gx#syntax-e _hd5249_)) - (_E52525261_ - (lambda () (error '"No clause matching" _g52505257_))) - (_K52535266_ - (lambda (_rest5264_) - (if (gx#stx-pair? _rest5264_) - (_lp5247_ _rest5264_) - _hd5249_)))) - (if (##pair? _g52505257_) - (let* ((_tl52555269_ (##cdr _g52505257_)) - (_rest5272_ _tl52555269_)) - (_K52535266_ _rest5272_)) - (_E52525261_)))))) + (lambda (_stx5391_) + (let _lp5393_ ((_hd5395_ _stx5391_)) + (let* ((_g53965403_ (gx#syntax-e _hd5395_)) + (_E53985407_ + (lambda () (error '"No clause matching" _g53965403_))) + (_K53995412_ + (lambda (_rest5410_) + (if (gx#stx-pair? _rest5410_) + (_lp5393_ _rest5410_) + _hd5395_)))) + (if (##pair? _g53965403_) + (let* ((_tl54015415_ (##cdr _g53965403_)) + (_rest5418_ _tl54015415_)) + (_K53995412_ _rest5418_)) + (_E53985407_)))))) (define gx#stx-list-tail - (lambda (_stx5214_ _k5215_) - (let _lp5217_ ((_rest5219_ _stx5214_) (_k5220_ _k5215_)) - (if (fxpositive? _k5220_) - (let* ((_g52215228_ (gx#syntax-e _rest5219_)) - (_E52235232_ - (lambda () (error '"No clause matching" _g52215228_))) - (_K52245237_ - (lambda (_rest5235_) - (_lp5217_ _rest5235_ (fx- _k5220_ '1))))) - (if (##pair? _g52215228_) - (let* ((_tl52265240_ (##cdr _g52215228_)) - (_rest5243_ _tl52265240_)) - (_K52245237_ _rest5243_)) - (_E52235232_))) - _rest5219_)))) + (lambda (_stx5360_ _k5361_) + (let _lp5363_ ((_rest5365_ _stx5360_) (_k5366_ _k5361_)) + (if (fxpositive? _k5366_) + (let* ((_g53675374_ (gx#syntax-e _rest5365_)) + (_E53695378_ + (lambda () (error '"No clause matching" _g53675374_))) + (_K53705383_ + (lambda (_rest5381_) + (_lp5363_ _rest5381_ (fx- _k5366_ '1))))) + (if (##pair? _g53675374_) + (let* ((_tl53725386_ (##cdr _g53675374_)) + (_rest5389_ _tl53725386_)) + (_K53705383_ _rest5389_)) + (_E53695378_))) + _rest5365_)))) (define gx#stx-list-ref - (lambda (_stx5211_ _k5212_) - (gx#stx-car (gx#stx-list-tail _stx5211_ _k5212_)))) + (lambda (_stx5357_ _k5358_) + (gx#stx-car (gx#stx-list-tail _stx5357_ _k5358_)))) (define gx#stx-plist?__% - (lambda (_stx5123_ _key?5124_) - (if (procedure? _key?5124_) + (lambda (_stx5269_ _key?5270_) + (if (procedure? _key?5270_) '#!void - (error '"expected procedure" _key?5124_)) - (let _lp5126_ ((_rest5128_ _stx5123_)) - (let* ((_g51295139_ (gx#stx-e _rest5128_)) - (_else51325147_ (lambda () '#f))) - (let ((_K51355189_ - (lambda (_rest5158_ _hd5159_) - (if (_key?5124_ _hd5159_) - (let* ((_g51605168_ (gx#stx-e _rest5158_)) - (_else51625176_ (lambda () '#f)) - (_K51645181_ - (lambda (_rest5179_) (_lp5126_ _rest5179_)))) - (if (##pair? _g51605168_) - (let* ((_tl51665184_ (##cdr _g51605168_)) - (_rest5187_ _tl51665184_)) - (_lp5126_ _rest5187_)) - (_else51625176_))) + (error '"expected procedure" _key?5270_)) + (let _lp5272_ ((_rest5274_ _stx5269_)) + (let* ((_g52755285_ (gx#stx-e _rest5274_)) + (_else52785293_ (lambda () '#f))) + (let ((_K52815335_ + (lambda (_rest5304_ _hd5305_) + (if (_key?5270_ _hd5305_) + (let* ((_g53065314_ (gx#stx-e _rest5304_)) + (_else53085322_ (lambda () '#f)) + (_K53105327_ + (lambda (_rest5325_) (_lp5272_ _rest5325_)))) + (if (##pair? _g53065314_) + (let* ((_tl53125330_ (##cdr _g53065314_)) + (_rest5333_ _tl53125330_)) + (_lp5272_ _rest5333_)) + (_else53085322_))) '#f))) - (_K51345152_ (lambda () '#t))) - (let ((_try-match51315155_ + (_K52805298_ (lambda () '#t))) + (let ((_try-match52775301_ (lambda () - (if (##null? _g51295139_) - (_K51345152_) - (_else51325147_))))) - (if (##pair? _g51295139_) - (let ((_tl51375194_ (##cdr _g51295139_)) - (_hd51365192_ (##car _g51295139_))) - (let ((_hd5197_ _hd51365192_) (_rest5199_ _tl51375194_)) - (_K51355189_ _rest5199_ _hd5197_))) - (_try-match51315155_)))))))) + (if (##null? _g52755285_) + (_K52805298_) + (_else52785293_))))) + (if (##pair? _g52755285_) + (let ((_tl52835340_ (##cdr _g52755285_)) + (_hd52825338_ (##car _g52755285_))) + (let ((_hd5343_ _hd52825338_) (_rest5345_ _tl52835340_)) + (_K52815335_ _rest5345_ _hd5343_))) + (_try-match52775301_)))))))) (define gx#stx-plist?__0 - (lambda (_stx5204_) - (let ((_key?5206_ gx#stx-keyword?)) - (gx#stx-plist?__% _stx5204_ _key?5206_)))) + (lambda (_stx5350_) + (let ((_key?5352_ gx#stx-keyword?)) + (gx#stx-plist?__% _stx5350_ _key?5352_)))) (define gx#stx-plist? - (lambda _g6309_ - (let ((_g6308_ (##length _g6309_))) - (cond ((##fx= _g6308_ 1) (apply gx#stx-plist?__0 _g6309_)) - ((##fx= _g6308_ 2) (apply gx#stx-plist?__% _g6309_)) + (lambda _g6457_ + (let ((_g6456_ (##length _g6457_))) + (cond ((##fx= _g6456_ 1) + (apply (lambda (_stx5350_) (gx#stx-plist?__0 _stx5350_)) + _g6457_)) + ((##fx= _g6456_ 2) + (apply (lambda (_stx5354_ _key?5355_) + (gx#stx-plist?__% _stx5354_ _key?5355_)) + _g6457_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g6309_)))))) + _g6457_)))))) (define gx#stx-getq__% - (lambda (_key5041_ _stx5042_ _key=?5043_) - (if (procedure? _key=?5043_) + (lambda (_key5187_ _stx5188_ _key=?5189_) + (if (procedure? _key=?5189_) '#!void - (error '"expected procedure" _key=?5043_)) - (let _lp5045_ ((_rest5047_ _stx5042_)) - (let* ((_g50485056_ (gx#syntax-e _rest5047_)) - (_else50505064_ (lambda () '#f)) - (_K50525098_ - (lambda (_rest5067_ _hd5068_) - (let* ((_g50695076_ (gx#syntax-e _rest5067_)) - (_E50715080_ + (error '"expected procedure" _key=?5189_)) + (let _lp5191_ ((_rest5193_ _stx5188_)) + (let* ((_g51945202_ (gx#syntax-e _rest5193_)) + (_else51965210_ (lambda () '#f)) + (_K51985244_ + (lambda (_rest5213_ _hd5214_) + (let* ((_g52155222_ (gx#syntax-e _rest5213_)) + (_E52175226_ (lambda () - (error '"No clause matching" _g50695076_))) - (_K50725086_ - (lambda (_rest5083_ _val5084_) - (if (_key=?5043_ _hd5068_ _key5041_) - _val5084_ - (_lp5045_ _rest5083_))))) - (if (##pair? _g50695076_) - (let ((_hd50735089_ (##car _g50695076_)) - (_tl50745091_ (##cdr _g50695076_))) - (let* ((_val5094_ _hd50735089_) - (_rest5096_ _tl50745091_)) - (_K50725086_ _rest5096_ _val5094_))) - (_E50715080_)))))) - (if (##pair? _g50485056_) - (let ((_hd50535101_ (##car _g50485056_)) - (_tl50545103_ (##cdr _g50485056_))) - (let* ((_hd5106_ _hd50535101_) (_rest5108_ _tl50545103_)) - (_K50525098_ _rest5108_ _hd5106_))) - (_else50505064_)))))) + (error '"No clause matching" _g52155222_))) + (_K52185232_ + (lambda (_rest5229_ _val5230_) + (if (_key=?5189_ _hd5214_ _key5187_) + _val5230_ + (_lp5191_ _rest5229_))))) + (if (##pair? _g52155222_) + (let ((_hd52195235_ (##car _g52155222_)) + (_tl52205237_ (##cdr _g52155222_))) + (let* ((_val5240_ _hd52195235_) + (_rest5242_ _tl52205237_)) + (_K52185232_ _rest5242_ _val5240_))) + (_E52175226_)))))) + (if (##pair? _g51945202_) + (let ((_hd51995247_ (##car _g51945202_)) + (_tl52005249_ (##cdr _g51945202_))) + (let* ((_hd5252_ _hd51995247_) (_rest5254_ _tl52005249_)) + (_K51985244_ _rest5254_ _hd5252_))) + (_else51965210_)))))) (define gx#stx-getq__0 - (lambda (_key5113_ _stx5114_) - (let ((_key=?5116_ gx#stx-eq?)) - (gx#stx-getq__% _key5113_ _stx5114_ _key=?5116_)))) + (lambda (_key5259_ _stx5260_) + (let ((_key=?5262_ gx#stx-eq?)) + (gx#stx-getq__% _key5259_ _stx5260_ _key=?5262_)))) (define gx#stx-getq - (lambda _g6311_ - (let ((_g6310_ (##length _g6311_))) - (cond ((##fx= _g6310_ 2) (apply gx#stx-getq__0 _g6311_)) - ((##fx= _g6310_ 3) (apply gx#stx-getq__% _g6311_)) + (lambda _g6459_ + (let ((_g6458_ (##length _g6459_))) + (cond ((##fx= _g6458_ 2) + (apply (lambda (_key5259_ _stx5260_) + (gx#stx-getq__0 _key5259_ _stx5260_)) + _g6459_)) + ((##fx= _g6458_ 3) + (apply (lambda (_key5264_ _stx5265_ _key=?5266_) + (gx#stx-getq__% _key5264_ _stx5265_ _key=?5266_)) + _g6459_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g6311_)))))))) + _g6459_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx__1.scm b/src/bootstrap/gerbil/expander/stx__1.scm index ebb798cff..965bb887b 100644 --- a/src/bootstrap/gerbil/expander/stx__1.scm +++ b/src/bootstrap/gerbil/expander/stx__1.scm @@ -1,130 +1,130 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g6312_| + (define |gx[1]#_g6460_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g6313_| + (define |gx[1]#_g6468_| (##structure gx#syntax-quote::t - 'AST::t + 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g6314_| + (define |gx[1]#_g6471_| (##structure gx#syntax-quote::t - 'make-identifier-wrap + 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g6315_| + (define |gx[1]#_g6473_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g6316_| + (define |gx[1]#_g6475_| (##structure gx#syntax-quote::t - 'identifier-wrap-marks + 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g6317_| + (define |gx[1]#_g6478_| (##structure gx#syntax-quote::t - 'identifier-wrap-marks-set! + 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g6318_| + (define |gx[1]#_g6479_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g6319_| + (define |gx[1]#_g6480_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g6320_| + (define |gx[1]#_g6488_| (##structure gx#syntax-quote::t - 'make-syntax-wrap + 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g6321_| + (define |gx[1]#_g6491_| (##structure gx#syntax-quote::t - 'syntax-wrap? + 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g6322_| + (define |gx[1]#_g6493_| (##structure gx#syntax-quote::t - 'syntax-wrap-mark + 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g6323_| + (define |gx[1]#_g6495_| (##structure gx#syntax-quote::t - 'syntax-wrap-mark-set! + 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g6324_| + (define |gx[1]#_g6498_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g6325_| + (define |gx[1]#_g6507_| (##structure gx#syntax-quote::t - 'make-syntax-quote + 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g6326_| + (define |gx[1]#_g6509_| (##structure gx#syntax-quote::t - 'syntax-quote? + 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g6327_| + (define |gx[1]#_g6513_| (##structure gx#syntax-quote::t - 'syntax-quote-context + 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g6328_| + (define |gx[1]#_g6515_| (##structure gx#syntax-quote::t - 'syntax-quote-marks + 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g6329_| + (define |gx[1]#_g6517_| (##structure gx#syntax-quote::t - 'syntax-quote-context-set! + 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g6330_| + (define |gx[1]#_g6519_| (##structure gx#syntax-quote::t - 'syntax-quote-marks-set! + 'make-syntax-quote #f (gx#current-expander-context) '())) @@ -132,18 +132,42 @@ (define |gx[:0:]#identifier-wrap| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g6312_| + |gx[1]#_g6460_| 'expander-identifiers: - (cons |gx[1]#_g6313_| - (cons |gx[1]#_g6312_| - (cons |gx[1]#_g6314_| - (cons |gx[1]#_g6315_| - (cons (cons |gx[1]#_g6316_| '()) - (cons (cons |gx[1]#_g6317_| '()) '())))))) + (let ((__tmp6477 |gx[1]#_g6478_|) + (__tmp6461 + (let ((__tmp6476 |gx[1]#_g6460_|) + (__tmp6462 + (let ((__tmp6474 |gx[1]#_g6475_|) + (__tmp6463 + (let ((__tmp6472 |gx[1]#_g6473_|) + (__tmp6464 + (let ((__tmp6469 + (let ((__tmp6470 |gx[1]#_g6471_|)) + (declare (not safe)) + (cons __tmp6470 '()))) + (__tmp6465 + (let ((__tmp6466 + (let ((__tmp6467 + |gx[1]#_g6468_|)) + (declare (not safe)) + (cons __tmp6467 '())))) + (declare (not safe)) + (cons __tmp6466 '())))) + (declare (not safe)) + (cons __tmp6469 __tmp6465)))) + (declare (not safe)) + (cons __tmp6472 __tmp6464)))) + (declare (not safe)) + (cons __tmp6474 __tmp6463)))) + (declare (not safe)) + (cons __tmp6476 __tmp6462)))) + (declare (not safe)) + (cons __tmp6477 __tmp6461)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#identifier-wrap::t - |gx[1]#_g6318_| + |gx[1]#_g6479_| 'syntax '#f '((final: . #t)) @@ -151,18 +175,42 @@ (define |gx[:0:]#syntax-wrap| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g6319_| + |gx[1]#_g6480_| 'expander-identifiers: - (cons |gx[1]#_g6313_| - (cons |gx[1]#_g6319_| - (cons |gx[1]#_g6320_| - (cons |gx[1]#_g6321_| - (cons (cons |gx[1]#_g6322_| '()) - (cons (cons |gx[1]#_g6323_| '()) '())))))) + (let ((__tmp6497 |gx[1]#_g6478_|) + (__tmp6481 + (let ((__tmp6496 |gx[1]#_g6480_|) + (__tmp6482 + (let ((__tmp6494 |gx[1]#_g6495_|) + (__tmp6483 + (let ((__tmp6492 |gx[1]#_g6493_|) + (__tmp6484 + (let ((__tmp6489 + (let ((__tmp6490 |gx[1]#_g6491_|)) + (declare (not safe)) + (cons __tmp6490 '()))) + (__tmp6485 + (let ((__tmp6486 + (let ((__tmp6487 + |gx[1]#_g6488_|)) + (declare (not safe)) + (cons __tmp6487 '())))) + (declare (not safe)) + (cons __tmp6486 '())))) + (declare (not safe)) + (cons __tmp6489 __tmp6485)))) + (declare (not safe)) + (cons __tmp6492 __tmp6484)))) + (declare (not safe)) + (cons __tmp6494 __tmp6483)))) + (declare (not safe)) + (cons __tmp6496 __tmp6482)))) + (declare (not safe)) + (cons __tmp6497 __tmp6481)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#syntax-wrap::t - |gx[1]#_g6318_| + |gx[1]#_g6479_| 'syntax '#f '((final: . #t)) @@ -170,21 +218,54 @@ (define |gx[:0:]#syntax-quote| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g6324_| + |gx[1]#_g6498_| 'expander-identifiers: - (cons |gx[1]#_g6313_| - (cons |gx[1]#_g6324_| - (cons |gx[1]#_g6325_| - (cons |gx[1]#_g6326_| - (cons (cons |gx[1]#_g6327_| - (cons |gx[1]#_g6328_| '())) - (cons (cons |gx[1]#_g6329_| - (cons |gx[1]#_g6330_| '())) - '())))))) + (let ((__tmp6521 |gx[1]#_g6478_|) + (__tmp6499 + (let ((__tmp6520 |gx[1]#_g6498_|) + (__tmp6500 + (let ((__tmp6518 |gx[1]#_g6519_|) + (__tmp6501 + (let ((__tmp6516 |gx[1]#_g6517_|) + (__tmp6502 + (let ((__tmp6510 + (let ((__tmp6514 |gx[1]#_g6515_|) + (__tmp6511 + (let ((__tmp6512 + |gx[1]#_g6513_|)) + (declare (not safe)) + (cons __tmp6512 '())))) + (declare (not safe)) + (cons __tmp6514 __tmp6511))) + (__tmp6503 + (let ((__tmp6504 + (let ((__tmp6508 + |gx[1]#_g6509_|) + (__tmp6505 + (let ((__tmp6506 + |gx[1]#_g6507_|)) + (declare (not safe)) + (cons __tmp6506 + '())))) + (declare (not safe)) + (cons __tmp6508 + __tmp6505)))) + (declare (not safe)) + (cons __tmp6504 '())))) + (declare (not safe)) + (cons __tmp6510 __tmp6503)))) + (declare (not safe)) + (cons __tmp6516 __tmp6502)))) + (declare (not safe)) + (cons __tmp6518 __tmp6501)))) + (declare (not safe)) + (cons __tmp6520 __tmp6500)))) + (declare (not safe)) + (cons __tmp6521 __tmp6499)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#syntax-quote::t - |gx[1]#_g6318_| + |gx[1]#_g6479_| 'syntax '#f '((final: . #t)) diff --git a/src/bootstrap/gerbil/expander/stxcase.ssxi.ss b/src/bootstrap/gerbil/expander/stxcase.ssxi.ss index 3f9d3f2ce..ed6cdda75 100644 --- a/src/bootstrap/gerbil/expander/stxcase.ssxi.ss +++ b/src/bootstrap/gerbil/expander/stxcase.ssxi.ss @@ -18,11 +18,6 @@ package: gerbil/expander gx#syntax-pattern-depth-set! (@struct-setf gx#syntax-pattern::t 1 #f)) (declare-type gx#syntax-pattern::apply-macro-expander (@lambda 2 #f)) - (declare-method - gx#syntax-pattern::t - apply-macro-expander - gx#syntax-pattern::apply-macro-expander - #f) (declare-type gx#macro-expand-syntax (@lambda 1 #f)) (declare-type gx#macro-expand-syntax-case__% (@lambda 4 #f)) (declare-type gx#macro-expand-syntax-case__0 (@lambda 1 #f)) diff --git a/src/bootstrap/gerbil/expander/stxcase__0.scm b/src/bootstrap/gerbil/expander/stxcase__0.scm index 201ef9e18..6d2e1d112 100644 --- a/src/bootstrap/gerbil/expander/stxcase__0.scm +++ b/src/bootstrap/gerbil/expander/stxcase__0.scm @@ -1,1981 +1,3207 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1695199285) + (define gerbil/expander/stxcase::timestamp 1695292397) (begin (define gx#syntax-pattern::t - (make-struct-type - 'gx#syntax-pattern::t - gx#expander::t - '2 - 'syntax-pattern - '() - '#f - '(id depth))) - (define gx#syntax-pattern? (make-struct-predicate gx#syntax-pattern::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gx#syntax-pattern::t + gx#expander::t + '2 + 'syntax-pattern + '() + '#f + '(id depth)))) + (define gx#syntax-pattern? + (let () + (declare (not safe)) + (make-struct-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _$args19757_ - (apply make-struct-instance gx#syntax-pattern::t _$args19757_))) + (lambda _$args20472_ + (apply make-struct-instance gx#syntax-pattern::t _$args20472_))) (define gx#syntax-pattern-id - (make-struct-field-accessor gx#syntax-pattern::t '0)) + (let () + (declare (not safe)) + (make-struct-field-accessor gx#syntax-pattern::t '0))) (define gx#syntax-pattern-depth - (make-struct-field-accessor gx#syntax-pattern::t '1)) + (let () + (declare (not safe)) + (make-struct-field-accessor gx#syntax-pattern::t '1))) (define gx#syntax-pattern-id-set! - (make-struct-field-mutator gx#syntax-pattern::t '0)) + (let () + (declare (not safe)) + (make-struct-field-mutator gx#syntax-pattern::t '0))) (define gx#syntax-pattern-depth-set! - (make-struct-field-mutator gx#syntax-pattern::t '1)) + (let () + (declare (not safe)) + (make-struct-field-mutator gx#syntax-pattern::t '1))) (define gx#syntax-pattern::apply-macro-expander - (lambda (_self19754_ _stx19755_) - (gx#raise-syntax-error - '#f - '"Identifier used out of context" - _stx19755_))) - (bind-method! - gx#syntax-pattern::t - 'apply-macro-expander - gx#syntax-pattern::apply-macro-expander - '#f) + (lambda (_self20469_ _stx20470_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Identifier used out of context" + _stx20470_)))) + (let () + (declare (not safe)) + (bind-method! + gx#syntax-pattern::t + 'apply-macro-expander + gx#syntax-pattern::apply-macro-expander + '#f)) (define gx#macro-expand-syntax - (lambda (_stx19236_) - (letrec ((_generate19238_ - (lambda (_e19465_) - (letrec ((_BUG19467_ - (lambda (_q19629_) + (lambda (_stx19951_) + (letrec ((_generate19953_ + (lambda (_e20180_) + (letrec ((_BUG20182_ + (lambda (_q20344_) (error '"BUG: syntax; generate" - _stx19236_ - _e19465_ - _q19629_))) - (_local-pattern-e19468_ - (lambda (_pat19627_) - (gx#syntax-local-rewrap - (##structure-ref - _pat19627_ - '2 - gx#syntax-pattern::t - '#f)))) - (_getvar19469_ - (lambda (_q19624_ _vars19625_) - (assgetq _q19624_ _vars19625_ _BUG19467_))) - (_getarg19470_ - (lambda (_arg19590_ _vars19591_) - (let* ((_arg1959219599_ _arg19590_) - (_E1959419603_ + _stx19951_ + _e20180_ + _q20344_))) + (_local-pattern-e20183_ + (lambda (_pat20342_) + (let ((__tmp20474 + (##structure-ref + _pat20342_ + '2 + gx#syntax-pattern::t + '#f))) + (declare (not safe)) + (gx#syntax-local-rewrap __tmp20474)))) + (_getvar20184_ + (lambda (_q20339_ _vars20340_) + (let () + (declare (not safe)) + (assgetq _q20339_ _vars20340_ _BUG20182_)))) + (_getarg20185_ + (lambda (_arg20305_ _vars20306_) + (let* ((_arg2030720314_ _arg20305_) + (_E2030920318_ (lambda () (error '"No clause matching" - _arg1959219599_))) - (_K1959519612_ - (lambda (_e19606_ _tag19607_) - (let ((_$e19609_ _tag19607_)) - (if (eq? 'ref _$e19609_) - (_getvar19469_ - _e19606_ - _vars19591_) - (if (eq? 'pattern _$e19609_) - (_local-pattern-e19468_ - _e19606_) - (_BUG19467_ - _arg19590_))))))) + _arg2030720314_))) + (_K2031020327_ + (lambda (_e20321_ _tag20322_) + (let ((_$e20324_ _tag20322_)) + (if (let () + (declare (not safe)) + (eq? 'ref _$e20324_)) + (let () + (declare (not safe)) + (_getvar20184_ + _e20321_ + _vars20306_)) + (if (let () + (declare (not safe)) + (eq? 'pattern _$e20324_)) + (let () + (declare (not safe)) + (_local-pattern-e20183_ + _e20321_)) + (let () + (declare (not safe)) + (_BUG20182_ + _arg20305_)))))))) (if (let () (declare (not safe)) - (##pair? _arg1959219599_)) - (let ((_hd1959619615_ + (##pair? _arg2030720314_)) + (let ((_hd2031120330_ (let () (declare (not safe)) - (##car _arg1959219599_))) - (_tl1959719617_ + (##car _arg2030720314_))) + (_tl2031220332_ (let () (declare (not safe)) - (##cdr _arg1959219599_)))) - (let* ((_tag19620_ _hd1959619615_) - (_e19622_ _tl1959719617_)) - (_K1959519612_ _e19622_ _tag19620_))) - (_E1959419603_)))))) - (let _recur19472_ ((_e19474_ _e19465_) (_vars19475_ '())) - (let* ((_e1947619483_ _e19474_) - (_E1947819487_ + (##cdr _arg2030720314_)))) + (let* ((_tag20335_ _hd2031120330_) + (_e20337_ _tl2031220332_)) + (declare (not safe)) + (_K2031020327_ _e20337_ _tag20335_))) + (let () + (declare (not safe)) + (_E2030920318_))))))) + (let _recur20187_ ((_e20189_ _e20180_) (_vars20190_ '())) + (let* ((_e2019120198_ _e20189_) + (_E2019320202_ (lambda () - (error '"No clause matching" _e1947619483_))) - (_K1947919578_ - (lambda (_body19490_ _tag19491_) - (let ((_$e19493_ _tag19491_)) - (if (eq? 'datum _$e19493_) - (gx#core-list 'quote _body19490_) - (if (eq? 'term _$e19493_) - (let ((_id19496_ - (gx#syntax-local-unwrap - _body19490_))) + (error '"No clause matching" _e2019120198_))) + (_K2019420293_ + (lambda (_body20205_ _tag20206_) + (let ((_$e20208_ _tag20206_)) + (if (let () + (declare (not safe)) + (eq? 'datum _$e20208_)) + (let () + (declare (not safe)) + (gx#core-list 'quote _body20205_)) + (if (let () + (declare (not safe)) + (eq? 'term _$e20208_)) + (let ((_id20211_ + (let () + (declare (not safe)) + (gx#syntax-local-unwrap + _body20205_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id19496_ + _id20211_ 'gx#identifier-wrap::t)) - (let ((_marks19498_ + (let ((_marks20213_ (let () (declare (not safe)) (##unchecked-structure-ref - _id19496_ + _id20211_ '3 gx#identifier-wrap::t '#f)))) - (if (null? _marks19498_) - (gx#core-list - 'datum->syntax - '#f - (gx#core-list - 'quote - _body19490_)) - (gx#core-list - 'datum->syntax - (gx#core-list - 'quote-syntax - _body19490_) - (gx#core-list - 'quote - _body19490_) - '#f - '#f))) + (if (let () + (declare (not safe)) + (null? _marks20213_)) + (let ((__tmp20504 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#core-list 'quote _body20205_)))) + (declare (not safe)) + (gx#core-list 'datum->syntax '#f __tmp20504)) + (let ((__tmp20503 + (let () + (declare (not safe)) + (gx#core-list 'quote-syntax _body20205_))) + (__tmp20502 + (let () + (declare (not safe)) + (gx#core-list 'quote _body20205_)))) + (declare (not safe)) + (gx#core-list + 'datum->syntax + __tmp20503 + __tmp20502 + '#f + '#f)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id19496_ + _id20211_ 'gx#syntax-quote::t)) - (gx#core-list - 'quote-syntax - _body19490_) - (_BUG19467_ _e19474_)))) - (if (eq? 'pattern _$e19493_) - (_local-pattern-e19468_ - _body19490_) - (if (eq? 'ref _$e19493_) - (_getvar19469_ - _body19490_ - _vars19475_) - (if (eq? 'cons _$e19493_) + (let () + (declare (not safe)) (gx#core-list - 'cons - (_recur19472_ - (car _body19490_) - _vars19475_) - (_recur19472_ - (cdr _body19490_) - _vars19475_)) - (if (eq? 'vector + 'quote-syntax + _body20205_)) + (let () + (declare (not safe)) + (_BUG20182_ + _e20189_))))) + (if (let () + (declare (not safe)) + (eq? 'pattern _$e20208_)) + (let () + (declare (not safe)) + (_local-pattern-e20183_ + _body20205_)) + (if (let () + (declare (not safe)) + (eq? 'ref _$e20208_)) + (let () + (declare (not safe)) + (_getvar20184_ + _body20205_ + _vars20190_)) + (if (let () + (declare (not safe)) + (eq? 'cons + _$e20208_)) + (let ((__tmp20500 + (let ((__tmp20501 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e19493_) - (gx#core-list - 'list->vector - (_recur19472_ _body19490_ _vars19475_)) - (if (eq? 'box _$e19493_) - (gx#core-list - 'box - (_recur19472_ _body19490_ _vars19475_)) - (if (eq? 'splice _$e19493_) - (let* ((_body1949919510_ _body19490_) - (_E1950119514_ + (let () (declare (not safe)) (car _body20205_)))) + (declare (not safe)) + (_recur20187_ __tmp20501 _vars20190_))) + (__tmp20498 + (let ((__tmp20499 + (let () (declare (not safe)) (cdr _body20205_)))) + (declare (not safe)) + (_recur20187_ __tmp20499 _vars20190_)))) + (declare (not safe)) + (gx#core-list 'cons __tmp20500 __tmp20498)) + (if (let () (declare (not safe)) (eq? 'vector _$e20208_)) + (let ((__tmp20497 + (let () + (declare (not safe)) + (_recur20187_ _body20205_ _vars20190_)))) + (declare (not safe)) + (gx#core-list 'list->vector __tmp20497)) + (if (let () (declare (not safe)) (eq? 'box _$e20208_)) + (let ((__tmp20496 + (let () + (declare (not safe)) + (_recur20187_ _body20205_ _vars20190_)))) + (declare (not safe)) + (gx#core-list 'box __tmp20496)) + (if (let () + (declare (not safe)) + (eq? 'splice _$e20208_)) + (let* ((_body2021420225_ _body20205_) + (_E2021620229_ (lambda () (error '"No clause matching" - _body1949919510_))) - (_K1950219552_ - (lambda (_args19517_ - _iv19518_ - _hd19519_ - _depth19520_) - (let* ((_targets19526_ - (map (lambda (_g1952119523_) - (_getarg19470_ - _g1952119523_ - _vars19475_)) - _args19517_)) - (_fold-in19528_ - (gx#gentemps _args19517_)) - (_fold-out19530_ (gx#genident__0)) - (_lambda-args19532_ - (foldr1 cons - (cons _fold-out19530_ - '()) - _fold-in19528_)) - (_lambda-body19549_ - (if (fx> _depth19520_ '1) - (let ((_r-args19540_ - (map (lambda (_arg19534_) - (cons 'ref + _body2021420225_))) + (_K2021720267_ + (lambda (_args20232_ + _iv20233_ + _hd20234_ + _depth20235_) + (let* ((_targets20241_ + (let ((__tmp20475 + (lambda (_g2023620238_) + (let () + (declare (not safe)) + (_getarg20185_ + _g2023620238_ + _vars20190_))))) + (declare (not safe)) + (map __tmp20475 _args20232_))) + (_fold-in20243_ + (let () + (declare (not safe)) + (gx#gentemps _args20232_))) + (_fold-out20245_ + (let () + (declare (not safe)) + (gx#genident__0))) + (_lambda-args20247_ + (let ((__tmp20476 + (let () + (declare (not safe)) + (cons _fold-out20245_ + '())))) + (declare (not safe)) + (foldr1 cons + __tmp20476 + _fold-in20243_))) + (_lambda-body20264_ + (if (fx> _depth20235_ '1) + (let ((_r-args20255_ + (let ((__tmp20481 + (lambda (_arg20249_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _arg19534_))) - _args19517_)) - (_r-vars19541_ - (foldr2 (lambda (_arg19536_ _var19537_ _r19538_) - (cons (cons (cdr _arg19536_) _var19537_) _r19538_)) - _vars19475_ - _args19517_ - _fold-in19528_))) + (let ((__tmp20482 + (let () + (declare (not safe)) + (cdr _arg20249_)))) + (declare (not safe)) + (cons 'ref __tmp20482))))) + (declare (not safe)) + (map __tmp20481 _args20232_))) + (_r-vars20256_ + (let ((__tmp20483 + (lambda (_arg20251_ _var20252_ _r20253_) + (let ((__tmp20484 + (let ((__tmp20485 + (let () + (declare (not safe)) + (cdr _arg20251_)))) + (declare (not safe)) + (cons __tmp20485 _var20252_)))) + (declare (not safe)) + (cons __tmp20484 _r20253_))))) + (declare (not safe)) + (foldr2 __tmp20483 + _vars20190_ + _args20232_ + _fold-in20243_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_recur19472_ - (cons 'splice - (cons (fx- _depth19520_ + (let ((__tmp20486 + (let ((__tmp20487 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '1) - (cons _hd19519_ - (cons (cons 'var _fold-out19530_) - _r-args19540_)))) + (let ((__tmp20491 + (let () + (declare (not safe)) + (fx- _depth20235_ '1))) + (__tmp20488 + (let ((__tmp20489 + (let ((__tmp20490 + (let () + (declare (not safe)) + (cons 'var _fold-out20245_)))) + (declare (not safe)) + (cons __tmp20490 _r-args20255_)))) + (declare (not safe)) + (cons _hd20234_ __tmp20489)))) + (declare (not safe)) + (cons __tmp20491 __tmp20488)))) + (declare (not safe)) + (cons 'splice __tmp20487)))) + (declare (not safe)) + (_recur20187_ __tmp20486 _r-vars20256_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r-vars19541_)) - (let ((_hd-vars19547_ - (foldr2 (lambda (_arg19543_ + (let* ((_hd-vars20262_ + (let ((__tmp20477 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _var19544_ - _r19545_) - (cons (cons (cdr _arg19543_) _var19544_) _r19545_)) - _vars19475_ - _args19517_ - _fold-in19528_))) + (lambda (_arg20258_ _var20259_ _r20260_) + (let ((__tmp20478 + (let ((__tmp20479 + (let () + (declare (not safe)) + (cdr _arg20258_)))) + (declare (not safe)) + (cons __tmp20479 _var20259_)))) + (declare (not safe)) + (cons __tmp20478 _r20260_))))) + (declare (not safe)) + (foldr2 __tmp20477 + _vars20190_ + _args20232_ + _fold-in20243_))) + (__tmp20480 + (let () + (declare (not safe)) + (_recur20187_ _hd20234_ _hd-vars20262_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) (gx#core-list 'cons - (_recur19472_ - _hd19519_ - _hd-vars19547_) - _fold-out19530_))))) - (gx#core-list - 'begin - (if (fx> (length _targets19526_) '1) - (gx#core-cons* - 'syntax-check-splice-targets - _targets19526_) - '#!void) - (gx#core-cons* - 'foldr + __tmp20480 + _fold-out20245_))))) + (let ((__tmp20495 + (if (fx> (length _targets20241_) + '1) + (let () + (declare (not safe)) + (gx#core-cons* + 'syntax-check-splice-targets + _targets20241_)) + '#!void)) + (__tmp20492 + (let ((__tmp20494 + (let () + (declare (not safe)) + (gx#core-list + 'lambda% + _lambda-args20247_ + _lambda-body20264_))) + (__tmp20493 + (let () + (declare (not safe)) + (_recur20187_ + _iv20233_ + _vars20190_)))) + (declare (not safe)) + (gx#core-cons* + 'foldr + __tmp20494 + __tmp20493 + _targets20241_)))) + (declare (not safe)) (gx#core-list - 'lambda% - _lambda-args19532_ - _lambda-body19549_) - (_recur19472_ _iv19518_ _vars19475_) - _targets19526_)))))) + 'begin + __tmp20495 + __tmp20492)))))) (if (let () (declare (not safe)) - (##pair? _body1949919510_)) - (let ((_hd1950319555_ + (##pair? _body2021420225_)) + (let ((_hd2021820270_ (let () (declare (not safe)) - (##car _body1949919510_))) - (_tl1950419557_ + (##car _body2021420225_))) + (_tl2021920272_ (let () (declare (not safe)) - (##cdr _body1949919510_)))) - (let ((_depth19560_ _hd1950319555_)) + (##cdr _body2021420225_)))) + (let ((_depth20275_ _hd2021820270_)) (if (let () (declare (not safe)) - (##pair? _tl1950419557_)) - (let ((_hd1950519562_ + (##pair? _tl2021920272_)) + (let ((_hd2022020277_ (let () (declare (not safe)) - (##car _tl1950419557_))) - (_tl1950619564_ + (##car _tl2021920272_))) + (_tl2022120279_ (let () (declare (not safe)) - (##cdr _tl1950419557_)))) - (let ((_hd19567_ _hd1950519562_)) + (##cdr _tl2021920272_)))) + (let ((_hd20282_ _hd2022020277_)) (if (let () (declare (not safe)) - (##pair? _tl1950619564_)) - (let ((_hd1950719569_ + (##pair? _tl2022120279_)) + (let ((_hd2022220284_ (let () (declare (not safe)) - (##car _tl1950619564_))) - (_tl1950819571_ + (##car _tl2022120279_))) + (_tl2022320286_ (let () (declare (not safe)) - (##cdr _tl1950619564_)))) - (let* ((_iv19574_ - _hd1950719569_) - (_args19576_ - _tl1950819571_)) - (_K1950219552_ - _args19576_ - _iv19574_ - _hd19567_ - _depth19560_))) - (_E1950119514_)))) - (_E1950119514_)))) - (_E1950119514_))) - (if (eq? 'var _$e19493_) - _body19490_ - (_BUG19467_ _e19474_)))))))))))))) + (##cdr _tl2022120279_)))) + (let* ((_iv20289_ + _hd2022220284_) + (_args20291_ + _tl2022320286_)) + (declare (not safe)) + (_K2021720267_ + _args20291_ + _iv20289_ + _hd20282_ + _depth20275_))) + (let () + (declare (not safe)) + (_E2021620229_))))) + (let () + (declare (not safe)) + (_E2021620229_))))) + (let () + (declare (not safe)) + (_E2021620229_)))) + (if (let () + (declare (not safe)) + (eq? 'var _$e20208_)) + _body20205_ + (let () + (declare (not safe)) + (_BUG20182_ _e20189_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e1947619483_)) - (let ((_hd1948019581_ + (##pair? _e2019120198_)) + (let ((_hd2019520296_ (let () (declare (not safe)) - (##car _e1947619483_))) - (_tl1948119583_ + (##car _e2019120198_))) + (_tl2019620298_ (let () (declare (not safe)) - (##cdr _e1947619483_)))) - (let* ((_tag19586_ _hd1948019581_) - (_body19588_ _tl1948119583_)) - (_K1947919578_ _body19588_ _tag19586_))) - (_E1947819487_))))))) - (_parse19239_ - (lambda (_e19280_) - (letrec ((_make-cons19282_ - (lambda (_hd19457_ _tl19458_) - (let ((_g19759_ _hd19457_) - (_g19761_ _tl19458_)) + (##cdr _e2019120198_)))) + (let* ((_tag20301_ _hd2019520296_) + (_body20303_ _tl2019620298_)) + (declare (not safe)) + (_K2019420293_ _body20303_ _tag20301_))) + (let () + (declare (not safe)) + (_E2019320202_)))))))) + (_parse19954_ + (lambda (_e19995_) + (letrec ((_make-cons19997_ + (lambda (_hd20172_ _tl20173_) + (let ((_g20505_ _hd20172_) + (_g20507_ _tl20173_)) (begin - (let ((_g19760_ + (let ((_g20506_ (let () (declare (not safe)) - (if (##values? _g19759_) - (##vector-length _g19759_) + (if (##values? _g20505_) + (##vector-length _g20505_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g19760_ 2))) + (##fx= _g20506_ 2))) (error "Context expects 2 values" - _g19760_))) - (let ((_g19762_ + _g20506_))) + (let ((_g20508_ (let () (declare (not safe)) - (if (##values? _g19761_) - (##vector-length _g19761_) + (if (##values? _g20507_) + (##vector-length _g20507_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g19762_ 2))) + (##fx= _g20508_ 2))) (error "Context expects 2 values" - _g19762_))) - (let ((_hd-e19460_ + _g20508_))) + (let ((_hd-e20175_ (let () (declare (not safe)) - (##vector-ref _g19759_ 0))) - (_hd-vars19461_ + (##vector-ref _g20505_ 0))) + (_hd-vars20176_ (let () (declare (not safe)) - (##vector-ref _g19759_ 1)))) - (let ((_tl-e19462_ + (##vector-ref _g20505_ 1)))) + (let ((_tl-e20177_ (let () (declare (not safe)) - (##vector-ref _g19761_ 0))) - (_tl-vars19463_ + (##vector-ref _g20507_ 0))) + (_tl-vars20178_ (let () (declare (not safe)) - (##vector-ref _g19761_ 1)))) - (values (cons 'cons - (cons _hd-e19460_ - _tl-e19462_)) - (append _hd-vars19461_ - _tl-vars19463_)))))))) - (_make-splice19283_ - (lambda (_where19396_ - _depth19397_ - _hd19398_ - _tl19399_) - (let ((_g19763_ _hd19398_) - (_g19765_ _tl19399_)) + (##vector-ref _g20507_ 1)))) + (values (let ((__tmp20509 + (let () + (declare (not safe)) + (cons _hd-e20175_ + _tl-e20177_)))) + (declare (not safe)) + (cons 'cons __tmp20509)) + (append _hd-vars20176_ + _tl-vars20178_)))))))) + (_make-splice19998_ + (lambda (_where20111_ + _depth20112_ + _hd20113_ + _tl20114_) + (let ((_g20510_ _hd20113_) + (_g20512_ _tl20114_)) (begin - (let ((_g19764_ + (let ((_g20511_ (let () (declare (not safe)) - (if (##values? _g19763_) - (##vector-length _g19763_) + (if (##values? _g20510_) + (##vector-length _g20510_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g19764_ 2))) + (##fx= _g20511_ 2))) (error "Context expects 2 values" - _g19764_))) - (let ((_g19766_ + _g20511_))) + (let ((_g20513_ (let () (declare (not safe)) - (if (##values? _g19765_) - (##vector-length _g19765_) + (if (##values? _g20512_) + (##vector-length _g20512_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g19766_ 2))) + (##fx= _g20513_ 2))) (error "Context expects 2 values" - _g19766_))) - (let ((_hd-e19401_ + _g20513_))) + (let ((_hd-e20116_ (let () (declare (not safe)) - (##vector-ref _g19763_ 0))) - (_hd-vars19402_ + (##vector-ref _g20510_ 0))) + (_hd-vars20117_ (let () (declare (not safe)) - (##vector-ref _g19763_ 1)))) - (let ((_tl-e19403_ + (##vector-ref _g20510_ 1)))) + (let ((_tl-e20118_ (let () (declare (not safe)) - (##vector-ref _g19765_ 0))) - (_tl-vars19404_ + (##vector-ref _g20512_ 0))) + (_tl-vars20119_ (let () (declare (not safe)) - (##vector-ref _g19765_ 1)))) - (let _lp19406_ ((_rest19408_ - _hd-vars19402_) - (_targets19409_ '()) - (_vars19410_ - _tl-vars19404_)) - (let* ((_rest1941119421_ _rest19408_) - (_else1941319429_ + (##vector-ref _g20512_ 1)))) + (let _lp20121_ ((_rest20123_ + _hd-vars20117_) + (_targets20124_ '()) + (_vars20125_ + _tl-vars20119_)) + (let* ((_rest2012620136_ _rest20123_) + (_else2012820144_ (lambda () - (if (null? _targets19409_) - (gx#raise-syntax-error - '#f - '"Misplaced ellipsis" - _stx19236_ - _where19396_) - (values (cons 'splice + (if (let () + (declare (not safe)) + (null? _targets20124_)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Misplaced ellipsis" + _stx19951_ + _where20111_)) + (values (let ((__tmp20514 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _depth19397_ - (cons _hd-e19401_ - (cons _tl-e19403_ _targets19409_)))) - _vars19410_)))) + (let ((__tmp20515 + (let ((__tmp20516 + (let () + (declare (not safe)) + (cons _tl-e20118_ + _targets20124_)))) + (declare (not safe)) + (cons _hd-e20116_ __tmp20516)))) + (declare (not safe)) + (cons _depth20112_ __tmp20515)))) + (declare (not safe)) + (cons 'splice __tmp20514)) + _vars20125_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K1941519438_ - (lambda (_rest19432_ - _hd-pat19433_ - _hd-depth*19434_) - (let ((_hd-depth19436_ - (fx- _hd-depth*19434_ - _depth19397_))) - (if (fxpositive? - _hd-depth19436_) - (_lp19406_ - _rest19432_ - (cons (cons 'ref + (_K2013020153_ + (lambda (_rest20147_ + _hd-pat20148_ + _hd-depth*20149_) + (let ((_hd-depth20151_ + (fx- _hd-depth*20149_ + _depth20112_))) + (if (let () + (declare + (not safe)) + (fxpositive? + _hd-depth20151_)) + (let ((__tmp20521 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-pat19433_) - _targets19409_) - (cons (cons _hd-depth19436_ _hd-pat19433_) _vars19410_)) - (if (fxzero? _hd-depth19436_) - (_lp19406_ - _rest19432_ - (cons (cons 'pattern _hd-pat19433_) _targets19409_) - _vars19410_) - (gx#raise-syntax-error - '#f - '"Too many ellipses" - _stx19236_ - _where19396_))))))) + (let ((__tmp20522 + (let () + (declare (not safe)) + (cons 'ref _hd-pat20148_)))) + (declare (not safe)) + (cons __tmp20522 _targets20124_))) + (__tmp20519 + (let ((__tmp20520 + (let () + (declare (not safe)) + (cons _hd-depth20151_ _hd-pat20148_)))) + (declare (not safe)) + (cons __tmp20520 _vars20125_)))) + (declare (not safe)) + (_lp20121_ _rest20147_ __tmp20521 __tmp20519)) + (if (let () (declare (not safe)) (fxzero? _hd-depth20151_)) + (let ((__tmp20517 + (let ((__tmp20518 + (let () + (declare (not safe)) + (cons 'pattern _hd-pat20148_)))) + (declare (not safe)) + (cons __tmp20518 _targets20124_)))) + (declare (not safe)) + (_lp20121_ _rest20147_ __tmp20517 _vars20125_)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Too many ellipses" + _stx19951_ + _where20111_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest1941119421_)) - (let ((_hd1941619441_ + (##pair? _rest2012620136_)) + (let ((_hd2013120156_ (let () (declare (not safe)) - (##car _rest1941119421_))) - (_tl1941719443_ + (##car _rest2012620136_))) + (_tl2013220158_ (let () (declare (not safe)) - (##cdr _rest1941119421_)))) + (##cdr _rest2012620136_)))) (if (let () (declare (not safe)) - (##pair? _hd1941619441_)) - (let ((_hd1941819446_ + (##pair? _hd2013120156_)) + (let ((_hd2013320161_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd1941619441_))) - (_tl1941919448_ - (let () (declare (not safe)) (##cdr _hd1941619441_)))) - (let* ((_hd-depth*19451_ _hd1941819446_) - (_hd-pat19453_ _tl1941919448_) - (_rest19455_ _tl1941719443_)) - (_K1941519438_ _rest19455_ _hd-pat19453_ _hd-depth*19451_))) - (_else1941319429_))) + (##car _hd2013120156_))) + (_tl2013420163_ + (let () (declare (not safe)) (##cdr _hd2013120156_)))) + (let* ((_hd-depth*20166_ _hd2013320161_) + (_hd-pat20168_ _tl2013420163_) + (_rest20170_ _tl2013220158_)) + (declare (not safe)) + (_K2013020153_ _rest20170_ _hd-pat20168_ _hd-depth*20166_))) + (let () (declare (not safe)) (_else2012820144_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else1941319429_)))))))))) - (_recur19284_ - (lambda (_e19289_ _is-e?19290_) - (if (_is-e?19290_ _e19289_) - (gx#raise-syntax-error - '#f - '"Mislpaced ellipsis" - _stx19236_) - (if (gx#syntax-local-pattern? _e19289_) - (let* ((_pat19292_ - (gx#syntax-local-e__0 - _e19289_)) - (_depth19294_ + (let () + (declare (not safe)) + (_else2012820144_))))))))))) + (_recur19999_ + (lambda (_e20004_ _is-e?20005_) + (if (_is-e?20005_ _e20004_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Mislpaced ellipsis" + _stx19951_)) + (if (let () + (declare (not safe)) + (gx#syntax-local-pattern? _e20004_)) + (let* ((_pat20007_ + (let () + (declare (not safe)) + (gx#syntax-local-e__0 + _e20004_))) + (_depth20009_ (##structure-ref - _pat19292_ + _pat20007_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _depth19294_) - (values (cons 'ref _pat19292_) - (cons (cons _depth19294_ + (if (let () + (declare (not safe)) + (fxpositive? _depth20009_)) + (values (let () + (declare (not safe)) + (cons 'ref _pat20007_)) + (let ((__tmp20540 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pat19292_) - '())) + (not safe)) + (cons _depth20009_ _pat20007_)))) + (declare (not safe)) + (cons __tmp20540 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (values (cons 'pattern - _pat19292_) + (values (let () + (declare (not safe)) + (cons 'pattern + _pat20007_)) '()))) - (if (gx#identifier? _e19289_) - (values (cons 'term _e19289_) '()) - (if (gx#stx-pair? _e19289_) - (let* ((_e1929619303_ _e19289_) - (_E1929819307_ + (if (let () + (declare (not safe)) + (gx#identifier? _e20004_)) + (values (let () + (declare (not safe)) + (cons 'term _e20004_)) + '()) + (if (let () + (declare (not safe)) + (gx#stx-pair? _e20004_)) + (let* ((_e2001120018_ _e20004_) + (_E2001320022_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - _e1929619303_))) - (_E1929719386_ + (let () + (declare + (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _e2001120018_)))) + (_E2001220101_ (lambda () - (if (gx#stx-pair? - _e1929619303_) - (let ((_e1929919311_ + (if (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e1929619303_))) - (let ((_hd1930019314_ + (not safe)) + (gx#stx-pair? _e2001120018_)) + (let ((_e2001420026_ + (let () + (declare (not safe)) + (gx#syntax-e _e2001120018_)))) + (let ((_hd2001520029_ (let () (declare (not safe)) - (##car _e1929919311_))) - (_tl1930119316_ + (##car _e2001420026_))) + (_tl2001620031_ (let () (declare (not safe)) - (##cdr _e1929919311_)))) - (let* ((_hd19319_ _hd1930019314_) - (_rest19321_ _tl1930119316_)) + (##cdr _e2001420026_)))) + (let* ((_hd20034_ _hd2001520029_) + (_rest20036_ _tl2001620031_)) (if '#t - (if (_is-e?19290_ _hd19319_) - (let* ((_e1932219329_ _rest19321_) - (_E1932419333_ + (if (_is-e?20005_ _hd20034_) + (let* ((_e2003720044_ _rest20036_) + (_E2003920048_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad ellipsis syntax" - _stx19236_ - _e19289_))) - (_E1932319347_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad ellipsis syntax" + _stx19951_ + _e20004_)))) + (_E2003820062_ (lambda () - (if (gx#stx-pair? _e1932219329_) - (let ((_e1932519337_ - (gx#syntax-e - _e1932219329_))) - (let ((_hd1932619340_ + (if (let () + (declare (not safe)) + (gx#stx-pair? + _e2003720044_)) + (let ((_e2004020052_ + (let () + (declare (not safe)) + (gx#syntax-e + _e2003720044_)))) + (let ((_hd2004120055_ (let () (declare (not safe)) - (##car _e1932519337_))) - (_tl1932719342_ + (##car _e2004020052_))) + (_tl2004220057_ (let () (declare (not safe)) - (##cdr _e1932519337_)))) - (let ((_rest19345_ - _hd1932619340_)) - (if (gx#stx-null? - _tl1932719342_) + (##cdr _e2004020052_)))) + (let ((_rest20060_ + _hd2004120055_)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _tl2004220057_)) (if '#t - (_recur19284_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest19345_ - false) - (_E1932419333_)) - (_E1932419333_))))) + (declare (not safe)) + (_recur19999_ _rest20060_ false)) + (let () (declare (not safe)) (_E2003920048_))) + (let () (declare (not safe)) (_E2003920048_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1932419333_))))) - (_E1932319347_)) - (let _lp19351_ ((_rest19353_ _rest19321_) - (_depth19354_ '0)) - (let* ((_e1935519362_ _rest19353_) - (_E1935719366_ + (let () + (declare (not safe)) + (_E2003920048_)))))) + (let () + (declare (not safe)) + (_E2003820062_))) + (let _lp20066_ ((_rest20068_ _rest20036_) + (_depth20069_ '0)) + (let* ((_e2007020077_ _rest20068_) + (_E2007220081_ (lambda () - (if (fxpositive? _depth19354_) - (_make-splice19283_ - _e19289_ - _depth19354_ - (_recur19284_ - _hd19319_ - _is-e?19290_) - (_recur19284_ - _rest19353_ - _is-e?19290_)) - (_make-cons19282_ - (_recur19284_ - _hd19319_ - _is-e?19290_) - (_recur19284_ - _rest19353_ - _is-e?19290_))))) - (_E1935619382_ + (if (let () + (declare (not safe)) + (fxpositive? + _depth20069_)) + (let ((__tmp20534 + (let () + (declare + (not safe)) + (_recur19999_ + _hd20034_ + _is-e?20005_))) + (__tmp20533 + (let () + (declare + (not safe)) + (_recur19999_ + _rest20068_ + _is-e?20005_)))) + (declare (not safe)) + (_make-splice19998_ + _e20004_ + _depth20069_ + __tmp20534 + __tmp20533)) + (let ((__tmp20532 + (let () + (declare + (not safe)) + (_recur19999_ + _hd20034_ + _is-e?20005_))) + (__tmp20531 + (let () + (declare + (not safe)) + (_recur19999_ + _rest20068_ + _is-e?20005_)))) + (declare (not safe)) + (_make-cons19997_ + __tmp20532 + __tmp20531))))) + (_E2007120097_ (lambda () - (if (gx#stx-pair? - _e1935519362_) - (let ((_e1935819370_ - (gx#syntax-e - _e1935519362_))) - (let ((_hd1935919373_ + (if (let () + (declare (not safe)) + (gx#stx-pair? + _e2007020077_)) + (let ((_e2007320085_ + (let () + (declare + (not safe)) + (gx#syntax-e + _e2007020077_)))) + (let ((_hd2007420088_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e1935819370_))) - (_tl1936019375_ - (let () (declare (not safe)) (##cdr _e1935819370_)))) - (let* ((_rest-hd19378_ _hd1935919373_) - (_rest-tl19380_ _tl1936019375_)) + (##car _e2007320085_))) + (_tl2007520090_ + (let () (declare (not safe)) (##cdr _e2007320085_)))) + (let* ((_rest-hd20093_ _hd2007420088_) + (_rest-tl20095_ _tl2007520090_)) (if '#t - (if (_is-e?19290_ _rest-hd19378_) - (_lp19351_ _rest-tl19380_ (fx+ _depth19354_ '1)) - (if (fxpositive? _depth19354_) - (_make-splice19283_ - _e19289_ - _depth19354_ - (_recur19284_ _hd19319_ _is-e?19290_) - (_recur19284_ _rest19353_ _is-e?19290_)) - (_make-cons19282_ - (_recur19284_ _hd19319_ _is-e?19290_) - (_recur19284_ _rest19353_ _is-e?19290_)))) - (_E1935719366_))))) + (if (_is-e?20005_ _rest-hd20093_) + (let ((__tmp20539 + (let () + (declare (not safe)) + (fx+ _depth20069_ '1)))) + (declare (not safe)) + (_lp20066_ _rest-tl20095_ __tmp20539)) + (if (let () + (declare (not safe)) + (fxpositive? _depth20069_)) + (let ((__tmp20538 + (let () + (declare (not safe)) + (_recur19999_ _hd20034_ _is-e?20005_))) + (__tmp20537 + (let () + (declare (not safe)) + (_recur19999_ + _rest20068_ + _is-e?20005_)))) + (declare (not safe)) + (_make-splice19998_ + _e20004_ + _depth20069_ + __tmp20538 + __tmp20537)) + (let ((__tmp20536 + (let () + (declare (not safe)) + (_recur19999_ _hd20034_ _is-e?20005_))) + (__tmp20535 + (let () + (declare (not safe)) + (_recur19999_ + _rest20068_ + _is-e?20005_)))) + (declare (not safe)) + (_make-cons19997_ __tmp20536 __tmp20535)))) + (let () (declare (not safe)) (_E2007220081_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1935719366_))))) - (_E1935619382_)))) - (_E1929819307_))))) - (_E1929819307_))))) + (let () + (declare (not safe)) + (_E2007220081_)))))) + (let () + (declare (not safe)) + (_E2007120097_))))) + (let () + (declare (not safe)) + (_E2001320022_)))))) + (let () (declare (not safe)) (_E2001320022_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1929719386_)) - (if (gx#stx-vector? _e19289_) - (let ((_g19767_ - (_recur19284_ - (vector->list - (gx#stx-unwrap__0 - _e19289_)) - _is-e?19290_))) - (begin - (let ((_g19768_ - (let () + (let () + (declare (not safe)) + (_E2001220101_))) + (if (let () + (declare (not safe)) + (gx#stx-vector? + _e20004_)) + (let ((_g20527_ + (let ((__tmp20529 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp20530 + (let () + (declare (not safe)) + (gx#stx-unwrap__0 _e20004_)))) + (declare (not safe)) + (vector->list __tmp20530)))) + (declare (not safe)) + (_recur19999_ __tmp20529 _is-e?20005_)))) + (begin + (let ((_g20528_ + (let () (declare (not safe)) - (if (##values? _g19767_) - (##vector-length _g19767_) + (if (##values? _g20527_) + (##vector-length _g20527_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g19768_ 2))) - (error "Context expects 2 values" _g19768_))) - (let ((_e19390_ - (let () (declare (not safe)) (##vector-ref _g19767_ 0))) - (_vars19391_ + (if (not (let () (declare (not safe)) (##fx= _g20528_ 2))) + (error "Context expects 2 values" _g20528_))) + (let ((_e20105_ + (let () (declare (not safe)) (##vector-ref _g20527_ 0))) + (_vars20106_ (let () (declare (not safe)) - (##vector-ref _g19767_ 1)))) - (values (cons 'vector _e19390_) _vars19391_)))) + (##vector-ref _g20527_ 1)))) + (values (let () (declare (not safe)) (cons 'vector _e20105_)) + _vars20106_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-box? _e19289_) - (let ((_g19769_ - (_recur19284_ - (unbox (gx#stx-unwrap__0 + (if (let () + (declare (not safe)) + (gx#stx-box? + _e20004_)) + (let ((_g20523_ + (let ((__tmp20525 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e19289_)) - _is-e?19290_))) + (let ((__tmp20526 + (let () + (declare (not safe)) + (gx#stx-unwrap__0 _e20004_)))) + (declare (not safe)) + (unbox __tmp20526)))) + (declare (not safe)) + (_recur19999_ __tmp20525 _is-e?20005_)))) (begin - (let ((_g19770_ + (let ((_g20524_ (let () (declare (not safe)) - (if (##values? _g19769_) - (##vector-length _g19769_) + (if (##values? _g20523_) + (##vector-length _g20523_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g19770_ 2))) - (error "Context expects 2 values" _g19770_))) - (let ((_e19393_ + (##fx= _g20524_ 2))) + (error "Context expects 2 values" _g20524_))) + (let ((_e20108_ (let () (declare (not safe)) - (##vector-ref _g19769_ 0))) - (_vars19394_ + (##vector-ref _g20523_ 0))) + (_vars20109_ (let () (declare (not safe)) - (##vector-ref _g19769_ 1)))) - (values (cons 'box _e19393_) _vars19394_)))) - (values (cons 'datum _e19289_) '())))))))))) + (##vector-ref _g20523_ 1)))) + (values (let () + (declare (not safe)) + (cons 'box _e20108_)) + _vars20109_)))) + (values (let () (declare (not safe)) (cons 'datum _e20004_)) + '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g19771_ (_recur19284_ _e19280_ gx#ellipsis?))) + (let ((_g20541_ + (let () + (declare (not safe)) + (_recur19999_ _e19995_ gx#ellipsis?)))) (begin - (let ((_g19772_ + (let ((_g20542_ (let () (declare (not safe)) - (if (##values? _g19771_) - (##vector-length _g19771_) + (if (##values? _g20541_) + (##vector-length _g20541_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g19772_ 2))) - (error "Context expects 2 values" _g19772_))) - (let ((_tree19286_ + (##fx= _g20542_ 2))) + (error "Context expects 2 values" _g20542_))) + (let ((_tree20001_ (let () (declare (not safe)) - (##vector-ref _g19771_ 0))) - (_vars19287_ + (##vector-ref _g20541_ 0))) + (_vars20002_ (let () (declare (not safe)) - (##vector-ref _g19771_ 1)))) - (if (null? _vars19287_) - _tree19286_ - (gx#raise-syntax-error - '#f - '"Missing ellipsis" - _stx19236_ - _vars19287_))))))))) - (let* ((_e1924019250_ _stx19236_) - (_E1924219254_ + (##vector-ref _g20541_ 1)))) + (if (let () + (declare (not safe)) + (null? _vars20002_)) + _tree20001_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Missing ellipsis" + _stx19951_ + _vars20002_)))))))))) + (let* ((_e1995519965_ _stx19951_) + (_E1995719969_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _stx19236_))) - (_E1924119276_ + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _stx19951_)))) + (_E1995619991_ (lambda () - (if (gx#stx-pair? _e1924019250_) - (let ((_e1924319258_ (gx#syntax-e _e1924019250_))) - (let ((_hd1924419261_ + (if (let () + (declare (not safe)) + (gx#stx-pair? _e1995519965_)) + (let ((_e1995819973_ + (let () + (declare (not safe)) + (gx#syntax-e _e1995519965_)))) + (let ((_hd1995919976_ (let () (declare (not safe)) - (##car _e1924319258_))) - (_tl1924519263_ + (##car _e1995819973_))) + (_tl1996019978_ (let () (declare (not safe)) - (##cdr _e1924319258_)))) - (if (gx#stx-pair? _tl1924519263_) - (let ((_e1924619266_ - (gx#syntax-e _tl1924519263_))) - (let ((_hd1924719269_ + (##cdr _e1995819973_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1996019978_)) + (let ((_e1996119981_ + (let () + (declare (not safe)) + (gx#syntax-e _tl1996019978_)))) + (let ((_hd1996219984_ (let () (declare (not safe)) - (##car _e1924619266_))) - (_tl1924819271_ + (##car _e1996119981_))) + (_tl1996319986_ (let () (declare (not safe)) - (##cdr _e1924619266_)))) - (let ((_form19274_ _hd1924719269_)) - (if (gx#stx-null? _tl1924819271_) + (##cdr _e1996119981_)))) + (let ((_form19989_ _hd1996219984_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1996319986_)) (if '#t - (gx#stx-wrap-source - (_generate19238_ - (_parse19239_ _form19274_)) - (gx#stx-source _stx19236_)) - (_E1924219254_)) - (_E1924219254_))))) - (_E1924219254_)))) - (_E1924219254_))))) - (_E1924119276_))))) + (let ((__tmp20544 + (let ((__tmp20545 + (let () + (declare + (not safe)) + (_parse19954_ + _form19989_)))) + (declare (not safe)) + (_generate19953_ + __tmp20545))) + (__tmp20543 + (let () + (declare (not safe)) + (gx#stx-source + _stx19951_)))) + (declare (not safe)) + (gx#stx-wrap-source + __tmp20544 + __tmp20543)) + (let () + (declare (not safe)) + (_E1995719969_))) + (let () + (declare (not safe)) + (_E1995719969_)))))) + (let () + (declare (not safe)) + (_E1995719969_))))) + (let () (declare (not safe)) (_E1995719969_)))))) + (let () (declare (not safe)) (_E1995619991_)))))) (define gx#macro-expand-syntax-case__% - (lambda (_stx18500_ _identifier=?18501_ _unwrap-e18502_ _wrap-e18503_) - (letrec ((_generate-bindings18505_ - (lambda (_target19100_ - _ids19101_ - _clauses19102_ - _clause-ids19103_ - _E19104_) - (letrec ((_generate119106_ - (lambda (_clause19203_ _clause-id19204_ _E19205_) - (cons (cons _clause-id19204_ '()) - (cons (gx#core-list - 'lambda% - (cons _target19100_ '()) - (_generate-clause18507_ - _target19100_ - _ids19101_ - _clause19203_ - _E19205_)) - '()))))) - (let _lp19108_ ((_rest19110_ _clauses19102_) - (_rest-ids19111_ _clause-ids19103_) - (_bindings19112_ '())) - (let* ((_rest1911319121_ _rest19110_) - (_else1911519129_ (lambda () _bindings19112_)) - (_K1911719191_ - (lambda (_rest19132_ _clause19133_) - (let* ((_rest-ids1913419141_ _rest-ids19111_) - (_E1913619145_ + (lambda (_stx19215_ _identifier=?19216_ _unwrap-e19217_ _wrap-e19218_) + (letrec ((_generate-bindings19220_ + (lambda (_target19815_ + _ids19816_ + _clauses19817_ + _clause-ids19818_ + _E19819_) + (letrec ((_generate119821_ + (lambda (_clause19918_ _clause-id19919_ _E19920_) + (let ((__tmp20550 + (let () + (declare (not safe)) + (cons _clause-id19919_ '()))) + (__tmp20546 + (let ((__tmp20547 + (let ((__tmp20549 + (let () + (declare (not safe)) + (cons _target19815_ + '()))) + (__tmp20548 + (let () + (declare (not safe)) + (_generate-clause19222_ + _target19815_ + _ids19816_ + _clause19918_ + _E19920_)))) + (declare (not safe)) + (gx#core-list + 'lambda% + __tmp20549 + __tmp20548)))) + (declare (not safe)) + (cons __tmp20547 '())))) + (declare (not safe)) + (cons __tmp20550 __tmp20546))))) + (let _lp19823_ ((_rest19825_ _clauses19817_) + (_rest-ids19826_ _clause-ids19818_) + (_bindings19827_ '())) + (let* ((_rest1982819836_ _rest19825_) + (_else1983019844_ (lambda () _bindings19827_)) + (_K1983219906_ + (lambda (_rest19847_ _clause19848_) + (let* ((_rest-ids1984919856_ _rest-ids19826_) + (_E1985119860_ (lambda () (error '"No clause matching" - _rest-ids1913419141_))) - (_K1913719179_ - (lambda (_rest-ids19148_ - _clause-id19149_) - (let* ((_rest-ids1915019158_ - _rest-ids19148_) - (_else1915219166_ + _rest-ids1984919856_))) + (_K1985219894_ + (lambda (_rest-ids19863_ + _clause-id19864_) + (let* ((_rest-ids1986519873_ + _rest-ids19863_) + (_else1986719881_ (lambda () - (cons (_generate119106_ - _clause19133_ - _clause-id19149_ - _E19104_) - _bindings19112_))) - (_K1915419171_ - (lambda (_next-clause-id19169_) - (_lp19108_ - _rest19132_ - _rest-ids19148_ - (cons (_generate119106_ - _clause19133_ - _clause-id19149_ - _next-clause-id19169_) - _bindings19112_))))) + (let ((__tmp20551 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (_generate119821_ + _clause19848_ + _clause-id19864_ + _E19819_)))) + (declare (not safe)) + (cons __tmp20551 _bindings19827_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_K1986919886_ + (lambda (_next-clause-id19884_) + (let ((__tmp20552 + (let ((__tmp20553 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (_generate119821_ + _clause19848_ + _clause-id19864_ + _next-clause-id19884_)))) + (declare (not safe)) + (cons __tmp20553 _bindings19827_)))) + (declare (not safe)) + (_lp19823_ _rest19847_ _rest-ids19863_ __tmp20552))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest-ids1915019158_)) - (let* ((_hd1915519174_ + (##pair? _rest-ids1986519873_)) + (let* ((_hd1987019889_ (let () (declare (not safe)) - (##car _rest-ids1915019158_))) - (_next-clause-id19177_ - _hd1915519174_)) - (_K1915419171_ - _next-clause-id19177_)) - (_else1915219166_)))))) + (##car _rest-ids1986519873_))) + (_next-clause-id19892_ + _hd1987019889_)) + (declare (not safe)) + (_K1986919886_ + _next-clause-id19892_)) + (let () + (declare (not safe)) + (_else1986719881_))))))) (if (let () (declare (not safe)) - (##pair? _rest-ids1913419141_)) - (let ((_hd1913819182_ + (##pair? _rest-ids1984919856_)) + (let ((_hd1985319897_ (let () (declare (not safe)) - (##car _rest-ids1913419141_))) - (_tl1913919184_ + (##car _rest-ids1984919856_))) + (_tl1985419899_ (let () (declare (not safe)) - (##cdr _rest-ids1913419141_)))) - (let* ((_clause-id19187_ - _hd1913819182_) - (_rest-ids19189_ - _tl1913919184_)) - (_K1913719179_ - _rest-ids19189_ - _clause-id19187_))) - (_E1913619145_)))))) + (##cdr _rest-ids1984919856_)))) + (let* ((_clause-id19902_ + _hd1985319897_) + (_rest-ids19904_ + _tl1985419899_)) + (declare (not safe)) + (_K1985219894_ + _rest-ids19904_ + _clause-id19902_))) + (let () + (declare (not safe)) + (_E1985119860_))))))) (if (let () (declare (not safe)) - (##pair? _rest1911319121_)) - (let ((_hd1911819194_ + (##pair? _rest1982819836_)) + (let ((_hd1983319909_ (let () (declare (not safe)) - (##car _rest1911319121_))) - (_tl1911919196_ + (##car _rest1982819836_))) + (_tl1983419911_ (let () (declare (not safe)) - (##cdr _rest1911319121_)))) - (let* ((_clause19199_ _hd1911819194_) - (_rest19201_ _tl1911919196_)) - (_K1911719191_ _rest19201_ _clause19199_))) - (_else1911519129_))))))) - (_generate-body18506_ - (lambda (_bindings19060_ _body19061_) - (let _recur19063_ ((_rest19065_ _bindings19060_)) - (let* ((_rest1906619074_ _rest19065_) - (_else1906819082_ (lambda () _body19061_)) - (_K1907019088_ - (lambda (_rest19085_ _hd19086_) - (gx#core-list - 'let-values - (cons _hd19086_ '()) - (_recur19063_ _rest19085_))))) + (##cdr _rest1982819836_)))) + (let* ((_clause19914_ _hd1983319909_) + (_rest19916_ _tl1983419911_)) + (declare (not safe)) + (_K1983219906_ _rest19916_ _clause19914_))) + (let () + (declare (not safe)) + (_else1983019844_)))))))) + (_generate-body19221_ + (lambda (_bindings19775_ _body19776_) + (let _recur19778_ ((_rest19780_ _bindings19775_)) + (let* ((_rest1978119789_ _rest19780_) + (_else1978319797_ (lambda () _body19776_)) + (_K1978519803_ + (lambda (_rest19800_ _hd19801_) + (let ((__tmp20555 + (let () + (declare (not safe)) + (cons _hd19801_ '()))) + (__tmp20554 + (let () + (declare (not safe)) + (_recur19778_ _rest19800_)))) + (declare (not safe)) + (gx#core-list + 'let-values + __tmp20555 + __tmp20554))))) (if (let () (declare (not safe)) - (##pair? _rest1906619074_)) - (let ((_hd1907119091_ + (##pair? _rest1978119789_)) + (let ((_hd1978619806_ (let () (declare (not safe)) - (##car _rest1906619074_))) - (_tl1907219093_ + (##car _rest1978119789_))) + (_tl1978719808_ (let () (declare (not safe)) - (##cdr _rest1906619074_)))) - (let* ((_hd19096_ _hd1907119091_) - (_rest19098_ _tl1907219093_)) - (_K1907019088_ _rest19098_ _hd19096_))) - (_else1906819082_)))))) - (_generate-clause18507_ - (lambda (_target18923_ _ids18924_ _clause18925_ _E18926_) - (letrec ((_generate118928_ - (lambda (_hd19015_ _fender19016_ _body19017_) - (let ((_g19773_ - (_parse-clause18509_ - _hd19015_ - _ids18924_))) + (##cdr _rest1978119789_)))) + (let* ((_hd19811_ _hd1978619806_) + (_rest19813_ _tl1978719808_)) + (declare (not safe)) + (_K1978519803_ _rest19813_ _hd19811_))) + (let () + (declare (not safe)) + (_else1978319797_))))))) + (_generate-clause19222_ + (lambda (_target19638_ _ids19639_ _clause19640_ _E19641_) + (letrec ((_generate119643_ + (lambda (_hd19730_ _fender19731_ _body19732_) + (let ((_g20556_ + (let () + (declare (not safe)) + (_parse-clause19224_ + _hd19730_ + _ids19639_)))) (begin - (let ((_g19774_ + (let ((_g20557_ (let () (declare (not safe)) - (if (##values? _g19773_) - (##vector-length _g19773_) + (if (##values? _g20556_) + (##vector-length _g20556_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g19774_ 2))) + (##fx= _g20557_ 2))) (error "Context expects 2 values" - _g19774_))) - (let ((_e19019_ + _g20557_))) + (let ((_e19734_ (let () (declare (not safe)) - (##vector-ref _g19773_ 0))) - (_mvars19020_ + (##vector-ref _g20556_ 0))) + (_mvars19735_ (let () (declare (not safe)) - (##vector-ref _g19773_ 1)))) - (let* ((_pvars19022_ - (map gx#syntax-local-rewrap - (gx#gentemps _mvars19020_))) - (_E19024_ - (cons _E18926_ - (cons _target18923_ '()))) - (_K19057_ - (gx#core-list - 'lambda% - _pvars19022_ - (gx#core-list - 'let-syntax - (map (lambda (_mvar19026_ - _pvar19027_) - (let* ((_mvar1902819035_ - _mvar19026_) - (_E1903019039_ - (lambda () + (##vector-ref _g20556_ 1)))) + (let* ((_pvars19737_ + (let ((__tmp20558 + (let () + (declare (not safe)) + (gx#gentemps + _mvars19735_)))) + (declare (not safe)) + (map gx#syntax-local-rewrap + __tmp20558))) + (_E19739_ + (let ((__tmp20559 + (let () + (declare (not safe)) + (cons _target19638_ + '())))) + (declare (not safe)) + (cons _E19641_ __tmp20559))) + (_K19772_ + (let ((__tmp20560 + (let ((__tmp20562 + (let ((__tmp20563 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (error '"No clause matching" _mvar1902819035_))) - (_K1903119045_ - (lambda (_depth19042_ _id19043_) - (cons _id19043_ - (cons (gx#core-list - 'make-syntax-pattern - (gx#core-list 'quote _id19043_) - (gx#core-list 'quote _pvar19027_) - _depth19042_) - '()))))) - (if (let () (declare (not safe)) (##pair? _mvar1902819035_)) - (let ((_hd1903219048_ - (let () - (declare (not safe)) - (##car _mvar1902819035_))) - (_tl1903319050_ - (let () - (declare (not safe)) - (##cdr _mvar1902819035_)))) - (let* ((_id19053_ _hd1903219048_) - (_depth19055_ _tl1903319050_)) - (_K1903119045_ _depth19055_ _id19053_))) - (_E1903019039_)))) + (lambda (_mvar19741_ _pvar19742_) + (let* ((_mvar1974319750_ _mvar19741_) + (_E1974519754_ + (lambda () + (error '"No clause matching" + _mvar1974319750_))) + (_K1974619760_ + (lambda (_depth19757_ _id19758_) + (let ((__tmp20564 + (let ((__tmp20565 + (let ((__tmp20567 + (let () + (declare + (not safe)) + (gx#core-list + 'quote + _id19758_))) + (__tmp20566 + (let () + (declare + (not safe)) + (gx#core-list + 'quote + _pvar19742_)))) + (declare (not safe)) + (gx#core-list + 'make-syntax-pattern + __tmp20567 + __tmp20566 + _depth19757_)))) + (declare (not safe)) + (cons __tmp20565 '())))) + (declare (not safe)) + (cons _id19758_ __tmp20564))))) + (if (let () + (declare (not safe)) + (##pair? _mvar1974319750_)) + (let ((_hd1974719763_ + (let () + (declare (not safe)) + (##car _mvar1974319750_))) + (_tl1974819765_ + (let () + (declare (not safe)) + (##cdr _mvar1974319750_)))) + (let* ((_id19768_ _hd1974719763_) + (_depth19770_ _tl1974819765_)) + (declare (not safe)) + (_K1974619760_ _depth19770_ _id19768_))) + (let () + (declare (not safe)) + (_E1974519754_))))))) + (declare (not safe)) + (map __tmp20563 _mvars19735_ _pvars19737_))) + (__tmp20561 + (if (let () (declare (not safe)) (eq? _fender19731_ '#t)) + _body19732_ + (let () + (declare (not safe)) + (gx#core-list + 'if + _fender19731_ + _body19732_ + _E19739_))))) + (declare (not safe)) + (gx#core-list 'let-syntax __tmp20562 __tmp20561)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _mvars19020_ - _pvars19022_) - (if (eq? _fender19016_ '#t) - _body19017_ - (gx#core-list - 'if - _fender19016_ - _body19017_ - _E19024_)))))) - (_generate-match18508_ - _hd19015_ - _target18923_ - _e19019_ - _mvars19020_ - _K19057_ - _E19024_)))))))) - (let* ((_e1892918949_ _clause18925_) - (_E1893818953_ + (declare (not safe)) + (gx#core-list + 'lambda% + _pvars19737_ + __tmp20560)))) + (let () + (declare (not safe)) + (_generate-match19223_ + _hd19730_ + _target19638_ + _e19734_ + _mvars19735_ + _K19772_ + _E19739_))))))))) + (let* ((_e1964419664_ _clause19640_) + (_E1965319668_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - _e1892918949_))) - (_E1893118987_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _e1964419664_)))) + (_E1964619702_ (lambda () - (if (gx#stx-pair? _e1892918949_) - (let ((_e1893918957_ - (gx#syntax-e _e1892918949_))) - (let ((_hd1894018960_ + (if (let () + (declare (not safe)) + (gx#stx-pair? _e1964419664_)) + (let ((_e1965419672_ + (let () + (declare (not safe)) + (gx#syntax-e _e1964419664_)))) + (let ((_hd1965519675_ (let () (declare (not safe)) - (##car _e1893918957_))) - (_tl1894118962_ + (##car _e1965419672_))) + (_tl1965619677_ (let () (declare (not safe)) - (##cdr _e1893918957_)))) - (let ((_hd18965_ _hd1894018960_)) - (if (gx#stx-pair? _tl1894118962_) - (let ((_e1894218967_ - (gx#syntax-e - _tl1894118962_))) - (let ((_hd1894318970_ + (##cdr _e1965419672_)))) + (let ((_hd19680_ _hd1965519675_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1965619677_)) + (let ((_e1965719682_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl1965619677_)))) + (let ((_hd1965819685_ (let () (declare (not safe)) - (##car _e1894218967_))) - (_tl1894418972_ + (##car _e1965719682_))) + (_tl1965919687_ (let () (declare (not safe)) - (##cdr _e1894218967_)))) - (let ((_fender18975_ - _hd1894318970_)) - (if (gx#stx-pair? - _tl1894418972_) - (let ((_e1894518977_ - (gx#syntax-e - _tl1894418972_))) - (let ((_hd1894618980_ + (##cdr _e1965719682_)))) + (let ((_fender19690_ + _hd1965819685_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _tl1965919687_)) + (let ((_e1966019692_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1894518977_))) - (_tl1894718982_ - (let () (declare (not safe)) (##cdr _e1894518977_)))) - (let ((_body18985_ _hd1894618980_)) - (if (gx#stx-null? _tl1894718982_) + (declare (not safe)) + (gx#syntax-e _tl1965919687_)))) + (let ((_hd1966119695_ + (let () (declare (not safe)) (##car _e1966019692_))) + (_tl1966219697_ + (let () (declare (not safe)) (##cdr _e1966019692_)))) + (let ((_body19700_ _hd1966119695_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl1966219697_)) (if '#t - (_generate118928_ - _hd18965_ - _fender18975_ - _body18985_) - (_E1893818953_)) - (_E1893818953_))))) - (_E1893818953_))))) + (let () + (declare (not safe)) + (_generate119643_ + _hd19680_ + _fender19690_ + _body19700_)) + (let () (declare (not safe)) (_E1965319668_))) + (let () (declare (not safe)) (_E1965319668_)))))) + (let () (declare (not safe)) (_E1965319668_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1893818953_))))) - (_E1893818953_)))) - (_E1893019011_ + (let () + (declare (not safe)) + (_E1965319668_)))))) + (let () + (declare (not safe)) + (_E1965319668_))))) + (_E1964519726_ (lambda () - (if (gx#stx-pair? _e1892918949_) - (let ((_e1893218991_ - (gx#syntax-e _e1892918949_))) - (let ((_hd1893318994_ + (if (let () + (declare (not safe)) + (gx#stx-pair? _e1964419664_)) + (let ((_e1964719706_ + (let () + (declare (not safe)) + (gx#syntax-e _e1964419664_)))) + (let ((_hd1964819709_ (let () (declare (not safe)) - (##car _e1893218991_))) - (_tl1893418996_ + (##car _e1964719706_))) + (_tl1964919711_ (let () (declare (not safe)) - (##cdr _e1893218991_)))) - (let ((_hd18999_ _hd1893318994_)) - (if (gx#stx-pair? _tl1893418996_) - (let ((_e1893519001_ - (gx#syntax-e - _tl1893418996_))) - (let ((_hd1893619004_ + (##cdr _e1964719706_)))) + (let ((_hd19714_ _hd1964819709_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1964919711_)) + (let ((_e1965019716_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl1964919711_)))) + (let ((_hd1965119719_ (let () (declare (not safe)) - (##car _e1893519001_))) - (_tl1893719006_ + (##car _e1965019716_))) + (_tl1965219721_ (let () (declare (not safe)) - (##cdr _e1893519001_)))) - (let ((_body19009_ - _hd1893619004_)) - (if (gx#stx-null? - _tl1893719006_) + (##cdr _e1965019716_)))) + (let ((_body19724_ + _hd1965119719_)) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl1965219721_)) (if '#t - (_generate118928_ - _hd18999_ - '#t - _body19009_) - (_E1893118987_)) - (_E1893118987_))))) - (_E1893118987_))))) - (_E1893118987_))))) - (_E1893019011_))))) - (_generate-match18508_ - (lambda (_where18672_ - _target18673_ - _hd18674_ - _mvars18675_ - _K18676_ - _E18677_) - (letrec ((_BUG18679_ - (lambda (_q18921_) + (let () + (declare + (not safe)) + (_generate119643_ + _hd19714_ + '#t + _body19724_)) + (let () + (declare + (not safe)) + (_E1964619702_))) + (let () + (declare (not safe)) + (_E1964619702_)))))) + (let () + (declare (not safe)) + (_E1964619702_)))))) + (let () + (declare (not safe)) + (_E1964619702_)))))) + (let () (declare (not safe)) (_E1964519726_)))))) + (_generate-match19223_ + (lambda (_where19387_ + _target19388_ + _hd19389_ + _mvars19390_ + _K19391_ + _E19392_) + (letrec ((_BUG19394_ + (lambda (_q19636_) (error '"BUG: syntax-case; generate" - _stx18500_ - _hd18674_ - _q18921_))) - (_recur18680_ - (lambda (_e18771_ - _vars18772_ - _target18773_ - _E18774_ - _k18775_) - (let* ((_e1877618783_ _e18771_) - (_E1877818787_ + _stx19215_ + _hd19389_ + _q19636_))) + (_recur19395_ + (lambda (_e19486_ + _vars19487_ + _target19488_ + _E19489_ + _k19490_) + (let* ((_e1949119498_ _e19486_) + (_E1949319502_ (lambda () (error '"No clause matching" - _e1877618783_))) - (_K1877918909_ - (lambda (_body18790_ _tag18791_) - (let ((_$e18793_ _tag18791_)) - (if (eq? 'any _$e18793_) - (_k18775_ _vars18772_) - (if (eq? 'id _$e18793_) - (gx#core-list - 'if - (gx#core-list - 'identifier? - _target18773_) - (gx#core-list - 'if - (gx#core-list - _identifier=?18501_ - (gx#core-list - _wrap-e18503_ - _body18790_) - _target18773_) - (_k18775_ _vars18772_) - _E18774_) - _E18774_) - (if (eq? 'var _$e18793_) - (_k18775_ - (cons (cons _body18790_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _target18773_) - _vars18772_)) - (if (eq? 'cons _$e18793_) - (let ((_$e18796_ (gx#genident__1 'e)) - (_$hd18797_ (gx#genident__1 'hd)) - (_$tl18798_ (gx#genident__1 'tl))) - (gx#core-list - 'if - (gx#core-list 'stx-pair? _target18773_) - (gx#core-list - 'let-values - (cons (cons (cons _$e18796_ '()) - (cons (gx#core-list - _unwrap-e18502_ - _target18773_) - '())) - '()) - (gx#core-list - 'let-values - (cons (cons (cons _$hd18797_ '()) - (cons (gx#core-list '##car _$e18796_) - '())) - (cons (cons (cons _$tl18798_ '()) - (cons (gx#core-list - '##cdr - _$e18796_) - '())) - '())) - (let* ((_body1879918806_ _body18790_) - (_E1880118810_ - (lambda () - (error '"No clause matching" - _body1879918806_))) - (_K1880218818_ - (lambda (_tl18813_ _hd18814_) - (_recur18680_ - _hd18814_ - _vars18772_ - _$hd18797_ - _E18774_ - (lambda (_vars18816_) - (_recur18680_ - _tl18813_ - _vars18816_ - _$tl18798_ - _E18774_ - _k18775_)))))) - (if (let () - (declare (not safe)) - (##pair? _body1879918806_)) - (let ((_hd1880318821_ - (let () - (declare (not safe)) - (##car _body1879918806_))) - (_tl1880418823_ - (let () - (declare (not safe)) - (##cdr _body1879918806_)))) - (let* ((_hd18826_ _hd1880318821_) - (_tl18828_ _tl1880418823_)) - (_K1880218818_ _tl18828_ _hd18826_))) - (_E1880118810_))))) - _E18774_)) - (if (eq? 'splice _$e18793_) - (let* ((_body1882918836_ _body18790_) - (_E1883118840_ - (lambda () - (error '"No clause matching" - _body1882918836_))) - (_K1883218891_ - (lambda (_tl18843_ _hd18844_) - (let* ((_rlen18846_ - (_splice-rlen18681_ _tl18843_)) - (_$target18848_ - (gx#genident__1 'target)) - (_$hd18850_ (gx#genident__1 'hd)) - (_$tl18852_ (gx#genident__1 'tl)) - (_$lp18854_ (gx#genident__1 'loop)) - (_$lp-e18856_ (gx#genident__1 'e)) - (_$lp-hd18858_ - (gx#genident__1 'lp-hd)) - (_$lp-tl18860_ - (gx#genident__1 'lp-tl)) - (_svars18862_ - (_splice-vars18682_ _hd18844_)) - (_lvars18864_ - (gx#gentemps _svars18862_)) - (_tlvars18866_ - (gx#gentemps _svars18862_)) - (_linit18870_ - (map (lambda (_var18868_) - (gx#core-list 'quote '())) - _lvars18864_))) - (letrec ((_make-loop18873_ - (lambda (_vars18877_) - (gx#core-list - 'letrec-values - (cons (cons (cons _$lp18854_ + _e1949119498_))) + (_K1949419624_ + (lambda (_body19505_ _tag19506_) + (let ((_$e19508_ _tag19506_)) + (if (let () + (declare (not safe)) + (eq? 'any _$e19508_)) + (_k19490_ _vars19487_) + (if (let () + (declare (not safe)) + (eq? 'id _$e19508_)) + (let ((__tmp20677 + (let () + (declare + (not safe)) + (gx#core-list + 'identifier? + _target19488_))) + (__tmp20673 + (let ((__tmp20675 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (gx#core-list - 'lambda% - (cons _$hd18850_ _lvars18864_) + (let ((__tmp20676 + (let () + (declare (not safe)) + (gx#core-list _wrap-e19218_ _body19505_)))) + (declare (not safe)) (gx#core-list - 'if - (gx#core-list 'stx-pair? _$hd18850_) - (gx#core-list - 'let-values - (cons (cons (cons _$lp-e18856_ '()) - (cons (gx#core-list - _unwrap-e18502_ - _$hd18850_) - '())) - '()) - (gx#core-list - 'let-values - (cons (cons (cons _$lp-hd18858_ '()) - (cons (gx#core-list - '##car - _$lp-e18856_) - '())) - (cons (cons (cons _$lp-tl18860_ '()) - (cons (gx#core-list - '##cdr - _$lp-e18856_) - '())) - '())) - (_recur18680_ - _hd18844_ - '() - _$lp-hd18858_ - _E18774_ - (lambda (_hdvars18879_) - (cons _$lp18854_ - (cons _$lp-tl18860_ - (map (lambda (_svar18881_ - _lvar18882_) - (gx#core-list - 'cons - (assgetq _svar18881_ - _hdvars18879_ - _BUG18679_) - _lvar18882_)) - _svars18862_ - _lvars18864_))))))) - (gx#core-list - 'let-values - (map (lambda (_lvar18884_ _tlvar18885_) - (cons (cons _tlvar18885_ '()) - (cons (gx#core-list - 'reverse - _lvar18884_) - '()))) - _lvars18864_ - _tlvars18866_) - (_k18775_ - (foldl2 (lambda (_svar18887_ - _tlvar18888_ - _r18889_) - (cons (cons _svar18887_ _tlvar18888_) - _r18889_)) - _vars18877_ - _svars18862_ - _tlvars18866_))))) - '())) - '()) + _identifier=?19216_ + __tmp20676 + _target19488_))) + (__tmp20674 (_k19490_ _vars19487_))) + (declare (not safe)) + (gx#core-list 'if __tmp20675 __tmp20674 _E19489_)))) + (declare (not safe)) + (gx#core-list 'if __tmp20677 __tmp20673 _E19489_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _$lp18854_ - (cons _$target18848_ - _linit18870_)))))) - (let ((_body18875_ - (gx#core-list - 'let-values - (cons (cons (cons _$target18848_ - (cons _$tl18852_ + (if (let () + (declare (not safe)) + (eq? 'var _$e19508_)) + (_k19490_ + (let ((__tmp20672 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _body19505_ _target19488_)))) + (declare (not safe)) + (cons __tmp20672 _vars19487_))) + (if (let () (declare (not safe)) (eq? 'cons _$e19508_)) + (let ((_$e19511_ + (let () (declare (not safe)) (gx#genident__1 'e))) + (_$hd19512_ + (let () (declare (not safe)) (gx#genident__1 'hd))) + (_$tl19513_ + (let () (declare (not safe)) (gx#genident__1 'tl)))) + (let ((__tmp20671 + (let () + (declare (not safe)) + (gx#core-list 'stx-pair? _target19488_))) + (__tmp20652 + (let ((__tmp20666 + (let ((__tmp20667 + (let ((__tmp20670 + (let () + (declare (not safe)) + (cons _$e19511_ '()))) + (__tmp20668 + (let ((__tmp20669 + (let () + (declare (not safe)) + (gx#core-list + _unwrap-e19217_ + _target19488_)))) + (declare (not safe)) + (cons __tmp20669 '())))) + (declare (not safe)) + (cons __tmp20670 __tmp20668)))) + (declare (not safe)) + (cons __tmp20667 '()))) + (__tmp20653 + (let ((__tmp20656 + (let ((__tmp20662 + (let ((__tmp20665 + (let () + (declare (not safe)) + (cons _$hd19512_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (gx#core-list - 'syntax-split-splice - _target18773_ - _rlen18846_) - '())) + '()))) + (__tmp20663 + (let ((__tmp20664 + (let () + (declare (not safe)) + (gx#core-list '##car _$e19511_)))) + (declare (not safe)) + (cons __tmp20664 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (_recur18680_ - _tl18843_ - _vars18772_ - _$tl18852_ - _E18774_ - _make-loop18873_)))) + (declare (not safe)) + (cons __tmp20665 + __tmp20663))) + (__tmp20657 + (let ((__tmp20658 + (let ((__tmp20661 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _$tl19513_ '()))) + (__tmp20659 + (let ((__tmp20660 + (let () + (declare (not safe)) + (gx#core-list '##cdr _$e19511_)))) + (declare (not safe)) + (cons __tmp20660 '())))) + (declare (not safe)) + (cons __tmp20661 __tmp20659)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp20658 '())))) + (declare (not safe)) + (cons __tmp20662 __tmp20657))) + (__tmp20654 + (let* ((_body1951419521_ + _body19505_) + (_E1951619525_ + (lambda () + (error '"No clause matching" + _body1951419521_))) + (_K1951719533_ + (lambda (_tl19528_ + _hd19529_) + (let ((__tmp20655 + (lambda (_vars19531_) + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (_recur19395_ + _tl19528_ + _vars19531_ + _$tl19513_ + _E19489_ + _k19490_))))) + (declare (not safe)) + (_recur19395_ + _hd19529_ + _vars19487_ + _$hd19512_ + _E19489_ + __tmp20655))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (##pair? _body1951419521_)) + (let ((_hd1951819536_ + (let () + (declare (not safe)) + (##car _body1951419521_))) + (_tl1951919538_ + (let () + (declare (not safe)) + (##cdr _body1951419521_)))) + (let* ((_hd19541_ + _hd1951819536_) + (_tl19543_ + _tl1951919538_)) + (declare (not safe)) + (_K1951719533_ + _tl19543_ + _hd19541_))) + (let () + (declare (not safe)) + (_E1951619525_)))))) + (declare (not safe)) + (gx#core-list + 'let-values + __tmp20656 + __tmp20654)))) + (declare (not safe)) + (gx#core-list + 'let-values + __tmp20666 + __tmp20653)))) + (declare (not safe)) + (gx#core-list 'if __tmp20671 __tmp20652 _E19489_))) + (if (let () (declare (not safe)) (eq? 'splice _$e19508_)) + (let* ((_body1954419551_ _body19505_) + (_E1954619555_ + (lambda () + (error '"No clause matching" + _body1954419551_))) + (_K1954719606_ + (lambda (_tl19558_ _hd19559_) + (let* ((_rlen19561_ + (let () + (declare (not safe)) + (_splice-rlen19396_ _tl19558_))) + (_$target19563_ + (let () + (declare (not safe)) + (gx#genident__1 'target))) + (_$hd19565_ + (let () + (declare (not safe)) + (gx#genident__1 'hd))) + (_$tl19567_ + (let () + (declare (not safe)) + (gx#genident__1 'tl))) + (_$lp19569_ + (let () + (declare (not safe)) + (gx#genident__1 'loop))) + (_$lp-e19571_ + (let () + (declare (not safe)) + (gx#genident__1 'e))) + (_$lp-hd19573_ + (let () + (declare (not safe)) + (gx#genident__1 'lp-hd))) + (_$lp-tl19575_ + (let () + (declare (not safe)) + (gx#genident__1 'lp-tl))) + (_svars19577_ + (let () + (declare (not safe)) + (_splice-vars19397_ _hd19559_))) + (_lvars19579_ + (let () + (declare (not safe)) + (gx#gentemps _svars19577_))) + (_tlvars19581_ + (let () + (declare (not safe)) + (gx#gentemps _svars19577_))) + (_linit19585_ + (let ((__tmp20598 + (lambda (_var19583_) + (let () + (declare (not safe)) + (gx#core-list + 'quote + '()))))) + (declare (not safe)) + (map __tmp20598 _lvars19579_)))) + (letrec ((_make-loop19588_ + (lambda (_vars19592_) + (let ((__tmp20601 + (let ((__tmp20602 + (let ((__tmp20640 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _$lp19569_ '()))) + (__tmp20603 + (let ((__tmp20604 + (let ((__tmp20639 + (let () + (declare (not safe)) + (cons _$hd19565_ _lvars19579_))) + (__tmp20605 + (let ((__tmp20638 + (let () + (declare (not safe)) + (gx#core-list + 'stx-pair? + _$hd19565_))) + (__tmp20615 + (let ((__tmp20633 + (let ((__tmp20634 + (let ((__tmp20637 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _$lp-e19571_ '()))) + (__tmp20635 + (let ((__tmp20636 + (let () + (declare (not safe)) (gx#core-list - 'if - (gx#core-list - 'stx-pair/null? - _target18773_) - (if (zero? _rlen18846_) - _body18875_ + _unwrap-e19217_ + _$hd19565_)))) + (declare (not safe)) + (cons __tmp20636 '())))) + (declare (not safe)) + (cons __tmp20637 __tmp20635)))) + (declare (not safe)) + (cons __tmp20634 '()))) + (__tmp20616 + (let ((__tmp20623 + (let ((__tmp20629 + (let ((__tmp20632 + (let () + (declare (not safe)) + (cons _$lp-hd19573_ '()))) + (__tmp20630 + (let ((__tmp20631 + (let () + (declare (not safe)) + (gx#core-list + '##car + _$lp-e19571_)))) + (declare (not safe)) + (cons __tmp20631 '())))) + (declare (not safe)) + (cons __tmp20632 __tmp20630))) + (__tmp20624 + (let ((__tmp20625 + (let ((__tmp20628 + (let () + (declare (not safe)) + (cons _$lp-tl19575_ '()))) + (__tmp20626 + (let ((__tmp20627 + (let () + (declare (not safe)) + (gx#core-list + '##cdr + _$lp-e19571_)))) + (declare (not safe)) + (cons __tmp20627 '())))) + (declare (not safe)) + (cons __tmp20628 __tmp20626)))) + (declare (not safe)) + (cons __tmp20625 '())))) + (declare (not safe)) + (cons __tmp20629 __tmp20624))) + (__tmp20617 + (let ((__tmp20618 + (lambda (_hdvars19594_) + (let ((__tmp20619 + (let ((__tmp20620 + (let ((__tmp20621 + (lambda (_svar19596_ + _lvar19597_) + (let ((__tmp20622 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (assgetq _svar19596_ _hdvars19594_ _BUG19394_)))) + (declare (not safe)) + (gx#core-list 'cons __tmp20622 _lvar19597_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (map __tmp20621 + _svars19577_ + _lvars19579_)))) + (declare (not safe)) + (cons _$lp-tl19575_ __tmp20620)))) + (declare (not safe)) + (cons _$lp19569_ __tmp20619))))) + (declare (not safe)) + (_recur19395_ + _hd19559_ + '() + _$lp-hd19573_ + _E19489_ + __tmp20618)))) + (declare (not safe)) + (gx#core-list 'let-values __tmp20623 __tmp20617)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gx#core-list + 'let-values + __tmp20633 + __tmp20616))) + (__tmp20606 + (let ((__tmp20610 + (let ((__tmp20611 + (lambda (_lvar19599_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _tlvar19600_) + (let ((__tmp20614 + (let () + (declare (not safe)) + (cons _tlvar19600_ '()))) + (__tmp20612 + (let ((__tmp20613 + (let () + (declare (not safe)) + (gx#core-list + 'reverse + _lvar19599_)))) + (declare (not safe)) + (cons __tmp20613 '())))) + (declare (not safe)) + (cons __tmp20614 __tmp20612))))) + (declare (not safe)) + (map __tmp20611 _lvars19579_ _tlvars19581_))) + (__tmp20607 + (_k19490_ + (let ((__tmp20608 + (lambda (_svar19602_ _tlvar19603_ _r19604_) + (let ((__tmp20609 + (let () + (declare (not safe)) + (cons _svar19602_ _tlvar19603_)))) + (declare (not safe)) + (cons __tmp20609 _r19604_))))) + (declare (not safe)) + (foldl2 __tmp20608 + _vars19592_ + _svars19577_ + _tlvars19581_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gx#core-list + 'let-values + __tmp20610 + __tmp20607)))) + (declare (not safe)) (gx#core-list 'if - (gx#core-list - 'fx>= + __tmp20638 + __tmp20615 + __tmp20606)))) + (declare (not safe)) + (gx#core-list + 'lambda% + __tmp20639 + __tmp20605)))) + (declare (not safe)) + (cons __tmp20604 '())))) + (declare (not safe)) + (cons __tmp20640 __tmp20603)))) + (declare (not safe)) + (cons __tmp20602 '()))) + (__tmp20599 + (let ((__tmp20600 + (let () + (declare (not safe)) + (cons _$target19563_ _linit19585_)))) + (declare (not safe)) + (cons _$lp19569_ __tmp20600)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gx#core-list + 'letrec-values + __tmp20601 + __tmp20599))))) + (let ((_body19590_ + (let ((__tmp20642 + (let ((__tmp20643 + (let ((__tmp20646 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp20647 + (let () + (declare (not safe)) + (cons _$tl19567_ '())))) + (declare (not safe)) + (cons _$target19563_ __tmp20647))) + (__tmp20644 + (let ((__tmp20645 + (let () + (declare (not safe)) + (gx#core-list + 'syntax-split-splice + _target19488_ + _rlen19561_)))) + (declare (not safe)) + (cons __tmp20645 '())))) + (declare (not safe)) + (cons __tmp20646 __tmp20644)))) + (declare (not safe)) + (cons __tmp20643 '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp20641 + (let () + (declare (not safe)) + (_recur19395_ + _tl19558_ + _vars19487_ + _$tl19567_ + _E19489_ + _make-loop19588_)))) + (declare (not safe)) (gx#core-list - 'stx-length - _target18773_) - _rlen18846_) - _body18875_ - _E18774_)) - _E18774_))))))) + 'let-values + __tmp20642 + __tmp20641)))) + (let ((__tmp20651 + (let () + (declare (not safe)) + (gx#core-list + 'stx-pair/null? + _target19488_))) + (__tmp20648 + (if (let () + (declare (not safe)) + (zero? _rlen19561_)) + _body19590_ + (let ((__tmp20649 + (let ((__tmp20650 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#core-list 'stx-length _target19488_)))) + (declare (not safe)) + (gx#core-list 'fx>= __tmp20650 _rlen19561_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gx#core-list + 'if + __tmp20649 + _body19590_ + _E19489_))))) + (declare (not safe)) + (gx#core-list + 'if + __tmp20651 + __tmp20648 + _E19489_)))))))) (if (let () (declare (not safe)) - (##pair? _body1882918836_)) - (let ((_hd1883318894_ + (##pair? _body1954419551_)) + (let ((_hd1954819609_ (let () (declare (not safe)) - (##car _body1882918836_))) - (_tl1883418896_ + (##car _body1954419551_))) + (_tl1954919611_ (let () (declare (not safe)) - (##cdr _body1882918836_)))) - (let* ((_hd18899_ _hd1883318894_) - (_tl18901_ _tl1883418896_)) - (_K1883218891_ _tl18901_ _hd18899_))) - (_E1883118840_))) - (if (eq? 'null _$e18793_) - (gx#core-list - 'if - (gx#core-list 'stx-null? _target18773_) - (_k18775_ _vars18772_) - _E18774_) - (if (eq? 'vector _$e18793_) - (let ((_$e18903_ (gx#genident__1 'e))) - (gx#core-list - 'if - (gx#core-list 'stx-vector? _target18773_) - (gx#core-list - 'let-values - (cons (cons (cons _$e18903_ '()) - (cons (gx#core-list - 'vector->list - (gx#core-list - _unwrap-e18502_ - _target18773_)) - '())) - '()) - (_recur18680_ - _body18790_ - _vars18772_ - _$e18903_ - _E18774_ - _k18775_)) - _E18774_)) - (if (eq? 'box _$e18793_) - (let ((_$e18905_ (gx#genident__1 'e))) - (gx#core-list - 'if - (gx#core-list 'stx-box? _target18773_) - (gx#core-list - 'let-values - (cons (cons (cons _$e18905_ '()) - (cons (gx#core-list - 'unbox - (gx#core-list - _unwrap-e18502_ - _target18773_)) - '())) - '()) - (_recur18680_ - _body18790_ - _vars18772_ - _$e18905_ - _E18774_ - _k18775_)) - _E18774_)) - (if (eq? 'datum _$e18793_) - (let ((_$e18907_ (gx#genident__1 'e))) - (gx#core-list - 'if + (##cdr _body1954419551_)))) + (let* ((_hd19614_ _hd1954819609_) + (_tl19616_ _tl1954919611_)) + (declare (not safe)) + (_K1954719606_ _tl19616_ _hd19614_))) + (let () (declare (not safe)) (_E1954619555_)))) + (if (let () (declare (not safe)) (eq? 'null _$e19508_)) + (let ((__tmp20597 + (let () + (declare (not safe)) + (gx#core-list 'stx-null? _target19488_))) + (__tmp20596 (_k19490_ _vars19487_))) + (declare (not safe)) + (gx#core-list + 'if + __tmp20597 + __tmp20596 + _E19489_)) + (if (let () + (declare (not safe)) + (eq? 'vector _$e19508_)) + (let ((_$e19618_ + (let () + (declare (not safe)) + (gx#genident__1 'e)))) + (let ((__tmp20595 + (let () + (declare (not safe)) (gx#core-list - 'stx-datum? - _target18773_) + 'stx-vector? + _target19488_))) + (__tmp20587 + (let ((__tmp20589 + (let ((__tmp20590 + (let ((__tmp20594 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _$e19618_ '()))) + (__tmp20591 + (let ((__tmp20592 + (let ((__tmp20593 + (let () + (declare (not safe)) + (gx#core-list + _unwrap-e19217_ + _target19488_)))) + (declare (not safe)) + (gx#core-list 'vector->list __tmp20593)))) + (declare (not safe)) + (cons __tmp20592 '())))) + (declare (not safe)) + (cons __tmp20594 __tmp20591)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp20590 '()))) + (__tmp20588 + (let () + (declare (not safe)) + (_recur19395_ + _body19505_ + _vars19487_ + _$e19618_ + _E19489_ + _k19490_)))) + (declare (not safe)) (gx#core-list 'let-values - (cons (cons (cons _$e18907_ '()) - (cons (gx#core-list - 'stx-e - _target18773_) - '())) - '()) + __tmp20589 + __tmp20588)))) + (declare (not safe)) + (gx#core-list + 'if + __tmp20595 + __tmp20587 + _E19489_))) + (if (let () + (declare (not safe)) + (eq? 'box _$e19508_)) + (let ((_$e19620_ + (let () + (declare (not safe)) + (gx#genident__1 'e)))) + (let ((__tmp20586 + (let () + (declare (not safe)) + (gx#core-list + 'stx-box? + _target19488_))) + (__tmp20578 + (let ((__tmp20580 + (let ((__tmp20581 + (let ((__tmp20585 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _$e19620_ '()))) + (__tmp20582 + (let ((__tmp20583 + (let ((__tmp20584 + (let () + (declare (not safe)) + (gx#core-list + _unwrap-e19217_ + _target19488_)))) + (declare (not safe)) + (gx#core-list 'unbox __tmp20584)))) + (declare (not safe)) + (cons __tmp20583 '())))) + (declare (not safe)) + (cons __tmp20585 __tmp20582)))) + (declare (not safe)) + (cons __tmp20581 '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp20579 + (let () + (declare (not safe)) + (_recur19395_ + _body19505_ + _vars19487_ + _$e19620_ + _E19489_ + _k19490_)))) + (declare (not safe)) + (gx#core-list + 'let-values + __tmp20580 + __tmp20579)))) + (declare (not safe)) + (gx#core-list + 'if + __tmp20586 + __tmp20578 + _E19489_))) + (if (let () + (declare (not safe)) + (eq? 'datum _$e19508_)) + (let ((_$e19622_ + (let () + (declare (not safe)) + (gx#genident__1 'e)))) + (let ((__tmp20577 + (let () + (declare (not safe)) + (gx#core-list + 'stx-datum? + _target19488_))) + (__tmp20568 + (let ((__tmp20572 + (let ((__tmp20573 + (let ((__tmp20576 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _$e19622_ '()))) + (__tmp20574 + (let ((__tmp20575 + (let () + (declare (not safe)) + (gx#core-list 'stx-e _target19488_)))) + (declare (not safe)) + (cons __tmp20575 '())))) + (declare (not safe)) + (cons __tmp20576 __tmp20574)))) + (declare (not safe)) + (cons __tmp20573 '()))) + (__tmp20569 + (let ((__tmp20571 + (let () + (declare (not safe)) + (gx#core-list 'equal? _$e19622_ _body19505_))) + (__tmp20570 (_k19490_ _vars19487_))) + (declare (not safe)) + (gx#core-list 'if __tmp20571 __tmp20570 _E19489_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gx#core-list + 'let-values + __tmp20572 + __tmp20569)))) + (declare (not safe)) (gx#core-list 'if - (gx#core-list - 'equal? - _$e18907_ - _body18790_) - (_k18775_ _vars18772_) - _E18774_)) - _E18774_)) - (_BUG18679_ _e18771_)))))))))))))) + __tmp20577 + __tmp20568 + _E19489_))) + (let () + (declare (not safe)) + (_BUG19394_ _e19486_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e1877618783_)) - (let ((_hd1878018912_ + (##pair? _e1949119498_)) + (let ((_hd1949519627_ (let () (declare (not safe)) - (##car _e1877618783_))) - (_tl1878118914_ + (##car _e1949119498_))) + (_tl1949619629_ (let () (declare (not safe)) - (##cdr _e1877618783_)))) - (let* ((_tag18917_ _hd1878018912_) - (_body18919_ _tl1878118914_)) - (_K1877918909_ - _body18919_ - _tag18917_))) - (_E1877818787_))))) - (_splice-rlen18681_ - (lambda (_e18733_) - (let _lp18735_ ((_e18737_ _e18733_) - (_n18738_ '0)) - (let* ((_e1873918746_ _e18737_) - (_E1874118750_ + (##cdr _e1949119498_)))) + (let* ((_tag19632_ _hd1949519627_) + (_body19634_ _tl1949619629_)) + (declare (not safe)) + (_K1949419624_ + _body19634_ + _tag19632_))) + (let () + (declare (not safe)) + (_E1949319502_)))))) + (_splice-rlen19396_ + (lambda (_e19448_) + (let _lp19450_ ((_e19452_ _e19448_) + (_n19453_ '0)) + (let* ((_e1945419461_ _e19452_) + (_E1945619465_ (lambda () (error '"No clause matching" - _e1873918746_))) - (_K1874218759_ - (lambda (_body18753_ _tag18754_) - (let ((_$e18756_ _tag18754_)) - (if (eq? 'splice _$e18756_) - (gx#raise-syntax-error - '#f - '"Ambiguous pattern" - _stx18500_ - _where18672_) - (if (eq? 'cons _$e18756_) - (_lp18735_ - (cdr _body18753_) - (fx+ _n18738_ '1)) - _n18738_)))))) + _e1945419461_))) + (_K1945719474_ + (lambda (_body19468_ _tag19469_) + (let ((_$e19471_ _tag19469_)) + (if (let () + (declare (not safe)) + (eq? 'splice _$e19471_)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Ambiguous pattern" + _stx19215_ + _where19387_)) + (if (let () + (declare (not safe)) + (eq? 'cons _$e19471_)) + (let ((__tmp20679 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cdr _body19468_))) + (__tmp20678 + (let () (declare (not safe)) (fx+ _n19453_ '1)))) + (declare (not safe)) + (_lp19450_ __tmp20679 __tmp20678)) + _n19453_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e1873918746_)) - (let ((_hd1874318762_ + (##pair? _e1945419461_)) + (let ((_hd1945819477_ (let () (declare (not safe)) - (##car _e1873918746_))) - (_tl1874418764_ + (##car _e1945419461_))) + (_tl1945919479_ (let () (declare (not safe)) - (##cdr _e1873918746_)))) - (let* ((_tag18767_ _hd1874318762_) - (_body18769_ _tl1874418764_)) - (_K1874218759_ - _body18769_ - _tag18767_))) - (_E1874118750_)))))) - (_splice-vars18682_ - (lambda (_e18689_) - (let _recur18691_ ((_e18693_ _e18689_) - (_vars18694_ '())) - (let* ((_e1869518702_ _e18693_) - (_E1869718706_ + (##cdr _e1945419461_)))) + (let* ((_tag19482_ _hd1945819477_) + (_body19484_ _tl1945919479_)) + (declare (not safe)) + (_K1945719474_ + _body19484_ + _tag19482_))) + (let () + (declare (not safe)) + (_E1945619465_))))))) + (_splice-vars19397_ + (lambda (_e19404_) + (let _recur19406_ ((_e19408_ _e19404_) + (_vars19409_ '())) + (let* ((_e1941019417_ _e19408_) + (_E1941219421_ (lambda () (error '"No clause matching" - _e1869518702_))) - (_K1869818721_ - (lambda (_body18709_ _tag18710_) - (let ((_$e18712_ _tag18710_)) - (if (eq? 'var _$e18712_) - (cons _body18709_ - _vars18694_) - (if (or (eq? 'cons _$e18712_) - (eq? 'splice - _$e18712_)) - (_recur18691_ - (cdr _body18709_) - (_recur18691_ - (car _body18709_) - _vars18694_)) - (if (or (eq? 'vector + _e1941019417_))) + (_K1941319436_ + (lambda (_body19424_ _tag19425_) + (let ((_$e19427_ _tag19425_)) + (if (let () + (declare (not safe)) + (eq? 'var _$e19427_)) + (let () + (declare (not safe)) + (cons _body19424_ + _vars19409_)) + (if (or (let () + (declare + (not safe)) + (eq? 'cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e18712_) - (eq? 'box _$e18712_)) - (_recur18691_ _body18709_ _vars18694_) - _vars18694_))))))) + _$e19427_)) + (let () (declare (not safe)) (eq? 'splice _$e19427_))) + (let ((__tmp20682 + (let () (declare (not safe)) (cdr _body19424_))) + (__tmp20680 + (let ((__tmp20681 + (let () (declare (not safe)) (car _body19424_)))) + (declare (not safe)) + (_recur19406_ __tmp20681 _vars19409_)))) + (declare (not safe)) + (_recur19406_ __tmp20682 __tmp20680)) + (if (or (let () (declare (not safe)) (eq? 'vector _$e19427_)) + (let () (declare (not safe)) (eq? 'box _$e19427_))) + (let () + (declare (not safe)) + (_recur19406_ _body19424_ _vars19409_)) + _vars19409_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e1869518702_)) - (let ((_hd1869918724_ + (##pair? _e1941019417_)) + (let ((_hd1941419439_ (let () (declare (not safe)) - (##car _e1869518702_))) - (_tl1870018726_ + (##car _e1941019417_))) + (_tl1941519441_ (let () (declare (not safe)) - (##cdr _e1869518702_)))) - (let* ((_tag18729_ _hd1869918724_) - (_body18731_ _tl1870018726_)) - (_K1869818721_ - _body18731_ - _tag18729_))) - (_E1869718706_)))))) - (_make-body18683_ - (lambda (_vars18685_) - (cons _K18676_ - (map (lambda (_mvar18687_) - (assgetq (car _mvar18687_) - _vars18685_ - _BUG18679_)) - _mvars18675_))))) - (_recur18680_ - _hd18674_ - '() - _target18673_ - _E18677_ - _make-body18683_)))) - (_parse-clause18509_ - (lambda (_hd18578_ _ids18579_) - (let _recur18581_ ((_e18583_ _hd18578_) - (_vars18584_ '()) - (_depth18585_ '0)) - (if (gx#identifier? _e18583_) - (if (gx#underscore? _e18583_) - (values '(any) _vars18584_) - (if (gx#ellipsis? _e18583_) - (gx#raise-syntax-error - '#f - '"Misplaced ellipsis" - _stx18500_ - _hd18578_) - (if (find (lambda (_id18587_) - (gx#bound-identifier=? - _e18583_ - _id18587_)) - _ids18579_) - (values (cons 'id _e18583_) _vars18584_) - (if (find (lambda (_var18589_) - (gx#bound-identifier=? - _e18583_ - (car _var18589_))) - _vars18584_) + (##cdr _e1941019417_)))) + (let* ((_tag19444_ _hd1941419439_) + (_body19446_ _tl1941519441_)) + (declare (not safe)) + (_K1941319436_ + _body19446_ + _tag19444_))) + (let () + (declare (not safe)) + (_E1941219421_))))))) + (_make-body19398_ + (lambda (_vars19400_) + (let ((__tmp20683 + (let ((__tmp20684 + (lambda (_mvar19402_) + (let ((__tmp20685 + (let () + (declare (not safe)) + (car _mvar19402_)))) + (declare (not safe)) + (assgetq __tmp20685 + _vars19400_ + _BUG19394_))))) + (declare (not safe)) + (map __tmp20684 _mvars19390_)))) + (declare (not safe)) + (cons _K19391_ __tmp20683))))) + (let () + (declare (not safe)) + (_recur19395_ + _hd19389_ + '() + _target19388_ + _E19392_ + _make-body19398_))))) + (_parse-clause19224_ + (lambda (_hd19293_ _ids19294_) + (let _recur19296_ ((_e19298_ _hd19293_) + (_vars19299_ '()) + (_depth19300_ '0)) + (if (let () + (declare (not safe)) + (gx#identifier? _e19298_)) + (if (let () + (declare (not safe)) + (gx#underscore? _e19298_)) + (values '(any) _vars19299_) + (if (let () + (declare (not safe)) + (gx#ellipsis? _e19298_)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Misplaced ellipsis" + _stx19215_ + _hd19293_)) + (if (let ((__tmp20703 + (lambda (_id19302_) + (let () + (declare (not safe)) + (gx#bound-identifier=? + _e19298_ + _id19302_))))) + (declare (not safe)) + (find __tmp20703 _ids19294_)) + (values (let () + (declare (not safe)) + (cons 'id _e19298_)) + _vars19299_) + (if (let ((__tmp20701 + (lambda (_var19304_) + (let ((__tmp20702 + (let () + (declare + (not safe)) + (car _var19304_)))) + (declare (not safe)) + (gx#bound-identifier=? + _e19298_ + __tmp20702))))) + (declare (not safe)) + (find __tmp20701 _vars19299_)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Duplicate pattern variable" + _stx19215_ + _e19298_)) + (values (let () + (declare (not safe)) + (cons 'var _e19298_)) + (let ((__tmp20700 + (let () + (declare (not safe)) + (cons _e19298_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _depth19300_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp20700 + _vars19299_))))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _e19298_)) + (let* ((_e1930519312_ _e19298_) + (_E1930719316_ + (lambda () + (let () + (declare (not safe)) (gx#raise-syntax-error '#f - '"Duplicate pattern variable" - _stx18500_ - _e18583_) - (values (cons 'var _e18583_) - (cons (cons _e18583_ - _depth18585_) - _vars18584_)))))) - (if (gx#stx-pair? _e18583_) - (let* ((_e1859018597_ _e18583_) - (_E1859218601_ + '"Bad syntax" + _e1930519312_)))) + (_E1930619377_ (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax" - _e1859018597_))) - (_E1859118662_ - (lambda () - (if (gx#stx-pair? _e1859018597_) - (let ((_e1859318605_ - (gx#syntax-e - _e1859018597_))) - (let ((_hd1859418608_ + (if (let () + (declare (not safe)) + (gx#stx-pair? _e1930519312_)) + (let ((_e1930819320_ + (let () + (declare (not safe)) + (gx#syntax-e + _e1930519312_)))) + (let ((_hd1930919323_ (let () (declare (not safe)) - (##car _e1859318605_))) - (_tl1859518610_ + (##car _e1930819320_))) + (_tl1931019325_ (let () (declare (not safe)) - (##cdr _e1859318605_)))) - (let* ((_hd18613_ - _hd1859418608_) - (_rest18615_ - _tl1859518610_)) + (##cdr _e1930819320_)))) + (let* ((_hd19328_ + _hd1930919323_) + (_rest19330_ + _tl1931019325_)) (if '#t - (let* ((_make-pair18630_ - (lambda (_tag18617_ + (let* ((_make-pair19345_ + (lambda (_tag19332_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd18618_ - _tl18619_) - (let* ((_hd-depth18621_ - (if (eq? _tag18617_ 'splice) - (fx+ _depth18585_ '1) - _depth18585_)) - (_g19775_ - (_recur18581_ - _hd18618_ - _vars18584_ - _hd-depth18621_))) + _hd19333_ + _tl19334_) + (let* ((_hd-depth19336_ + (if (let () + (declare (not safe)) + (eq? _tag19332_ 'splice)) + (let () + (declare (not safe)) + (fx+ _depth19300_ '1)) + _depth19300_)) + (_g20695_ + (let () + (declare (not safe)) + (_recur19296_ + _hd19333_ + _vars19299_ + _hd-depth19336_)))) (begin - (let ((_g19776_ + (let ((_g20696_ (let () (declare (not safe)) - (if (##values? _g19775_) - (##vector-length _g19775_) + (if (##values? _g20695_) + (##vector-length _g20695_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g19776_ 2))) - (error "Context expects 2 values" _g19776_))) - (let ((_hd18623_ + (##fx= _g20696_ 2))) + (error "Context expects 2 values" _g20696_))) + (let ((_hd19338_ (let () (declare (not safe)) - (##vector-ref _g19775_ 0))) - (_vars18624_ + (##vector-ref _g20695_ 0))) + (_vars19339_ (let () (declare (not safe)) - (##vector-ref _g19775_ 1)))) - (let ((_g19777_ - (_recur18581_ - _tl18619_ - _vars18624_ - _depth18585_))) + (##vector-ref _g20695_ 1)))) + (let ((_g20697_ + (let () + (declare (not safe)) + (_recur19296_ + _tl19334_ + _vars19339_ + _depth19300_)))) (begin - (let ((_g19778_ + (let ((_g20698_ (let () (declare (not safe)) - (if (##values? _g19777_) - (##vector-length _g19777_) + (if (##values? _g20697_) + (##vector-length _g20697_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g19778_ 2))) + (##fx= _g20698_ 2))) (error "Context expects 2 values" - _g19778_))) - (let ((_tl18626_ + _g20698_))) + (let ((_tl19341_ (let () (declare (not safe)) - (##vector-ref _g19777_ 0))) - (_vars18627_ + (##vector-ref _g20697_ 0))) + (_vars19342_ (let () (declare (not safe)) - (##vector-ref _g19777_ 1)))) + (##vector-ref _g20697_ 1)))) (let () - (values (cons _tag18617_ - (cons _hd18623_ _tl18626_)) - _vars18627_)))))))))) - (_e1863118638_ _rest18615_) - (_E1863318642_ + (values (let ((__tmp20699 + (let () + (declare (not safe)) + (cons _hd19338_ + _tl19341_)))) + (declare (not safe)) + (cons _tag19332_ __tmp20699)) + _vars19342_)))))))))) + (_e1934619353_ _rest19330_) + (_E1934819357_ (lambda () - (_make-pair18630_ 'cons _hd18613_ _rest18615_))) - (_E1863218658_ + (let () + (declare (not safe)) + (_make-pair19345_ 'cons _hd19328_ _rest19330_)))) + (_E1934719373_ (lambda () - (if (gx#stx-pair? _e1863118638_) - (let ((_e1863418646_ (gx#syntax-e _e1863118638_))) - (let ((_hd1863518649_ + (if (let () + (declare (not safe)) + (gx#stx-pair? _e1934619353_)) + (let ((_e1934919361_ + (let () + (declare (not safe)) + (gx#syntax-e _e1934619353_)))) + (let ((_hd1935019364_ (let () (declare (not safe)) - (##car _e1863418646_))) - (_tl1863618651_ + (##car _e1934919361_))) + (_tl1935119366_ (let () (declare (not safe)) - (##cdr _e1863418646_)))) - (let* ((_rest-hd18654_ _hd1863518649_) - (_rest-tl18656_ _tl1863618651_)) + (##cdr _e1934919361_)))) + (let* ((_rest-hd19369_ _hd1935019364_) + (_rest-tl19371_ _tl1935119366_)) (if '#t - (if (gx#ellipsis? _rest-hd18654_) - (_make-pair18630_ - 'splice - _hd18613_ - _rest-tl18656_) - (_make-pair18630_ - 'cons - _hd18613_ - _rest18615_)) - (_E1863318642_))))) - (_E1863318642_))))) - (_E1863218658_)) - (_E1859218601_))))) + (if (let () + (declare (not safe)) + (gx#ellipsis? _rest-hd19369_)) + (let () + (declare (not safe)) + (_make-pair19345_ + 'splice + _hd19328_ + _rest-tl19371_)) + (let () + (declare (not safe)) + (_make-pair19345_ + 'cons + _hd19328_ + _rest19330_))) + (let () + (declare (not safe)) + (_E1934819357_)))))) + (let () (declare (not safe)) (_E1934819357_)))))) + (let () (declare (not safe)) (_E1934719373_))) + (let () (declare (not safe)) (_E1930719316_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1859218601_))))) - (_E1859118662_)) - (if (gx#stx-null? _e18583_) - (values '(null) _vars18584_) - (if (gx#stx-vector? _e18583_) - (let ((_g19779_ - (_recur18581_ - (vector->list - (gx#syntax-e _e18583_)) - _vars18584_ - _depth18585_))) + (let () + (declare (not safe)) + (_E1930719316_)))))) + (let () (declare (not safe)) (_E1930619377_))) + (if (let () + (declare (not safe)) + (gx#stx-null? _e19298_)) + (values '(null) _vars19299_) + (if (let () + (declare (not safe)) + (gx#stx-vector? _e19298_)) + (let ((_g20691_ + (let ((__tmp20693 + (let ((__tmp20694 + (let () + (declare + (not safe)) + (gx#syntax-e + _e19298_)))) + (declare (not safe)) + (vector->list + __tmp20694)))) + (declare (not safe)) + (_recur19296_ + __tmp20693 + _vars19299_ + _depth19300_)))) (begin - (let ((_g19780_ + (let ((_g20692_ (let () (declare (not safe)) - (if (##values? _g19779_) + (if (##values? _g20691_) (##vector-length - _g19779_) + _g20691_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g19780_ 2))) + (##fx= _g20692_ 2))) (error "Context expects 2 values" - _g19780_))) - (let ((_e18666_ + _g20692_))) + (let ((_e19381_ (let () (declare (not safe)) - (##vector-ref _g19779_ 0))) - (_vars18667_ + (##vector-ref _g20691_ 0))) + (_vars19382_ (let () (declare (not safe)) - (##vector-ref _g19779_ 1)))) - (values (cons 'vector _e18666_) - _vars18667_)))) - (if (gx#stx-box? _e18583_) - (let ((_g19781_ - (_recur18581_ - (unbox (gx#syntax-e - _e18583_)) - _vars18584_ - _depth18585_))) + (##vector-ref _g20691_ 1)))) + (values (let () + (declare (not safe)) + (cons 'vector _e19381_)) + _vars19382_)))) + (if (let () + (declare (not safe)) + (gx#stx-box? _e19298_)) + (let ((_g20687_ + (let ((__tmp20689 + (let ((__tmp20690 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#syntax-e _e19298_)))) + (declare (not safe)) + (unbox __tmp20690)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_recur19296_ + __tmp20689 + _vars19299_ + _depth19300_)))) (begin - (let ((_g19782_ + (let ((_g20688_ (let () (declare (not safe)) - (if (##values? _g19781_) + (if (##values? _g20687_) (##vector-length - _g19781_) + _g20687_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g19782_ 2))) + (##fx= _g20688_ 2))) (error "Context expects 2 values" - _g19782_))) - (let ((_e18669_ + _g20688_))) + (let ((_e19384_ (let () (declare (not safe)) (##vector-ref - _g19781_ + _g20687_ 0))) - (_vars18670_ + (_vars19385_ (let () (declare (not safe)) (##vector-ref - _g19781_ + _g20687_ 1)))) - (values (cons 'box _e18669_) - _vars18670_)))) - (if (gx#stx-datum? _e18583_) - (values (cons 'datum - (gx#stx-e - _e18583_)) - _vars18584_) - (gx#raise-syntax-error - '#f - '"Bad pattern" - _stx18500_ - _e18583_))))))))))) - (let* ((_e1851018523_ _stx18500_) - (_E1851218527_ + (values (let () + (declare (not safe)) + (cons 'box _e19384_)) + _vars19385_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _e19298_)) + (values (let ((__tmp20686 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _e19298_)))) + (declare (not safe)) + (cons 'datum __tmp20686)) + _vars19299_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad pattern" + _stx19215_ + _e19298_)))))))))))) + (let* ((_e1922519238_ _stx19215_) + (_E1922719242_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1851018523_))) - (_E1851118574_ + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax" + _e1922519238_)))) + (_E1922619289_ (lambda () - (if (gx#stx-pair? _e1851018523_) - (let ((_e1851318531_ (gx#syntax-e _e1851018523_))) - (let ((_hd1851418534_ + (if (let () + (declare (not safe)) + (gx#stx-pair? _e1922519238_)) + (let ((_e1922819246_ + (let () + (declare (not safe)) + (gx#syntax-e _e1922519238_)))) + (let ((_hd1922919249_ (let () (declare (not safe)) - (##car _e1851318531_))) - (_tl1851518536_ + (##car _e1922819246_))) + (_tl1923019251_ (let () (declare (not safe)) - (##cdr _e1851318531_)))) - (if (gx#stx-pair? _tl1851518536_) - (let ((_e1851618539_ - (gx#syntax-e _tl1851518536_))) - (let ((_hd1851718542_ + (##cdr _e1922819246_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1923019251_)) + (let ((_e1923119254_ + (let () + (declare (not safe)) + (gx#syntax-e _tl1923019251_)))) + (let ((_hd1923219257_ (let () (declare (not safe)) - (##car _e1851618539_))) - (_tl1851818544_ + (##car _e1923119254_))) + (_tl1923319259_ (let () (declare (not safe)) - (##cdr _e1851618539_)))) - (let ((_expr18547_ _hd1851718542_)) - (if (gx#stx-pair? _tl1851818544_) - (let ((_e1851918549_ - (gx#syntax-e _tl1851818544_))) - (let ((_hd1852018552_ + (##cdr _e1923119254_)))) + (let ((_expr19262_ _hd1923219257_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl1923319259_)) + (let ((_e1923419264_ + (let () + (declare (not safe)) + (gx#syntax-e + _tl1923319259_)))) + (let ((_hd1923519267_ (let () (declare (not safe)) - (##car _e1851918549_))) - (_tl1852118554_ + (##car _e1923419264_))) + (_tl1923619269_ (let () (declare (not safe)) - (##cdr _e1851918549_)))) - (let* ((_ids18557_ - _hd1852018552_) - (_clauses18559_ - _tl1852118554_)) + (##cdr _e1923419264_)))) + (let* ((_ids19272_ + _hd1923519267_) + (_clauses19274_ + _tl1923619269_)) (if '#t - (if (not (gx#identifier-list? - _ids18557_)) - (gx#raise-syntax-error - '#f - '"Bad template identifier list" - _stx18500_ - _ids18557_) - (if (not (gx#stx-list? + (if (let ((__tmp20721 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#identifier-list? _ids19272_)))) + (declare (not safe)) + (not __tmp20721)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad template identifier list" + _stx19215_ + _ids19272_)) + (if (let ((__tmp20720 + (let () + (declare (not safe)) + (gx#stx-list? _clauses19274_)))) + (declare (not safe)) + (not __tmp20720)) + (let () + (declare (not safe)) + (gx#raise-syntax-error '#f '"Bad syntax" _stx19215_)) + (let* ((_ids19276_ + (let () + (declare (not safe)) + (gx#syntax->list _ids19272_))) + (_clauses19278_ + (let () + (declare (not safe)) + (gx#syntax->list _clauses19274_))) + (_clause-ids19280_ + (let () + (declare (not safe)) + (gx#gentemps _clauses19278_))) + (_E19282_ + (let () (declare (not safe)) (gx#genident__0))) + (_target19284_ + (let () (declare (not safe)) (gx#genident__0))) + (_first19286_ + (if (let () + (declare (not safe)) + (null? _clauses19278_)) + _E19282_ + (let () + (declare (not safe)) + (car _clause-ids19280_))))) + (let ((__tmp20705 + (let ((__tmp20706 + (let ((__tmp20708 + (let ((__tmp20713 + (let ((__tmp20714 + (let ((__tmp20719 + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clauses18559_)) - (gx#raise-syntax-error '#f '"Bad syntax" _stx18500_) - (let* ((_ids18561_ (gx#syntax->list _ids18557_)) - (_clauses18563_ (gx#syntax->list _clauses18559_)) - (_clause-ids18565_ (gx#gentemps _clauses18563_)) - (_E18567_ (gx#genident__0)) - (_target18569_ (gx#genident__0)) - (_first18571_ - (if (null? _clauses18563_) - _E18567_ - (car _clause-ids18565_)))) - (gx#stx-wrap-source - (gx#core-list - 'begin-annotation - '@syntax-case - (gx#stx-wrap-source - (gx#core-list - 'let-values - (cons (cons (cons _E18567_ '()) - (cons (gx#core-list - 'lambda% - (cons _target18569_ '()) + (declare (not safe)) + (cons _E19282_ '()))) + (__tmp20715 + (let ((__tmp20716 + (let ((__tmp20718 + (let () + (declare (not safe)) + (cons _target19284_ '()))) + (__tmp20717 + (let () + (declare (not safe)) + (gx#core-list + 'raise-syntax-error + '#f + '"Bad syntax" + _target19284_)))) + (declare (not safe)) + (gx#core-list + 'lambda% + __tmp20718 + __tmp20717)))) + (declare (not safe)) + (cons __tmp20716 '())))) + (declare (not safe)) + (cons __tmp20719 __tmp20715)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp20714 '()))) + (__tmp20709 + (let ((__tmp20712 + (let () + (declare (not safe)) + (_generate-bindings19220_ + _target19284_ + _ids19276_ + _clauses19278_ + _clause-ids19280_ + _E19282_))) + (__tmp20710 + (let ((__tmp20711 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _expr19262_ '())))) + (declare (not safe)) + (cons _first19286_ __tmp20711)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_generate-body19221_ + __tmp20712 + __tmp20710)))) + (declare (not safe)) (gx#core-list - 'raise-syntax-error - '#f - '"Bad syntax" - _target18569_)) - '())) - '()) - (_generate-body18506_ - (_generate-bindings18505_ - _target18569_ - _ids18561_ - _clauses18563_ - _clause-ids18565_ - _E18567_) - (cons _first18571_ (cons _expr18547_ '())))) - (gx#stx-source _stx18500_))) - (gx#stx-source _stx18500_))))) + 'let-values + __tmp20713 + __tmp20709))) + (__tmp20707 + (let () + (declare (not safe)) + (gx#stx-source _stx19215_)))) + (declare (not safe)) + (gx#stx-wrap-source + __tmp20708 + __tmp20707)))) + (declare (not safe)) + (gx#core-list + 'begin-annotation + '@syntax-case + __tmp20706))) + (__tmp20704 + (let () + (declare (not safe)) + (gx#stx-source _stx19215_)))) + (declare (not safe)) + (gx#stx-wrap-source __tmp20705 __tmp20704))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1851218527_))))) - (_E1851218527_))))) - (_E1851218527_)))) - (_E1851218527_))))) - (_E1851118574_))))) + (let () + (declare (not safe)) + (_E1922719242_)))))) + (let () + (declare (not safe)) + (_E1922719242_)))))) + (let () + (declare (not safe)) + (_E1922719242_))))) + (let () (declare (not safe)) (_E1922719242_)))))) + (let () (declare (not safe)) (_E1922619289_)))))) (define gx#macro-expand-syntax-case__0 - (lambda (_stx19210_) - (let* ((_identifier=?19212_ 'free-identifier=?) - (_unwrap-e19214_ 'syntax-e) - (_wrap-e19216_ 'quote-syntax)) + (lambda (_stx19925_) + (let* ((_identifier=?19927_ 'free-identifier=?) + (_unwrap-e19929_ 'syntax-e) + (_wrap-e19931_ 'quote-syntax)) + (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx19210_ - _identifier=?19212_ - _unwrap-e19214_ - _wrap-e19216_)))) + _stx19925_ + _identifier=?19927_ + _unwrap-e19929_ + _wrap-e19931_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_stx19218_ _identifier=?19219_) - (let* ((_unwrap-e19221_ 'syntax-e) (_wrap-e19223_ 'quote-syntax)) + (lambda (_stx19933_ _identifier=?19934_) + (let* ((_unwrap-e19936_ 'syntax-e) (_wrap-e19938_ 'quote-syntax)) + (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx19218_ - _identifier=?19219_ - _unwrap-e19221_ - _wrap-e19223_)))) + _stx19933_ + _identifier=?19934_ + _unwrap-e19936_ + _wrap-e19938_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_stx19225_ _identifier=?19226_ _unwrap-e19227_) - (let ((_wrap-e19229_ 'quote-syntax)) + (lambda (_stx19940_ _identifier=?19941_ _unwrap-e19942_) + (let ((_wrap-e19944_ 'quote-syntax)) + (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx19225_ - _identifier=?19226_ - _unwrap-e19227_ - _wrap-e19229_)))) + _stx19940_ + _identifier=?19941_ + _unwrap-e19942_ + _wrap-e19944_)))) (define gx#macro-expand-syntax-case - (lambda _g19784_ - (let ((_g19783_ (let () (declare (not safe)) (##length _g19784_)))) - (cond ((let () (declare (not safe)) (##fx= _g19783_ 1)) - (apply gx#macro-expand-syntax-case__0 _g19784_)) - ((let () (declare (not safe)) (##fx= _g19783_ 2)) - (apply gx#macro-expand-syntax-case__1 _g19784_)) - ((let () (declare (not safe)) (##fx= _g19783_ 3)) - (apply gx#macro-expand-syntax-case__2 _g19784_)) - ((let () (declare (not safe)) (##fx= _g19783_ 4)) - (apply gx#macro-expand-syntax-case__% _g19784_)) + (lambda _g20723_ + (let ((_g20722_ (let () (declare (not safe)) (##length _g20723_)))) + (cond ((let () (declare (not safe)) (##fx= _g20722_ 1)) + (apply (lambda (_stx19925_) + (let () + (declare (not safe)) + (gx#macro-expand-syntax-case__0 _stx19925_))) + _g20723_)) + ((let () (declare (not safe)) (##fx= _g20722_ 2)) + (apply (lambda (_stx19933_ _identifier=?19934_) + (let () + (declare (not safe)) + (gx#macro-expand-syntax-case__1 + _stx19933_ + _identifier=?19934_))) + _g20723_)) + ((let () (declare (not safe)) (##fx= _g20722_ 3)) + (apply (lambda (_stx19940_ + _identifier=?19941_ + _unwrap-e19942_) + (let () + (declare (not safe)) + (gx#macro-expand-syntax-case__2 + _stx19940_ + _identifier=?19941_ + _unwrap-e19942_))) + _g20723_)) + ((let () (declare (not safe)) (##fx= _g20722_ 4)) + (apply (lambda (_stx19946_ + _identifier=?19947_ + _unwrap-e19948_ + _wrap-e19949_) + (let () + (declare (not safe)) + (gx#macro-expand-syntax-case__% + _stx19946_ + _identifier=?19947_ + _unwrap-e19948_ + _wrap-e19949_))) + _g20723_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g19784_)))))) + _g20723_)))))) (define gx#syntax-local-pattern? - (lambda (_stx18497_) - (if (gx#identifier? _stx18497_) - (let ((__tmp19785 (gx#syntax-local-e__% _stx18497_ false))) + (lambda (_stx19212_) + (if (let () (declare (not safe)) (gx#identifier? _stx19212_)) + (let ((__tmp20724 + (let () + (declare (not safe)) + (gx#syntax-local-e__% _stx19212_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp19785 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp20724 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_hd18455_ . _rest18456_) - (let ((_len18458_ (length _hd18455_))) - (let _lp18460_ ((_rest18462_ _rest18456_)) - (let* ((_rest1846318471_ _rest18462_) - (_else1846518479_ (lambda () '#!void)) - (_K1846718485_ - (lambda (_rest18482_ _hd18483_) - (if (fx= _len18458_ (length _hd18483_)) - (_lp18460_ _rest18482_) - (gx#raise-syntax-error - '#f - '"Splice length mismatch" - _hd18483_))))) - (if (let () (declare (not safe)) (##pair? _rest1846318471_)) - (let ((_hd1846818488_ + (lambda (_hd19170_ . _rest19171_) + (let ((_len19173_ (length _hd19170_))) + (let _lp19175_ ((_rest19177_ _rest19171_)) + (let* ((_rest1917819186_ _rest19177_) + (_else1918019194_ (lambda () '#!void)) + (_K1918219200_ + (lambda (_rest19197_ _hd19198_) + (if (fx= _len19173_ (length _hd19198_)) + (let () (declare (not safe)) (_lp19175_ _rest19197_)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Splice length mismatch" + _hd19198_)))))) + (if (let () (declare (not safe)) (##pair? _rest1917819186_)) + (let ((_hd1918319203_ (let () (declare (not safe)) - (##car _rest1846318471_))) - (_tl1846918490_ + (##car _rest1917819186_))) + (_tl1918419205_ (let () (declare (not safe)) - (##cdr _rest1846318471_)))) - (let* ((_hd18493_ _hd1846818488_) - (_rest18495_ _tl1846918490_)) - (_K1846718485_ _rest18495_ _hd18493_))) + (##cdr _rest1917819186_)))) + (let* ((_hd19208_ _hd1918319203_) + (_rest19210_ _tl1918419205_)) + (declare (not safe)) + (_K1918219200_ _rest19210_ _hd19208_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_stx18413_ _n18414_) - (let _lp18416_ ((_rest18418_ _stx18413_) (_r18419_ '())) - (if (gx#stx-pair? _rest18418_) - (let* ((_g1842018427_ (gx#syntax-e _rest18418_)) - (_E1842218431_ - (lambda () (error '"No clause matching" _g1842018427_))) - (_K1842318437_ - (lambda (_rest18434_ _hd18435_) - (_lp18416_ _rest18434_ (cons _hd18435_ _r18419_))))) - (if (let () (declare (not safe)) (##pair? _g1842018427_)) - (let ((_hd1842418440_ - (let () (declare (not safe)) (##car _g1842018427_))) - (_tl1842518442_ + (lambda (_stx19128_ _n19129_) + (let _lp19131_ ((_rest19133_ _stx19128_) (_r19134_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _rest19133_)) + (let* ((_g1913519142_ + (let () (declare (not safe)) (gx#syntax-e _rest19133_))) + (_E1913719146_ + (lambda () (error '"No clause matching" _g1913519142_))) + (_K1913819152_ + (lambda (_rest19149_ _hd19150_) + (let ((__tmp20729 + (let () + (declare (not safe)) + (cons _hd19150_ _r19134_)))) + (declare (not safe)) + (_lp19131_ _rest19149_ __tmp20729))))) + (if (let () (declare (not safe)) (##pair? _g1913519142_)) + (let ((_hd1913919155_ + (let () (declare (not safe)) (##car _g1913519142_))) + (_tl1914019157_ (let () (declare (not safe)) - (##cdr _g1842018427_)))) - (let* ((_hd18445_ _hd1842418440_) - (_rest18447_ _tl1842518442_)) - (_K1842318437_ _rest18447_ _hd18445_))) - (_E1842218431_))) - (let _lp18449_ ((_n18451_ _n18414_) - (_l18452_ _r18419_) - (_r18453_ _rest18418_)) - (if (null? _l18452_) - (values _l18452_ _r18453_) - (if (fxpositive? _n18451_) - (_lp18449_ - (fx- _n18451_ '1) - (cdr _l18452_) - (cons (car _l18452_) _r18453_)) - (values (reverse _l18452_) _r18453_)))))))))) + (##cdr _g1913519142_)))) + (let* ((_hd19160_ _hd1913919155_) + (_rest19162_ _tl1914019157_)) + (declare (not safe)) + (_K1913819152_ _rest19162_ _hd19160_))) + (let () (declare (not safe)) (_E1913719146_)))) + (let _lp19164_ ((_n19166_ _n19129_) + (_l19167_ _r19134_) + (_r19168_ _rest19133_)) + (if (let () (declare (not safe)) (null? _l19167_)) + (values _l19167_ _r19168_) + (if (let () (declare (not safe)) (fxpositive? _n19166_)) + (let ((__tmp20728 + (let () (declare (not safe)) (fx- _n19166_ '1))) + (__tmp20727 + (let () (declare (not safe)) (cdr _l19167_))) + (__tmp20725 + (let ((__tmp20726 + (let () + (declare (not safe)) + (car _l19167_)))) + (declare (not safe)) + (cons __tmp20726 _r19168_)))) + (declare (not safe)) + (_lp19164_ __tmp20728 __tmp20727 __tmp20725)) + (values (let () + (declare (not safe)) + (reverse _l19167_)) + _r19168_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase__1.scm b/src/bootstrap/gerbil/expander/stxcase__1.scm index da33baa60..d8d376246 100644 --- a/src/bootstrap/gerbil/expander/stxcase__1.scm +++ b/src/bootstrap/gerbil/expander/stxcase__1.scm @@ -1,62 +1,62 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g19786_| + (define |gx[1]#_g20730_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g19787_| + (define |gx[1]#_g20739_| (##structure gx#syntax-quote::t - 'expander::t + 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g19788_| + (define |gx[1]#_g20741_| (##structure gx#syntax-quote::t - 'make-syntax-pattern + 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g19789_| + (define |gx[1]#_g20745_| (##structure gx#syntax-quote::t - 'syntax-pattern? + 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g19790_| + (define |gx[1]#_g20747_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g19791_| + (define |gx[1]#_g20749_| (##structure gx#syntax-quote::t - 'syntax-pattern-depth + 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g19792_| + (define |gx[1]#_g20751_| (##structure gx#syntax-quote::t - 'syntax-pattern-id-set! + 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g19793_| + (define |gx[1]#_g20754_| (##structure gx#syntax-quote::t - 'syntax-pattern-depth-set! + 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g19794_| + (define |gx[1]#_g20755_| (##structure gx#syntax-quote::t 'expander @@ -66,21 +66,54 @@ (define |gx[:0:]#syntax-pattern| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g19786_| + |gx[1]#_g20730_| 'expander-identifiers: - (cons |gx[1]#_g19787_| - (cons |gx[1]#_g19786_| - (cons |gx[1]#_g19788_| - (cons |gx[1]#_g19789_| - (cons (cons |gx[1]#_g19790_| - (cons |gx[1]#_g19791_| '())) - (cons (cons |gx[1]#_g19792_| - (cons |gx[1]#_g19793_| '())) - '())))))) + (let ((__tmp20753 |gx[1]#_g20754_|) + (__tmp20731 + (let ((__tmp20752 |gx[1]#_g20730_|) + (__tmp20732 + (let ((__tmp20750 |gx[1]#_g20751_|) + (__tmp20733 + (let ((__tmp20748 |gx[1]#_g20749_|) + (__tmp20734 + (let ((__tmp20742 + (let ((__tmp20746 |gx[1]#_g20747_|) + (__tmp20743 + (let ((__tmp20744 + |gx[1]#_g20745_|)) + (declare (not safe)) + (cons __tmp20744 '())))) + (declare (not safe)) + (cons __tmp20746 __tmp20743))) + (__tmp20735 + (let ((__tmp20736 + (let ((__tmp20740 + |gx[1]#_g20741_|) + (__tmp20737 + (let ((__tmp20738 + |gx[1]#_g20739_|)) + (declare (not safe)) + (cons __tmp20738 + '())))) + (declare (not safe)) + (cons __tmp20740 + __tmp20737)))) + (declare (not safe)) + (cons __tmp20736 '())))) + (declare (not safe)) + (cons __tmp20742 __tmp20735)))) + (declare (not safe)) + (cons __tmp20748 __tmp20734)))) + (declare (not safe)) + (cons __tmp20750 __tmp20733)))) + (declare (not safe)) + (cons __tmp20752 __tmp20732)))) + (declare (not safe)) + (cons __tmp20753 __tmp20731)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gx#syntax-pattern::t - |gx[1]#_g19794_| + |gx[1]#_g20755_| 'syntax-pattern '#f '() diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index da0179157..ae9a231ee 100644 --- a/src/bootstrap/gerbil/expander/top__0.scm +++ b/src/bootstrap/gerbil/expander/top__0.scm @@ -1,3029 +1,3263 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1695199285) + (define gerbil/expander/top::timestamp 1695292397) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_stx12530_) - (letrec ((_expand-special12532_ - (lambda (_hd12534_ _K12535_ _rest12536_ _r12537_) - (_K12535_ - _rest12536_ - (cons (gx#core-expand-top _hd12534_) _r12537_))))) - (gx#core-expand-block__0 _stx12530_ _expand-special12532_)))) + (lambda (_stx13121_) + (letrec ((_expand-special13123_ + (lambda (_hd13125_ _K13126_ _rest13127_ _r13128_) + (_K13126_ + _rest13127_ + (cons (gx#core-expand-top _hd13125_) _r13128_))))) + (gx#core-expand-block__0 _stx13121_ _expand-special13123_)))) (define gx#core-expand-begin-syntax% - (lambda (_stx12283_) - (letrec ((_expand-special12285_ - (lambda (_hd12405_ _K12406_ _rest12407_ _r12408_) - (let* ((_K12412_ - (lambda (_e12410_) - (_K12406_ _rest12407_ (cons _e12410_ _r12408_)))) - (_e1241312442_ _hd12405_) - (_E1243712446_ + (lambda (_stx12874_) + (letrec ((_expand-special12876_ + (lambda (_hd12996_ _K12997_ _rest12998_ _r12999_) + (let* ((_K13003_ + (lambda (_e13001_) + (_K12997_ _rest12998_ (cons _e13001_ _r12999_)))) + (_e1300413033_ _hd12996_) + (_E1302813037_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1241312442_))) - (_E1243312458_ + _e1300413033_))) + (_E1302413049_ (lambda () - (if (gx#stx-pair? _e1241312442_) - (let ((_e1243812450_ - (gx#syntax-e _e1241312442_))) - (let ((_hd1243912453_ - (##car _e1243812450_)) - (_tl1244012455_ - (##cdr _e1243812450_))) - (if (and (gx#identifier? _hd1243912453_) + (if (gx#stx-pair? _e1300413033_) + (let ((_e1302913041_ + (gx#syntax-e _e1300413033_))) + (let ((_hd1303013044_ + (##car _e1302913041_)) + (_tl1303113046_ + (##cdr _e1302913041_))) + (if (and (gx#identifier? _hd1303013044_) (gx#core-identifier=? - _hd1243912453_ + _hd1303013044_ '%#define-runtime)) (if '#t - (_K12412_ + (_K13003_ (gx#core-expand-define-runtime% - _hd12405_)) - (_E1243712446_)) - (_E1243712446_)))) - (_E1243712446_)))) - (_E1242912470_ + _hd12996_)) + (_E1302813037_)) + (_E1302813037_)))) + (_E1302813037_)))) + (_E1302013061_ (lambda () - (if (gx#stx-pair? _e1241312442_) - (let ((_e1243412462_ - (gx#syntax-e _e1241312442_))) - (let ((_hd1243512465_ - (##car _e1243412462_)) - (_tl1243612467_ - (##cdr _e1243412462_))) - (if (and (gx#identifier? _hd1243512465_) + (if (gx#stx-pair? _e1300413033_) + (let ((_e1302513053_ + (gx#syntax-e _e1300413033_))) + (let ((_hd1302613056_ + (##car _e1302513053_)) + (_tl1302713058_ + (##cdr _e1302513053_))) + (if (and (gx#identifier? _hd1302613056_) (gx#core-identifier=? - _hd1243512465_ + _hd1302613056_ '%#define-alias)) (if '#t - (_K12412_ + (_K13003_ (gx#core-expand-define-alias% - _hd12405_)) - (_E1243312458_)) - (_E1243312458_)))) - (_E1243312458_)))) - (_E1241912482_ + _hd12996_)) + (_E1302413049_)) + (_E1302413049_)))) + (_E1302413049_)))) + (_E1301013073_ (lambda () - (if (gx#stx-pair? _e1241312442_) - (let ((_e1243012474_ - (gx#syntax-e _e1241312442_))) - (let ((_hd1243112477_ - (##car _e1243012474_)) - (_tl1243212479_ - (##cdr _e1243012474_))) - (if (and (gx#identifier? _hd1243112477_) + (if (gx#stx-pair? _e1300413033_) + (let ((_e1302113065_ + (gx#syntax-e _e1300413033_))) + (let ((_hd1302213068_ + (##car _e1302113065_)) + (_tl1302313070_ + (##cdr _e1302113065_))) + (if (and (gx#identifier? _hd1302213068_) (gx#core-identifier=? - _hd1243112477_ + _hd1302213068_ '%#define-syntax)) (if '#t - (_K12412_ + (_K13003_ (gx#core-expand-define-syntax% - _hd12405_)) - (_E1242912470_)) - (_E1242912470_)))) - (_E1242912470_)))) - (_E1241512514_ + _hd12996_)) + (_E1302013061_)) + (_E1302013061_)))) + (_E1302013061_)))) + (_E1300613105_ (lambda () - (if (gx#stx-pair? _e1241312442_) - (let ((_e1242012486_ - (gx#syntax-e _e1241312442_))) - (let ((_hd1242112489_ - (##car _e1242012486_)) - (_tl1242212491_ - (##cdr _e1242012486_))) - (if (and (gx#identifier? _hd1242112489_) + (if (gx#stx-pair? _e1300413033_) + (let ((_e1301113077_ + (gx#syntax-e _e1300413033_))) + (let ((_hd1301213080_ + (##car _e1301113077_)) + (_tl1301313082_ + (##cdr _e1301113077_))) + (if (and (gx#identifier? _hd1301213080_) (gx#core-identifier=? - _hd1242112489_ + _hd1301213080_ '%#define-values)) - (if (gx#stx-pair? _tl1242212491_) - (let ((_e1242312494_ + (if (gx#stx-pair? _tl1301313082_) + (let ((_e1301413085_ (gx#syntax-e - _tl1242212491_))) - (let ((_hd1242412497_ - (##car _e1242312494_)) - (_tl1242512499_ - (##cdr _e1242312494_))) - (let ((_hd-bind12502_ - _hd1242412497_)) + _tl1301313082_))) + (let ((_hd1301513088_ + (##car _e1301413085_)) + (_tl1301613090_ + (##cdr _e1301413085_))) + (let ((_hd-bind13093_ + _hd1301513088_)) (if (gx#stx-pair? - _tl1242512499_) - (let ((_e1242612504_ + _tl1301613090_) + (let ((_e1301713095_ (gx#syntax-e - _tl1242512499_))) - (let ((_hd1242712507_ + _tl1301613090_))) + (let ((_hd1301813098_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e1242612504_)) - (_tl1242812509_ (##cdr _e1242612504_))) - (let ((_expr12512_ _hd1242712507_)) - (if (gx#stx-null? _tl1242812509_) - (if (gx#core-bind-values? _hd-bind12502_) + (##car _e1301713095_)) + (_tl1301913100_ (##cdr _e1301713095_))) + (let ((_expr13103_ _hd1301813098_)) + (if (gx#stx-null? _tl1301913100_) + (if (gx#core-bind-values? _hd-bind13093_) (begin - (gx#core-bind-values!__0 _hd-bind12502_) - (_K12412_ _hd12405_)) - (_E1241912482_)) - (_E1241912482_))))) - (_E1241912482_))))) + (gx#core-bind-values!__0 _hd-bind13093_) + (_K13003_ _hd12996_)) + (_E1301013073_)) + (_E1301013073_))))) + (_E1301013073_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1241912482_)) - (_E1241912482_)))) - (_E1241912482_)))) - (_E1241412526_ + (_E1301013073_)) + (_E1301013073_)))) + (_E1301013073_)))) + (_E1300513117_ (lambda () - (if (gx#stx-pair? _e1241312442_) - (let ((_e1241612518_ - (gx#syntax-e _e1241312442_))) - (let ((_hd1241712521_ - (##car _e1241612518_)) - (_tl1241812523_ - (##cdr _e1241612518_))) - (if (and (gx#identifier? _hd1241712521_) + (if (gx#stx-pair? _e1300413033_) + (let ((_e1300713109_ + (gx#syntax-e _e1300413033_))) + (let ((_hd1300813112_ + (##car _e1300713109_)) + (_tl1300913114_ + (##cdr _e1300713109_))) + (if (and (gx#identifier? _hd1300813112_) (gx#core-identifier=? - _hd1241712521_ + _hd1300813112_ '%#begin-syntax)) (if '#t - (_K12412_ + (_K13003_ (gx#core-expand-begin-syntax% - _hd12405_)) - (_E1241512514_)) - (_E1241512514_)))) - (_E1241512514_))))) - (_E1241412526_)))) - (_eval-body12286_ - (lambda (_rbody12294_) - (let _lp12296_ ((_rest12298_ _rbody12294_) - (_body12299_ '()) - (_ebody12300_ '())) - (let* ((_rest1230112309_ _rest12298_) - (_else1230312317_ + _hd12996_)) + (_E1300613105_)) + (_E1300613105_)))) + (_E1300613105_))))) + (_E1300513117_)))) + (_eval-body12877_ + (lambda (_rbody12885_) + (let _lp12887_ ((_rest12889_ _rbody12885_) + (_body12890_ '()) + (_ebody12891_ '())) + (let* ((_rest1289212900_ _rest12889_) + (_else1289412908_ (lambda () - (values _body12299_ + (values _body12890_ (gx#eval-syntax* (gx#core-quote-syntax__1 - (gx#core-cons '%#begin _ebody12300_) - (gx#stx-source _stx12283_)))))) - (_K1230512393_ - (lambda (_rest12320_ _hd12321_) - (let* ((_e1232212339_ _hd12321_) - (_E1233412343_ + (gx#core-cons '%#begin _ebody12891_) + (gx#stx-source _stx12874_)))))) + (_K1289612984_ + (lambda (_rest12911_ _hd12912_) + (let* ((_e1291312930_ _hd12912_) + (_E1292512934_ (lambda () - (_lp12296_ - _rest12320_ - (cons _hd12321_ _body12299_) - (cons _hd12321_ _ebody12300_)))) - (_E1232412355_ + (_lp12887_ + _rest12911_ + (cons _hd12912_ _body12890_) + (cons _hd12912_ _ebody12891_)))) + (_E1291512946_ (lambda () - (if (gx#stx-pair? _e1232212339_) - (let ((_e1233512347_ + (if (gx#stx-pair? _e1291312930_) + (let ((_e1292612938_ (gx#syntax-e - _e1232212339_))) - (let ((_hd1233612350_ - (##car _e1233512347_)) - (_tl1233712352_ - (##cdr _e1233512347_))) + _e1291312930_))) + (let ((_hd1292712941_ + (##car _e1292612938_)) + (_tl1292812943_ + (##cdr _e1292612938_))) (if (and (gx#identifier? - _hd1233612350_) + _hd1292712941_) (gx#core-identifier=? - _hd1233612350_ + _hd1292712941_ '%#begin-syntax)) (if '#t - (_lp12296_ - _rest12320_ - (cons _hd12321_ + (_lp12887_ + _rest12911_ + (cons _hd12912_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body12299_) - _ebody12300_) - (_E1233412343_)) - (_E1233412343_)))) + _body12890_) + _ebody12891_) + (_E1292512934_)) + (_E1292512934_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1233412343_)))) - (_E1232312389_ + (_E1292512934_)))) + (_E1291412980_ (lambda () - (if (gx#stx-pair? _e1232212339_) - (let ((_e1232512359_ + (if (gx#stx-pair? _e1291312930_) + (let ((_e1291612950_ (gx#syntax-e - _e1232212339_))) - (let ((_hd1232612362_ - (##car _e1232512359_)) - (_tl1232712364_ - (##cdr _e1232512359_))) + _e1291312930_))) + (let ((_hd1291712953_ + (##car _e1291612950_)) + (_tl1291812955_ + (##cdr _e1291612950_))) (if (and (gx#identifier? - _hd1232612362_) + _hd1291712953_) (gx#core-identifier=? - _hd1232612362_ + _hd1291712953_ '%#define-values)) (if (gx#stx-pair? - _tl1232712364_) - (let ((_e1232812367_ + _tl1291812955_) + (let ((_e1291912958_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1232712364_))) - (let ((_hd1232912370_ (##car _e1232812367_)) - (_tl1233012372_ (##cdr _e1232812367_))) - (let ((_hd-bind12375_ _hd1232912370_)) - (if (gx#stx-pair? _tl1233012372_) - (let ((_e1233112377_ (gx#syntax-e _tl1233012372_))) - (let ((_hd1233212380_ (##car _e1233112377_)) - (_tl1233312382_ (##cdr _e1233112377_))) - (let ((_expr12385_ _hd1233212380_)) - (if (gx#stx-null? _tl1233312382_) + (gx#syntax-e _tl1291812955_))) + (let ((_hd1292012961_ (##car _e1291912958_)) + (_tl1292112963_ (##cdr _e1291912958_))) + (let ((_hd-bind12966_ _hd1292012961_)) + (if (gx#stx-pair? _tl1292112963_) + (let ((_e1292212968_ (gx#syntax-e _tl1292112963_))) + (let ((_hd1292312971_ (##car _e1292212968_)) + (_tl1292412973_ (##cdr _e1292212968_))) + (let ((_expr12976_ _hd1292312971_)) + (if (gx#stx-null? _tl1292412973_) (if '#t - (let ((_ehd12387_ + (let ((_ehd12978_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _hd-bind12375_) + _hd-bind12966_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr12385_) + _expr12976_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _hd12321_)))) - (_lp12296_ - _rest12320_ - (cons _ehd12387_ _body12299_) - (cons _ehd12387_ _ebody12300_))) - (_E1232412355_)) - (_E1232412355_))))) - (_E1232412355_))))) - (_E1232412355_)) - (_E1232412355_)))) + (gx#stx-source _hd12912_)))) + (_lp12887_ + _rest12911_ + (cons _ehd12978_ _body12890_) + (cons _ehd12978_ _ebody12891_))) + (_E1291512946_)) + (_E1291512946_))))) + (_E1291512946_))))) + (_E1291512946_)) + (_E1291512946_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1232412355_))))) - (_E1232312389_))))) - (if (##pair? _rest1230112309_) - (let ((_hd1230612396_ (##car _rest1230112309_)) - (_tl1230712398_ (##cdr _rest1230112309_))) - (let* ((_hd12401_ _hd1230612396_) - (_rest12403_ _tl1230712398_)) - (_K1230512393_ _rest12403_ _hd12401_))) - (_else1230312317_))))))) + (_E1291512946_))))) + (_E1291412980_))))) + (if (##pair? _rest1289212900_) + (let ((_hd1289712987_ (##car _rest1289212900_)) + (_tl1289812989_ (##cdr _rest1289212900_))) + (let* ((_hd12992_ _hd1289712987_) + (_rest12994_ _tl1289812989_)) + (_K1289612984_ _rest12994_ _hd12992_))) + (_else1289412908_))))))) (call-with-parameters (lambda () - (let* ((_rbody12289_ + (let* ((_rbody12880_ (gx#core-expand-block__1 - _stx12283_ - _expand-special12285_ + _stx12874_ + _expand-special12876_ '#f)) - (_g12553_ (_eval-body12286_ _rbody12289_))) + (_g13144_ (_eval-body12877_ _rbody12880_))) (begin - (let ((_g12554_ - (if (##values? _g12553_) - (##vector-length _g12553_) + (let ((_g13145_ + (if (##values? _g13144_) + (##vector-length _g13144_) 1))) - (if (not (##fx= _g12554_ 2)) - (error "Context expects 2 values" _g12554_))) - (let ((_expanded-body12291_ (##vector-ref _g12553_ 0)) - (_value12292_ (##vector-ref _g12553_ 1))) + (if (not (##fx= _g13145_ 2)) + (error "Context expects 2 values" _g13145_))) + (let ((_expanded-body12882_ (##vector-ref _g13144_ 0)) + (_value12883_ (##vector-ref _g13144_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _expanded-body12291_) + (gx#core-cons '%#begin-syntax _expanded-body12882_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _value12292_ '()))) - (gx#stx-source _stx12283_)))))) + (cons _value12883_ '()))) + (gx#stx-source _stx12874_)))))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_stx12253_) - (let* ((_e1225412261_ _stx12253_) - (_E1225612265_ + (lambda (_stx12844_) + (let* ((_e1284512852_ _stx12844_) + (_E1284712856_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1225412261_))) - (_E1225512279_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1284512852_))) + (_E1284612870_ (lambda () - (if (gx#stx-pair? _e1225412261_) - (let ((_e1225712269_ (gx#syntax-e _e1225412261_))) - (let ((_hd1225812272_ (##car _e1225712269_)) - (_tl1225912274_ (##cdr _e1225712269_))) - (let ((_body12277_ _tl1225912274_)) - (if (gx#stx-list? _body12277_) + (if (gx#stx-pair? _e1284512852_) + (let ((_e1284812860_ (gx#syntax-e _e1284512852_))) + (let ((_hd1284912863_ (##car _e1284812860_)) + (_tl1285012865_ (##cdr _e1284812860_))) + (let ((_body12868_ _tl1285012865_)) + (if (gx#stx-list? _body12868_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _body12277_) - (gx#stx-source _stx12253_)) - (_E1225612265_))))) - (_E1225612265_))))) - (_E1225512279_)))) + (gx#core-cons '%#begin-foreign _body12868_) + (gx#stx-source _stx12844_)) + (_E1284712856_))))) + (_E1284712856_))))) + (_E1284612870_)))) (define gx#core-expand-begin-module% - (lambda (_stx12251_) - (gx#raise-syntax-error '#f '"Illegal expansion" _stx12251_))) + (lambda (_stx12842_) + (gx#raise-syntax-error '#f '"Illegal expansion" _stx12842_))) (define gx#core-expand-begin-annotation% - (lambda (_stx12197_) - (let* ((_e1219812211_ _stx12197_) - (_E1220012215_ + (lambda (_stx12788_) + (let* ((_e1278912802_ _stx12788_) + (_E1279112806_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1219812211_))) - (_E1219912247_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1278912802_))) + (_E1279012838_ (lambda () - (if (gx#stx-pair? _e1219812211_) - (let ((_e1220112219_ (gx#syntax-e _e1219812211_))) - (let ((_hd1220212222_ (##car _e1220112219_)) - (_tl1220312224_ (##cdr _e1220112219_))) - (if (gx#stx-pair? _tl1220312224_) - (let ((_e1220412227_ - (gx#syntax-e _tl1220312224_))) - (let ((_hd1220512230_ (##car _e1220412227_)) - (_tl1220612232_ (##cdr _e1220412227_))) - (let ((_ann12235_ _hd1220512230_)) - (if (gx#stx-pair? _tl1220612232_) - (let ((_e1220712237_ - (gx#syntax-e _tl1220612232_))) - (let ((_hd1220812240_ - (##car _e1220712237_)) - (_tl1220912242_ - (##cdr _e1220712237_))) - (let ((_expr12245_ _hd1220812240_)) - (if (gx#stx-null? _tl1220912242_) + (if (gx#stx-pair? _e1278912802_) + (let ((_e1279212810_ (gx#syntax-e _e1278912802_))) + (let ((_hd1279312813_ (##car _e1279212810_)) + (_tl1279412815_ (##cdr _e1279212810_))) + (if (gx#stx-pair? _tl1279412815_) + (let ((_e1279512818_ + (gx#syntax-e _tl1279412815_))) + (let ((_hd1279612821_ (##car _e1279512818_)) + (_tl1279712823_ (##cdr _e1279512818_))) + (let ((_ann12826_ _hd1279612821_)) + (if (gx#stx-pair? _tl1279712823_) + (let ((_e1279812828_ + (gx#syntax-e _tl1279712823_))) + (let ((_hd1279912831_ + (##car _e1279812828_)) + (_tl1280012833_ + (##cdr _e1279812828_))) + (let ((_expr12836_ _hd1279912831_)) + (if (gx#stx-null? _tl1280012833_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _ann12235_ + (cons _ann12826_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-expand-expression _expr12245_) '()))) - (gx#stx-source _stx12197_)) - (_E1220012215_)) + (cons (gx#core-expand-expression _expr12836_) '()))) + (gx#stx-source _stx12788_)) + (_E1279112806_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1220012215_))))) - (_E1220012215_))))) - (_E1220012215_)))) - (_E1220012215_))))) - (_E1219912247_)))) + (_E1279112806_))))) + (_E1279112806_))))) + (_E1279112806_)))) + (_E1279112806_))))) + (_E1279012838_)))) (define gx#core-expand-local-block - (lambda (_stx11921_ _body11922_) - (letrec ((_expand-special11924_ - (lambda (_hd12192_ _K12193_ _rest12194_ _r12195_) - (_K12193_ + (lambda (_stx12512_ _body12513_) + (letrec ((_expand-special12515_ + (lambda (_hd12783_ _K12784_ _rest12785_ _r12786_) + (_K12784_ '() - (cons (_expand-internal11925_ _hd12192_ _rest12194_) - _r12195_)))) - (_expand-internal11925_ - (lambda (_hd12188_ _rest12189_) + (cons (_expand-internal12516_ _hd12783_ _rest12785_) + _r12786_)))) + (_expand-internal12516_ + (lambda (_hd12779_ _rest12780_) (call-with-parameters (lambda () - (_wrap-internal11927_ + (_wrap-internal12518_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _hd12188_ _rest12189_)) - (gx#stx-source _stx11921_)) - _expand-internal-special11926_ + (cons '%#begin (cons _hd12779_ _rest12780_)) + (gx#stx-source _stx12512_)) + _expand-internal-special12517_ '#f))) gx#current-expander-context - (let ((__obj12547 (make-object gx#local-context::t '5))) - (gx#local-context:::init!__0 __obj12547) - __obj12547)))) - (_expand-internal-special11926_ - (lambda (_hd12083_ _K12084_ _rest12085_ _r12086_) - (let* ((_e1208712112_ _hd12083_) - (_E1210712116_ + (let ((__obj13138 (make-object gx#local-context::t '5))) + (gx#local-context:::init!__0 __obj13138) + __obj13138)))) + (_expand-internal-special12517_ + (lambda (_hd12674_ _K12675_ _rest12676_ _r12677_) + (let* ((_e1267812703_ _hd12674_) + (_E1269812707_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1208712112_))) - (_E1210312128_ + _e1267812703_))) + (_E1269412719_ (lambda () - (if (gx#stx-pair? _e1208712112_) - (let ((_e1210812120_ - (gx#syntax-e _e1208712112_))) - (let ((_hd1210912123_ - (##car _e1210812120_)) - (_tl1211012125_ - (##cdr _e1210812120_))) - (if (and (gx#identifier? _hd1210912123_) + (if (gx#stx-pair? _e1267812703_) + (let ((_e1269912711_ + (gx#syntax-e _e1267812703_))) + (let ((_hd1270012714_ + (##car _e1269912711_)) + (_tl1270112716_ + (##cdr _e1269912711_))) + (if (and (gx#identifier? _hd1270012714_) (gx#core-identifier=? - _hd1210912123_ + _hd1270012714_ '%#declare)) (if '#t - (_K12084_ - _rest12085_ + (_K12675_ + _rest12676_ (cons (gx#core-expand-declare% - _hd12083_) - _r12086_)) - (_E1210712116_)) - (_E1210712116_)))) - (_E1210712116_)))) - (_E1209912140_ + _hd12674_) + _r12677_)) + (_E1269812707_)) + (_E1269812707_)))) + (_E1269812707_)))) + (_E1269012731_ (lambda () - (if (gx#stx-pair? _e1208712112_) - (let ((_e1210412132_ - (gx#syntax-e _e1208712112_))) - (let ((_hd1210512135_ - (##car _e1210412132_)) - (_tl1210612137_ - (##cdr _e1210412132_))) - (if (and (gx#identifier? _hd1210512135_) + (if (gx#stx-pair? _e1267812703_) + (let ((_e1269512723_ + (gx#syntax-e _e1267812703_))) + (let ((_hd1269612726_ + (##car _e1269512723_)) + (_tl1269712728_ + (##cdr _e1269512723_))) + (if (and (gx#identifier? _hd1269612726_) (gx#core-identifier=? - _hd1210512135_ + _hd1269612726_ '%#define-alias)) (if '#t (begin (gx#core-expand-define-alias% - _hd12083_) - (_K12084_ - _rest12085_ - _r12086_)) - (_E1210312128_)) - (_E1210312128_)))) - (_E1210312128_)))) - (_E1208912152_ + _hd12674_) + (_K12675_ + _rest12676_ + _r12677_)) + (_E1269412719_)) + (_E1269412719_)))) + (_E1269412719_)))) + (_E1268012743_ (lambda () - (if (gx#stx-pair? _e1208712112_) - (let ((_e1210012144_ - (gx#syntax-e _e1208712112_))) - (let ((_hd1210112147_ - (##car _e1210012144_)) - (_tl1210212149_ - (##cdr _e1210012144_))) - (if (and (gx#identifier? _hd1210112147_) + (if (gx#stx-pair? _e1267812703_) + (let ((_e1269112735_ + (gx#syntax-e _e1267812703_))) + (let ((_hd1269212738_ + (##car _e1269112735_)) + (_tl1269312740_ + (##cdr _e1269112735_))) + (if (and (gx#identifier? _hd1269212738_) (gx#core-identifier=? - _hd1210112147_ + _hd1269212738_ '%#define-syntax)) (if '#t (begin (gx#core-expand-define-syntax% - _hd12083_) - (_K12084_ - _rest12085_ - _r12086_)) - (_E1209912140_)) - (_E1209912140_)))) - (_E1209912140_)))) - (_E1208812184_ + _hd12674_) + (_K12675_ + _rest12676_ + _r12677_)) + (_E1269012731_)) + (_E1269012731_)))) + (_E1269012731_)))) + (_E1267912775_ (lambda () - (if (gx#stx-pair? _e1208712112_) - (let ((_e1209012156_ - (gx#syntax-e _e1208712112_))) - (let ((_hd1209112159_ - (##car _e1209012156_)) - (_tl1209212161_ - (##cdr _e1209012156_))) - (if (and (gx#identifier? _hd1209112159_) + (if (gx#stx-pair? _e1267812703_) + (let ((_e1268112747_ + (gx#syntax-e _e1267812703_))) + (let ((_hd1268212750_ + (##car _e1268112747_)) + (_tl1268312752_ + (##cdr _e1268112747_))) + (if (and (gx#identifier? _hd1268212750_) (gx#core-identifier=? - _hd1209112159_ + _hd1268212750_ '%#define-values)) - (if (gx#stx-pair? _tl1209212161_) - (let ((_e1209312164_ + (if (gx#stx-pair? _tl1268312752_) + (let ((_e1268412755_ (gx#syntax-e - _tl1209212161_))) - (let ((_hd1209412167_ - (##car _e1209312164_)) - (_tl1209512169_ - (##cdr _e1209312164_))) - (let ((_hd-bind12172_ - _hd1209412167_)) + _tl1268312752_))) + (let ((_hd1268512758_ + (##car _e1268412755_)) + (_tl1268612760_ + (##cdr _e1268412755_))) + (let ((_hd-bind12763_ + _hd1268512758_)) (if (gx#stx-pair? - _tl1209512169_) - (let ((_e1209612174_ + _tl1268612760_) + (let ((_e1268712765_ (gx#syntax-e - _tl1209512169_))) - (let ((_hd1209712177_ + _tl1268612760_))) + (let ((_hd1268812768_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e1209612174_)) - (_tl1209812179_ (##cdr _e1209612174_))) - (let ((_expr12182_ _hd1209712177_)) - (if (gx#stx-null? _tl1209812179_) - (if (gx#core-bind-values? _hd-bind12172_) + (##car _e1268712765_)) + (_tl1268912770_ (##cdr _e1268712765_))) + (let ((_expr12773_ _hd1268812768_)) + (if (gx#stx-null? _tl1268912770_) + (if (gx#core-bind-values? _hd-bind12763_) (begin - (gx#core-bind-values!__0 _hd-bind12172_) - (_K12084_ - _rest12085_ - (cons _hd12083_ _r12086_))) - (_E1208912152_)) - (_E1208912152_))))) - (_E1208912152_))))) + (gx#core-bind-values!__0 _hd-bind12763_) + (_K12675_ + _rest12676_ + (cons _hd12674_ _r12677_))) + (_E1268012743_)) + (_E1268012743_))))) + (_E1268012743_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1208912152_)) - (_E1208912152_)))) - (_E1208912152_))))) - (_E1208812184_)))) - (_wrap-internal11927_ - (lambda (_rbody11929_) - (let _lp11931_ ((_rest11933_ _rbody11929_) - (_decls11934_ '()) - (_bind11935_ '()) - (_body11936_ '())) - (let* ((_e1193711944_ _rest11933_) - (_E1193911993_ + (_E1268012743_)) + (_E1268012743_)))) + (_E1268012743_))))) + (_E1267912775_)))) + (_wrap-internal12518_ + (lambda (_rbody12520_) + (let _lp12522_ ((_rest12524_ _rbody12520_) + (_decls12525_ '()) + (_bind12526_ '()) + (_body12527_ '())) + (let* ((_e1252812535_ _rest12524_) + (_E1253012584_ (lambda () - (let* ((_body11988_ - (let* ((_body1194711957_ _body11936_) - (_else1195011965_ + (let* ((_body12579_ + (let* ((_body1253812548_ _body12527_) + (_else1254112556_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body11936_) + _body12527_) (gx#stx-source - _stx11921_))))) - (let ((_K1195511985_ + _stx12512_))))) + (let ((_K1254612576_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _stx11921_))) - (_K1195211971_ - (lambda (_expr11969_) - _expr11969_))) - (let ((_try-match1194911981_ + _stx12512_))) + (_K1254312562_ + (lambda (_expr12560_) + _expr12560_))) + (let ((_try-match1254012572_ (lambda () - (if (##pair? _body1194711957_) - (let ((_tl1195411976_ - (##cdr _body1194711957_)) - (_hd1195311974_ - (##car _body1194711957_))) - (if (##null? _tl1195411976_) - (let ((_expr11979_ + (if (##pair? _body1253812548_) + (let ((_tl1254512567_ + (##cdr _body1253812548_)) + (_hd1254412565_ + (##car _body1253812548_))) + (if (##null? _tl1254512567_) + (let ((_expr12570_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1195311974_)) - (_K1195211971_ _expr11979_)) - (_else1195011965_))) - (_else1195011965_))))) + _hd1254412565_)) + (_K1254312562_ _expr12570_)) + (_else1254112556_))) + (_else1254112556_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _body1194711957_) - (_K1195511985_) - (_try-match1194911981_)))))) - (_body11990_ - (if (null? _bind11935_) - _body11988_ + (if (##null? _body1253812548_) + (_K1254612576_) + (_try-match1254012572_)))))) + (_body12581_ + (if (null? _bind12526_) + _body12579_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _bind11935_ - (cons _body11988_ + (cons _bind12526_ + (cons _body12579_ '()))) - (gx#stx-source _stx11921_))))) - (if (null? _decls11934_) - _body11990_ + (gx#stx-source _stx12512_))))) + (if (null? _decls12525_) + _body12581_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _decls11934_ - (cons _body11990_ '()))) - (gx#stx-source _stx11921_)))))) - (_E1193812079_ + (cons _decls12525_ + (cons _body12581_ '()))) + (gx#stx-source _stx12512_)))))) + (_E1252912670_ (lambda () - (if (gx#stx-pair? _e1193711944_) - (let ((_e1194011997_ - (gx#syntax-e _e1193711944_))) - (let ((_hd1194112000_ - (##car _e1194011997_)) - (_tl1194212002_ - (##cdr _e1194011997_))) - (let* ((_hd12005_ _hd1194112000_) - (_rest12007_ _tl1194212002_)) + (if (gx#stx-pair? _e1252812535_) + (let ((_e1253112588_ + (gx#syntax-e _e1252812535_))) + (let ((_hd1253212591_ + (##car _e1253112588_)) + (_tl1253312593_ + (##cdr _e1253112588_))) + (let* ((_hd12596_ _hd1253212591_) + (_rest12598_ _tl1253312593_)) (if '#t - (let* ((_e1200812025_ _hd12005_) - (_E1202012029_ + (let* ((_e1259912616_ _hd12596_) + (_E1261112620_ (lambda () - (if (null? _bind11935_) - (_lp11931_ - _rest12007_ - _decls11934_ - _bind11935_ - (cons _hd12005_ + (if (null? _bind12526_) + (_lp12522_ + _rest12598_ + _decls12525_ + _bind12526_ + (cons _hd12596_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body11936_)) - (_lp11931_ - _rest12007_ - _decls11934_ - (cons (cons '#f (cons _hd12005_ '())) _bind11935_) - _body11936_)))) + _body12527_)) + (_lp12522_ + _rest12598_ + _decls12525_ + (cons (cons '#f (cons _hd12596_ '())) _bind12526_) + _body12527_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1201012043_ + (_E1260112634_ (lambda () (if (gx#stx-pair? - _e1200812025_) - (let ((_e1202112033_ + _e1259912616_) + (let ((_e1261212624_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e1200812025_))) - (let ((_hd1202212036_ (##car _e1202112033_)) - (_tl1202312038_ (##cdr _e1202112033_))) - (if (and (gx#identifier? _hd1202212036_) + (gx#syntax-e _e1259912616_))) + (let ((_hd1261312627_ (##car _e1261212624_)) + (_tl1261412629_ (##cdr _e1261212624_))) + (if (and (gx#identifier? _hd1261312627_) (gx#core-identifier=? - _hd1202212036_ + _hd1261312627_ '%#declare)) - (let ((_xdecls12041_ _tl1202312038_)) + (let ((_xdecls12632_ _tl1261412629_)) (if '#t - (_lp11931_ - _rest12007_ + (_lp12522_ + _rest12598_ (gx#stx-foldr cons - _decls11934_ - _xdecls12041_) - _bind11935_ - _body11936_) - (_E1202012029_))) - (_E1202012029_)))) - (_E1202012029_)))) + _decls12525_ + _xdecls12632_) + _bind12526_ + _body12527_) + (_E1261112620_))) + (_E1261112620_)))) + (_E1261112620_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1200912075_ + (_E1260012666_ (lambda () (if (gx#stx-pair? - _e1200812025_) - (let ((_e1201112047_ + _e1259912616_) + (let ((_e1260212638_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e1200812025_))) - (let ((_hd1201212050_ (##car _e1201112047_)) - (_tl1201312052_ (##cdr _e1201112047_))) - (if (and (gx#identifier? _hd1201212050_) + (gx#syntax-e _e1259912616_))) + (let ((_hd1260312641_ (##car _e1260212638_)) + (_tl1260412643_ (##cdr _e1260212638_))) + (if (and (gx#identifier? _hd1260312641_) (gx#core-identifier=? - _hd1201212050_ + _hd1260312641_ '%#define-values)) - (if (gx#stx-pair? _tl1201312052_) - (let ((_e1201412055_ - (gx#syntax-e _tl1201312052_))) - (let ((_hd1201512058_ (##car _e1201412055_)) - (_tl1201612060_ (##cdr _e1201412055_))) - (let ((_hd-bind12063_ _hd1201512058_)) - (if (gx#stx-pair? _tl1201612060_) - (let ((_e1201712065_ - (gx#syntax-e _tl1201612060_))) - (let ((_hd1201812068_ - (##car _e1201712065_)) - (_tl1201912070_ - (##cdr _e1201712065_))) - (let ((_expr12073_ - _hd1201812068_)) + (if (gx#stx-pair? _tl1260412643_) + (let ((_e1260512646_ + (gx#syntax-e _tl1260412643_))) + (let ((_hd1260612649_ (##car _e1260512646_)) + (_tl1260712651_ (##cdr _e1260512646_))) + (let ((_hd-bind12654_ _hd1260612649_)) + (if (gx#stx-pair? _tl1260712651_) + (let ((_e1260812656_ + (gx#syntax-e _tl1260712651_))) + (let ((_hd1260912659_ + (##car _e1260812656_)) + (_tl1261012661_ + (##cdr _e1260812656_))) + (let ((_expr12664_ + _hd1260912659_)) (if (gx#stx-null? - _tl1201912070_) + _tl1261012661_) (if '#t - (_lp11931_ - _rest12007_ - _decls11934_ + (_lp12522_ + _rest12598_ + _decls12525_ (cons (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-bind12063_) - (cons (gx#core-expand-expression _expr12073_) + _hd-bind12654_) + (cons (gx#core-expand-expression _expr12664_) '())) - _bind11935_) - _body11936_) - (_E1201012043_)) + _bind12526_) + _body12527_) + (_E1260112634_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1201012043_))))) - (_E1201012043_))))) - (_E1201012043_)) - (_E1201012043_)))) - (_E1201012043_))))) + (_E1260112634_))))) + (_E1260112634_))))) + (_E1260112634_)) + (_E1260112634_)))) + (_E1260112634_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1200912075_)) - (_E1193911993_))))) - (_E1193911993_))))) - (_E1193812079_)))))) + (_E1260012666_)) + (_E1253012584_))))) + (_E1253012584_))))) + (_E1252912670_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _body11922_) - (gx#stx-source _stx11921_)) - _expand-special11924_)))) + (cons '%#begin _body12513_) + (gx#stx-source _stx12512_)) + _expand-special12515_)))) (define gx#core-expand-declare% - (lambda (_stx11859_) - (let* ((_e1186011867_ _stx11859_) - (_E1186211871_ + (lambda (_stx12450_) + (let* ((_e1245112458_ _stx12450_) + (_E1245312462_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1186011867_))) - (_E1186111917_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1245112458_))) + (_E1245212508_ (lambda () - (if (gx#stx-pair? _e1186011867_) - (let ((_e1186311875_ (gx#syntax-e _e1186011867_))) - (let ((_hd1186411878_ (##car _e1186311875_)) - (_tl1186511880_ (##cdr _e1186311875_))) - (let ((_body11883_ _tl1186511880_)) - (if (gx#stx-list? _body11883_) + (if (gx#stx-pair? _e1245112458_) + (let ((_e1245412466_ (gx#syntax-e _e1245112458_))) + (let ((_hd1245512469_ (##car _e1245412466_)) + (_tl1245612471_ (##cdr _e1245412466_))) + (let ((_body12474_ _tl1245612471_)) + (if (gx#stx-list? _body12474_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_decl11885_) - (let* ((_e1188611893_ _decl11885_) - (_E1188811897_ + (lambda (_decl12476_) + (let* ((_e1247712484_ _decl12476_) + (_E1247912488_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1188611893_))) - (_E1188711913_ + _e1247712484_))) + (_E1247812504_ (lambda () - (if (gx#stx-pair? _e1188611893_) - (let ((_e1188911901_ + (if (gx#stx-pair? _e1247712484_) + (let ((_e1248012492_ (gx#syntax-e - _e1188611893_))) - (let ((_hd1189011904_ - (##car _e1188911901_)) - (_tl1189111906_ - (##cdr _e1188911901_))) - (let* ((_head11909_ - _hd1189011904_) - (_args11911_ - _tl1189111906_)) + _e1247712484_))) + (let ((_hd1248112495_ + (##car _e1248012492_)) + (_tl1248212497_ + (##cdr _e1248012492_))) + (let* ((_head12500_ + _hd1248112495_) + (_args12502_ + _tl1248212497_)) (if (gx#stx-list? - _args11911_) + _args12502_) (gx#stx-map1 gx#core-quote-syntax - _decl11885_) - (_E1188811897_))))) - (_E1188811897_))))) - (_E1188711913_))) - _body11883_)) - (gx#stx-source _stx11859_)) - (_E1186211871_))))) - (_E1186211871_))))) - (_E1186111917_)))) + _decl12476_) + (_E1247912488_))))) + (_E1247912488_))))) + (_E1247812504_))) + _body12474_)) + (gx#stx-source _stx12450_)) + (_E1245312462_))))) + (_E1245312462_))))) + (_E1245212508_)))) (define gx#core-expand-extern% - (lambda (_stx11763_) - (let* ((_e1176411771_ _stx11763_) - (_E1176611775_ + (lambda (_stx12354_) + (let* ((_e1235512362_ _stx12354_) + (_E1235712366_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1176411771_))) - (_E1176511855_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1235512362_))) + (_E1235612446_ (lambda () - (if (gx#stx-pair? _e1176411771_) - (let ((_e1176711779_ (gx#syntax-e _e1176411771_))) - (let ((_hd1176811782_ (##car _e1176711779_)) - (_tl1176911784_ (##cdr _e1176711779_))) - (let ((_body11787_ _tl1176911784_)) + (if (gx#stx-pair? _e1235512362_) + (let ((_e1235812370_ (gx#syntax-e _e1235512362_))) + (let ((_hd1235912373_ (##car _e1235812370_)) + (_tl1236012375_ (##cdr _e1235812370_))) + (let ((_body12378_ _tl1236012375_)) (if '#t - (let _lp11789_ ((_rest11791_ _body11787_) - (_r11792_ '())) - (let* ((_e1179311807_ _rest11791_) - (_E1180511811_ + (let _lp12380_ ((_rest12382_ _body12378_) + (_r12383_ '())) + (let* ((_e1238412398_ _rest12382_) + (_E1239612402_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _stx11763_))) - (_E1179511815_ + _stx12354_))) + (_E1238612406_ (lambda () - (if (gx#stx-null? _e1179311807_) + (if (gx#stx-null? _e1238412398_) (if '#t (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _r11792_)) + (reverse _r12383_)) (gx#stx-source - _stx11763_)) - (_E1180511811_)) - (_E1180511811_)))) - (_E1179411851_ + _stx12354_)) + (_E1239612402_)) + (_E1239612402_)))) + (_E1238512442_ (lambda () - (if (gx#stx-pair? _e1179311807_) - (let ((_e1179611819_ + (if (gx#stx-pair? _e1238412398_) + (let ((_e1238712410_ (gx#syntax-e - _e1179311807_))) - (let ((_hd1179711822_ - (##car _e1179611819_)) - (_tl1179811824_ - (##cdr _e1179611819_))) + _e1238412398_))) + (let ((_hd1238812413_ + (##car _e1238712410_)) + (_tl1238912415_ + (##cdr _e1238712410_))) (if (gx#stx-pair? - _hd1179711822_) - (let ((_e1179911827_ + _hd1238812413_) + (let ((_e1239012418_ (gx#syntax-e - _hd1179711822_))) - (let ((_hd1180011830_ + _hd1238812413_))) + (let ((_hd1239112421_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e1179911827_)) - (_tl1180111832_ (##cdr _e1179911827_))) - (let ((_id11835_ _hd1180011830_)) - (if (gx#stx-pair? _tl1180111832_) - (let ((_e1180211837_ (gx#syntax-e _tl1180111832_))) - (let ((_hd1180311840_ (##car _e1180211837_)) - (_tl1180411842_ (##cdr _e1180211837_))) - (let ((_eid11845_ _hd1180311840_)) - (if (gx#stx-null? _tl1180411842_) - (let ((_rest11847_ _tl1179811824_)) - (if (and (gx#identifier? _id11835_) - (gx#identifier? _eid11845_)) - (let ((_eid11849_ - (gx#stx-e _eid11845_))) + (##car _e1239012418_)) + (_tl1239212423_ (##cdr _e1239012418_))) + (let ((_id12426_ _hd1239112421_)) + (if (gx#stx-pair? _tl1239212423_) + (let ((_e1239312428_ (gx#syntax-e _tl1239212423_))) + (let ((_hd1239412431_ (##car _e1239312428_)) + (_tl1239512433_ (##cdr _e1239312428_))) + (let ((_eid12436_ _hd1239412431_)) + (if (gx#stx-null? _tl1239512433_) + (let ((_rest12438_ _tl1238912415_)) + (if (and (gx#identifier? _id12426_) + (gx#identifier? _eid12436_)) + (let ((_eid12440_ + (gx#stx-e _eid12436_))) (gx#core-bind-extern!__0 - _id11835_ - _eid11849_) - (_lp11789_ - _rest11847_ + _id12426_ + _eid12440_) + (_lp12380_ + _rest12438_ (cons (cons (gx#core-quote-syntax__0 - _id11835_) - (cons _eid11849_ '())) - _r11792_))) - (_E1179511815_))) - (_E1179511815_))))) - (_E1179511815_))))) - (_E1179511815_)))) + _id12426_) + (cons _eid12440_ '())) + _r12383_))) + (_E1238612406_))) + (_E1238612406_))))) + (_E1238612406_))))) + (_E1238612406_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1179511815_))))) - (_E1179411851_))) - (_E1176611775_))))) - (_E1176611775_))))) - (_E1176511855_)))) + (_E1238612406_))))) + (_E1238512442_))) + (_E1235712366_))))) + (_E1235712366_))))) + (_E1235612446_)))) (define gx#core-expand-define-values% - (lambda (_stx11709_) - (let* ((_e1171011723_ _stx11709_) - (_E1171211727_ + (lambda (_stx12300_) + (let* ((_e1230112314_ _stx12300_) + (_E1230312318_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1171011723_))) - (_E1171111759_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1230112314_))) + (_E1230212350_ (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 ((_expr11757_ _hd1172011752_)) - (if (gx#stx-null? _tl1172111754_) + (if (gx#stx-pair? _e1230112314_) + (let ((_e1230412322_ (gx#syntax-e _e1230112314_))) + (let ((_hd1230512325_ (##car _e1230412322_)) + (_tl1230612327_ (##cdr _e1230412322_))) + (if (gx#stx-pair? _tl1230612327_) + (let ((_e1230712330_ + (gx#syntax-e _tl1230612327_))) + (let ((_hd1230812333_ (##car _e1230712330_)) + (_tl1230912335_ (##cdr _e1230712330_))) + (let ((_hd12338_ _hd1230812333_)) + (if (gx#stx-pair? _tl1230912335_) + (let ((_e1231012340_ + (gx#syntax-e _tl1230912335_))) + (let ((_hd1231112343_ + (##car _e1231012340_)) + (_tl1231212345_ + (##cdr _e1231012340_))) + (let ((_expr12348_ _hd1231112343_)) + (if (gx#stx-null? _tl1231212345_) (if (gx#core-bind-values? - _hd11747_) + _hd12338_) (begin (gx#core-bind-values!__0 - _hd11747_) + _hd12338_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd11747_) - (cons (gx#core-expand-expression _expr11757_) + _hd12338_) + (cons (gx#core-expand-expression _expr12348_) '()))) - (gx#stx-source _stx11709_))) - (_E1171211727_)) + (gx#stx-source _stx12300_))) + (_E1230312318_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1171211727_))))) - (_E1171211727_))))) - (_E1171211727_)))) - (_E1171211727_))))) - (_E1171111759_)))) + (_E1230312318_))))) + (_E1230312318_))))) + (_E1230312318_)))) + (_E1230312318_))))) + (_E1230212350_)))) (define gx#core-expand-define-runtime% - (lambda (_stx11653_) - (let* ((_e1165411667_ _stx11653_) - (_E1165611671_ + (lambda (_stx12244_) + (let* ((_e1224512258_ _stx12244_) + (_E1224712262_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1165411667_))) - (_E1165511705_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1224512258_))) + (_E1224612296_ (lambda () - (if (gx#stx-pair? _e1165411667_) - (let ((_e1165711675_ (gx#syntax-e _e1165411667_))) - (let ((_hd1165811678_ (##car _e1165711675_)) - (_tl1165911680_ (##cdr _e1165711675_))) - (if (gx#stx-pair? _tl1165911680_) - (let ((_e1166011683_ - (gx#syntax-e _tl1165911680_))) - (let ((_hd1166111686_ (##car _e1166011683_)) - (_tl1166211688_ (##cdr _e1166011683_))) - (let ((_id11691_ _hd1166111686_)) - (if (gx#stx-pair? _tl1166211688_) - (let ((_e1166311693_ - (gx#syntax-e _tl1166211688_))) - (let ((_hd1166411696_ - (##car _e1166311693_)) - (_tl1166511698_ - (##cdr _e1166311693_))) - (let ((_binding-id11701_ - _hd1166411696_)) - (if (gx#stx-null? _tl1166511698_) + (if (gx#stx-pair? _e1224512258_) + (let ((_e1224812266_ (gx#syntax-e _e1224512258_))) + (let ((_hd1224912269_ (##car _e1224812266_)) + (_tl1225012271_ (##cdr _e1224812266_))) + (if (gx#stx-pair? _tl1225012271_) + (let ((_e1225112274_ + (gx#syntax-e _tl1225012271_))) + (let ((_hd1225212277_ (##car _e1225112274_)) + (_tl1225312279_ (##cdr _e1225112274_))) + (let ((_id12282_ _hd1225212277_)) + (if (gx#stx-pair? _tl1225312279_) + (let ((_e1225412284_ + (gx#syntax-e _tl1225312279_))) + (let ((_hd1225512287_ + (##car _e1225412284_)) + (_tl1225612289_ + (##cdr _e1225412284_))) + (let ((_binding-id12292_ + _hd1225512287_)) + (if (gx#stx-null? _tl1225612289_) (if (and (gx#identifier? - _id11691_) + _id12282_) (gx#identifier? - _binding-id11701_)) - (let ((_eid11703_ + _binding-id12292_)) + (let ((_eid12294_ (gx#stx-e - _binding-id11701_))) + _binding-id12292_))) (gx#core-bind-runtime-reference!__0 - _id11691_ - _eid11703_) + _id12282_ + _eid12294_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id11691_) - (cons _eid11703_ '()))))) - (_E1165611671_)) + _id12282_) + (cons _eid12294_ '()))))) + (_E1224712262_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1165611671_))))) - (_E1165611671_))))) - (_E1165611671_)))) - (_E1165611671_))))) - (_E1165511705_)))) + (_E1224712262_))))) + (_E1224712262_))))) + (_E1224712262_)))) + (_E1224712262_))))) + (_E1224612296_)))) (define gx#core-expand-define-syntax% - (lambda (_stx11596_) - (let* ((_e1159711610_ _stx11596_) - (_E1159911614_ + (lambda (_stx12187_) + (let* ((_e1218812201_ _stx12187_) + (_E1219012205_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1159711610_))) - (_E1159811649_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1218812201_))) + (_E1218912240_ (lambda () - (if (gx#stx-pair? _e1159711610_) - (let ((_e1160011618_ (gx#syntax-e _e1159711610_))) - (let ((_hd1160111621_ (##car _e1160011618_)) - (_tl1160211623_ (##cdr _e1160011618_))) - (if (gx#stx-pair? _tl1160211623_) - (let ((_e1160311626_ - (gx#syntax-e _tl1160211623_))) - (let ((_hd1160411629_ (##car _e1160311626_)) - (_tl1160511631_ (##cdr _e1160311626_))) - (let ((_id11634_ _hd1160411629_)) - (if (gx#stx-pair? _tl1160511631_) - (let ((_e1160611636_ - (gx#syntax-e _tl1160511631_))) - (let ((_hd1160711639_ - (##car _e1160611636_)) - (_tl1160811641_ - (##cdr _e1160611636_))) - (let ((_expr11644_ _hd1160711639_)) - (if (gx#stx-null? _tl1160811641_) + (if (gx#stx-pair? _e1218812201_) + (let ((_e1219112209_ (gx#syntax-e _e1218812201_))) + (let ((_hd1219212212_ (##car _e1219112209_)) + (_tl1219312214_ (##cdr _e1219112209_))) + (if (gx#stx-pair? _tl1219312214_) + (let ((_e1219412217_ + (gx#syntax-e _tl1219312214_))) + (let ((_hd1219512220_ (##car _e1219412217_)) + (_tl1219612222_ (##cdr _e1219412217_))) + (let ((_id12225_ _hd1219512220_)) + (if (gx#stx-pair? _tl1219612222_) + (let ((_e1219712227_ + (gx#syntax-e _tl1219612222_))) + (let ((_hd1219812230_ + (##car _e1219712227_)) + (_tl1219912232_ + (##cdr _e1219712227_))) + (let ((_expr12235_ _hd1219812230_)) + (if (gx#stx-null? _tl1219912232_) (if (gx#identifier? - _id11634_) - (let ((_g12555_ + _id12225_) + (let ((_g13146_ (gx#core-expand-expression+1 - _expr11644_))) + _expr12235_))) (begin - (let ((_g12556_ + (let ((_g13147_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g12555_) - (##vector-length _g12555_) + (if (##values? _g13146_) + (##vector-length _g13146_) 1))) - (if (not (##fx= _g12556_ 2)) - (error "Context expects 2 values" _g12556_))) - (let ((_e-stx11646_ (##vector-ref _g12555_ 0)) - (_e11647_ (##vector-ref _g12555_ 1))) + (if (not (##fx= _g13147_ 2)) + (error "Context expects 2 values" _g13147_))) + (let ((_e-stx12237_ (##vector-ref _g13146_ 0)) + (_e12238_ (##vector-ref _g13146_ 1))) (begin - (gx#core-bind-syntax!__0 _id11634_ _e11647_) + (gx#core-bind-syntax!__0 _id12225_ _e12238_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _id11634_) - (cons _e-stx11646_ '()))) - (gx#stx-source _stx11596_)))))) - (_E1159911614_)) + (cons (gx#core-quote-syntax__0 _id12225_) + (cons _e-stx12237_ '()))) + (gx#stx-source _stx12187_)))))) + (_E1219012205_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1159911614_))))) - (_E1159911614_))))) - (_E1159911614_)))) - (_E1159911614_))))) - (_E1159811649_)))) + (_E1219012205_))))) + (_E1219012205_))))) + (_E1219012205_)))) + (_E1219012205_))))) + (_E1218912240_)))) (define gx#core-expand-define-alias% - (lambda (_stx11540_) - (let* ((_e1154111554_ _stx11540_) - (_E1154311558_ + (lambda (_stx12131_) + (let* ((_e1213212145_ _stx12131_) + (_E1213412149_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1154111554_))) - (_E1154211592_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1213212145_))) + (_E1213312183_ (lambda () - (if (gx#stx-pair? _e1154111554_) - (let ((_e1154411562_ (gx#syntax-e _e1154111554_))) - (let ((_hd1154511565_ (##car _e1154411562_)) - (_tl1154611567_ (##cdr _e1154411562_))) - (if (gx#stx-pair? _tl1154611567_) - (let ((_e1154711570_ - (gx#syntax-e _tl1154611567_))) - (let ((_hd1154811573_ (##car _e1154711570_)) - (_tl1154911575_ (##cdr _e1154711570_))) - (let ((_id11578_ _hd1154811573_)) - (if (gx#stx-pair? _tl1154911575_) - (let ((_e1155011580_ - (gx#syntax-e _tl1154911575_))) - (let ((_hd1155111583_ - (##car _e1155011580_)) - (_tl1155211585_ - (##cdr _e1155011580_))) - (let ((_alias-id11588_ - _hd1155111583_)) - (if (gx#stx-null? _tl1155211585_) + (if (gx#stx-pair? _e1213212145_) + (let ((_e1213512153_ (gx#syntax-e _e1213212145_))) + (let ((_hd1213612156_ (##car _e1213512153_)) + (_tl1213712158_ (##cdr _e1213512153_))) + (if (gx#stx-pair? _tl1213712158_) + (let ((_e1213812161_ + (gx#syntax-e _tl1213712158_))) + (let ((_hd1213912164_ (##car _e1213812161_)) + (_tl1214012166_ (##cdr _e1213812161_))) + (let ((_id12169_ _hd1213912164_)) + (if (gx#stx-pair? _tl1214012166_) + (let ((_e1214112171_ + (gx#syntax-e _tl1214012166_))) + (let ((_hd1214212174_ + (##car _e1214112171_)) + (_tl1214312176_ + (##cdr _e1214112171_))) + (let ((_alias-id12179_ + _hd1214212174_)) + (if (gx#stx-null? _tl1214312176_) (if (and (gx#identifier? - _id11578_) + _id12169_) (gx#identifier? - _alias-id11588_)) - (let ((_alias-id11590_ + _alias-id12179_)) + (let ((_alias-id12181_ (gx#core-quote-syntax__0 - _alias-id11588_))) + _alias-id12179_))) (gx#core-bind-alias!__0 - _id11578_ - _alias-id11590_) + _id12169_ + _alias-id12181_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id11578_) - (cons _alias-id11590_ '()))))) - (_E1154311558_)) + _id12169_) + (cons _alias-id12181_ '()))))) + (_E1213412149_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1154311558_))))) - (_E1154311558_))))) - (_E1154311558_)))) - (_E1154311558_))))) - (_E1154211592_)))) + (_E1213412149_))))) + (_E1213412149_))))) + (_E1213412149_)))) + (_E1213412149_))))) + (_E1213312183_)))) (define gx#core-expand-lambda%__% - (lambda (_stx11483_ _wrap?11484_) - (let* ((_e1148511495_ _stx11483_) - (_E1148711499_ + (lambda (_stx12074_ _wrap?12075_) + (let* ((_e1207612086_ _stx12074_) + (_E1207812090_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1148511495_))) - (_E1148611526_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1207612086_))) + (_E1207712117_ (lambda () - (if (gx#stx-pair? _e1148511495_) - (let ((_e1148811503_ (gx#syntax-e _e1148511495_))) - (let ((_hd1148911506_ (##car _e1148811503_)) - (_tl1149011508_ (##cdr _e1148811503_))) - (if (gx#stx-pair? _tl1149011508_) - (let ((_e1149111511_ - (gx#syntax-e _tl1149011508_))) - (let ((_hd1149211514_ (##car _e1149111511_)) - (_tl1149311516_ (##cdr _e1149111511_))) - (let* ((_hd11519_ _hd1149211514_) - (_body11521_ _tl1149311516_)) - (if (gx#core-bind-values? _hd11519_) + (if (gx#stx-pair? _e1207612086_) + (let ((_e1207912094_ (gx#syntax-e _e1207612086_))) + (let ((_hd1208012097_ (##car _e1207912094_)) + (_tl1208112099_ (##cdr _e1207912094_))) + (if (gx#stx-pair? _tl1208112099_) + (let ((_e1208212102_ + (gx#syntax-e _tl1208112099_))) + (let ((_hd1208312105_ (##car _e1208212102_)) + (_tl1208412107_ (##cdr _e1208212102_))) + (let* ((_hd12110_ _hd1208312105_) + (_body12112_ _tl1208412107_)) + (if (gx#core-bind-values? _hd12110_) (call-with-parameters (lambda () - (gx#core-bind-values!__0 _hd11519_) - (let ((_body11524_ + (gx#core-bind-values!__0 _hd12110_) + (let ((_body12115_ (cons (gx#core-quote-bind-values - _hd11519_) + _hd12110_) (cons (gx#core-expand-local-block - _stx11483_ - _body11521_) + _stx12074_ + _body12112_) '())))) - (if _wrap?11484_ + (if _wrap?12075_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _body11524_) - (gx#stx-source _stx11483_)) - _body11524_))) + _body12115_) + (gx#stx-source _stx12074_)) + _body12115_))) gx#current-expander-context - (let ((__obj12548 + (let ((__obj13139 (make-object gx#local-context::t '5))) (gx#local-context:::init!__0 - __obj12548) - __obj12548)) - (_E1148711499_))))) - (_E1148711499_)))) - (_E1148711499_))))) - (_E1148611526_)))) + __obj13139) + __obj13139)) + (_E1207812090_))))) + (_E1207812090_)))) + (_E1207812090_))))) + (_E1207712117_)))) (define gx#core-expand-lambda%__0 - (lambda (_stx11533_) - (let ((_wrap?11535_ '#t)) - (gx#core-expand-lambda%__% _stx11533_ _wrap?11535_)))) + (lambda (_stx12124_) + (let ((_wrap?12126_ '#t)) + (gx#core-expand-lambda%__% _stx12124_ _wrap?12126_)))) (define gx#core-expand-lambda% - (lambda _g12558_ - (let ((_g12557_ (##length _g12558_))) - (cond ((##fx= _g12557_ 1) (apply gx#core-expand-lambda%__0 _g12558_)) - ((##fx= _g12557_ 2) (apply gx#core-expand-lambda%__% _g12558_)) + (lambda _g13149_ + (let ((_g13148_ (##length _g13149_))) + (cond ((##fx= _g13148_ 1) + (apply (lambda (_stx12124_) + (gx#core-expand-lambda%__0 _stx12124_)) + _g13149_)) + ((##fx= _g13148_ 2) + (apply (lambda (_stx12128_ _wrap?12129_) + (gx#core-expand-lambda%__% _stx12128_ _wrap?12129_)) + _g13149_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g12558_)))))) + _g13149_)))))) (define gx#core-expand-case-lambda% - (lambda (_stx11447_) - (let* ((_e1144811455_ _stx11447_) - (_E1145011459_ + (lambda (_stx12038_) + (let* ((_e1203912046_ _stx12038_) + (_E1204112050_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1144811455_))) - (_E1144911478_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1203912046_))) + (_E1204012069_ (lambda () - (if (gx#stx-pair? _e1144811455_) - (let ((_e1145111463_ (gx#syntax-e _e1144811455_))) - (let ((_hd1145211466_ (##car _e1145111463_)) - (_tl1145311468_ (##cdr _e1145111463_))) - (let ((_clauses11471_ _tl1145311468_)) - (if (gx#stx-list? _clauses11471_) + (if (gx#stx-pair? _e1203912046_) + (let ((_e1204212054_ (gx#syntax-e _e1203912046_))) + (let ((_hd1204312057_ (##car _e1204212054_)) + (_tl1204412059_ (##cdr _e1204212054_))) + (let ((_clauses12062_ _tl1204412059_)) + (if (gx#stx-list? _clauses12062_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_clause11473_) + (lambda (_clause12064_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _clause11473_) - (let ((_$e11475_ - (gx#stx-source _clause11473_))) - (if _$e11475_ - _$e11475_ - (gx#stx-source _stx11447_)))) + _clause12064_) + (let ((_$e12066_ + (gx#stx-source _clause12064_))) + (if _$e12066_ + _$e12066_ + (gx#stx-source _stx12038_)))) '#f)) - _clauses11471_)) - (gx#stx-source _stx11447_)) - (_E1145011459_))))) - (_E1145011459_))))) - (_E1144911478_)))) + _clauses12062_)) + (gx#stx-source _stx12038_)) + (_E1204112050_))))) + (_E1204112050_))))) + (_E1204012069_)))) (define gx#core-expand-let-values% - (lambda (_stx11401_) - (let* ((_e1140211412_ _stx11401_) - (_E1140411416_ + (lambda (_stx11992_) + (let* ((_e1199312003_ _stx11992_) + (_E1199512007_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1140211412_))) - (_E1140311443_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1199312003_))) + (_E1199412034_ (lambda () - (if (gx#stx-pair? _e1140211412_) - (let ((_e1140511420_ (gx#syntax-e _e1140211412_))) - (let ((_hd1140611423_ (##car _e1140511420_)) - (_tl1140711425_ (##cdr _e1140511420_))) - (if (gx#stx-pair? _tl1140711425_) - (let ((_e1140811428_ - (gx#syntax-e _tl1140711425_))) - (let ((_hd1140911431_ (##car _e1140811428_)) - (_tl1141011433_ (##cdr _e1140811428_))) - (let* ((_hd11436_ _hd1140911431_) - (_body11438_ _tl1141011433_)) - (if (gx#core-expand-let-bind? _hd11436_) - (let ((_expressions11440_ + (if (gx#stx-pair? _e1199312003_) + (let ((_e1199612011_ (gx#syntax-e _e1199312003_))) + (let ((_hd1199712014_ (##car _e1199612011_)) + (_tl1199812016_ (##cdr _e1199612011_))) + (if (gx#stx-pair? _tl1199812016_) + (let ((_e1199912019_ + (gx#syntax-e _tl1199812016_))) + (let ((_hd1200012022_ (##car _e1199912019_)) + (_tl1200112024_ (##cdr _e1199912019_))) + (let* ((_hd12027_ _hd1200012022_) + (_body12029_ _tl1200112024_)) + (if (gx#core-expand-let-bind? _hd12027_) + (let ((_expressions12031_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd11436_))) + _hd12027_))) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd11436_) + _hd12027_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd11436_ - _expressions11440_) + _hd12027_ + _expressions12031_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _stx11401_ - _body11438_) + _stx11992_ + _body12029_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx11401_))) + (gx#stx-source _stx11992_))) gx#current-expander-context - (let ((__obj12549 + (let ((__obj13140 (make-object gx#local-context::t '5))) (gx#local-context:::init!__0 - __obj12549) - __obj12549))) - (_E1140411416_))))) - (_E1140411416_)))) - (_E1140411416_))))) - (_E1140311443_)))) + __obj13140) + __obj13140))) + (_E1199512007_))))) + (_E1199512007_)))) + (_E1199512007_))))) + (_E1199412034_)))) (define gx#core-expand-letrec-values%__% - (lambda (_stx11346_ _form11347_) - (let* ((_e1134811358_ _stx11346_) - (_E1135011362_ + (lambda (_stx11937_ _form11938_) + (let* ((_e1193911949_ _stx11937_) + (_E1194111953_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1134811358_))) - (_E1134911387_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1193911949_))) + (_E1194011978_ (lambda () - (if (gx#stx-pair? _e1134811358_) - (let ((_e1135111366_ (gx#syntax-e _e1134811358_))) - (let ((_hd1135211369_ (##car _e1135111366_)) - (_tl1135311371_ (##cdr _e1135111366_))) - (if (gx#stx-pair? _tl1135311371_) - (let ((_e1135411374_ - (gx#syntax-e _tl1135311371_))) - (let ((_hd1135511377_ (##car _e1135411374_)) - (_tl1135611379_ (##cdr _e1135411374_))) - (let* ((_hd11382_ _hd1135511377_) - (_body11384_ _tl1135611379_)) - (if (gx#core-expand-let-bind? _hd11382_) + (if (gx#stx-pair? _e1193911949_) + (let ((_e1194211957_ (gx#syntax-e _e1193911949_))) + (let ((_hd1194311960_ (##car _e1194211957_)) + (_tl1194411962_ (##cdr _e1194211957_))) + (if (gx#stx-pair? _tl1194411962_) + (let ((_e1194511965_ + (gx#syntax-e _tl1194411962_))) + (let ((_hd1194611968_ (##car _e1194511965_)) + (_tl1194711970_ (##cdr _e1194511965_))) + (let* ((_hd11973_ _hd1194611968_) + (_body11975_ _tl1194711970_)) + (if (gx#core-expand-let-bind? _hd11973_) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd11382_) + _hd11973_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _form11347_) + _form11938_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd11382_ + _hd11973_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd11382_)) + _hd11973_)) (cons (gx#core-expand-local-block - _stx11346_ - _body11384_) + _stx11937_ + _body11975_) '()))) - (gx#stx-source _stx11346_))) + (gx#stx-source _stx11937_))) gx#current-expander-context - (let ((__obj12550 + (let ((__obj13141 (make-object gx#local-context::t '5))) (gx#local-context:::init!__0 - __obj12550) - __obj12550)) - (_E1135011362_))))) - (_E1135011362_)))) - (_E1135011362_))))) - (_E1134911387_)))) + __obj13141) + __obj13141)) + (_E1194111953_))))) + (_E1194111953_)))) + (_E1194111953_))))) + (_E1194011978_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_stx11394_) - (let ((_form11396_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _stx11394_ _form11396_)))) + (lambda (_stx11985_) + (let ((_form11987_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _stx11985_ _form11987_)))) (define gx#core-expand-letrec-values% - (lambda _g12560_ - (let ((_g12559_ (##length _g12560_))) - (cond ((##fx= _g12559_ 1) - (apply gx#core-expand-letrec-values%__0 _g12560_)) - ((##fx= _g12559_ 2) - (apply gx#core-expand-letrec-values%__% _g12560_)) + (lambda _g13151_ + (let ((_g13150_ (##length _g13151_))) + (cond ((##fx= _g13150_ 1) + (apply (lambda (_stx11985_) + (gx#core-expand-letrec-values%__0 _stx11985_)) + _g13151_)) + ((##fx= _g13150_ 2) + (apply (lambda (_stx11989_ _form11990_) + (gx#core-expand-letrec-values%__% + _stx11989_ + _form11990_)) + _g13151_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g12560_)))))) + _g13151_)))))) (define gx#core-expand-letrec*-values% - (lambda (_stx11343_) - (gx#core-expand-letrec-values%__% _stx11343_ '%#letrec*-values))) + (lambda (_stx11934_) + (gx#core-expand-letrec-values%__% _stx11934_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_stx11300_) - (if (gx#stx-list? _stx11300_) + (lambda (_stx11891_) + (if (gx#stx-list? _stx11891_) (gx#stx-andmap - (lambda (_bind11302_) - (let* ((_e1130311313_ _bind11302_) - (_E1130511317_ (lambda () '#f)) - (_E1130411339_ + (lambda (_bind11893_) + (let* ((_e1189411904_ _bind11893_) + (_E1189611908_ (lambda () '#f)) + (_E1189511930_ (lambda () - (if (gx#stx-pair? _e1130311313_) - (let ((_e1130611321_ (gx#syntax-e _e1130311313_))) - (let ((_hd1130711324_ (##car _e1130611321_)) - (_tl1130811326_ (##cdr _e1130611321_))) - (let ((_hd11329_ _hd1130711324_)) - (if (gx#stx-pair? _tl1130811326_) - (let ((_e1130911331_ - (gx#syntax-e _tl1130811326_))) - (let ((_hd1131011334_ - (##car _e1130911331_)) - (_tl1131111336_ - (##cdr _e1130911331_))) - (if (gx#stx-null? _tl1131111336_) + (if (gx#stx-pair? _e1189411904_) + (let ((_e1189711912_ (gx#syntax-e _e1189411904_))) + (let ((_hd1189811915_ (##car _e1189711912_)) + (_tl1189911917_ (##cdr _e1189711912_))) + (let ((_hd11920_ _hd1189811915_)) + (if (gx#stx-pair? _tl1189911917_) + (let ((_e1190011922_ + (gx#syntax-e _tl1189911917_))) + (let ((_hd1190111925_ + (##car _e1190011922_)) + (_tl1190211927_ + (##cdr _e1190011922_))) + (if (gx#stx-null? _tl1190211927_) (if '#t (gx#core-bind-values? - _hd11329_) - (_E1130511317_)) - (_E1130511317_)))) - (_E1130511317_))))) - (_E1130511317_))))) - (_E1130411339_))) - _stx11300_) + _hd11920_) + (_E1189611908_)) + (_E1189611908_)))) + (_E1189611908_))))) + (_E1189611908_))))) + (_E1189511930_))) + _stx11891_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_bind11259_) - (let* ((_e1126011270_ _bind11259_) - (_E1126211274_ + (lambda (_bind11850_) + (let* ((_e1185111861_ _bind11850_) + (_E1185311865_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1126011270_))) - (_E1126111296_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1185111861_))) + (_E1185211887_ (lambda () - (if (gx#stx-pair? _e1126011270_) - (let ((_e1126311278_ (gx#syntax-e _e1126011270_))) - (let ((_hd1126411281_ (##car _e1126311278_)) - (_tl1126511283_ (##cdr _e1126311278_))) - (if (gx#stx-pair? _tl1126511283_) - (let ((_e1126611286_ - (gx#syntax-e _tl1126511283_))) - (let ((_hd1126711289_ (##car _e1126611286_)) - (_tl1126811291_ (##cdr _e1126611286_))) - (let ((_expr11294_ _hd1126711289_)) - (if (gx#stx-null? _tl1126811291_) + (if (gx#stx-pair? _e1185111861_) + (let ((_e1185411869_ (gx#syntax-e _e1185111861_))) + (let ((_hd1185511872_ (##car _e1185411869_)) + (_tl1185611874_ (##cdr _e1185411869_))) + (if (gx#stx-pair? _tl1185611874_) + (let ((_e1185711877_ + (gx#syntax-e _tl1185611874_))) + (let ((_hd1185811880_ (##car _e1185711877_)) + (_tl1185911882_ (##cdr _e1185711877_))) + (let ((_expr11885_ _hd1185811880_)) + (if (gx#stx-null? _tl1185911882_) (if '#t (gx#core-expand-expression - _expr11294_) - (_E1126211274_)) - (_E1126211274_))))) - (_E1126211274_)))) - (_E1126211274_))))) - (_E1126111296_)))) + _expr11885_) + (_E1185311865_)) + (_E1185311865_))))) + (_E1185311865_)))) + (_E1185311865_))))) + (_E1185211887_)))) (define gx#core-expand-let-bind-values! - (lambda (_bind11218_) - (let* ((_e1121911229_ _bind11218_) - (_E1122111233_ + (lambda (_bind11809_) + (let* ((_e1181011820_ _bind11809_) + (_E1181211824_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1121911229_))) - (_E1122011255_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1181011820_))) + (_E1181111846_ (lambda () - (if (gx#stx-pair? _e1121911229_) - (let ((_e1122211237_ (gx#syntax-e _e1121911229_))) - (let ((_hd1122311240_ (##car _e1122211237_)) - (_tl1122411242_ (##cdr _e1122211237_))) - (let ((_hd11245_ _hd1122311240_)) - (if (gx#stx-pair? _tl1122411242_) - (let ((_e1122511247_ - (gx#syntax-e _tl1122411242_))) - (let ((_hd1122611250_ (##car _e1122511247_)) - (_tl1122711252_ (##cdr _e1122511247_))) - (if (gx#stx-null? _tl1122711252_) + (if (gx#stx-pair? _e1181011820_) + (let ((_e1181311828_ (gx#syntax-e _e1181011820_))) + (let ((_hd1181411831_ (##car _e1181311828_)) + (_tl1181511833_ (##cdr _e1181311828_))) + (let ((_hd11836_ _hd1181411831_)) + (if (gx#stx-pair? _tl1181511833_) + (let ((_e1181611838_ + (gx#syntax-e _tl1181511833_))) + (let ((_hd1181711841_ (##car _e1181611838_)) + (_tl1181811843_ (##cdr _e1181611838_))) + (if (gx#stx-null? _tl1181811843_) (if '#t - (gx#core-bind-values!__0 _hd11245_) - (_E1122111233_)) - (_E1122111233_)))) - (_E1122111233_))))) - (_E1122111233_))))) - (_E1122011255_)))) + (gx#core-bind-values!__0 _hd11836_) + (_E1181211824_)) + (_E1181211824_)))) + (_E1181211824_))))) + (_E1181211824_))))) + (_E1181111846_)))) (define gx#core-expand-let-bind-quote - (lambda (_bind11176_ _expr11177_) - (let* ((_e1117811188_ _bind11176_) - (_E1118011192_ + (lambda (_bind11767_ _expr11768_) + (let* ((_e1176911779_ _bind11767_) + (_E1177111783_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1117811188_))) - (_E1117911214_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1176911779_))) + (_E1177011805_ (lambda () - (if (gx#stx-pair? _e1117811188_) - (let ((_e1118111196_ (gx#syntax-e _e1117811188_))) - (let ((_hd1118211199_ (##car _e1118111196_)) - (_tl1118311201_ (##cdr _e1118111196_))) - (let ((_hd11204_ _hd1118211199_)) - (if (gx#stx-pair? _tl1118311201_) - (let ((_e1118411206_ - (gx#syntax-e _tl1118311201_))) - (let ((_hd1118511209_ (##car _e1118411206_)) - (_tl1118611211_ (##cdr _e1118411206_))) - (if (gx#stx-null? _tl1118611211_) + (if (gx#stx-pair? _e1176911779_) + (let ((_e1177211787_ (gx#syntax-e _e1176911779_))) + (let ((_hd1177311790_ (##car _e1177211787_)) + (_tl1177411792_ (##cdr _e1177211787_))) + (let ((_hd11795_ _hd1177311790_)) + (if (gx#stx-pair? _tl1177411792_) + (let ((_e1177511797_ + (gx#syntax-e _tl1177411792_))) + (let ((_hd1177611800_ (##car _e1177511797_)) + (_tl1177711802_ (##cdr _e1177511797_))) + (if (gx#stx-null? _tl1177711802_) (if '#t (cons (gx#core-quote-bind-values - _hd11204_) - (cons _expr11177_ '())) - (_E1118011192_)) - (_E1118011192_)))) - (_E1118011192_))))) - (_E1118011192_))))) - (_E1117911214_)))) + _hd11795_) + (cons _expr11768_ '())) + (_E1177111783_)) + (_E1177111783_)))) + (_E1177111783_))))) + (_E1177111783_))))) + (_E1177011805_)))) (define gx#core-expand-let-syntax% - (lambda (_stx11130_) - (let* ((_e1113111141_ _stx11130_) - (_E1113311145_ + (lambda (_stx11721_) + (let* ((_e1172211732_ _stx11721_) + (_E1172411736_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1113111141_))) - (_E1113211172_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1172211732_))) + (_E1172311763_ (lambda () - (if (gx#stx-pair? _e1113111141_) - (let ((_e1113411149_ (gx#syntax-e _e1113111141_))) - (let ((_hd1113511152_ (##car _e1113411149_)) - (_tl1113611154_ (##cdr _e1113411149_))) - (if (gx#stx-pair? _tl1113611154_) - (let ((_e1113711157_ - (gx#syntax-e _tl1113611154_))) - (let ((_hd1113811160_ (##car _e1113711157_)) - (_tl1113911162_ (##cdr _e1113711157_))) - (let* ((_hd11165_ _hd1113811160_) - (_body11167_ _tl1113911162_)) + (if (gx#stx-pair? _e1172211732_) + (let ((_e1172511740_ (gx#syntax-e _e1172211732_))) + (let ((_hd1172611743_ (##car _e1172511740_)) + (_tl1172711745_ (##cdr _e1172511740_))) + (if (gx#stx-pair? _tl1172711745_) + (let ((_e1172811748_ + (gx#syntax-e _tl1172711745_))) + (let ((_hd1172911751_ (##car _e1172811748_)) + (_tl1173011753_ (##cdr _e1172811748_))) + (let* ((_hd11756_ _hd1172911751_) + (_body11758_ _tl1173011753_)) (if (gx#core-expand-let-bind-syntax? - _hd11165_) - (let ((_expanders11169_ + _hd11756_) + (let ((_expanders11760_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd11165_))) + _hd11756_))) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd11165_ - _expanders11169_) + _hd11756_ + _expanders11760_) (gx#core-expand-local-block - _stx11130_ - _body11167_)) + _stx11721_ + _body11758_)) gx#current-expander-context - (let ((__obj12551 + (let ((__obj13142 (make-object gx#local-context::t '5))) (gx#local-context:::init!__0 - __obj12551) - __obj12551))) - (_E1113311145_))))) - (_E1113311145_)))) - (_E1113311145_))))) - (_E1113211172_)))) + __obj13142) + __obj13142))) + (_E1172411736_))))) + (_E1172411736_)))) + (_E1172411736_))))) + (_E1172311763_)))) (define gx#core-expand-letrec-syntax% - (lambda (_stx11079_) - (let* ((_e1108011090_ _stx11079_) - (_E1108211094_ + (lambda (_stx11670_) + (let* ((_e1167111681_ _stx11670_) + (_E1167311685_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1108011090_))) - (_E1108111126_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1167111681_))) + (_E1167211717_ (lambda () - (if (gx#stx-pair? _e1108011090_) - (let ((_e1108311098_ (gx#syntax-e _e1108011090_))) - (let ((_hd1108411101_ (##car _e1108311098_)) - (_tl1108511103_ (##cdr _e1108311098_))) - (if (gx#stx-pair? _tl1108511103_) - (let ((_e1108611106_ - (gx#syntax-e _tl1108511103_))) - (let ((_hd1108711109_ (##car _e1108611106_)) - (_tl1108811111_ (##cdr _e1108611106_))) - (let* ((_hd11114_ _hd1108711109_) - (_body11116_ _tl1108811111_)) + (if (gx#stx-pair? _e1167111681_) + (let ((_e1167411689_ (gx#syntax-e _e1167111681_))) + (let ((_hd1167511692_ (##car _e1167411689_)) + (_tl1167611694_ (##cdr _e1167411689_))) + (if (gx#stx-pair? _tl1167611694_) + (let ((_e1167711697_ + (gx#syntax-e _tl1167611694_))) + (let ((_hd1167811700_ (##car _e1167711697_)) + (_tl1167911702_ (##cdr _e1167711697_))) + (let* ((_hd11705_ _hd1167811700_) + (_body11707_ _tl1167911702_)) (if (gx#core-expand-let-bind-syntax? - _hd11114_) + _hd11705_) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd11114_ + _hd11705_ (make-list - (gx#stx-length _hd11114_) + (gx#stx-length _hd11705_) '#!void)) (gx#stx-for-each2 - (lambda (_g1111811121_ - _g1111911123_) + (lambda (_g1170911712_ + _g1171011714_) (gx#core-expand-let-bind-syntax!__% - _g1111811121_ - _g1111911123_ + _g1170911712_ + _g1171011714_ '#t)) - _hd11114_ + _hd11705_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd11114_)) + _hd11705_)) (gx#core-expand-local-block - _stx11079_ - _body11116_)) + _stx11670_ + _body11707_)) gx#current-expander-context - (let ((__obj12552 + (let ((__obj13143 (make-object gx#local-context::t '5))) (gx#local-context:::init!__0 - __obj12552) - __obj12552)) - (_E1108211094_))))) - (_E1108211094_)))) - (_E1108211094_))))) - (_E1108111126_)))) + __obj13143) + __obj13143)) + (_E1167311685_))))) + (_E1167311685_)))) + (_E1167311685_))))) + (_E1167211717_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_stx11036_) - (if (gx#stx-list? _stx11036_) + (lambda (_stx11627_) + (if (gx#stx-list? _stx11627_) (gx#stx-andmap - (lambda (_bind11038_) - (let* ((_e1103911049_ _bind11038_) - (_E1104111053_ (lambda () '#f)) - (_E1104011075_ + (lambda (_bind11629_) + (let* ((_e1163011640_ _bind11629_) + (_E1163211644_ (lambda () '#f)) + (_E1163111666_ (lambda () - (if (gx#stx-pair? _e1103911049_) - (let ((_e1104211057_ (gx#syntax-e _e1103911049_))) - (let ((_hd1104311060_ (##car _e1104211057_)) - (_tl1104411062_ (##cdr _e1104211057_))) - (let ((_hd11065_ _hd1104311060_)) - (if (gx#stx-pair? _tl1104411062_) - (let ((_e1104511067_ - (gx#syntax-e _tl1104411062_))) - (let ((_hd1104611070_ - (##car _e1104511067_)) - (_tl1104711072_ - (##cdr _e1104511067_))) - (if (gx#stx-null? _tl1104711072_) + (if (gx#stx-pair? _e1163011640_) + (let ((_e1163311648_ (gx#syntax-e _e1163011640_))) + (let ((_hd1163411651_ (##car _e1163311648_)) + (_tl1163511653_ (##cdr _e1163311648_))) + (let ((_hd11656_ _hd1163411651_)) + (if (gx#stx-pair? _tl1163511653_) + (let ((_e1163611658_ + (gx#syntax-e _tl1163511653_))) + (let ((_hd1163711661_ + (##car _e1163611658_)) + (_tl1163811663_ + (##cdr _e1163611658_))) + (if (gx#stx-null? _tl1163811663_) (if '#t - (gx#identifier? _hd11065_) - (_E1104111053_)) - (_E1104111053_)))) - (_E1104111053_))))) - (_E1104111053_))))) - (_E1104011075_))) - _stx11036_) + (gx#identifier? _hd11656_) + (_E1163211644_)) + (_E1163211644_)))) + (_E1163211644_))))) + (_E1163211644_))))) + (_E1163111666_))) + _stx11627_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_bind10993_) - (let* ((_e1099411004_ _bind10993_) - (_E1099611008_ + (lambda (_bind11584_) + (let* ((_e1158511595_ _bind11584_) + (_E1158711599_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1099411004_))) - (_E1099511032_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1158511595_))) + (_E1158611623_ (lambda () - (if (gx#stx-pair? _e1099411004_) - (let ((_e1099711012_ (gx#syntax-e _e1099411004_))) - (let ((_hd1099811015_ (##car _e1099711012_)) - (_tl1099911017_ (##cdr _e1099711012_))) - (if (gx#stx-pair? _tl1099911017_) - (let ((_e1100011020_ - (gx#syntax-e _tl1099911017_))) - (let ((_hd1100111023_ (##car _e1100011020_)) - (_tl1100211025_ (##cdr _e1100011020_))) - (let ((_expr11028_ _hd1100111023_)) - (if (gx#stx-null? _tl1100211025_) + (if (gx#stx-pair? _e1158511595_) + (let ((_e1158811603_ (gx#syntax-e _e1158511595_))) + (let ((_hd1158911606_ (##car _e1158811603_)) + (_tl1159011608_ (##cdr _e1158811603_))) + (if (gx#stx-pair? _tl1159011608_) + (let ((_e1159111611_ + (gx#syntax-e _tl1159011608_))) + (let ((_hd1159211614_ (##car _e1159111611_)) + (_tl1159311616_ (##cdr _e1159111611_))) + (let ((_expr11619_ _hd1159211614_)) + (if (gx#stx-null? _tl1159311616_) (if '#t - (let ((_g12561_ + (let ((_g13152_ (gx#core-expand-expression+1 - _expr11028_))) + _expr11619_))) (begin - (let ((_g12562_ - (if (##values? _g12561_) + (let ((_g13153_ + (if (##values? _g13152_) (##vector-length - _g12561_) + _g13152_) 1))) - (if (not (##fx= _g12562_ 2)) + (if (not (##fx= _g13153_ 2)) (error "Context expects 2 values" - _g12562_))) - (let ((_e11030_ + _g13153_))) + (let ((_e11621_ (##vector-ref - _g12561_ + _g13152_ 1))) - _e11030_))) - (_E1099611008_)) - (_E1099611008_))))) - (_E1099611008_)))) - (_E1099611008_))))) - (_E1099511032_)))) + _e11621_))) + (_E1158711599_)) + (_E1158711599_))))) + (_E1158711599_)))) + (_E1158711599_))))) + (_E1158611623_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_bind10938_ _e10939_ _rebind?10940_) - (let* ((_e1094110951_ _bind10938_) - (_E1094310955_ + (lambda (_bind11529_ _e11530_ _rebind?11531_) + (let* ((_e1153211542_ _bind11529_) + (_E1153411546_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1094110951_))) - (_E1094210977_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1153211542_))) + (_E1153311568_ (lambda () - (if (gx#stx-pair? _e1094110951_) - (let ((_e1094410959_ (gx#syntax-e _e1094110951_))) - (let ((_hd1094510962_ (##car _e1094410959_)) - (_tl1094610964_ (##cdr _e1094410959_))) - (let ((_id10967_ _hd1094510962_)) - (if (gx#stx-pair? _tl1094610964_) - (let ((_e1094710969_ - (gx#syntax-e _tl1094610964_))) - (let ((_hd1094810972_ (##car _e1094710969_)) - (_tl1094910974_ (##cdr _e1094710969_))) - (if (gx#stx-null? _tl1094910974_) + (if (gx#stx-pair? _e1153211542_) + (let ((_e1153511550_ (gx#syntax-e _e1153211542_))) + (let ((_hd1153611553_ (##car _e1153511550_)) + (_tl1153711555_ (##cdr _e1153511550_))) + (let ((_id11558_ _hd1153611553_)) + (if (gx#stx-pair? _tl1153711555_) + (let ((_e1153811560_ + (gx#syntax-e _tl1153711555_))) + (let ((_hd1153911563_ (##car _e1153811560_)) + (_tl1154011565_ (##cdr _e1153811560_))) + (if (gx#stx-null? _tl1154011565_) (if '#t (gx#core-bind-syntax!__1 - _id10967_ - _e10939_ - _rebind?10940_) - (_E1094310955_)) - (_E1094310955_)))) - (_E1094310955_))))) - (_E1094310955_))))) - (_E1094210977_)))) + _id11558_ + _e11530_ + _rebind?11531_) + (_E1153411546_)) + (_E1153411546_)))) + (_E1153411546_))))) + (_E1153411546_))))) + (_E1153311568_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_bind10984_ _e10985_) - (let ((_rebind?10987_ '#f)) + (lambda (_bind11575_ _e11576_) + (let ((_rebind?11578_ '#f)) (gx#core-expand-let-bind-syntax!__% - _bind10984_ - _e10985_ - _rebind?10987_)))) + _bind11575_ + _e11576_ + _rebind?11578_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g12564_ - (let ((_g12563_ (##length _g12564_))) - (cond ((##fx= _g12563_ 2) - (apply gx#core-expand-let-bind-syntax!__0 _g12564_)) - ((##fx= _g12563_ 3) - (apply gx#core-expand-let-bind-syntax!__% _g12564_)) + (lambda _g13155_ + (let ((_g13154_ (##length _g13155_))) + (cond ((##fx= _g13154_ 2) + (apply (lambda (_bind11575_ _e11576_) + (gx#core-expand-let-bind-syntax!__0 + _bind11575_ + _e11576_)) + _g13155_)) + ((##fx= _g13154_ 3) + (apply (lambda (_bind11580_ _e11581_ _rebind?11582_) + (gx#core-expand-let-bind-syntax!__% + _bind11580_ + _e11581_ + _rebind?11582_)) + _g13155_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g12564_)))))) + _g13155_)))))) (define gx#core-expand-expression% - (lambda (_stx10896_) - (let* ((_e1089710907_ _stx10896_) - (_E1089910911_ + (lambda (_stx11487_) + (let* ((_e1148811498_ _stx11487_) + (_E1149011502_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1089710907_))) - (_E1089810933_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1148811498_))) + (_E1148911524_ (lambda () - (if (gx#stx-pair? _e1089710907_) - (let ((_e1090010915_ (gx#syntax-e _e1089710907_))) - (let ((_hd1090110918_ (##car _e1090010915_)) - (_tl1090210920_ (##cdr _e1090010915_))) - (if (gx#stx-pair? _tl1090210920_) - (let ((_e1090310923_ - (gx#syntax-e _tl1090210920_))) - (let ((_hd1090410926_ (##car _e1090310923_)) - (_tl1090510928_ (##cdr _e1090310923_))) - (let ((_expr10931_ _hd1090410926_)) - (if (gx#stx-null? _tl1090510928_) + (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 ((_expr11522_ _hd1149511517_)) + (if (gx#stx-null? _tl1149611519_) (if '#t (gx#core-expand-expression - _expr10931_) - (_E1089910911_)) - (_E1089910911_))))) - (_E1089910911_)))) - (_E1089910911_))))) - (_E1089810933_)))) + _expr11522_) + (_E1149011502_)) + (_E1149011502_))))) + (_E1149011502_)))) + (_E1149011502_))))) + (_E1148911524_)))) (define gx#core-expand-quote% - (lambda (_stx10855_) - (let* ((_e1085610866_ _stx10855_) - (_E1085810870_ + (lambda (_stx11446_) + (let* ((_e1144711457_ _stx11446_) + (_E1144911461_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1085610866_))) - (_E1085710892_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1144711457_))) + (_E1144811483_ (lambda () - (if (gx#stx-pair? _e1085610866_) - (let ((_e1085910874_ (gx#syntax-e _e1085610866_))) - (let ((_hd1086010877_ (##car _e1085910874_)) - (_tl1086110879_ (##cdr _e1085910874_))) - (if (gx#stx-pair? _tl1086110879_) - (let ((_e1086210882_ - (gx#syntax-e _tl1086110879_))) - (let ((_hd1086310885_ (##car _e1086210882_)) - (_tl1086410887_ (##cdr _e1086210882_))) - (let ((_e10890_ _hd1086310885_)) - (if (gx#stx-null? _tl1086410887_) + (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 (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _e10890_) + _e11481_) '())) - (gx#stx-source _stx10855_)) - (_E1085810870_)) - (_E1085810870_))))) - (_E1085810870_)))) - (_E1085810870_))))) - (_E1085710892_)))) + (gx#stx-source _stx11446_)) + (_E1144911461_)) + (_E1144911461_))))) + (_E1144911461_)))) + (_E1144911461_))))) + (_E1144811483_)))) (define gx#core-expand-quote-syntax% - (lambda (_stx10814_) - (let* ((_e1081510825_ _stx10814_) - (_E1081710829_ + (lambda (_stx11405_) + (let* ((_e1140611416_ _stx11405_) + (_E1140811420_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1081510825_))) - (_E1081610851_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1140611416_))) + (_E1140711442_ (lambda () - (if (gx#stx-pair? _e1081510825_) - (let ((_e1081810833_ (gx#syntax-e _e1081510825_))) - (let ((_hd1081910836_ (##car _e1081810833_)) - (_tl1082010838_ (##cdr _e1081810833_))) - (if (gx#stx-pair? _tl1082010838_) - (let ((_e1082110841_ - (gx#syntax-e _tl1082010838_))) - (let ((_hd1082210844_ (##car _e1082110841_)) - (_tl1082310846_ (##cdr _e1082110841_))) - (let ((_e10849_ _hd1082210844_)) - (if (gx#stx-null? _tl1082310846_) + (if (gx#stx-pair? _e1140611416_) + (let ((_e1140911424_ (gx#syntax-e _e1140611416_))) + (let ((_hd1141011427_ (##car _e1140911424_)) + (_tl1141111429_ (##cdr _e1140911424_))) + (if (gx#stx-pair? _tl1141111429_) + (let ((_e1141211432_ + (gx#syntax-e _tl1141111429_))) + (let ((_hd1141311435_ (##car _e1141211432_)) + (_tl1141411437_ (##cdr _e1141211432_))) + (let ((_e11440_ _hd1141311435_)) + (if (gx#stx-null? _tl1141411437_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _e10849_) + _e11440_) '())) - (gx#stx-source _stx10814_)) - (_E1081710829_)) - (_E1081710829_))))) - (_E1081710829_)))) - (_E1081710829_))))) - (_E1081610851_)))) + (gx#stx-source _stx11405_)) + (_E1140811420_)) + (_E1140811420_))))) + (_E1140811420_)))) + (_E1140811420_))))) + (_E1140711442_)))) (define gx#core-expand-call% - (lambda (_stx10771_) - (let* ((_e1077210782_ _stx10771_) - (_E1077410786_ + (lambda (_stx11362_) + (let* ((_e1136311373_ _stx11362_) + (_E1136511377_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1077210782_))) - (_E1077310810_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1136311373_))) + (_E1136411401_ (lambda () - (if (gx#stx-pair? _e1077210782_) - (let ((_e1077510790_ (gx#syntax-e _e1077210782_))) - (let ((_hd1077610793_ (##car _e1077510790_)) - (_tl1077710795_ (##cdr _e1077510790_))) - (if (gx#stx-pair? _tl1077710795_) - (let ((_e1077810798_ - (gx#syntax-e _tl1077710795_))) - (let ((_hd1077910801_ (##car _e1077810798_)) - (_tl1078010803_ (##cdr _e1077810798_))) - (let* ((_rator10806_ _hd1077910801_) - (_args10808_ _tl1078010803_)) - (if (gx#stx-list? _args10808_) + (if (gx#stx-pair? _e1136311373_) + (let ((_e1136611381_ (gx#syntax-e _e1136311373_))) + (let ((_hd1136711384_ (##car _e1136611381_)) + (_tl1136811386_ (##cdr _e1136611381_))) + (if (gx#stx-pair? _tl1136811386_) + (let ((_e1136911389_ + (gx#syntax-e _tl1136811386_))) + (let ((_hd1137011392_ (##car _e1136911389_)) + (_tl1137111394_ (##cdr _e1136911389_))) + (let* ((_rator11397_ _hd1137011392_) + (_args11399_ _tl1137111394_)) + (if (gx#stx-list? _args11399_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _rator10806_) + _rator11397_) (gx#stx-map1 gx#core-expand-expression - _args10808_)) - (gx#stx-source _stx10771_)) - (_E1077410786_))))) - (_E1077410786_)))) - (_E1077410786_))))) - (_E1077310810_)))) + _args11399_)) + (gx#stx-source _stx11362_)) + (_E1136511377_))))) + (_E1136511377_)))) + (_E1136511377_))))) + (_E1136411401_)))) (define gx#core-expand-if% - (lambda (_stx10704_) - (let* ((_e1070510721_ _stx10704_) - (_E1070710725_ + (lambda (_stx11295_) + (let* ((_e1129611312_ _stx11295_) + (_E1129811316_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1070510721_))) - (_E1070610767_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1129611312_))) + (_E1129711358_ (lambda () - (if (gx#stx-pair? _e1070510721_) - (let ((_e1070810729_ (gx#syntax-e _e1070510721_))) - (let ((_hd1070910732_ (##car _e1070810729_)) - (_tl1071010734_ (##cdr _e1070810729_))) - (if (gx#stx-pair? _tl1071010734_) - (let ((_e1071110737_ - (gx#syntax-e _tl1071010734_))) - (let ((_hd1071210740_ (##car _e1071110737_)) - (_tl1071310742_ (##cdr _e1071110737_))) - (let ((_test10745_ _hd1071210740_)) - (if (gx#stx-pair? _tl1071310742_) - (let ((_e1071410747_ - (gx#syntax-e _tl1071310742_))) - (let ((_hd1071510750_ - (##car _e1071410747_)) - (_tl1071610752_ - (##cdr _e1071410747_))) - (let ((_K10755_ _hd1071510750_)) - (if (gx#stx-pair? _tl1071610752_) - (let ((_e1071710757_ + (if (gx#stx-pair? _e1129611312_) + (let ((_e1129911320_ (gx#syntax-e _e1129611312_))) + (let ((_hd1130011323_ (##car _e1129911320_)) + (_tl1130111325_ (##cdr _e1129911320_))) + (if (gx#stx-pair? _tl1130111325_) + (let ((_e1130211328_ + (gx#syntax-e _tl1130111325_))) + (let ((_hd1130311331_ (##car _e1130211328_)) + (_tl1130411333_ (##cdr _e1130211328_))) + (let ((_test11336_ _hd1130311331_)) + (if (gx#stx-pair? _tl1130411333_) + (let ((_e1130511338_ + (gx#syntax-e _tl1130411333_))) + (let ((_hd1130611341_ + (##car _e1130511338_)) + (_tl1130711343_ + (##cdr _e1130511338_))) + (let ((_K11346_ _hd1130611341_)) + (if (gx#stx-pair? _tl1130711343_) + (let ((_e1130811348_ (gx#syntax-e - _tl1071610752_))) - (let ((_hd1071810760_ - (##car _e1071710757_)) - (_tl1071910762_ - (##cdr _e1071710757_))) - (let ((_E10765_ - _hd1071810760_)) + _tl1130711343_))) + (let ((_hd1130911351_ + (##car _e1130811348_)) + (_tl1131011353_ + (##cdr _e1130811348_))) + (let ((_E11356_ + _hd1130911351_)) (if (gx#stx-null? - _tl1071910762_) + _tl1131011353_) (if '#t (gx#core-quote-syntax__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#core-quote-syntax__0 '%#if) - (cons (gx#core-expand-expression _test10745_) - (cons (gx#core-expand-expression _K10755_) + (cons (gx#core-expand-expression _test11336_) + (cons (gx#core-expand-expression _K11346_) (cons (gx#core-expand-expression - _E10765_) + _E11356_) '())))) - (gx#stx-source _stx10704_)) - (_E1070710725_)) - (_E1070710725_))))) + (gx#stx-source _stx11295_)) + (_E1129811316_)) + (_E1129811316_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1070710725_))))) - (_E1070710725_))))) - (_E1070710725_)))) - (_E1070710725_))))) - (_E1070610767_)))) + (_E1129811316_))))) + (_E1129811316_))))) + (_E1129811316_)))) + (_E1129811316_))))) + (_E1129711358_)))) (define gx#core-expand-ref% - (lambda (_stx10663_) - (let* ((_e1066410674_ _stx10663_) - (_E1066610678_ + (lambda (_stx11254_) + (let* ((_e1125511265_ _stx11254_) + (_E1125711269_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1066410674_))) - (_E1066510700_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1125511265_))) + (_E1125611291_ (lambda () - (if (gx#stx-pair? _e1066410674_) - (let ((_e1066710682_ (gx#syntax-e _e1066410674_))) - (let ((_hd1066810685_ (##car _e1066710682_)) - (_tl1066910687_ (##cdr _e1066710682_))) - (if (gx#stx-pair? _tl1066910687_) - (let ((_e1067010690_ - (gx#syntax-e _tl1066910687_))) - (let ((_hd1067110693_ (##car _e1067010690_)) - (_tl1067210695_ (##cdr _e1067010690_))) - (let ((_id10698_ _hd1067110693_)) - (if (gx#stx-null? _tl1067210695_) - (if (gx#identifier? _id10698_) + (if (gx#stx-pair? _e1125511265_) + (let ((_e1125811273_ (gx#syntax-e _e1125511265_))) + (let ((_hd1125911276_ (##car _e1125811273_)) + (_tl1126011278_ (##cdr _e1125811273_))) + (if (gx#stx-pair? _tl1126011278_) + (let ((_e1126111281_ + (gx#syntax-e _tl1126011278_))) + (let ((_hd1126211284_ (##car _e1126111281_)) + (_tl1126311286_ (##cdr _e1126111281_))) + (let ((_id11289_ _hd1126211284_)) + (if (gx#stx-null? _tl1126311286_) + (if (gx#identifier? _id11289_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _id10698_ - _stx10663_) + _id11289_ + _stx11254_) '())) - (gx#stx-source _stx10663_)) - (_E1066610678_)) - (_E1066610678_))))) - (_E1066610678_)))) - (_E1066610678_))))) - (_E1066510700_)))) + (gx#stx-source _stx11254_)) + (_E1125711269_)) + (_E1125711269_))))) + (_E1125711269_)))) + (_E1125711269_))))) + (_E1125611291_)))) (define gx#core-expand-setq% - (lambda (_stx10609_) - (let* ((_e1061010623_ _stx10609_) - (_E1061210627_ + (lambda (_stx11200_) + (let* ((_e1120111214_ _stx11200_) + (_E1120311218_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1061010623_))) - (_E1061110659_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1120111214_))) + (_E1120211250_ (lambda () - (if (gx#stx-pair? _e1061010623_) - (let ((_e1061310631_ (gx#syntax-e _e1061010623_))) - (let ((_hd1061410634_ (##car _e1061310631_)) - (_tl1061510636_ (##cdr _e1061310631_))) - (if (gx#stx-pair? _tl1061510636_) - (let ((_e1061610639_ - (gx#syntax-e _tl1061510636_))) - (let ((_hd1061710642_ (##car _e1061610639_)) - (_tl1061810644_ (##cdr _e1061610639_))) - (let ((_id10647_ _hd1061710642_)) - (if (gx#stx-pair? _tl1061810644_) - (let ((_e1061910649_ - (gx#syntax-e _tl1061810644_))) - (let ((_hd1062010652_ - (##car _e1061910649_)) - (_tl1062110654_ - (##cdr _e1061910649_))) - (let ((_expr10657_ _hd1062010652_)) - (if (gx#stx-null? _tl1062110654_) + (if (gx#stx-pair? _e1120111214_) + (let ((_e1120411222_ (gx#syntax-e _e1120111214_))) + (let ((_hd1120511225_ (##car _e1120411222_)) + (_tl1120611227_ (##cdr _e1120411222_))) + (if (gx#stx-pair? _tl1120611227_) + (let ((_e1120711230_ + (gx#syntax-e _tl1120611227_))) + (let ((_hd1120811233_ (##car _e1120711230_)) + (_tl1120911235_ (##cdr _e1120711230_))) + (let ((_id11238_ _hd1120811233_)) + (if (gx#stx-pair? _tl1120911235_) + (let ((_e1121011240_ + (gx#syntax-e _tl1120911235_))) + (let ((_hd1121111243_ + (##car _e1121011240_)) + (_tl1121211245_ + (##cdr _e1121011240_))) + (let ((_expr11248_ _hd1121111243_)) + (if (gx#stx-null? _tl1121211245_) (if (gx#identifier? - _id10647_) + _id11238_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id10647_ - _stx10609_) - (cons (gx#core-expand-expression _expr10657_) '()))) - (gx#stx-source _stx10609_)) - (_E1061210627_)) + _id11238_ + _stx11200_) + (cons (gx#core-expand-expression _expr11248_) '()))) + (gx#stx-source _stx11200_)) + (_E1120311218_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1061210627_))))) - (_E1061210627_))))) - (_E1061210627_)))) - (_E1061210627_))))) - (_E1061110659_)))) + (_E1120311218_))))) + (_E1120311218_))))) + (_E1120311218_)))) + (_E1120311218_))))) + (_E1120211250_)))) (define gx#macro-expand-extern - (lambda (_stx10457_) - (letrec ((_generate10459_ - (lambda (_body10489_) - (let _lp10491_ ((_rest10493_ _body10489_) - (_ns10494_ (gx#core-context-namespace__0)) - (_r10495_ '())) - (let* ((_e1049610511_ _rest10493_) - (_E1050910515_ + (lambda (_stx11048_) + (letrec ((_generate11050_ + (lambda (_body11080_) + (let _lp11082_ ((_rest11084_ _body11080_) + (_ns11085_ (gx#core-context-namespace__0)) + (_r11086_ '())) + (let* ((_e1108711102_ _rest11084_) + (_E1110011106_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1049610511_))) - (_E1050510519_ + _e1108711102_))) + (_E1109611110_ (lambda () - (if (gx#stx-null? _e1049610511_) - (if '#t (reverse _r10495_) (_E1050910515_)) - (_E1050910515_)))) - (_E1049810576_ + (if (gx#stx-null? _e1108711102_) + (if '#t (reverse _r11086_) (_E1110011106_)) + (_E1110011106_)))) + (_E1108911167_ (lambda () - (if (gx#stx-pair? _e1049610511_) - (let ((_e1050610523_ - (gx#syntax-e _e1049610511_))) - (let ((_hd1050710526_ - (##car _e1050610523_)) - (_tl1050810528_ - (##cdr _e1050610523_))) - (let* ((_hd10531_ _hd1050710526_) - (_rest10533_ _tl1050810528_)) + (if (gx#stx-pair? _e1108711102_) + (let ((_e1109711114_ + (gx#syntax-e _e1108711102_))) + (let ((_hd1109811117_ + (##car _e1109711114_)) + (_tl1109911119_ + (##cdr _e1109711114_))) + (let* ((_hd11122_ _hd1109811117_) + (_rest11124_ _tl1109911119_)) (if '#t - (if (gx#identifier? _hd10531_) - (_lp10491_ - _rest10533_ - _ns10494_ - (cons (cons _hd10531_ - (cons (if _ns10494_ + (if (gx#identifier? _hd11122_) + (_lp11082_ + _rest11124_ + _ns11085_ + (cons (cons _hd11122_ + (cons (if _ns11085_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _hd10531_ - _ns10494_ + _hd11122_ + _ns11085_ '"#" - _hd10531_) - _hd10531_) + _hd11122_) + _hd11122_) '())) - _r10495_)) + _r11086_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e1053410544_ - _hd10531_) - (_E1053610548_ + (let* ((_e1112511135_ + _hd11122_) + (_E1112711139_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1053410544_))) - (_E1053510572_ + _e1112511135_))) + (_E1112611163_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e1053410544_) - (let ((_e1053710552_ (gx#syntax-e _e1053410544_))) - (let ((_hd1053810555_ (##car _e1053710552_)) - (_tl1053910557_ (##cdr _e1053710552_))) - (let ((_id10560_ _hd1053810555_)) - (if (gx#stx-pair? _tl1053910557_) - (let ((_e1054010562_ - (gx#syntax-e _tl1053910557_))) - (let ((_hd1054110565_ - (##car _e1054010562_)) - (_tl1054210567_ - (##cdr _e1054010562_))) - (let ((_eid10570_ _hd1054110565_)) - (if (gx#stx-null? _tl1054210567_) - (if (and (gx#identifier? _id10560_) + _e1112511135_) + (let ((_e1112811143_ (gx#syntax-e _e1112511135_))) + (let ((_hd1112911146_ (##car _e1112811143_)) + (_tl1113011148_ (##cdr _e1112811143_))) + (let ((_id11151_ _hd1112911146_)) + (if (gx#stx-pair? _tl1113011148_) + (let ((_e1113111153_ + (gx#syntax-e _tl1113011148_))) + (let ((_hd1113211156_ + (##car _e1113111153_)) + (_tl1113311158_ + (##cdr _e1113111153_))) + (let ((_eid11161_ _hd1113211156_)) + (if (gx#stx-null? _tl1113311158_) + (if (and (gx#identifier? _id11151_) (gx#identifier? - _eid10570_)) - (_lp10491_ - _rest10533_ - _ns10494_ - (cons (cons _id10560_ - (cons _eid10570_ + _eid11161_)) + (_lp11082_ + _rest11124_ + _ns11085_ + (cons (cons _id11151_ + (cons _eid11161_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _r10495_)) + _r11086_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1053610548_)) - (_E1053610548_))))) - (_E1053610548_))))) - (_E1053610548_))))) + (_E1112711139_)) + (_E1112711139_))))) + (_E1112711139_))))) + (_E1112711139_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1053510572_))) - (_E1050510519_))))) - (_E1050510519_)))) - (_E1049710605_ + (_E1112611163_))) + (_E1109611110_))))) + (_E1109611110_)))) + (_E1108811196_ (lambda () - (if (gx#stx-pair? _e1049610511_) - (let ((_e1049910580_ - (gx#syntax-e _e1049610511_))) - (let ((_hd1050010583_ - (##car _e1049910580_)) - (_tl1050110585_ - (##cdr _e1049910580_))) - (if (eq? (gx#stx-e _hd1050010583_) + (if (gx#stx-pair? _e1108711102_) + (let ((_e1109011171_ + (gx#syntax-e _e1108711102_))) + (let ((_hd1109111174_ + (##car _e1109011171_)) + (_tl1109211176_ + (##cdr _e1109011171_))) + (if (eq? (gx#stx-e _hd1109111174_) 'namespace:) - (if (gx#stx-pair? _tl1050110585_) - (let ((_e1050210588_ + (if (gx#stx-pair? _tl1109211176_) + (let ((_e1109311179_ (gx#syntax-e - _tl1050110585_))) - (let ((_hd1050310591_ - (##car _e1050210588_)) - (_tl1050410593_ - (##cdr _e1050210588_))) - (let* ((_ns10596_ - _hd1050310591_) - (_rest10598_ - _tl1050410593_)) + _tl1109211176_))) + (let ((_hd1109411182_ + (##car _e1109311179_)) + (_tl1109511184_ + (##cdr _e1109311179_))) + (let* ((_ns11187_ + _hd1109411182_) + (_rest11189_ + _tl1109511184_)) (if '#t - (let ((_ns10603_ + (let ((_ns11194_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _ns10596_) - (symbol->string (gx#stx-e _ns10596_)) - (if (or (gx#stx-string? _ns10596_) - (gx#stx-false? _ns10596_)) - (gx#stx-e _ns10596_) + (if (gx#identifier? _ns11187_) + (symbol->string (gx#stx-e _ns11187_)) + (if (or (gx#stx-string? _ns11187_) + (gx#stx-false? _ns11187_)) + (gx#stx-e _ns11187_) (gx#raise-syntax-error '#f '"Bad syntax" - _stx10457_ - _ns10596_))))) - (_lp10491_ _rest10598_ _ns10603_ _r10495_)) - (_E1049810576_))))) + _stx11048_ + _ns11187_))))) + (_lp11082_ _rest11189_ _ns11194_ _r11086_)) + (_E1108911167_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1049810576_)) - (_E1049810576_)))) - (_E1049810576_))))) - (_E1049710605_)))))) - (let* ((_e1046010467_ _stx10457_) - (_E1046210471_ + (_E1108911167_)) + (_E1108911167_)))) + (_E1108911167_))))) + (_E1108811196_)))))) + (let* ((_e1105111058_ _stx11048_) + (_E1105311062_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1046010467_))) - (_E1046110485_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1105111058_))) + (_E1105211076_ (lambda () - (if (gx#stx-pair? _e1046010467_) - (let ((_e1046310475_ (gx#syntax-e _e1046010467_))) - (let ((_hd1046410478_ (##car _e1046310475_)) - (_tl1046510480_ (##cdr _e1046310475_))) - (let ((_body10483_ _tl1046510480_)) - (if (gx#stx-list? _body10483_) + (if (gx#stx-pair? _e1105111058_) + (let ((_e1105411066_ (gx#syntax-e _e1105111058_))) + (let ((_hd1105511069_ (##car _e1105411066_)) + (_tl1105611071_ (##cdr _e1105411066_))) + (let ((_body11074_ _tl1105611071_)) + (if (gx#stx-list? _body11074_) (gx#core-cons '%#extern - (_generate10459_ _body10483_)) - (_E1046210471_))))) - (_E1046210471_))))) - (_E1046110485_))))) + (_generate11050_ _body11074_)) + (_E1105311062_))))) + (_E1105311062_))))) + (_E1105211076_))))) (define gx#macro-expand-define-values - (lambda (_stx10403_) - (let* ((_e1040410417_ _stx10403_) - (_E1040610421_ + (lambda (_stx10994_) + (let* ((_e1099511008_ _stx10994_) + (_E1099711012_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1040410417_))) - (_E1040510453_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1099511008_))) + (_E1099611044_ (lambda () - (if (gx#stx-pair? _e1040410417_) - (let ((_e1040710425_ (gx#syntax-e _e1040410417_))) - (let ((_hd1040810428_ (##car _e1040710425_)) - (_tl1040910430_ (##cdr _e1040710425_))) - (if (gx#stx-pair? _tl1040910430_) - (let ((_e1041010433_ - (gx#syntax-e _tl1040910430_))) - (let ((_hd1041110436_ (##car _e1041010433_)) - (_tl1041210438_ (##cdr _e1041010433_))) - (let ((_hd10441_ _hd1041110436_)) - (if (gx#stx-pair? _tl1041210438_) - (let ((_e1041310443_ - (gx#syntax-e _tl1041210438_))) - (let ((_hd1041410446_ - (##car _e1041310443_)) - (_tl1041510448_ - (##cdr _e1041310443_))) - (let ((_expr10451_ _hd1041410446_)) - (if (gx#stx-null? _tl1041510448_) + (if (gx#stx-pair? _e1099511008_) + (let ((_e1099811016_ (gx#syntax-e _e1099511008_))) + (let ((_hd1099911019_ (##car _e1099811016_)) + (_tl1100011021_ (##cdr _e1099811016_))) + (if (gx#stx-pair? _tl1100011021_) + (let ((_e1100111024_ + (gx#syntax-e _tl1100011021_))) + (let ((_hd1100211027_ (##car _e1100111024_)) + (_tl1100311029_ (##cdr _e1100111024_))) + (let ((_hd11032_ _hd1100211027_)) + (if (gx#stx-pair? _tl1100311029_) + (let ((_e1100411034_ + (gx#syntax-e _tl1100311029_))) + (let ((_hd1100511037_ + (##car _e1100411034_)) + (_tl1100611039_ + (##cdr _e1100411034_))) + (let ((_expr11042_ _hd1100511037_)) + (if (gx#stx-null? _tl1100611039_) (if (gx#stx-andmap gx#identifier? - _hd10441_) + _hd11032_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _hd10441_) - (cons _expr10451_ '()))) - (_E1040610421_)) + _hd11032_) + (cons _expr11042_ '()))) + (_E1099711012_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1040610421_))))) - (_E1040610421_))))) - (_E1040610421_)))) - (_E1040610421_))))) - (_E1040510453_)))) + (_E1099711012_))))) + (_E1099711012_))))) + (_E1099711012_)))) + (_E1099711012_))))) + (_E1099611044_)))) (define gx#macro-expand-define-syntax - (lambda (_stx10349_) - (let* ((_e1035010363_ _stx10349_) - (_E1035210367_ + (lambda (_stx10940_) + (let* ((_e1094110954_ _stx10940_) + (_E1094310958_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1035010363_))) - (_E1035110399_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1094110954_))) + (_E1094210990_ (lambda () - (if (gx#stx-pair? _e1035010363_) - (let ((_e1035310371_ (gx#syntax-e _e1035010363_))) - (let ((_hd1035410374_ (##car _e1035310371_)) - (_tl1035510376_ (##cdr _e1035310371_))) - (if (gx#stx-pair? _tl1035510376_) - (let ((_e1035610379_ - (gx#syntax-e _tl1035510376_))) - (let ((_hd1035710382_ (##car _e1035610379_)) - (_tl1035810384_ (##cdr _e1035610379_))) - (let ((_hd10387_ _hd1035710382_)) - (if (gx#stx-pair? _tl1035810384_) - (let ((_e1035910389_ - (gx#syntax-e _tl1035810384_))) - (let ((_hd1036010392_ - (##car _e1035910389_)) - (_tl1036110394_ - (##cdr _e1035910389_))) - (let ((_expr10397_ _hd1036010392_)) - (if (gx#stx-null? _tl1036110394_) + (if (gx#stx-pair? _e1094110954_) + (let ((_e1094410962_ (gx#syntax-e _e1094110954_))) + (let ((_hd1094510965_ (##car _e1094410962_)) + (_tl1094610967_ (##cdr _e1094410962_))) + (if (gx#stx-pair? _tl1094610967_) + (let ((_e1094710970_ + (gx#syntax-e _tl1094610967_))) + (let ((_hd1094810973_ (##car _e1094710970_)) + (_tl1094910975_ (##cdr _e1094710970_))) + (let ((_hd10978_ _hd1094810973_)) + (if (gx#stx-pair? _tl1094910975_) + (let ((_e1095010980_ + (gx#syntax-e _tl1094910975_))) + (let ((_hd1095110983_ + (##car _e1095010980_)) + (_tl1095210985_ + (##cdr _e1095010980_))) + (let ((_expr10988_ _hd1095110983_)) + (if (gx#stx-null? _tl1095210985_) (if (gx#identifier? - _hd10387_) + _hd10978_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _hd10387_ + (cons _hd10978_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _expr10397_ '()))) - (_E1035210367_)) + (cons _expr10988_ '()))) + (_E1094310958_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1035210367_))))) - (_E1035210367_))))) - (_E1035210367_)))) - (_E1035210367_))))) - (_E1035110399_)))) + (_E1094310958_))))) + (_E1094310958_))))) + (_E1094310958_)))) + (_E1094310958_))))) + (_E1094210990_)))) (define gx#macro-expand-define-alias - (lambda (_stx10295_) - (let* ((_e1029610309_ _stx10295_) - (_E1029810313_ + (lambda (_stx10886_) + (let* ((_e1088710900_ _stx10886_) + (_E1088910904_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1029610309_))) - (_E1029710345_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1088710900_))) + (_E1088810936_ (lambda () - (if (gx#stx-pair? _e1029610309_) - (let ((_e1029910317_ (gx#syntax-e _e1029610309_))) - (let ((_hd1030010320_ (##car _e1029910317_)) - (_tl1030110322_ (##cdr _e1029910317_))) - (if (gx#stx-pair? _tl1030110322_) - (let ((_e1030210325_ - (gx#syntax-e _tl1030110322_))) - (let ((_hd1030310328_ (##car _e1030210325_)) - (_tl1030410330_ (##cdr _e1030210325_))) - (let ((_id10333_ _hd1030310328_)) - (if (gx#stx-pair? _tl1030410330_) - (let ((_e1030510335_ - (gx#syntax-e _tl1030410330_))) - (let ((_hd1030610338_ - (##car _e1030510335_)) - (_tl1030710340_ - (##cdr _e1030510335_))) - (let ((_alias-id10343_ - _hd1030610338_)) - (if (gx#stx-null? _tl1030710340_) + (if (gx#stx-pair? _e1088710900_) + (let ((_e1089010908_ (gx#syntax-e _e1088710900_))) + (let ((_hd1089110911_ (##car _e1089010908_)) + (_tl1089210913_ (##cdr _e1089010908_))) + (if (gx#stx-pair? _tl1089210913_) + (let ((_e1089310916_ + (gx#syntax-e _tl1089210913_))) + (let ((_hd1089410919_ (##car _e1089310916_)) + (_tl1089510921_ (##cdr _e1089310916_))) + (let ((_id10924_ _hd1089410919_)) + (if (gx#stx-pair? _tl1089510921_) + (let ((_e1089610926_ + (gx#syntax-e _tl1089510921_))) + (let ((_hd1089710929_ + (##car _e1089610926_)) + (_tl1089810931_ + (##cdr _e1089610926_))) + (let ((_alias-id10934_ + _hd1089710929_)) + (if (gx#stx-null? _tl1089810931_) (if (and (gx#identifier? - _id10333_) + _id10924_) (gx#identifier? - _alias-id10343_)) + _alias-id10934_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _id10333_ + (cons _id10924_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _alias-id10343_ '()))) - (_E1029810313_)) + (cons _alias-id10934_ '()))) + (_E1088910904_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1029810313_))))) - (_E1029810313_))))) - (_E1029810313_)))) - (_E1029810313_))))) - (_E1029710345_)))) + (_E1088910904_))))) + (_E1088910904_))))) + (_E1088910904_)))) + (_E1088910904_))))) + (_E1088810936_)))) (define gx#macro-expand-lambda% - (lambda (_stx10252_) - (let* ((_e1025310263_ _stx10252_) - (_E1025510267_ + (lambda (_stx10843_) + (let* ((_e1084410854_ _stx10843_) + (_E1084610858_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1025310263_))) - (_E1025410291_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1084410854_))) + (_E1084510882_ (lambda () - (if (gx#stx-pair? _e1025310263_) - (let ((_e1025610271_ (gx#syntax-e _e1025310263_))) - (let ((_hd1025710274_ (##car _e1025610271_)) - (_tl1025810276_ (##cdr _e1025610271_))) - (if (gx#stx-pair? _tl1025810276_) - (let ((_e1025910279_ - (gx#syntax-e _tl1025810276_))) - (let ((_hd1026010282_ (##car _e1025910279_)) - (_tl1026110284_ (##cdr _e1025910279_))) - (let* ((_hd10287_ _hd1026010282_) - (_body10289_ _tl1026110284_)) + (if (gx#stx-pair? _e1084410854_) + (let ((_e1084710862_ (gx#syntax-e _e1084410854_))) + (let ((_hd1084810865_ (##car _e1084710862_)) + (_tl1084910867_ (##cdr _e1084710862_))) + (if (gx#stx-pair? _tl1084910867_) + (let ((_e1085010870_ + (gx#syntax-e _tl1084910867_))) + (let ((_hd1085110873_ (##car _e1085010870_)) + (_tl1085210875_ (##cdr _e1085010870_))) + (let* ((_hd10878_ _hd1085110873_) + (_body10880_ _tl1085210875_)) (if (and (gx#stx-andmap gx#identifier? - _hd10287_) - (gx#stx-list? _body10289_) - (not (gx#stx-null? _body10289_))) + _hd10878_) + (gx#stx-list? _body10880_) + (not (gx#stx-null? _body10880_))) (gx#core-cons* '%#lambda (gx#stx-map1 gx#user-binding-identifier - _hd10287_) - _body10289_) - (_E1025510267_))))) - (_E1025510267_)))) - (_E1025510267_))))) - (_E1025410291_)))) + _hd10878_) + _body10880_) + (_E1084610858_))))) + (_E1084610858_)))) + (_E1084610858_))))) + (_E1084510882_)))) (define gx#macro-expand-case-lambda - (lambda (_stx10188_) - (letrec ((_generate10190_ - (lambda (_clause10220_) - (let* ((_e1022110228_ _clause10220_) - (_E1022310232_ + (lambda (_stx10779_) + (letrec ((_generate10781_ + (lambda (_clause10811_) + (let* ((_e1081210819_ _clause10811_) + (_E1081410823_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _stx10188_ - _clause10220_))) - (_E1022210248_ + _stx10779_ + _clause10811_))) + (_E1081310839_ (lambda () - (if (gx#stx-pair? _e1022110228_) - (let ((_e1022410236_ - (gx#syntax-e _e1022110228_))) - (let ((_hd1022510239_ - (##car _e1022410236_)) - (_tl1022610241_ - (##cdr _e1022410236_))) - (let* ((_hd10244_ _hd1022510239_) - (_body10246_ _tl1022610241_)) + (if (gx#stx-pair? _e1081210819_) + (let ((_e1081510827_ + (gx#syntax-e _e1081210819_))) + (let ((_hd1081610830_ + (##car _e1081510827_)) + (_tl1081710832_ + (##cdr _e1081510827_))) + (let* ((_hd10835_ _hd1081610830_) + (_body10837_ _tl1081710832_)) (if (and (gx#stx-andmap gx#identifier? - _hd10244_) - (gx#stx-list? _body10246_) + _hd10835_) + (gx#stx-list? _body10837_) (not (gx#stx-null? - _body10246_))) + _body10837_))) (gx#stx-wrap-source (cons (gx#stx-map1 gx#user-binding-identifier - _hd10244_) - _body10246_) - (gx#stx-source _clause10220_)) - (_E1022310232_))))) - (_E1022310232_))))) - (_E1022210248_))))) - (let* ((_e1019110198_ _stx10188_) - (_E1019310202_ + _hd10835_) + _body10837_) + (gx#stx-source _clause10811_)) + (_E1081410823_))))) + (_E1081410823_))))) + (_E1081310839_))))) + (let* ((_e1078210789_ _stx10779_) + (_E1078410793_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1019110198_))) - (_E1019210216_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1078210789_))) + (_E1078310807_ (lambda () - (if (gx#stx-pair? _e1019110198_) - (let ((_e1019410206_ (gx#syntax-e _e1019110198_))) - (let ((_hd1019510209_ (##car _e1019410206_)) - (_tl1019610211_ (##cdr _e1019410206_))) - (let ((_clauses10214_ _tl1019610211_)) - (if (gx#stx-list? _clauses10214_) + (if (gx#stx-pair? _e1078210789_) + (let ((_e1078510797_ (gx#syntax-e _e1078210789_))) + (let ((_hd1078610800_ (##car _e1078510797_)) + (_tl1078710802_ (##cdr _e1078510797_))) + (let ((_clauses10805_ _tl1078710802_)) + (if (gx#stx-list? _clauses10805_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _generate10190_ - _clauses10214_)) - (_E1019310202_))))) - (_E1019310202_))))) - (_E1019210216_))))) + _generate10781_ + _clauses10805_)) + (_E1078410793_))))) + (_E1078410793_))))) + (_E1078310807_))))) (define gx#macro-expand-let-values__% - (lambda (_stx10089_ _form10090_) - (letrec ((_generate10092_ - (lambda (_bind10135_) - (let* ((_e1013610146_ _bind10135_) - (_E1013810150_ + (lambda (_stx10680_ _form10681_) + (letrec ((_generate10683_ + (lambda (_bind10726_) + (let* ((_e1072710737_ _bind10726_) + (_E1072910741_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _stx10089_ - _bind10135_))) - (_E1013710174_ + _stx10680_ + _bind10726_))) + (_E1072810765_ (lambda () - (if (gx#stx-pair? _e1013610146_) - (let ((_e1013910154_ - (gx#syntax-e _e1013610146_))) - (let ((_hd1014010157_ - (##car _e1013910154_)) - (_tl1014110159_ - (##cdr _e1013910154_))) - (let ((_ids10162_ _hd1014010157_)) - (if (gx#stx-pair? _tl1014110159_) - (let ((_e1014210164_ + (if (gx#stx-pair? _e1072710737_) + (let ((_e1073010745_ + (gx#syntax-e _e1072710737_))) + (let ((_hd1073110748_ + (##car _e1073010745_)) + (_tl1073210750_ + (##cdr _e1073010745_))) + (let ((_ids10753_ _hd1073110748_)) + (if (gx#stx-pair? _tl1073210750_) + (let ((_e1073310755_ (gx#syntax-e - _tl1014110159_))) - (let ((_hd1014310167_ - (##car _e1014210164_)) - (_tl1014410169_ - (##cdr _e1014210164_))) - (let ((_expr10172_ - _hd1014310167_)) + _tl1073210750_))) + (let ((_hd1073410758_ + (##car _e1073310755_)) + (_tl1073510760_ + (##cdr _e1073310755_))) + (let ((_expr10763_ + _hd1073410758_)) (if (gx#stx-null? - _tl1014410169_) + _tl1073510760_) (if (gx#stx-andmap gx#identifier? - _ids10162_) + _ids10753_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _ids10162_) - (cons _expr10172_ '())) - (_E1013810150_)) - (_E1013810150_))))) + _ids10753_) + (cons _expr10763_ '())) + (_E1072910741_)) + (_E1072910741_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1013810150_))))) - (_E1013810150_))))) - (_E1013710174_))))) - (let* ((_e1009310103_ _stx10089_) - (_E1009510107_ + (_E1072910741_))))) + (_E1072910741_))))) + (_E1072810765_))))) + (let* ((_e1068410694_ _stx10680_) + (_E1068610698_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1009310103_))) - (_E1009410131_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1068410694_))) + (_E1068510722_ (lambda () - (if (gx#stx-pair? _e1009310103_) - (let ((_e1009610111_ (gx#syntax-e _e1009310103_))) - (let ((_hd1009710114_ (##car _e1009610111_)) - (_tl1009810116_ (##cdr _e1009610111_))) - (if (gx#stx-pair? _tl1009810116_) - (let ((_e1009910119_ - (gx#syntax-e _tl1009810116_))) - (let ((_hd1010010122_ (##car _e1009910119_)) - (_tl1010110124_ (##cdr _e1009910119_))) - (let* ((_hd10127_ _hd1010010122_) - (_body10129_ _tl1010110124_)) - (if (and (gx#stx-list? _hd10127_) - (gx#stx-list? _body10129_) + (if (gx#stx-pair? _e1068410694_) + (let ((_e1068710702_ (gx#syntax-e _e1068410694_))) + (let ((_hd1068810705_ (##car _e1068710702_)) + (_tl1068910707_ (##cdr _e1068710702_))) + (if (gx#stx-pair? _tl1068910707_) + (let ((_e1069010710_ + (gx#syntax-e _tl1068910707_))) + (let ((_hd1069110713_ (##car _e1069010710_)) + (_tl1069210715_ (##cdr _e1069010710_))) + (let* ((_hd10718_ _hd1069110713_) + (_body10720_ _tl1069210715_)) + (if (and (gx#stx-list? _hd10718_) + (gx#stx-list? _body10720_) (not (gx#stx-null? - _body10129_))) + _body10720_))) (gx#core-cons* - _form10090_ + _form10681_ (gx#stx-map1 - _generate10092_ - _hd10127_) - _body10129_) - (_E1009510107_))))) - (_E1009510107_)))) - (_E1009510107_))))) - (_E1009410131_))))) + _generate10683_ + _hd10718_) + _body10720_) + (_E1068610698_))))) + (_E1068610698_)))) + (_E1068610698_))))) + (_E1068510722_))))) (define gx#macro-expand-let-values__0 - (lambda (_stx10181_) - (let ((_form10183_ '%#let-values)) - (gx#macro-expand-let-values__% _stx10181_ _form10183_)))) + (lambda (_stx10772_) + (let ((_form10774_ '%#let-values)) + (gx#macro-expand-let-values__% _stx10772_ _form10774_)))) (define gx#macro-expand-let-values - (lambda _g12566_ - (let ((_g12565_ (##length _g12566_))) - (cond ((##fx= _g12565_ 1) - (apply gx#macro-expand-let-values__0 _g12566_)) - ((##fx= _g12565_ 2) - (apply gx#macro-expand-let-values__% _g12566_)) + (lambda _g13157_ + (let ((_g13156_ (##length _g13157_))) + (cond ((##fx= _g13156_ 1) + (apply (lambda (_stx10772_) + (gx#macro-expand-let-values__0 _stx10772_)) + _g13157_)) + ((##fx= _g13156_ 2) + (apply (lambda (_stx10776_ _form10777_) + (gx#macro-expand-let-values__% + _stx10776_ + _form10777_)) + _g13157_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g12566_)))))) + _g13157_)))))) (define gx#macro-expand-letrec-values - (lambda (_stx10086_) - (gx#macro-expand-let-values__% _stx10086_ '%#letrec-values))) + (lambda (_stx10677_) + (gx#macro-expand-let-values__% _stx10677_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_stx10084_) - (gx#macro-expand-let-values__% _stx10084_ '%#letrec*-values))) + (lambda (_stx10675_) + (gx#macro-expand-let-values__% _stx10675_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_stx9975_) - (let* ((_e997610002_ _stx9975_) - (_E998810006_ + (lambda (_stx10566_) + (let* ((_e1056710593_ _stx10566_) + (_E1057910597_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e997610002_))) - (_E997810048_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1056710593_))) + (_E1056910639_ (lambda () - (if (gx#stx-pair? _e997610002_) - (let ((_e998910010_ (gx#syntax-e _e997610002_))) - (let ((_hd999010013_ (##car _e998910010_)) - (_tl999110015_ (##cdr _e998910010_))) - (if (gx#stx-pair? _tl999110015_) - (let ((_e999210018_ (gx#syntax-e _tl999110015_))) - (let ((_hd999310021_ (##car _e999210018_)) - (_tl999410023_ (##cdr _e999210018_))) - (let ((_test10026_ _hd999310021_)) - (if (gx#stx-pair? _tl999410023_) - (let ((_e999510028_ - (gx#syntax-e _tl999410023_))) - (let ((_hd999610031_ - (##car _e999510028_)) - (_tl999710033_ - (##cdr _e999510028_))) - (let ((_K10036_ _hd999610031_)) - (if (gx#stx-pair? _tl999710033_) - (let ((_e999810038_ + (if (gx#stx-pair? _e1056710593_) + (let ((_e1058010601_ (gx#syntax-e _e1056710593_))) + (let ((_hd1058110604_ (##car _e1058010601_)) + (_tl1058210606_ (##cdr _e1058010601_))) + (if (gx#stx-pair? _tl1058210606_) + (let ((_e1058310609_ + (gx#syntax-e _tl1058210606_))) + (let ((_hd1058410612_ (##car _e1058310609_)) + (_tl1058510614_ (##cdr _e1058310609_))) + (let ((_test10617_ _hd1058410612_)) + (if (gx#stx-pair? _tl1058510614_) + (let ((_e1058610619_ + (gx#syntax-e _tl1058510614_))) + (let ((_hd1058710622_ + (##car _e1058610619_)) + (_tl1058810624_ + (##cdr _e1058610619_))) + (let ((_K10627_ _hd1058710622_)) + (if (gx#stx-pair? _tl1058810624_) + (let ((_e1058910629_ (gx#syntax-e - _tl999710033_))) - (let ((_hd999910041_ - (##car _e999810038_)) - (_tl1000010043_ - (##cdr _e999810038_))) - (let ((_E10046_ - _hd999910041_)) + _tl1058810624_))) + (let ((_hd1059010632_ + (##car _e1058910629_)) + (_tl1059110634_ + (##cdr _e1058910629_))) + (let ((_E10637_ + _hd1059010632_)) (if (gx#stx-null? - _tl1000010043_) + _tl1059110634_) (if '#t (gx#core-list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if - _test10026_ - _K10036_ - _E10046_) - (_E998810006_)) - (_E998810006_))))) + _test10617_ + _K10627_ + _E10637_) + (_E1057910597_)) + (_E1057910597_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E998810006_))))) - (_E998810006_))))) - (_E998810006_)))) - (_E998810006_)))) - (_E997710080_ + (_E1057910597_))))) + (_E1057910597_))))) + (_E1057910597_)))) + (_E1057910597_)))) + (_E1056810671_ (lambda () - (if (gx#stx-pair? _e997610002_) - (let ((_e997910052_ (gx#syntax-e _e997610002_))) - (let ((_hd998010055_ (##car _e997910052_)) - (_tl998110057_ (##cdr _e997910052_))) - (if (gx#stx-pair? _tl998110057_) - (let ((_e998210060_ (gx#syntax-e _tl998110057_))) - (let ((_hd998310063_ (##car _e998210060_)) - (_tl998410065_ (##cdr _e998210060_))) - (let ((_test10068_ _hd998310063_)) - (if (gx#stx-pair? _tl998410065_) - (let ((_e998510070_ - (gx#syntax-e _tl998410065_))) - (let ((_hd998610073_ - (##car _e998510070_)) - (_tl998710075_ - (##cdr _e998510070_))) - (let ((_K10078_ _hd998610073_)) - (if (gx#stx-null? _tl998710075_) + (if (gx#stx-pair? _e1056710593_) + (let ((_e1057010643_ (gx#syntax-e _e1056710593_))) + (let ((_hd1057110646_ (##car _e1057010643_)) + (_tl1057210648_ (##cdr _e1057010643_))) + (if (gx#stx-pair? _tl1057210648_) + (let ((_e1057310651_ + (gx#syntax-e _tl1057210648_))) + (let ((_hd1057410654_ (##car _e1057310651_)) + (_tl1057510656_ (##cdr _e1057310651_))) + (let ((_test10659_ _hd1057410654_)) + (if (gx#stx-pair? _tl1057510656_) + (let ((_e1057610661_ + (gx#syntax-e _tl1057510656_))) + (let ((_hd1057710664_ + (##car _e1057610661_)) + (_tl1057810666_ + (##cdr _e1057610661_))) + (let ((_K10669_ _hd1057710664_)) + (if (gx#stx-null? _tl1057810666_) (if '#t (gx#core-list '%#if - _test10068_ - _K10078_ + _test10659_ + _K10669_ '#!void) - (_E997810048_)) - (_E997810048_))))) - (_E997810048_))))) - (_E997810048_)))) - (_E997810048_))))) - (_E997710080_)))) + (_E1056910639_)) + (_E1056910639_))))) + (_E1056910639_))))) + (_E1056910639_)))) + (_E1056910639_))))) + (_E1056810671_)))) (define gx#free-identifier=? - (lambda (_xid9963_ _yid9964_) - (let ((_xe9966_ (gx#resolve-identifier__0 _xid9963_)) - (_ye9967_ (gx#resolve-identifier__0 _yid9964_))) - (if (and _xe9966_ _ye9967_) - (let ((_$e9969_ (eq? _xe9966_ _ye9967_))) - (if _$e9969_ - _$e9969_ - (if (##structure-instance-of? _xe9966_ 'gx#binding::t) - (if (##structure-instance-of? _ye9967_ 'gx#binding::t) + (lambda (_xid10554_ _yid10555_) + (let ((_xe10557_ (gx#resolve-identifier__0 _xid10554_)) + (_ye10558_ (gx#resolve-identifier__0 _yid10555_))) + (if (and _xe10557_ _ye10558_) + (let ((_$e10560_ (eq? _xe10557_ _ye10558_))) + (if _$e10560_ + _$e10560_ + (if (##structure-instance-of? _xe10557_ 'gx#binding::t) + (if (##structure-instance-of? _ye10558_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _xe9966_ + _xe10557_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _ye9967_ + _ye10558_ '1 gx#binding::t '#f)) '#f) '#f))) - (if (or _xe9966_ _ye9967_) + (if (or _xe10557_ _ye10558_) '#f - (gx#stx-eq? _xid9963_ _yid9964_)))))) + (gx#stx-eq? _xid10554_ _yid10555_)))))) (define gx#bound-identifier=? - (lambda (_xid9947_ _yid9948_) - (letrec ((_context9950_ - (lambda (_e9961_) + (lambda (_xid10538_ _yid10539_) + (letrec ((_context10541_ + (lambda (_e10552_) (if (##structure-direct-instance-of? - _e9961_ + _e10552_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _e9961_ + _e10552_ '3 gx#syntax-quote::t '#f) (gx#current-expander-context)))) - (_marks9951_ - (lambda (_e9959_) - (if (symbol? _e9959_) + (_marks10542_ + (lambda (_e10550_) + (if (symbol? _e10550_) '() (if (##structure-direct-instance-of? - _e9959_ + _e10550_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _e9959_ + _e10550_ '3 gx#identifier-wrap::t '#f) (##unchecked-structure-ref - _e9959_ + _e10550_ '4 gx#syntax-quote::t '#f))))) - (_unwrap9952_ - (lambda (_e9957_) - (if (symbol? _e9957_) - _e9957_ - (gx#syntax-local-unwrap _e9957_))))) - (let ((_x9954_ (_unwrap9952_ _xid9947_)) - (_y9955_ (_unwrap9952_ _yid9948_))) - (if (gx#stx-eq? _x9954_ _y9955_) - (if (eq? (_context9950_ _x9954_) (_context9950_ _y9955_)) - (equal? (_marks9951_ _x9954_) (_marks9951_ _y9955_)) + (_unwrap10543_ + (lambda (_e10548_) + (if (symbol? _e10548_) + _e10548_ + (gx#syntax-local-unwrap _e10548_))))) + (let ((_x10545_ (_unwrap10543_ _xid10538_)) + (_y10546_ (_unwrap10543_ _yid10539_))) + (if (gx#stx-eq? _x10545_ _y10546_) + (if (eq? (_context10541_ _x10545_) (_context10541_ _y10546_)) + (equal? (_marks10542_ _x10545_) (_marks10542_ _y10546_)) '#f) '#f))))) (define gx#underscore? - (lambda (_stx9945_) - (if (gx#identifier? _stx9945_) - (gx#core-identifier=? _stx9945_ '_) + (lambda (_stx10536_) + (if (gx#identifier? _stx10536_) + (gx#core-identifier=? _stx10536_ '_) '#f))) (define gx#ellipsis? - (lambda (_stx9943_) - (if (gx#identifier? _stx9943_) - (gx#core-identifier=? _stx9943_ '...) + (lambda (_stx10534_) + (if (gx#identifier? _stx10534_) + (gx#core-identifier=? _stx10534_ '...) '#f))) (define gx#user-binding-identifier - (lambda (_x9941_) - (if (gx#identifier? _x9941_) - (if (not (gx#underscore? _x9941_)) _x9941_ '#f) + (lambda (_x10532_) + (if (gx#identifier? _x10532_) + (if (not (gx#underscore? _x10532_)) _x10532_ '#f) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_stx9887_ _where9888_) - (let _lp9890_ ((_rest9892_ (gx#syntax->list _stx9887_))) - (let* ((_rest98939901_ _rest9892_) - (_else98959909_ (lambda () '#t)) - (_K98979919_ - (lambda (_rest9912_ _hd9913_) - (if (not (gx#identifier? _hd9913_)) + (lambda (_stx10478_ _where10479_) + (let _lp10481_ ((_rest10483_ (gx#syntax->list _stx10478_))) + (let* ((_rest1048410492_ _rest10483_) + (_else1048610500_ (lambda () '#t)) + (_K1048810510_ + (lambda (_rest10503_ _hd10504_) + (if (not (gx#identifier? _hd10504_)) (gx#raise-syntax-error '#f '"Bad identifier" - _where9888_ - _hd9913_) - (if (find (lambda (_g99149916_) + _where10479_ + _hd10504_) + (if (find (lambda (_g1050510507_) (gx#bound-identifier=? - _g99149916_ - _hd9913_)) - _rest9912_) + _g1050510507_ + _hd10504_)) + _rest10503_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _where9888_ - _hd9913_) - (_lp9890_ _rest9912_)))))) - (if (##pair? _rest98939901_) - (let ((_hd98989922_ (##car _rest98939901_)) - (_tl98999924_ (##cdr _rest98939901_))) - (let* ((_hd9927_ _hd98989922_) (_rest9929_ _tl98999924_)) - (_K98979919_ _rest9929_ _hd9927_))) - (_else98959909_)))))) + _where10479_ + _hd10504_) + (_lp10481_ _rest10503_)))))) + (if (##pair? _rest1048410492_) + (let ((_hd1048910513_ (##car _rest1048410492_)) + (_tl1049010515_ (##cdr _rest1048410492_))) + (let* ((_hd10518_ _hd1048910513_) + (_rest10520_ _tl1049010515_)) + (_K1048810510_ _rest10520_ _hd10518_))) + (_else1048610500_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_stx9934_) - (let ((_where9936_ _stx9934_)) - (gx#check-duplicate-identifiers__% _stx9934_ _where9936_)))) + (lambda (_stx10525_) + (let ((_where10527_ _stx10525_)) + (gx#check-duplicate-identifiers__% _stx10525_ _where10527_)))) (define gx#check-duplicate-identifiers - (lambda _g12568_ - (let ((_g12567_ (##length _g12568_))) - (cond ((##fx= _g12567_ 1) - (apply gx#check-duplicate-identifiers__0 _g12568_)) - ((##fx= _g12567_ 2) - (apply gx#check-duplicate-identifiers__% _g12568_)) + (lambda _g13159_ + (let ((_g13158_ (##length _g13159_))) + (cond ((##fx= _g13158_ 1) + (apply (lambda (_stx10525_) + (gx#check-duplicate-identifiers__0 _stx10525_)) + _g13159_)) + ((##fx= _g13158_ 2) + (apply (lambda (_stx10529_ _where10530_) + (gx#check-duplicate-identifiers__% + _stx10529_ + _where10530_)) + _g13159_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g12568_)))))) + _g13159_)))))) (define gx#core-bind-values? - (lambda (_stx9879_) + (lambda (_stx10470_) (gx#stx-andmap - (lambda (_x9881_) - (let ((_$e9883_ (gx#identifier? _x9881_))) - (if _$e9883_ _$e9883_ (gx#stx-false? _x9881_)))) - _stx9879_))) + (lambda (_x10472_) + (let ((_$e10474_ (gx#identifier? _x10472_))) + (if _$e10474_ _$e10474_ (gx#stx-false? _x10472_)))) + _stx10470_))) (define gx#core-bind-values!__% - (lambda (_stx9843_ _rebind?9844_ _phi9845_ _ctx9846_) + (lambda (_stx10434_ _rebind?10435_ _phi10436_ _ctx10437_) (gx#stx-for-each1 - (lambda (_id9848_) - (if (gx#identifier? _id9848_) + (lambda (_id10439_) + (if (gx#identifier? _id10439_) (gx#core-bind-runtime!__% - _id9848_ - _rebind?9844_ - _phi9845_ - _ctx9846_) + _id10439_ + _rebind?10435_ + _phi10436_ + _ctx10437_) '#!void)) - _stx9843_))) + _stx10434_))) (define gx#core-bind-values!__0 - (lambda (_stx9853_) - (let* ((_rebind?9855_ '#f) - (_phi9857_ (gx#current-expander-phi)) - (_ctx9859_ (gx#current-expander-context))) + (lambda (_stx10444_) + (let* ((_rebind?10446_ '#f) + (_phi10448_ (gx#current-expander-phi)) + (_ctx10450_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx9853_ - _rebind?9855_ - _phi9857_ - _ctx9859_)))) + _stx10444_ + _rebind?10446_ + _phi10448_ + _ctx10450_)))) (define gx#core-bind-values!__1 - (lambda (_stx9861_ _rebind?9862_) - (let* ((_phi9864_ (gx#current-expander-phi)) - (_ctx9866_ (gx#current-expander-context))) + (lambda (_stx10452_ _rebind?10453_) + (let* ((_phi10455_ (gx#current-expander-phi)) + (_ctx10457_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx9861_ - _rebind?9862_ - _phi9864_ - _ctx9866_)))) + _stx10452_ + _rebind?10453_ + _phi10455_ + _ctx10457_)))) (define gx#core-bind-values!__2 - (lambda (_stx9868_ _rebind?9869_ _phi9870_) - (let ((_ctx9872_ (gx#current-expander-context))) + (lambda (_stx10459_ _rebind?10460_ _phi10461_) + (let ((_ctx10463_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx9868_ - _rebind?9869_ - _phi9870_ - _ctx9872_)))) + _stx10459_ + _rebind?10460_ + _phi10461_ + _ctx10463_)))) (define gx#core-bind-values! - (lambda _g12570_ - (let ((_g12569_ (##length _g12570_))) - (cond ((##fx= _g12569_ 1) (apply gx#core-bind-values!__0 _g12570_)) - ((##fx= _g12569_ 2) (apply gx#core-bind-values!__1 _g12570_)) - ((##fx= _g12569_ 3) (apply gx#core-bind-values!__2 _g12570_)) - ((##fx= _g12569_ 4) (apply gx#core-bind-values!__% _g12570_)) + (lambda _g13161_ + (let ((_g13160_ (##length _g13161_))) + (cond ((##fx= _g13160_ 1) + (apply (lambda (_stx10444_) + (gx#core-bind-values!__0 _stx10444_)) + _g13161_)) + ((##fx= _g13160_ 2) + (apply (lambda (_stx10452_ _rebind?10453_) + (gx#core-bind-values!__1 _stx10452_ _rebind?10453_)) + _g13161_)) + ((##fx= _g13160_ 3) + (apply (lambda (_stx10459_ _rebind?10460_ _phi10461_) + (gx#core-bind-values!__2 + _stx10459_ + _rebind?10460_ + _phi10461_)) + _g13161_)) + ((##fx= _g13160_ 4) + (apply (lambda (_stx10465_ + _rebind?10466_ + _phi10467_ + _ctx10468_) + (gx#core-bind-values!__% + _stx10465_ + _rebind?10466_ + _phi10467_ + _ctx10468_)) + _g13161_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g12570_)))))) + _g13161_)))))) (define gx#core-quote-bind-values - (lambda (_stx9838_) + (lambda (_stx10429_) (gx#stx-map1 - (lambda (_x9840_) - (if (gx#identifier? _x9840_) (gx#core-quote-syntax__0 _x9840_) '#f)) - _stx9838_))) + (lambda (_x10431_) + (if (gx#identifier? _x10431_) + (gx#core-quote-syntax__0 _x10431_) + '#f)) + _stx10429_))) (define gx#core-runtime-ref? - (lambda (_stx9831_) - (if (gx#identifier? _stx9831_) - (let* ((_bind9833_ (gx#resolve-identifier__0 _stx9831_)) - (_$e9835_ (not _bind9833_))) - (if _$e9835_ - _$e9835_ + (lambda (_stx10422_) + (if (gx#identifier? _stx10422_) + (let* ((_bind10424_ (gx#resolve-identifier__0 _stx10422_)) + (_$e10426_ (not _bind10424_))) + (if _$e10426_ + _$e10426_ (##structure-instance-of? - _bind9833_ + _bind10424_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_id9823_ _form9824_) - (let ((_bind9826_ (gx#resolve-identifier__0 _id9823_))) - (if (##structure-instance-of? _bind9826_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _id9823_) - (if (not _bind9826_) + (lambda (_id10414_ _form10415_) + (let ((_bind10417_ (gx#resolve-identifier__0 _id10414_))) + (if (##structure-instance-of? _bind10417_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _id10414_) + (if (not _bind10417_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _id9823_))) - (gx#core-quote-syntax__0 _id9823_) + (gx#core-extern-symbol? (gx#stx-e _id10414_))) + (gx#core-quote-syntax__0 _id10414_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _form9824_ - _id9823_)) + _form10415_ + _id10414_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _form9824_ - _id9823_)))))) + _form10415_ + _id10414_)))))) (define gx#core-bind-runtime!__% - (lambda (_id9782_ _rebind?9783_ _phi9784_ _ctx9785_) - (let* ((_key9787_ (gx#core-identifier-key _id9782_)) - (_eid9789_ - (gx#make-binding-id__% _key9787_ '#f _phi9784_ _ctx9785_)) - (_bind9791_ - (if (##structure-instance-of? _ctx9785_ 'gx#module-context::t) + (lambda (_id10373_ _rebind?10374_ _phi10375_ _ctx10376_) + (let* ((_key10378_ (gx#core-identifier-key _id10373_)) + (_eid10380_ + (gx#make-binding-id__% _key10378_ '#f _phi10375_ _ctx10376_)) + (_bind10382_ + (if (##structure-instance-of? _ctx10376_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid9789_ - _key9787_ - _phi9784_ - _ctx9785_) - (if (##structure-instance-of? _ctx9785_ 'gx#top-context::t) + _eid10380_ + _key10378_ + _phi10375_ + _ctx10376_) + (if (##structure-instance-of? + _ctx10376_ + 'gx#top-context::t) (##structure gx#top-binding::t - _eid9789_ - _key9787_ - _phi9784_) + _eid10380_ + _key10378_ + _phi10375_) (if (##structure-instance-of? - _ctx9785_ + _ctx10376_ 'gx#local-context::t) (##structure gx#local-binding::t - _eid9789_ - _key9787_ - _phi9784_) + _eid10380_ + _key10378_ + _phi10375_) (##structure gx#runtime-binding::t - _eid9789_ - _key9787_ - _phi9784_)))))) + _eid10380_ + _key10378_ + _phi10375_)))))) (gx#bind-identifier!__% - _id9782_ - _bind9791_ - _rebind?9783_ - _phi9784_ - _ctx9785_)))) + _id10373_ + _bind10382_ + _rebind?10374_ + _phi10375_ + _ctx10376_)))) (define gx#core-bind-runtime!__0 - (lambda (_id9797_) - (let* ((_rebind?9799_ '#f) - (_phi9801_ (gx#current-expander-phi)) - (_ctx9803_ (gx#current-expander-context))) + (lambda (_id10388_) + (let* ((_rebind?10390_ '#f) + (_phi10392_ (gx#current-expander-phi)) + (_ctx10394_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id9797_ - _rebind?9799_ - _phi9801_ - _ctx9803_)))) + _id10388_ + _rebind?10390_ + _phi10392_ + _ctx10394_)))) (define gx#core-bind-runtime!__1 - (lambda (_id9805_ _rebind?9806_) - (let* ((_phi9808_ (gx#current-expander-phi)) - (_ctx9810_ (gx#current-expander-context))) + (lambda (_id10396_ _rebind?10397_) + (let* ((_phi10399_ (gx#current-expander-phi)) + (_ctx10401_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id9805_ - _rebind?9806_ - _phi9808_ - _ctx9810_)))) + _id10396_ + _rebind?10397_ + _phi10399_ + _ctx10401_)))) (define gx#core-bind-runtime!__2 - (lambda (_id9812_ _rebind?9813_ _phi9814_) - (let ((_ctx9816_ (gx#current-expander-context))) + (lambda (_id10403_ _rebind?10404_ _phi10405_) + (let ((_ctx10407_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id9812_ - _rebind?9813_ - _phi9814_ - _ctx9816_)))) + _id10403_ + _rebind?10404_ + _phi10405_ + _ctx10407_)))) (define gx#core-bind-runtime! - (lambda _g12572_ - (let ((_g12571_ (##length _g12572_))) - (cond ((##fx= _g12571_ 1) (apply gx#core-bind-runtime!__0 _g12572_)) - ((##fx= _g12571_ 2) (apply gx#core-bind-runtime!__1 _g12572_)) - ((##fx= _g12571_ 3) (apply gx#core-bind-runtime!__2 _g12572_)) - ((##fx= _g12571_ 4) (apply gx#core-bind-runtime!__% _g12572_)) + (lambda _g13163_ + (let ((_g13162_ (##length _g13163_))) + (cond ((##fx= _g13162_ 1) + (apply (lambda (_id10388_) + (gx#core-bind-runtime!__0 _id10388_)) + _g13163_)) + ((##fx= _g13162_ 2) + (apply (lambda (_id10396_ _rebind?10397_) + (gx#core-bind-runtime!__1 _id10396_ _rebind?10397_)) + _g13163_)) + ((##fx= _g13162_ 3) + (apply (lambda (_id10403_ _rebind?10404_ _phi10405_) + (gx#core-bind-runtime!__2 + _id10403_ + _rebind?10404_ + _phi10405_)) + _g13163_)) + ((##fx= _g13162_ 4) + (apply (lambda (_id10409_ + _rebind?10410_ + _phi10411_ + _ctx10412_) + (gx#core-bind-runtime!__% + _id10409_ + _rebind?10410_ + _phi10411_ + _ctx10412_)) + _g13163_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g12572_)))))) + _g13163_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_id9737_ _eid9738_ _rebind?9739_ _phi9740_ _ctx9741_) - (let* ((_key9743_ (gx#core-identifier-key _id9737_)) - (_bind9745_ - (if (##structure-instance-of? _ctx9741_ 'gx#module-context::t) + (lambda (_id10328_ _eid10329_ _rebind?10330_ _phi10331_ _ctx10332_) + (let* ((_key10334_ (gx#core-identifier-key _id10328_)) + (_bind10336_ + (if (##structure-instance-of? _ctx10332_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid9738_ - _key9743_ - _phi9740_ - _ctx9741_) - (if (##structure-instance-of? _ctx9741_ 'gx#top-context::t) + _eid10329_ + _key10334_ + _phi10331_ + _ctx10332_) + (if (##structure-instance-of? + _ctx10332_ + 'gx#top-context::t) (##structure gx#top-binding::t - _eid9738_ - _key9743_ - _phi9740_) + _eid10329_ + _key10334_ + _phi10331_) (##structure gx#runtime-binding::t - _eid9738_ - _key9743_ - _phi9740_))))) + _eid10329_ + _key10334_ + _phi10331_))))) (gx#bind-identifier!__% - _id9737_ - _bind9745_ - _rebind?9739_ - _phi9740_ - _ctx9741_)))) + _id10328_ + _bind10336_ + _rebind?10330_ + _phi10331_ + _ctx10332_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_id9751_ _eid9752_) - (let* ((_rebind?9754_ '#f) - (_phi9756_ (gx#current-expander-phi)) - (_ctx9758_ (gx#current-expander-context))) + (lambda (_id10342_ _eid10343_) + (let* ((_rebind?10345_ '#f) + (_phi10347_ (gx#current-expander-phi)) + (_ctx10349_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id9751_ - _eid9752_ - _rebind?9754_ - _phi9756_ - _ctx9758_)))) + _id10342_ + _eid10343_ + _rebind?10345_ + _phi10347_ + _ctx10349_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_id9760_ _eid9761_ _rebind?9762_) - (let* ((_phi9764_ (gx#current-expander-phi)) - (_ctx9766_ (gx#current-expander-context))) + (lambda (_id10351_ _eid10352_ _rebind?10353_) + (let* ((_phi10355_ (gx#current-expander-phi)) + (_ctx10357_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id9760_ - _eid9761_ - _rebind?9762_ - _phi9764_ - _ctx9766_)))) + _id10351_ + _eid10352_ + _rebind?10353_ + _phi10355_ + _ctx10357_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_id9768_ _eid9769_ _rebind?9770_ _phi9771_) - (let ((_ctx9773_ (gx#current-expander-context))) + (lambda (_id10359_ _eid10360_ _rebind?10361_ _phi10362_) + (let ((_ctx10364_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id9768_ - _eid9769_ - _rebind?9770_ - _phi9771_ - _ctx9773_)))) + _id10359_ + _eid10360_ + _rebind?10361_ + _phi10362_ + _ctx10364_)))) (define gx#core-bind-runtime-reference! - (lambda _g12574_ - (let ((_g12573_ (##length _g12574_))) - (cond ((##fx= _g12573_ 2) - (apply gx#core-bind-runtime-reference!__0 _g12574_)) - ((##fx= _g12573_ 3) - (apply gx#core-bind-runtime-reference!__1 _g12574_)) - ((##fx= _g12573_ 4) - (apply gx#core-bind-runtime-reference!__2 _g12574_)) - ((##fx= _g12573_ 5) - (apply gx#core-bind-runtime-reference!__% _g12574_)) + (lambda _g13165_ + (let ((_g13164_ (##length _g13165_))) + (cond ((##fx= _g13164_ 2) + (apply (lambda (_id10342_ _eid10343_) + (gx#core-bind-runtime-reference!__0 + _id10342_ + _eid10343_)) + _g13165_)) + ((##fx= _g13164_ 3) + (apply (lambda (_id10351_ _eid10352_ _rebind?10353_) + (gx#core-bind-runtime-reference!__1 + _id10351_ + _eid10352_ + _rebind?10353_)) + _g13165_)) + ((##fx= _g13164_ 4) + (apply (lambda (_id10359_ + _eid10360_ + _rebind?10361_ + _phi10362_) + (gx#core-bind-runtime-reference!__2 + _id10359_ + _eid10360_ + _rebind?10361_ + _phi10362_)) + _g13165_)) + ((##fx= _g13164_ 5) + (apply (lambda (_id10366_ + _eid10367_ + _rebind?10368_ + _phi10369_ + _ctx10370_) + (gx#core-bind-runtime-reference!__% + _id10366_ + _eid10367_ + _rebind?10368_ + _phi10369_ + _ctx10370_)) + _g13165_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g12574_)))))) + _g13165_)))))) (define gx#core-bind-extern!__% - (lambda (_id9697_ _eid9698_ _rebind?9699_ _phi9700_ _ctx9701_) + (lambda (_id10288_ _eid10289_ _rebind?10290_ _phi10291_ _ctx10292_) (gx#bind-identifier!__% - _id9697_ + _id10288_ (##structure gx#extern-binding::t - _eid9698_ - (gx#core-identifier-key _id9697_) - _phi9700_) - _rebind?9699_ - _phi9700_ - _ctx9701_))) + _eid10289_ + (gx#core-identifier-key _id10288_) + _phi10291_) + _rebind?10290_ + _phi10291_ + _ctx10292_))) (define gx#core-bind-extern!__0 - (lambda (_id9706_ _eid9707_) - (let* ((_rebind?9709_ '#f) - (_phi9711_ (gx#current-expander-phi)) - (_ctx9713_ (gx#current-expander-context))) + (lambda (_id10297_ _eid10298_) + (let* ((_rebind?10300_ '#f) + (_phi10302_ (gx#current-expander-phi)) + (_ctx10304_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id9706_ - _eid9707_ - _rebind?9709_ - _phi9711_ - _ctx9713_)))) + _id10297_ + _eid10298_ + _rebind?10300_ + _phi10302_ + _ctx10304_)))) (define gx#core-bind-extern!__1 - (lambda (_id9715_ _eid9716_ _rebind?9717_) - (let* ((_phi9719_ (gx#current-expander-phi)) - (_ctx9721_ (gx#current-expander-context))) + (lambda (_id10306_ _eid10307_ _rebind?10308_) + (let* ((_phi10310_ (gx#current-expander-phi)) + (_ctx10312_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id9715_ - _eid9716_ - _rebind?9717_ - _phi9719_ - _ctx9721_)))) + _id10306_ + _eid10307_ + _rebind?10308_ + _phi10310_ + _ctx10312_)))) (define gx#core-bind-extern!__2 - (lambda (_id9723_ _eid9724_ _rebind?9725_ _phi9726_) - (let ((_ctx9728_ (gx#current-expander-context))) + (lambda (_id10314_ _eid10315_ _rebind?10316_ _phi10317_) + (let ((_ctx10319_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id9723_ - _eid9724_ - _rebind?9725_ - _phi9726_ - _ctx9728_)))) + _id10314_ + _eid10315_ + _rebind?10316_ + _phi10317_ + _ctx10319_)))) (define gx#core-bind-extern! - (lambda _g12576_ - (let ((_g12575_ (##length _g12576_))) - (cond ((##fx= _g12575_ 2) (apply gx#core-bind-extern!__0 _g12576_)) - ((##fx= _g12575_ 3) (apply gx#core-bind-extern!__1 _g12576_)) - ((##fx= _g12575_ 4) (apply gx#core-bind-extern!__2 _g12576_)) - ((##fx= _g12575_ 5) (apply gx#core-bind-extern!__% _g12576_)) + (lambda _g13167_ + (let ((_g13166_ (##length _g13167_))) + (cond ((##fx= _g13166_ 2) + (apply (lambda (_id10297_ _eid10298_) + (gx#core-bind-extern!__0 _id10297_ _eid10298_)) + _g13167_)) + ((##fx= _g13166_ 3) + (apply (lambda (_id10306_ _eid10307_ _rebind?10308_) + (gx#core-bind-extern!__1 + _id10306_ + _eid10307_ + _rebind?10308_)) + _g13167_)) + ((##fx= _g13166_ 4) + (apply (lambda (_id10314_ + _eid10315_ + _rebind?10316_ + _phi10317_) + (gx#core-bind-extern!__2 + _id10314_ + _eid10315_ + _rebind?10316_ + _phi10317_)) + _g13167_)) + ((##fx= _g13166_ 5) + (apply (lambda (_id10321_ + _eid10322_ + _rebind?10323_ + _phi10324_ + _ctx10325_) + (gx#core-bind-extern!__% + _id10321_ + _eid10322_ + _rebind?10323_ + _phi10324_ + _ctx10325_)) + _g13167_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g12576_)))))) + _g13167_)))))) (define gx#core-bind-syntax!__% - (lambda (_id9651_ _e9652_ _rebind?9653_ _phi9654_ _ctx9655_) + (lambda (_id10242_ _e10243_ _rebind?10244_ _phi10245_ _ctx10246_) (gx#bind-identifier!__% - _id9651_ - (let ((_key9660_ (gx#core-identifier-key _id9651_)) - (_e9661_ (if (or (##structure-instance-of? - _e9652_ - 'gx#expander::t) - (##structure-instance-of? - _e9652_ - 'gx#expander-context::t)) - _e9652_ - (##structure - gx#user-expander::t - _e9652_ - _ctx9655_ - _phi9654_)))) + _id10242_ + (let ((_key10251_ (gx#core-identifier-key _id10242_)) + (_e10252_ + (if (or (##structure-instance-of? _e10243_ 'gx#expander::t) + (##structure-instance-of? + _e10243_ + 'gx#expander-context::t)) + _e10243_ + (##structure + gx#user-expander::t + _e10243_ + _ctx10246_ + _phi10245_)))) (##structure gx#syntax-binding::t - (gx#make-binding-id__% _key9660_ '#t _phi9654_ _ctx9655_) - _key9660_ - _phi9654_ - _e9661_)) - _rebind?9653_ - _phi9654_ - _ctx9655_))) + (gx#make-binding-id__% _key10251_ '#t _phi10245_ _ctx10246_) + _key10251_ + _phi10245_ + _e10252_)) + _rebind?10244_ + _phi10245_ + _ctx10246_))) (define gx#core-bind-syntax!__0 - (lambda (_id9666_ _e9667_) - (let* ((_rebind?9669_ '#f) - (_phi9671_ (gx#current-expander-phi)) - (_ctx9673_ (gx#current-expander-context))) + (lambda (_id10257_ _e10258_) + (let* ((_rebind?10260_ '#f) + (_phi10262_ (gx#current-expander-phi)) + (_ctx10264_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id9666_ - _e9667_ - _rebind?9669_ - _phi9671_ - _ctx9673_)))) + _id10257_ + _e10258_ + _rebind?10260_ + _phi10262_ + _ctx10264_)))) (define gx#core-bind-syntax!__1 - (lambda (_id9675_ _e9676_ _rebind?9677_) - (let* ((_phi9679_ (gx#current-expander-phi)) - (_ctx9681_ (gx#current-expander-context))) + (lambda (_id10266_ _e10267_ _rebind?10268_) + (let* ((_phi10270_ (gx#current-expander-phi)) + (_ctx10272_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id9675_ - _e9676_ - _rebind?9677_ - _phi9679_ - _ctx9681_)))) + _id10266_ + _e10267_ + _rebind?10268_ + _phi10270_ + _ctx10272_)))) (define gx#core-bind-syntax!__2 - (lambda (_id9683_ _e9684_ _rebind?9685_ _phi9686_) - (let ((_ctx9688_ (gx#current-expander-context))) + (lambda (_id10274_ _e10275_ _rebind?10276_ _phi10277_) + (let ((_ctx10279_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id9683_ - _e9684_ - _rebind?9685_ - _phi9686_ - _ctx9688_)))) + _id10274_ + _e10275_ + _rebind?10276_ + _phi10277_ + _ctx10279_)))) (define gx#core-bind-syntax! - (lambda _g12578_ - (let ((_g12577_ (##length _g12578_))) - (cond ((##fx= _g12577_ 2) (apply gx#core-bind-syntax!__0 _g12578_)) - ((##fx= _g12577_ 3) (apply gx#core-bind-syntax!__1 _g12578_)) - ((##fx= _g12577_ 4) (apply gx#core-bind-syntax!__2 _g12578_)) - ((##fx= _g12577_ 5) (apply gx#core-bind-syntax!__% _g12578_)) + (lambda _g13169_ + (let ((_g13168_ (##length _g13169_))) + (cond ((##fx= _g13168_ 2) + (apply (lambda (_id10257_ _e10258_) + (gx#core-bind-syntax!__0 _id10257_ _e10258_)) + _g13169_)) + ((##fx= _g13168_ 3) + (apply (lambda (_id10266_ _e10267_ _rebind?10268_) + (gx#core-bind-syntax!__1 + _id10266_ + _e10267_ + _rebind?10268_)) + _g13169_)) + ((##fx= _g13168_ 4) + (apply (lambda (_id10274_ _e10275_ _rebind?10276_ _phi10277_) + (gx#core-bind-syntax!__2 + _id10274_ + _e10275_ + _rebind?10276_ + _phi10277_)) + _g13169_)) + ((##fx= _g13168_ 5) + (apply (lambda (_id10281_ + _e10282_ + _rebind?10283_ + _phi10284_ + _ctx10285_) + (gx#core-bind-syntax!__% + _id10281_ + _e10282_ + _rebind?10283_ + _phi10284_ + _ctx10285_)) + _g13169_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g12578_)))))) + _g13169_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_id9634_ _e9635_ _rebind?9636_) + (lambda (_id10225_ _e10226_ _rebind?10227_) (gx#core-bind-syntax!__% - _id9634_ - _e9635_ - _rebind?9636_ + _id10225_ + _e10226_ + _rebind?10227_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_id9641_ _e9642_) - (let ((_rebind?9644_ '#f)) - (gx#core-bind-root-syntax!__% _id9641_ _e9642_ _rebind?9644_)))) + (lambda (_id10232_ _e10233_) + (let ((_rebind?10235_ '#f)) + (gx#core-bind-root-syntax!__% _id10232_ _e10233_ _rebind?10235_)))) (define gx#core-bind-root-syntax! - (lambda _g12580_ - (let ((_g12579_ (##length _g12580_))) - (cond ((##fx= _g12579_ 2) - (apply gx#core-bind-root-syntax!__0 _g12580_)) - ((##fx= _g12579_ 3) - (apply gx#core-bind-root-syntax!__% _g12580_)) + (lambda _g13171_ + (let ((_g13170_ (##length _g13171_))) + (cond ((##fx= _g13170_ 2) + (apply (lambda (_id10232_ _e10233_) + (gx#core-bind-root-syntax!__0 _id10232_ _e10233_)) + _g13171_)) + ((##fx= _g13170_ 3) + (apply (lambda (_id10237_ _e10238_ _rebind?10239_) + (gx#core-bind-root-syntax!__% + _id10237_ + _e10238_ + _rebind?10239_)) + _g13171_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g12580_)))))) + _g13171_)))))) (define gx#core-bind-alias!__% - (lambda (_id9592_ _alias-id9593_ _rebind?9594_ _phi9595_ _ctx9596_) + (lambda (_id10183_ _alias-id10184_ _rebind?10185_ _phi10186_ _ctx10187_) (gx#bind-identifier!__% - _id9592_ - (let ((_key9598_ (gx#core-identifier-key _id9592_))) + _id10183_ + (let ((_key10189_ (gx#core-identifier-key _id10183_))) (##structure gx#alias-binding::t - (gx#make-binding-id__% _key9598_ '#t _phi9595_ _ctx9596_) - _key9598_ - _phi9595_ - _alias-id9593_)) - _rebind?9594_ - _phi9595_ - _ctx9596_))) + (gx#make-binding-id__% _key10189_ '#t _phi10186_ _ctx10187_) + _key10189_ + _phi10186_ + _alias-id10184_)) + _rebind?10185_ + _phi10186_ + _ctx10187_))) (define gx#core-bind-alias!__0 - (lambda (_id9603_ _alias-id9604_) - (let* ((_rebind?9606_ '#f) - (_phi9608_ (gx#current-expander-phi)) - (_ctx9610_ (gx#current-expander-context))) + (lambda (_id10194_ _alias-id10195_) + (let* ((_rebind?10197_ '#f) + (_phi10199_ (gx#current-expander-phi)) + (_ctx10201_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id9603_ - _alias-id9604_ - _rebind?9606_ - _phi9608_ - _ctx9610_)))) + _id10194_ + _alias-id10195_ + _rebind?10197_ + _phi10199_ + _ctx10201_)))) (define gx#core-bind-alias!__1 - (lambda (_id9612_ _alias-id9613_ _rebind?9614_) - (let* ((_phi9616_ (gx#current-expander-phi)) - (_ctx9618_ (gx#current-expander-context))) + (lambda (_id10203_ _alias-id10204_ _rebind?10205_) + (let* ((_phi10207_ (gx#current-expander-phi)) + (_ctx10209_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id9612_ - _alias-id9613_ - _rebind?9614_ - _phi9616_ - _ctx9618_)))) + _id10203_ + _alias-id10204_ + _rebind?10205_ + _phi10207_ + _ctx10209_)))) (define gx#core-bind-alias!__2 - (lambda (_id9620_ _alias-id9621_ _rebind?9622_ _phi9623_) - (let ((_ctx9625_ (gx#current-expander-context))) + (lambda (_id10211_ _alias-id10212_ _rebind?10213_ _phi10214_) + (let ((_ctx10216_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id9620_ - _alias-id9621_ - _rebind?9622_ - _phi9623_ - _ctx9625_)))) + _id10211_ + _alias-id10212_ + _rebind?10213_ + _phi10214_ + _ctx10216_)))) (define gx#core-bind-alias! - (lambda _g12582_ - (let ((_g12581_ (##length _g12582_))) - (cond ((##fx= _g12581_ 2) (apply gx#core-bind-alias!__0 _g12582_)) - ((##fx= _g12581_ 3) (apply gx#core-bind-alias!__1 _g12582_)) - ((##fx= _g12581_ 4) (apply gx#core-bind-alias!__2 _g12582_)) - ((##fx= _g12581_ 5) (apply gx#core-bind-alias!__% _g12582_)) + (lambda _g13173_ + (let ((_g13172_ (##length _g13173_))) + (cond ((##fx= _g13172_ 2) + (apply (lambda (_id10194_ _alias-id10195_) + (gx#core-bind-alias!__0 _id10194_ _alias-id10195_)) + _g13173_)) + ((##fx= _g13172_ 3) + (apply (lambda (_id10203_ _alias-id10204_ _rebind?10205_) + (gx#core-bind-alias!__1 + _id10203_ + _alias-id10204_ + _rebind?10205_)) + _g13173_)) + ((##fx= _g13172_ 4) + (apply (lambda (_id10211_ + _alias-id10212_ + _rebind?10213_ + _phi10214_) + (gx#core-bind-alias!__2 + _id10211_ + _alias-id10212_ + _rebind?10213_ + _phi10214_)) + _g13173_)) + ((##fx= _g13172_ 5) + (apply (lambda (_id10218_ + _alias-id10219_ + _rebind?10220_ + _phi10221_ + _ctx10222_) + (gx#core-bind-alias!__% + _id10218_ + _alias-id10219_ + _rebind?10220_ + _phi10221_ + _ctx10222_)) + _g13173_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g12582_)))))) + _g13173_)))))) (define gx#make-binding-id__% - (lambda (_key9549_ _syntax?9550_ _phi9551_ _ctx9552_) - (if (uninterned-symbol? _key9549_) + (lambda (_key10140_ _syntax?10141_ _phi10142_ _ctx10143_) + (if (uninterned-symbol? _key10140_) (gensym 'L) - (if (pair? _key9549_) - (gensym (car _key9549_)) - (if (##structure-instance-of? _ctx9552_ 'gx#top-context::t) - (let ((_ns9554_ (gx#core-context-namespace__% _ctx9552_))) - (if (and (fxzero? _phi9551_) (not _syntax?9550_)) - (if _ns9554_ - (make-symbol _ns9554_ '"#" _key9549_) - _key9549_) - (if _syntax?9550_ + (if (pair? _key10140_) + (gensym (car _key10140_)) + (if (##structure-instance-of? _ctx10143_ 'gx#top-context::t) + (let ((_ns10145_ + (gx#core-context-namespace__% _ctx10143_))) + (if (and (fxzero? _phi10142_) (not _syntax?10141_)) + (if _ns10145_ + (make-symbol _ns10145_ '"#" _key10140_) + _key10140_) + (if _syntax?10141_ (make-symbol - (let ((_$e9556_ _ns9554_)) - (if _$e9556_ _$e9556_ '"")) + (let ((_$e10147_ _ns10145_)) + (if _$e10147_ _$e10147_ '"")) '"[:" - (number->string _phi9551_) + (number->string _phi10142_) '":]#" - _key9549_) + _key10140_) (make-symbol - (let ((_$e9559_ _ns9554_)) - (if _$e9559_ _$e9559_ '"")) + (let ((_$e10150_ _ns10145_)) + (if _$e10150_ _$e10150_ '"")) '"[" - (number->string _phi9551_) + (number->string _phi10142_) '"]#" - _key9549_)))) - (gensym _key9549_)))))) + _key10140_)))) + (gensym _key10140_)))))) (define gx#make-binding-id__0 - (lambda (_key9565_) - (let* ((_syntax?9567_ '#f) - (_phi9569_ (gx#current-expander-phi)) - (_ctx9571_ (gx#current-expander-context))) + (lambda (_key10156_) + (let* ((_syntax?10158_ '#f) + (_phi10160_ (gx#current-expander-phi)) + (_ctx10162_ (gx#current-expander-context))) (gx#make-binding-id__% - _key9565_ - _syntax?9567_ - _phi9569_ - _ctx9571_)))) + _key10156_ + _syntax?10158_ + _phi10160_ + _ctx10162_)))) (define gx#make-binding-id__1 - (lambda (_key9573_ _syntax?9574_) - (let* ((_phi9576_ (gx#current-expander-phi)) - (_ctx9578_ (gx#current-expander-context))) + (lambda (_key10164_ _syntax?10165_) + (let* ((_phi10167_ (gx#current-expander-phi)) + (_ctx10169_ (gx#current-expander-context))) (gx#make-binding-id__% - _key9573_ - _syntax?9574_ - _phi9576_ - _ctx9578_)))) + _key10164_ + _syntax?10165_ + _phi10167_ + _ctx10169_)))) (define gx#make-binding-id__2 - (lambda (_key9580_ _syntax?9581_ _phi9582_) - (let ((_ctx9584_ (gx#current-expander-context))) + (lambda (_key10171_ _syntax?10172_ _phi10173_) + (let ((_ctx10175_ (gx#current-expander-context))) (gx#make-binding-id__% - _key9580_ - _syntax?9581_ - _phi9582_ - _ctx9584_)))) + _key10171_ + _syntax?10172_ + _phi10173_ + _ctx10175_)))) (define gx#make-binding-id - (lambda _g12584_ - (let ((_g12583_ (##length _g12584_))) - (cond ((##fx= _g12583_ 1) (apply gx#make-binding-id__0 _g12584_)) - ((##fx= _g12583_ 2) (apply gx#make-binding-id__1 _g12584_)) - ((##fx= _g12583_ 3) (apply gx#make-binding-id__2 _g12584_)) - ((##fx= _g12583_ 4) (apply gx#make-binding-id__% _g12584_)) + (lambda _g13175_ + (let ((_g13174_ (##length _g13175_))) + (cond ((##fx= _g13174_ 1) + (apply (lambda (_key10156_) + (gx#make-binding-id__0 _key10156_)) + _g13175_)) + ((##fx= _g13174_ 2) + (apply (lambda (_key10164_ _syntax?10165_) + (gx#make-binding-id__1 _key10164_ _syntax?10165_)) + _g13175_)) + ((##fx= _g13174_ 3) + (apply (lambda (_key10171_ _syntax?10172_ _phi10173_) + (gx#make-binding-id__2 + _key10171_ + _syntax?10172_ + _phi10173_)) + _g13175_)) + ((##fx= _g13174_ 4) + (apply (lambda (_key10177_ + _syntax?10178_ + _phi10179_ + _ctx10180_) + (gx#make-binding-id__% + _key10177_ + _syntax?10178_ + _phi10179_ + _ctx10180_)) + _g13175_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g12584_)))))))) + _g13175_)))))))) diff --git a/src/bootstrap/gerbil/gambit/bytes__1.scm b/src/bootstrap/gerbil/gambit/bytes__1.scm index 16f38fe00..331a63931 100644 --- a/src/bootstrap/gerbil/gambit/bytes__1.scm +++ b/src/bootstrap/gerbil/gambit/bytes__1.scm @@ -6,22 +6,22 @@ (_g43132_ (lambda (_g4562_) (if (gx#stx-pair? _g4562_) - (let ((_e4765_ (gx#syntax-e _g4562_))) + (let ((_e4965_ (gx#syntax-e _g4562_))) (let ((_hd4869_ - (let () (declare (not safe)) (##car _e4765_))) - (_tl4972_ - (let () (declare (not safe)) (##cdr _e4765_)))) - (if (gx#stx-pair? _tl4972_) - (let ((_e5075_ (gx#syntax-e _tl4972_))) + (let () (declare (not safe)) (##car _e4965_))) + (_tl4772_ + (let () (declare (not safe)) (##cdr _e4965_)))) + (if (gx#stx-pair? _tl4772_) + (let ((_e5275_ (gx#syntax-e _tl4772_))) (let ((_hd5179_ (let () (declare (not safe)) - (##car _e5075_))) - (_tl5282_ + (##car _e5275_))) + (_tl5082_ (let () (declare (not safe)) - (##cdr _e5075_)))) - (if (gx#stx-null? _tl5282_) + (##cdr _e5275_)))) + (if (gx#stx-null? _tl5082_) ((lambda (_L85_) (if (gx#stx-string? _L85_) (let* ((_g101109_ diff --git a/src/bootstrap/gerbil/gambit/ports__0.scm b/src/bootstrap/gerbil/gambit/ports__0.scm index d034254ee..d5d1e1652 100644 --- a/src/bootstrap/gerbil/gambit/ports__0.scm +++ b/src/bootstrap/gerbil/gambit/ports__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/gambit/ports::timestamp 1695199280) + (define gerbil/gambit/ports::timestamp 1695292388) (begin (define gerbil/gambit/ports#write-string (let ((_opt-lambda188193_ diff --git a/src/bootstrap/gerbil/gambit/random__0.scm b/src/bootstrap/gerbil/gambit/random__0.scm index 88c81f502..f5481f728 100644 --- a/src/bootstrap/gerbil/gambit/random__0.scm +++ b/src/bootstrap/gerbil/gambit/random__0.scm @@ -1,4 +1,4 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/gambit/random::timestamp 1695199280) + (define gerbil/gambit/random::timestamp 1695292388) (random-source-randomize! default-random-source)) diff --git a/src/bootstrap/gerbil/gambit/threads.ssi b/src/bootstrap/gerbil/gambit/threads.ssi index b1dfefcc1..a051fc966 100644 --- a/src/bootstrap/gerbil/gambit/threads.ssi +++ b/src/bootstrap/gerbil/gambit/threads.ssi @@ -3,132 +3,132 @@ package: gerbil/gambit namespace: gerbil/gambit/threads (%#begin (%#export - (spec: 0 mutex-specific-set! mutex-specific-set!) + (spec: 0 actor-thread-locals-set! actor-thread-locals-set!) + (spec: 0 with-lock with-lock) + (spec: 0 mutex-specific mutex-specific) + (spec: 0 *primordial-thread-locals* *primordial-thread-locals*) (spec: 0 thread-start! thread-start!) - (spec: 0 make-thread-group make-thread-group) + (spec: 0 thread-state-waiting-for thread-state-waiting-for) + (spec: 0 thread-interrupt! thread-interrupt!) + (spec: 0 mutex-specific-set! mutex-specific-set!) + (spec: 0 make-thread make-thread) + (spec: 0 thread-quantum-set! thread-quantum-set!) + (spec: 0 thread-group-specific thread-group-specific) + (spec: + 0 + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 0 current-thread-group current-thread-group) (spec: 0 spawn-thread spawn-thread) + (spec: 0 mutex-state mutex-state) + (spec: 0 make-thread-group make-thread-group) + (spec: 0 thread-receive thread-receive) + (spec: 0 thread-group-specific-set! thread-group-specific-set!) + (spec: 0 mutex-unlock! mutex-unlock!) + (spec: 0 make-mutex make-mutex) (spec: 0 thread-group-suspend! thread-group-suspend!) (spec: 0 thread-state-running-processor thread-state-running-processor) - (spec: 0 mutex-specific mutex-specific) + (spec: 0 thread-group-terminate! thread-group-terminate!) (spec: 0 thread-resume! thread-resume!) - (spec: 0 make-thread make-thread) - (spec: 0 spawn/name spawn/name) (spec: 0 unhandled-actor-exception-hook unhandled-actor-exception-hook) - (spec: 0 thread-group-specific-set! thread-group-specific-set!) - (spec: 0 thread-receive thread-receive) - (spec: 0 mutex-unlock! mutex-unlock!) - (spec: 0 thread-local-table thread-local-table) - (spec: 0 thread-group? thread-group?) - (spec: 0 thread-sleep! thread-sleep!) - (spec: 0 mutex-state mutex-state) - (spec: 0 make-mutex make-mutex) - (spec: 0 current-thread-group current-thread-group) - (spec: 0 thread-send thread-send) - (spec: 0 thread-group-terminate! thread-group-terminate!) (spec: 0 thread-state-running? thread-state-running?) - (spec: 0 thread? thread?) - (spec: 0 thread-group-parent thread-group-parent) - (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 0 processor? processor?) - (spec: 0 thread-yield! thread-yield!) - (spec: 0 actor-thread-nonce-set! actor-thread-nonce-set!) - (spec: 0 thread-priority-boost thread-priority-boost) - (spec: 0 mutex-name mutex-name) + (spec: 0 thread-send thread-send) + (spec: 0 thread-group->thread-vector thread-group->thread-vector) + (spec: 0 thread-local-table thread-local-table) + (spec: 0 thread-name thread-name) + (spec: 0 thread-thread-group thread-thread-group) (spec: 0 thread-group-name thread-group-name) - (spec: 0 thread-state-initialized? thread-state-initialized?) - (spec: 0 thread-quantum-set! thread-quantum-set!) + (spec: 0 actor-thread-nonce actor-thread-nonce) (spec: 0 mutex-lock! mutex-lock!) - (spec: 0 thread-group-specific thread-group-specific) + (spec: 0 thread-state-initialized? thread-state-initialized?) + (spec: 0 thread-priority-boost thread-priority-boost) + (spec: 0 thread-yield! thread-yield!) + (spec: 0 thread-group-parent thread-group-parent) (spec: 0 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 0 top top) - (spec: 0 actor-thread-nonce actor-thread-nonce) + condition-variable-specific-set! + condition-variable-specific-set!) + (spec: 0 spawn/name spawn/name) + (spec: 0 mutex-name mutex-name) + (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 0 thread? thread?) (spec: 0 thread-group-resume! thread-group-resume!) - (spec: 0 thread-quantum thread-quantum) + (spec: 0 condition-variable? condition-variable?) + (spec: 0 actor-thread-nonce-set! actor-thread-nonce-set!) (spec: 0 thread-state-normally-terminated-result thread-state-normally-terminated-result) + (spec: 0 thread-quantum thread-quantum) + (spec: 0 top top) + (spec: 0 with-dynamic-lock with-dynamic-lock) + (spec: 0 thread-state thread-state) + (spec: 0 thread-join! thread-join!) + (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: + 0 + thread-group->thread-group-list + thread-group->thread-group-list) (spec: 0 make-root-thread make-root-thread) (spec: 0 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 0 thread-suspend! thread-suspend!) - (spec: 0 spawn/group spawn/group) - (spec: 0 thread-mailbox-next thread-mailbox-next) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) + (spec: 0 thread-state-waiting? thread-state-waiting?) + (spec: 0 processor-id processor-id) (spec: 0 thread-group->thread-group-vector thread-group->thread-group-vector) - (spec: 0 current-thread current-thread) + (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 0 current-processor current-processor) + (spec: 0 processor? processor?) + (spec: 0 thread-mailbox-next thread-mailbox-next) (spec: 0 thread-state-abnormally-terminated-reason thread-state-abnormally-terminated-reason) - (spec: 0 condition-variable-specific condition-variable-specific) - (spec: 0 thread-state-waiting? thread-state-waiting?) - (spec: 0 spawn-actor spawn-actor) - (spec: 0 thread-local-ref thread-local-ref) - (spec: - 0 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: - 0 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 0 with-dynamic-lock with-dynamic-lock) - (spec: 0 make-condition-variable make-condition-variable) - (spec: 0 processor-id processor-id) - (spec: 0 thread-thread-group thread-thread-group) - (spec: 0 thread-local-clear! thread-local-clear!) - (spec: 0 thread-name thread-name) - (spec: 0 thread-group->thread-vector thread-group->thread-vector) - (spec: 0 condition-variable? condition-variable?) - (spec: 0 thread-terminate! thread-terminate!) + (spec: 0 thread-suspend! thread-suspend!) (spec: 0 thread-group->thread-list thread-group->thread-list) + (spec: 0 condition-variable-name condition-variable-name) + (spec: 0 mutex? mutex?) + (spec: 0 actor-thread-locals actor-thread-locals) + (spec: 0 make-condition-variable make-condition-variable) (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 0 thread-terminate! thread-terminate!) (spec: 0 thread-state-abnormally-terminated? thread-state-abnormally-terminated?) - (spec: 0 current-processor current-processor) - (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 0 condition-variable-signal! condition-variable-signal!) + (spec: 0 thread-local-clear! thread-local-clear!) + (spec: 0 spawn-actor spawn-actor) + (spec: 0 thread-sleep! thread-sleep!) + (spec: 0 thread-group? thread-group?) (spec: 0 actor-thread? actor-thread?) - (spec: 0 thread-base-priority-set! thread-base-priority-set!) - (spec: 0 thread-specific-set! thread-specific-set!) - (spec: 0 mutex? mutex?) - (spec: 0 thread-init! thread-init!) - (spec: 0 *primordial-thread-locals* *primordial-thread-locals*) (spec: 0 thread-base-priority thread-base-priority) + (spec: 0 condition-variable-specific condition-variable-specific) + (spec: 0 current-thread current-thread) + (spec: 0 spawn spawn) (spec: 0 thread-specific thread-specific) + (spec: 0 spawn/group spawn/group) (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 0 spawn spawn) - (spec: 0 condition-variable-signal! condition-variable-signal!) - (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 0 actor-thread-locals actor-thread-locals) + (spec: 0 thread-base-priority-set! thread-base-priority-set!) + (spec: 0 thread-local-get thread-local-get) + (spec: 0 thread-local-set! thread-local-set!) + (spec: 0 thread-local-ref thread-local-ref) (spec: 0 unhandled-actor-exception-hook-set! unhandled-actor-exception-hook-set!) - (spec: 0 thread-join! thread-join!) - (spec: 0 thread-state thread-state) - (spec: 0 actor-thread-locals-set! actor-thread-locals-set!) - (spec: 0 thread-local-get thread-local-get) - (spec: 0 condition-variable-name condition-variable-name) - (spec: 0 thread-state-waiting-for thread-state-waiting-for) - (spec: 0 thread-local-set! thread-local-set!) - (spec: 0 with-lock with-lock) - (spec: 0 thread-interrupt! thread-interrupt!)) + (spec: 0 thread-specific-set! thread-specific-set!) + (spec: 0 thread-init! thread-init!)) (%#extern (current-thread current-thread) (thread? thread?) diff --git a/src/bootstrap/gerbil/gambit/threads__0.scm b/src/bootstrap/gerbil/gambit/threads__0.scm index 4765403e8..fb600df55 100644 --- a/src/bootstrap/gerbil/gambit/threads__0.scm +++ b/src/bootstrap/gerbil/gambit/threads__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/gambit/threads::timestamp 1695199280) + (define gerbil/gambit/threads::timestamp 1695292388) (begin (define gerbil/gambit/threads#spawn (lambda (_f330_ . _args331_) diff --git a/src/bootstrap/gerbil/runtime/control__0.scm b/src/bootstrap/gerbil/runtime/control__0.scm index 38beed0d4..62989610c 100644 --- a/src/bootstrap/gerbil/runtime/control__0.scm +++ b/src/bootstrap/gerbil/runtime/control__0.scm @@ -1,229 +1,283 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1695206877) + (define gerbil/runtime/control::timestamp 1695292370) (begin (define make-promise - (lambda (_thunk8232_) - (let () (declare (not safe)) (##make-delay-promise _thunk8232_)))) + (lambda (_thunk8504_) + (let () (declare (not safe)) (##make-delay-promise _thunk8504_)))) (define call-with-parameters - (lambda (_thunk8180_ . _rest8181_) - (let* ((_rest81828193_ _rest8181_) - (_E81858197_ - (lambda () (error '"No clause matching" _rest81828193_)))) - (let ((_K81878213_ - (lambda (_rest8208_ _val8209_ _param8210_) - (let ((__tmp8244 - (if (null? _rest8208_) - _thunk8180_ + (lambda (_thunk8452_ . _rest8453_) + (let* ((_rest84548465_ _rest8453_) + (_E84578469_ + (lambda () (error '"No clause matching" _rest84548465_)))) + (let ((_K84598485_ + (lambda (_rest8480_ _val8481_ _param8482_) + (let ((__tmp8516 + (if (let () (declare (not safe)) (null? _rest8480_)) + _thunk8452_ (lambda () (apply call-with-parameters - _thunk8180_ - _rest8208_))))) + _thunk8452_ + _rest8480_))))) (declare (not safe)) - (##parameterize1 _param8210_ _val8209_ __tmp8244)))) - (_K81868202_ (lambda () (_thunk8180_)))) - (let ((_try-match81848205_ + (##parameterize1 _param8482_ _val8481_ __tmp8516)))) + (_K84588474_ (lambda () (_thunk8452_)))) + (let ((_try-match84568477_ (lambda () - (if (let () (declare (not safe)) (##null? _rest81828193_)) - (_thunk8180_) - (_E81858197_))))) - (if (let () (declare (not safe)) (##pair? _rest81828193_)) - (let ((_tl81898218_ - (let () (declare (not safe)) (##cdr _rest81828193_))) - (_hd81888216_ - (let () (declare (not safe)) (##car _rest81828193_)))) - (if (let () (declare (not safe)) (##pair? _tl81898218_)) - (let ((_tl81918225_ + (if (let () (declare (not safe)) (##null? _rest84548465_)) + (let () (declare (not safe)) (_thunk8452_)) + (let () (declare (not safe)) (_E84578469_)))))) + (if (let () (declare (not safe)) (##pair? _rest84548465_)) + (let ((_tl84618490_ + (let () (declare (not safe)) (##cdr _rest84548465_))) + (_hd84608488_ + (let () (declare (not safe)) (##car _rest84548465_)))) + (if (let () (declare (not safe)) (##pair? _tl84618490_)) + (let ((_tl84638497_ (let () (declare (not safe)) - (##cdr _tl81898218_))) - (_hd81908223_ + (##cdr _tl84618490_))) + (_hd84628495_ (let () (declare (not safe)) - (##car _tl81898218_)))) - (let ((_param8221_ _hd81888216_) - (_val8228_ _hd81908223_) - (_rest8230_ _tl81918225_)) - (_K81878213_ _rest8230_ _val8228_ _param8221_))) - (_E81858197_))) - (_try-match81848205_))))))) + (##car _tl84618490_)))) + (let ((_param8493_ _hd84608488_) + (_val8500_ _hd84628495_) + (_rest8502_ _tl84638497_)) + (let () + (declare (not safe)) + (_K84598485_ _rest8502_ _val8500_ _param8493_)))) + (let () (declare (not safe)) (_E84578469_)))) + (let () (declare (not safe)) (_try-match84568477_)))))))) (define with-unwind-protect - (lambda (_K8173_ _fini8174_) - (let ((_once8176_ '#f)) - (dynamic-wind - (lambda () - (declare (not interrupts-enabled)) - (if _once8176_ - (error '"Cannot re-enter unwind protected block") - (set! _once8176_ '#t))) - _K8173_ - _fini8174_)))) + (lambda (_K8445_ _fini8446_) + (let* ((_once8448_ '#f) + (__tmp8517 + (lambda () + (declare (not interrupts-enabled)) + (if _once8448_ + (error '"Cannot re-enter unwind protected block") + (set! _once8448_ '#t))))) + (declare (not safe)) + (dynamic-wind __tmp8517 _K8445_ _fini8446_)))) (define keyword-dispatch - (lambda (_kwt8070_ _K8071_ . _all-args8072_) - (if _kwt8070_ - (if (vector? _kwt8070_) + (lambda (_kwt8342_ _K8343_ . _all-args8344_) + (if _kwt8342_ + (if (let () (declare (not safe)) (vector? _kwt8342_)) '#!void - (error '"expected vector" _kwt8070_)) + (error '"expected vector" _kwt8342_)) '#!void) - (if (procedure? _K8071_) '#!void (error '"expected procedure" _K8071_)) - (let ((_keys8074_ (make-table 'test: eq? 'hash: keyword-hash))) - (let _lp8076_ ((_rest8078_ _all-args8072_) - (_args8079_ '#f) - (_tail8080_ '#f)) - (let* ((_rest80818089_ _rest8078_) - (_else80838097_ + (if (let () (declare (not safe)) (procedure? _K8343_)) + '#!void + (error '"expected procedure" _K8343_)) + (let ((_keys8346_ + (let () + (declare (not safe)) + (make-table 'test: eq? 'hash: keyword-hash)))) + (let _lp8348_ ((_rest8350_ _all-args8344_) + (_args8351_ '#f) + (_tail8352_ '#f)) + (let* ((_rest83538361_ _rest8350_) + (_else83558369_ (lambda () - (if _args8079_ + (if _args8351_ (begin (let () (declare (not safe)) - (##set-cdr! _tail8080_ '())) - (let ((__tmp8245 (cons _keys8074_ _args8079_))) + (##set-cdr! _tail8352_ '())) + (let ((__tmp8518 + (let () + (declare (not safe)) + (cons _keys8346_ _args8351_)))) (declare (not safe)) - (##apply _K8071_ __tmp8245))) - (_K8071_ _keys8074_)))) - (_K80858161_ - (lambda (_hd-rest8100_ _hd8101_) - (if (keyword? _hd8101_) - (let* ((_hd-rest81028109_ _hd-rest8100_) - (_E81048113_ + (##apply _K8343_ __tmp8518))) + (_K8343_ _keys8346_)))) + (_K83578433_ + (lambda (_hd-rest8372_ _hd8373_) + (if (let () (declare (not safe)) (keyword? _hd8373_)) + (let* ((_hd-rest83748381_ _hd-rest8372_) + (_E83768385_ (lambda () (error '"No clause matching" - _hd-rest81028109_))) - (_K81058121_ - (lambda (_rest8116_ _val8117_) - (if _kwt8070_ - (let ((_pos8119_ - (let ((__tmp8247 - (keyword-hash _hd8101_)) - (__tmp8246 + _hd-rest83748381_))) + (_K83778393_ + (lambda (_rest8388_ _val8389_) + (if _kwt8342_ + (let ((_pos8391_ + (let ((__tmp8522 + (let () + (declare (not safe)) + (keyword-hash + _hd8373_))) + (__tmp8521 (let () (declare (not safe)) (##vector-length - _kwt8070_)))) + _kwt8342_)))) (declare (not safe)) (##fxmodulo - __tmp8247 - __tmp8246)))) - (if (eq? _hd8101_ - (let () - (declare (not safe)) - (##vector-ref - _kwt8070_ - _pos8119_))) + __tmp8522 + __tmp8521)))) + (if (let ((__tmp8523 + (let () + (declare (not safe)) + (##vector-ref + _kwt8342_ + _pos8391_)))) + (declare (not safe)) + (eq? _hd8373_ __tmp8523)) '#!void (error '"Unexpected keyword argument" - _K8071_ - _hd8101_))) + _K8343_ + _hd8373_))) '#!void) - (if (hash-key? _keys8074_ _hd8101_) + (if (let () + (declare (not safe)) + (hash-key? _keys8346_ _hd8373_)) (error '"Duplicate keyword argument" - _K8071_ - _hd8101_) + _K8343_ + _hd8373_) '#!void) - (table-set! _keys8074_ _hd8101_ _val8117_) - (_lp8076_ - _rest8116_ - _args8079_ - _tail8080_)))) + (let () + (declare (not safe)) + (table-set! + _keys8346_ + _hd8373_ + _val8389_)) + (let () + (declare (not safe)) + (_lp8348_ + _rest8388_ + _args8351_ + _tail8352_))))) (if (let () (declare (not safe)) - (##pair? _hd-rest81028109_)) - (let ((_hd81068124_ + (##pair? _hd-rest83748381_)) + (let ((_hd83788396_ (let () (declare (not safe)) - (##car _hd-rest81028109_))) - (_tl81078126_ + (##car _hd-rest83748381_))) + (_tl83798398_ (let () (declare (not safe)) - (##cdr _hd-rest81028109_)))) - (let* ((_val8129_ _hd81068124_) - (_rest8131_ _tl81078126_)) - (_K81058121_ _rest8131_ _val8129_))) - (_E81048113_))) - (if (eq? _hd8101_ '#!key) - (let* ((_hd-rest81328139_ _hd-rest8100_) - (_E81348143_ + (##cdr _hd-rest83748381_)))) + (let* ((_val8401_ _hd83788396_) + (_rest8403_ _tl83798398_)) + (declare (not safe)) + (_K83778393_ _rest8403_ _val8401_))) + (let () (declare (not safe)) (_E83768385_)))) + (if (let () + (declare (not safe)) + (eq? _hd8373_ '#!key)) + (let* ((_hd-rest84048411_ _hd-rest8372_) + (_E84068415_ (lambda () (error '"No clause matching" - _hd-rest81328139_))) - (_K81358149_ - (lambda (_rest8146_ _val8147_) - (if _args8079_ + _hd-rest84048411_))) + (_K84078421_ + (lambda (_rest8418_ _val8419_) + (if _args8351_ (begin (let () (declare (not safe)) (##set-cdr! - _tail8080_ - _hd-rest8100_)) - (_lp8076_ - _rest8146_ - _args8079_ - _hd-rest8100_)) - (_lp8076_ - _rest8146_ - _hd-rest8100_ - _hd-rest8100_))))) + _tail8352_ + _hd-rest8372_)) + (let () + (declare (not safe)) + (_lp8348_ + _rest8418_ + _args8351_ + _hd-rest8372_))) + (let () + (declare (not safe)) + (_lp8348_ + _rest8418_ + _hd-rest8372_ + _hd-rest8372_)))))) (if (let () (declare (not safe)) - (##pair? _hd-rest81328139_)) - (let ((_hd81368152_ + (##pair? _hd-rest84048411_)) + (let ((_hd84088424_ (let () (declare (not safe)) - (##car _hd-rest81328139_))) - (_tl81378154_ + (##car _hd-rest84048411_))) + (_tl84098426_ (let () (declare (not safe)) - (##cdr _hd-rest81328139_)))) - (let* ((_val8157_ _hd81368152_) - (_rest8159_ _tl81378154_)) - (_K81358149_ _rest8159_ _val8157_))) - (_E81348143_))) - (if (eq? _hd8101_ '#!rest) - (if _args8079_ + (##cdr _hd-rest84048411_)))) + (let* ((_val8429_ _hd84088424_) + (_rest8431_ _tl84098426_)) + (declare (not safe)) + (_K84078421_ _rest8431_ _val8429_))) + (let () + (declare (not safe)) + (_E84068415_)))) + (if (let () + (declare (not safe)) + (eq? _hd8373_ '#!rest)) + (if _args8351_ (begin (let () (declare (not safe)) (##set-cdr! - _tail8080_ - _hd-rest8100_)) - (let ((__tmp8248 - (cons _keys8074_ _args8079_))) + _tail8352_ + _hd-rest8372_)) + (let ((__tmp8520 + (let () + (declare (not safe)) + (cons _keys8346_ + _args8351_)))) (declare (not safe)) - (##apply _K8071_ __tmp8248))) - (let ((__tmp8249 - (cons _keys8074_ _hd-rest8100_))) + (##apply _K8343_ __tmp8520))) + (let ((__tmp8519 + (let () + (declare (not safe)) + (cons _keys8346_ + _hd-rest8372_)))) (declare (not safe)) - (##apply _K8071_ __tmp8249))) - (if _args8079_ + (##apply _K8343_ __tmp8519))) + (if _args8351_ (begin (let () (declare (not safe)) - (##set-cdr! _tail8080_ _rest8078_)) - (_lp8076_ - _hd-rest8100_ - _args8079_ - _rest8078_)) - (_lp8076_ - _hd-rest8100_ - _rest8078_ - _rest8078_)))))))) - (if (let () (declare (not safe)) (##pair? _rest80818089_)) - (let ((_hd80868164_ - (let () (declare (not safe)) (##car _rest80818089_))) - (_tl80878166_ - (let () (declare (not safe)) (##cdr _rest80818089_)))) - (let* ((_hd8169_ _hd80868164_) - (_hd-rest8171_ _tl80878166_)) - (_K80858161_ _hd-rest8171_ _hd8169_))) - (_else80838097_))))))) + (##set-cdr! _tail8352_ _rest8350_)) + (let () + (declare (not safe)) + (_lp8348_ + _hd-rest8372_ + _args8351_ + _rest8350_))) + (let () + (declare (not safe)) + (_lp8348_ + _hd-rest8372_ + _rest8350_ + _rest8350_))))))))) + (if (let () (declare (not safe)) (##pair? _rest83538361_)) + (let ((_hd83588436_ + (let () (declare (not safe)) (##car _rest83538361_))) + (_tl83598438_ + (let () (declare (not safe)) (##cdr _rest83538361_)))) + (let* ((_hd8441_ _hd83588436_) + (_hd-rest8443_ _tl83598438_)) + (declare (not safe)) + (_K83578433_ _hd-rest8443_ _hd8441_))) + (let () (declare (not safe)) (_else83558369_)))))))) (define keyword-rest - (lambda (_kwt8061_ . _drop8062_) - (for-each - (lambda (_kw8064_) (table-set! _kwt8061_ _kw8064_)) - _drop8062_) - (hash-fold - (lambda (_k8066_ _v8067_ _r8068_) - (cons _k8066_ (cons _v8067_ _r8068_))) - '() - _kwt8061_))))) + (lambda (_kwt8333_ . _drop8334_) + (let ((__tmp8524 + (lambda (_kw8336_) + (let () + (declare (not safe)) + (table-set! _kwt8333_ _kw8336_))))) + (declare (not safe)) + (for-each __tmp8524 _drop8334_)) + (let ((__tmp8525 + (lambda (_k8338_ _v8339_ _r8340_) + (let ((__tmp8526 + (let () (declare (not safe)) (cons _v8339_ _r8340_)))) + (declare (not safe)) + (cons _k8338_ __tmp8526))))) + (declare (not safe)) + (hash-fold __tmp8525 '() _kwt8333_)))))) diff --git a/src/bootstrap/gerbil/runtime/error.ssxi.ss b/src/bootstrap/gerbil/runtime/error.ssxi.ss index 59736b54b..46f2bae2d 100644 --- a/src/bootstrap/gerbil/runtime/error.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/error.ssxi.ss @@ -96,17 +96,10 @@ package: gerbil/runtime (declare-type display-exception (@case-lambda (1 #f) (2 #f))) (declare-type Error:::init! (@lambda (2) #f)) (declare-type Error:::init!::specialize (@lambda 1 #f)) - (declare-method Error::t :init! Error:::init! #f) (declare-type Error::display-exception (@lambda 2 #f)) (declare-type Error::display-exception::specialize (@lambda 1 #f)) - (declare-method Error::t display-exception Error::display-exception #t) (declare-type RuntimeException::display-exception (@lambda 2 #f)) (declare-type RuntimeException::display-exception::specialize (@lambda 1 #f)) - (declare-method - RuntimeException::t - display-exception - RuntimeException::display-exception - #f) (declare-type fix-port-width! (@lambda 1 #f)) (declare-type reset-port-width! (@lambda 2 #f)) (declare-type datum-parsing-exception-filepos (@lambda 1 #f)) diff --git a/src/bootstrap/gerbil/runtime/error__0.scm b/src/bootstrap/gerbil/runtime/error__0.scm index 50504c01d..5379dfefc 100644 --- a/src/bootstrap/gerbil/runtime/error__0.scm +++ b/src/bootstrap/gerbil/runtime/error__0.scm @@ -1,2359 +1,4849 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1695206877) + (define gerbil/runtime/error::timestamp 1695292370) (begin (define Exception::t - (make-class-type - 'gerbil/runtime/error#Exception::t - '() - '() - 'Exception - '() - '#f)) - (define Exception? (make-class-predicate Exception::t)) + (let () + (declare (not safe)) + (make-class-type + 'gerbil/runtime/error#Exception::t + '() + '() + 'Exception + '() + '#f))) + (define Exception? + (let () (declare (not safe)) (make-class-predicate Exception::t))) (define make-Exception - (lambda _$args11459_ - (apply make-class-instance Exception::t _$args11459_))) + (lambda _$args11876_ + (apply make-class-instance Exception::t _$args11876_))) (define StackTrace::t - (make-class-type - 'gerbil/runtime/error#StackTrace::t - '() - '(continuation) - 'StackTrace - '() - '#f)) - (define StackTrace? (make-class-predicate StackTrace::t)) + (let () + (declare (not safe)) + (make-class-type + 'gerbil/runtime/error#StackTrace::t + '() + '(continuation) + 'StackTrace + '() + '#f))) + (define StackTrace? + (let () (declare (not safe)) (make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _$args11456_ - (apply make-class-instance StackTrace::t _$args11456_))) + (lambda _$args11873_ + (apply make-class-instance StackTrace::t _$args11873_))) (define StackTrace-continuation - (make-class-slot-accessor StackTrace::t 'continuation)) + (let () + (declare (not safe)) + (make-class-slot-accessor StackTrace::t 'continuation))) (define StackTrace-continuation-set! - (make-class-slot-mutator StackTrace::t 'continuation)) + (let () + (declare (not safe)) + (make-class-slot-mutator StackTrace::t 'continuation))) (define &StackTrace-continuation - (make-class-slot-unchecked-accessor StackTrace::t 'continuation)) + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor StackTrace::t 'continuation))) (define &StackTrace-continuation-set! - (make-class-slot-unchecked-mutator StackTrace::t 'continuation)) + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator StackTrace::t 'continuation))) (define Error::t - (make-class-type - 'gerbil/runtime/error#Error::t - (cons StackTrace::t (cons Exception::t '())) - '(message irritants where) - 'Error - '((transparent: . #t)) - ':init!)) - (define Error? (make-class-predicate Error::t)) + (let ((__tmp11896 + (let ((__tmp11897 + (let () (declare (not safe)) (cons Exception::t '())))) + (declare (not safe)) + (cons StackTrace::t __tmp11897)))) + (declare (not safe)) + (make-class-type + 'gerbil/runtime/error#Error::t + __tmp11896 + '(message irritants where) + 'Error + '((transparent: . #t)) + ':init!))) + (define Error? + (let () (declare (not safe)) (make-class-predicate Error::t))) (define make-Error - (lambda _$args11453_ (apply make-class-instance Error::t _$args11453_))) - (define Error-message (make-class-slot-accessor Error::t 'message)) - (define Error-irritants (make-class-slot-accessor Error::t 'irritants)) - (define Error-where (make-class-slot-accessor Error::t 'where)) - (define Error-message-set! (make-class-slot-mutator Error::t 'message)) - (define Error-irritants-set! (make-class-slot-mutator Error::t 'irritants)) - (define Error-where-set! (make-class-slot-mutator Error::t 'where)) + (lambda _$args11870_ (apply make-class-instance Error::t _$args11870_))) + (define Error-message + (let () + (declare (not safe)) + (make-class-slot-accessor Error::t 'message))) + (define Error-irritants + (let () + (declare (not safe)) + (make-class-slot-accessor Error::t 'irritants))) + (define Error-where + (let () (declare (not safe)) (make-class-slot-accessor Error::t 'where))) + (define Error-message-set! + (let () + (declare (not safe)) + (make-class-slot-mutator Error::t 'message))) + (define Error-irritants-set! + (let () + (declare (not safe)) + (make-class-slot-mutator Error::t 'irritants))) + (define Error-where-set! + (let () (declare (not safe)) (make-class-slot-mutator Error::t 'where))) (define &Error-message - (make-class-slot-unchecked-accessor Error::t 'message)) + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor Error::t 'message))) (define &Error-irritants - (make-class-slot-unchecked-accessor Error::t 'irritants)) - (define &Error-where (make-class-slot-unchecked-accessor Error::t 'where)) + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor Error::t 'irritants))) + (define &Error-where + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor Error::t 'where))) (define &Error-message-set! - (make-class-slot-unchecked-mutator Error::t 'message)) + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator Error::t 'message))) (define &Error-irritants-set! - (make-class-slot-unchecked-mutator Error::t 'irritants)) + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator Error::t 'irritants))) (define &Error-where-set! - (make-class-slot-unchecked-mutator Error::t 'where)) + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator Error::t 'where))) (define RuntimeException::t - (make-class-type - 'gerbil/runtime/error#RuntimeException::t - (cons StackTrace::t (cons Exception::t '())) - '(exception) - 'RuntimeException - '((transparent: . #t)) - '#f)) - (define RuntimeException? (make-class-predicate RuntimeException::t)) + (let ((__tmp11898 + (let ((__tmp11899 + (let () (declare (not safe)) (cons Exception::t '())))) + (declare (not safe)) + (cons StackTrace::t __tmp11899)))) + (declare (not safe)) + (make-class-type + 'gerbil/runtime/error#RuntimeException::t + __tmp11898 + '(exception) + 'RuntimeException + '((transparent: . #t)) + '#f))) + (define RuntimeException? + (let () (declare (not safe)) (make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _$args11450_ - (apply make-class-instance RuntimeException::t _$args11450_))) + (lambda _$args11867_ + (apply make-class-instance RuntimeException::t _$args11867_))) (define RuntimeException-exception - (make-class-slot-accessor RuntimeException::t 'exception)) + (let () + (declare (not safe)) + (make-class-slot-accessor RuntimeException::t 'exception))) (define RuntimeException-exception-set! - (make-class-slot-mutator RuntimeException::t 'exception)) + (let () + (declare (not safe)) + (make-class-slot-mutator RuntimeException::t 'exception))) (define &RuntimeException-exception - (make-class-slot-unchecked-accessor RuntimeException::t 'exception)) + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor RuntimeException::t 'exception))) (define &RuntimeException-exception-set! - (make-class-slot-unchecked-mutator RuntimeException::t 'exception)) + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator RuntimeException::t 'exception))) (define gerbil-exception-handler-hook - (lambda (_exn11445_ _continue11446_) - (let ((_exn11448_ (wrap-runtime-exception _exn11445_))) + (lambda (_exn11862_ _continue11863_) + (let ((_exn11865_ + (let () + (declare (not safe)) + (wrap-runtime-exception _exn11862_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn11448_ _continue11446_)))) + (##repl-exception-handler-hook _exn11865_ _continue11863_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn11441_) - (if (class-instance? StackTrace::t _exn11441_) - (if (slot-ref _exn11441_ 'continuation) + (lambda (_exn11858_) + (if (let () + (declare (not safe)) + (class-instance? StackTrace::t _exn11858_)) + (if (let () + (declare (not safe)) + (slot-ref _exn11858_ 'continuation)) '#!void - (let ((__tmp11479 - (lambda (_cont11443_) - (unchecked-slot-set! - _exn11441_ - 'continuation - _cont11443_)))) - (declare (not safe)) - (##continuation-capture __tmp11479))) + (let ((__tmp11900 + (lambda (_cont11860_) + (let () + (declare (not safe)) + (unchecked-slot-set! + _exn11858_ + 'continuation + _cont11860_))))) + (declare (not safe)) + (##continuation-capture __tmp11900))) '#!void) - (let () (declare (not safe)) (##raise _exn11441_)))) + (let () (declare (not safe)) (##raise _exn11858_)))) (define error - (lambda (_message11438_ . _irritants11439_) - (raise (make-class-instance - Error::t - _message11438_ - 'irritants: - _irritants11439_)))) + (lambda (_message11855_ . _irritants11856_) + (let ((__tmp11901 + (let () + (declare (not safe)) + (make-class-instance + Error::t + _message11855_ + 'irritants: + _irritants11856_)))) + (declare (not safe)) + (raise __tmp11901)))) (define with-exception-handler - (lambda (_handler11431_ _thunk11432_) - (if (procedure? _handler11431_) + (lambda (_handler11848_ _thunk11849_) + (if (let () (declare (not safe)) (procedure? _handler11848_)) '#!void - (raise (make-class-instance - Error::t - '"expected procedure" - 'where: - 'with-exception-handler - 'irritants: - (cons _handler11431_ '())))) - (if (procedure? _thunk11432_) + (let ((__tmp11902 + (let ((__tmp11903 + (let () + (declare (not safe)) + (cons _handler11848_ '())))) + (declare (not safe)) + (make-class-instance + Error::t + '"expected procedure" + 'where: + 'with-exception-handler + 'irritants: + __tmp11903)))) + (declare (not safe)) + (raise __tmp11902))) + (if (let () (declare (not safe)) (procedure? _thunk11849_)) '#!void - (raise (make-class-instance - Error::t - '"expected procedure" - 'where: - 'with-exception-hander - 'irritants: - (cons _thunk11432_ '())))) - (let ((__tmp11480 - (lambda (_exn11434_) - (let ((_exn11436_ (wrap-runtime-exception _exn11434_))) - (_handler11431_ _exn11436_))))) + (let ((__tmp11904 + (let ((__tmp11905 + (let () + (declare (not safe)) + (cons _thunk11849_ '())))) + (declare (not safe)) + (make-class-instance + Error::t + '"expected procedure" + 'where: + 'with-exception-hander + 'irritants: + __tmp11905)))) + (declare (not safe)) + (raise __tmp11904))) + (let ((__tmp11906 + (lambda (_exn11851_) + (let ((_exn11853_ + (let () + (declare (not safe)) + (wrap-runtime-exception _exn11851_)))) + (_handler11848_ _exn11853_))))) (declare (not safe)) - (##with-exception-handler __tmp11480 _thunk11432_)))) + (##with-exception-handler __tmp11906 _thunk11849_)))) (define with-catch - (lambda (_handler11424_ _thunk11425_) - (if (procedure? _handler11424_) + (lambda (_handler11841_ _thunk11842_) + (if (let () (declare (not safe)) (procedure? _handler11841_)) '#!void - (raise (make-class-instance - Error::t - '"expected procedure" - 'where: - 'with-exception-handler - 'irritants: - (cons _handler11424_ '())))) - (if (procedure? _thunk11425_) + (let ((__tmp11907 + (let ((__tmp11908 + (let () + (declare (not safe)) + (cons _handler11841_ '())))) + (declare (not safe)) + (make-class-instance + Error::t + '"expected procedure" + 'where: + 'with-exception-handler + 'irritants: + __tmp11908)))) + (declare (not safe)) + (raise __tmp11907))) + (if (let () (declare (not safe)) (procedure? _thunk11842_)) '#!void - (raise (make-class-instance - Error::t - '"expected procedure" - 'where: - 'with-exception-hander - 'irritants: - (cons _thunk11425_ '())))) - (let ((__tmp11481 - (lambda (_cont11427_) - (with-exception-handler - (lambda (_exn11429_) - (let () - (declare (not safe)) - (##continuation-graft - _cont11427_ - _handler11424_ - _exn11429_))) - _thunk11425_)))) + (let ((__tmp11909 + (let ((__tmp11910 + (let () + (declare (not safe)) + (cons _thunk11842_ '())))) + (declare (not safe)) + (make-class-instance + Error::t + '"expected procedure" + 'where: + 'with-exception-hander + 'irritants: + __tmp11910)))) + (declare (not safe)) + (raise __tmp11909))) + (let ((__tmp11911 + (lambda (_cont11844_) + (let ((__tmp11912 + (lambda (_exn11846_) + (let () + (declare (not safe)) + (##continuation-graft + _cont11844_ + _handler11841_ + _exn11846_))))) + (declare (not safe)) + (with-exception-handler __tmp11912 _thunk11842_))))) (declare (not safe)) - (##continuation-capture __tmp11481)))) + (##continuation-capture __tmp11911)))) (define wrap-runtime-exception - (lambda (_exn11415_) - (if (or (heap-overflow-exception? _exn11415_) - (stack-overflow-exception? _exn11415_)) - _exn11415_ - (if (class-instance? Exception::t _exn11415_) - _exn11415_ - (if (macro-exception? _exn11415_) - (let ((_rte11420_ - (make-class-instance - RuntimeException::t - 'exception: - _exn11415_))) - (let ((__tmp11482 - (lambda (_cont11422_) - (unchecked-slot-set! - _rte11420_ - 'continuation - (let () - (declare (not safe)) - (##continuation-next _cont11422_)))))) + (lambda (_exn11832_) + (if (or (let () + (declare (not safe)) + (heap-overflow-exception? _exn11832_)) + (let () + (declare (not safe)) + (stack-overflow-exception? _exn11832_))) + _exn11832_ + (if (let () + (declare (not safe)) + (class-instance? Exception::t _exn11832_)) + _exn11832_ + (if (macro-exception? _exn11832_) + (let ((_rte11837_ + (let () + (declare (not safe)) + (make-class-instance + RuntimeException::t + 'exception: + _exn11832_)))) + (let ((__tmp11913 + (lambda (_cont11839_) + (let ((__tmp11914 + (let () + (declare (not safe)) + (##continuation-next _cont11839_)))) + (declare (not safe)) + (unchecked-slot-set! + _rte11837_ + 'continuation + __tmp11914))))) (declare (not safe)) - (##continuation-capture __tmp11482)) - _rte11420_) - _exn11415_))))) + (##continuation-capture __tmp11913)) + _rte11837_) + _exn11832_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj11410_) - (let ((_$e11412_ (class-instance? Error::t _obj11410_))) - (if _$e11412_ _$e11412_ (error-exception? _obj11410_))))) + (lambda (_obj11827_) + (let ((_$e11829_ + (let () + (declare (not safe)) + (class-instance? Error::t _obj11827_)))) + (if _$e11829_ + _$e11829_ + (let () (declare (not safe)) (error-exception? _obj11827_)))))) (define error-message - (lambda (_obj11408_) - (if (class-instance? Error::t _obj11408_) - (slot-ref _obj11408_ 'message) - (if (error-exception? _obj11408_) - (error-exception-message _obj11408_) + (lambda (_obj11825_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj11825_)) + (let () (declare (not safe)) (slot-ref _obj11825_ 'message)) + (if (let () (declare (not safe)) (error-exception? _obj11825_)) + (let () + (declare (not safe)) + (error-exception-message _obj11825_)) '#f)))) (define error-irritants - (lambda (_obj11406_) - (if (class-instance? Error::t _obj11406_) - (slot-ref _obj11406_ 'irritants) - (if (error-exception? _obj11406_) - (error-exception-parameters _obj11406_) + (lambda (_obj11823_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj11823_)) + (let () (declare (not safe)) (slot-ref _obj11823_ 'irritants)) + (if (let () (declare (not safe)) (error-exception? _obj11823_)) + (let () + (declare (not safe)) + (error-exception-parameters _obj11823_)) '#f)))) (define error-trace - (lambda (_obj11404_) - (if (class-instance? Error::t _obj11404_) - (slot-ref _obj11404_ 'where) + (lambda (_obj11821_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj11821_)) + (let () (declare (not safe)) (slot-ref _obj11821_ 'where)) '#f))) (define display-exception__% - (lambda (_e11386_ _port11387_) - (let ((_$e11389_ (method-ref _e11386_ 'display-exception))) - (if _$e11389_ - ((lambda (_f11392_) (_f11392_ _e11386_ _port11387_)) _$e11389_) + (lambda (_e11803_ _port11804_) + (let ((_$e11806_ + (let () + (declare (not safe)) + (method-ref _e11803_ 'display-exception)))) + (if _$e11806_ + ((lambda (_f11809_) (_f11809_ _e11803_ _port11804_)) _$e11806_) (let () (declare (not safe)) - (##default-display-exception _e11386_ _port11387_)))))) + (##default-display-exception _e11803_ _port11804_)))))) (define display-exception__0 - (lambda (_e11397_) - (let ((_port11399_ (current-error-port))) - (display-exception__% _e11397_ _port11399_)))) + (lambda (_e11814_) + (let ((_port11816_ (let () (declare (not safe)) (current-error-port)))) + (declare (not safe)) + (display-exception__% _e11814_ _port11816_)))) (define display-exception - (lambda _g11484_ - (let ((_g11483_ (let () (declare (not safe)) (##length _g11484_)))) - (cond ((let () (declare (not safe)) (##fx= _g11483_ 1)) - (apply display-exception__0 _g11484_)) - ((let () (declare (not safe)) (##fx= _g11483_ 2)) - (apply display-exception__% _g11484_)) + (lambda _g11916_ + (let ((_g11915_ (let () (declare (not safe)) (##length _g11916_)))) + (cond ((let () (declare (not safe)) (##fx= _g11915_ 1)) + (apply (lambda (_e11814_) + (let () + (declare (not safe)) + (display-exception__0 _e11814_))) + _g11916_)) + ((let () (declare (not safe)) (##fx= _g11915_ 2)) + (apply (lambda (_e11818_ _port11819_) + (let () + (declare (not safe)) + (display-exception__% _e11818_ _port11819_))) + _g11916_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g11484_)))))) + _g11916_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_self11381_ _message11382_ . _rest11383_) - (unchecked-slot-set! _self11381_ 'message _message11382_) - (apply class-instance-init! _self11381_ _rest11383_))) + (lambda (_self11798_ _message11799_ . _rest11800_) + (let () + (declare (not safe)) + (unchecked-slot-set! _self11798_ 'message _message11799_)) + (apply class-instance-init! _self11798_ _rest11800_))) (define Error:::init!::specialize - (lambda (__t11461) - (let ((__message11462 - (let ((__tmp11463 (class-slot-offset __t11461 'message))) - (if __tmp11463 - (let () (declare (not safe)) (##fx+ __tmp11463 '1)) - (error '"Unknown slot" 'message))))) - (lambda (_self11381_ _message11382_ . _rest11383_) + (lambda (__t11878) + (let ((__message11879 + (let ((__tmp11880 + (let () + (declare (not safe)) + (class-slot-offset __t11878 'message)))) + (if __tmp11880 + (let () (declare (not safe)) (##fx+ __tmp11880 '1)) + (let () + (declare (not safe)) + (error '"Unknown slot" 'message)))))) + (lambda (_self11798_ _message11799_ . _rest11800_) (let () (declare (not safe)) (##unchecked-structure-set! - _self11381_ - _message11382_ - __message11462 - __t11461 + _self11798_ + _message11799_ + __message11879 + __t11878 '#f)) - (apply class-instance-init! _self11381_ _rest11383_))))) - (bind-specializer! Error:::init! Error:::init!::specialize) - (bind-method! Error::t ':init! Error:::init! '#f) + (apply class-instance-init! _self11798_ _rest11800_))))) + (let () + (declare (not safe)) + (bind-specializer! Error:::init! Error:::init!::specialize)) + (let () + (declare (not safe)) + (bind-method! Error::t ':init! Error:::init! '#f)) (define Error::display-exception - (lambda (_self11240_ _port11241_) - (let ((_tmp-port11243_ (open-output-string))) - (fix-port-width! _tmp-port11243_) - (call-with-parameters - (lambda () - (display '"*** ERROR IN ") - (let ((_$e11246_ (slot-ref _self11240_ 'where))) - (if _$e11246_ (display _$e11246_) (display '"?"))) - (display* - '" [" - (let ((__tmp11485 (object-type _self11240_))) - (declare (not safe)) - (##type-name __tmp11485)) - '"]: ") - (displayln (slot-ref _self11240_ 'message)) - (let ((_irritants11249_ (slot-ref _self11240_ 'irritants))) - (if (null? _irritants11249_) - '#!void - (begin - (display '"--- irritants: ") - (for-each - (lambda (_obj11251_) (display* _obj11251_ '" ")) - _irritants11249_) - (newline)))) - (if (class-instance? StackTrace::t _self11240_) - (let ((_cont1125211254_ (slot-ref _self11240_ 'continuation))) - (if _cont1125211254_ - (let ((_cont11257_ _cont1125211254_)) - (displayln '"--- continuation backtrace:") - (display-continuation-backtrace _cont11257_)) - '#f)) - '#!void)) - current-output-port - _tmp-port11243_) - (let ((__tmp11486 (get-output-string _tmp-port11243_))) + (lambda (_self11657_ _port11658_) + (let ((_tmp-port11660_ + (let () (declare (not safe)) (open-output-string)))) + (let () (declare (not safe)) (fix-port-width! _tmp-port11660_)) + (let ((__tmp11917 + (lambda () + (let () (declare (not safe)) (display '"*** ERROR IN ")) + (let ((_$e11663_ + (let () + (declare (not safe)) + (slot-ref _self11657_ 'where)))) + (if _$e11663_ + (let () (declare (not safe)) (display _$e11663_)) + (let () (declare (not safe)) (display '"?")))) + (let ((__tmp11918 + (let ((__tmp11919 + (let () + (declare (not safe)) + (object-type _self11657_)))) + (declare (not safe)) + (##type-name __tmp11919)))) + (declare (not safe)) + (display* '" [" __tmp11918 '"]: ")) + (let ((__tmp11920 + (let () + (declare (not safe)) + (slot-ref _self11657_ 'message)))) + (declare (not safe)) + (displayln __tmp11920)) + (let ((_irritants11666_ + (let () + (declare (not safe)) + (slot-ref _self11657_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants11666_)) + '#!void + (begin + (let () + (declare (not safe)) + (display '"--- irritants: ")) + (let ((__tmp11921 + (lambda (_obj11668_) + (let () + (declare (not safe)) + (display* _obj11668_ '" "))))) + (declare (not safe)) + (for-each __tmp11921 _irritants11666_)) + (let () (declare (not safe)) (newline))))) + (if (let () + (declare (not safe)) + (class-instance? StackTrace::t _self11657_)) + (let ((_cont1166911671_ + (let () + (declare (not safe)) + (slot-ref _self11657_ 'continuation)))) + (if _cont1166911671_ + (let ((_cont11674_ _cont1166911671_)) + (let () + (declare (not safe)) + (displayln '"--- continuation backtrace:")) + (let () + (declare (not safe)) + (display-continuation-backtrace _cont11674_))) + '#f)) + '#!void)))) (declare (not safe)) - (##write-string __tmp11486 _port11241_))))) + (call-with-parameters + __tmp11917 + current-output-port + _tmp-port11660_)) + (let ((__tmp11922 + (let () + (declare (not safe)) + (get-output-string _tmp-port11660_)))) + (declare (not safe)) + (##write-string __tmp11922 _port11658_))))) (define Error::display-exception::specialize - (lambda (__t11464) - (let ((__where11465 - (let ((__tmp11469 (class-slot-offset __t11464 'where))) - (if __tmp11469 - (let () (declare (not safe)) (##fx+ __tmp11469 '1)) - (error '"Unknown slot" 'where)))) - (__continuation11466 - (let ((__tmp11470 (class-slot-offset __t11464 'continuation))) - (if __tmp11470 - (let () (declare (not safe)) (##fx+ __tmp11470 '1)) - (error '"Unknown slot" 'continuation)))) - (__message11467 - (let ((__tmp11471 (class-slot-offset __t11464 'message))) - (if __tmp11471 - (let () (declare (not safe)) (##fx+ __tmp11471 '1)) - (error '"Unknown slot" 'message)))) - (__irritants11468 - (let ((__tmp11472 (class-slot-offset __t11464 'irritants))) - (if __tmp11472 - (let () (declare (not safe)) (##fx+ __tmp11472 '1)) - (error '"Unknown slot" 'irritants)))) - (__class11473 (class-subtype? StackTrace::t __t11464))) - (lambda (_self11240_ _port11241_) - (let ((_tmp-port11243_ (open-output-string))) - (fix-port-width! _tmp-port11243_) - (call-with-parameters - (lambda () - (display '"*** ERROR IN ") - (let ((_$e11246_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _self11240_ - __where11465 - __t11464 - '#f)))) - (if _$e11246_ (display _$e11246_) (display '"?"))) - (display* - '" [" - (let ((__tmp11487 (object-type _self11240_))) - (declare (not safe)) - (##type-name __tmp11487)) - '"]: ") - (displayln - (let () - (declare (not safe)) - (##unchecked-structure-ref - _self11240_ - __message11467 - __t11464 - '#f))) - (let ((_irritants11249_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _self11240_ - __irritants11468 - __t11464 - '#f)))) - (if (null? _irritants11249_) - '#!void - (begin - (display '"--- irritants: ") - (for-each - (lambda (_obj11251_) (display* _obj11251_ '" ")) - _irritants11249_) - (newline)))) - (if __class11473 - (let ((_cont1125211254_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _self11240_ - __continuation11466 - __t11464 - '#f)))) - (if _cont1125211254_ - (let ((_cont11257_ _cont1125211254_)) - (displayln '"--- continuation backtrace:") - (display-continuation-backtrace _cont11257_)) - '#f)) - '#!void)) - current-output-port - _tmp-port11243_) - (let ((__tmp11488 (get-output-string _tmp-port11243_))) + (lambda (__t11881) + (let ((__continuation11882 + (let ((__tmp11886 + (let () + (declare (not safe)) + (class-slot-offset __t11881 'continuation)))) + (if __tmp11886 + (let () (declare (not safe)) (##fx+ __tmp11886 '1)) + (let () + (declare (not safe)) + (error '"Unknown slot" 'continuation))))) + (__irritants11883 + (let ((__tmp11887 + (let () + (declare (not safe)) + (class-slot-offset __t11881 'irritants)))) + (if __tmp11887 + (let () (declare (not safe)) (##fx+ __tmp11887 '1)) + (let () + (declare (not safe)) + (error '"Unknown slot" 'irritants))))) + (__message11884 + (let ((__tmp11888 + (let () + (declare (not safe)) + (class-slot-offset __t11881 'message)))) + (if __tmp11888 + (let () (declare (not safe)) (##fx+ __tmp11888 '1)) + (let () + (declare (not safe)) + (error '"Unknown slot" 'message))))) + (__where11885 + (let ((__tmp11889 + (let () + (declare (not safe)) + (class-slot-offset __t11881 'where)))) + (if __tmp11889 + (let () (declare (not safe)) (##fx+ __tmp11889 '1)) + (let () + (declare (not safe)) + (error '"Unknown slot" 'where))))) + (__class11890 + (let () + (declare (not safe)) + (class-subtype? StackTrace::t __t11881)))) + (lambda (_self11657_ _port11658_) + (let ((_tmp-port11660_ + (let () (declare (not safe)) (open-output-string)))) + (let () (declare (not safe)) (fix-port-width! _tmp-port11660_)) + (let ((__tmp11923 + (lambda () + (let () (declare (not safe)) (display '"*** ERROR IN ")) + (let ((_$e11663_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self11657_ + __where11885 + __t11881 + '#f)))) + (if _$e11663_ + (let () (declare (not safe)) (display _$e11663_)) + (let () (declare (not safe)) (display '"?")))) + (let ((__tmp11924 + (let ((__tmp11925 + (let () + (declare (not safe)) + (object-type _self11657_)))) + (declare (not safe)) + (##type-name __tmp11925)))) + (declare (not safe)) + (display* '" [" __tmp11924 '"]: ")) + (let ((__tmp11926 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self11657_ + __message11884 + __t11881 + '#f)))) + (declare (not safe)) + (displayln __tmp11926)) + (let ((_irritants11666_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self11657_ + __irritants11883 + __t11881 + '#f)))) + (if (let () + (declare (not safe)) + (null? _irritants11666_)) + '#!void + (begin + (let () + (declare (not safe)) + (display '"--- irritants: ")) + (let ((__tmp11927 + (lambda (_obj11668_) + (let () + (declare (not safe)) + (display* _obj11668_ '" "))))) + (declare (not safe)) + (for-each __tmp11927 _irritants11666_)) + (let () (declare (not safe)) (newline))))) + (if __class11890 + (let ((_cont1166911671_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self11657_ + __continuation11882 + __t11881 + '#f)))) + (if _cont1166911671_ + (let ((_cont11674_ _cont1166911671_)) + (let () + (declare (not safe)) + (displayln + '"--- continuation backtrace:")) + (let () + (declare (not safe)) + (display-continuation-backtrace + _cont11674_))) + '#f)) + '#!void)))) + (declare (not safe)) + (call-with-parameters + __tmp11923 + current-output-port + _tmp-port11660_)) + (let ((__tmp11928 + (let () + (declare (not safe)) + (get-output-string _tmp-port11660_)))) (declare (not safe)) - (##write-string __tmp11488 _port11241_))))))) - (bind-specializer! - Error::display-exception - Error::display-exception::specialize) - (bind-method! Error::t 'display-exception Error::display-exception '#t) + (##write-string __tmp11928 _port11658_))))))) + (let () + (declare (not safe)) + (bind-specializer! + Error::display-exception + Error::display-exception::specialize)) + (let () + (declare (not safe)) + (bind-method! Error::t 'display-exception Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_self11107_ _port11108_) - (let ((_tmp-port11110_ (open-output-string))) - (fix-port-width! _tmp-port11110_) - (let ((__tmp11489 (slot-ref _self11107_ 'exception))) + (lambda (_self11524_ _port11525_) + (let ((_tmp-port11527_ + (let () (declare (not safe)) (open-output-string)))) + (let () (declare (not safe)) (fix-port-width! _tmp-port11527_)) + (let ((__tmp11929 + (let () + (declare (not safe)) + (slot-ref _self11524_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp11489 _tmp-port11110_)) - (let ((_cont1111111113_ (slot-ref _self11107_ 'continuation))) - (if _cont1111111113_ - (let ((_cont11116_ _cont1111111113_)) - (display '"--- continuation backtrace:" _tmp-port11110_) - (newline _tmp-port11110_) - (display-continuation-backtrace _cont11116_ _tmp-port11110_)) + (##default-display-exception __tmp11929 _tmp-port11527_)) + (let ((_cont1152811530_ + (let () + (declare (not safe)) + (slot-ref _self11524_ 'continuation)))) + (if _cont1152811530_ + (let ((_cont11533_ _cont1152811530_)) + (let () + (declare (not safe)) + (display '"--- continuation backtrace:" _tmp-port11527_)) + (let () (declare (not safe)) (newline _tmp-port11527_)) + (let () + (declare (not safe)) + (display-continuation-backtrace + _cont11533_ + _tmp-port11527_))) '#f)) - (let ((__tmp11490 (get-output-string _tmp-port11110_))) + (let ((__tmp11930 + (let () + (declare (not safe)) + (get-output-string _tmp-port11527_)))) (declare (not safe)) - (##write-string __tmp11490 _port11108_))))) + (##write-string __tmp11930 _port11525_))))) (define RuntimeException::display-exception::specialize - (lambda (__t11474) - (let ((__continuation11475 - (let ((__tmp11477 (class-slot-offset __t11474 'continuation))) - (if __tmp11477 - (let () (declare (not safe)) (##fx+ __tmp11477 '1)) - (error '"Unknown slot" 'continuation)))) - (__exception11476 - (let ((__tmp11478 (class-slot-offset __t11474 'exception))) - (if __tmp11478 - (let () (declare (not safe)) (##fx+ __tmp11478 '1)) - (error '"Unknown slot" 'exception))))) - (lambda (_self11107_ _port11108_) - (let ((_tmp-port11110_ (open-output-string))) - (fix-port-width! _tmp-port11110_) - (let ((__tmp11491 + (lambda (__t11891) + (let ((__exception11892 + (let ((__tmp11894 + (let () + (declare (not safe)) + (class-slot-offset __t11891 'exception)))) + (if __tmp11894 + (let () (declare (not safe)) (##fx+ __tmp11894 '1)) + (let () + (declare (not safe)) + (error '"Unknown slot" 'exception))))) + (__continuation11893 + (let ((__tmp11895 + (let () + (declare (not safe)) + (class-slot-offset __t11891 'continuation)))) + (if __tmp11895 + (let () (declare (not safe)) (##fx+ __tmp11895 '1)) + (let () + (declare (not safe)) + (error '"Unknown slot" 'continuation)))))) + (lambda (_self11524_ _port11525_) + (let ((_tmp-port11527_ + (let () (declare (not safe)) (open-output-string)))) + (let () (declare (not safe)) (fix-port-width! _tmp-port11527_)) + (let ((__tmp11931 (let () (declare (not safe)) (##unchecked-structure-ref - _self11107_ - __exception11476 - __t11474 + _self11524_ + __exception11892 + __t11891 '#f)))) (declare (not safe)) - (##default-display-exception __tmp11491 _tmp-port11110_)) - (let ((_cont1111111113_ + (##default-display-exception __tmp11931 _tmp-port11527_)) + (let ((_cont1152811530_ (let () (declare (not safe)) (##unchecked-structure-ref - _self11107_ - __continuation11475 - __t11474 + _self11524_ + __continuation11893 + __t11891 '#f)))) - (if _cont1111111113_ - (let ((_cont11116_ _cont1111111113_)) - (display '"--- continuation backtrace:" _tmp-port11110_) - (newline _tmp-port11110_) - (display-continuation-backtrace - _cont11116_ - _tmp-port11110_)) + (if _cont1152811530_ + (let ((_cont11533_ _cont1152811530_)) + (let () + (declare (not safe)) + (display '"--- continuation backtrace:" + _tmp-port11527_)) + (let () (declare (not safe)) (newline _tmp-port11527_)) + (let () + (declare (not safe)) + (display-continuation-backtrace + _cont11533_ + _tmp-port11527_))) '#f)) - (let ((__tmp11492 (get-output-string _tmp-port11110_))) + (let ((__tmp11932 + (let () + (declare (not safe)) + (get-output-string _tmp-port11527_)))) (declare (not safe)) - (##write-string __tmp11492 _port11108_))))))) - (bind-specializer! - RuntimeException::display-exception - RuntimeException::display-exception::specialize) - (bind-method! - RuntimeException::t - 'display-exception - RuntimeException::display-exception - '#f) + (##write-string __tmp11932 _port11525_))))))) + (let () + (declare (not safe)) + (bind-specializer! + RuntimeException::display-exception + RuntimeException::display-exception::specialize)) + (let () + (declare (not safe)) + (bind-method! + RuntimeException::t + 'display-exception + RuntimeException::display-exception + '#f)) (define fix-port-width! - (lambda (_port10979_) - (if (macro-character-port? _port10979_) - (let ((_old-width10981_ - (macro-character-port-output-width _port10979_))) + (lambda (_port11396_) + (if (macro-character-port? _port11396_) + (let ((_old-width11398_ + (macro-character-port-output-width _port11396_))) (macro-character-port-output-width-set! - _port10979_ - (lambda (_port10983_) '256)) - _old-width10981_) + _port11396_ + (lambda (_port11400_) '256)) + _old-width11398_) '#!void))) (define reset-port-width! - (lambda (_port10976_ _old-width10977_) - (if (macro-character-port? _port10976_) + (lambda (_port11393_ _old-width11394_) + (if (macro-character-port? _port11393_) (macro-character-port-output-width-set! - _port10976_ - _old-width10977_) + _port11393_ + _old-width11394_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e10974_) - (macro-readenv-filepos (datum-parsing-exception-readenv _e10974_)))) + (lambda (_e11391_) + (macro-readenv-filepos + (let () + (declare (not safe)) + (datum-parsing-exception-readenv _e11391_))))) (define abandoned-mutex-exception? - (lambda (_exn10968_) - (if (class-instance? RuntimeException::t _exn10968_) - (let ((_e10971_ (slot-ref _exn10968_ 'exception))) - (macro-abandoned-mutex-exception? _e10971_)) - (macro-abandoned-mutex-exception? _exn10968_)))) + (lambda (_exn11385_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11385_)) + (let ((_e11388_ + (let () + (declare (not safe)) + (slot-ref _exn11385_ 'exception)))) + (macro-abandoned-mutex-exception? _e11388_)) + (macro-abandoned-mutex-exception? _exn11385_)))) (define cfun-conversion-exception? - (lambda (_exn10964_) - (if (class-instance? RuntimeException::t _exn10964_) - (let ((_e10966_ (slot-ref _exn10964_ 'exception))) - (macro-cfun-conversion-exception? _e10966_)) - (macro-cfun-conversion-exception? _exn10964_)))) + (lambda (_exn11381_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11381_)) + (let ((_e11383_ + (let () + (declare (not safe)) + (slot-ref _exn11381_ 'exception)))) + (macro-cfun-conversion-exception? _e11383_)) + (macro-cfun-conversion-exception? _exn11381_)))) (define cfun-conversion-exception-arguments - (lambda (_exn10960_) - (if (class-instance? RuntimeException::t _exn10960_) - (let ((_e10962_ (slot-ref _exn10960_ 'exception))) - (if (macro-cfun-conversion-exception? _e10962_) - (macro-cfun-conversion-exception-arguments _e10962_) + (lambda (_exn11377_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11377_)) + (let ((_e11379_ + (let () + (declare (not safe)) + (slot-ref _exn11377_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11379_) + (macro-cfun-conversion-exception-arguments _e11379_) + (let ((__tmp11935 + (let ((__tmp11936 + (let () + (declare (not safe)) + (cons _e11379_ '())))) + (declare (not safe)) + (cons 'cfun-conversion-exception-arguments + __tmp11936)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp11935)))) + (if (macro-cfun-conversion-exception? _exn11377_) + (macro-cfun-conversion-exception-arguments _exn11377_) + (let ((__tmp11933 + (let ((__tmp11934 + (let () + (declare (not safe)) + (cons _exn11377_ '())))) + (declare (not safe)) + (cons 'cfun-conversion-exception-arguments + __tmp11934)))) + (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - (cons 'cfun-conversion-exception-arguments - (cons _e10962_ '()))))) - (if (macro-cfun-conversion-exception? _exn10960_) - (macro-cfun-conversion-exception-arguments _exn10960_) - (error '"not an instance" - 'cfun-conversion-exception? - (cons 'cfun-conversion-exception-arguments - (cons _exn10960_ '()))))))) + __tmp11933)))))) (define cfun-conversion-exception-code - (lambda (_exn10956_) - (if (class-instance? RuntimeException::t _exn10956_) - (let ((_e10958_ (slot-ref _exn10956_ 'exception))) - (if (macro-cfun-conversion-exception? _e10958_) - (macro-cfun-conversion-exception-code _e10958_) + (lambda (_exn11373_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11373_)) + (let ((_e11375_ + (let () + (declare (not safe)) + (slot-ref _exn11373_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11375_) + (macro-cfun-conversion-exception-code _e11375_) + (let ((__tmp11939 + (let ((__tmp11940 + (let () + (declare (not safe)) + (cons _e11375_ '())))) + (declare (not safe)) + (cons 'cfun-conversion-exception-code __tmp11940)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp11939)))) + (if (macro-cfun-conversion-exception? _exn11373_) + (macro-cfun-conversion-exception-code _exn11373_) + (let ((__tmp11937 + (let ((__tmp11938 + (let () + (declare (not safe)) + (cons _exn11373_ '())))) + (declare (not safe)) + (cons 'cfun-conversion-exception-code __tmp11938)))) + (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - (cons 'cfun-conversion-exception-code - (cons _e10958_ '()))))) - (if (macro-cfun-conversion-exception? _exn10956_) - (macro-cfun-conversion-exception-code _exn10956_) - (error '"not an instance" - 'cfun-conversion-exception? - (cons 'cfun-conversion-exception-code - (cons _exn10956_ '()))))))) + __tmp11937)))))) (define cfun-conversion-exception-message - (lambda (_exn10952_) - (if (class-instance? RuntimeException::t _exn10952_) - (let ((_e10954_ (slot-ref _exn10952_ 'exception))) - (if (macro-cfun-conversion-exception? _e10954_) - (macro-cfun-conversion-exception-message _e10954_) + (lambda (_exn11369_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11369_)) + (let ((_e11371_ + (let () + (declare (not safe)) + (slot-ref _exn11369_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11371_) + (macro-cfun-conversion-exception-message _e11371_) + (let ((__tmp11943 + (let ((__tmp11944 + (let () + (declare (not safe)) + (cons _e11371_ '())))) + (declare (not safe)) + (cons 'cfun-conversion-exception-message + __tmp11944)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp11943)))) + (if (macro-cfun-conversion-exception? _exn11369_) + (macro-cfun-conversion-exception-message _exn11369_) + (let ((__tmp11941 + (let ((__tmp11942 + (let () + (declare (not safe)) + (cons _exn11369_ '())))) + (declare (not safe)) + (cons 'cfun-conversion-exception-message + __tmp11942)))) + (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - (cons 'cfun-conversion-exception-message - (cons _e10954_ '()))))) - (if (macro-cfun-conversion-exception? _exn10952_) - (macro-cfun-conversion-exception-message _exn10952_) - (error '"not an instance" - 'cfun-conversion-exception? - (cons 'cfun-conversion-exception-message - (cons _exn10952_ '()))))))) + __tmp11941)))))) (define cfun-conversion-exception-procedure - (lambda (_exn10946_) - (if (class-instance? RuntimeException::t _exn10946_) - (let ((_e10949_ (slot-ref _exn10946_ 'exception))) - (if (macro-cfun-conversion-exception? _e10949_) - (macro-cfun-conversion-exception-procedure _e10949_) + (lambda (_exn11363_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11363_)) + (let ((_e11366_ + (let () + (declare (not safe)) + (slot-ref _exn11363_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11366_) + (macro-cfun-conversion-exception-procedure _e11366_) + (let ((__tmp11947 + (let ((__tmp11948 + (let () + (declare (not safe)) + (cons _e11366_ '())))) + (declare (not safe)) + (cons 'cfun-conversion-exception-procedure + __tmp11948)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp11947)))) + (if (macro-cfun-conversion-exception? _exn11363_) + (macro-cfun-conversion-exception-procedure _exn11363_) + (let ((__tmp11945 + (let ((__tmp11946 + (let () + (declare (not safe)) + (cons _exn11363_ '())))) + (declare (not safe)) + (cons 'cfun-conversion-exception-procedure + __tmp11946)))) + (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - (cons 'cfun-conversion-exception-procedure - (cons _e10949_ '()))))) - (if (macro-cfun-conversion-exception? _exn10946_) - (macro-cfun-conversion-exception-procedure _exn10946_) - (error '"not an instance" - 'cfun-conversion-exception? - (cons 'cfun-conversion-exception-procedure - (cons _exn10946_ '()))))))) + __tmp11945)))))) (define datum-parsing-exception? - (lambda (_exn10942_) - (if (class-instance? RuntimeException::t _exn10942_) - (let ((_e10944_ (slot-ref _exn10942_ 'exception))) - (macro-datum-parsing-exception? _e10944_)) - (macro-datum-parsing-exception? _exn10942_)))) + (lambda (_exn11359_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11359_)) + (let ((_e11361_ + (let () + (declare (not safe)) + (slot-ref _exn11359_ 'exception)))) + (macro-datum-parsing-exception? _e11361_)) + (macro-datum-parsing-exception? _exn11359_)))) (define datum-parsing-exception-kind - (lambda (_exn10938_) - (if (class-instance? RuntimeException::t _exn10938_) - (let ((_e10940_ (slot-ref _exn10938_ 'exception))) - (if (macro-datum-parsing-exception? _e10940_) - (macro-datum-parsing-exception-kind _e10940_) + (lambda (_exn11355_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11355_)) + (let ((_e11357_ + (let () + (declare (not safe)) + (slot-ref _exn11355_ 'exception)))) + (if (macro-datum-parsing-exception? _e11357_) + (macro-datum-parsing-exception-kind _e11357_) + (let ((__tmp11951 + (let ((__tmp11952 + (let () + (declare (not safe)) + (cons _e11357_ '())))) + (declare (not safe)) + (cons 'datum-parsing-exception-kind __tmp11952)))) + (declare (not safe)) + (error '"not an instance" + 'datum-parsing-exception? + __tmp11951)))) + (if (macro-datum-parsing-exception? _exn11355_) + (macro-datum-parsing-exception-kind _exn11355_) + (let ((__tmp11949 + (let ((__tmp11950 + (let () + (declare (not safe)) + (cons _exn11355_ '())))) + (declare (not safe)) + (cons 'datum-parsing-exception-kind __tmp11950)))) + (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - (cons 'datum-parsing-exception-kind - (cons _e10940_ '()))))) - (if (macro-datum-parsing-exception? _exn10938_) - (macro-datum-parsing-exception-kind _exn10938_) - (error '"not an instance" - 'datum-parsing-exception? - (cons 'datum-parsing-exception-kind - (cons _exn10938_ '()))))))) + __tmp11949)))))) (define datum-parsing-exception-parameters - (lambda (_exn10934_) - (if (class-instance? RuntimeException::t _exn10934_) - (let ((_e10936_ (slot-ref _exn10934_ 'exception))) - (if (macro-datum-parsing-exception? _e10936_) - (macro-datum-parsing-exception-parameters _e10936_) + (lambda (_exn11351_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11351_)) + (let ((_e11353_ + (let () + (declare (not safe)) + (slot-ref _exn11351_ 'exception)))) + (if (macro-datum-parsing-exception? _e11353_) + (macro-datum-parsing-exception-parameters _e11353_) + (let ((__tmp11955 + (let ((__tmp11956 + (let () + (declare (not safe)) + (cons _e11353_ '())))) + (declare (not safe)) + (cons 'datum-parsing-exception-parameters + __tmp11956)))) + (declare (not safe)) + (error '"not an instance" + 'datum-parsing-exception? + __tmp11955)))) + (if (macro-datum-parsing-exception? _exn11351_) + (macro-datum-parsing-exception-parameters _exn11351_) + (let ((__tmp11953 + (let ((__tmp11954 + (let () + (declare (not safe)) + (cons _exn11351_ '())))) + (declare (not safe)) + (cons 'datum-parsing-exception-parameters + __tmp11954)))) + (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - (cons 'datum-parsing-exception-parameters - (cons _e10936_ '()))))) - (if (macro-datum-parsing-exception? _exn10934_) - (macro-datum-parsing-exception-parameters _exn10934_) - (error '"not an instance" - 'datum-parsing-exception? - (cons 'datum-parsing-exception-parameters - (cons _exn10934_ '()))))))) + __tmp11953)))))) (define datum-parsing-exception-readenv - (lambda (_exn10928_) - (if (class-instance? RuntimeException::t _exn10928_) - (let ((_e10931_ (slot-ref _exn10928_ 'exception))) - (if (macro-datum-parsing-exception? _e10931_) - (macro-datum-parsing-exception-readenv _e10931_) + (lambda (_exn11345_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11345_)) + (let ((_e11348_ + (let () + (declare (not safe)) + (slot-ref _exn11345_ 'exception)))) + (if (macro-datum-parsing-exception? _e11348_) + (macro-datum-parsing-exception-readenv _e11348_) + (let ((__tmp11959 + (let ((__tmp11960 + (let () + (declare (not safe)) + (cons _e11348_ '())))) + (declare (not safe)) + (cons 'datum-parsing-exception-readenv + __tmp11960)))) + (declare (not safe)) + (error '"not an instance" + 'datum-parsing-exception? + __tmp11959)))) + (if (macro-datum-parsing-exception? _exn11345_) + (macro-datum-parsing-exception-readenv _exn11345_) + (let ((__tmp11957 + (let ((__tmp11958 + (let () + (declare (not safe)) + (cons _exn11345_ '())))) + (declare (not safe)) + (cons 'datum-parsing-exception-readenv __tmp11958)))) + (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - (cons 'datum-parsing-exception-readenv - (cons _e10931_ '()))))) - (if (macro-datum-parsing-exception? _exn10928_) - (macro-datum-parsing-exception-readenv _exn10928_) - (error '"not an instance" - 'datum-parsing-exception? - (cons 'datum-parsing-exception-readenv - (cons _exn10928_ '()))))))) + __tmp11957)))))) (define deadlock-exception? - (lambda (_exn10922_) - (if (class-instance? RuntimeException::t _exn10922_) - (let ((_e10925_ (slot-ref _exn10922_ 'exception))) - (macro-deadlock-exception? _e10925_)) - (macro-deadlock-exception? _exn10922_)))) + (lambda (_exn11339_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11339_)) + (let ((_e11342_ + (let () + (declare (not safe)) + (slot-ref _exn11339_ 'exception)))) + (macro-deadlock-exception? _e11342_)) + (macro-deadlock-exception? _exn11339_)))) (define divide-by-zero-exception? - (lambda (_exn10918_) - (if (class-instance? RuntimeException::t _exn10918_) - (let ((_e10920_ (slot-ref _exn10918_ 'exception))) - (macro-divide-by-zero-exception? _e10920_)) - (macro-divide-by-zero-exception? _exn10918_)))) + (lambda (_exn11335_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11335_)) + (let ((_e11337_ + (let () + (declare (not safe)) + (slot-ref _exn11335_ 'exception)))) + (macro-divide-by-zero-exception? _e11337_)) + (macro-divide-by-zero-exception? _exn11335_)))) (define divide-by-zero-exception-arguments - (lambda (_exn10914_) - (if (class-instance? RuntimeException::t _exn10914_) - (let ((_e10916_ (slot-ref _exn10914_ 'exception))) - (if (macro-divide-by-zero-exception? _e10916_) - (macro-divide-by-zero-exception-arguments _e10916_) + (lambda (_exn11331_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11331_)) + (let ((_e11333_ + (let () + (declare (not safe)) + (slot-ref _exn11331_ 'exception)))) + (if (macro-divide-by-zero-exception? _e11333_) + (macro-divide-by-zero-exception-arguments _e11333_) + (let ((__tmp11963 + (let ((__tmp11964 + (let () + (declare (not safe)) + (cons _e11333_ '())))) + (declare (not safe)) + (cons 'divide-by-zero-exception-arguments + __tmp11964)))) + (declare (not safe)) + (error '"not an instance" + 'divide-by-zero-exception? + __tmp11963)))) + (if (macro-divide-by-zero-exception? _exn11331_) + (macro-divide-by-zero-exception-arguments _exn11331_) + (let ((__tmp11961 + (let ((__tmp11962 + (let () + (declare (not safe)) + (cons _exn11331_ '())))) + (declare (not safe)) + (cons 'divide-by-zero-exception-arguments + __tmp11962)))) + (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - (cons 'divide-by-zero-exception-arguments - (cons _e10916_ '()))))) - (if (macro-divide-by-zero-exception? _exn10914_) - (macro-divide-by-zero-exception-arguments _exn10914_) - (error '"not an instance" - 'divide-by-zero-exception? - (cons 'divide-by-zero-exception-arguments - (cons _exn10914_ '()))))))) + __tmp11961)))))) (define divide-by-zero-exception-procedure - (lambda (_exn10908_) - (if (class-instance? RuntimeException::t _exn10908_) - (let ((_e10911_ (slot-ref _exn10908_ 'exception))) - (if (macro-divide-by-zero-exception? _e10911_) - (macro-divide-by-zero-exception-procedure _e10911_) + (lambda (_exn11325_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11325_)) + (let ((_e11328_ + (let () + (declare (not safe)) + (slot-ref _exn11325_ 'exception)))) + (if (macro-divide-by-zero-exception? _e11328_) + (macro-divide-by-zero-exception-procedure _e11328_) + (let ((__tmp11967 + (let ((__tmp11968 + (let () + (declare (not safe)) + (cons _e11328_ '())))) + (declare (not safe)) + (cons 'divide-by-zero-exception-procedure + __tmp11968)))) + (declare (not safe)) + (error '"not an instance" + 'divide-by-zero-exception? + __tmp11967)))) + (if (macro-divide-by-zero-exception? _exn11325_) + (macro-divide-by-zero-exception-procedure _exn11325_) + (let ((__tmp11965 + (let ((__tmp11966 + (let () + (declare (not safe)) + (cons _exn11325_ '())))) + (declare (not safe)) + (cons 'divide-by-zero-exception-procedure + __tmp11966)))) + (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - (cons 'divide-by-zero-exception-procedure - (cons _e10911_ '()))))) - (if (macro-divide-by-zero-exception? _exn10908_) - (macro-divide-by-zero-exception-procedure _exn10908_) - (error '"not an instance" - 'divide-by-zero-exception? - (cons 'divide-by-zero-exception-procedure - (cons _exn10908_ '()))))))) + __tmp11965)))))) (define error-exception? - (lambda (_exn10904_) - (if (class-instance? RuntimeException::t _exn10904_) - (let ((_e10906_ (slot-ref _exn10904_ 'exception))) - (macro-error-exception? _e10906_)) - (macro-error-exception? _exn10904_)))) + (lambda (_exn11321_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11321_)) + (let ((_e11323_ + (let () + (declare (not safe)) + (slot-ref _exn11321_ 'exception)))) + (macro-error-exception? _e11323_)) + (macro-error-exception? _exn11321_)))) (define error-exception-message - (lambda (_exn10900_) - (if (class-instance? RuntimeException::t _exn10900_) - (let ((_e10902_ (slot-ref _exn10900_ 'exception))) - (if (macro-error-exception? _e10902_) - (macro-error-exception-message _e10902_) - (error '"not an instance" - 'error-exception? - (cons 'error-exception-message (cons _e10902_ '()))))) - (if (macro-error-exception? _exn10900_) - (macro-error-exception-message _exn10900_) - (error '"not an instance" - 'error-exception? - (cons 'error-exception-message - (cons _exn10900_ '()))))))) + (lambda (_exn11317_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11317_)) + (let ((_e11319_ + (let () + (declare (not safe)) + (slot-ref _exn11317_ 'exception)))) + (if (macro-error-exception? _e11319_) + (macro-error-exception-message _e11319_) + (let ((__tmp11971 + (let ((__tmp11972 + (let () + (declare (not safe)) + (cons _e11319_ '())))) + (declare (not safe)) + (cons 'error-exception-message __tmp11972)))) + (declare (not safe)) + (error '"not an instance" 'error-exception? __tmp11971)))) + (if (macro-error-exception? _exn11317_) + (macro-error-exception-message _exn11317_) + (let ((__tmp11969 + (let ((__tmp11970 + (let () + (declare (not safe)) + (cons _exn11317_ '())))) + (declare (not safe)) + (cons 'error-exception-message __tmp11970)))) + (declare (not safe)) + (error '"not an instance" 'error-exception? __tmp11969)))))) (define error-exception-parameters - (lambda (_exn10894_) - (if (class-instance? RuntimeException::t _exn10894_) - (let ((_e10897_ (slot-ref _exn10894_ 'exception))) - (if (macro-error-exception? _e10897_) - (macro-error-exception-parameters _e10897_) - (error '"not an instance" - 'error-exception? - (cons 'error-exception-parameters - (cons _e10897_ '()))))) - (if (macro-error-exception? _exn10894_) - (macro-error-exception-parameters _exn10894_) - (error '"not an instance" - 'error-exception? - (cons 'error-exception-parameters - (cons _exn10894_ '()))))))) + (lambda (_exn11311_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11311_)) + (let ((_e11314_ + (let () + (declare (not safe)) + (slot-ref _exn11311_ 'exception)))) + (if (macro-error-exception? _e11314_) + (macro-error-exception-parameters _e11314_) + (let ((__tmp11975 + (let ((__tmp11976 + (let () + (declare (not safe)) + (cons _e11314_ '())))) + (declare (not safe)) + (cons 'error-exception-parameters __tmp11976)))) + (declare (not safe)) + (error '"not an instance" 'error-exception? __tmp11975)))) + (if (macro-error-exception? _exn11311_) + (macro-error-exception-parameters _exn11311_) + (let ((__tmp11973 + (let ((__tmp11974 + (let () + (declare (not safe)) + (cons _exn11311_ '())))) + (declare (not safe)) + (cons 'error-exception-parameters __tmp11974)))) + (declare (not safe)) + (error '"not an instance" 'error-exception? __tmp11973)))))) (define expression-parsing-exception? - (lambda (_exn10890_) - (if (class-instance? RuntimeException::t _exn10890_) - (let ((_e10892_ (slot-ref _exn10890_ 'exception))) - (macro-expression-parsing-exception? _e10892_)) - (macro-expression-parsing-exception? _exn10890_)))) + (lambda (_exn11307_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11307_)) + (let ((_e11309_ + (let () + (declare (not safe)) + (slot-ref _exn11307_ 'exception)))) + (macro-expression-parsing-exception? _e11309_)) + (macro-expression-parsing-exception? _exn11307_)))) (define expression-parsing-exception-kind - (lambda (_exn10886_) - (if (class-instance? RuntimeException::t _exn10886_) - (let ((_e10888_ (slot-ref _exn10886_ 'exception))) - (if (macro-expression-parsing-exception? _e10888_) - (macro-expression-parsing-exception-kind _e10888_) + (lambda (_exn11303_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11303_)) + (let ((_e11305_ + (let () + (declare (not safe)) + (slot-ref _exn11303_ 'exception)))) + (if (macro-expression-parsing-exception? _e11305_) + (macro-expression-parsing-exception-kind _e11305_) + (let ((__tmp11979 + (let ((__tmp11980 + (let () + (declare (not safe)) + (cons _e11305_ '())))) + (declare (not safe)) + (cons 'expression-parsing-exception-kind + __tmp11980)))) + (declare (not safe)) + (error '"not an instance" + 'expression-parsing-exception? + __tmp11979)))) + (if (macro-expression-parsing-exception? _exn11303_) + (macro-expression-parsing-exception-kind _exn11303_) + (let ((__tmp11977 + (let ((__tmp11978 + (let () + (declare (not safe)) + (cons _exn11303_ '())))) + (declare (not safe)) + (cons 'expression-parsing-exception-kind + __tmp11978)))) + (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - (cons 'expression-parsing-exception-kind - (cons _e10888_ '()))))) - (if (macro-expression-parsing-exception? _exn10886_) - (macro-expression-parsing-exception-kind _exn10886_) - (error '"not an instance" - 'expression-parsing-exception? - (cons 'expression-parsing-exception-kind - (cons _exn10886_ '()))))))) + __tmp11977)))))) (define expression-parsing-exception-parameters - (lambda (_exn10882_) - (if (class-instance? RuntimeException::t _exn10882_) - (let ((_e10884_ (slot-ref _exn10882_ 'exception))) - (if (macro-expression-parsing-exception? _e10884_) - (macro-expression-parsing-exception-parameters _e10884_) + (lambda (_exn11299_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11299_)) + (let ((_e11301_ + (let () + (declare (not safe)) + (slot-ref _exn11299_ 'exception)))) + (if (macro-expression-parsing-exception? _e11301_) + (macro-expression-parsing-exception-parameters _e11301_) + (let ((__tmp11983 + (let ((__tmp11984 + (let () + (declare (not safe)) + (cons _e11301_ '())))) + (declare (not safe)) + (cons 'expression-parsing-exception-parameters + __tmp11984)))) + (declare (not safe)) + (error '"not an instance" + 'expression-parsing-exception? + __tmp11983)))) + (if (macro-expression-parsing-exception? _exn11299_) + (macro-expression-parsing-exception-parameters _exn11299_) + (let ((__tmp11981 + (let ((__tmp11982 + (let () + (declare (not safe)) + (cons _exn11299_ '())))) + (declare (not safe)) + (cons 'expression-parsing-exception-parameters + __tmp11982)))) + (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - (cons 'expression-parsing-exception-parameters - (cons _e10884_ '()))))) - (if (macro-expression-parsing-exception? _exn10882_) - (macro-expression-parsing-exception-parameters _exn10882_) - (error '"not an instance" - 'expression-parsing-exception? - (cons 'expression-parsing-exception-parameters - (cons _exn10882_ '()))))))) + __tmp11981)))))) (define expression-parsing-exception-source - (lambda (_exn10876_) - (if (class-instance? RuntimeException::t _exn10876_) - (let ((_e10879_ (slot-ref _exn10876_ 'exception))) - (if (macro-expression-parsing-exception? _e10879_) - (macro-expression-parsing-exception-source _e10879_) + (lambda (_exn11293_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11293_)) + (let ((_e11296_ + (let () + (declare (not safe)) + (slot-ref _exn11293_ 'exception)))) + (if (macro-expression-parsing-exception? _e11296_) + (macro-expression-parsing-exception-source _e11296_) + (let ((__tmp11987 + (let ((__tmp11988 + (let () + (declare (not safe)) + (cons _e11296_ '())))) + (declare (not safe)) + (cons 'expression-parsing-exception-source + __tmp11988)))) + (declare (not safe)) + (error '"not an instance" + 'expression-parsing-exception? + __tmp11987)))) + (if (macro-expression-parsing-exception? _exn11293_) + (macro-expression-parsing-exception-source _exn11293_) + (let ((__tmp11985 + (let ((__tmp11986 + (let () + (declare (not safe)) + (cons _exn11293_ '())))) + (declare (not safe)) + (cons 'expression-parsing-exception-source + __tmp11986)))) + (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - (cons 'expression-parsing-exception-source - (cons _e10879_ '()))))) - (if (macro-expression-parsing-exception? _exn10876_) - (macro-expression-parsing-exception-source _exn10876_) - (error '"not an instance" - 'expression-parsing-exception? - (cons 'expression-parsing-exception-source - (cons _exn10876_ '()))))))) + __tmp11985)))))) (define file-exists-exception? - (lambda (_exn10872_) - (if (class-instance? RuntimeException::t _exn10872_) - (let ((_e10874_ (slot-ref _exn10872_ 'exception))) - (macro-file-exists-exception? _e10874_)) - (macro-file-exists-exception? _exn10872_)))) + (lambda (_exn11289_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11289_)) + (let ((_e11291_ + (let () + (declare (not safe)) + (slot-ref _exn11289_ 'exception)))) + (macro-file-exists-exception? _e11291_)) + (macro-file-exists-exception? _exn11289_)))) (define file-exists-exception-arguments - (lambda (_exn10868_) - (if (class-instance? RuntimeException::t _exn10868_) - (let ((_e10870_ (slot-ref _exn10868_ 'exception))) - (if (macro-file-exists-exception? _e10870_) - (macro-file-exists-exception-arguments _e10870_) + (lambda (_exn11285_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11285_)) + (let ((_e11287_ + (let () + (declare (not safe)) + (slot-ref _exn11285_ 'exception)))) + (if (macro-file-exists-exception? _e11287_) + (macro-file-exists-exception-arguments _e11287_) + (let ((__tmp11991 + (let ((__tmp11992 + (let () + (declare (not safe)) + (cons _e11287_ '())))) + (declare (not safe)) + (cons 'file-exists-exception-arguments + __tmp11992)))) + (declare (not safe)) + (error '"not an instance" + 'file-exists-exception? + __tmp11991)))) + (if (macro-file-exists-exception? _exn11285_) + (macro-file-exists-exception-arguments _exn11285_) + (let ((__tmp11989 + (let ((__tmp11990 + (let () + (declare (not safe)) + (cons _exn11285_ '())))) + (declare (not safe)) + (cons 'file-exists-exception-arguments __tmp11990)))) + (declare (not safe)) (error '"not an instance" 'file-exists-exception? - (cons 'file-exists-exception-arguments - (cons _e10870_ '()))))) - (if (macro-file-exists-exception? _exn10868_) - (macro-file-exists-exception-arguments _exn10868_) - (error '"not an instance" - 'file-exists-exception? - (cons 'file-exists-exception-arguments - (cons _exn10868_ '()))))))) + __tmp11989)))))) (define file-exists-exception-procedure - (lambda (_exn10862_) - (if (class-instance? RuntimeException::t _exn10862_) - (let ((_e10865_ (slot-ref _exn10862_ 'exception))) - (if (macro-file-exists-exception? _e10865_) - (macro-file-exists-exception-procedure _e10865_) + (lambda (_exn11279_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11279_)) + (let ((_e11282_ + (let () + (declare (not safe)) + (slot-ref _exn11279_ 'exception)))) + (if (macro-file-exists-exception? _e11282_) + (macro-file-exists-exception-procedure _e11282_) + (let ((__tmp11995 + (let ((__tmp11996 + (let () + (declare (not safe)) + (cons _e11282_ '())))) + (declare (not safe)) + (cons 'file-exists-exception-procedure + __tmp11996)))) + (declare (not safe)) + (error '"not an instance" + 'file-exists-exception? + __tmp11995)))) + (if (macro-file-exists-exception? _exn11279_) + (macro-file-exists-exception-procedure _exn11279_) + (let ((__tmp11993 + (let ((__tmp11994 + (let () + (declare (not safe)) + (cons _exn11279_ '())))) + (declare (not safe)) + (cons 'file-exists-exception-procedure __tmp11994)))) + (declare (not safe)) (error '"not an instance" 'file-exists-exception? - (cons 'file-exists-exception-procedure - (cons _e10865_ '()))))) - (if (macro-file-exists-exception? _exn10862_) - (macro-file-exists-exception-procedure _exn10862_) - (error '"not an instance" - 'file-exists-exception? - (cons 'file-exists-exception-procedure - (cons _exn10862_ '()))))))) + __tmp11993)))))) (define fixnum-overflow-exception? - (lambda (_exn10858_) - (if (class-instance? RuntimeException::t _exn10858_) - (let ((_e10860_ (slot-ref _exn10858_ 'exception))) - (macro-fixnum-overflow-exception? _e10860_)) - (macro-fixnum-overflow-exception? _exn10858_)))) + (lambda (_exn11275_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11275_)) + (let ((_e11277_ + (let () + (declare (not safe)) + (slot-ref _exn11275_ 'exception)))) + (macro-fixnum-overflow-exception? _e11277_)) + (macro-fixnum-overflow-exception? _exn11275_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn10854_) - (if (class-instance? RuntimeException::t _exn10854_) - (let ((_e10856_ (slot-ref _exn10854_ 'exception))) - (if (macro-fixnum-overflow-exception? _e10856_) - (macro-fixnum-overflow-exception-arguments _e10856_) + (lambda (_exn11271_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11271_)) + (let ((_e11273_ + (let () + (declare (not safe)) + (slot-ref _exn11271_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e11273_) + (macro-fixnum-overflow-exception-arguments _e11273_) + (let ((__tmp11999 + (let ((__tmp12000 + (let () + (declare (not safe)) + (cons _e11273_ '())))) + (declare (not safe)) + (cons 'fixnum-overflow-exception-arguments + __tmp12000)))) + (declare (not safe)) + (error '"not an instance" + 'fixnum-overflow-exception? + __tmp11999)))) + (if (macro-fixnum-overflow-exception? _exn11271_) + (macro-fixnum-overflow-exception-arguments _exn11271_) + (let ((__tmp11997 + (let ((__tmp11998 + (let () + (declare (not safe)) + (cons _exn11271_ '())))) + (declare (not safe)) + (cons 'fixnum-overflow-exception-arguments + __tmp11998)))) + (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - (cons 'fixnum-overflow-exception-arguments - (cons _e10856_ '()))))) - (if (macro-fixnum-overflow-exception? _exn10854_) - (macro-fixnum-overflow-exception-arguments _exn10854_) - (error '"not an instance" - 'fixnum-overflow-exception? - (cons 'fixnum-overflow-exception-arguments - (cons _exn10854_ '()))))))) + __tmp11997)))))) (define fixnum-overflow-exception-procedure - (lambda (_exn10848_) - (if (class-instance? RuntimeException::t _exn10848_) - (let ((_e10851_ (slot-ref _exn10848_ 'exception))) - (if (macro-fixnum-overflow-exception? _e10851_) - (macro-fixnum-overflow-exception-procedure _e10851_) + (lambda (_exn11265_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11265_)) + (let ((_e11268_ + (let () + (declare (not safe)) + (slot-ref _exn11265_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e11268_) + (macro-fixnum-overflow-exception-procedure _e11268_) + (let ((__tmp12003 + (let ((__tmp12004 + (let () + (declare (not safe)) + (cons _e11268_ '())))) + (declare (not safe)) + (cons 'fixnum-overflow-exception-procedure + __tmp12004)))) + (declare (not safe)) + (error '"not an instance" + 'fixnum-overflow-exception? + __tmp12003)))) + (if (macro-fixnum-overflow-exception? _exn11265_) + (macro-fixnum-overflow-exception-procedure _exn11265_) + (let ((__tmp12001 + (let ((__tmp12002 + (let () + (declare (not safe)) + (cons _exn11265_ '())))) + (declare (not safe)) + (cons 'fixnum-overflow-exception-procedure + __tmp12002)))) + (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - (cons 'fixnum-overflow-exception-procedure - (cons _e10851_ '()))))) - (if (macro-fixnum-overflow-exception? _exn10848_) - (macro-fixnum-overflow-exception-procedure _exn10848_) - (error '"not an instance" - 'fixnum-overflow-exception? - (cons 'fixnum-overflow-exception-procedure - (cons _exn10848_ '()))))))) + __tmp12001)))))) (define heap-overflow-exception? - (lambda (_exn10842_) - (if (class-instance? RuntimeException::t _exn10842_) - (let ((_e10845_ (slot-ref _exn10842_ 'exception))) - (macro-heap-overflow-exception? _e10845_)) - (macro-heap-overflow-exception? _exn10842_)))) + (lambda (_exn11259_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11259_)) + (let ((_e11262_ + (let () + (declare (not safe)) + (slot-ref _exn11259_ 'exception)))) + (macro-heap-overflow-exception? _e11262_)) + (macro-heap-overflow-exception? _exn11259_)))) (define inactive-thread-exception? - (lambda (_exn10838_) - (if (class-instance? RuntimeException::t _exn10838_) - (let ((_e10840_ (slot-ref _exn10838_ 'exception))) - (macro-inactive-thread-exception? _e10840_)) - (macro-inactive-thread-exception? _exn10838_)))) + (lambda (_exn11255_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11255_)) + (let ((_e11257_ + (let () + (declare (not safe)) + (slot-ref _exn11255_ 'exception)))) + (macro-inactive-thread-exception? _e11257_)) + (macro-inactive-thread-exception? _exn11255_)))) (define inactive-thread-exception-arguments - (lambda (_exn10834_) - (if (class-instance? RuntimeException::t _exn10834_) - (let ((_e10836_ (slot-ref _exn10834_ 'exception))) - (if (macro-inactive-thread-exception? _e10836_) - (macro-inactive-thread-exception-arguments _e10836_) + (lambda (_exn11251_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11251_)) + (let ((_e11253_ + (let () + (declare (not safe)) + (slot-ref _exn11251_ 'exception)))) + (if (macro-inactive-thread-exception? _e11253_) + (macro-inactive-thread-exception-arguments _e11253_) + (let ((__tmp12007 + (let ((__tmp12008 + (let () + (declare (not safe)) + (cons _e11253_ '())))) + (declare (not safe)) + (cons 'inactive-thread-exception-arguments + __tmp12008)))) + (declare (not safe)) + (error '"not an instance" + 'inactive-thread-exception? + __tmp12007)))) + (if (macro-inactive-thread-exception? _exn11251_) + (macro-inactive-thread-exception-arguments _exn11251_) + (let ((__tmp12005 + (let ((__tmp12006 + (let () + (declare (not safe)) + (cons _exn11251_ '())))) + (declare (not safe)) + (cons 'inactive-thread-exception-arguments + __tmp12006)))) + (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - (cons 'inactive-thread-exception-arguments - (cons _e10836_ '()))))) - (if (macro-inactive-thread-exception? _exn10834_) - (macro-inactive-thread-exception-arguments _exn10834_) - (error '"not an instance" - 'inactive-thread-exception? - (cons 'inactive-thread-exception-arguments - (cons _exn10834_ '()))))))) + __tmp12005)))))) (define inactive-thread-exception-procedure - (lambda (_exn10828_) - (if (class-instance? RuntimeException::t _exn10828_) - (let ((_e10831_ (slot-ref _exn10828_ 'exception))) - (if (macro-inactive-thread-exception? _e10831_) - (macro-inactive-thread-exception-procedure _e10831_) + (lambda (_exn11245_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11245_)) + (let ((_e11248_ + (let () + (declare (not safe)) + (slot-ref _exn11245_ 'exception)))) + (if (macro-inactive-thread-exception? _e11248_) + (macro-inactive-thread-exception-procedure _e11248_) + (let ((__tmp12011 + (let ((__tmp12012 + (let () + (declare (not safe)) + (cons _e11248_ '())))) + (declare (not safe)) + (cons 'inactive-thread-exception-procedure + __tmp12012)))) + (declare (not safe)) + (error '"not an instance" + 'inactive-thread-exception? + __tmp12011)))) + (if (macro-inactive-thread-exception? _exn11245_) + (macro-inactive-thread-exception-procedure _exn11245_) + (let ((__tmp12009 + (let ((__tmp12010 + (let () + (declare (not safe)) + (cons _exn11245_ '())))) + (declare (not safe)) + (cons 'inactive-thread-exception-procedure + __tmp12010)))) + (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - (cons 'inactive-thread-exception-procedure - (cons _e10831_ '()))))) - (if (macro-inactive-thread-exception? _exn10828_) - (macro-inactive-thread-exception-procedure _exn10828_) - (error '"not an instance" - 'inactive-thread-exception? - (cons 'inactive-thread-exception-procedure - (cons _exn10828_ '()))))))) + __tmp12009)))))) (define initialized-thread-exception? - (lambda (_exn10824_) - (if (class-instance? RuntimeException::t _exn10824_) - (let ((_e10826_ (slot-ref _exn10824_ 'exception))) - (macro-initialized-thread-exception? _e10826_)) - (macro-initialized-thread-exception? _exn10824_)))) + (lambda (_exn11241_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11241_)) + (let ((_e11243_ + (let () + (declare (not safe)) + (slot-ref _exn11241_ 'exception)))) + (macro-initialized-thread-exception? _e11243_)) + (macro-initialized-thread-exception? _exn11241_)))) (define initialized-thread-exception-arguments - (lambda (_exn10820_) - (if (class-instance? RuntimeException::t _exn10820_) - (let ((_e10822_ (slot-ref _exn10820_ 'exception))) - (if (macro-initialized-thread-exception? _e10822_) - (macro-initialized-thread-exception-arguments _e10822_) + (lambda (_exn11237_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11237_)) + (let ((_e11239_ + (let () + (declare (not safe)) + (slot-ref _exn11237_ 'exception)))) + (if (macro-initialized-thread-exception? _e11239_) + (macro-initialized-thread-exception-arguments _e11239_) + (let ((__tmp12015 + (let ((__tmp12016 + (let () + (declare (not safe)) + (cons _e11239_ '())))) + (declare (not safe)) + (cons 'initialized-thread-exception-arguments + __tmp12016)))) + (declare (not safe)) + (error '"not an instance" + 'initialized-thread-exception? + __tmp12015)))) + (if (macro-initialized-thread-exception? _exn11237_) + (macro-initialized-thread-exception-arguments _exn11237_) + (let ((__tmp12013 + (let ((__tmp12014 + (let () + (declare (not safe)) + (cons _exn11237_ '())))) + (declare (not safe)) + (cons 'initialized-thread-exception-arguments + __tmp12014)))) + (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - (cons 'initialized-thread-exception-arguments - (cons _e10822_ '()))))) - (if (macro-initialized-thread-exception? _exn10820_) - (macro-initialized-thread-exception-arguments _exn10820_) - (error '"not an instance" - 'initialized-thread-exception? - (cons 'initialized-thread-exception-arguments - (cons _exn10820_ '()))))))) + __tmp12013)))))) (define initialized-thread-exception-procedure - (lambda (_exn10814_) - (if (class-instance? RuntimeException::t _exn10814_) - (let ((_e10817_ (slot-ref _exn10814_ 'exception))) - (if (macro-initialized-thread-exception? _e10817_) - (macro-initialized-thread-exception-procedure _e10817_) + (lambda (_exn11231_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11231_)) + (let ((_e11234_ + (let () + (declare (not safe)) + (slot-ref _exn11231_ 'exception)))) + (if (macro-initialized-thread-exception? _e11234_) + (macro-initialized-thread-exception-procedure _e11234_) + (let ((__tmp12019 + (let ((__tmp12020 + (let () + (declare (not safe)) + (cons _e11234_ '())))) + (declare (not safe)) + (cons 'initialized-thread-exception-procedure + __tmp12020)))) + (declare (not safe)) + (error '"not an instance" + 'initialized-thread-exception? + __tmp12019)))) + (if (macro-initialized-thread-exception? _exn11231_) + (macro-initialized-thread-exception-procedure _exn11231_) + (let ((__tmp12017 + (let ((__tmp12018 + (let () + (declare (not safe)) + (cons _exn11231_ '())))) + (declare (not safe)) + (cons 'initialized-thread-exception-procedure + __tmp12018)))) + (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - (cons 'initialized-thread-exception-procedure - (cons _e10817_ '()))))) - (if (macro-initialized-thread-exception? _exn10814_) - (macro-initialized-thread-exception-procedure _exn10814_) - (error '"not an instance" - 'initialized-thread-exception? - (cons 'initialized-thread-exception-procedure - (cons _exn10814_ '()))))))) + __tmp12017)))))) (define invalid-hash-number-exception? - (lambda (_exn10810_) - (if (class-instance? RuntimeException::t _exn10810_) - (let ((_e10812_ (slot-ref _exn10810_ 'exception))) - (macro-invalid-hash-number-exception? _e10812_)) - (macro-invalid-hash-number-exception? _exn10810_)))) + (lambda (_exn11227_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11227_)) + (let ((_e11229_ + (let () + (declare (not safe)) + (slot-ref _exn11227_ 'exception)))) + (macro-invalid-hash-number-exception? _e11229_)) + (macro-invalid-hash-number-exception? _exn11227_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn10806_) - (if (class-instance? RuntimeException::t _exn10806_) - (let ((_e10808_ (slot-ref _exn10806_ 'exception))) - (if (macro-invalid-hash-number-exception? _e10808_) - (macro-invalid-hash-number-exception-arguments _e10808_) + (lambda (_exn11223_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11223_)) + (let ((_e11225_ + (let () + (declare (not safe)) + (slot-ref _exn11223_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e11225_) + (macro-invalid-hash-number-exception-arguments _e11225_) + (let ((__tmp12023 + (let ((__tmp12024 + (let () + (declare (not safe)) + (cons _e11225_ '())))) + (declare (not safe)) + (cons 'invalid-hash-number-exception-arguments + __tmp12024)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-hash-number-exception? + __tmp12023)))) + (if (macro-invalid-hash-number-exception? _exn11223_) + (macro-invalid-hash-number-exception-arguments _exn11223_) + (let ((__tmp12021 + (let ((__tmp12022 + (let () + (declare (not safe)) + (cons _exn11223_ '())))) + (declare (not safe)) + (cons 'invalid-hash-number-exception-arguments + __tmp12022)))) + (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - (cons 'invalid-hash-number-exception-arguments - (cons _e10808_ '()))))) - (if (macro-invalid-hash-number-exception? _exn10806_) - (macro-invalid-hash-number-exception-arguments _exn10806_) - (error '"not an instance" - 'invalid-hash-number-exception? - (cons 'invalid-hash-number-exception-arguments - (cons _exn10806_ '()))))))) + __tmp12021)))))) (define invalid-hash-number-exception-procedure - (lambda (_exn10800_) - (if (class-instance? RuntimeException::t _exn10800_) - (let ((_e10803_ (slot-ref _exn10800_ 'exception))) - (if (macro-invalid-hash-number-exception? _e10803_) - (macro-invalid-hash-number-exception-procedure _e10803_) + (lambda (_exn11217_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11217_)) + (let ((_e11220_ + (let () + (declare (not safe)) + (slot-ref _exn11217_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e11220_) + (macro-invalid-hash-number-exception-procedure _e11220_) + (let ((__tmp12027 + (let ((__tmp12028 + (let () + (declare (not safe)) + (cons _e11220_ '())))) + (declare (not safe)) + (cons 'invalid-hash-number-exception-procedure + __tmp12028)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-hash-number-exception? + __tmp12027)))) + (if (macro-invalid-hash-number-exception? _exn11217_) + (macro-invalid-hash-number-exception-procedure _exn11217_) + (let ((__tmp12025 + (let ((__tmp12026 + (let () + (declare (not safe)) + (cons _exn11217_ '())))) + (declare (not safe)) + (cons 'invalid-hash-number-exception-procedure + __tmp12026)))) + (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - (cons 'invalid-hash-number-exception-procedure - (cons _e10803_ '()))))) - (if (macro-invalid-hash-number-exception? _exn10800_) - (macro-invalid-hash-number-exception-procedure _exn10800_) - (error '"not an instance" - 'invalid-hash-number-exception? - (cons 'invalid-hash-number-exception-procedure - (cons _exn10800_ '()))))))) + __tmp12025)))))) (define invalid-utf8-encoding-exception? - (lambda (_exn10796_) - (if (class-instance? RuntimeException::t _exn10796_) - (let ((_e10798_ (slot-ref _exn10796_ 'exception))) - (macro-invalid-utf8-encoding-exception? _e10798_)) - (macro-invalid-utf8-encoding-exception? _exn10796_)))) + (lambda (_exn11213_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11213_)) + (let ((_e11215_ + (let () + (declare (not safe)) + (slot-ref _exn11213_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e11215_)) + (macro-invalid-utf8-encoding-exception? _exn11213_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn10792_) - (if (class-instance? RuntimeException::t _exn10792_) - (let ((_e10794_ (slot-ref _exn10792_ 'exception))) - (if (macro-invalid-utf8-encoding-exception? _e10794_) - (macro-invalid-utf8-encoding-exception-arguments _e10794_) + (lambda (_exn11209_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11209_)) + (let ((_e11211_ + (let () + (declare (not safe)) + (slot-ref _exn11209_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e11211_) + (macro-invalid-utf8-encoding-exception-arguments _e11211_) + (let ((__tmp12031 + (let ((__tmp12032 + (let () + (declare (not safe)) + (cons _e11211_ '())))) + (declare (not safe)) + (cons 'invalid-utf8-encoding-exception-arguments + __tmp12032)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-utf8-encoding-exception? + __tmp12031)))) + (if (macro-invalid-utf8-encoding-exception? _exn11209_) + (macro-invalid-utf8-encoding-exception-arguments _exn11209_) + (let ((__tmp12029 + (let ((__tmp12030 + (let () + (declare (not safe)) + (cons _exn11209_ '())))) + (declare (not safe)) + (cons 'invalid-utf8-encoding-exception-arguments + __tmp12030)))) + (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - (cons 'invalid-utf8-encoding-exception-arguments - (cons _e10794_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _exn10792_) - (macro-invalid-utf8-encoding-exception-arguments _exn10792_) - (error '"not an instance" - 'invalid-utf8-encoding-exception? - (cons 'invalid-utf8-encoding-exception-arguments - (cons _exn10792_ '()))))))) + __tmp12029)))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn10786_) - (if (class-instance? RuntimeException::t _exn10786_) - (let ((_e10789_ (slot-ref _exn10786_ 'exception))) - (if (macro-invalid-utf8-encoding-exception? _e10789_) - (macro-invalid-utf8-encoding-exception-procedure _e10789_) + (lambda (_exn11203_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11203_)) + (let ((_e11206_ + (let () + (declare (not safe)) + (slot-ref _exn11203_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e11206_) + (macro-invalid-utf8-encoding-exception-procedure _e11206_) + (let ((__tmp12035 + (let ((__tmp12036 + (let () + (declare (not safe)) + (cons _e11206_ '())))) + (declare (not safe)) + (cons 'invalid-utf8-encoding-exception-procedure + __tmp12036)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-utf8-encoding-exception? + __tmp12035)))) + (if (macro-invalid-utf8-encoding-exception? _exn11203_) + (macro-invalid-utf8-encoding-exception-procedure _exn11203_) + (let ((__tmp12033 + (let ((__tmp12034 + (let () + (declare (not safe)) + (cons _exn11203_ '())))) + (declare (not safe)) + (cons 'invalid-utf8-encoding-exception-procedure + __tmp12034)))) + (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - (cons 'invalid-utf8-encoding-exception-procedure - (cons _e10789_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _exn10786_) - (macro-invalid-utf8-encoding-exception-procedure _exn10786_) - (error '"not an instance" - 'invalid-utf8-encoding-exception? - (cons 'invalid-utf8-encoding-exception-procedure - (cons _exn10786_ '()))))))) + __tmp12033)))))) (define join-timeout-exception? - (lambda (_exn10782_) - (if (class-instance? RuntimeException::t _exn10782_) - (let ((_e10784_ (slot-ref _exn10782_ 'exception))) - (macro-join-timeout-exception? _e10784_)) - (macro-join-timeout-exception? _exn10782_)))) + (lambda (_exn11199_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11199_)) + (let ((_e11201_ + (let () + (declare (not safe)) + (slot-ref _exn11199_ 'exception)))) + (macro-join-timeout-exception? _e11201_)) + (macro-join-timeout-exception? _exn11199_)))) (define join-timeout-exception-arguments - (lambda (_exn10778_) - (if (class-instance? RuntimeException::t _exn10778_) - (let ((_e10780_ (slot-ref _exn10778_ 'exception))) - (if (macro-join-timeout-exception? _e10780_) - (macro-join-timeout-exception-arguments _e10780_) + (lambda (_exn11195_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11195_)) + (let ((_e11197_ + (let () + (declare (not safe)) + (slot-ref _exn11195_ 'exception)))) + (if (macro-join-timeout-exception? _e11197_) + (macro-join-timeout-exception-arguments _e11197_) + (let ((__tmp12039 + (let ((__tmp12040 + (let () + (declare (not safe)) + (cons _e11197_ '())))) + (declare (not safe)) + (cons 'join-timeout-exception-arguments + __tmp12040)))) + (declare (not safe)) + (error '"not an instance" + 'join-timeout-exception? + __tmp12039)))) + (if (macro-join-timeout-exception? _exn11195_) + (macro-join-timeout-exception-arguments _exn11195_) + (let ((__tmp12037 + (let ((__tmp12038 + (let () + (declare (not safe)) + (cons _exn11195_ '())))) + (declare (not safe)) + (cons 'join-timeout-exception-arguments __tmp12038)))) + (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - (cons 'join-timeout-exception-arguments - (cons _e10780_ '()))))) - (if (macro-join-timeout-exception? _exn10778_) - (macro-join-timeout-exception-arguments _exn10778_) - (error '"not an instance" - 'join-timeout-exception? - (cons 'join-timeout-exception-arguments - (cons _exn10778_ '()))))))) + __tmp12037)))))) (define join-timeout-exception-procedure - (lambda (_exn10772_) - (if (class-instance? RuntimeException::t _exn10772_) - (let ((_e10775_ (slot-ref _exn10772_ 'exception))) - (if (macro-join-timeout-exception? _e10775_) - (macro-join-timeout-exception-procedure _e10775_) + (lambda (_exn11189_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11189_)) + (let ((_e11192_ + (let () + (declare (not safe)) + (slot-ref _exn11189_ 'exception)))) + (if (macro-join-timeout-exception? _e11192_) + (macro-join-timeout-exception-procedure _e11192_) + (let ((__tmp12043 + (let ((__tmp12044 + (let () + (declare (not safe)) + (cons _e11192_ '())))) + (declare (not safe)) + (cons 'join-timeout-exception-procedure + __tmp12044)))) + (declare (not safe)) + (error '"not an instance" + 'join-timeout-exception? + __tmp12043)))) + (if (macro-join-timeout-exception? _exn11189_) + (macro-join-timeout-exception-procedure _exn11189_) + (let ((__tmp12041 + (let ((__tmp12042 + (let () + (declare (not safe)) + (cons _exn11189_ '())))) + (declare (not safe)) + (cons 'join-timeout-exception-procedure __tmp12042)))) + (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - (cons 'join-timeout-exception-procedure - (cons _e10775_ '()))))) - (if (macro-join-timeout-exception? _exn10772_) - (macro-join-timeout-exception-procedure _exn10772_) - (error '"not an instance" - 'join-timeout-exception? - (cons 'join-timeout-exception-procedure - (cons _exn10772_ '()))))))) + __tmp12041)))))) (define keyword-expected-exception? - (lambda (_exn10768_) - (if (class-instance? RuntimeException::t _exn10768_) - (let ((_e10770_ (slot-ref _exn10768_ 'exception))) - (macro-keyword-expected-exception? _e10770_)) - (macro-keyword-expected-exception? _exn10768_)))) + (lambda (_exn11185_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11185_)) + (let ((_e11187_ + (let () + (declare (not safe)) + (slot-ref _exn11185_ 'exception)))) + (macro-keyword-expected-exception? _e11187_)) + (macro-keyword-expected-exception? _exn11185_)))) (define keyword-expected-exception-arguments - (lambda (_exn10764_) - (if (class-instance? RuntimeException::t _exn10764_) - (let ((_e10766_ (slot-ref _exn10764_ 'exception))) - (if (macro-keyword-expected-exception? _e10766_) - (macro-keyword-expected-exception-arguments _e10766_) + (lambda (_exn11181_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11181_)) + (let ((_e11183_ + (let () + (declare (not safe)) + (slot-ref _exn11181_ 'exception)))) + (if (macro-keyword-expected-exception? _e11183_) + (macro-keyword-expected-exception-arguments _e11183_) + (let ((__tmp12047 + (let ((__tmp12048 + (let () + (declare (not safe)) + (cons _e11183_ '())))) + (declare (not safe)) + (cons 'keyword-expected-exception-arguments + __tmp12048)))) + (declare (not safe)) + (error '"not an instance" + 'keyword-expected-exception? + __tmp12047)))) + (if (macro-keyword-expected-exception? _exn11181_) + (macro-keyword-expected-exception-arguments _exn11181_) + (let ((__tmp12045 + (let ((__tmp12046 + (let () + (declare (not safe)) + (cons _exn11181_ '())))) + (declare (not safe)) + (cons 'keyword-expected-exception-arguments + __tmp12046)))) + (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - (cons 'keyword-expected-exception-arguments - (cons _e10766_ '()))))) - (if (macro-keyword-expected-exception? _exn10764_) - (macro-keyword-expected-exception-arguments _exn10764_) - (error '"not an instance" - 'keyword-expected-exception? - (cons 'keyword-expected-exception-arguments - (cons _exn10764_ '()))))))) + __tmp12045)))))) (define keyword-expected-exception-procedure - (lambda (_exn10758_) - (if (class-instance? RuntimeException::t _exn10758_) - (let ((_e10761_ (slot-ref _exn10758_ 'exception))) - (if (macro-keyword-expected-exception? _e10761_) - (macro-keyword-expected-exception-procedure _e10761_) + (lambda (_exn11175_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11175_)) + (let ((_e11178_ + (let () + (declare (not safe)) + (slot-ref _exn11175_ 'exception)))) + (if (macro-keyword-expected-exception? _e11178_) + (macro-keyword-expected-exception-procedure _e11178_) + (let ((__tmp12051 + (let ((__tmp12052 + (let () + (declare (not safe)) + (cons _e11178_ '())))) + (declare (not safe)) + (cons 'keyword-expected-exception-procedure + __tmp12052)))) + (declare (not safe)) + (error '"not an instance" + 'keyword-expected-exception? + __tmp12051)))) + (if (macro-keyword-expected-exception? _exn11175_) + (macro-keyword-expected-exception-procedure _exn11175_) + (let ((__tmp12049 + (let ((__tmp12050 + (let () + (declare (not safe)) + (cons _exn11175_ '())))) + (declare (not safe)) + (cons 'keyword-expected-exception-procedure + __tmp12050)))) + (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - (cons 'keyword-expected-exception-procedure - (cons _e10761_ '()))))) - (if (macro-keyword-expected-exception? _exn10758_) - (macro-keyword-expected-exception-procedure _exn10758_) - (error '"not an instance" - 'keyword-expected-exception? - (cons 'keyword-expected-exception-procedure - (cons _exn10758_ '()))))))) + __tmp12049)))))) (define length-mismatch-exception? - (lambda (_exn10754_) - (if (class-instance? RuntimeException::t _exn10754_) - (let ((_e10756_ (slot-ref _exn10754_ 'exception))) - (macro-length-mismatch-exception? _e10756_)) - (macro-length-mismatch-exception? _exn10754_)))) + (lambda (_exn11171_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11171_)) + (let ((_e11173_ + (let () + (declare (not safe)) + (slot-ref _exn11171_ 'exception)))) + (macro-length-mismatch-exception? _e11173_)) + (macro-length-mismatch-exception? _exn11171_)))) (define length-mismatch-exception-arg-id - (lambda (_exn10750_) - (if (class-instance? RuntimeException::t _exn10750_) - (let ((_e10752_ (slot-ref _exn10750_ 'exception))) - (if (macro-length-mismatch-exception? _e10752_) - (macro-length-mismatch-exception-arg-id _e10752_) + (lambda (_exn11167_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11167_)) + (let ((_e11169_ + (let () + (declare (not safe)) + (slot-ref _exn11167_ 'exception)))) + (if (macro-length-mismatch-exception? _e11169_) + (macro-length-mismatch-exception-arg-id _e11169_) + (let ((__tmp12055 + (let ((__tmp12056 + (let () + (declare (not safe)) + (cons _e11169_ '())))) + (declare (not safe)) + (cons 'length-mismatch-exception-arg-id + __tmp12056)))) + (declare (not safe)) + (error '"not an instance" + 'length-mismatch-exception? + __tmp12055)))) + (if (macro-length-mismatch-exception? _exn11167_) + (macro-length-mismatch-exception-arg-id _exn11167_) + (let ((__tmp12053 + (let ((__tmp12054 + (let () + (declare (not safe)) + (cons _exn11167_ '())))) + (declare (not safe)) + (cons 'length-mismatch-exception-arg-id __tmp12054)))) + (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - (cons 'length-mismatch-exception-arg-id - (cons _e10752_ '()))))) - (if (macro-length-mismatch-exception? _exn10750_) - (macro-length-mismatch-exception-arg-id _exn10750_) - (error '"not an instance" - 'length-mismatch-exception? - (cons 'length-mismatch-exception-arg-id - (cons _exn10750_ '()))))))) + __tmp12053)))))) (define length-mismatch-exception-arguments - (lambda (_exn10746_) - (if (class-instance? RuntimeException::t _exn10746_) - (let ((_e10748_ (slot-ref _exn10746_ 'exception))) - (if (macro-length-mismatch-exception? _e10748_) - (macro-length-mismatch-exception-arguments _e10748_) + (lambda (_exn11163_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11163_)) + (let ((_e11165_ + (let () + (declare (not safe)) + (slot-ref _exn11163_ 'exception)))) + (if (macro-length-mismatch-exception? _e11165_) + (macro-length-mismatch-exception-arguments _e11165_) + (let ((__tmp12059 + (let ((__tmp12060 + (let () + (declare (not safe)) + (cons _e11165_ '())))) + (declare (not safe)) + (cons 'length-mismatch-exception-arguments + __tmp12060)))) + (declare (not safe)) + (error '"not an instance" + 'length-mismatch-exception? + __tmp12059)))) + (if (macro-length-mismatch-exception? _exn11163_) + (macro-length-mismatch-exception-arguments _exn11163_) + (let ((__tmp12057 + (let ((__tmp12058 + (let () + (declare (not safe)) + (cons _exn11163_ '())))) + (declare (not safe)) + (cons 'length-mismatch-exception-arguments + __tmp12058)))) + (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - (cons 'length-mismatch-exception-arguments - (cons _e10748_ '()))))) - (if (macro-length-mismatch-exception? _exn10746_) - (macro-length-mismatch-exception-arguments _exn10746_) - (error '"not an instance" - 'length-mismatch-exception? - (cons 'length-mismatch-exception-arguments - (cons _exn10746_ '()))))))) + __tmp12057)))))) (define length-mismatch-exception-procedure - (lambda (_exn10740_) - (if (class-instance? RuntimeException::t _exn10740_) - (let ((_e10743_ (slot-ref _exn10740_ 'exception))) - (if (macro-length-mismatch-exception? _e10743_) - (macro-length-mismatch-exception-procedure _e10743_) + (lambda (_exn11157_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11157_)) + (let ((_e11160_ + (let () + (declare (not safe)) + (slot-ref _exn11157_ 'exception)))) + (if (macro-length-mismatch-exception? _e11160_) + (macro-length-mismatch-exception-procedure _e11160_) + (let ((__tmp12063 + (let ((__tmp12064 + (let () + (declare (not safe)) + (cons _e11160_ '())))) + (declare (not safe)) + (cons 'length-mismatch-exception-procedure + __tmp12064)))) + (declare (not safe)) + (error '"not an instance" + 'length-mismatch-exception? + __tmp12063)))) + (if (macro-length-mismatch-exception? _exn11157_) + (macro-length-mismatch-exception-procedure _exn11157_) + (let ((__tmp12061 + (let ((__tmp12062 + (let () + (declare (not safe)) + (cons _exn11157_ '())))) + (declare (not safe)) + (cons 'length-mismatch-exception-procedure + __tmp12062)))) + (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - (cons 'length-mismatch-exception-procedure - (cons _e10743_ '()))))) - (if (macro-length-mismatch-exception? _exn10740_) - (macro-length-mismatch-exception-procedure _exn10740_) - (error '"not an instance" - 'length-mismatch-exception? - (cons 'length-mismatch-exception-procedure - (cons _exn10740_ '()))))))) + __tmp12061)))))) (define mailbox-receive-timeout-exception? - (lambda (_exn10736_) - (if (class-instance? RuntimeException::t _exn10736_) - (let ((_e10738_ (slot-ref _exn10736_ 'exception))) - (macro-mailbox-receive-timeout-exception? _e10738_)) - (macro-mailbox-receive-timeout-exception? _exn10736_)))) + (lambda (_exn11153_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11153_)) + (let ((_e11155_ + (let () + (declare (not safe)) + (slot-ref _exn11153_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e11155_)) + (macro-mailbox-receive-timeout-exception? _exn11153_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn10732_) - (if (class-instance? RuntimeException::t _exn10732_) - (let ((_e10734_ (slot-ref _exn10732_ 'exception))) - (if (macro-mailbox-receive-timeout-exception? _e10734_) - (macro-mailbox-receive-timeout-exception-arguments _e10734_) + (lambda (_exn11149_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11149_)) + (let ((_e11151_ + (let () + (declare (not safe)) + (slot-ref _exn11149_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e11151_) + (macro-mailbox-receive-timeout-exception-arguments _e11151_) + (let ((__tmp12067 + (let ((__tmp12068 + (let () + (declare (not safe)) + (cons _e11151_ '())))) + (declare (not safe)) + (cons 'mailbox-receive-timeout-exception-arguments + __tmp12068)))) + (declare (not safe)) + (error '"not an instance" + 'mailbox-receive-timeout-exception? + __tmp12067)))) + (if (macro-mailbox-receive-timeout-exception? _exn11149_) + (macro-mailbox-receive-timeout-exception-arguments _exn11149_) + (let ((__tmp12065 + (let ((__tmp12066 + (let () + (declare (not safe)) + (cons _exn11149_ '())))) + (declare (not safe)) + (cons 'mailbox-receive-timeout-exception-arguments + __tmp12066)))) + (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - (cons 'mailbox-receive-timeout-exception-arguments - (cons _e10734_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _exn10732_) - (macro-mailbox-receive-timeout-exception-arguments _exn10732_) - (error '"not an instance" - 'mailbox-receive-timeout-exception? - (cons 'mailbox-receive-timeout-exception-arguments - (cons _exn10732_ '()))))))) + __tmp12065)))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn10726_) - (if (class-instance? RuntimeException::t _exn10726_) - (let ((_e10729_ (slot-ref _exn10726_ 'exception))) - (if (macro-mailbox-receive-timeout-exception? _e10729_) - (macro-mailbox-receive-timeout-exception-procedure _e10729_) + (lambda (_exn11143_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11143_)) + (let ((_e11146_ + (let () + (declare (not safe)) + (slot-ref _exn11143_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e11146_) + (macro-mailbox-receive-timeout-exception-procedure _e11146_) + (let ((__tmp12071 + (let ((__tmp12072 + (let () + (declare (not safe)) + (cons _e11146_ '())))) + (declare (not safe)) + (cons 'mailbox-receive-timeout-exception-procedure + __tmp12072)))) + (declare (not safe)) + (error '"not an instance" + 'mailbox-receive-timeout-exception? + __tmp12071)))) + (if (macro-mailbox-receive-timeout-exception? _exn11143_) + (macro-mailbox-receive-timeout-exception-procedure _exn11143_) + (let ((__tmp12069 + (let ((__tmp12070 + (let () + (declare (not safe)) + (cons _exn11143_ '())))) + (declare (not safe)) + (cons 'mailbox-receive-timeout-exception-procedure + __tmp12070)))) + (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - (cons 'mailbox-receive-timeout-exception-procedure - (cons _e10729_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _exn10726_) - (macro-mailbox-receive-timeout-exception-procedure _exn10726_) - (error '"not an instance" - 'mailbox-receive-timeout-exception? - (cons 'mailbox-receive-timeout-exception-procedure - (cons _exn10726_ '()))))))) + __tmp12069)))))) (define module-not-found-exception? - (lambda (_exn10722_) - (if (class-instance? RuntimeException::t _exn10722_) - (let ((_e10724_ (slot-ref _exn10722_ 'exception))) - (macro-module-not-found-exception? _e10724_)) - (macro-module-not-found-exception? _exn10722_)))) + (lambda (_exn11139_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11139_)) + (let ((_e11141_ + (let () + (declare (not safe)) + (slot-ref _exn11139_ 'exception)))) + (macro-module-not-found-exception? _e11141_)) + (macro-module-not-found-exception? _exn11139_)))) (define module-not-found-exception-arguments - (lambda (_exn10718_) - (if (class-instance? RuntimeException::t _exn10718_) - (let ((_e10720_ (slot-ref _exn10718_ 'exception))) - (if (macro-module-not-found-exception? _e10720_) - (macro-module-not-found-exception-arguments _e10720_) + (lambda (_exn11135_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11135_)) + (let ((_e11137_ + (let () + (declare (not safe)) + (slot-ref _exn11135_ 'exception)))) + (if (macro-module-not-found-exception? _e11137_) + (macro-module-not-found-exception-arguments _e11137_) + (let ((__tmp12075 + (let ((__tmp12076 + (let () + (declare (not safe)) + (cons _e11137_ '())))) + (declare (not safe)) + (cons 'module-not-found-exception-arguments + __tmp12076)))) + (declare (not safe)) + (error '"not an instance" + 'module-not-found-exception? + __tmp12075)))) + (if (macro-module-not-found-exception? _exn11135_) + (macro-module-not-found-exception-arguments _exn11135_) + (let ((__tmp12073 + (let ((__tmp12074 + (let () + (declare (not safe)) + (cons _exn11135_ '())))) + (declare (not safe)) + (cons 'module-not-found-exception-arguments + __tmp12074)))) + (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - (cons 'module-not-found-exception-arguments - (cons _e10720_ '()))))) - (if (macro-module-not-found-exception? _exn10718_) - (macro-module-not-found-exception-arguments _exn10718_) - (error '"not an instance" - 'module-not-found-exception? - (cons 'module-not-found-exception-arguments - (cons _exn10718_ '()))))))) + __tmp12073)))))) (define module-not-found-exception-procedure - (lambda (_exn10712_) - (if (class-instance? RuntimeException::t _exn10712_) - (let ((_e10715_ (slot-ref _exn10712_ 'exception))) - (if (macro-module-not-found-exception? _e10715_) - (macro-module-not-found-exception-procedure _e10715_) + (lambda (_exn11129_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11129_)) + (let ((_e11132_ + (let () + (declare (not safe)) + (slot-ref _exn11129_ 'exception)))) + (if (macro-module-not-found-exception? _e11132_) + (macro-module-not-found-exception-procedure _e11132_) + (let ((__tmp12079 + (let ((__tmp12080 + (let () + (declare (not safe)) + (cons _e11132_ '())))) + (declare (not safe)) + (cons 'module-not-found-exception-procedure + __tmp12080)))) + (declare (not safe)) + (error '"not an instance" + 'module-not-found-exception? + __tmp12079)))) + (if (macro-module-not-found-exception? _exn11129_) + (macro-module-not-found-exception-procedure _exn11129_) + (let ((__tmp12077 + (let ((__tmp12078 + (let () + (declare (not safe)) + (cons _exn11129_ '())))) + (declare (not safe)) + (cons 'module-not-found-exception-procedure + __tmp12078)))) + (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - (cons 'module-not-found-exception-procedure - (cons _e10715_ '()))))) - (if (macro-module-not-found-exception? _exn10712_) - (macro-module-not-found-exception-procedure _exn10712_) - (error '"not an instance" - 'module-not-found-exception? - (cons 'module-not-found-exception-procedure - (cons _exn10712_ '()))))))) + __tmp12077)))))) (define multiple-c-return-exception? - (lambda (_exn10706_) - (if (class-instance? RuntimeException::t _exn10706_) - (let ((_e10709_ (slot-ref _exn10706_ 'exception))) - (macro-multiple-c-return-exception? _e10709_)) - (macro-multiple-c-return-exception? _exn10706_)))) + (lambda (_exn11123_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11123_)) + (let ((_e11126_ + (let () + (declare (not safe)) + (slot-ref _exn11123_ 'exception)))) + (macro-multiple-c-return-exception? _e11126_)) + (macro-multiple-c-return-exception? _exn11123_)))) (define no-such-file-or-directory-exception? - (lambda (_exn10702_) - (if (class-instance? RuntimeException::t _exn10702_) - (let ((_e10704_ (slot-ref _exn10702_ 'exception))) - (macro-no-such-file-or-directory-exception? _e10704_)) - (macro-no-such-file-or-directory-exception? _exn10702_)))) + (lambda (_exn11119_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11119_)) + (let ((_e11121_ + (let () + (declare (not safe)) + (slot-ref _exn11119_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e11121_)) + (macro-no-such-file-or-directory-exception? _exn11119_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn10698_) - (if (class-instance? RuntimeException::t _exn10698_) - (let ((_e10700_ (slot-ref _exn10698_ 'exception))) - (if (macro-no-such-file-or-directory-exception? _e10700_) + (lambda (_exn11115_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11115_)) + (let ((_e11117_ + (let () + (declare (not safe)) + (slot-ref _exn11115_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e11117_) (macro-no-such-file-or-directory-exception-arguments - _e10700_) + _e11117_) + (let ((__tmp12083 + (let ((__tmp12084 + (let () + (declare (not safe)) + (cons _e11117_ '())))) + (declare (not safe)) + (cons 'no-such-file-or-directory-exception-arguments + __tmp12084)))) + (declare (not safe)) + (error '"not an instance" + 'no-such-file-or-directory-exception? + __tmp12083)))) + (if (macro-no-such-file-or-directory-exception? _exn11115_) + (macro-no-such-file-or-directory-exception-arguments + _exn11115_) + (let ((__tmp12081 + (let ((__tmp12082 + (let () + (declare (not safe)) + (cons _exn11115_ '())))) + (declare (not safe)) + (cons 'no-such-file-or-directory-exception-arguments + __tmp12082)))) + (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - (cons 'no-such-file-or-directory-exception-arguments - (cons _e10700_ '()))))) - (if (macro-no-such-file-or-directory-exception? _exn10698_) - (macro-no-such-file-or-directory-exception-arguments - _exn10698_) - (error '"not an instance" - 'no-such-file-or-directory-exception? - (cons 'no-such-file-or-directory-exception-arguments - (cons _exn10698_ '()))))))) + __tmp12081)))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn10692_) - (if (class-instance? RuntimeException::t _exn10692_) - (let ((_e10695_ (slot-ref _exn10692_ 'exception))) - (if (macro-no-such-file-or-directory-exception? _e10695_) + (lambda (_exn11109_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11109_)) + (let ((_e11112_ + (let () + (declare (not safe)) + (slot-ref _exn11109_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e11112_) (macro-no-such-file-or-directory-exception-procedure - _e10695_) + _e11112_) + (let ((__tmp12087 + (let ((__tmp12088 + (let () + (declare (not safe)) + (cons _e11112_ '())))) + (declare (not safe)) + (cons 'no-such-file-or-directory-exception-procedure + __tmp12088)))) + (declare (not safe)) + (error '"not an instance" + 'no-such-file-or-directory-exception? + __tmp12087)))) + (if (macro-no-such-file-or-directory-exception? _exn11109_) + (macro-no-such-file-or-directory-exception-procedure + _exn11109_) + (let ((__tmp12085 + (let ((__tmp12086 + (let () + (declare (not safe)) + (cons _exn11109_ '())))) + (declare (not safe)) + (cons 'no-such-file-or-directory-exception-procedure + __tmp12086)))) + (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - (cons 'no-such-file-or-directory-exception-procedure - (cons _e10695_ '()))))) - (if (macro-no-such-file-or-directory-exception? _exn10692_) - (macro-no-such-file-or-directory-exception-procedure - _exn10692_) - (error '"not an instance" - 'no-such-file-or-directory-exception? - (cons 'no-such-file-or-directory-exception-procedure - (cons _exn10692_ '()))))))) + __tmp12085)))))) (define noncontinuable-exception? - (lambda (_exn10688_) - (if (class-instance? RuntimeException::t _exn10688_) - (let ((_e10690_ (slot-ref _exn10688_ 'exception))) - (macro-noncontinuable-exception? _e10690_)) - (macro-noncontinuable-exception? _exn10688_)))) + (lambda (_exn11105_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11105_)) + (let ((_e11107_ + (let () + (declare (not safe)) + (slot-ref _exn11105_ 'exception)))) + (macro-noncontinuable-exception? _e11107_)) + (macro-noncontinuable-exception? _exn11105_)))) (define noncontinuable-exception-reason - (lambda (_exn10682_) - (if (class-instance? RuntimeException::t _exn10682_) - (let ((_e10685_ (slot-ref _exn10682_ 'exception))) - (if (macro-noncontinuable-exception? _e10685_) - (macro-noncontinuable-exception-reason _e10685_) + (lambda (_exn11099_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11099_)) + (let ((_e11102_ + (let () + (declare (not safe)) + (slot-ref _exn11099_ 'exception)))) + (if (macro-noncontinuable-exception? _e11102_) + (macro-noncontinuable-exception-reason _e11102_) + (let ((__tmp12091 + (let ((__tmp12092 + (let () + (declare (not safe)) + (cons _e11102_ '())))) + (declare (not safe)) + (cons 'noncontinuable-exception-reason + __tmp12092)))) + (declare (not safe)) + (error '"not an instance" + 'noncontinuable-exception? + __tmp12091)))) + (if (macro-noncontinuable-exception? _exn11099_) + (macro-noncontinuable-exception-reason _exn11099_) + (let ((__tmp12089 + (let ((__tmp12090 + (let () + (declare (not safe)) + (cons _exn11099_ '())))) + (declare (not safe)) + (cons 'noncontinuable-exception-reason __tmp12090)))) + (declare (not safe)) (error '"not an instance" 'noncontinuable-exception? - (cons 'noncontinuable-exception-reason - (cons _e10685_ '()))))) - (if (macro-noncontinuable-exception? _exn10682_) - (macro-noncontinuable-exception-reason _exn10682_) - (error '"not an instance" - 'noncontinuable-exception? - (cons 'noncontinuable-exception-reason - (cons _exn10682_ '()))))))) + __tmp12089)))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn10678_) - (if (class-instance? RuntimeException::t _exn10678_) - (let ((_e10680_ (slot-ref _exn10678_ 'exception))) - (macro-nonempty-input-port-character-buffer-exception? _e10680_)) + (lambda (_exn11095_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11095_)) + (let ((_e11097_ + (let () + (declare (not safe)) + (slot-ref _exn11095_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e11097_)) (macro-nonempty-input-port-character-buffer-exception? - _exn10678_)))) + _exn11095_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn10674_) - (if (class-instance? RuntimeException::t _exn10674_) - (let ((_e10676_ (slot-ref _exn10674_ 'exception))) + (lambda (_exn11091_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11091_)) + (let ((_e11093_ + (let () + (declare (not safe)) + (slot-ref _exn11091_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e10676_) + _e11093_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e10676_) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _e10676_ '()))))) + _e11093_) + (let ((__tmp12095 + (let ((__tmp12096 + (let () + (declare (not safe)) + (cons _e11093_ '())))) + (declare (not safe)) + (cons 'nonempty-input-port-character-buffer-exception-arguments + __tmp12096)))) + (declare (not safe)) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? + __tmp12095)))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn10674_) + _exn11091_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn10674_) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _exn10674_ '()))))))) + _exn11091_) + (let ((__tmp12093 + (let ((__tmp12094 + (let () + (declare (not safe)) + (cons _exn11091_ '())))) + (declare (not safe)) + (cons 'nonempty-input-port-character-buffer-exception-arguments + __tmp12094)))) + (declare (not safe)) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? + __tmp12093)))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn10668_) - (if (class-instance? RuntimeException::t _exn10668_) - (let ((_e10671_ (slot-ref _exn10668_ 'exception))) + (lambda (_exn11085_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11085_)) + (let ((_e11088_ + (let () + (declare (not safe)) + (slot-ref _exn11085_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e10671_) + _e11088_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e10671_) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _e10671_ '()))))) + _e11088_) + (let ((__tmp12099 + (let ((__tmp12100 + (let () + (declare (not safe)) + (cons _e11088_ '())))) + (declare (not safe)) + (cons 'nonempty-input-port-character-buffer-exception-procedure + __tmp12100)))) + (declare (not safe)) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? + __tmp12099)))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn10668_) + _exn11085_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn10668_) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _exn10668_ '()))))))) + _exn11085_) + (let ((__tmp12097 + (let ((__tmp12098 + (let () + (declare (not safe)) + (cons _exn11085_ '())))) + (declare (not safe)) + (cons 'nonempty-input-port-character-buffer-exception-procedure + __tmp12098)))) + (declare (not safe)) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? + __tmp12097)))))) (define nonprocedure-operator-exception? - (lambda (_exn10664_) - (if (class-instance? RuntimeException::t _exn10664_) - (let ((_e10666_ (slot-ref _exn10664_ 'exception))) - (macro-nonprocedure-operator-exception? _e10666_)) - (macro-nonprocedure-operator-exception? _exn10664_)))) + (lambda (_exn11081_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11081_)) + (let ((_e11083_ + (let () + (declare (not safe)) + (slot-ref _exn11081_ 'exception)))) + (macro-nonprocedure-operator-exception? _e11083_)) + (macro-nonprocedure-operator-exception? _exn11081_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn10660_) - (if (class-instance? RuntimeException::t _exn10660_) - (let ((_e10662_ (slot-ref _exn10660_ 'exception))) - (if (macro-nonprocedure-operator-exception? _e10662_) - (macro-nonprocedure-operator-exception-arguments _e10662_) + (lambda (_exn11077_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11077_)) + (let ((_e11079_ + (let () + (declare (not safe)) + (slot-ref _exn11077_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11079_) + (macro-nonprocedure-operator-exception-arguments _e11079_) + (let ((__tmp12103 + (let ((__tmp12104 + (let () + (declare (not safe)) + (cons _e11079_ '())))) + (declare (not safe)) + (cons 'nonprocedure-operator-exception-arguments + __tmp12104)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp12103)))) + (if (macro-nonprocedure-operator-exception? _exn11077_) + (macro-nonprocedure-operator-exception-arguments _exn11077_) + (let ((__tmp12101 + (let ((__tmp12102 + (let () + (declare (not safe)) + (cons _exn11077_ '())))) + (declare (not safe)) + (cons 'nonprocedure-operator-exception-arguments + __tmp12102)))) + (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - (cons 'nonprocedure-operator-exception-arguments - (cons _e10662_ '()))))) - (if (macro-nonprocedure-operator-exception? _exn10660_) - (macro-nonprocedure-operator-exception-arguments _exn10660_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (cons 'nonprocedure-operator-exception-arguments - (cons _exn10660_ '()))))))) + __tmp12101)))))) (define nonprocedure-operator-exception-code - (lambda (_exn10656_) - (if (class-instance? RuntimeException::t _exn10656_) - (let ((_e10658_ (slot-ref _exn10656_ 'exception))) - (if (macro-nonprocedure-operator-exception? _e10658_) - (macro-nonprocedure-operator-exception-code _e10658_) + (lambda (_exn11073_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11073_)) + (let ((_e11075_ + (let () + (declare (not safe)) + (slot-ref _exn11073_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11075_) + (macro-nonprocedure-operator-exception-code _e11075_) + (let ((__tmp12107 + (let ((__tmp12108 + (let () + (declare (not safe)) + (cons _e11075_ '())))) + (declare (not safe)) + (cons 'nonprocedure-operator-exception-code + __tmp12108)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp12107)))) + (if (macro-nonprocedure-operator-exception? _exn11073_) + (macro-nonprocedure-operator-exception-code _exn11073_) + (let ((__tmp12105 + (let ((__tmp12106 + (let () + (declare (not safe)) + (cons _exn11073_ '())))) + (declare (not safe)) + (cons 'nonprocedure-operator-exception-code + __tmp12106)))) + (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - (cons 'nonprocedure-operator-exception-code - (cons _e10658_ '()))))) - (if (macro-nonprocedure-operator-exception? _exn10656_) - (macro-nonprocedure-operator-exception-code _exn10656_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (cons 'nonprocedure-operator-exception-code - (cons _exn10656_ '()))))))) + __tmp12105)))))) (define nonprocedure-operator-exception-operator - (lambda (_exn10652_) - (if (class-instance? RuntimeException::t _exn10652_) - (let ((_e10654_ (slot-ref _exn10652_ 'exception))) - (if (macro-nonprocedure-operator-exception? _e10654_) - (macro-nonprocedure-operator-exception-operator _e10654_) + (lambda (_exn11069_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11069_)) + (let ((_e11071_ + (let () + (declare (not safe)) + (slot-ref _exn11069_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11071_) + (macro-nonprocedure-operator-exception-operator _e11071_) + (let ((__tmp12111 + (let ((__tmp12112 + (let () + (declare (not safe)) + (cons _e11071_ '())))) + (declare (not safe)) + (cons 'nonprocedure-operator-exception-operator + __tmp12112)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp12111)))) + (if (macro-nonprocedure-operator-exception? _exn11069_) + (macro-nonprocedure-operator-exception-operator _exn11069_) + (let ((__tmp12109 + (let ((__tmp12110 + (let () + (declare (not safe)) + (cons _exn11069_ '())))) + (declare (not safe)) + (cons 'nonprocedure-operator-exception-operator + __tmp12110)))) + (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - (cons 'nonprocedure-operator-exception-operator - (cons _e10654_ '()))))) - (if (macro-nonprocedure-operator-exception? _exn10652_) - (macro-nonprocedure-operator-exception-operator _exn10652_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (cons 'nonprocedure-operator-exception-operator - (cons _exn10652_ '()))))))) + __tmp12109)))))) (define nonprocedure-operator-exception-rte - (lambda (_exn10646_) - (if (class-instance? RuntimeException::t _exn10646_) - (let ((_e10649_ (slot-ref _exn10646_ 'exception))) - (if (macro-nonprocedure-operator-exception? _e10649_) - (macro-nonprocedure-operator-exception-rte _e10649_) + (lambda (_exn11063_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11063_)) + (let ((_e11066_ + (let () + (declare (not safe)) + (slot-ref _exn11063_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11066_) + (macro-nonprocedure-operator-exception-rte _e11066_) + (let ((__tmp12115 + (let ((__tmp12116 + (let () + (declare (not safe)) + (cons _e11066_ '())))) + (declare (not safe)) + (cons 'nonprocedure-operator-exception-rte + __tmp12116)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp12115)))) + (if (macro-nonprocedure-operator-exception? _exn11063_) + (macro-nonprocedure-operator-exception-rte _exn11063_) + (let ((__tmp12113 + (let ((__tmp12114 + (let () + (declare (not safe)) + (cons _exn11063_ '())))) + (declare (not safe)) + (cons 'nonprocedure-operator-exception-rte + __tmp12114)))) + (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - (cons 'nonprocedure-operator-exception-rte - (cons _e10649_ '()))))) - (if (macro-nonprocedure-operator-exception? _exn10646_) - (macro-nonprocedure-operator-exception-rte _exn10646_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (cons 'nonprocedure-operator-exception-rte - (cons _exn10646_ '()))))))) + __tmp12113)))))) (define not-in-compilation-context-exception? - (lambda (_exn10642_) - (if (class-instance? RuntimeException::t _exn10642_) - (let ((_e10644_ (slot-ref _exn10642_ 'exception))) - (macro-not-in-compilation-context-exception? _e10644_)) - (macro-not-in-compilation-context-exception? _exn10642_)))) + (lambda (_exn11059_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11059_)) + (let ((_e11061_ + (let () + (declare (not safe)) + (slot-ref _exn11059_ 'exception)))) + (macro-not-in-compilation-context-exception? _e11061_)) + (macro-not-in-compilation-context-exception? _exn11059_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn10638_) - (if (class-instance? RuntimeException::t _exn10638_) - (let ((_e10640_ (slot-ref _exn10638_ 'exception))) - (if (macro-not-in-compilation-context-exception? _e10640_) + (lambda (_exn11055_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11055_)) + (let ((_e11057_ + (let () + (declare (not safe)) + (slot-ref _exn11055_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e11057_) (macro-not-in-compilation-context-exception-arguments - _e10640_) + _e11057_) + (let ((__tmp12119 + (let ((__tmp12120 + (let () + (declare (not safe)) + (cons _e11057_ '())))) + (declare (not safe)) + (cons 'not-in-compilation-context-exception-arguments + __tmp12120)))) + (declare (not safe)) + (error '"not an instance" + 'not-in-compilation-context-exception? + __tmp12119)))) + (if (macro-not-in-compilation-context-exception? _exn11055_) + (macro-not-in-compilation-context-exception-arguments + _exn11055_) + (let ((__tmp12117 + (let ((__tmp12118 + (let () + (declare (not safe)) + (cons _exn11055_ '())))) + (declare (not safe)) + (cons 'not-in-compilation-context-exception-arguments + __tmp12118)))) + (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - (cons 'not-in-compilation-context-exception-arguments - (cons _e10640_ '()))))) - (if (macro-not-in-compilation-context-exception? _exn10638_) - (macro-not-in-compilation-context-exception-arguments - _exn10638_) - (error '"not an instance" - 'not-in-compilation-context-exception? - (cons 'not-in-compilation-context-exception-arguments - (cons _exn10638_ '()))))))) + __tmp12117)))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn10632_) - (if (class-instance? RuntimeException::t _exn10632_) - (let ((_e10635_ (slot-ref _exn10632_ 'exception))) - (if (macro-not-in-compilation-context-exception? _e10635_) + (lambda (_exn11049_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11049_)) + (let ((_e11052_ + (let () + (declare (not safe)) + (slot-ref _exn11049_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e11052_) (macro-not-in-compilation-context-exception-procedure - _e10635_) + _e11052_) + (let ((__tmp12123 + (let ((__tmp12124 + (let () + (declare (not safe)) + (cons _e11052_ '())))) + (declare (not safe)) + (cons 'not-in-compilation-context-exception-procedure + __tmp12124)))) + (declare (not safe)) + (error '"not an instance" + 'not-in-compilation-context-exception? + __tmp12123)))) + (if (macro-not-in-compilation-context-exception? _exn11049_) + (macro-not-in-compilation-context-exception-procedure + _exn11049_) + (let ((__tmp12121 + (let ((__tmp12122 + (let () + (declare (not safe)) + (cons _exn11049_ '())))) + (declare (not safe)) + (cons 'not-in-compilation-context-exception-procedure + __tmp12122)))) + (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - (cons 'not-in-compilation-context-exception-procedure - (cons _e10635_ '()))))) - (if (macro-not-in-compilation-context-exception? _exn10632_) - (macro-not-in-compilation-context-exception-procedure - _exn10632_) - (error '"not an instance" - 'not-in-compilation-context-exception? - (cons 'not-in-compilation-context-exception-procedure - (cons _exn10632_ '()))))))) + __tmp12121)))))) (define number-of-arguments-limit-exception? - (lambda (_exn10628_) - (if (class-instance? RuntimeException::t _exn10628_) - (let ((_e10630_ (slot-ref _exn10628_ 'exception))) - (macro-number-of-arguments-limit-exception? _e10630_)) - (macro-number-of-arguments-limit-exception? _exn10628_)))) + (lambda (_exn11045_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11045_)) + (let ((_e11047_ + (let () + (declare (not safe)) + (slot-ref _exn11045_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e11047_)) + (macro-number-of-arguments-limit-exception? _exn11045_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn10624_) - (if (class-instance? RuntimeException::t _exn10624_) - (let ((_e10626_ (slot-ref _exn10624_ 'exception))) - (if (macro-number-of-arguments-limit-exception? _e10626_) + (lambda (_exn11041_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11041_)) + (let ((_e11043_ + (let () + (declare (not safe)) + (slot-ref _exn11041_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e11043_) (macro-number-of-arguments-limit-exception-arguments - _e10626_) + _e11043_) + (let ((__tmp12127 + (let ((__tmp12128 + (let () + (declare (not safe)) + (cons _e11043_ '())))) + (declare (not safe)) + (cons 'number-of-arguments-limit-exception-arguments + __tmp12128)))) + (declare (not safe)) + (error '"not an instance" + 'number-of-arguments-limit-exception? + __tmp12127)))) + (if (macro-number-of-arguments-limit-exception? _exn11041_) + (macro-number-of-arguments-limit-exception-arguments + _exn11041_) + (let ((__tmp12125 + (let ((__tmp12126 + (let () + (declare (not safe)) + (cons _exn11041_ '())))) + (declare (not safe)) + (cons 'number-of-arguments-limit-exception-arguments + __tmp12126)))) + (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - (cons 'number-of-arguments-limit-exception-arguments - (cons _e10626_ '()))))) - (if (macro-number-of-arguments-limit-exception? _exn10624_) - (macro-number-of-arguments-limit-exception-arguments - _exn10624_) - (error '"not an instance" - 'number-of-arguments-limit-exception? - (cons 'number-of-arguments-limit-exception-arguments - (cons _exn10624_ '()))))))) + __tmp12125)))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn10618_) - (if (class-instance? RuntimeException::t _exn10618_) - (let ((_e10621_ (slot-ref _exn10618_ 'exception))) - (if (macro-number-of-arguments-limit-exception? _e10621_) + (lambda (_exn11035_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11035_)) + (let ((_e11038_ + (let () + (declare (not safe)) + (slot-ref _exn11035_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e11038_) (macro-number-of-arguments-limit-exception-procedure - _e10621_) + _e11038_) + (let ((__tmp12131 + (let ((__tmp12132 + (let () + (declare (not safe)) + (cons _e11038_ '())))) + (declare (not safe)) + (cons 'number-of-arguments-limit-exception-procedure + __tmp12132)))) + (declare (not safe)) + (error '"not an instance" + 'number-of-arguments-limit-exception? + __tmp12131)))) + (if (macro-number-of-arguments-limit-exception? _exn11035_) + (macro-number-of-arguments-limit-exception-procedure + _exn11035_) + (let ((__tmp12129 + (let ((__tmp12130 + (let () + (declare (not safe)) + (cons _exn11035_ '())))) + (declare (not safe)) + (cons 'number-of-arguments-limit-exception-procedure + __tmp12130)))) + (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - (cons 'number-of-arguments-limit-exception-procedure - (cons _e10621_ '()))))) - (if (macro-number-of-arguments-limit-exception? _exn10618_) - (macro-number-of-arguments-limit-exception-procedure - _exn10618_) - (error '"not an instance" - 'number-of-arguments-limit-exception? - (cons 'number-of-arguments-limit-exception-procedure - (cons _exn10618_ '()))))))) + __tmp12129)))))) (define os-exception? - (lambda (_exn10614_) - (if (class-instance? RuntimeException::t _exn10614_) - (let ((_e10616_ (slot-ref _exn10614_ 'exception))) - (macro-os-exception? _e10616_)) - (macro-os-exception? _exn10614_)))) + (lambda (_exn11031_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11031_)) + (let ((_e11033_ + (let () + (declare (not safe)) + (slot-ref _exn11031_ 'exception)))) + (macro-os-exception? _e11033_)) + (macro-os-exception? _exn11031_)))) (define os-exception-arguments - (lambda (_exn10610_) - (if (class-instance? RuntimeException::t _exn10610_) - (let ((_e10612_ (slot-ref _exn10610_ 'exception))) - (if (macro-os-exception? _e10612_) - (macro-os-exception-arguments _e10612_) - (error '"not an instance" - 'os-exception? - (cons 'os-exception-arguments (cons _e10612_ '()))))) - (if (macro-os-exception? _exn10610_) - (macro-os-exception-arguments _exn10610_) - (error '"not an instance" - 'os-exception? - (cons 'os-exception-arguments - (cons _exn10610_ '()))))))) + (lambda (_exn11027_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11027_)) + (let ((_e11029_ + (let () + (declare (not safe)) + (slot-ref _exn11027_ 'exception)))) + (if (macro-os-exception? _e11029_) + (macro-os-exception-arguments _e11029_) + (let ((__tmp12135 + (let ((__tmp12136 + (let () + (declare (not safe)) + (cons _e11029_ '())))) + (declare (not safe)) + (cons 'os-exception-arguments __tmp12136)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp12135)))) + (if (macro-os-exception? _exn11027_) + (macro-os-exception-arguments _exn11027_) + (let ((__tmp12133 + (let ((__tmp12134 + (let () + (declare (not safe)) + (cons _exn11027_ '())))) + (declare (not safe)) + (cons 'os-exception-arguments __tmp12134)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp12133)))))) (define os-exception-code - (lambda (_exn10606_) - (if (class-instance? RuntimeException::t _exn10606_) - (let ((_e10608_ (slot-ref _exn10606_ 'exception))) - (if (macro-os-exception? _e10608_) - (macro-os-exception-code _e10608_) - (error '"not an instance" - 'os-exception? - (cons 'os-exception-code (cons _e10608_ '()))))) - (if (macro-os-exception? _exn10606_) - (macro-os-exception-code _exn10606_) - (error '"not an instance" - 'os-exception? - (cons 'os-exception-code (cons _exn10606_ '()))))))) + (lambda (_exn11023_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11023_)) + (let ((_e11025_ + (let () + (declare (not safe)) + (slot-ref _exn11023_ 'exception)))) + (if (macro-os-exception? _e11025_) + (macro-os-exception-code _e11025_) + (let ((__tmp12139 + (let ((__tmp12140 + (let () + (declare (not safe)) + (cons _e11025_ '())))) + (declare (not safe)) + (cons 'os-exception-code __tmp12140)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp12139)))) + (if (macro-os-exception? _exn11023_) + (macro-os-exception-code _exn11023_) + (let ((__tmp12137 + (let ((__tmp12138 + (let () + (declare (not safe)) + (cons _exn11023_ '())))) + (declare (not safe)) + (cons 'os-exception-code __tmp12138)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp12137)))))) (define os-exception-message - (lambda (_exn10602_) - (if (class-instance? RuntimeException::t _exn10602_) - (let ((_e10604_ (slot-ref _exn10602_ 'exception))) - (if (macro-os-exception? _e10604_) - (macro-os-exception-message _e10604_) - (error '"not an instance" - 'os-exception? - (cons 'os-exception-message (cons _e10604_ '()))))) - (if (macro-os-exception? _exn10602_) - (macro-os-exception-message _exn10602_) - (error '"not an instance" - 'os-exception? - (cons 'os-exception-message (cons _exn10602_ '()))))))) + (lambda (_exn11019_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11019_)) + (let ((_e11021_ + (let () + (declare (not safe)) + (slot-ref _exn11019_ 'exception)))) + (if (macro-os-exception? _e11021_) + (macro-os-exception-message _e11021_) + (let ((__tmp12143 + (let ((__tmp12144 + (let () + (declare (not safe)) + (cons _e11021_ '())))) + (declare (not safe)) + (cons 'os-exception-message __tmp12144)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp12143)))) + (if (macro-os-exception? _exn11019_) + (macro-os-exception-message _exn11019_) + (let ((__tmp12141 + (let ((__tmp12142 + (let () + (declare (not safe)) + (cons _exn11019_ '())))) + (declare (not safe)) + (cons 'os-exception-message __tmp12142)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp12141)))))) (define os-exception-procedure - (lambda (_exn10596_) - (if (class-instance? RuntimeException::t _exn10596_) - (let ((_e10599_ (slot-ref _exn10596_ 'exception))) - (if (macro-os-exception? _e10599_) - (macro-os-exception-procedure _e10599_) - (error '"not an instance" - 'os-exception? - (cons 'os-exception-procedure (cons _e10599_ '()))))) - (if (macro-os-exception? _exn10596_) - (macro-os-exception-procedure _exn10596_) - (error '"not an instance" - 'os-exception? - (cons 'os-exception-procedure - (cons _exn10596_ '()))))))) + (lambda (_exn11013_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11013_)) + (let ((_e11016_ + (let () + (declare (not safe)) + (slot-ref _exn11013_ 'exception)))) + (if (macro-os-exception? _e11016_) + (macro-os-exception-procedure _e11016_) + (let ((__tmp12147 + (let ((__tmp12148 + (let () + (declare (not safe)) + (cons _e11016_ '())))) + (declare (not safe)) + (cons 'os-exception-procedure __tmp12148)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp12147)))) + (if (macro-os-exception? _exn11013_) + (macro-os-exception-procedure _exn11013_) + (let ((__tmp12145 + (let ((__tmp12146 + (let () + (declare (not safe)) + (cons _exn11013_ '())))) + (declare (not safe)) + (cons 'os-exception-procedure __tmp12146)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp12145)))))) (define permission-denied-exception? - (lambda (_exn10592_) - (if (class-instance? RuntimeException::t _exn10592_) - (let ((_e10594_ (slot-ref _exn10592_ 'exception))) - (macro-permission-denied-exception? _e10594_)) - (macro-permission-denied-exception? _exn10592_)))) + (lambda (_exn11009_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11009_)) + (let ((_e11011_ + (let () + (declare (not safe)) + (slot-ref _exn11009_ 'exception)))) + (macro-permission-denied-exception? _e11011_)) + (macro-permission-denied-exception? _exn11009_)))) (define permission-denied-exception-arguments - (lambda (_exn10588_) - (if (class-instance? RuntimeException::t _exn10588_) - (let ((_e10590_ (slot-ref _exn10588_ 'exception))) - (if (macro-permission-denied-exception? _e10590_) - (macro-permission-denied-exception-arguments _e10590_) + (lambda (_exn11005_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn11005_)) + (let ((_e11007_ + (let () + (declare (not safe)) + (slot-ref _exn11005_ 'exception)))) + (if (macro-permission-denied-exception? _e11007_) + (macro-permission-denied-exception-arguments _e11007_) + (let ((__tmp12151 + (let ((__tmp12152 + (let () + (declare (not safe)) + (cons _e11007_ '())))) + (declare (not safe)) + (cons 'permission-denied-exception-arguments + __tmp12152)))) + (declare (not safe)) + (error '"not an instance" + 'permission-denied-exception? + __tmp12151)))) + (if (macro-permission-denied-exception? _exn11005_) + (macro-permission-denied-exception-arguments _exn11005_) + (let ((__tmp12149 + (let ((__tmp12150 + (let () + (declare (not safe)) + (cons _exn11005_ '())))) + (declare (not safe)) + (cons 'permission-denied-exception-arguments + __tmp12150)))) + (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - (cons 'permission-denied-exception-arguments - (cons _e10590_ '()))))) - (if (macro-permission-denied-exception? _exn10588_) - (macro-permission-denied-exception-arguments _exn10588_) - (error '"not an instance" - 'permission-denied-exception? - (cons 'permission-denied-exception-arguments - (cons _exn10588_ '()))))))) + __tmp12149)))))) (define permission-denied-exception-procedure - (lambda (_exn10582_) - (if (class-instance? RuntimeException::t _exn10582_) - (let ((_e10585_ (slot-ref _exn10582_ 'exception))) - (if (macro-permission-denied-exception? _e10585_) - (macro-permission-denied-exception-procedure _e10585_) + (lambda (_exn10999_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10999_)) + (let ((_e11002_ + (let () + (declare (not safe)) + (slot-ref _exn10999_ 'exception)))) + (if (macro-permission-denied-exception? _e11002_) + (macro-permission-denied-exception-procedure _e11002_) + (let ((__tmp12155 + (let ((__tmp12156 + (let () + (declare (not safe)) + (cons _e11002_ '())))) + (declare (not safe)) + (cons 'permission-denied-exception-procedure + __tmp12156)))) + (declare (not safe)) + (error '"not an instance" + 'permission-denied-exception? + __tmp12155)))) + (if (macro-permission-denied-exception? _exn10999_) + (macro-permission-denied-exception-procedure _exn10999_) + (let ((__tmp12153 + (let ((__tmp12154 + (let () + (declare (not safe)) + (cons _exn10999_ '())))) + (declare (not safe)) + (cons 'permission-denied-exception-procedure + __tmp12154)))) + (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - (cons 'permission-denied-exception-procedure - (cons _e10585_ '()))))) - (if (macro-permission-denied-exception? _exn10582_) - (macro-permission-denied-exception-procedure _exn10582_) - (error '"not an instance" - 'permission-denied-exception? - (cons 'permission-denied-exception-procedure - (cons _exn10582_ '()))))))) + __tmp12153)))))) (define range-exception? - (lambda (_exn10578_) - (if (class-instance? RuntimeException::t _exn10578_) - (let ((_e10580_ (slot-ref _exn10578_ 'exception))) - (macro-range-exception? _e10580_)) - (macro-range-exception? _exn10578_)))) + (lambda (_exn10995_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10995_)) + (let ((_e10997_ + (let () + (declare (not safe)) + (slot-ref _exn10995_ 'exception)))) + (macro-range-exception? _e10997_)) + (macro-range-exception? _exn10995_)))) (define range-exception-arg-id - (lambda (_exn10574_) - (if (class-instance? RuntimeException::t _exn10574_) - (let ((_e10576_ (slot-ref _exn10574_ 'exception))) - (if (macro-range-exception? _e10576_) - (macro-range-exception-arg-id _e10576_) - (error '"not an instance" - 'range-exception? - (cons 'range-exception-arg-id (cons _e10576_ '()))))) - (if (macro-range-exception? _exn10574_) - (macro-range-exception-arg-id _exn10574_) - (error '"not an instance" - 'range-exception? - (cons 'range-exception-arg-id - (cons _exn10574_ '()))))))) + (lambda (_exn10991_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10991_)) + (let ((_e10993_ + (let () + (declare (not safe)) + (slot-ref _exn10991_ 'exception)))) + (if (macro-range-exception? _e10993_) + (macro-range-exception-arg-id _e10993_) + (let ((__tmp12159 + (let ((__tmp12160 + (let () + (declare (not safe)) + (cons _e10993_ '())))) + (declare (not safe)) + (cons 'range-exception-arg-id __tmp12160)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp12159)))) + (if (macro-range-exception? _exn10991_) + (macro-range-exception-arg-id _exn10991_) + (let ((__tmp12157 + (let ((__tmp12158 + (let () + (declare (not safe)) + (cons _exn10991_ '())))) + (declare (not safe)) + (cons 'range-exception-arg-id __tmp12158)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp12157)))))) (define range-exception-arguments - (lambda (_exn10570_) - (if (class-instance? RuntimeException::t _exn10570_) - (let ((_e10572_ (slot-ref _exn10570_ 'exception))) - (if (macro-range-exception? _e10572_) - (macro-range-exception-arguments _e10572_) - (error '"not an instance" - 'range-exception? - (cons 'range-exception-arguments - (cons _e10572_ '()))))) - (if (macro-range-exception? _exn10570_) - (macro-range-exception-arguments _exn10570_) - (error '"not an instance" - 'range-exception? - (cons 'range-exception-arguments - (cons _exn10570_ '()))))))) + (lambda (_exn10987_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10987_)) + (let ((_e10989_ + (let () + (declare (not safe)) + (slot-ref _exn10987_ 'exception)))) + (if (macro-range-exception? _e10989_) + (macro-range-exception-arguments _e10989_) + (let ((__tmp12163 + (let ((__tmp12164 + (let () + (declare (not safe)) + (cons _e10989_ '())))) + (declare (not safe)) + (cons 'range-exception-arguments __tmp12164)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp12163)))) + (if (macro-range-exception? _exn10987_) + (macro-range-exception-arguments _exn10987_) + (let ((__tmp12161 + (let ((__tmp12162 + (let () + (declare (not safe)) + (cons _exn10987_ '())))) + (declare (not safe)) + (cons 'range-exception-arguments __tmp12162)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp12161)))))) (define range-exception-procedure - (lambda (_exn10564_) - (if (class-instance? RuntimeException::t _exn10564_) - (let ((_e10567_ (slot-ref _exn10564_ 'exception))) - (if (macro-range-exception? _e10567_) - (macro-range-exception-procedure _e10567_) - (error '"not an instance" - 'range-exception? - (cons 'range-exception-procedure - (cons _e10567_ '()))))) - (if (macro-range-exception? _exn10564_) - (macro-range-exception-procedure _exn10564_) - (error '"not an instance" - 'range-exception? - (cons 'range-exception-procedure - (cons _exn10564_ '()))))))) + (lambda (_exn10981_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10981_)) + (let ((_e10984_ + (let () + (declare (not safe)) + (slot-ref _exn10981_ 'exception)))) + (if (macro-range-exception? _e10984_) + (macro-range-exception-procedure _e10984_) + (let ((__tmp12167 + (let ((__tmp12168 + (let () + (declare (not safe)) + (cons _e10984_ '())))) + (declare (not safe)) + (cons 'range-exception-procedure __tmp12168)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp12167)))) + (if (macro-range-exception? _exn10981_) + (macro-range-exception-procedure _exn10981_) + (let ((__tmp12165 + (let ((__tmp12166 + (let () + (declare (not safe)) + (cons _exn10981_ '())))) + (declare (not safe)) + (cons 'range-exception-procedure __tmp12166)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp12165)))))) (define rpc-remote-error-exception? - (lambda (_exn10560_) - (if (class-instance? RuntimeException::t _exn10560_) - (let ((_e10562_ (slot-ref _exn10560_ 'exception))) - (macro-rpc-remote-error-exception? _e10562_)) - (macro-rpc-remote-error-exception? _exn10560_)))) + (lambda (_exn10977_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10977_)) + (let ((_e10979_ + (let () + (declare (not safe)) + (slot-ref _exn10977_ 'exception)))) + (macro-rpc-remote-error-exception? _e10979_)) + (macro-rpc-remote-error-exception? _exn10977_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn10556_) - (if (class-instance? RuntimeException::t _exn10556_) - (let ((_e10558_ (slot-ref _exn10556_ 'exception))) - (if (macro-rpc-remote-error-exception? _e10558_) - (macro-rpc-remote-error-exception-arguments _e10558_) + (lambda (_exn10973_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10973_)) + (let ((_e10975_ + (let () + (declare (not safe)) + (slot-ref _exn10973_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e10975_) + (macro-rpc-remote-error-exception-arguments _e10975_) + (let ((__tmp12171 + (let ((__tmp12172 + (let () + (declare (not safe)) + (cons _e10975_ '())))) + (declare (not safe)) + (cons 'rpc-remote-error-exception-arguments + __tmp12172)))) + (declare (not safe)) + (error '"not an instance" + 'rpc-remote-error-exception? + __tmp12171)))) + (if (macro-rpc-remote-error-exception? _exn10973_) + (macro-rpc-remote-error-exception-arguments _exn10973_) + (let ((__tmp12169 + (let ((__tmp12170 + (let () + (declare (not safe)) + (cons _exn10973_ '())))) + (declare (not safe)) + (cons 'rpc-remote-error-exception-arguments + __tmp12170)))) + (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - (cons 'rpc-remote-error-exception-arguments - (cons _e10558_ '()))))) - (if (macro-rpc-remote-error-exception? _exn10556_) - (macro-rpc-remote-error-exception-arguments _exn10556_) - (error '"not an instance" - 'rpc-remote-error-exception? - (cons 'rpc-remote-error-exception-arguments - (cons _exn10556_ '()))))))) + __tmp12169)))))) (define rpc-remote-error-exception-message - (lambda (_exn10552_) - (if (class-instance? RuntimeException::t _exn10552_) - (let ((_e10554_ (slot-ref _exn10552_ 'exception))) - (if (macro-rpc-remote-error-exception? _e10554_) - (macro-rpc-remote-error-exception-message _e10554_) + (lambda (_exn10969_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10969_)) + (let ((_e10971_ + (let () + (declare (not safe)) + (slot-ref _exn10969_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e10971_) + (macro-rpc-remote-error-exception-message _e10971_) + (let ((__tmp12175 + (let ((__tmp12176 + (let () + (declare (not safe)) + (cons _e10971_ '())))) + (declare (not safe)) + (cons 'rpc-remote-error-exception-message + __tmp12176)))) + (declare (not safe)) + (error '"not an instance" + 'rpc-remote-error-exception? + __tmp12175)))) + (if (macro-rpc-remote-error-exception? _exn10969_) + (macro-rpc-remote-error-exception-message _exn10969_) + (let ((__tmp12173 + (let ((__tmp12174 + (let () + (declare (not safe)) + (cons _exn10969_ '())))) + (declare (not safe)) + (cons 'rpc-remote-error-exception-message + __tmp12174)))) + (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - (cons 'rpc-remote-error-exception-message - (cons _e10554_ '()))))) - (if (macro-rpc-remote-error-exception? _exn10552_) - (macro-rpc-remote-error-exception-message _exn10552_) - (error '"not an instance" - 'rpc-remote-error-exception? - (cons 'rpc-remote-error-exception-message - (cons _exn10552_ '()))))))) + __tmp12173)))))) (define rpc-remote-error-exception-procedure - (lambda (_exn10546_) - (if (class-instance? RuntimeException::t _exn10546_) - (let ((_e10549_ (slot-ref _exn10546_ 'exception))) - (if (macro-rpc-remote-error-exception? _e10549_) - (macro-rpc-remote-error-exception-procedure _e10549_) + (lambda (_exn10963_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10963_)) + (let ((_e10966_ + (let () + (declare (not safe)) + (slot-ref _exn10963_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e10966_) + (macro-rpc-remote-error-exception-procedure _e10966_) + (let ((__tmp12179 + (let ((__tmp12180 + (let () + (declare (not safe)) + (cons _e10966_ '())))) + (declare (not safe)) + (cons 'rpc-remote-error-exception-procedure + __tmp12180)))) + (declare (not safe)) + (error '"not an instance" + 'rpc-remote-error-exception? + __tmp12179)))) + (if (macro-rpc-remote-error-exception? _exn10963_) + (macro-rpc-remote-error-exception-procedure _exn10963_) + (let ((__tmp12177 + (let ((__tmp12178 + (let () + (declare (not safe)) + (cons _exn10963_ '())))) + (declare (not safe)) + (cons 'rpc-remote-error-exception-procedure + __tmp12178)))) + (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - (cons 'rpc-remote-error-exception-procedure - (cons _e10549_ '()))))) - (if (macro-rpc-remote-error-exception? _exn10546_) - (macro-rpc-remote-error-exception-procedure _exn10546_) - (error '"not an instance" - 'rpc-remote-error-exception? - (cons 'rpc-remote-error-exception-procedure - (cons _exn10546_ '()))))))) + __tmp12177)))))) (define scheduler-exception? - (lambda (_exn10542_) - (if (class-instance? RuntimeException::t _exn10542_) - (let ((_e10544_ (slot-ref _exn10542_ 'exception))) - (macro-scheduler-exception? _e10544_)) - (macro-scheduler-exception? _exn10542_)))) + (lambda (_exn10959_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10959_)) + (let ((_e10961_ + (let () + (declare (not safe)) + (slot-ref _exn10959_ 'exception)))) + (macro-scheduler-exception? _e10961_)) + (macro-scheduler-exception? _exn10959_)))) (define scheduler-exception-reason - (lambda (_exn10536_) - (if (class-instance? RuntimeException::t _exn10536_) - (let ((_e10539_ (slot-ref _exn10536_ 'exception))) - (if (macro-scheduler-exception? _e10539_) - (macro-scheduler-exception-reason _e10539_) + (lambda (_exn10953_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10953_)) + (let ((_e10956_ + (let () + (declare (not safe)) + (slot-ref _exn10953_ 'exception)))) + (if (macro-scheduler-exception? _e10956_) + (macro-scheduler-exception-reason _e10956_) + (let ((__tmp12183 + (let ((__tmp12184 + (let () + (declare (not safe)) + (cons _e10956_ '())))) + (declare (not safe)) + (cons 'scheduler-exception-reason __tmp12184)))) + (declare (not safe)) + (error '"not an instance" + 'scheduler-exception? + __tmp12183)))) + (if (macro-scheduler-exception? _exn10953_) + (macro-scheduler-exception-reason _exn10953_) + (let ((__tmp12181 + (let ((__tmp12182 + (let () + (declare (not safe)) + (cons _exn10953_ '())))) + (declare (not safe)) + (cons 'scheduler-exception-reason __tmp12182)))) + (declare (not safe)) (error '"not an instance" 'scheduler-exception? - (cons 'scheduler-exception-reason - (cons _e10539_ '()))))) - (if (macro-scheduler-exception? _exn10536_) - (macro-scheduler-exception-reason _exn10536_) - (error '"not an instance" - 'scheduler-exception? - (cons 'scheduler-exception-reason - (cons _exn10536_ '()))))))) + __tmp12181)))))) (define sfun-conversion-exception? - (lambda (_exn10532_) - (if (class-instance? RuntimeException::t _exn10532_) - (let ((_e10534_ (slot-ref _exn10532_ 'exception))) - (macro-sfun-conversion-exception? _e10534_)) - (macro-sfun-conversion-exception? _exn10532_)))) + (lambda (_exn10949_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10949_)) + (let ((_e10951_ + (let () + (declare (not safe)) + (slot-ref _exn10949_ 'exception)))) + (macro-sfun-conversion-exception? _e10951_)) + (macro-sfun-conversion-exception? _exn10949_)))) (define sfun-conversion-exception-arguments - (lambda (_exn10528_) - (if (class-instance? RuntimeException::t _exn10528_) - (let ((_e10530_ (slot-ref _exn10528_ 'exception))) - (if (macro-sfun-conversion-exception? _e10530_) - (macro-sfun-conversion-exception-arguments _e10530_) + (lambda (_exn10945_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10945_)) + (let ((_e10947_ + (let () + (declare (not safe)) + (slot-ref _exn10945_ 'exception)))) + (if (macro-sfun-conversion-exception? _e10947_) + (macro-sfun-conversion-exception-arguments _e10947_) + (let ((__tmp12187 + (let ((__tmp12188 + (let () + (declare (not safe)) + (cons _e10947_ '())))) + (declare (not safe)) + (cons 'sfun-conversion-exception-arguments + __tmp12188)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp12187)))) + (if (macro-sfun-conversion-exception? _exn10945_) + (macro-sfun-conversion-exception-arguments _exn10945_) + (let ((__tmp12185 + (let ((__tmp12186 + (let () + (declare (not safe)) + (cons _exn10945_ '())))) + (declare (not safe)) + (cons 'sfun-conversion-exception-arguments + __tmp12186)))) + (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - (cons 'sfun-conversion-exception-arguments - (cons _e10530_ '()))))) - (if (macro-sfun-conversion-exception? _exn10528_) - (macro-sfun-conversion-exception-arguments _exn10528_) - (error '"not an instance" - 'sfun-conversion-exception? - (cons 'sfun-conversion-exception-arguments - (cons _exn10528_ '()))))))) + __tmp12185)))))) (define sfun-conversion-exception-code - (lambda (_exn10524_) - (if (class-instance? RuntimeException::t _exn10524_) - (let ((_e10526_ (slot-ref _exn10524_ 'exception))) - (if (macro-sfun-conversion-exception? _e10526_) - (macro-sfun-conversion-exception-code _e10526_) + (lambda (_exn10941_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10941_)) + (let ((_e10943_ + (let () + (declare (not safe)) + (slot-ref _exn10941_ 'exception)))) + (if (macro-sfun-conversion-exception? _e10943_) + (macro-sfun-conversion-exception-code _e10943_) + (let ((__tmp12191 + (let ((__tmp12192 + (let () + (declare (not safe)) + (cons _e10943_ '())))) + (declare (not safe)) + (cons 'sfun-conversion-exception-code __tmp12192)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp12191)))) + (if (macro-sfun-conversion-exception? _exn10941_) + (macro-sfun-conversion-exception-code _exn10941_) + (let ((__tmp12189 + (let ((__tmp12190 + (let () + (declare (not safe)) + (cons _exn10941_ '())))) + (declare (not safe)) + (cons 'sfun-conversion-exception-code __tmp12190)))) + (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - (cons 'sfun-conversion-exception-code - (cons _e10526_ '()))))) - (if (macro-sfun-conversion-exception? _exn10524_) - (macro-sfun-conversion-exception-code _exn10524_) - (error '"not an instance" - 'sfun-conversion-exception? - (cons 'sfun-conversion-exception-code - (cons _exn10524_ '()))))))) + __tmp12189)))))) (define sfun-conversion-exception-message - (lambda (_exn10520_) - (if (class-instance? RuntimeException::t _exn10520_) - (let ((_e10522_ (slot-ref _exn10520_ 'exception))) - (if (macro-sfun-conversion-exception? _e10522_) - (macro-sfun-conversion-exception-message _e10522_) + (lambda (_exn10937_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10937_)) + (let ((_e10939_ + (let () + (declare (not safe)) + (slot-ref _exn10937_ 'exception)))) + (if (macro-sfun-conversion-exception? _e10939_) + (macro-sfun-conversion-exception-message _e10939_) + (let ((__tmp12195 + (let ((__tmp12196 + (let () + (declare (not safe)) + (cons _e10939_ '())))) + (declare (not safe)) + (cons 'sfun-conversion-exception-message + __tmp12196)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp12195)))) + (if (macro-sfun-conversion-exception? _exn10937_) + (macro-sfun-conversion-exception-message _exn10937_) + (let ((__tmp12193 + (let ((__tmp12194 + (let () + (declare (not safe)) + (cons _exn10937_ '())))) + (declare (not safe)) + (cons 'sfun-conversion-exception-message + __tmp12194)))) + (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - (cons 'sfun-conversion-exception-message - (cons _e10522_ '()))))) - (if (macro-sfun-conversion-exception? _exn10520_) - (macro-sfun-conversion-exception-message _exn10520_) - (error '"not an instance" - 'sfun-conversion-exception? - (cons 'sfun-conversion-exception-message - (cons _exn10520_ '()))))))) + __tmp12193)))))) (define sfun-conversion-exception-procedure - (lambda (_exn10514_) - (if (class-instance? RuntimeException::t _exn10514_) - (let ((_e10517_ (slot-ref _exn10514_ 'exception))) - (if (macro-sfun-conversion-exception? _e10517_) - (macro-sfun-conversion-exception-procedure _e10517_) + (lambda (_exn10931_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10931_)) + (let ((_e10934_ + (let () + (declare (not safe)) + (slot-ref _exn10931_ 'exception)))) + (if (macro-sfun-conversion-exception? _e10934_) + (macro-sfun-conversion-exception-procedure _e10934_) + (let ((__tmp12199 + (let ((__tmp12200 + (let () + (declare (not safe)) + (cons _e10934_ '())))) + (declare (not safe)) + (cons 'sfun-conversion-exception-procedure + __tmp12200)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp12199)))) + (if (macro-sfun-conversion-exception? _exn10931_) + (macro-sfun-conversion-exception-procedure _exn10931_) + (let ((__tmp12197 + (let ((__tmp12198 + (let () + (declare (not safe)) + (cons _exn10931_ '())))) + (declare (not safe)) + (cons 'sfun-conversion-exception-procedure + __tmp12198)))) + (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - (cons 'sfun-conversion-exception-procedure - (cons _e10517_ '()))))) - (if (macro-sfun-conversion-exception? _exn10514_) - (macro-sfun-conversion-exception-procedure _exn10514_) - (error '"not an instance" - 'sfun-conversion-exception? - (cons 'sfun-conversion-exception-procedure - (cons _exn10514_ '()))))))) + __tmp12197)))))) (define stack-overflow-exception? - (lambda (_exn10508_) - (if (class-instance? RuntimeException::t _exn10508_) - (let ((_e10511_ (slot-ref _exn10508_ 'exception))) - (macro-stack-overflow-exception? _e10511_)) - (macro-stack-overflow-exception? _exn10508_)))) + (lambda (_exn10925_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10925_)) + (let ((_e10928_ + (let () + (declare (not safe)) + (slot-ref _exn10925_ 'exception)))) + (macro-stack-overflow-exception? _e10928_)) + (macro-stack-overflow-exception? _exn10925_)))) (define started-thread-exception? - (lambda (_exn10504_) - (if (class-instance? RuntimeException::t _exn10504_) - (let ((_e10506_ (slot-ref _exn10504_ 'exception))) - (macro-started-thread-exception? _e10506_)) - (macro-started-thread-exception? _exn10504_)))) + (lambda (_exn10921_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10921_)) + (let ((_e10923_ + (let () + (declare (not safe)) + (slot-ref _exn10921_ 'exception)))) + (macro-started-thread-exception? _e10923_)) + (macro-started-thread-exception? _exn10921_)))) (define started-thread-exception-arguments - (lambda (_exn10500_) - (if (class-instance? RuntimeException::t _exn10500_) - (let ((_e10502_ (slot-ref _exn10500_ 'exception))) - (if (macro-started-thread-exception? _e10502_) - (macro-started-thread-exception-arguments _e10502_) + (lambda (_exn10917_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10917_)) + (let ((_e10919_ + (let () + (declare (not safe)) + (slot-ref _exn10917_ 'exception)))) + (if (macro-started-thread-exception? _e10919_) + (macro-started-thread-exception-arguments _e10919_) + (let ((__tmp12203 + (let ((__tmp12204 + (let () + (declare (not safe)) + (cons _e10919_ '())))) + (declare (not safe)) + (cons 'started-thread-exception-arguments + __tmp12204)))) + (declare (not safe)) + (error '"not an instance" + 'started-thread-exception? + __tmp12203)))) + (if (macro-started-thread-exception? _exn10917_) + (macro-started-thread-exception-arguments _exn10917_) + (let ((__tmp12201 + (let ((__tmp12202 + (let () + (declare (not safe)) + (cons _exn10917_ '())))) + (declare (not safe)) + (cons 'started-thread-exception-arguments + __tmp12202)))) + (declare (not safe)) (error '"not an instance" 'started-thread-exception? - (cons 'started-thread-exception-arguments - (cons _e10502_ '()))))) - (if (macro-started-thread-exception? _exn10500_) - (macro-started-thread-exception-arguments _exn10500_) - (error '"not an instance" - 'started-thread-exception? - (cons 'started-thread-exception-arguments - (cons _exn10500_ '()))))))) + __tmp12201)))))) (define started-thread-exception-procedure - (lambda (_exn10494_) - (if (class-instance? RuntimeException::t _exn10494_) - (let ((_e10497_ (slot-ref _exn10494_ 'exception))) - (if (macro-started-thread-exception? _e10497_) - (macro-started-thread-exception-procedure _e10497_) + (lambda (_exn10911_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10911_)) + (let ((_e10914_ + (let () + (declare (not safe)) + (slot-ref _exn10911_ 'exception)))) + (if (macro-started-thread-exception? _e10914_) + (macro-started-thread-exception-procedure _e10914_) + (let ((__tmp12207 + (let ((__tmp12208 + (let () + (declare (not safe)) + (cons _e10914_ '())))) + (declare (not safe)) + (cons 'started-thread-exception-procedure + __tmp12208)))) + (declare (not safe)) + (error '"not an instance" + 'started-thread-exception? + __tmp12207)))) + (if (macro-started-thread-exception? _exn10911_) + (macro-started-thread-exception-procedure _exn10911_) + (let ((__tmp12205 + (let ((__tmp12206 + (let () + (declare (not safe)) + (cons _exn10911_ '())))) + (declare (not safe)) + (cons 'started-thread-exception-procedure + __tmp12206)))) + (declare (not safe)) (error '"not an instance" 'started-thread-exception? - (cons 'started-thread-exception-procedure - (cons _e10497_ '()))))) - (if (macro-started-thread-exception? _exn10494_) - (macro-started-thread-exception-procedure _exn10494_) - (error '"not an instance" - 'started-thread-exception? - (cons 'started-thread-exception-procedure - (cons _exn10494_ '()))))))) + __tmp12205)))))) (define terminated-thread-exception? - (lambda (_exn10490_) - (if (class-instance? RuntimeException::t _exn10490_) - (let ((_e10492_ (slot-ref _exn10490_ 'exception))) - (macro-terminated-thread-exception? _e10492_)) - (macro-terminated-thread-exception? _exn10490_)))) + (lambda (_exn10907_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10907_)) + (let ((_e10909_ + (let () + (declare (not safe)) + (slot-ref _exn10907_ 'exception)))) + (macro-terminated-thread-exception? _e10909_)) + (macro-terminated-thread-exception? _exn10907_)))) (define terminated-thread-exception-arguments - (lambda (_exn10486_) - (if (class-instance? RuntimeException::t _exn10486_) - (let ((_e10488_ (slot-ref _exn10486_ 'exception))) - (if (macro-terminated-thread-exception? _e10488_) - (macro-terminated-thread-exception-arguments _e10488_) + (lambda (_exn10903_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10903_)) + (let ((_e10905_ + (let () + (declare (not safe)) + (slot-ref _exn10903_ 'exception)))) + (if (macro-terminated-thread-exception? _e10905_) + (macro-terminated-thread-exception-arguments _e10905_) + (let ((__tmp12211 + (let ((__tmp12212 + (let () + (declare (not safe)) + (cons _e10905_ '())))) + (declare (not safe)) + (cons 'terminated-thread-exception-arguments + __tmp12212)))) + (declare (not safe)) + (error '"not an instance" + 'terminated-thread-exception? + __tmp12211)))) + (if (macro-terminated-thread-exception? _exn10903_) + (macro-terminated-thread-exception-arguments _exn10903_) + (let ((__tmp12209 + (let ((__tmp12210 + (let () + (declare (not safe)) + (cons _exn10903_ '())))) + (declare (not safe)) + (cons 'terminated-thread-exception-arguments + __tmp12210)))) + (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - (cons 'terminated-thread-exception-arguments - (cons _e10488_ '()))))) - (if (macro-terminated-thread-exception? _exn10486_) - (macro-terminated-thread-exception-arguments _exn10486_) - (error '"not an instance" - 'terminated-thread-exception? - (cons 'terminated-thread-exception-arguments - (cons _exn10486_ '()))))))) + __tmp12209)))))) (define terminated-thread-exception-procedure - (lambda (_exn10480_) - (if (class-instance? RuntimeException::t _exn10480_) - (let ((_e10483_ (slot-ref _exn10480_ 'exception))) - (if (macro-terminated-thread-exception? _e10483_) - (macro-terminated-thread-exception-procedure _e10483_) + (lambda (_exn10897_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10897_)) + (let ((_e10900_ + (let () + (declare (not safe)) + (slot-ref _exn10897_ 'exception)))) + (if (macro-terminated-thread-exception? _e10900_) + (macro-terminated-thread-exception-procedure _e10900_) + (let ((__tmp12215 + (let ((__tmp12216 + (let () + (declare (not safe)) + (cons _e10900_ '())))) + (declare (not safe)) + (cons 'terminated-thread-exception-procedure + __tmp12216)))) + (declare (not safe)) + (error '"not an instance" + 'terminated-thread-exception? + __tmp12215)))) + (if (macro-terminated-thread-exception? _exn10897_) + (macro-terminated-thread-exception-procedure _exn10897_) + (let ((__tmp12213 + (let ((__tmp12214 + (let () + (declare (not safe)) + (cons _exn10897_ '())))) + (declare (not safe)) + (cons 'terminated-thread-exception-procedure + __tmp12214)))) + (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - (cons 'terminated-thread-exception-procedure - (cons _e10483_ '()))))) - (if (macro-terminated-thread-exception? _exn10480_) - (macro-terminated-thread-exception-procedure _exn10480_) - (error '"not an instance" - 'terminated-thread-exception? - (cons 'terminated-thread-exception-procedure - (cons _exn10480_ '()))))))) + __tmp12213)))))) (define type-exception? - (lambda (_exn10476_) - (if (class-instance? RuntimeException::t _exn10476_) - (let ((_e10478_ (slot-ref _exn10476_ 'exception))) - (macro-type-exception? _e10478_)) - (macro-type-exception? _exn10476_)))) + (lambda (_exn10893_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10893_)) + (let ((_e10895_ + (let () + (declare (not safe)) + (slot-ref _exn10893_ 'exception)))) + (macro-type-exception? _e10895_)) + (macro-type-exception? _exn10893_)))) (define type-exception-arg-id - (lambda (_exn10472_) - (if (class-instance? RuntimeException::t _exn10472_) - (let ((_e10474_ (slot-ref _exn10472_ 'exception))) - (if (macro-type-exception? _e10474_) - (macro-type-exception-arg-id _e10474_) - (error '"not an instance" - 'type-exception? - (cons 'type-exception-arg-id (cons _e10474_ '()))))) - (if (macro-type-exception? _exn10472_) - (macro-type-exception-arg-id _exn10472_) - (error '"not an instance" - 'type-exception? - (cons 'type-exception-arg-id (cons _exn10472_ '()))))))) + (lambda (_exn10889_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10889_)) + (let ((_e10891_ + (let () + (declare (not safe)) + (slot-ref _exn10889_ 'exception)))) + (if (macro-type-exception? _e10891_) + (macro-type-exception-arg-id _e10891_) + (let ((__tmp12219 + (let ((__tmp12220 + (let () + (declare (not safe)) + (cons _e10891_ '())))) + (declare (not safe)) + (cons 'type-exception-arg-id __tmp12220)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp12219)))) + (if (macro-type-exception? _exn10889_) + (macro-type-exception-arg-id _exn10889_) + (let ((__tmp12217 + (let ((__tmp12218 + (let () + (declare (not safe)) + (cons _exn10889_ '())))) + (declare (not safe)) + (cons 'type-exception-arg-id __tmp12218)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp12217)))))) (define type-exception-arguments - (lambda (_exn10468_) - (if (class-instance? RuntimeException::t _exn10468_) - (let ((_e10470_ (slot-ref _exn10468_ 'exception))) - (if (macro-type-exception? _e10470_) - (macro-type-exception-arguments _e10470_) - (error '"not an instance" - 'type-exception? - (cons 'type-exception-arguments - (cons _e10470_ '()))))) - (if (macro-type-exception? _exn10468_) - (macro-type-exception-arguments _exn10468_) - (error '"not an instance" - 'type-exception? - (cons 'type-exception-arguments - (cons _exn10468_ '()))))))) + (lambda (_exn10885_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10885_)) + (let ((_e10887_ + (let () + (declare (not safe)) + (slot-ref _exn10885_ 'exception)))) + (if (macro-type-exception? _e10887_) + (macro-type-exception-arguments _e10887_) + (let ((__tmp12223 + (let ((__tmp12224 + (let () + (declare (not safe)) + (cons _e10887_ '())))) + (declare (not safe)) + (cons 'type-exception-arguments __tmp12224)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp12223)))) + (if (macro-type-exception? _exn10885_) + (macro-type-exception-arguments _exn10885_) + (let ((__tmp12221 + (let ((__tmp12222 + (let () + (declare (not safe)) + (cons _exn10885_ '())))) + (declare (not safe)) + (cons 'type-exception-arguments __tmp12222)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp12221)))))) (define type-exception-procedure - (lambda (_exn10464_) - (if (class-instance? RuntimeException::t _exn10464_) - (let ((_e10466_ (slot-ref _exn10464_ 'exception))) - (if (macro-type-exception? _e10466_) - (macro-type-exception-procedure _e10466_) - (error '"not an instance" - 'type-exception? - (cons 'type-exception-procedure - (cons _e10466_ '()))))) - (if (macro-type-exception? _exn10464_) - (macro-type-exception-procedure _exn10464_) - (error '"not an instance" - 'type-exception? - (cons 'type-exception-procedure - (cons _exn10464_ '()))))))) + (lambda (_exn10881_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10881_)) + (let ((_e10883_ + (let () + (declare (not safe)) + (slot-ref _exn10881_ 'exception)))) + (if (macro-type-exception? _e10883_) + (macro-type-exception-procedure _e10883_) + (let ((__tmp12227 + (let ((__tmp12228 + (let () + (declare (not safe)) + (cons _e10883_ '())))) + (declare (not safe)) + (cons 'type-exception-procedure __tmp12228)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp12227)))) + (if (macro-type-exception? _exn10881_) + (macro-type-exception-procedure _exn10881_) + (let ((__tmp12225 + (let ((__tmp12226 + (let () + (declare (not safe)) + (cons _exn10881_ '())))) + (declare (not safe)) + (cons 'type-exception-procedure __tmp12226)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp12225)))))) (define type-exception-type-id - (lambda (_exn10458_) - (if (class-instance? RuntimeException::t _exn10458_) - (let ((_e10461_ (slot-ref _exn10458_ 'exception))) - (if (macro-type-exception? _e10461_) - (macro-type-exception-type-id _e10461_) - (error '"not an instance" - 'type-exception? - (cons 'type-exception-type-id (cons _e10461_ '()))))) - (if (macro-type-exception? _exn10458_) - (macro-type-exception-type-id _exn10458_) - (error '"not an instance" - 'type-exception? - (cons 'type-exception-type-id - (cons _exn10458_ '()))))))) + (lambda (_exn10875_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10875_)) + (let ((_e10878_ + (let () + (declare (not safe)) + (slot-ref _exn10875_ 'exception)))) + (if (macro-type-exception? _e10878_) + (macro-type-exception-type-id _e10878_) + (let ((__tmp12231 + (let ((__tmp12232 + (let () + (declare (not safe)) + (cons _e10878_ '())))) + (declare (not safe)) + (cons 'type-exception-type-id __tmp12232)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp12231)))) + (if (macro-type-exception? _exn10875_) + (macro-type-exception-type-id _exn10875_) + (let ((__tmp12229 + (let ((__tmp12230 + (let () + (declare (not safe)) + (cons _exn10875_ '())))) + (declare (not safe)) + (cons 'type-exception-type-id __tmp12230)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp12229)))))) (define unbound-global-exception? - (lambda (_exn10454_) - (if (class-instance? RuntimeException::t _exn10454_) - (let ((_e10456_ (slot-ref _exn10454_ 'exception))) - (macro-unbound-global-exception? _e10456_)) - (macro-unbound-global-exception? _exn10454_)))) + (lambda (_exn10871_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10871_)) + (let ((_e10873_ + (let () + (declare (not safe)) + (slot-ref _exn10871_ 'exception)))) + (macro-unbound-global-exception? _e10873_)) + (macro-unbound-global-exception? _exn10871_)))) (define unbound-global-exception-code - (lambda (_exn10450_) - (if (class-instance? RuntimeException::t _exn10450_) - (let ((_e10452_ (slot-ref _exn10450_ 'exception))) - (if (macro-unbound-global-exception? _e10452_) - (macro-unbound-global-exception-code _e10452_) + (lambda (_exn10867_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10867_)) + (let ((_e10869_ + (let () + (declare (not safe)) + (slot-ref _exn10867_ 'exception)))) + (if (macro-unbound-global-exception? _e10869_) + (macro-unbound-global-exception-code _e10869_) + (let ((__tmp12235 + (let ((__tmp12236 + (let () + (declare (not safe)) + (cons _e10869_ '())))) + (declare (not safe)) + (cons 'unbound-global-exception-code __tmp12236)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-global-exception? + __tmp12235)))) + (if (macro-unbound-global-exception? _exn10867_) + (macro-unbound-global-exception-code _exn10867_) + (let ((__tmp12233 + (let ((__tmp12234 + (let () + (declare (not safe)) + (cons _exn10867_ '())))) + (declare (not safe)) + (cons 'unbound-global-exception-code __tmp12234)))) + (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - (cons 'unbound-global-exception-code - (cons _e10452_ '()))))) - (if (macro-unbound-global-exception? _exn10450_) - (macro-unbound-global-exception-code _exn10450_) - (error '"not an instance" - 'unbound-global-exception? - (cons 'unbound-global-exception-code - (cons _exn10450_ '()))))))) + __tmp12233)))))) (define unbound-global-exception-rte - (lambda (_exn10446_) - (if (class-instance? RuntimeException::t _exn10446_) - (let ((_e10448_ (slot-ref _exn10446_ 'exception))) - (if (macro-unbound-global-exception? _e10448_) - (macro-unbound-global-exception-rte _e10448_) + (lambda (_exn10863_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10863_)) + (let ((_e10865_ + (let () + (declare (not safe)) + (slot-ref _exn10863_ 'exception)))) + (if (macro-unbound-global-exception? _e10865_) + (macro-unbound-global-exception-rte _e10865_) + (let ((__tmp12239 + (let ((__tmp12240 + (let () + (declare (not safe)) + (cons _e10865_ '())))) + (declare (not safe)) + (cons 'unbound-global-exception-rte __tmp12240)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-global-exception? + __tmp12239)))) + (if (macro-unbound-global-exception? _exn10863_) + (macro-unbound-global-exception-rte _exn10863_) + (let ((__tmp12237 + (let ((__tmp12238 + (let () + (declare (not safe)) + (cons _exn10863_ '())))) + (declare (not safe)) + (cons 'unbound-global-exception-rte __tmp12238)))) + (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - (cons 'unbound-global-exception-rte - (cons _e10448_ '()))))) - (if (macro-unbound-global-exception? _exn10446_) - (macro-unbound-global-exception-rte _exn10446_) - (error '"not an instance" - 'unbound-global-exception? - (cons 'unbound-global-exception-rte - (cons _exn10446_ '()))))))) + __tmp12237)))))) (define unbound-global-exception-variable - (lambda (_exn10440_) - (if (class-instance? RuntimeException::t _exn10440_) - (let ((_e10443_ (slot-ref _exn10440_ 'exception))) - (if (macro-unbound-global-exception? _e10443_) - (macro-unbound-global-exception-variable _e10443_) + (lambda (_exn10857_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10857_)) + (let ((_e10860_ + (let () + (declare (not safe)) + (slot-ref _exn10857_ 'exception)))) + (if (macro-unbound-global-exception? _e10860_) + (macro-unbound-global-exception-variable _e10860_) + (let ((__tmp12243 + (let ((__tmp12244 + (let () + (declare (not safe)) + (cons _e10860_ '())))) + (declare (not safe)) + (cons 'unbound-global-exception-variable + __tmp12244)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-global-exception? + __tmp12243)))) + (if (macro-unbound-global-exception? _exn10857_) + (macro-unbound-global-exception-variable _exn10857_) + (let ((__tmp12241 + (let ((__tmp12242 + (let () + (declare (not safe)) + (cons _exn10857_ '())))) + (declare (not safe)) + (cons 'unbound-global-exception-variable + __tmp12242)))) + (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - (cons 'unbound-global-exception-variable - (cons _e10443_ '()))))) - (if (macro-unbound-global-exception? _exn10440_) - (macro-unbound-global-exception-variable _exn10440_) - (error '"not an instance" - 'unbound-global-exception? - (cons 'unbound-global-exception-variable - (cons _exn10440_ '()))))))) + __tmp12241)))))) (define unbound-key-exception? - (lambda (_exn10436_) - (if (class-instance? RuntimeException::t _exn10436_) - (let ((_e10438_ (slot-ref _exn10436_ 'exception))) - (macro-unbound-key-exception? _e10438_)) - (macro-unbound-key-exception? _exn10436_)))) + (lambda (_exn10853_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10853_)) + (let ((_e10855_ + (let () + (declare (not safe)) + (slot-ref _exn10853_ 'exception)))) + (macro-unbound-key-exception? _e10855_)) + (macro-unbound-key-exception? _exn10853_)))) (define unbound-key-exception-arguments - (lambda (_exn10432_) - (if (class-instance? RuntimeException::t _exn10432_) - (let ((_e10434_ (slot-ref _exn10432_ 'exception))) - (if (macro-unbound-key-exception? _e10434_) - (macro-unbound-key-exception-arguments _e10434_) + (lambda (_exn10849_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10849_)) + (let ((_e10851_ + (let () + (declare (not safe)) + (slot-ref _exn10849_ 'exception)))) + (if (macro-unbound-key-exception? _e10851_) + (macro-unbound-key-exception-arguments _e10851_) + (let ((__tmp12247 + (let ((__tmp12248 + (let () + (declare (not safe)) + (cons _e10851_ '())))) + (declare (not safe)) + (cons 'unbound-key-exception-arguments + __tmp12248)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-key-exception? + __tmp12247)))) + (if (macro-unbound-key-exception? _exn10849_) + (macro-unbound-key-exception-arguments _exn10849_) + (let ((__tmp12245 + (let ((__tmp12246 + (let () + (declare (not safe)) + (cons _exn10849_ '())))) + (declare (not safe)) + (cons 'unbound-key-exception-arguments __tmp12246)))) + (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - (cons 'unbound-key-exception-arguments - (cons _e10434_ '()))))) - (if (macro-unbound-key-exception? _exn10432_) - (macro-unbound-key-exception-arguments _exn10432_) - (error '"not an instance" - 'unbound-key-exception? - (cons 'unbound-key-exception-arguments - (cons _exn10432_ '()))))))) + __tmp12245)))))) (define unbound-key-exception-procedure - (lambda (_exn10426_) - (if (class-instance? RuntimeException::t _exn10426_) - (let ((_e10429_ (slot-ref _exn10426_ 'exception))) - (if (macro-unbound-key-exception? _e10429_) - (macro-unbound-key-exception-procedure _e10429_) + (lambda (_exn10843_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10843_)) + (let ((_e10846_ + (let () + (declare (not safe)) + (slot-ref _exn10843_ 'exception)))) + (if (macro-unbound-key-exception? _e10846_) + (macro-unbound-key-exception-procedure _e10846_) + (let ((__tmp12251 + (let ((__tmp12252 + (let () + (declare (not safe)) + (cons _e10846_ '())))) + (declare (not safe)) + (cons 'unbound-key-exception-procedure + __tmp12252)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-key-exception? + __tmp12251)))) + (if (macro-unbound-key-exception? _exn10843_) + (macro-unbound-key-exception-procedure _exn10843_) + (let ((__tmp12249 + (let ((__tmp12250 + (let () + (declare (not safe)) + (cons _exn10843_ '())))) + (declare (not safe)) + (cons 'unbound-key-exception-procedure __tmp12250)))) + (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - (cons 'unbound-key-exception-procedure - (cons _e10429_ '()))))) - (if (macro-unbound-key-exception? _exn10426_) - (macro-unbound-key-exception-procedure _exn10426_) - (error '"not an instance" - 'unbound-key-exception? - (cons 'unbound-key-exception-procedure - (cons _exn10426_ '()))))))) + __tmp12249)))))) (define unbound-os-environment-variable-exception? - (lambda (_exn10422_) - (if (class-instance? RuntimeException::t _exn10422_) - (let ((_e10424_ (slot-ref _exn10422_ 'exception))) - (macro-unbound-os-environment-variable-exception? _e10424_)) - (macro-unbound-os-environment-variable-exception? _exn10422_)))) + (lambda (_exn10839_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10839_)) + (let ((_e10841_ + (let () + (declare (not safe)) + (slot-ref _exn10839_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e10841_)) + (macro-unbound-os-environment-variable-exception? _exn10839_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn10418_) - (if (class-instance? RuntimeException::t _exn10418_) - (let ((_e10420_ (slot-ref _exn10418_ 'exception))) - (if (macro-unbound-os-environment-variable-exception? _e10420_) + (lambda (_exn10835_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10835_)) + (let ((_e10837_ + (let () + (declare (not safe)) + (slot-ref _exn10835_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e10837_) (macro-unbound-os-environment-variable-exception-arguments - _e10420_) + _e10837_) + (let ((__tmp12255 + (let ((__tmp12256 + (let () + (declare (not safe)) + (cons _e10837_ '())))) + (declare (not safe)) + (cons 'unbound-os-environment-variable-exception-arguments + __tmp12256)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-os-environment-variable-exception? + __tmp12255)))) + (if (macro-unbound-os-environment-variable-exception? _exn10835_) + (macro-unbound-os-environment-variable-exception-arguments + _exn10835_) + (let ((__tmp12253 + (let ((__tmp12254 + (let () + (declare (not safe)) + (cons _exn10835_ '())))) + (declare (not safe)) + (cons 'unbound-os-environment-variable-exception-arguments + __tmp12254)))) + (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - (cons 'unbound-os-environment-variable-exception-arguments - (cons _e10420_ '()))))) - (if (macro-unbound-os-environment-variable-exception? _exn10418_) - (macro-unbound-os-environment-variable-exception-arguments - _exn10418_) - (error '"not an instance" - 'unbound-os-environment-variable-exception? - (cons 'unbound-os-environment-variable-exception-arguments - (cons _exn10418_ '()))))))) + __tmp12253)))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn10412_) - (if (class-instance? RuntimeException::t _exn10412_) - (let ((_e10415_ (slot-ref _exn10412_ 'exception))) - (if (macro-unbound-os-environment-variable-exception? _e10415_) + (lambda (_exn10829_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10829_)) + (let ((_e10832_ + (let () + (declare (not safe)) + (slot-ref _exn10829_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e10832_) (macro-unbound-os-environment-variable-exception-procedure - _e10415_) + _e10832_) + (let ((__tmp12259 + (let ((__tmp12260 + (let () + (declare (not safe)) + (cons _e10832_ '())))) + (declare (not safe)) + (cons 'unbound-os-environment-variable-exception-procedure + __tmp12260)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-os-environment-variable-exception? + __tmp12259)))) + (if (macro-unbound-os-environment-variable-exception? _exn10829_) + (macro-unbound-os-environment-variable-exception-procedure + _exn10829_) + (let ((__tmp12257 + (let ((__tmp12258 + (let () + (declare (not safe)) + (cons _exn10829_ '())))) + (declare (not safe)) + (cons 'unbound-os-environment-variable-exception-procedure + __tmp12258)))) + (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - (cons 'unbound-os-environment-variable-exception-procedure - (cons _e10415_ '()))))) - (if (macro-unbound-os-environment-variable-exception? _exn10412_) - (macro-unbound-os-environment-variable-exception-procedure - _exn10412_) - (error '"not an instance" - 'unbound-os-environment-variable-exception? - (cons 'unbound-os-environment-variable-exception-procedure - (cons _exn10412_ '()))))))) + __tmp12257)))))) (define unbound-serial-number-exception? - (lambda (_exn10408_) - (if (class-instance? RuntimeException::t _exn10408_) - (let ((_e10410_ (slot-ref _exn10408_ 'exception))) - (macro-unbound-serial-number-exception? _e10410_)) - (macro-unbound-serial-number-exception? _exn10408_)))) + (lambda (_exn10825_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10825_)) + (let ((_e10827_ + (let () + (declare (not safe)) + (slot-ref _exn10825_ 'exception)))) + (macro-unbound-serial-number-exception? _e10827_)) + (macro-unbound-serial-number-exception? _exn10825_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn10404_) - (if (class-instance? RuntimeException::t _exn10404_) - (let ((_e10406_ (slot-ref _exn10404_ 'exception))) - (if (macro-unbound-serial-number-exception? _e10406_) - (macro-unbound-serial-number-exception-arguments _e10406_) + (lambda (_exn10821_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10821_)) + (let ((_e10823_ + (let () + (declare (not safe)) + (slot-ref _exn10821_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e10823_) + (macro-unbound-serial-number-exception-arguments _e10823_) + (let ((__tmp12263 + (let ((__tmp12264 + (let () + (declare (not safe)) + (cons _e10823_ '())))) + (declare (not safe)) + (cons 'unbound-serial-number-exception-arguments + __tmp12264)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-serial-number-exception? + __tmp12263)))) + (if (macro-unbound-serial-number-exception? _exn10821_) + (macro-unbound-serial-number-exception-arguments _exn10821_) + (let ((__tmp12261 + (let ((__tmp12262 + (let () + (declare (not safe)) + (cons _exn10821_ '())))) + (declare (not safe)) + (cons 'unbound-serial-number-exception-arguments + __tmp12262)))) + (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - (cons 'unbound-serial-number-exception-arguments - (cons _e10406_ '()))))) - (if (macro-unbound-serial-number-exception? _exn10404_) - (macro-unbound-serial-number-exception-arguments _exn10404_) - (error '"not an instance" - 'unbound-serial-number-exception? - (cons 'unbound-serial-number-exception-arguments - (cons _exn10404_ '()))))))) + __tmp12261)))))) (define unbound-serial-number-exception-procedure - (lambda (_exn10398_) - (if (class-instance? RuntimeException::t _exn10398_) - (let ((_e10401_ (slot-ref _exn10398_ 'exception))) - (if (macro-unbound-serial-number-exception? _e10401_) - (macro-unbound-serial-number-exception-procedure _e10401_) + (lambda (_exn10815_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10815_)) + (let ((_e10818_ + (let () + (declare (not safe)) + (slot-ref _exn10815_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e10818_) + (macro-unbound-serial-number-exception-procedure _e10818_) + (let ((__tmp12267 + (let ((__tmp12268 + (let () + (declare (not safe)) + (cons _e10818_ '())))) + (declare (not safe)) + (cons 'unbound-serial-number-exception-procedure + __tmp12268)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-serial-number-exception? + __tmp12267)))) + (if (macro-unbound-serial-number-exception? _exn10815_) + (macro-unbound-serial-number-exception-procedure _exn10815_) + (let ((__tmp12265 + (let ((__tmp12266 + (let () + (declare (not safe)) + (cons _exn10815_ '())))) + (declare (not safe)) + (cons 'unbound-serial-number-exception-procedure + __tmp12266)))) + (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - (cons 'unbound-serial-number-exception-procedure - (cons _e10401_ '()))))) - (if (macro-unbound-serial-number-exception? _exn10398_) - (macro-unbound-serial-number-exception-procedure _exn10398_) - (error '"not an instance" - 'unbound-serial-number-exception? - (cons 'unbound-serial-number-exception-procedure - (cons _exn10398_ '()))))))) + __tmp12265)))))) (define uncaught-exception? - (lambda (_exn10394_) - (if (class-instance? RuntimeException::t _exn10394_) - (let ((_e10396_ (slot-ref _exn10394_ 'exception))) - (macro-uncaught-exception? _e10396_)) - (macro-uncaught-exception? _exn10394_)))) + (lambda (_exn10811_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10811_)) + (let ((_e10813_ + (let () + (declare (not safe)) + (slot-ref _exn10811_ 'exception)))) + (macro-uncaught-exception? _e10813_)) + (macro-uncaught-exception? _exn10811_)))) (define uncaught-exception-arguments - (lambda (_exn10390_) - (if (class-instance? RuntimeException::t _exn10390_) - (let ((_e10392_ (slot-ref _exn10390_ 'exception))) - (if (macro-uncaught-exception? _e10392_) - (macro-uncaught-exception-arguments _e10392_) + (lambda (_exn10807_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10807_)) + (let ((_e10809_ + (let () + (declare (not safe)) + (slot-ref _exn10807_ 'exception)))) + (if (macro-uncaught-exception? _e10809_) + (macro-uncaught-exception-arguments _e10809_) + (let ((__tmp12271 + (let ((__tmp12272 + (let () + (declare (not safe)) + (cons _e10809_ '())))) + (declare (not safe)) + (cons 'uncaught-exception-arguments __tmp12272)))) + (declare (not safe)) + (error '"not an instance" + 'uncaught-exception? + __tmp12271)))) + (if (macro-uncaught-exception? _exn10807_) + (macro-uncaught-exception-arguments _exn10807_) + (let ((__tmp12269 + (let ((__tmp12270 + (let () + (declare (not safe)) + (cons _exn10807_ '())))) + (declare (not safe)) + (cons 'uncaught-exception-arguments __tmp12270)))) + (declare (not safe)) (error '"not an instance" 'uncaught-exception? - (cons 'uncaught-exception-arguments - (cons _e10392_ '()))))) - (if (macro-uncaught-exception? _exn10390_) - (macro-uncaught-exception-arguments _exn10390_) - (error '"not an instance" - 'uncaught-exception? - (cons 'uncaught-exception-arguments - (cons _exn10390_ '()))))))) + __tmp12269)))))) (define uncaught-exception-procedure - (lambda (_exn10386_) - (if (class-instance? RuntimeException::t _exn10386_) - (let ((_e10388_ (slot-ref _exn10386_ 'exception))) - (if (macro-uncaught-exception? _e10388_) - (macro-uncaught-exception-procedure _e10388_) + (lambda (_exn10803_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10803_)) + (let ((_e10805_ + (let () + (declare (not safe)) + (slot-ref _exn10803_ 'exception)))) + (if (macro-uncaught-exception? _e10805_) + (macro-uncaught-exception-procedure _e10805_) + (let ((__tmp12275 + (let ((__tmp12276 + (let () + (declare (not safe)) + (cons _e10805_ '())))) + (declare (not safe)) + (cons 'uncaught-exception-procedure __tmp12276)))) + (declare (not safe)) + (error '"not an instance" + 'uncaught-exception? + __tmp12275)))) + (if (macro-uncaught-exception? _exn10803_) + (macro-uncaught-exception-procedure _exn10803_) + (let ((__tmp12273 + (let ((__tmp12274 + (let () + (declare (not safe)) + (cons _exn10803_ '())))) + (declare (not safe)) + (cons 'uncaught-exception-procedure __tmp12274)))) + (declare (not safe)) (error '"not an instance" 'uncaught-exception? - (cons 'uncaught-exception-procedure - (cons _e10388_ '()))))) - (if (macro-uncaught-exception? _exn10386_) - (macro-uncaught-exception-procedure _exn10386_) - (error '"not an instance" - 'uncaught-exception? - (cons 'uncaught-exception-procedure - (cons _exn10386_ '()))))))) + __tmp12273)))))) (define uncaught-exception-reason - (lambda (_exn10380_) - (if (class-instance? RuntimeException::t _exn10380_) - (let ((_e10383_ (slot-ref _exn10380_ 'exception))) - (if (macro-uncaught-exception? _e10383_) - (macro-uncaught-exception-reason _e10383_) + (lambda (_exn10797_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10797_)) + (let ((_e10800_ + (let () + (declare (not safe)) + (slot-ref _exn10797_ 'exception)))) + (if (macro-uncaught-exception? _e10800_) + (macro-uncaught-exception-reason _e10800_) + (let ((__tmp12279 + (let ((__tmp12280 + (let () + (declare (not safe)) + (cons _e10800_ '())))) + (declare (not safe)) + (cons 'uncaught-exception-reason __tmp12280)))) + (declare (not safe)) + (error '"not an instance" + 'uncaught-exception? + __tmp12279)))) + (if (macro-uncaught-exception? _exn10797_) + (macro-uncaught-exception-reason _exn10797_) + (let ((__tmp12277 + (let ((__tmp12278 + (let () + (declare (not safe)) + (cons _exn10797_ '())))) + (declare (not safe)) + (cons 'uncaught-exception-reason __tmp12278)))) + (declare (not safe)) (error '"not an instance" 'uncaught-exception? - (cons 'uncaught-exception-reason - (cons _e10383_ '()))))) - (if (macro-uncaught-exception? _exn10380_) - (macro-uncaught-exception-reason _exn10380_) - (error '"not an instance" - 'uncaught-exception? - (cons 'uncaught-exception-reason - (cons _exn10380_ '()))))))) + __tmp12277)))))) (define uninitialized-thread-exception? - (lambda (_exn10376_) - (if (class-instance? RuntimeException::t _exn10376_) - (let ((_e10378_ (slot-ref _exn10376_ 'exception))) - (macro-uninitialized-thread-exception? _e10378_)) - (macro-uninitialized-thread-exception? _exn10376_)))) + (lambda (_exn10793_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10793_)) + (let ((_e10795_ + (let () + (declare (not safe)) + (slot-ref _exn10793_ 'exception)))) + (macro-uninitialized-thread-exception? _e10795_)) + (macro-uninitialized-thread-exception? _exn10793_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn10372_) - (if (class-instance? RuntimeException::t _exn10372_) - (let ((_e10374_ (slot-ref _exn10372_ 'exception))) - (if (macro-uninitialized-thread-exception? _e10374_) - (macro-uninitialized-thread-exception-arguments _e10374_) + (lambda (_exn10789_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10789_)) + (let ((_e10791_ + (let () + (declare (not safe)) + (slot-ref _exn10789_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e10791_) + (macro-uninitialized-thread-exception-arguments _e10791_) + (let ((__tmp12283 + (let ((__tmp12284 + (let () + (declare (not safe)) + (cons _e10791_ '())))) + (declare (not safe)) + (cons 'uninitialized-thread-exception-arguments + __tmp12284)))) + (declare (not safe)) + (error '"not an instance" + 'uninitialized-thread-exception? + __tmp12283)))) + (if (macro-uninitialized-thread-exception? _exn10789_) + (macro-uninitialized-thread-exception-arguments _exn10789_) + (let ((__tmp12281 + (let ((__tmp12282 + (let () + (declare (not safe)) + (cons _exn10789_ '())))) + (declare (not safe)) + (cons 'uninitialized-thread-exception-arguments + __tmp12282)))) + (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - (cons 'uninitialized-thread-exception-arguments - (cons _e10374_ '()))))) - (if (macro-uninitialized-thread-exception? _exn10372_) - (macro-uninitialized-thread-exception-arguments _exn10372_) - (error '"not an instance" - 'uninitialized-thread-exception? - (cons 'uninitialized-thread-exception-arguments - (cons _exn10372_ '()))))))) + __tmp12281)))))) (define uninitialized-thread-exception-procedure - (lambda (_exn10366_) - (if (class-instance? RuntimeException::t _exn10366_) - (let ((_e10369_ (slot-ref _exn10366_ 'exception))) - (if (macro-uninitialized-thread-exception? _e10369_) - (macro-uninitialized-thread-exception-procedure _e10369_) + (lambda (_exn10783_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10783_)) + (let ((_e10786_ + (let () + (declare (not safe)) + (slot-ref _exn10783_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e10786_) + (macro-uninitialized-thread-exception-procedure _e10786_) + (let ((__tmp12287 + (let ((__tmp12288 + (let () + (declare (not safe)) + (cons _e10786_ '())))) + (declare (not safe)) + (cons 'uninitialized-thread-exception-procedure + __tmp12288)))) + (declare (not safe)) + (error '"not an instance" + 'uninitialized-thread-exception? + __tmp12287)))) + (if (macro-uninitialized-thread-exception? _exn10783_) + (macro-uninitialized-thread-exception-procedure _exn10783_) + (let ((__tmp12285 + (let ((__tmp12286 + (let () + (declare (not safe)) + (cons _exn10783_ '())))) + (declare (not safe)) + (cons 'uninitialized-thread-exception-procedure + __tmp12286)))) + (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - (cons 'uninitialized-thread-exception-procedure - (cons _e10369_ '()))))) - (if (macro-uninitialized-thread-exception? _exn10366_) - (macro-uninitialized-thread-exception-procedure _exn10366_) - (error '"not an instance" - 'uninitialized-thread-exception? - (cons 'uninitialized-thread-exception-procedure - (cons _exn10366_ '()))))))) + __tmp12285)))))) (define unknown-keyword-argument-exception? - (lambda (_exn10362_) - (if (class-instance? RuntimeException::t _exn10362_) - (let ((_e10364_ (slot-ref _exn10362_ 'exception))) - (macro-unknown-keyword-argument-exception? _e10364_)) - (macro-unknown-keyword-argument-exception? _exn10362_)))) + (lambda (_exn10779_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10779_)) + (let ((_e10781_ + (let () + (declare (not safe)) + (slot-ref _exn10779_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e10781_)) + (macro-unknown-keyword-argument-exception? _exn10779_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn10358_) - (if (class-instance? RuntimeException::t _exn10358_) - (let ((_e10360_ (slot-ref _exn10358_ 'exception))) - (if (macro-unknown-keyword-argument-exception? _e10360_) - (macro-unknown-keyword-argument-exception-arguments _e10360_) + (lambda (_exn10775_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10775_)) + (let ((_e10777_ + (let () + (declare (not safe)) + (slot-ref _exn10775_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e10777_) + (macro-unknown-keyword-argument-exception-arguments _e10777_) + (let ((__tmp12291 + (let ((__tmp12292 + (let () + (declare (not safe)) + (cons _e10777_ '())))) + (declare (not safe)) + (cons 'unknown-keyword-argument-exception-arguments + __tmp12292)))) + (declare (not safe)) + (error '"not an instance" + 'unknown-keyword-argument-exception? + __tmp12291)))) + (if (macro-unknown-keyword-argument-exception? _exn10775_) + (macro-unknown-keyword-argument-exception-arguments _exn10775_) + (let ((__tmp12289 + (let ((__tmp12290 + (let () + (declare (not safe)) + (cons _exn10775_ '())))) + (declare (not safe)) + (cons 'unknown-keyword-argument-exception-arguments + __tmp12290)))) + (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - (cons 'unknown-keyword-argument-exception-arguments - (cons _e10360_ '()))))) - (if (macro-unknown-keyword-argument-exception? _exn10358_) - (macro-unknown-keyword-argument-exception-arguments _exn10358_) - (error '"not an instance" - 'unknown-keyword-argument-exception? - (cons 'unknown-keyword-argument-exception-arguments - (cons _exn10358_ '()))))))) + __tmp12289)))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn10352_) - (if (class-instance? RuntimeException::t _exn10352_) - (let ((_e10355_ (slot-ref _exn10352_ 'exception))) - (if (macro-unknown-keyword-argument-exception? _e10355_) - (macro-unknown-keyword-argument-exception-procedure _e10355_) + (lambda (_exn10769_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10769_)) + (let ((_e10772_ + (let () + (declare (not safe)) + (slot-ref _exn10769_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e10772_) + (macro-unknown-keyword-argument-exception-procedure _e10772_) + (let ((__tmp12295 + (let ((__tmp12296 + (let () + (declare (not safe)) + (cons _e10772_ '())))) + (declare (not safe)) + (cons 'unknown-keyword-argument-exception-procedure + __tmp12296)))) + (declare (not safe)) + (error '"not an instance" + 'unknown-keyword-argument-exception? + __tmp12295)))) + (if (macro-unknown-keyword-argument-exception? _exn10769_) + (macro-unknown-keyword-argument-exception-procedure _exn10769_) + (let ((__tmp12293 + (let ((__tmp12294 + (let () + (declare (not safe)) + (cons _exn10769_ '())))) + (declare (not safe)) + (cons 'unknown-keyword-argument-exception-procedure + __tmp12294)))) + (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - (cons 'unknown-keyword-argument-exception-procedure - (cons _e10355_ '()))))) - (if (macro-unknown-keyword-argument-exception? _exn10352_) - (macro-unknown-keyword-argument-exception-procedure _exn10352_) - (error '"not an instance" - 'unknown-keyword-argument-exception? - (cons 'unknown-keyword-argument-exception-procedure - (cons _exn10352_ '()))))))) + __tmp12293)))))) (define unterminated-process-exception? - (lambda (_exn10348_) - (if (class-instance? RuntimeException::t _exn10348_) - (let ((_e10350_ (slot-ref _exn10348_ 'exception))) - (macro-unterminated-process-exception? _e10350_)) - (macro-unterminated-process-exception? _exn10348_)))) + (lambda (_exn10765_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10765_)) + (let ((_e10767_ + (let () + (declare (not safe)) + (slot-ref _exn10765_ 'exception)))) + (macro-unterminated-process-exception? _e10767_)) + (macro-unterminated-process-exception? _exn10765_)))) (define unterminated-process-exception-arguments - (lambda (_exn10344_) - (if (class-instance? RuntimeException::t _exn10344_) - (let ((_e10346_ (slot-ref _exn10344_ 'exception))) - (if (macro-unterminated-process-exception? _e10346_) - (macro-unterminated-process-exception-arguments _e10346_) + (lambda (_exn10761_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10761_)) + (let ((_e10763_ + (let () + (declare (not safe)) + (slot-ref _exn10761_ 'exception)))) + (if (macro-unterminated-process-exception? _e10763_) + (macro-unterminated-process-exception-arguments _e10763_) + (let ((__tmp12299 + (let ((__tmp12300 + (let () + (declare (not safe)) + (cons _e10763_ '())))) + (declare (not safe)) + (cons 'unterminated-process-exception-arguments + __tmp12300)))) + (declare (not safe)) + (error '"not an instance" + 'unterminated-process-exception? + __tmp12299)))) + (if (macro-unterminated-process-exception? _exn10761_) + (macro-unterminated-process-exception-arguments _exn10761_) + (let ((__tmp12297 + (let ((__tmp12298 + (let () + (declare (not safe)) + (cons _exn10761_ '())))) + (declare (not safe)) + (cons 'unterminated-process-exception-arguments + __tmp12298)))) + (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - (cons 'unterminated-process-exception-arguments - (cons _e10346_ '()))))) - (if (macro-unterminated-process-exception? _exn10344_) - (macro-unterminated-process-exception-arguments _exn10344_) - (error '"not an instance" - 'unterminated-process-exception? - (cons 'unterminated-process-exception-arguments - (cons _exn10344_ '()))))))) + __tmp12297)))))) (define unterminated-process-exception-procedure - (lambda (_exn10338_) - (if (class-instance? RuntimeException::t _exn10338_) - (let ((_e10341_ (slot-ref _exn10338_ 'exception))) - (if (macro-unterminated-process-exception? _e10341_) - (macro-unterminated-process-exception-procedure _e10341_) + (lambda (_exn10755_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10755_)) + (let ((_e10758_ + (let () + (declare (not safe)) + (slot-ref _exn10755_ 'exception)))) + (if (macro-unterminated-process-exception? _e10758_) + (macro-unterminated-process-exception-procedure _e10758_) + (let ((__tmp12303 + (let ((__tmp12304 + (let () + (declare (not safe)) + (cons _e10758_ '())))) + (declare (not safe)) + (cons 'unterminated-process-exception-procedure + __tmp12304)))) + (declare (not safe)) + (error '"not an instance" + 'unterminated-process-exception? + __tmp12303)))) + (if (macro-unterminated-process-exception? _exn10755_) + (macro-unterminated-process-exception-procedure _exn10755_) + (let ((__tmp12301 + (let ((__tmp12302 + (let () + (declare (not safe)) + (cons _exn10755_ '())))) + (declare (not safe)) + (cons 'unterminated-process-exception-procedure + __tmp12302)))) + (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - (cons 'unterminated-process-exception-procedure - (cons _e10341_ '()))))) - (if (macro-unterminated-process-exception? _exn10338_) - (macro-unterminated-process-exception-procedure _exn10338_) - (error '"not an instance" - 'unterminated-process-exception? - (cons 'unterminated-process-exception-procedure - (cons _exn10338_ '()))))))) + __tmp12301)))))) (define wrong-number-of-arguments-exception? - (lambda (_exn10334_) - (if (class-instance? RuntimeException::t _exn10334_) - (let ((_e10336_ (slot-ref _exn10334_ 'exception))) - (macro-wrong-number-of-arguments-exception? _e10336_)) - (macro-wrong-number-of-arguments-exception? _exn10334_)))) + (lambda (_exn10751_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10751_)) + (let ((_e10753_ + (let () + (declare (not safe)) + (slot-ref _exn10751_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e10753_)) + (macro-wrong-number-of-arguments-exception? _exn10751_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn10330_) - (if (class-instance? RuntimeException::t _exn10330_) - (let ((_e10332_ (slot-ref _exn10330_ 'exception))) - (if (macro-wrong-number-of-arguments-exception? _e10332_) + (lambda (_exn10747_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10747_)) + (let ((_e10749_ + (let () + (declare (not safe)) + (slot-ref _exn10747_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e10749_) (macro-wrong-number-of-arguments-exception-arguments - _e10332_) + _e10749_) + (let ((__tmp12307 + (let ((__tmp12308 + (let () + (declare (not safe)) + (cons _e10749_ '())))) + (declare (not safe)) + (cons 'wrong-number-of-arguments-exception-arguments + __tmp12308)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-arguments-exception? + __tmp12307)))) + (if (macro-wrong-number-of-arguments-exception? _exn10747_) + (macro-wrong-number-of-arguments-exception-arguments + _exn10747_) + (let ((__tmp12305 + (let ((__tmp12306 + (let () + (declare (not safe)) + (cons _exn10747_ '())))) + (declare (not safe)) + (cons 'wrong-number-of-arguments-exception-arguments + __tmp12306)))) + (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - (cons 'wrong-number-of-arguments-exception-arguments - (cons _e10332_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _exn10330_) - (macro-wrong-number-of-arguments-exception-arguments - _exn10330_) - (error '"not an instance" - 'wrong-number-of-arguments-exception? - (cons 'wrong-number-of-arguments-exception-arguments - (cons _exn10330_ '()))))))) + __tmp12305)))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn10324_) - (if (class-instance? RuntimeException::t _exn10324_) - (let ((_e10327_ (slot-ref _exn10324_ 'exception))) - (if (macro-wrong-number-of-arguments-exception? _e10327_) + (lambda (_exn10741_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10741_)) + (let ((_e10744_ + (let () + (declare (not safe)) + (slot-ref _exn10741_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e10744_) (macro-wrong-number-of-arguments-exception-procedure - _e10327_) + _e10744_) + (let ((__tmp12311 + (let ((__tmp12312 + (let () + (declare (not safe)) + (cons _e10744_ '())))) + (declare (not safe)) + (cons 'wrong-number-of-arguments-exception-procedure + __tmp12312)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-arguments-exception? + __tmp12311)))) + (if (macro-wrong-number-of-arguments-exception? _exn10741_) + (macro-wrong-number-of-arguments-exception-procedure + _exn10741_) + (let ((__tmp12309 + (let ((__tmp12310 + (let () + (declare (not safe)) + (cons _exn10741_ '())))) + (declare (not safe)) + (cons 'wrong-number-of-arguments-exception-procedure + __tmp12310)))) + (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - (cons 'wrong-number-of-arguments-exception-procedure - (cons _e10327_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _exn10324_) - (macro-wrong-number-of-arguments-exception-procedure - _exn10324_) - (error '"not an instance" - 'wrong-number-of-arguments-exception? - (cons 'wrong-number-of-arguments-exception-procedure - (cons _exn10324_ '()))))))) + __tmp12309)))))) (define wrong-number-of-values-exception? - (lambda (_exn10320_) - (if (class-instance? RuntimeException::t _exn10320_) - (let ((_e10322_ (slot-ref _exn10320_ 'exception))) - (macro-wrong-number-of-values-exception? _e10322_)) - (macro-wrong-number-of-values-exception? _exn10320_)))) + (lambda (_exn10737_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10737_)) + (let ((_e10739_ + (let () + (declare (not safe)) + (slot-ref _exn10737_ 'exception)))) + (macro-wrong-number-of-values-exception? _e10739_)) + (macro-wrong-number-of-values-exception? _exn10737_)))) (define wrong-number-of-values-exception-code - (lambda (_exn10316_) - (if (class-instance? RuntimeException::t _exn10316_) - (let ((_e10318_ (slot-ref _exn10316_ 'exception))) - (if (macro-wrong-number-of-values-exception? _e10318_) - (macro-wrong-number-of-values-exception-code _e10318_) + (lambda (_exn10733_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10733_)) + (let ((_e10735_ + (let () + (declare (not safe)) + (slot-ref _exn10733_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e10735_) + (macro-wrong-number-of-values-exception-code _e10735_) + (let ((__tmp12315 + (let ((__tmp12316 + (let () + (declare (not safe)) + (cons _e10735_ '())))) + (declare (not safe)) + (cons 'wrong-number-of-values-exception-code + __tmp12316)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-values-exception? + __tmp12315)))) + (if (macro-wrong-number-of-values-exception? _exn10733_) + (macro-wrong-number-of-values-exception-code _exn10733_) + (let ((__tmp12313 + (let ((__tmp12314 + (let () + (declare (not safe)) + (cons _exn10733_ '())))) + (declare (not safe)) + (cons 'wrong-number-of-values-exception-code + __tmp12314)))) + (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - (cons 'wrong-number-of-values-exception-code - (cons _e10318_ '()))))) - (if (macro-wrong-number-of-values-exception? _exn10316_) - (macro-wrong-number-of-values-exception-code _exn10316_) - (error '"not an instance" - 'wrong-number-of-values-exception? - (cons 'wrong-number-of-values-exception-code - (cons _exn10316_ '()))))))) + __tmp12313)))))) (define wrong-number-of-values-exception-rte - (lambda (_exn10312_) - (if (class-instance? RuntimeException::t _exn10312_) - (let ((_e10314_ (slot-ref _exn10312_ 'exception))) - (if (macro-wrong-number-of-values-exception? _e10314_) - (macro-wrong-number-of-values-exception-rte _e10314_) + (lambda (_exn10729_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10729_)) + (let ((_e10731_ + (let () + (declare (not safe)) + (slot-ref _exn10729_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e10731_) + (macro-wrong-number-of-values-exception-rte _e10731_) + (let ((__tmp12319 + (let ((__tmp12320 + (let () + (declare (not safe)) + (cons _e10731_ '())))) + (declare (not safe)) + (cons 'wrong-number-of-values-exception-rte + __tmp12320)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-values-exception? + __tmp12319)))) + (if (macro-wrong-number-of-values-exception? _exn10729_) + (macro-wrong-number-of-values-exception-rte _exn10729_) + (let ((__tmp12317 + (let ((__tmp12318 + (let () + (declare (not safe)) + (cons _exn10729_ '())))) + (declare (not safe)) + (cons 'wrong-number-of-values-exception-rte + __tmp12318)))) + (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - (cons 'wrong-number-of-values-exception-rte - (cons _e10314_ '()))))) - (if (macro-wrong-number-of-values-exception? _exn10312_) - (macro-wrong-number-of-values-exception-rte _exn10312_) - (error '"not an instance" - 'wrong-number-of-values-exception? - (cons 'wrong-number-of-values-exception-rte - (cons _exn10312_ '()))))))) + __tmp12317)))))) (define wrong-number-of-values-exception-vals - (lambda (_exn10306_) - (if (class-instance? RuntimeException::t _exn10306_) - (let ((_e10309_ (slot-ref _exn10306_ 'exception))) - (if (macro-wrong-number-of-values-exception? _e10309_) - (macro-wrong-number-of-values-exception-vals _e10309_) + (lambda (_exn10723_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10723_)) + (let ((_e10726_ + (let () + (declare (not safe)) + (slot-ref _exn10723_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e10726_) + (macro-wrong-number-of-values-exception-vals _e10726_) + (let ((__tmp12323 + (let ((__tmp12324 + (let () + (declare (not safe)) + (cons _e10726_ '())))) + (declare (not safe)) + (cons 'wrong-number-of-values-exception-vals + __tmp12324)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-values-exception? + __tmp12323)))) + (if (macro-wrong-number-of-values-exception? _exn10723_) + (macro-wrong-number-of-values-exception-vals _exn10723_) + (let ((__tmp12321 + (let ((__tmp12322 + (let () + (declare (not safe)) + (cons _exn10723_ '())))) + (declare (not safe)) + (cons 'wrong-number-of-values-exception-vals + __tmp12322)))) + (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - (cons 'wrong-number-of-values-exception-vals - (cons _e10309_ '()))))) - (if (macro-wrong-number-of-values-exception? _exn10306_) - (macro-wrong-number-of-values-exception-vals _exn10306_) - (error '"not an instance" - 'wrong-number-of-values-exception? - (cons 'wrong-number-of-values-exception-vals - (cons _exn10306_ '()))))))) + __tmp12321)))))) (define wrong-processor-c-return-exception? - (lambda (_exn10300_) - (if (class-instance? RuntimeException::t _exn10300_) - (let ((_e10303_ (slot-ref _exn10300_ 'exception))) - (macro-wrong-processor-c-return-exception? _e10303_)) - (macro-wrong-processor-c-return-exception? _exn10300_)))))) + (lambda (_exn10717_) + (if (let () + (declare (not safe)) + (class-instance? RuntimeException::t _exn10717_)) + (let ((_e10720_ + (let () + (declare (not safe)) + (slot-ref _exn10717_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e10720_)) + (macro-wrong-processor-c-return-exception? _exn10717_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__1.scm b/src/bootstrap/gerbil/runtime/error__1.scm index 485bbd1c7..f4080bf7f 100644 --- a/src/bootstrap/gerbil/runtime/error__1.scm +++ b/src/bootstrap/gerbil/runtime/error__1.scm @@ -1,170 +1,170 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g11493_| + (define |[1]#_g12325_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g11494_| + (define |[1]#_g12332_| (##structure gx#syntax-quote::t - 'make-Exception + 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g11495_| + (define |[1]#_g12334_| (##structure gx#syntax-quote::t - 'Exception? + 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g11496_| + (define |[1]#_g12336_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g11497_| + (define |[1]#_g12344_| (##structure gx#syntax-quote::t - 'make-StackTrace + 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g11498_| + (define |[1]#_g12347_| (##structure gx#syntax-quote::t - 'StackTrace? + 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g11499_| + (define |[1]#_g12349_| (##structure gx#syntax-quote::t - 'StackTrace-continuation + 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g11500_| + (define |[1]#_g12351_| (##structure gx#syntax-quote::t - 'StackTrace-continuation-set! + 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g11501_| + (define |[1]#_g12353_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g11502_| + (define |[1]#_g12363_| (##structure gx#syntax-quote::t - 'make-Error + 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g11503_| + (define |[1]#_g12365_| (##structure gx#syntax-quote::t - 'Error? + 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g11504_| + (define |[1]#_g12367_| (##structure gx#syntax-quote::t - 'Error-message + 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g11505_| + (define |[1]#_g12372_| (##structure gx#syntax-quote::t - 'Error-irritants + 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g11506_| + (define |[1]#_g12374_| (##structure gx#syntax-quote::t - 'Error-where + 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g11507_| + (define |[1]#_g12376_| (##structure gx#syntax-quote::t - 'Error-message-set! + 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g11508_| + (define |[1]#_g12378_| (##structure gx#syntax-quote::t - 'Error-irritants-set! + 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g11509_| + (define |[1]#_g12380_| (##structure gx#syntax-quote::t - 'Error-where-set! + 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g11510_| + (define |[1]#_g12386_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g11511_| + (define |[1]#_g12387_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g11512_| + (define |[1]#_g12388_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g11513_| + (define |[1]#_g12396_| (##structure gx#syntax-quote::t - 'make-RuntimeException + 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g11514_| + (define |[1]#_g12399_| (##structure gx#syntax-quote::t - 'RuntimeException? + 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g11515_| + (define |[1]#_g12401_| (##structure gx#syntax-quote::t - 'RuntimeException-exception + 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g11516_| + (define |[1]#_g12403_| (##structure gx#syntax-quote::t - 'RuntimeException-exception-set! + 'make-RuntimeException #f (gx#current-expander-context) '())) @@ -172,12 +172,29 @@ (define |[:0:]#Exception| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g11493_| + |[1]#_g12325_| 'expander-identifiers: - (cons '() - (cons |[1]#_g11493_| - (cons |[1]#_g11494_| - (cons |[1]#_g11495_| (cons '() (cons '() '())))))) + (let ((__tmp12326 + (let ((__tmp12335 |[1]#_g12325_|) + (__tmp12327 + (let ((__tmp12333 |[1]#_g12334_|) + (__tmp12328 + (let ((__tmp12331 |[1]#_g12332_|) + (__tmp12329 + (let ((__tmp12330 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp12330)))) + (declare (not safe)) + (cons __tmp12331 __tmp12329)))) + (declare (not safe)) + (cons __tmp12333 __tmp12328)))) + (declare (not safe)) + (cons __tmp12335 __tmp12327)))) + (declare (not safe)) + (cons '() __tmp12326)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f @@ -189,14 +206,37 @@ (define |[:0:]#StackTrace| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g11496_| + |[1]#_g12336_| 'expander-identifiers: - (cons '() - (cons |[1]#_g11496_| - (cons |[1]#_g11497_| - (cons |[1]#_g11498_| - (cons (cons |[1]#_g11499_| '()) - (cons (cons |[1]#_g11500_| '()) '())))))) + (let ((__tmp12337 + (let ((__tmp12352 |[1]#_g12336_|) + (__tmp12338 + (let ((__tmp12350 |[1]#_g12351_|) + (__tmp12339 + (let ((__tmp12348 |[1]#_g12349_|) + (__tmp12340 + (let ((__tmp12345 + (let ((__tmp12346 |[1]#_g12347_|)) + (declare (not safe)) + (cons __tmp12346 '()))) + (__tmp12341 + (let ((__tmp12342 + (let ((__tmp12343 + |[1]#_g12344_|)) + (declare (not safe)) + (cons __tmp12343 '())))) + (declare (not safe)) + (cons __tmp12342 '())))) + (declare (not safe)) + (cons __tmp12345 __tmp12341)))) + (declare (not safe)) + (cons __tmp12348 __tmp12340)))) + (declare (not safe)) + (cons __tmp12350 __tmp12339)))) + (declare (not safe)) + (cons __tmp12352 __tmp12338)))) + (declare (not safe)) + (cons '() __tmp12337)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f @@ -208,24 +248,74 @@ (define |[:0:]#Error| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g11501_| + |[1]#_g12353_| 'expander-identifiers: - (cons (cons |[1]#_g11496_| (cons |[1]#_g11493_| '())) - (cons |[1]#_g11501_| - (cons |[1]#_g11502_| - (cons |[1]#_g11503_| - (cons (cons |[1]#_g11504_| - (cons |[1]#_g11505_| - (cons |[1]#_g11506_| '()))) - (cons (cons |[1]#_g11507_| - (cons |[1]#_g11508_| - (cons |[1]#_g11509_| - '()))) - '())))))) + (let ((__tmp12382 + (let ((__tmp12385 |[1]#_g12336_|) + (__tmp12383 + (let ((__tmp12384 |[1]#_g12325_|)) + (declare (not safe)) + (cons __tmp12384 '())))) + (declare (not safe)) + (cons __tmp12385 __tmp12383))) + (__tmp12354 + (let ((__tmp12381 |[1]#_g12353_|) + (__tmp12355 + (let ((__tmp12379 |[1]#_g12380_|) + (__tmp12356 + (let ((__tmp12377 |[1]#_g12378_|) + (__tmp12357 + (let ((__tmp12368 + (let ((__tmp12375 |[1]#_g12376_|) + (__tmp12369 + (let ((__tmp12373 + |[1]#_g12374_|) + (__tmp12370 + (let ((__tmp12371 + |[1]#_g12372_|)) + (declare (not safe)) + (cons __tmp12371 + '())))) + (declare (not safe)) + (cons __tmp12373 + __tmp12370)))) + (declare (not safe)) + (cons __tmp12375 __tmp12369))) + (__tmp12358 + (let ((__tmp12359 + (let ((__tmp12366 + |[1]#_g12367_|) + (__tmp12360 + (let ((__tmp12364 + |[1]#_g12365_|) + (__tmp12361 + (let ((__tmp12362 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |[1]#_g12363_|)) + (declare (not safe)) + (cons __tmp12362 '())))) + (declare (not safe)) + (cons __tmp12364 __tmp12361)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp12366 + __tmp12360)))) + (declare (not safe)) + (cons __tmp12359 '())))) + (declare (not safe)) + (cons __tmp12368 __tmp12358)))) + (declare (not safe)) + (cons __tmp12377 __tmp12357)))) + (declare (not safe)) + (cons __tmp12379 __tmp12356)))) + (declare (not safe)) + (cons __tmp12381 __tmp12355)))) + (declare (not safe)) + (cons __tmp12382 __tmp12354)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g11510_| |[1]#_g11511_|) + (list |[1]#_g12386_| |[1]#_g12387_|) 'Error ':init! '((transparent: . #t)) @@ -233,530 +323,907 @@ (define |[:0:]#RuntimeException| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g11512_| + |[1]#_g12388_| 'expander-identifiers: - (cons (cons |[1]#_g11496_| (cons |[1]#_g11493_| '())) - (cons |[1]#_g11512_| - (cons |[1]#_g11513_| - (cons |[1]#_g11514_| - (cons (cons |[1]#_g11515_| '()) - (cons (cons |[1]#_g11516_| '()) '())))))) + (let ((__tmp12405 + (let ((__tmp12408 |[1]#_g12336_|) + (__tmp12406 + (let ((__tmp12407 |[1]#_g12325_|)) + (declare (not safe)) + (cons __tmp12407 '())))) + (declare (not safe)) + (cons __tmp12408 __tmp12406))) + (__tmp12389 + (let ((__tmp12404 |[1]#_g12388_|) + (__tmp12390 + (let ((__tmp12402 |[1]#_g12403_|) + (__tmp12391 + (let ((__tmp12400 |[1]#_g12401_|) + (__tmp12392 + (let ((__tmp12397 + (let ((__tmp12398 |[1]#_g12399_|)) + (declare (not safe)) + (cons __tmp12398 '()))) + (__tmp12393 + (let ((__tmp12394 + (let ((__tmp12395 + |[1]#_g12396_|)) + (declare (not safe)) + (cons __tmp12395 '())))) + (declare (not safe)) + (cons __tmp12394 '())))) + (declare (not safe)) + (cons __tmp12397 __tmp12393)))) + (declare (not safe)) + (cons __tmp12400 __tmp12392)))) + (declare (not safe)) + (cons __tmp12402 __tmp12391)))) + (declare (not safe)) + (cons __tmp12404 __tmp12390)))) + (declare (not safe)) + (cons __tmp12405 __tmp12389)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g11510_| |[1]#_g11511_|) + (list |[1]#_g12386_| |[1]#_g12387_|) 'RuntimeException '#f '((transparent: . #t)) '(exception)))) (define |[:0:]#check-procedure| - (lambda (_$stx9847_) - (let* ((_g98519869_ - (lambda (_g98529865_) - (gx#raise-syntax-error '#f '"Bad syntax" _g98529865_))) - (_g98509925_ - (lambda (_g98529873_) - (if (gx#stx-pair? _g98529873_) - (let ((_e98559876_ (gx#syntax-e _g98529873_))) - (let ((_hd98569880_ + (lambda (_$stx10264_) + (let* ((_g1026810286_ + (lambda (_g1026910282_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1026910282_))) + (_g1026710342_ + (lambda (_g1026910290_) + (if (gx#stx-pair? _g1026910290_) + (let ((_e1027410293_ (gx#syntax-e _g1026910290_))) + (let ((_hd1027310297_ (let () (declare (not safe)) - (##car _e98559876_))) - (_tl98579883_ + (##car _e1027410293_))) + (_tl1027210300_ (let () (declare (not safe)) - (##cdr _e98559876_)))) - (if (gx#stx-pair? _tl98579883_) - (let ((_e98589886_ (gx#syntax-e _tl98579883_))) - (let ((_hd98599890_ + (##cdr _e1027410293_)))) + (if (gx#stx-pair? _tl1027210300_) + (let ((_e1027710303_ + (gx#syntax-e _tl1027210300_))) + (let ((_hd1027610307_ (let () (declare (not safe)) - (##car _e98589886_))) - (_tl98609893_ + (##car _e1027710303_))) + (_tl1027510310_ (let () (declare (not safe)) - (##cdr _e98589886_)))) - (if (gx#stx-pair? _tl98609893_) - (let ((_e98619896_ - (gx#syntax-e _tl98609893_))) - (let ((_hd98629900_ + (##cdr _e1027710303_)))) + (if (gx#stx-pair? _tl1027510310_) + (let ((_e1028010313_ + (gx#syntax-e _tl1027510310_))) + (let ((_hd1027910317_ (let () (declare (not safe)) - (##car _e98619896_))) - (_tl98639903_ + (##car _e1028010313_))) + (_tl1027810320_ (let () (declare (not safe)) - (##cdr _e98619896_)))) - (if (gx#stx-null? _tl98639903_) - ((lambda (_L9906_ _L9908_) - (cons (gx#datum->syntax - '#f - 'unless) - (cons (cons (gx#datum->syntax + (##cdr _e1028010313_)))) + (if (gx#stx-null? _tl1027810320_) + ((lambda (_L10323_ _L10325_) + (let ((__tmp12430 + (gx#datum->syntax + '#f + 'unless)) + (__tmp12409 + (let ((__tmp12427 + (let ((__tmp12429 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'procedure?) - (cons _L9908_ '())) - (cons (cons (gx#datum->syntax '#f 'raise) - (cons (cons (gx#datum->syntax '#f 'Error) - (cons '"expected procedure" - (cons 'where: - (cons (cons (gx#datum->syntax + (gx#datum->syntax '#f 'procedure?)) + (__tmp12428 + (let () + (declare (not safe)) + (cons _L10325_ '())))) + (declare (not safe)) + (cons __tmp12429 __tmp12428))) + (__tmp12410 + (let ((__tmp12411 + (let ((__tmp12426 (gx#datum->syntax '#f 'raise)) + (__tmp12412 + (let ((__tmp12413 + (let ((__tmp12425 + (gx#datum->syntax + '#f + 'Error)) + (__tmp12414 + (let ((__tmp12415 + (let ((__tmp12416 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L9906_ '())) - (cons 'irritants: - (cons (cons (gx#datum->syntax '#f '@list) - (cons _L9908_ '())) - '())))))) + (let ((__tmp12422 + (let ((__tmp12424 + (gx#datum->syntax '#f 'quote)) + (__tmp12423 + (let () + (declare (not safe)) + (cons _L10323_ '())))) + (declare (not safe)) + (cons __tmp12424 __tmp12423))) + (__tmp12417 + (let ((__tmp12418 + (let ((__tmp12419 + (let ((__tmp12421 + (gx#datum->syntax + '#f + '@list)) + (__tmp12420 + (let () + (declare (not safe)) + (cons _L10325_ '())))) + (declare (not safe)) + (cons __tmp12421 __tmp12420)))) + (declare (not safe)) + (cons __tmp12419 '())))) + (declare (not safe)) + (cons 'irritants: __tmp12418)))) + (declare (not safe)) + (cons __tmp12422 __tmp12417)))) + (declare (not safe)) + (cons 'where: __tmp12416)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '())))) + (declare (not safe)) + (cons '"expected procedure" + __tmp12415)))) + (declare (not safe)) + (cons __tmp12425 __tmp12414)))) + (declare (not safe)) + (cons __tmp12413 '())))) + (declare (not safe)) + (cons __tmp12426 __tmp12412)))) + (declare (not safe)) + (cons __tmp12411 '())))) + (declare (not safe)) + (cons __tmp12427 __tmp12410)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd98629900_ - _hd98599890_) - (_g98519869_ _g98529873_)))) - (_g98519869_ _g98529873_)))) - (_g98519869_ _g98529873_)))) - (_g98519869_ _g98529873_))))) - (_g98509925_ _$stx9847_)))) + (declare (not safe)) + (cons __tmp12430 + __tmp12409))) + _hd1027910317_ + _hd1027610307_) + (_g1026810286_ _g1026910290_)))) + (_g1026810286_ _g1026910290_)))) + (_g1026810286_ _g1026910290_)))) + (_g1026810286_ _g1026910290_))))) + (_g1026710342_ _$stx10264_)))) (define |[:0:]#defruntime-exception| - (lambda (_stx9929_) - (let* ((_g99329959_ - (lambda (_g99339955_) - (gx#raise-syntax-error '#f '"Bad syntax" _g99339955_))) - (_g993110194_ - (lambda (_g99339963_) - (if (gx#stx-pair? _g99339963_) - (let ((_e99369966_ (gx#syntax-e _g99339963_))) - (let ((_hd99379970_ + (lambda (_stx10346_) + (let* ((_g1034910376_ + (lambda (_g1035010372_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1035010372_))) + (_g1034810611_ + (lambda (_g1035010380_) + (if (gx#stx-pair? _g1035010380_) + (let ((_e1035510383_ (gx#syntax-e _g1035010380_))) + (let ((_hd1035410387_ (let () (declare (not safe)) - (##car _e99369966_))) - (_tl99389973_ + (##car _e1035510383_))) + (_tl1035310390_ (let () (declare (not safe)) - (##cdr _e99369966_)))) - (if (gx#stx-pair? _tl99389973_) - (let ((_e99399976_ (gx#syntax-e _tl99389973_))) - (let ((_hd99409980_ + (##cdr _e1035510383_)))) + (if (gx#stx-pair? _tl1035310390_) + (let ((_e1035810393_ + (gx#syntax-e _tl1035310390_))) + (let ((_hd1035710397_ (let () (declare (not safe)) - (##car _e99399976_))) - (_tl99419983_ + (##car _e1035810393_))) + (_tl1035610400_ (let () (declare (not safe)) - (##cdr _e99399976_)))) - (if (gx#stx-pair? _hd99409980_) - (let ((_e99429986_ - (gx#syntax-e _hd99409980_))) - (let ((_hd99439990_ + (##cdr _e1035810393_)))) + (if (gx#stx-pair? _hd1035710397_) + (let ((_e1036110403_ + (gx#syntax-e _hd1035710397_))) + (let ((_hd1036010407_ (let () (declare (not safe)) - (##car _e99429986_))) - (_tl99449993_ + (##car _e1036110403_))) + (_tl1035910410_ (let () (declare (not safe)) - (##cdr _e99429986_)))) - (if (gx#stx-pair/null? _tl99449993_) - (let ((_g11517_ + (##cdr _e1036110403_)))) + (if (gx#stx-pair/null? + _tl1035910410_) + (let ((_g12431_ (gx#syntax-split-splice - _tl99449993_ + _tl1035910410_ '0))) (begin - (let ((_g11518_ + (let ((_g12432_ (let () (declare (not safe)) (if (##values? - _g11517_) + _g12431_) (##vector-length - _g11517_) + _g12431_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g11518_ 2))) - (error "Context expects 2 values" _g11518_))) + (##fx= _g12432_ 2))) + (error "Context expects 2 values" _g12432_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target99459996_ + (let ((_target1036210413_ (let () (declare (not safe)) (##vector-ref - _g11517_ + _g12431_ 0))) - (_tl99479999_ + (_tl1036410416_ (let () (declare (not safe)) (##vector-ref - _g11517_ + _g12431_ 1)))) (if (gx#stx-null? - _tl99479999_) - (letrec ((_loop994810002_ + _tl1036410416_) + (letrec ((_loop1036510419_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd994610006_ _getf995210009_) - (if (gx#stx-pair? _hd994610006_) - (let ((_e994910012_ - (gx#syntax-e _hd994610006_))) - (let ((_lp-hd995010016_ + (lambda (_hd1036310423_ _getf1036910426_) + (if (gx#stx-pair? _hd1036310423_) + (let ((_e1036610429_ + (gx#syntax-e _hd1036310423_))) + (let ((_lp-hd1036710433_ (let () (declare (not safe)) - (##car _e994910012_))) - (_lp-tl995110019_ + (##car _e1036610429_))) + (_lp-tl1036810436_ (let () (declare (not safe)) - (##cdr _e994910012_)))) - (_loop994810002_ - _lp-tl995110019_ - (cons _lp-hd995010016_ _getf995210009_)))) - (let ((_getf995310022_ - (reverse _getf995210009_))) - (if (gx#stx-null? _tl99419983_) - ((lambda (_L10026_ _L10028_) - (let* ((_g1004810072_ - (lambda (_g1004910068_) + (##cdr _e1036610429_)))) + (_loop1036510419_ + _lp-tl1036810436_ + (let () + (declare (not safe)) + (cons _lp-hd1036710433_ + _getf1036910426_))))) + (let ((_getf1037010439_ + (let () + (declare (not safe)) + (reverse _getf1036910426_)))) + (if (gx#stx-null? _tl1035610400_) + ((lambda (_L10443_ _L10445_) + (let* ((_g1046510489_ + (lambda (_g1046610485_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1004910068_))) - (_g1004710179_ - (lambda (_g1004910076_) + _g1046610485_))) + (_g1046410596_ + (lambda (_g1046610493_) (if (gx#stx-pair? - _g1004910076_) - (let ((_e1005210079_ + _g1046610493_) + (let ((_e1047110496_ (gx#syntax-e - _g1004910076_))) - (let ((_hd1005310083_ + _g1046610493_))) + (let ((_hd1047010500_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e1005210079_))) - (_tl1005410086_ - (let () (declare (not safe)) (##cdr _e1005210079_)))) - (if (gx#stx-pair? _tl1005410086_) - (let ((_e1005510089_ (gx#syntax-e _tl1005410086_))) - (let ((_hd1005610093_ + (##car _e1047110496_))) + (_tl1046910503_ + (let () (declare (not safe)) (##cdr _e1047110496_)))) + (if (gx#stx-pair? _tl1046910503_) + (let ((_e1047410506_ (gx#syntax-e _tl1046910503_))) + (let ((_hd1047310510_ (let () (declare (not safe)) - (##car _e1005510089_))) - (_tl1005710096_ + (##car _e1047410506_))) + (_tl1047210513_ (let () (declare (not safe)) - (##cdr _e1005510089_)))) - (if (gx#stx-pair/null? _hd1005610093_) - (let ((_g11519_ + (##cdr _e1047410506_)))) + (if (gx#stx-pair/null? _hd1047310510_) + (let ((_g12433_ (gx#syntax-split-splice - _hd1005610093_ + _hd1047310510_ '0))) (begin - (let ((_g11520_ + (let ((_g12434_ (let () (declare (not safe)) - (if (##values? _g11519_) - (##vector-length _g11519_) + (if (##values? _g12433_) + (##vector-length _g12433_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g11520_ 2))) + (##fx= _g12434_ 2))) (error "Context expects 2 values" - _g11520_))) - (let ((_target1005810099_ + _g12434_))) + (let ((_target1047510516_ (let () (declare (not safe)) - (##vector-ref _g11519_ 0))) - (_tl1006010102_ + (##vector-ref _g12433_ 0))) + (_tl1047710519_ (let () (declare (not safe)) - (##vector-ref _g11519_ 1)))) - (if (gx#stx-null? _tl1006010102_) - (letrec ((_loop1006110105_ - (lambda (_hd1005910109_ - _macro-getf1006510112_) + (##vector-ref _g12433_ 1)))) + (if (gx#stx-null? _tl1047710519_) + (letrec ((_loop1047810522_ + (lambda (_hd1047610526_ + _macro-getf1048210529_) (if (gx#stx-pair? - _hd1005910109_) - (let ((_e1006210115_ + _hd1047610526_) + (let ((_e1047910532_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1005910109_))) - (let ((_lp-hd1006310119_ - (let () (declare (not safe)) (##car _e1006210115_))) - (_lp-tl1006410122_ - (let () (declare (not safe)) (##cdr _e1006210115_)))) - (_loop1006110105_ - _lp-tl1006410122_ - (cons _lp-hd1006310119_ _macro-getf1006510112_)))) - (let ((_macro-getf1006610125_ - (reverse _macro-getf1006510112_))) - (if (gx#stx-null? _tl1005710096_) - ((lambda (_L10129_ _L10131_) + _hd1047610526_))) + (let ((_lp-hd1048010536_ + (let () (declare (not safe)) (##car _e1047910532_))) + (_lp-tl1048110539_ + (let () (declare (not safe)) (##cdr _e1047910532_)))) + (_loop1047810522_ + _lp-tl1048110539_ + (let () + (declare (not safe)) + (cons _lp-hd1048010536_ _macro-getf1048210529_))))) + (let ((_macro-getf1048310542_ + (let () + (declare (not safe)) + (reverse _macro-getf1048210529_)))) + (if (gx#stx-null? _tl1047210513_) + ((lambda (_L10546_ _L10548_) (let () - (cons (gx#datum->syntax '#f 'begin) - (cons (cons (gx#datum->syntax '#f 'extern) - (cons _L10131_ - (foldr1 (lambda (_g1015010159_ + (let ((__tmp12558 (gx#datum->syntax '#f 'begin)) + (__tmp12435 + (let ((__tmp12553 + (let ((__tmp12557 + (gx#datum->syntax + '#f + 'extern)) + (__tmp12554 + (let ((__tmp12555 + (let ((__tmp12556 + (lambda (_g1057310576_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1015110162_) - (cons _g1015010159_ _g1015110162_)) - '() - _L10129_))) + _g1057410579_) + (let () + (declare (not safe)) + (cons _g1057310576_ _g1057410579_))))) + (declare (not safe)) + (foldr1 __tmp12556 '() _L10546_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _L10028_ - (cons (gx#datum->syntax + (declare (not safe)) + (cons _L10548_ + __tmp12555)))) + (declare (not safe)) + (cons __tmp12557 __tmp12554))) + (__tmp12436 + (let ((__tmp12520 + (let ((__tmp12552 + (gx#datum->syntax + '#f + 'def)) + (__tmp12521 + (let ((__tmp12549 + (let ((__tmp12550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'exn) - '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'RuntimeException?) - (cons (gx#datum->syntax '#f 'exn) - '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax - '#f - 'e) - (cons (cons (gx#datum->syntax + (let ((__tmp12551 (gx#datum->syntax '#f 'exn))) + (declare (not safe)) + (cons __tmp12551 '())))) + (declare (not safe)) + (cons _L10445_ __tmp12550))) + (__tmp12522 + (let ((__tmp12523 + (let ((__tmp12548 (gx#datum->syntax '#f 'if)) + (__tmp12524 + (let ((__tmp12544 + (let ((__tmp12547 + (gx#datum->syntax + '#f + 'RuntimeException?)) + (__tmp12545 + (let ((__tmp12546 + (gx#datum->syntax + '#f + 'exn))) + (declare (not safe)) + (cons __tmp12546 '())))) + (declare (not safe)) + (cons __tmp12547 __tmp12545))) + (__tmp12525 + (let ((__tmp12530 + (let ((__tmp12543 + (gx#datum->syntax + '#f + 'let)) + (__tmp12531 + (let ((__tmp12536 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '&RuntimeException-exception) - (cons (gx#datum->syntax '#f 'exn) '())) - '())) - (cons (cons _L10131_ (cons (gx#datum->syntax '#f 'e) '())) '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L10131_ - (cons (gx#datum->syntax - '#f - 'exn) - '())) - '())))) - '()))) + (let ((__tmp12542 (gx#datum->syntax '#f 'e)) + (__tmp12537 + (let ((__tmp12538 + (let ((__tmp12541 + (gx#datum->syntax + '#f + '&RuntimeException-exception)) + (__tmp12539 + (let ((__tmp12540 + (gx#datum->syntax + '#f + 'exn))) + (declare (not safe)) + (cons __tmp12540 '())))) + (declare (not safe)) + (cons __tmp12541 __tmp12539)))) + (declare (not safe)) + (cons __tmp12538 '())))) + (declare (not safe)) + (cons __tmp12542 __tmp12537))) + (__tmp12532 + (let ((__tmp12533 + (let ((__tmp12534 + (let ((__tmp12535 + (gx#datum->syntax '#f 'e))) + (declare (not safe)) + (cons __tmp12535 '())))) + (declare (not safe)) + (cons _L10548_ __tmp12534)))) + (declare (not safe)) + (cons __tmp12533 '())))) + (declare (not safe)) + (cons __tmp12536 __tmp12532)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (begin - (gx#syntax-check-splice-targets - _L10026_ - _L10129_ - _L10026_ - _L10129_ - _L10026_) - (foldr* (lambda (_g1015210165_ + (declare (not safe)) + (cons __tmp12543 + __tmp12531))) + (__tmp12526 + (let ((__tmp12527 + (let ((__tmp12528 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1015310168_ - _g1015410170_ - _g1015510172_ - _g1015610174_ - _g1015710176_) - (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _g1015210165_ - (cons (gx#datum->syntax '#f 'exn) - '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'RuntimeException?) - (cons (gx#datum->syntax + (let ((__tmp12529 (gx#datum->syntax '#f 'exn))) + (declare (not safe)) + (cons __tmp12529 '())))) + (declare (not safe)) + (cons _L10548_ __tmp12528)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp12527 '())))) + (declare (not safe)) + (cons __tmp12530 __tmp12526)))) + (declare (not safe)) + (cons __tmp12544 __tmp12525)))) + (declare (not safe)) + (cons __tmp12548 __tmp12524)))) + (declare (not safe)) + (cons __tmp12523 '())))) + (declare (not safe)) + (cons __tmp12549 __tmp12522)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp12552 + __tmp12521))) + (__tmp12437 + (begin + (gx#syntax-check-splice-targets + _L10443_ + _L10546_ + _L10443_ + _L10546_ + _L10443_) + (let ((__tmp12438 + (lambda (_g1056710582_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'exn) - '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax '#f 'e) - (cons (cons (gx#datum->syntax - '#f - '&RuntimeException-exception) - (cons (gx#datum->syntax - '#f - 'exn) - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _L10131_ - (cons (gx#datum->syntax - '#f - 'e) - '())) - (cons (cons _g1015310168_ - (cons (gx#datum->syntax + _g1056810585_ + _g1056910587_ + _g1057010589_ + _g1057110591_ + _g1057210593_) + (let ((__tmp12439 + (let ((__tmp12519 (gx#datum->syntax '#f 'def)) + (__tmp12440 + (let ((__tmp12516 + (let ((__tmp12517 + (let ((__tmp12518 + (gx#datum->syntax + '#f + 'exn))) + (declare (not safe)) + (cons __tmp12518 '())))) + (declare (not safe)) + (cons _g1056710582_ __tmp12517))) + (__tmp12441 + (let ((__tmp12442 + (let ((__tmp12515 + (gx#datum->syntax + '#f + 'if)) + (__tmp12443 + (let ((__tmp12511 + (let ((__tmp12514 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'e) - '())) - (cons (cons (gx#datum->syntax '#f 'error) - (cons '"not an instance" - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L10028_ '())) - (cons (cons (gx#datum->syntax - '#f - '@list) - (cons (cons (gx#datum->syntax + (gx#datum->syntax '#f 'RuntimeException?)) + (__tmp12512 + (let ((__tmp12513 (gx#datum->syntax '#f 'exn))) + (declare (not safe)) + (cons __tmp12513 '())))) + (declare (not safe)) + (cons __tmp12514 __tmp12512))) + (__tmp12444 + (let ((__tmp12473 + (let ((__tmp12510 (gx#datum->syntax '#f 'let)) + (__tmp12474 + (let ((__tmp12503 + (let ((__tmp12509 + (gx#datum->syntax '#f 'e)) + (__tmp12504 + (let ((__tmp12505 + (let ((__tmp12508 + (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'quote) - (cons _g1015210165_ '())) - (cons (gx#datum->syntax '#f 'e) '()))) + '&RuntimeException-exception)) + (__tmp12506 + (let ((__tmp12507 (gx#datum->syntax '#f 'exn))) + (declare (not safe)) + (cons __tmp12507 '())))) + (declare (not safe)) + (cons __tmp12508 __tmp12506)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp12505 '())))) + (declare (not safe)) + (cons __tmp12509 __tmp12504))) + (__tmp12475 + (let ((__tmp12476 + (let ((__tmp12502 + (gx#datum->syntax + '#f + 'if)) + (__tmp12477 + (let ((__tmp12499 + (let ((__tmp12500 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp12501 (gx#datum->syntax '#f 'e))) + (declare (not safe)) + (cons __tmp12501 '())))) + (declare (not safe)) + (cons _L10548_ __tmp12500))) + (__tmp12478 + (let ((__tmp12496 + (let ((__tmp12497 + (let ((__tmp12498 + (gx#datum->syntax '#f 'e))) + (declare (not safe)) + (cons __tmp12498 '())))) + (declare (not safe)) + (cons _g1056810585_ __tmp12497))) + (__tmp12479 + (let ((__tmp12480 + (let ((__tmp12495 + (gx#datum->syntax '#f 'error)) + (__tmp12481 + (let ((__tmp12482 + (let ((__tmp12492 + (let ((__tmp12494 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'quote)) + (__tmp12493 + (let () (declare (not safe)) (cons _L10445_ '())))) + (declare (not safe)) + (cons __tmp12494 __tmp12493))) + (__tmp12483 + (let ((__tmp12484 + (let ((__tmp12491 (gx#datum->syntax '#f '@list)) + (__tmp12485 + (let ((__tmp12488 + (let ((__tmp12490 + (gx#datum->syntax '#f 'quote)) + (__tmp12489 + (let () + (declare (not safe)) + (cons _g1056710582_ '())))) + (declare (not safe)) + (cons __tmp12490 __tmp12489))) + (__tmp12486 + (let ((__tmp12487 + (gx#datum->syntax '#f 'e))) + (declare (not safe)) + (cons __tmp12487 '())))) + (declare (not safe)) + (cons __tmp12488 __tmp12486)))) + (declare (not safe)) + (cons __tmp12491 __tmp12485)))) + (declare (not safe)) + (cons __tmp12484 '())))) + (declare (not safe)) + (cons __tmp12492 __tmp12483)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '())))) + (declare (not safe)) + (cons '"not an instance" + __tmp12482)))) + (declare (not safe)) + (cons __tmp12495 __tmp12481)))) + (declare (not safe)) + (cons __tmp12480 '())))) + (declare (not safe)) + (cons __tmp12496 __tmp12479)))) + (declare (not safe)) + (cons __tmp12499 __tmp12478)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _L10131_ - (cons (gx#datum->syntax '#f 'exn) - '())) - (cons (cons _g1015310168_ - (cons (gx#datum->syntax - '#f - 'exn) - '())) - (cons (cons (gx#datum->syntax - '#f - 'error) - (cons '"not an instance" - (cons (cons (gx#datum->syntax + (declare (not safe)) + (cons __tmp12502 + __tmp12477)))) + (declare (not safe)) + (cons __tmp12476 '())))) + (declare (not safe)) + (cons __tmp12503 __tmp12475)))) + (declare (not safe)) + (cons __tmp12510 __tmp12474))) + (__tmp12445 + (let ((__tmp12446 + (let ((__tmp12472 + (gx#datum->syntax '#f 'if)) + (__tmp12447 + (let ((__tmp12469 + (let ((__tmp12470 + (let ((__tmp12471 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'exn))) + (declare (not safe)) + (cons __tmp12471 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L10548_ + __tmp12470))) + (__tmp12448 + (let ((__tmp12466 + (let ((__tmp12467 + (let ((__tmp12468 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L10028_ '())) - (cons (cons (gx#datum->syntax '#f '@list) - (cons (cons (gx#datum->syntax + (gx#datum->syntax '#f 'exn))) + (declare (not safe)) + (cons __tmp12468 '())))) + (declare (not safe)) + (cons _g1056810585_ __tmp12467))) + (__tmp12449 + (let ((__tmp12450 + (let ((__tmp12465 (gx#datum->syntax '#f 'error)) + (__tmp12451 + (let ((__tmp12452 + (let ((__tmp12462 + (let ((__tmp12464 + (gx#datum->syntax '#f - 'quote) - (cons _g1015210165_ '())) - (cons (gx#datum->syntax '#f 'exn) - '()))) - '())))) + 'quote)) + (__tmp12463 + (let () + (declare (not safe)) + (cons _L10445_ '())))) + (declare (not safe)) + (cons __tmp12464 __tmp12463))) + (__tmp12453 + (let ((__tmp12454 + (let ((__tmp12461 + (gx#datum->syntax + '#f + '@list)) + (__tmp12455 + (let ((__tmp12458 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp12460 (gx#datum->syntax '#f 'quote)) + (__tmp12459 + (let () + (declare (not safe)) + (cons _g1056710582_ '())))) + (declare (not safe)) + (cons __tmp12460 __tmp12459))) + (__tmp12456 + (let ((__tmp12457 (gx#datum->syntax '#f 'exn))) + (declare (not safe)) + (cons __tmp12457 '())))) + (declare (not safe)) + (cons __tmp12458 __tmp12456)))) + (declare (not safe)) + (cons __tmp12461 __tmp12455)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '())))) + (declare (not safe)) + (cons __tmp12454 '())))) + (declare (not safe)) + (cons __tmp12462 __tmp12453)))) + (declare (not safe)) + (cons '"not an instance" __tmp12452)))) + (declare (not safe)) + (cons __tmp12465 __tmp12451)))) + (declare (not safe)) + (cons __tmp12450 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - _g1015710176_)) - '() - _L10026_ - _L10129_ - _L10026_ - _L10129_ - _L10026_))))))) + (declare (not safe)) + (cons __tmp12466 + __tmp12449)))) + (declare (not safe)) + (cons __tmp12469 __tmp12448)))) + (declare (not safe)) + (cons __tmp12472 __tmp12447)))) + (declare (not safe)) + (cons __tmp12446 '())))) + (declare (not safe)) + (cons __tmp12473 __tmp12445)))) + (declare (not safe)) + (cons __tmp12511 __tmp12444)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _macro-getf1006610125_ - _hd1005310083_) - (_g1004810072_ _g1004910076_))))))) + (declare (not safe)) + (cons __tmp12515 + __tmp12443)))) + (declare (not safe)) + (cons __tmp12442 '())))) + (declare (not safe)) + (cons __tmp12516 __tmp12441)))) + (declare (not safe)) + (cons __tmp12519 __tmp12440)))) + (declare (not safe)) + (cons __tmp12439 _g1057210593_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr* __tmp12438 + '() + _L10443_ + _L10546_ + _L10443_ + _L10546_ + _L10443_))))) + (declare (not safe)) + (cons __tmp12520 __tmp12437)))) + (declare (not safe)) + (cons __tmp12553 __tmp12436)))) + (declare (not safe)) + (cons __tmp12558 __tmp12435)))) + _macro-getf1048310542_ + _hd1047010500_) + (_g1046510489_ _g1046610493_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1006110105_ - _target1005810099_ + (_loop1047810522_ + _target1047510516_ '())) - (_g1004810072_ _g1004910076_))))) - (_g1004810072_ _g1004910076_)))) - (_g1004810072_ _g1004910076_)))) - (_g1004810072_ _g1004910076_))))) + (_g1046510489_ _g1046610493_))))) + (_g1046510489_ _g1046610493_)))) + (_g1046510489_ _g1046610493_)))) + (_g1046510489_ _g1046610493_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1004710179_ + (_g1046410596_ (list (gx#stx-identifier - _L10028_ + _L10445_ '"macro-" - _L10028_) - (map (lambda (_f10183_) - (gx#stx-identifier - _f10183_ - '"macro-" - _f10183_)) - (foldr1 (lambda (_g1018510188_ + _L10445_) + (let ((__tmp12561 + (lambda (_f10600_) + (gx#stx-identifier + _f10600_ + '"macro-" + _f10600_))) + (__tmp12559 + (let ((__tmp12560 + (lambda (_g1060210605_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1018610191_) - (cons _g1018510188_ _g1018610191_)) - '() - _L10026_)))))) + _g1060310608_) + (let () + (declare (not safe)) + (cons _g1060210605_ _g1060310608_))))) + (declare (not safe)) + (foldr1 __tmp12560 '() _L10443_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf995310022_ - _hd99439990_) - (_g99329959_ _g99339963_))))))) - (_loop994810002_ _target99459996_ '())) - (_g99329959_ _g99339963_))))) + (declare (not safe)) + (map __tmp12561 + __tmp12559)))))) + _getf1037010439_ + _hd1036010407_) + (_g1034910376_ _g1035010380_))))))) + (_loop1036510419_ _target1036210413_ '())) + (_g1034910376_ _g1035010380_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g99329959_ _g99339963_)))) - (_g99329959_ _g99339963_)))) - (_g99329959_ _g99339963_)))) - (_g99329959_ _g99339963_))))) - (_g993110194_ _stx9929_)))) + (_g1034910376_ _g1035010380_)))) + (_g1034910376_ _g1035010380_)))) + (_g1034910376_ _g1035010380_)))) + (_g1034910376_ _g1035010380_))))) + (_g1034810611_ _stx10346_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_$stx10200_) - (let* ((_g1020410224_ - (lambda (_g1020510220_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1020510220_))) - (_g1020310295_ - (lambda (_g1020510228_) - (if (gx#stx-pair? _g1020510228_) - (let ((_e1020710231_ (gx#syntax-e _g1020510228_))) - (let ((_hd1020810235_ + (lambda (_$stx10617_) + (let* ((_g1062110641_ + (lambda (_g1062210637_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1062210637_))) + (_g1062010712_ + (lambda (_g1062210645_) + (if (gx#stx-pair? _g1062210645_) + (let ((_e1062610648_ (gx#syntax-e _g1062210645_))) + (let ((_hd1062510652_ (let () (declare (not safe)) - (##car _e1020710231_))) - (_tl1020910238_ + (##car _e1062610648_))) + (_tl1062410655_ (let () (declare (not safe)) - (##cdr _e1020710231_)))) - (if (gx#stx-pair/null? _tl1020910238_) - (let ((_g11521_ + (##cdr _e1062610648_)))) + (if (gx#stx-pair/null? _tl1062410655_) + (let ((_g12562_ (gx#syntax-split-splice - _tl1020910238_ + _tl1062410655_ '0))) (begin - (let ((_g11522_ + (let ((_g12563_ (let () (declare (not safe)) - (if (##values? _g11521_) - (##vector-length _g11521_) + (if (##values? _g12562_) + (##vector-length _g12562_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g11522_ 2))) + (##fx= _g12563_ 2))) (error "Context expects 2 values" - _g11522_))) - (let ((_target1021010241_ + _g12563_))) + (let ((_target1062710658_ (let () (declare (not safe)) - (##vector-ref _g11521_ 0))) - (_tl1021210244_ + (##vector-ref _g12562_ 0))) + (_tl1062910661_ (let () (declare (not safe)) - (##vector-ref _g11521_ 1)))) - (if (gx#stx-null? _tl1021210244_) - (letrec ((_loop1021310247_ - (lambda (_hd1021110251_ - _defexn1021710254_) + (##vector-ref _g12562_ 1)))) + (if (gx#stx-null? _tl1062910661_) + (letrec ((_loop1063010664_ + (lambda (_hd1062810668_ + _defexn1063410671_) (if (gx#stx-pair? - _hd1021110251_) - (let ((_e1021410257_ + _hd1062810668_) + (let ((_e1063110674_ (gx#syntax-e - _hd1021110251_))) - (let ((_lp-hd1021510261_ + _hd1062810668_))) + (let ((_lp-hd1063210678_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1021410257_))) - (_lp-tl1021610264_ - (let () (declare (not safe)) (##cdr _e1021410257_)))) - (_loop1021310247_ - _lp-tl1021610264_ - (cons _lp-hd1021510261_ _defexn1021710254_)))) - (let ((_defexn1021810267_ (reverse _defexn1021710254_))) - ((lambda (_L10271_) - (cons (gx#datum->syntax '#f 'begin) - (foldr1 (lambda (_g1028610289_ _g1028710292_) - (cons (cons (gx#datum->syntax - '#f - 'defruntime-exception) - (cons _g1028610289_ '())) - _g1028710292_)) - '() - _L10271_))) - _defexn1021810267_)))))) + (let () (declare (not safe)) (##car _e1063110674_))) + (_lp-tl1063310681_ + (let () (declare (not safe)) (##cdr _e1063110674_)))) + (_loop1063010664_ + _lp-tl1063310681_ + (let () + (declare (not safe)) + (cons _lp-hd1063210678_ _defexn1063410671_))))) + (let ((_defexn1063510684_ + (let () + (declare (not safe)) + (reverse _defexn1063410671_)))) + ((lambda (_L10688_) + (let ((__tmp12569 (gx#datum->syntax '#f 'begin)) + (__tmp12564 + (let ((__tmp12565 + (lambda (_g1070310706_ _g1070410709_) + (let ((__tmp12566 + (let ((__tmp12568 + (gx#datum->syntax + '#f + 'defruntime-exception)) + (__tmp12567 + (let () + (declare (not safe)) + (cons _g1070310706_ + '())))) + (declare (not safe)) + (cons __tmp12568 __tmp12567)))) + (declare (not safe)) + (cons __tmp12566 _g1070410709_))))) + (declare (not safe)) + (foldr1 __tmp12565 '() _L10688_)))) + (declare (not safe)) + (cons __tmp12569 __tmp12564))) + _defexn1063510684_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1021310247_ - _target1021010241_ + (_loop1063010664_ + _target1062710658_ '())) - (_g1020410224_ _g1020510228_))))) - (_g1020410224_ _g1020510228_)))) - (_g1020410224_ _g1020510228_))))) - (_g1020310295_ _$stx10200_)))))) + (_g1062110641_ _g1062210645_))))) + (_g1062110641_ _g1062210645_)))) + (_g1062110641_ _g1062210645_))))) + (_g1062010712_ _$stx10617_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index 7fb02f0e3..56c03ef41 100644 --- a/src/bootstrap/gerbil/runtime/eval__0.scm +++ b/src/bootstrap/gerbil/runtime/eval__0.scm @@ -1,2466 +1,4197 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1695206877) + (define gerbil/runtime/eval::timestamp 1695292370) (begin (define __context::t - (make-struct-type - 'gerbil/runtime/eval#__context::t - '#f - '4 - '__context - '() - '#f - '(t ns super table))) - (define __context? (make-struct-predicate __context::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gerbil/runtime/eval#__context::t + '#f + '4 + '__context + '() + '#f + '(t ns super table)))) + (define __context? + (let () (declare (not safe)) (make-struct-predicate __context::t))) (define make-__context - (lambda _$args15619_ - (apply make-struct-instance __context::t _$args15619_))) - (define __context-t (make-struct-field-accessor __context::t '0)) - (define __context-ns (make-struct-field-accessor __context::t '1)) - (define __context-super (make-struct-field-accessor __context::t '2)) - (define __context-table (make-struct-field-accessor __context::t '3)) - (define __context-t-set! (make-struct-field-mutator __context::t '0)) - (define __context-ns-set! (make-struct-field-mutator __context::t '1)) - (define __context-super-set! (make-struct-field-mutator __context::t '2)) - (define __context-table-set! (make-struct-field-mutator __context::t '3)) + (lambda _$args16821_ + (apply make-struct-instance __context::t _$args16821_))) + (define __context-t + (let () + (declare (not safe)) + (make-struct-field-accessor __context::t '0))) + (define __context-ns + (let () + (declare (not safe)) + (make-struct-field-accessor __context::t '1))) + (define __context-super + (let () + (declare (not safe)) + (make-struct-field-accessor __context::t '2))) + (define __context-table + (let () + (declare (not safe)) + (make-struct-field-accessor __context::t '3))) + (define __context-t-set! + (let () + (declare (not safe)) + (make-struct-field-mutator __context::t '0))) + (define __context-ns-set! + (let () + (declare (not safe)) + (make-struct-field-mutator __context::t '1))) + (define __context-super-set! + (let () + (declare (not safe)) + (make-struct-field-mutator __context::t '2))) + (define __context-table-set! + (let () + (declare (not safe)) + (make-struct-field-mutator __context::t '3))) (define &__context-t - (make-struct-field-unchecked-accessor __context::t '0)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor __context::t '0))) (define &__context-ns - (make-struct-field-unchecked-accessor __context::t '1)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor __context::t '1))) (define &__context-super - (make-struct-field-unchecked-accessor __context::t '2)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor __context::t '2))) (define &__context-table - (make-struct-field-unchecked-accessor __context::t '3)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor __context::t '3))) (define &__context-t-set! - (make-struct-field-unchecked-mutator __context::t '0)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator __context::t '0))) (define &__context-ns-set! - (make-struct-field-unchecked-mutator __context::t '1)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator __context::t '1))) (define &__context-super-set! - (make-struct-field-unchecked-mutator __context::t '2)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator __context::t '2))) (define &__context-table-set! - (make-struct-field-unchecked-mutator __context::t '3)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator __context::t '3))) (define __runtime::t - (make-struct-type - 'gerbil/runtime/eval#__runtime::t - '#f - '1 - '__runtime - '() - '#f - '(id))) - (define __runtime? (make-struct-predicate __runtime::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gerbil/runtime/eval#__runtime::t + '#f + '1 + '__runtime + '() + '#f + '(id)))) + (define __runtime? + (let () (declare (not safe)) (make-struct-predicate __runtime::t))) (define make-__runtime - (lambda _$args15616_ - (apply make-struct-instance __runtime::t _$args15616_))) - (define __runtime-id (make-struct-field-accessor __runtime::t '0)) - (define __runtime-id-set! (make-struct-field-mutator __runtime::t '0)) + (lambda _$args16818_ + (apply make-struct-instance __runtime::t _$args16818_))) + (define __runtime-id + (let () + (declare (not safe)) + (make-struct-field-accessor __runtime::t '0))) + (define __runtime-id-set! + (let () + (declare (not safe)) + (make-struct-field-mutator __runtime::t '0))) (define &__runtime-id - (make-struct-field-unchecked-accessor __runtime::t '0)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor __runtime::t '0))) (define &__runtime-id-set! - (make-struct-field-unchecked-mutator __runtime::t '0)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator __runtime::t '0))) (define __syntax::t - (make-struct-type - 'gerbil/runtime/eval#__syntax::t - '#f - '2 - '__syntax - '() - '#f - '(e id))) - (define __syntax? (make-struct-predicate __syntax::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gerbil/runtime/eval#__syntax::t + '#f + '2 + '__syntax + '() + '#f + '(e id)))) + (define __syntax? + (let () (declare (not safe)) (make-struct-predicate __syntax::t))) (define make-__syntax - (lambda _$args15613_ - (apply make-struct-instance __syntax::t _$args15613_))) - (define __syntax-e (make-struct-field-accessor __syntax::t '0)) - (define __syntax-id (make-struct-field-accessor __syntax::t '1)) - (define __syntax-e-set! (make-struct-field-mutator __syntax::t '0)) - (define __syntax-id-set! (make-struct-field-mutator __syntax::t '1)) - (define &__syntax-e (make-struct-field-unchecked-accessor __syntax::t '0)) - (define &__syntax-id (make-struct-field-unchecked-accessor __syntax::t '1)) + (lambda _$args16815_ + (apply make-struct-instance __syntax::t _$args16815_))) + (define __syntax-e + (let () + (declare (not safe)) + (make-struct-field-accessor __syntax::t '0))) + (define __syntax-id + (let () + (declare (not safe)) + (make-struct-field-accessor __syntax::t '1))) + (define __syntax-e-set! + (let () (declare (not safe)) (make-struct-field-mutator __syntax::t '0))) + (define __syntax-id-set! + (let () (declare (not safe)) (make-struct-field-mutator __syntax::t '1))) + (define &__syntax-e + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor __syntax::t '0))) + (define &__syntax-id + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor __syntax::t '1))) (define &__syntax-e-set! - (make-struct-field-unchecked-mutator __syntax::t '0)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator __syntax::t '0))) (define &__syntax-id-set! - (make-struct-field-unchecked-mutator __syntax::t '1)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator __syntax::t '1))) (define __macro::t - (make-struct-type - 'gerbil/runtime/eval#__macro::t - __syntax::t - '0 - '__macro - '() - '#f - '())) - (define __macro? (make-struct-predicate __macro::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gerbil/runtime/eval#__macro::t + __syntax::t + '0 + '__macro + '() + '#f + '()))) + (define __macro? + (let () (declare (not safe)) (make-struct-predicate __macro::t))) (define make-__macro - (lambda _$args15610_ - (apply make-struct-instance __macro::t _$args15610_))) + (lambda _$args16812_ + (apply make-struct-instance __macro::t _$args16812_))) (define __special-form::t - (make-struct-type - 'gerbil/runtime/eval#__special-form::t - __macro::t - '0 - '__special-form - '() - '#f - '())) - (define __special-form? (make-struct-predicate __special-form::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gerbil/runtime/eval#__special-form::t + __macro::t + '0 + '__special-form + '() + '#f + '()))) + (define __special-form? + (let () (declare (not safe)) (make-struct-predicate __special-form::t))) (define make-__special-form - (lambda _$args15607_ - (apply make-struct-instance __special-form::t _$args15607_))) + (lambda _$args16809_ + (apply make-struct-instance __special-form::t _$args16809_))) (define __core-form::t - (make-struct-type - 'gerbil/runtime/eval#__core-form::t - __syntax::t - '0 - '__core-form - '() - '#f - '())) - (define __core-form? (make-struct-predicate __core-form::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gerbil/runtime/eval#__core-form::t + __syntax::t + '0 + '__core-form + '() + '#f + '()))) + (define __core-form? + (let () (declare (not safe)) (make-struct-predicate __core-form::t))) (define make-__core-form - (lambda _$args15604_ - (apply make-struct-instance __core-form::t _$args15604_))) + (lambda _$args16806_ + (apply make-struct-instance __core-form::t _$args16806_))) (define __core-expression::t - (make-struct-type - 'gerbil/runtime/eval#__core-expression::t - __core-form::t - '0 - '__core-expression - '() - '#f - '())) - (define __core-expression? (make-struct-predicate __core-expression::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gerbil/runtime/eval#__core-expression::t + __core-form::t + '0 + '__core-expression + '() + '#f + '()))) + (define __core-expression? + (let () + (declare (not safe)) + (make-struct-predicate __core-expression::t))) (define make-__core-expression - (lambda _$args15601_ - (apply make-struct-instance __core-expression::t _$args15601_))) + (lambda _$args16803_ + (apply make-struct-instance __core-expression::t _$args16803_))) (define __core-special-form::t - (make-struct-type - 'gerbil/runtime/eval#__core-special-form::t - __core-form::t - '0 - '__core-special-form - '() - '#f - '())) + (let () + (declare (not safe)) + (make-struct-type + 'gerbil/runtime/eval#__core-special-form::t + __core-form::t + '0 + '__core-special-form + '() + '#f + '()))) (define __core-special-form? - (make-struct-predicate __core-special-form::t)) + (let () + (declare (not safe)) + (make-struct-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _$args15598_ - (apply make-struct-instance __core-special-form::t _$args15598_))) + (lambda _$args16800_ + (apply make-struct-instance __core-special-form::t _$args16800_))) (define __struct-info::t - (make-struct-type - 'gerbil/runtime/eval#__struct-info::t - __syntax::t - '0 - '__struct-info - '() - '#f - '())) - (define __struct-info? (make-struct-predicate __struct-info::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gerbil/runtime/eval#__struct-info::t + __syntax::t + '0 + '__struct-info + '() + '#f + '()))) + (define __struct-info? + (let () (declare (not safe)) (make-struct-predicate __struct-info::t))) (define make-__struct-info - (lambda _$args15595_ - (apply make-struct-instance __struct-info::t _$args15595_))) + (lambda _$args16797_ + (apply make-struct-instance __struct-info::t _$args16797_))) (define __feature::t - (make-struct-type - 'gerbil/runtime/eval#__feature::t - __syntax::t - '0 - '__feature - '() - '#f - '())) - (define __feature? (make-struct-predicate __feature::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gerbil/runtime/eval#__feature::t + __syntax::t + '0 + '__feature + '() + '#f + '()))) + (define __feature? + (let () (declare (not safe)) (make-struct-predicate __feature::t))) (define make-__feature - (lambda _$args15592_ - (apply make-struct-instance __feature::t _$args15592_))) + (lambda _$args16794_ + (apply make-struct-instance __feature::t _$args16794_))) (define __module::t - (make-struct-type - 'gerbil/runtime/eval#__module::t - __context::t - '4 - '__module - '() - '#f - '(id path import export))) - (define __module? (make-struct-predicate __module::t)) + (let () + (declare (not safe)) + (make-struct-type + 'gerbil/runtime/eval#__module::t + __context::t + '4 + '__module + '() + '#f + '(id path import export)))) + (define __module? + (let () (declare (not safe)) (make-struct-predicate __module::t))) (define make-__module - (lambda _$args15589_ - (apply make-struct-instance __module::t _$args15589_))) - (define __module-id (make-struct-field-accessor __module::t '0)) - (define __module-path (make-struct-field-accessor __module::t '1)) - (define __module-import (make-struct-field-accessor __module::t '2)) - (define __module-export (make-struct-field-accessor __module::t '3)) - (define __module-id-set! (make-struct-field-mutator __module::t '0)) - (define __module-path-set! (make-struct-field-mutator __module::t '1)) - (define __module-import-set! (make-struct-field-mutator __module::t '2)) - (define __module-export-set! (make-struct-field-mutator __module::t '3)) - (define &__module-id (make-struct-field-unchecked-accessor __module::t '0)) + (lambda _$args16791_ + (apply make-struct-instance __module::t _$args16791_))) + (define __module-id + (let () + (declare (not safe)) + (make-struct-field-accessor __module::t '0))) + (define __module-path + (let () + (declare (not safe)) + (make-struct-field-accessor __module::t '1))) + (define __module-import + (let () + (declare (not safe)) + (make-struct-field-accessor __module::t '2))) + (define __module-export + (let () + (declare (not safe)) + (make-struct-field-accessor __module::t '3))) + (define __module-id-set! + (let () (declare (not safe)) (make-struct-field-mutator __module::t '0))) + (define __module-path-set! + (let () (declare (not safe)) (make-struct-field-mutator __module::t '1))) + (define __module-import-set! + (let () (declare (not safe)) (make-struct-field-mutator __module::t '2))) + (define __module-export-set! + (let () (declare (not safe)) (make-struct-field-mutator __module::t '3))) + (define &__module-id + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor __module::t '0))) (define &__module-path - (make-struct-field-unchecked-accessor __module::t '1)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor __module::t '1))) (define &__module-import - (make-struct-field-unchecked-accessor __module::t '2)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor __module::t '2))) (define &__module-export - (make-struct-field-unchecked-accessor __module::t '3)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-accessor __module::t '3))) (define &__module-id-set! - (make-struct-field-unchecked-mutator __module::t '0)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator __module::t '0))) (define &__module-path-set! - (make-struct-field-unchecked-mutator __module::t '1)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator __module::t '1))) (define &__module-import-set! - (make-struct-field-unchecked-mutator __module::t '2)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator __module::t '2))) (define &__module-export-set! - (make-struct-field-unchecked-mutator __module::t '3)) - (define __*modules* (make-table)) - (define __*core* (make-table 'test: eq?)) + (let () + (declare (not safe)) + (make-struct-field-unchecked-mutator __module::t '3))) + (define __*modules* (let () (declare (not safe)) (make-table))) + (define __*core* (let () (declare (not safe)) (make-table 'test: eq?))) (define __*top* - (let ((__tmp15805 + (let ((__tmp17007 (let () (declare (not safe)) (##structure __context::t 'root '#f '#f __*core*))) - (__tmp15804 (make-table 'test: eq?))) + (__tmp17006 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'top '#f __tmp15805 __tmp15804))) - (define __current-expander (make-parameter '#f)) - (define __current-compiler (make-parameter '#f)) - (define __current-path (make-parameter '())) + (##structure __context::t 'top '#f __tmp17007 __tmp17006))) + (define __current-expander + (let () (declare (not safe)) (make-parameter '#f))) + (define __current-compiler + (let () (declare (not safe)) (make-parameter '#f))) + (define __current-path (let () (declare (not safe)) (make-parameter '()))) (define __core-resolve__% - (lambda (_id15564_ _ctx15565_) - (if _ctx15565_ - (let ((_id15567_ (__AST-e _id15564_))) - (let _lp15569_ ((_ctx15571_ _ctx15565_)) - (let ((_$e15573_ - (table-ref - (##structure-ref _ctx15571_ '4 __context::t '#f) - _id15567_ - '#f))) - (if _$e15573_ - (values _$e15573_) - (let ((_$e15576_ - (##structure-ref _ctx15571_ '3 __context::t '#f))) - (if _$e15576_ (_lp15569_ _$e15576_) '#f)))))) + (lambda (_id16766_ _ctx16767_) + (if _ctx16767_ + (let ((_id16769_ + (let () (declare (not safe)) (__AST-e _id16766_)))) + (let _lp16771_ ((_ctx16773_ _ctx16767_)) + (let ((_$e16775_ + (let ((__tmp17008 + (##structure-ref + _ctx16773_ + '4 + __context::t + '#f))) + (declare (not safe)) + (table-ref __tmp17008 _id16769_ '#f)))) + (if _$e16775_ + (values _$e16775_) + (let ((_$e16778_ + (##structure-ref _ctx16773_ '3 __context::t '#f))) + (if _$e16778_ + (let () (declare (not safe)) (_lp16771_ _$e16778_)) + '#f)))))) '#f))) (define __core-resolve__0 - (lambda (_id15582_) - (let ((_ctx15584_ (__current-context))) - (__core-resolve__% _id15582_ _ctx15584_)))) + (lambda (_id16784_) + (let ((_ctx16786_ (__current-context))) + (declare (not safe)) + (__core-resolve__% _id16784_ _ctx16786_)))) (define __core-resolve - (lambda _g15807_ - (let ((_g15806_ (let () (declare (not safe)) (##length _g15807_)))) - (cond ((let () (declare (not safe)) (##fx= _g15806_ 1)) - (apply __core-resolve__0 _g15807_)) - ((let () (declare (not safe)) (##fx= _g15806_ 2)) - (apply __core-resolve__% _g15807_)) + (lambda _g17010_ + (let ((_g17009_ (let () (declare (not safe)) (##length _g17010_)))) + (cond ((let () (declare (not safe)) (##fx= _g17009_ 1)) + (apply (lambda (_id16784_) + (let () + (declare (not safe)) + (__core-resolve__0 _id16784_))) + _g17010_)) + ((let () (declare (not safe)) (##fx= _g17009_ 2)) + (apply (lambda (_id16788_ _ctx16789_) + (let () + (declare (not safe)) + (__core-resolve__% _id16788_ _ctx16789_))) + _g17010_)) (else (##raise-wrong-number-of-arguments-exception __core-resolve - _g15807_)))))) + _g17010_)))))) (define __core-bound-id?__% - (lambda (_id15547_ _is?15548_) - (let ((_$e15550_ (__core-resolve__0 _id15547_))) - (if _$e15550_ (_is?15548_ _$e15550_) '#f)))) + (lambda (_id16749_ _is?16750_) + (let ((_$e16752_ + (let () (declare (not safe)) (__core-resolve__0 _id16749_)))) + (if _$e16752_ (_is?16750_ _$e16752_) '#f)))) (define __core-bound-id?__0 - (lambda (_id15556_) - (let ((_is?15558_ true)) (__core-bound-id?__% _id15556_ _is?15558_)))) + (lambda (_id16758_) + (let ((_is?16760_ true)) + (declare (not safe)) + (__core-bound-id?__% _id16758_ _is?16760_)))) (define __core-bound-id? - (lambda _g15809_ - (let ((_g15808_ (let () (declare (not safe)) (##length _g15809_)))) - (cond ((let () (declare (not safe)) (##fx= _g15808_ 1)) - (apply __core-bound-id?__0 _g15809_)) - ((let () (declare (not safe)) (##fx= _g15808_ 2)) - (apply __core-bound-id?__% _g15809_)) + (lambda _g17012_ + (let ((_g17011_ (let () (declare (not safe)) (##length _g17012_)))) + (cond ((let () (declare (not safe)) (##fx= _g17011_ 1)) + (apply (lambda (_id16758_) + (let () + (declare (not safe)) + (__core-bound-id?__0 _id16758_))) + _g17012_)) + ((let () (declare (not safe)) (##fx= _g17011_ 2)) + (apply (lambda (_id16762_ _is?16763_) + (let () + (declare (not safe)) + (__core-bound-id?__% _id16762_ _is?16763_))) + _g17012_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g15809_)))))) + _g17012_)))))) (define __core-bind-runtime!__% - (lambda (_id15530_ _eid15531_ _ctx15532_) - (if _eid15531_ - (table-set! - (##structure-ref _ctx15532_ '4 __context::t '#f) - (__AST-e _id15530_) - (let () - (declare (not safe)) - (##structure __runtime::t _eid15531_))) + (lambda (_id16732_ _eid16733_ _ctx16734_) + (if _eid16733_ + (let ((__tmp17015 (##structure-ref _ctx16734_ '4 __context::t '#f)) + (__tmp17014 + (let () (declare (not safe)) (__AST-e _id16732_))) + (__tmp17013 + (let () + (declare (not safe)) + (##structure __runtime::t _eid16733_)))) + (declare (not safe)) + (table-set! __tmp17015 __tmp17014 __tmp17013)) '#!void))) (define __core-bind-runtime!__0 - (lambda (_id15537_ _eid15538_) - (let ((_ctx15540_ (__current-context))) - (__core-bind-runtime!__% _id15537_ _eid15538_ _ctx15540_)))) + (lambda (_id16739_ _eid16740_) + (let ((_ctx16742_ (__current-context))) + (declare (not safe)) + (__core-bind-runtime!__% _id16739_ _eid16740_ _ctx16742_)))) (define __core-bind-runtime! - (lambda _g15811_ - (let ((_g15810_ (let () (declare (not safe)) (##length _g15811_)))) - (cond ((let () (declare (not safe)) (##fx= _g15810_ 2)) - (apply __core-bind-runtime!__0 _g15811_)) - ((let () (declare (not safe)) (##fx= _g15810_ 3)) - (apply __core-bind-runtime!__% _g15811_)) + (lambda _g17017_ + (let ((_g17016_ (let () (declare (not safe)) (##length _g17017_)))) + (cond ((let () (declare (not safe)) (##fx= _g17016_ 2)) + (apply (lambda (_id16739_ _eid16740_) + (let () + (declare (not safe)) + (__core-bind-runtime!__0 _id16739_ _eid16740_))) + _g17017_)) + ((let () (declare (not safe)) (##fx= _g17016_ 3)) + (apply (lambda (_id16744_ _eid16745_ _ctx16746_) + (let () + (declare (not safe)) + (__core-bind-runtime!__% + _id16744_ + _eid16745_ + _ctx16746_))) + _g17017_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-runtime! - _g15811_)))))) + _g17017_)))))) (define __core-bind-syntax!__% - (lambda (_id15513_ _e15514_ _make15515_) - (table-set! - __*core* - _id15513_ - (if (let () - (declare (not safe)) - (##structure-instance-of? - _e15514_ - 'gerbil/runtime/eval#__syntax::t)) - _e15514_ - (_make15515_ _e15514_ _id15513_))))) + (lambda (_id16715_ _e16716_ _make16717_) + (let ((__tmp17018 + (if (let () + (declare (not safe)) + (##structure-instance-of? + _e16716_ + 'gerbil/runtime/eval#__syntax::t)) + _e16716_ + (_make16717_ _e16716_ _id16715_)))) + (declare (not safe)) + (table-set! __*core* _id16715_ __tmp17018)))) (define __core-bind-syntax!__0 - (lambda (_id15520_ _e15521_) - (let ((_make15523_ make-__syntax)) - (__core-bind-syntax!__% _id15520_ _e15521_ _make15523_)))) + (lambda (_id16722_ _e16723_) + (let ((_make16725_ make-__syntax)) + (declare (not safe)) + (__core-bind-syntax!__% _id16722_ _e16723_ _make16725_)))) (define __core-bind-syntax! - (lambda _g15813_ - (let ((_g15812_ (let () (declare (not safe)) (##length _g15813_)))) - (cond ((let () (declare (not safe)) (##fx= _g15812_ 2)) - (apply __core-bind-syntax!__0 _g15813_)) - ((let () (declare (not safe)) (##fx= _g15812_ 3)) - (apply __core-bind-syntax!__% _g15813_)) + (lambda _g17020_ + (let ((_g17019_ (let () (declare (not safe)) (##length _g17020_)))) + (cond ((let () (declare (not safe)) (##fx= _g17019_ 2)) + (apply (lambda (_id16722_ _e16723_) + (let () + (declare (not safe)) + (__core-bind-syntax!__0 _id16722_ _e16723_))) + _g17020_)) + ((let () (declare (not safe)) (##fx= _g17019_ 3)) + (apply (lambda (_id16727_ _e16728_ _make16729_) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + _id16727_ + _e16728_ + _make16729_))) + _g17020_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g15813_)))))) + _g17020_)))))) (define __core-bind-macro! - (lambda (_id15509_ _e15510_) - (__core-bind-syntax!__% _id15509_ _e15510_ make-__macro))) + (lambda (_id16711_ _e16712_) + (let () + (declare (not safe)) + (__core-bind-syntax!__% _id16711_ _e16712_ make-__macro)))) (define __core-bind-special-form! - (lambda (_id15506_ _e15507_) - (__core-bind-syntax!__% _id15506_ _e15507_ make-__special-form))) + (lambda (_id16708_ _e16709_) + (let () + (declare (not safe)) + (__core-bind-syntax!__% _id16708_ _e16709_ make-__special-form)))) (define __core-bind-user-syntax!__% - (lambda (_id15490_ _e15491_ _ctx15492_) - (table-set! - (##structure-ref _ctx15492_ '4 __context::t '#f) - (__AST-e _id15490_) - (if (let () - (declare (not safe)) - (##structure-instance-of? - _e15491_ - 'gerbil/runtime/eval#__syntax::t)) - _e15491_ - (let ((__tmp15814 (__AST-e _id15490_))) - (declare (not safe)) - (##structure __syntax::t _e15491_ __tmp15814)))))) + (lambda (_id16692_ _e16693_ _ctx16694_) + (let ((__tmp17024 (##structure-ref _ctx16694_ '4 __context::t '#f)) + (__tmp17023 (let () (declare (not safe)) (__AST-e _id16692_))) + (__tmp17021 + (if (let () + (declare (not safe)) + (##structure-instance-of? + _e16693_ + 'gerbil/runtime/eval#__syntax::t)) + _e16693_ + (let ((__tmp17022 + (let () (declare (not safe)) (__AST-e _id16692_)))) + (declare (not safe)) + (##structure __syntax::t _e16693_ __tmp17022))))) + (declare (not safe)) + (table-set! __tmp17024 __tmp17023 __tmp17021)))) (define __core-bind-user-syntax!__0 - (lambda (_id15497_ _e15498_) - (let ((_ctx15500_ (__current-context))) - (__core-bind-user-syntax!__% _id15497_ _e15498_ _ctx15500_)))) + (lambda (_id16699_ _e16700_) + (let ((_ctx16702_ (__current-context))) + (declare (not safe)) + (__core-bind-user-syntax!__% _id16699_ _e16700_ _ctx16702_)))) (define __core-bind-user-syntax! - (lambda _g15816_ - (let ((_g15815_ (let () (declare (not safe)) (##length _g15816_)))) - (cond ((let () (declare (not safe)) (##fx= _g15815_ 2)) - (apply __core-bind-user-syntax!__0 _g15816_)) - ((let () (declare (not safe)) (##fx= _g15815_ 3)) - (apply __core-bind-user-syntax!__% _g15816_)) + (lambda _g17026_ + (let ((_g17025_ (let () (declare (not safe)) (##length _g17026_)))) + (cond ((let () (declare (not safe)) (##fx= _g17025_ 2)) + (apply (lambda (_id16699_ _e16700_) + (let () + (declare (not safe)) + (__core-bind-user-syntax!__0 _id16699_ _e16700_))) + _g17026_)) + ((let () (declare (not safe)) (##fx= _g17025_ 3)) + (apply (lambda (_id16704_ _e16705_ _ctx16706_) + (let () + (declare (not safe)) + (__core-bind-user-syntax!__% + _id16704_ + _e16705_ + _ctx16706_))) + _g17026_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-user-syntax! - _g15816_)))))) + _g17026_)))))) (define make-__runtime-id__% - (lambda (_id15471_ _ctx15472_) - (let ((_id15474_ (__AST-e _id15471_))) - (if (eq? _id15474_ '_) + (lambda (_id16673_ _ctx16674_) + (let ((_id16676_ (let () (declare (not safe)) (__AST-e _id16673_)))) + (if (let () (declare (not safe)) (eq? _id16676_ '_)) '#f - (if (uninterned-symbol? _id15474_) - (gensym _id15474_) - (if (symbol? _id15474_) - (let ((_$e15476_ - (##structure-ref _ctx15472_ '1 __context::t '#f))) - (if (eq? 'local _$e15476_) - (gensym _id15474_) - (if (eq? 'module _$e15476_) - (make-symbol - (##structure-ref - _ctx15472_ - '2 - __context::t - '#f) - '"#" - _id15474_) - _id15474_))) - (error '"Illegal runtime identifier" _id15474_))))))) + (if (let () (declare (not safe)) (uninterned-symbol? _id16676_)) + (let () (declare (not safe)) (gensym _id16676_)) + (if (let () (declare (not safe)) (symbol? _id16676_)) + (let ((_$e16678_ + (##structure-ref _ctx16674_ '1 __context::t '#f))) + (if (let () + (declare (not safe)) + (eq? 'local _$e16678_)) + (let () (declare (not safe)) (gensym _id16676_)) + (if (let () + (declare (not safe)) + (eq? 'module _$e16678_)) + (let ((__tmp17027 + (##structure-ref + _ctx16674_ + '2 + __context::t + '#f))) + (declare (not safe)) + (make-symbol __tmp17027 '"#" _id16676_)) + _id16676_))) + (let () + (declare (not safe)) + (error '"Illegal runtime identifier" _id16676_)))))))) (define make-__runtime-id__0 - (lambda (_id15482_) - (let ((_ctx15484_ (__current-context))) - (make-__runtime-id__% _id15482_ _ctx15484_)))) + (lambda (_id16684_) + (let ((_ctx16686_ (__current-context))) + (declare (not safe)) + (make-__runtime-id__% _id16684_ _ctx16686_)))) (define make-__runtime-id - (lambda _g15818_ - (let ((_g15817_ (let () (declare (not safe)) (##length _g15818_)))) - (cond ((let () (declare (not safe)) (##fx= _g15817_ 1)) - (apply make-__runtime-id__0 _g15818_)) - ((let () (declare (not safe)) (##fx= _g15817_ 2)) - (apply make-__runtime-id__% _g15818_)) + (lambda _g17029_ + (let ((_g17028_ (let () (declare (not safe)) (##length _g17029_)))) + (cond ((let () (declare (not safe)) (##fx= _g17028_ 1)) + (apply (lambda (_id16684_) + (let () + (declare (not safe)) + (make-__runtime-id__0 _id16684_))) + _g17029_)) + ((let () (declare (not safe)) (##fx= _g17028_ 2)) + (apply (lambda (_id16688_ _ctx16689_) + (let () + (declare (not safe)) + (make-__runtime-id__% _id16688_ _ctx16689_))) + _g17029_)) (else (##raise-wrong-number-of-arguments-exception make-__runtime-id - _g15818_)))))) + _g17029_)))))) (define make-__context-local__% - (lambda (_super15460_) - (let ((__tmp15819 (make-table 'test: eq?))) + (lambda (_super16662_) + (let ((__tmp17030 + (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'local '#f _super15460_ __tmp15819)))) + (##structure __context::t 'local '#f _super16662_ __tmp17030)))) (define make-__context-local__0 (lambda () - (let ((_super15466_ (__current-context))) - (make-__context-local__% _super15466_)))) + (let ((_super16668_ (__current-context))) + (declare (not safe)) + (make-__context-local__% _super16668_)))) (define make-__context-local - (lambda _g15821_ - (let ((_g15820_ (let () (declare (not safe)) (##length _g15821_)))) - (cond ((let () (declare (not safe)) (##fx= _g15820_ 0)) - (apply make-__context-local__0 _g15821_)) - ((let () (declare (not safe)) (##fx= _g15820_ 1)) - (apply make-__context-local__% _g15821_)) + (lambda _g17032_ + (let ((_g17031_ (let () (declare (not safe)) (##length _g17032_)))) + (cond ((let () (declare (not safe)) (##fx= _g17031_ 0)) + (apply (lambda () + (let () + (declare (not safe)) + (make-__context-local__0))) + _g17032_)) + ((let () (declare (not safe)) (##fx= _g17031_ 1)) + (apply (lambda (_super16670_) + (let () + (declare (not safe)) + (make-__context-local__% _super16670_))) + _g17032_)) (else (##raise-wrong-number-of-arguments-exception make-__context-local - _g15821_)))))) + _g17032_)))))) (define make-__context-module__% - (lambda (_id15440_ _ns15441_ _path15442_ _super15443_) - (let ((__tmp15822 (make-table 'test: eq?))) + (lambda (_id16642_ _ns16643_ _path16644_ _super16645_) + (let ((__tmp17033 + (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) (##structure __module::t 'module - _ns15441_ - _super15443_ - __tmp15822 - _id15440_ - _path15442_ + _ns16643_ + _super16645_ + __tmp17033 + _id16642_ + _path16644_ '#f '#f)))) (define make-__context-module__0 - (lambda (_id15448_ _ns15449_ _path15450_) - (let ((_super15452_ (__current-context))) + (lambda (_id16650_ _ns16651_ _path16652_) + (let ((_super16654_ (__current-context))) + (declare (not safe)) (make-__context-module__% - _id15448_ - _ns15449_ - _path15450_ - _super15452_)))) + _id16650_ + _ns16651_ + _path16652_ + _super16654_)))) (define make-__context-module - (lambda _g15824_ - (let ((_g15823_ (let () (declare (not safe)) (##length _g15824_)))) - (cond ((let () (declare (not safe)) (##fx= _g15823_ 3)) - (apply make-__context-module__0 _g15824_)) - ((let () (declare (not safe)) (##fx= _g15823_ 4)) - (apply make-__context-module__% _g15824_)) + (lambda _g17035_ + (let ((_g17034_ (let () (declare (not safe)) (##length _g17035_)))) + (cond ((let () (declare (not safe)) (##fx= _g17034_ 3)) + (apply (lambda (_id16650_ _ns16651_ _path16652_) + (let () + (declare (not safe)) + (make-__context-module__0 + _id16650_ + _ns16651_ + _path16652_))) + _g17035_)) + ((let () (declare (not safe)) (##fx= _g17034_ 4)) + (apply (lambda (_id16656_ _ns16657_ _path16658_ _super16659_) + (let () + (declare (not safe)) + (make-__context-module__% + _id16656_ + _ns16657_ + _path16658_ + _super16659_))) + _g17035_)) (else (##raise-wrong-number-of-arguments-exception make-__context-module - _g15824_)))))) + _g17035_)))))) (define __SRC__% - (lambda (_e15423_ _src-stx15424_) - (if (or (pair? _e15423_) (symbol? _e15423_)) - (let ((__tmp15825 + (lambda (_e16625_ _src-stx16626_) + (if (or (let () (declare (not safe)) (pair? _e16625_)) + (let () (declare (not safe)) (symbol? _e16625_))) + (let ((__tmp17039 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx15424_ + _src-stx16626_ 'gerbil#AST::t)) - (__locat (__AST-source _src-stx15424_)) + (let ((__tmp17040 + (let () + (declare (not safe)) + (__AST-source _src-stx16626_)))) + (declare (not safe)) + (__locat __tmp17040)) '#f))) (declare (not safe)) - (##make-source _e15423_ __tmp15825)) + (##make-source _e16625_ __tmp17039)) (if (let () (declare (not safe)) - (##structure-instance-of? _e15423_ 'gerbil#AST::t)) - (let ((__tmp15827 + (##structure-instance-of? _e16625_ 'gerbil#AST::t)) + (let ((__tmp17038 (let () (declare (not safe)) - (##unchecked-structure-ref _e15423_ '1 AST::t '#f))) - (__tmp15826 (__locat (__AST-source _e15423_)))) + (##unchecked-structure-ref _e16625_ '1 AST::t '#f))) + (__tmp17036 + (let ((__tmp17037 + (let () + (declare (not safe)) + (__AST-source _e16625_)))) + (declare (not safe)) + (__locat __tmp17037)))) (declare (not safe)) - (##make-source __tmp15827 __tmp15826)) - (error '"BUG! Cannot sourcify object" _e15423_))))) + (##make-source __tmp17038 __tmp17036)) + (let () + (declare (not safe)) + (error '"BUG! Cannot sourcify object" _e16625_)))))) (define __SRC__0 - (lambda (_e15432_) - (let ((_src-stx15434_ '#f)) (__SRC__% _e15432_ _src-stx15434_)))) + (lambda (_e16634_) + (let ((_src-stx16636_ '#f)) + (declare (not safe)) + (__SRC__% _e16634_ _src-stx16636_)))) (define __SRC - (lambda _g15829_ - (let ((_g15828_ (let () (declare (not safe)) (##length _g15829_)))) - (cond ((let () (declare (not safe)) (##fx= _g15828_ 1)) - (apply __SRC__0 _g15829_)) - ((let () (declare (not safe)) (##fx= _g15828_ 2)) - (apply __SRC__% _g15829_)) + (lambda _g17042_ + (let ((_g17041_ (let () (declare (not safe)) (##length _g17042_)))) + (cond ((let () (declare (not safe)) (##fx= _g17041_ 1)) + (apply (lambda (_e16634_) + (let () (declare (not safe)) (__SRC__0 _e16634_))) + _g17042_)) + ((let () (declare (not safe)) (##fx= _g17041_ 2)) + (apply (lambda (_e16638_ _src-stx16639_) + (let () + (declare (not safe)) + (__SRC__% _e16638_ _src-stx16639_))) + _g17042_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g15829_)))))) + _g17042_)))))) (define __locat - (lambda (_loc15420_) - (if (let () (declare (not safe)) (##locat? _loc15420_)) - _loc15420_ + (lambda (_loc16622_) + (if (let () (declare (not safe)) (##locat? _loc16622_)) + _loc16622_ '#f))) (define __check-values - (lambda (_obj15415_ _k15416_) - (let ((_count15418_ - (if (let () (declare (not safe)) (##values? _obj15415_)) - (let () (declare (not safe)) (##vector-length _obj15415_)) + (lambda (_obj16617_ _k16618_) + (let ((_count16620_ + (if (let () (declare (not safe)) (##values? _obj16617_)) + (let () (declare (not safe)) (##vector-length _obj16617_)) '1))) - (if (fx= _count15418_ _k15416_) + (if (fx= _count16620_ _k16618_) '#!void - (error (if (fx< _count15418_ _k15416_) + (let ((__tmp17044 + (if (fx< _count16620_ _k16618_) '"Too few values for context" - '"Too many values for context") - (if (let () (declare (not safe)) (##values? _obj15415_)) + '"Too many values for context")) + (__tmp17043 + (if (let () (declare (not safe)) (##values? _obj16617_)) (let () (declare (not safe)) - (##vector->list _obj15415_)) - _obj15415_) - _k15416_))))) + (##vector->list _obj16617_)) + _obj16617_))) + (declare (not safe)) + (error __tmp17044 __tmp17043 _k16618_)))))) (define __compile - (lambda (_stx15385_) - (let* ((_$e15387_ _stx15385_) - (_$E1538915395_ + (lambda (_stx16587_) + (let* ((_$e16589_ _stx16587_) + (_$E1659116597_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e15387_)))) - (if (__AST-pair? _$e15387_) - (let* ((_$tgt1539015398_ (__AST-e _$e15387_)) - (_$hd1539115401_ - (let () (declare (not safe)) (##car _$tgt1539015398_))) - (_$tl1539215404_ - (let () (declare (not safe)) (##cdr _$tgt1539015398_)))) - (let* ((_form15408_ _$hd1539115401_) - (_$e15410_ (__core-resolve__0 _form15408_))) - (if _$e15410_ - ((lambda (_bind15413_) - ((##structure-ref _bind15413_ '1 __syntax::t '#f) - _stx15385_)) - _$e15410_) - (__raise-syntax-error - '#f - '"Bad syntax" - _stx15385_ - _form15408_)))) - (_$E1538915395_))))) + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e16589_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16589_)) + (let* ((_$tgt1659216600_ + (let () (declare (not safe)) (__AST-e _$e16589_))) + (_$hd1659316603_ + (let () (declare (not safe)) (##car _$tgt1659216600_))) + (_$tl1659416606_ + (let () (declare (not safe)) (##cdr _$tgt1659216600_)))) + (let* ((_form16610_ _$hd1659316603_) + (_$e16612_ + (let () + (declare (not safe)) + (__core-resolve__0 _form16610_)))) + (if _$e16612_ + ((lambda (_bind16615_) + ((##structure-ref _bind16615_ '1 __syntax::t '#f) + _stx16587_)) + _$e16612_) + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax" + _stx16587_ + _form16610_))))) + (let () (declare (not safe)) (_$E1659116597_)))))) (define __compile-error__% - (lambda (_stx15372_ _detail15373_) - (__raise-syntax-error - 'compile - '"Bad syntax; cannot compile" - _stx15372_ - _detail15373_))) + (lambda (_stx16574_ _detail16575_) + (let () + (declare (not safe)) + (__raise-syntax-error + 'compile + '"Bad syntax; cannot compile" + _stx16574_ + _detail16575_)))) (define __compile-error__0 - (lambda (_stx15378_) - (let ((_detail15380_ '#f)) - (__compile-error__% _stx15378_ _detail15380_)))) + (lambda (_stx16580_) + (let ((_detail16582_ '#f)) + (declare (not safe)) + (__compile-error__% _stx16580_ _detail16582_)))) (define __compile-error - (lambda _g15831_ - (let ((_g15830_ (let () (declare (not safe)) (##length _g15831_)))) - (cond ((let () (declare (not safe)) (##fx= _g15830_ 1)) - (apply __compile-error__0 _g15831_)) - ((let () (declare (not safe)) (##fx= _g15830_ 2)) - (apply __compile-error__% _g15831_)) + (lambda _g17046_ + (let ((_g17045_ (let () (declare (not safe)) (##length _g17046_)))) + (cond ((let () (declare (not safe)) (##fx= _g17045_ 1)) + (apply (lambda (_stx16580_) + (let () + (declare (not safe)) + (__compile-error__0 _stx16580_))) + _g17046_)) + ((let () (declare (not safe)) (##fx= _g17045_ 2)) + (apply (lambda (_stx16584_ _detail16585_) + (let () + (declare (not safe)) + (__compile-error__% _stx16584_ _detail16585_))) + _g17046_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g15831_)))))) + _g17046_)))))) (define __compile-ignore% - (lambda (_stx15369_) (__SRC__% ''#!void _stx15369_))) + (lambda (_stx16571_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx16571_)))) (define __compile-begin% - (lambda (_stx15344_) - (let* ((_$e15346_ _stx15344_) - (_$E1534815354_ + (lambda (_stx16546_) + (let* ((_$e16548_ _stx16546_) + (_$E1655016556_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e15346_)))) - (if (__AST-pair? _$e15346_) - (let* ((_$tgt1534915357_ (__AST-e _$e15346_)) - (_$hd1535015360_ - (let () (declare (not safe)) (##car _$tgt1534915357_))) - (_$tl1535115363_ - (let () (declare (not safe)) (##cdr _$tgt1534915357_)))) - (let ((_body15367_ _$tl1535115363_)) - (__SRC__% - (cons 'begin (map __compile _body15367_)) - _stx15344_))) - (_$E1534815354_))))) + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e16548_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16548_)) + (let* ((_$tgt1655116559_ + (let () (declare (not safe)) (__AST-e _$e16548_))) + (_$hd1655216562_ + (let () (declare (not safe)) (##car _$tgt1655116559_))) + (_$tl1655316565_ + (let () (declare (not safe)) (##cdr _$tgt1655116559_)))) + (let* ((_body16569_ _$tl1655316565_) + (__tmp17047 + (let ((__tmp17048 + (let () + (declare (not safe)) + (map __compile _body16569_)))) + (declare (not safe)) + (cons 'begin __tmp17048)))) + (declare (not safe)) + (__SRC__% __tmp17047 _stx16546_))) + (let () (declare (not safe)) (_$E1655016556_)))))) (define __compile-begin-foreign% - (lambda (_stx15319_) - (let* ((_$e15321_ _stx15319_) - (_$E1532315329_ + (lambda (_stx16521_) + (let* ((_$e16523_ _stx16521_) + (_$E1652516531_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e15321_)))) - (if (__AST-pair? _$e15321_) - (let* ((_$tgt1532415332_ (__AST-e _$e15321_)) - (_$hd1532515335_ - (let () (declare (not safe)) (##car _$tgt1532415332_))) - (_$tl1532615338_ - (let () (declare (not safe)) (##cdr _$tgt1532415332_)))) - (let ((_body15342_ _$tl1532615338_)) - (__SRC__% - (cons 'begin (__AST->datum _body15342_)) - _stx15319_))) - (_$E1532315329_))))) + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e16523_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16523_)) + (let* ((_$tgt1652616534_ + (let () (declare (not safe)) (__AST-e _$e16523_))) + (_$hd1652716537_ + (let () (declare (not safe)) (##car _$tgt1652616534_))) + (_$tl1652816540_ + (let () (declare (not safe)) (##cdr _$tgt1652616534_)))) + (let* ((_body16544_ _$tl1652816540_) + (__tmp17049 + (let ((__tmp17050 + (let () + (declare (not safe)) + (__AST->datum _body16544_)))) + (declare (not safe)) + (cons 'begin __tmp17050)))) + (declare (not safe)) + (__SRC__% __tmp17049 _stx16521_))) + (let () (declare (not safe)) (_$E1652516531_)))))) (define __compile-import% - (lambda (_stx15294_) - (let* ((_$e15296_ _stx15294_) - (_$E1529815304_ + (lambda (_stx16496_) + (let* ((_$e16498_ _stx16496_) + (_$E1650016506_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e15296_)))) - (if (__AST-pair? _$e15296_) - (let* ((_$tgt1529915307_ (__AST-e _$e15296_)) - (_$hd1530015310_ - (let () (declare (not safe)) (##car _$tgt1529915307_))) - (_$tl1530115313_ - (let () (declare (not safe)) (##cdr _$tgt1529915307_)))) - (let ((_body15317_ _$tl1530115313_)) - (__SRC__% - (cons '__eval-import - (cons (cons 'quote (cons _body15317_ '())) '())) - _stx15294_))) - (_$E1529815304_))))) + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e16498_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16498_)) + (let* ((_$tgt1650116509_ + (let () (declare (not safe)) (__AST-e _$e16498_))) + (_$hd1650216512_ + (let () (declare (not safe)) (##car _$tgt1650116509_))) + (_$tl1650316515_ + (let () (declare (not safe)) (##cdr _$tgt1650116509_)))) + (let* ((_body16519_ _$tl1650316515_) + (__tmp17051 + (let ((__tmp17052 + (let ((__tmp17053 + (let ((__tmp17054 + (let () + (declare (not safe)) + (cons _body16519_ '())))) + (declare (not safe)) + (cons 'quote __tmp17054)))) + (declare (not safe)) + (cons __tmp17053 '())))) + (declare (not safe)) + (cons '__eval-import __tmp17052)))) + (declare (not safe)) + (__SRC__% __tmp17051 _stx16496_))) + (let () (declare (not safe)) (_$E1650016506_)))))) (define __compile-begin-annotation% - (lambda (_stx15241_) - (let* ((_$e15243_ _stx15241_) - (_$E1524515257_ + (lambda (_stx16443_) + (let* ((_$e16445_ _stx16443_) + (_$E1644716459_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e15243_)))) - (if (__AST-pair? _$e15243_) - (let* ((_$tgt1524615260_ (__AST-e _$e15243_)) - (_$hd1524715263_ - (let () (declare (not safe)) (##car _$tgt1524615260_))) - (_$tl1524815266_ - (let () (declare (not safe)) (##cdr _$tgt1524615260_)))) - (if (__AST-pair? _$tl1524815266_) - (let* ((_$tgt1524915270_ (__AST-e _$tl1524815266_)) - (_$hd1525015273_ + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e16445_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16445_)) + (let* ((_$tgt1644816462_ + (let () (declare (not safe)) (__AST-e _$e16445_))) + (_$hd1644916465_ + (let () (declare (not safe)) (##car _$tgt1644816462_))) + (_$tl1645016468_ + (let () (declare (not safe)) (##cdr _$tgt1644816462_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1645016468_)) + (let* ((_$tgt1645116472_ (let () (declare (not safe)) - (##car _$tgt1524915270_))) - (_$tl1525115276_ + (__AST-e _$tl1645016468_))) + (_$hd1645216475_ (let () (declare (not safe)) - (##cdr _$tgt1524915270_)))) - (let ((_ann15280_ _$hd1525015273_)) - (if (__AST-pair? _$tl1525115276_) - (let* ((_$tgt1525215282_ (__AST-e _$tl1525115276_)) - (_$hd1525315285_ + (##car _$tgt1645116472_))) + (_$tl1645316478_ + (let () + (declare (not safe)) + (##cdr _$tgt1645116472_)))) + (let ((_ann16482_ _$hd1645216475_)) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1645316478_)) + (let* ((_$tgt1645416484_ (let () (declare (not safe)) - (##car _$tgt1525215282_))) - (_$tl1525415288_ + (__AST-e _$tl1645316478_))) + (_$hd1645516487_ (let () (declare (not safe)) - (##cdr _$tgt1525215282_)))) - (let ((_expr15292_ _$hd1525315285_)) - (if (equal? (__AST-e _$tl1525415288_) '()) - (__compile _expr15292_) - (_$E1524515257_)))) - (_$E1524515257_)))) - (_$E1524515257_))) - (_$E1524515257_))))) + (##car _$tgt1645416484_))) + (_$tl1645616490_ + (let () + (declare (not safe)) + (##cdr _$tgt1645416484_)))) + (let ((_expr16494_ _$hd1645516487_)) + (if (let ((__tmp17055 + (let () + (declare (not safe)) + (__AST-e _$tl1645616490_)))) + (declare (not safe)) + (equal? __tmp17055 '())) + (let () + (declare (not safe)) + (__compile _expr16494_)) + (let () + (declare (not safe)) + (_$E1644716459_))))) + (let () (declare (not safe)) (_$E1644716459_))))) + (let () (declare (not safe)) (_$E1644716459_)))) + (let () (declare (not safe)) (_$E1644716459_)))))) (define __compile-define-values% - (lambda (_stx15132_) - (let* ((_$e15134_ _stx15132_) - (_$E1513615148_ + (lambda (_stx16334_) + (let* ((_$e16336_ _stx16334_) + (_$E1633816350_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e15134_)))) - (if (__AST-pair? _$e15134_) - (let* ((_$tgt1513715151_ (__AST-e _$e15134_)) - (_$hd1513815154_ - (let () (declare (not safe)) (##car _$tgt1513715151_))) - (_$tl1513915157_ - (let () (declare (not safe)) (##cdr _$tgt1513715151_)))) - (if (__AST-pair? _$tl1513915157_) - (let* ((_$tgt1514015161_ (__AST-e _$tl1513915157_)) - (_$hd1514115164_ + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e16336_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16336_)) + (let* ((_$tgt1633916353_ + (let () (declare (not safe)) (__AST-e _$e16336_))) + (_$hd1634016356_ + (let () (declare (not safe)) (##car _$tgt1633916353_))) + (_$tl1634116359_ + (let () (declare (not safe)) (##cdr _$tgt1633916353_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1634116359_)) + (let* ((_$tgt1634216363_ + (let () + (declare (not safe)) + (__AST-e _$tl1634116359_))) + (_$hd1634316366_ (let () (declare (not safe)) - (##car _$tgt1514015161_))) - (_$tl1514215167_ + (##car _$tgt1634216363_))) + (_$tl1634416369_ (let () (declare (not safe)) - (##cdr _$tgt1514015161_)))) - (let ((_hd15171_ _$hd1514115164_)) - (if (__AST-pair? _$tl1514215167_) - (let* ((_$tgt1514315173_ (__AST-e _$tl1514215167_)) - (_$hd1514415176_ + (##cdr _$tgt1634216363_)))) + (let ((_hd16373_ _$hd1634316366_)) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1634416369_)) + (let* ((_$tgt1634516375_ + (let () + (declare (not safe)) + (__AST-e _$tl1634416369_))) + (_$hd1634616378_ (let () (declare (not safe)) - (##car _$tgt1514315173_))) - (_$tl1514515179_ + (##car _$tgt1634516375_))) + (_$tl1634716381_ (let () (declare (not safe)) - (##cdr _$tgt1514315173_)))) - (let ((_expr15183_ _$hd1514415176_)) - (if (equal? (__AST-e _$tl1514515179_) '()) - (let* ((_$e15185_ _hd15171_) - (_$E1518715228_ + (##cdr _$tgt1634516375_)))) + (let ((_expr16385_ _$hd1634616378_)) + (if (let ((__tmp17088 + (let () + (declare (not safe)) + (__AST-e _$tl1634716381_)))) + (declare (not safe)) + (equal? __tmp17088 '())) + (let* ((_$e16387_ _hd16373_) + (_$E1638916430_ (lambda () - (let ((_$E1518815213_ + (let ((_$E1639016415_ (lambda () - (let* ((_$E1518915200_ + (let* ((_$E1639116402_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (__raise-syntax-error '#f '"Bad syntax" _$e15185_))) - (_ids15203_ _hd15171_) - (_len15205_ (length _ids15203_)) - (_tmp15207_ (__SRC__0 (gensym)))) - (__SRC__% - (cons 'begin - (cons (__SRC__% - (cons 'define - (cons _tmp15207_ - (cons (__compile _expr15183_) '()))) - _stx15132_) - (cons (__SRC__% - (cons '__check-values - (cons _tmp15207_ - (cons _len15205_ '()))) - _stx15132_) - (foldr1 cons - '() - (filter-map2 - (lambda (_id15210_ _k15211_) - (if (__AST-e _id15210_) - (__SRC__% - (cons 'define - (cons (__SRC__0 + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax" + _$e16387_)))) + (_ids16405_ _hd16373_) + (_len16407_ (length _ids16405_)) + (_tmp16409_ + (let ((__tmp17056 + (let () (declare (not safe)) (gensym)))) + (declare (not safe)) + (__SRC__0 __tmp17056)))) + (let ((__tmp17057 + (let ((__tmp17058 + (let ((__tmp17075 + (let ((__tmp17076 + (let ((__tmp17077 + (let ((__tmp17078 + (let ((__tmp17079 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (__compile _expr16385_)))) + (declare (not safe)) + (cons __tmp17079 '())))) + (declare (not safe)) + (cons _tmp16409_ __tmp17078)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'define __tmp17077)))) + (declare (not safe)) + (__SRC__% __tmp17076 _stx16334_))) + (__tmp17059 + (let ((__tmp17071 + (let ((__tmp17072 + (let ((__tmp17073 + (let ((__tmp17074 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _len16407_ '())))) + (declare (not safe)) + (cons _tmp16409_ __tmp17074)))) + (declare (not safe)) + (cons '__check-values __tmp17073)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (__SRC__% + __tmp17072 + _stx16334_))) + (__tmp17060 + (let ((__tmp17061 + (let ((__tmp17063 + (lambda (_id16412_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id15210_) - (cons (cons '##vector-ref - (cons _tmp15207_ (cons _k15211_ '()))) - '()))) + _k16413_) + (if (let () (declare (not safe)) (__AST-e _id16412_)) + (let ((__tmp17064 + (let ((__tmp17065 + (let ((__tmp17070 + (let () + (declare (not safe)) + (__SRC__0 _id16412_))) + (__tmp17066 + (let ((__tmp17067 + (let ((__tmp17068 + (let ((__tmp17069 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _k16413_ '())))) + (declare (not safe)) + (cons _tmp16409_ __tmp17069)))) + (declare (not safe)) + (cons '##vector-ref __tmp17068)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx15132_) - '#f)) - _ids15203_ - (iota _len15205_)))))) - _stx15132_))))) + (declare (not safe)) + (cons __tmp17067 '())))) + (declare (not safe)) + (cons __tmp17070 __tmp17066)))) + (declare (not safe)) + (cons 'define __tmp17065)))) + (declare (not safe)) + (__SRC__% __tmp17064 _stx16334_)) + '#f))) + (__tmp17062 (let () (declare (not safe)) (iota _len16407_)))) + (declare (not safe)) + (filter-map2 __tmp17063 _ids16405_ __tmp17062)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 cons '() __tmp17061)))) + (declare (not safe)) + (cons __tmp17071 __tmp17060)))) + (declare (not safe)) + (cons __tmp17075 __tmp17059)))) + (declare (not safe)) + (cons 'begin __tmp17058)))) + (declare (not safe)) + (__SRC__% __tmp17057 _stx16334_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (__AST-pair? _$e15185_) - (let* ((_$tgt1519015216_ - (__AST-e _$e15185_)) - (_$hd1519115219_ + (if (let () + (declare (not safe)) + (__AST-pair? _$e16387_)) + (let* ((_$tgt1639216418_ + (let () + (declare + (not safe)) + (__AST-e _$e16387_))) + (_$hd1639316421_ (let () (declare (not safe)) - (##car _$tgt1519015216_))) - (_$tl1519215222_ + (##car _$tgt1639216418_))) + (_$tl1639416424_ (let () (declare (not safe)) - (##cdr _$tgt1519015216_)))) - (let ((_id15226_ - _$hd1519115219_)) - (if (equal? (__AST-e _$tl1519215222_) + (##cdr _$tgt1639216418_)))) + (let ((_id16428_ + _$hd1639316421_)) + (if (let ((__tmp17085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (__SRC__% - (cons 'define - (cons (__SRC__0 _id15226_) - (cons (__compile _expr15183_) '()))) - _stx15132_) - (_$E1518815213_)))) + (let () + (declare (not safe)) + (__AST-e _$tl1639416424_)))) + (declare (not safe)) + (equal? __tmp17085 '())) + (let ((__tmp17080 + (let ((__tmp17081 + (let ((__tmp17084 + (let () + (declare (not safe)) + (__SRC__0 _id16428_))) + (__tmp17082 + (let ((__tmp17083 + (let () + (declare (not safe)) + (__compile _expr16385_)))) + (declare (not safe)) + (cons __tmp17083 '())))) + (declare (not safe)) + (cons __tmp17084 __tmp17082)))) + (declare (not safe)) + (cons 'define __tmp17081)))) + (declare (not safe)) + (__SRC__% __tmp17080 _stx16334_)) + (let () (declare (not safe)) (_$E1639016415_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$E1518815213_)))))) - (if (__AST-pair? _$e15185_) - (let* ((_$tgt1519315231_ - (__AST-e _$e15185_)) - (_$hd1519415234_ + (let () + (declare (not safe)) + (_$E1639016415_))))))) + (if (let () + (declare (not safe)) + (__AST-pair? _$e16387_)) + (let* ((_$tgt1639516433_ (let () (declare (not safe)) - (##car _$tgt1519315231_))) - (_$tl1519515237_ + (__AST-e _$e16387_))) + (_$hd1639616436_ (let () (declare (not safe)) - (##cdr _$tgt1519315231_)))) - (if (equal? (__AST-e _$hd1519415234_) - '#f) - (if (equal? (__AST-e _$tl1519515237_) - '()) - (__compile _expr15183_) - (_$E1518715228_)) - (_$E1518715228_))) - (_$E1518715228_))) - (_$E1513615148_)))) - (_$E1513615148_)))) - (_$E1513615148_))) - (_$E1513615148_))))) + (##car _$tgt1639516433_))) + (_$tl1639716439_ + (let () + (declare (not safe)) + (##cdr _$tgt1639516433_)))) + (if (let ((__tmp17087 + (let () + (declare (not safe)) + (__AST-e _$hd1639616436_)))) + (declare (not safe)) + (equal? __tmp17087 '#f)) + (if (let ((__tmp17086 + (let () + (declare + (not safe)) + (__AST-e _$tl1639716439_)))) + (declare (not safe)) + (equal? __tmp17086 '())) + (let () + (declare (not safe)) + (__compile _expr16385_)) + (let () + (declare (not safe)) + (_$E1638916430_))) + (let () + (declare (not safe)) + (_$E1638916430_)))) + (let () + (declare (not safe)) + (_$E1638916430_)))) + (let () + (declare (not safe)) + (_$E1633816350_))))) + (let () (declare (not safe)) (_$E1633816350_))))) + (let () (declare (not safe)) (_$E1633816350_)))) + (let () (declare (not safe)) (_$E1633816350_)))))) (define __compile-head-id - (lambda (_e15130_) (__SRC__0 (if (__AST-e _e15130_) _e15130_ (gensym))))) + (lambda (_e16332_) + (let ((__tmp17089 + (if (let () (declare (not safe)) (__AST-e _e16332_)) + _e16332_ + (let () (declare (not safe)) (gensym))))) + (declare (not safe)) + (__SRC__0 __tmp17089)))) (define __compile-lambda-head - (lambda (_hd15087_) - (let _recur15089_ ((_rest15091_ _hd15087_)) - (let* ((_$e15093_ _rest15091_) - (_$E1509515113_ + (lambda (_hd16289_) + (let _recur16291_ ((_rest16293_ _hd16289_)) + (let* ((_$e16295_ _rest16293_) + (_$E1629716315_ (lambda () - (let ((_$E1509615110_ + (let ((_$E1629816312_ (lambda () - (let* ((_$E1509715105_ + (let* ((_$E1629916307_ (lambda () - (__raise-syntax-error - '#f - '"Bad syntax" - _$e15093_))) - (_tail15108_ _$e15093_)) - (__compile-head-id _tail15108_))))) - (if (equal? (__AST-e _$e15093_) '()) + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax" + _$e16295_)))) + (_tail16310_ _$e16295_)) + (declare (not safe)) + (__compile-head-id _tail16310_))))) + (if (let ((__tmp17090 + (let () + (declare (not safe)) + (__AST-e _$e16295_)))) + (declare (not safe)) + (equal? __tmp17090 '())) '() - (_$E1509615110_)))))) - (if (__AST-pair? _$e15093_) - (let* ((_$tgt1509815116_ (__AST-e _$e15093_)) - (_$hd1509915119_ - (let () (declare (not safe)) (##car _$tgt1509815116_))) - (_$tl1510015122_ + (let () (declare (not safe)) (_$E1629816312_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16295_)) + (let* ((_$tgt1630016318_ + (let () (declare (not safe)) (__AST-e _$e16295_))) + (_$hd1630116321_ + (let () (declare (not safe)) (##car _$tgt1630016318_))) + (_$tl1630216324_ (let () (declare (not safe)) - (##cdr _$tgt1509815116_)))) - (let* ((_hd15126_ _$hd1509915119_) - (_rest15128_ _$tl1510015122_)) - (cons (__compile-head-id _hd15126_) - (_recur15089_ _rest15128_)))) - (_$E1509515113_)))))) + (##cdr _$tgt1630016318_)))) + (let* ((_hd16328_ _$hd1630116321_) + (_rest16330_ _$tl1630216324_)) + (let ((__tmp17092 + (let () + (declare (not safe)) + (__compile-head-id _hd16328_))) + (__tmp17091 + (let () + (declare (not safe)) + (_recur16291_ _rest16330_)))) + (declare (not safe)) + (cons __tmp17092 __tmp17091)))) + (let () (declare (not safe)) (_$E1629716315_))))))) (define __compile-lambda% - (lambda (_stx15034_) - (let* ((_$e15036_ _stx15034_) - (_$E1503815050_ + (lambda (_stx16236_) + (let* ((_$e16238_ _stx16236_) + (_$E1624016252_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e15036_)))) - (if (__AST-pair? _$e15036_) - (let* ((_$tgt1503915053_ (__AST-e _$e15036_)) - (_$hd1504015056_ - (let () (declare (not safe)) (##car _$tgt1503915053_))) - (_$tl1504115059_ - (let () (declare (not safe)) (##cdr _$tgt1503915053_)))) - (if (__AST-pair? _$tl1504115059_) - (let* ((_$tgt1504215063_ (__AST-e _$tl1504115059_)) - (_$hd1504315066_ + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e16238_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16238_)) + (let* ((_$tgt1624116255_ + (let () (declare (not safe)) (__AST-e _$e16238_))) + (_$hd1624216258_ + (let () (declare (not safe)) (##car _$tgt1624116255_))) + (_$tl1624316261_ + (let () (declare (not safe)) (##cdr _$tgt1624116255_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1624316261_)) + (let* ((_$tgt1624416265_ + (let () + (declare (not safe)) + (__AST-e _$tl1624316261_))) + (_$hd1624516268_ (let () (declare (not safe)) - (##car _$tgt1504215063_))) - (_$tl1504415069_ + (##car _$tgt1624416265_))) + (_$tl1624616271_ (let () (declare (not safe)) - (##cdr _$tgt1504215063_)))) - (let ((_hd15073_ _$hd1504315066_)) - (if (__AST-pair? _$tl1504415069_) - (let* ((_$tgt1504515075_ (__AST-e _$tl1504415069_)) - (_$hd1504615078_ + (##cdr _$tgt1624416265_)))) + (let ((_hd16275_ _$hd1624516268_)) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1624616271_)) + (let* ((_$tgt1624716277_ + (let () + (declare (not safe)) + (__AST-e _$tl1624616271_))) + (_$hd1624816280_ + (let () + (declare (not safe)) + (##car _$tgt1624716277_))) + (_$tl1624916283_ (let () (declare (not safe)) - (##car _$tgt1504515075_))) - (_$tl1504715081_ + (##cdr _$tgt1624716277_)))) + (let ((_body16287_ _$hd1624816280_)) + (if (let ((__tmp17098 + (let () + (declare (not safe)) + (__AST-e _$tl1624916283_)))) + (declare (not safe)) + (equal? __tmp17098 '())) + (let ((__tmp17093 + (let ((__tmp17094 + (let ((__tmp17097 + (let () + (declare (not safe)) + (__compile-lambda-head + _hd16275_))) + (__tmp17095 + (let ((__tmp17096 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (__compile _body16287_)))) + (declare (not safe)) + (cons __tmp17096 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17097 + __tmp17095)))) + (declare (not safe)) + (cons 'lambda __tmp17094)))) + (declare (not safe)) + (__SRC__% __tmp17093 _stx16236_)) (let () (declare (not safe)) - (##cdr _$tgt1504515075_)))) - (let ((_body15085_ _$hd1504615078_)) - (if (equal? (__AST-e _$tl1504715081_) '()) - (__SRC__% - (cons 'lambda - (cons (__compile-lambda-head - _hd15073_) - (cons (__compile _body15085_) - '()))) - _stx15034_) - (_$E1503815050_)))) - (_$E1503815050_)))) - (_$E1503815050_))) - (_$E1503815050_))))) + (_$E1624016252_))))) + (let () (declare (not safe)) (_$E1624016252_))))) + (let () (declare (not safe)) (_$E1624016252_)))) + (let () (declare (not safe)) (_$E1624016252_)))))) (define __compile-case-lambda% - (lambda (_stx14826_) - (letrec ((_variadic?14828_ - (lambda (_hd14999_) - (let* ((_$e15001_ _hd14999_) - (_$E1500315019_ + (lambda (_stx16028_) + (letrec ((_variadic?16030_ + (lambda (_hd16201_) + (let* ((_$e16203_ _hd16201_) + (_$E1620516221_ (lambda () - (let ((_$E1500415016_ + (let ((_$E1620616218_ (lambda () - (let ((_$E1500515013_ + (let ((_$E1620716215_ (lambda () - (__raise-syntax-error - '#f - '"Bad syntax" - _$e15001_)))) + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax" + _$e16203_))))) '#t)))) - (if (equal? (__AST-e _$e15001_) '()) + (if (let ((__tmp17099 + (let () + (declare (not safe)) + (__AST-e _$e16203_)))) + (declare (not safe)) + (equal? __tmp17099 '())) '#f - (_$E1500415016_)))))) - (if (__AST-pair? _$e15001_) - (let* ((_$tgt1500615022_ (__AST-e _$e15001_)) - (_$hd1500715025_ + (let () + (declare (not safe)) + (_$E1620616218_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16203_)) + (let* ((_$tgt1620816224_ + (let () + (declare (not safe)) + (__AST-e _$e16203_))) + (_$hd1620916227_ (let () (declare (not safe)) - (##car _$tgt1500615022_))) - (_$tl1500815028_ + (##car _$tgt1620816224_))) + (_$tl1621016230_ (let () (declare (not safe)) - (##cdr _$tgt1500615022_)))) - (let ((_rest15032_ _$tl1500815028_)) - (_variadic?14828_ _rest15032_))) - (_$E1500315019_))))) - (_arity14829_ - (lambda (_hd14964_) - (let _lp14966_ ((_rest14968_ _hd14964_) (_k14969_ '0)) - (let* ((_$e14971_ _rest14968_) - (_$E1497314984_ + (##cdr _$tgt1620816224_)))) + (let ((_rest16234_ _$tl1621016230_)) + (declare (not safe)) + (_variadic?16030_ _rest16234_))) + (let () (declare (not safe)) (_$E1620516221_)))))) + (_arity16031_ + (lambda (_hd16166_) + (let _lp16168_ ((_rest16170_ _hd16166_) (_k16171_ '0)) + (let* ((_$e16173_ _rest16170_) + (_$E1617516186_ (lambda () - (let ((_$E1497414981_ + (let ((_$E1617616183_ (lambda () - (__raise-syntax-error - '#f - '"Bad syntax" - _$e14971_)))) - _k14969_)))) - (if (__AST-pair? _$e14971_) - (let* ((_$tgt1497514987_ (__AST-e _$e14971_)) - (_$hd1497614990_ + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax" + _$e16173_))))) + _k16171_)))) + (if (let () + (declare (not safe)) + (__AST-pair? _$e16173_)) + (let* ((_$tgt1617716189_ + (let () + (declare (not safe)) + (__AST-e _$e16173_))) + (_$hd1617816192_ (let () (declare (not safe)) - (##car _$tgt1497514987_))) - (_$tl1497714993_ + (##car _$tgt1617716189_))) + (_$tl1617916195_ (let () (declare (not safe)) - (##cdr _$tgt1497514987_)))) - (let ((_rest14997_ _$tl1497714993_)) - (_lp14966_ _rest14997_ (fx+ _k14969_ '1)))) - (_$E1497314984_)))))) - (_generate14830_ - (lambda (_rest14891_ _args14892_ _len14893_) - (let* ((_$e14895_ _rest14891_) - (_$E1489714908_ + (##cdr _$tgt1617716189_)))) + (let* ((_rest16199_ _$tl1617916195_) + (__tmp17100 + (let () + (declare (not safe)) + (fx+ _k16171_ '1)))) + (declare (not safe)) + (_lp16168_ _rest16199_ __tmp17100))) + (let () (declare (not safe)) (_$E1617516186_))))))) + (_generate16032_ + (lambda (_rest16093_ _args16094_ _len16095_) + (let* ((_$e16097_ _rest16093_) + (_$E1609916110_ (lambda () - (let ((_$E1489814905_ - (lambda () - (__raise-syntax-error - '#f - '"Bad syntax" - _$e14895_)))) - (__SRC__% - (cons 'error - (cons '"No clause matching arguments" - (cons _args14892_ '()))) - _stx14826_))))) - (if (__AST-pair? _$e14895_) - (let* ((_$tgt1489914911_ (__AST-e _$e14895_)) - (_$hd1490014914_ + (let* ((_$E1610016107_ + (lambda () + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax" + _$e16097_)))) + (__tmp17101 + (let ((__tmp17102 + (let ((__tmp17103 + (let () + (declare (not safe)) + (cons _args16094_ '())))) + (declare (not safe)) + (cons '"No clause matching arguments" + __tmp17103)))) + (declare (not safe)) + (cons 'error __tmp17102)))) + (declare (not safe)) + (__SRC__% __tmp17101 _stx16028_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16097_)) + (let* ((_$tgt1610116113_ + (let () + (declare (not safe)) + (__AST-e _$e16097_))) + (_$hd1610216116_ (let () (declare (not safe)) - (##car _$tgt1489914911_))) - (_$tl1490114917_ + (##car _$tgt1610116113_))) + (_$tl1610316119_ (let () (declare (not safe)) - (##cdr _$tgt1489914911_)))) - (let* ((_clause14921_ _$hd1490014914_) - (_rest14923_ _$tl1490114917_) - (_$e14925_ _clause14921_) - (_$E1492714936_ + (##cdr _$tgt1610116113_)))) + (let* ((_clause16123_ _$hd1610216116_) + (_rest16125_ _$tl1610316119_) + (_$e16127_ _clause16123_) + (_$E1612916138_ (lambda () - (__raise-syntax-error - '#f - '"Bad syntax" - _$e14925_)))) - (if (__AST-pair? _$e14925_) - (let* ((_$tgt1492814939_ (__AST-e _$e14925_)) - (_$hd1492914942_ + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax" + _$e16127_))))) + (if (let () + (declare (not safe)) + (__AST-pair? _$e16127_)) + (let* ((_$tgt1613016141_ + (let () + (declare (not safe)) + (__AST-e _$e16127_))) + (_$hd1613116144_ (let () (declare (not safe)) - (##car _$tgt1492814939_))) - (_$tl1493014945_ + (##car _$tgt1613016141_))) + (_$tl1613216147_ (let () (declare (not safe)) - (##cdr _$tgt1492814939_)))) - (let ((_hd14949_ _$hd1492914942_)) - (if (__AST-pair? _$tl1493014945_) - (let* ((_$tgt1493114951_ - (__AST-e _$tl1493014945_)) - (_$hd1493214954_ + (##cdr _$tgt1613016141_)))) + (let ((_hd16151_ _$hd1613116144_)) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1613216147_)) + (let* ((_$tgt1613316153_ + (let () + (declare (not safe)) + (__AST-e _$tl1613216147_))) + (_$hd1613416156_ (let () (declare (not safe)) - (##car _$tgt1493114951_))) - (_$tl1493314957_ + (##car _$tgt1613316153_))) + (_$tl1613516159_ (let () (declare (not safe)) - (##cdr _$tgt1493114951_)))) - (if (equal? (__AST-e _$tl1493314957_) - '()) - (let ((_clen14961_ - (_arity14829_ - _hd14949_)) - (_cmp14962_ - (if (_variadic?14828_ - _hd14949_) + (##cdr _$tgt1613316153_)))) + (if (let ((__tmp17118 + (let () + (declare (not safe)) + (__AST-e _$tl1613516159_)))) + (declare (not safe)) + (equal? __tmp17118 '())) + (let ((_clen16163_ + (let () + (declare (not safe)) + (_arity16031_ + _hd16151_))) + (_cmp16164_ + (if (let () + (declare + (not safe)) + (_variadic?16030_ + _hd16151_)) 'fx>= 'fx=))) - (__SRC__% - (cons 'if - (cons (cons _cmp14962_ + (let ((__tmp17104 + (let ((__tmp17105 + (let ((__tmp17115 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17116 + (let ((__tmp17117 + (let () + (declare (not safe)) + (cons _clen16163_ '())))) + (declare (not safe)) + (cons _len16095_ __tmp17117)))) + (declare (not safe)) + (cons _cmp16164_ __tmp17116))) + (__tmp17106 + (let ((__tmp17109 + (let ((__tmp17110 + (let ((__tmp17111 + (let ((__tmp17113 + (let ((__tmp17114 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _len14893_ (cons _clen14961_ '()))) - (cons (__SRC__% - (cons '##apply - (cons (__compile-lambda% - (cons '%#lambda _clause14921_)) - (cons _args14892_ '()))) - _stx14826_) - (cons (_generate14830_ - _rest14923_ - _args14892_ - _len14893_) - '())))) + (let () + (declare (not safe)) + (cons '%#lambda _clause16123_)))) + (declare (not safe)) + (__compile-lambda% __tmp17114))) + (__tmp17112 + (let () (declare (not safe)) (cons _args16094_ '())))) + (declare (not safe)) + (cons __tmp17113 __tmp17112)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '##apply __tmp17111)))) + (declare (not safe)) + (__SRC__% __tmp17110 _stx16028_))) + (__tmp17107 + (let ((__tmp17108 + (let () + (declare (not safe)) + (_generate16032_ + _rest16125_ + _args16094_ + _len16095_)))) + (declare (not safe)) + (cons __tmp17108 '())))) + (declare (not safe)) + (cons __tmp17109 __tmp17107)))) + (declare (not safe)) + (cons __tmp17115 __tmp17106)))) + (declare (not safe)) + (cons 'if __tmp17105)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx14826_)) - (_$E1492714936_))) - (_$E1492714936_)))) - (_$E1492714936_)))) - (_$E1489714908_)))))) - (let* ((_$e14832_ _stx14826_) - (_$E1483414866_ + (declare (not safe)) + (__SRC__% + __tmp17104 + _stx16028_))) + (let () + (declare (not safe)) + (_$E1612916138_)))) + (let () + (declare (not safe)) + (_$E1612916138_))))) + (let () + (declare (not safe)) + (_$E1612916138_))))) + (let () (declare (not safe)) (_$E1609916110_))))))) + (let* ((_$e16034_ _stx16028_) + (_$E1603616068_ (lambda () - (let ((_$E1483514848_ + (let ((_$E1603716050_ (lambda () - (__raise-syntax-error - '#f - '"Bad syntax" - _$e14832_)))) - (if (__AST-pair? _$e14832_) - (let* ((_$tgt1483614851_ (__AST-e _$e14832_)) - (_$hd1483714854_ + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax" + _$e16034_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16034_)) + (let* ((_$tgt1603816053_ + (let () + (declare (not safe)) + (__AST-e _$e16034_))) + (_$hd1603916056_ (let () (declare (not safe)) - (##car _$tgt1483614851_))) - (_$tl1483814857_ + (##car _$tgt1603816053_))) + (_$tl1604016059_ (let () (declare (not safe)) - (##cdr _$tgt1483614851_)))) - (let ((_clauses14861_ _$tl1483814857_)) - (let ((_args14863_ - (__SRC__% (gensym) _stx14826_)) - (_len14864_ - (__SRC__% (gensym) _stx14826_))) - (__SRC__% - (cons 'lambda - (cons _args14863_ - (cons (__SRC__% - (cons 'let - (cons (cons (cons _len14864_ + (##cdr _$tgt1603816053_)))) + (let ((_clauses16063_ _$tl1604016059_)) + (let ((_args16065_ + (let ((__tmp17119 + (let () + (declare (not safe)) + (gensym)))) + (declare (not safe)) + (__SRC__% __tmp17119 _stx16028_))) + (_len16066_ + (let ((__tmp17120 + (let () + (declare (not safe)) + (gensym)))) + (declare (not safe)) + (__SRC__% __tmp17120 _stx16028_)))) + (let ((__tmp17121 + (let ((__tmp17122 + (let ((__tmp17123 + (let ((__tmp17124 + (let ((__tmp17125 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17126 + (let ((__tmp17129 + (let ((__tmp17130 + (let ((__tmp17131 + (let ((__tmp17132 + (let ((__tmp17133 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (__SRC__% - (cons '##length - (cons _args14863_ '())) - _stx14826_) - '())) - '()) - (cons (_generate14830_ - _clauses14861_ - _args14863_ - _len14864_) - '()))) + (let ((__tmp17134 + (let () + (declare (not safe)) + (cons _args16065_ '())))) + (declare (not safe)) + (cons '##length __tmp17134)))) + (declare (not safe)) + (__SRC__% __tmp17133 _stx16028_)))) + (declare (not safe)) + (cons __tmp17132 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _len16066_ + __tmp17131)))) + (declare (not safe)) + (cons __tmp17130 '()))) + (__tmp17127 + (let ((__tmp17128 + (let () + (declare (not safe)) + (_generate16032_ + _clauses16063_ + _args16065_ + _len16066_)))) + (declare (not safe)) + (cons __tmp17128 '())))) + (declare (not safe)) + (cons __tmp17129 __tmp17127)))) + (declare (not safe)) + (cons 'let __tmp17126)))) + (declare (not safe)) + (__SRC__% __tmp17125 _stx16028_)))) + (declare (not safe)) + (cons __tmp17124 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx14826_) - '()))) - _stx14826_)))) - (_$E1483514848_)))))) - (if (__AST-pair? _$e14832_) - (let* ((_$tgt1483914869_ (__AST-e _$e14832_)) - (_$hd1484014872_ - (let () (declare (not safe)) (##car _$tgt1483914869_))) - (_$tl1484114875_ + (declare (not safe)) + (cons _args16065_ + __tmp17123)))) + (declare (not safe)) + (cons 'lambda __tmp17122)))) + (declare (not safe)) + (__SRC__% __tmp17121 _stx16028_))))) + (let () (declare (not safe)) (_$E1603716050_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16034_)) + (let* ((_$tgt1604116071_ + (let () (declare (not safe)) (__AST-e _$e16034_))) + (_$hd1604216074_ + (let () (declare (not safe)) (##car _$tgt1604116071_))) + (_$tl1604316077_ (let () (declare (not safe)) - (##cdr _$tgt1483914869_)))) - (if (__AST-pair? _$tl1484114875_) - (let* ((_$tgt1484214879_ (__AST-e _$tl1484114875_)) - (_$hd1484314882_ + (##cdr _$tgt1604116071_)))) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1604316077_)) + (let* ((_$tgt1604416081_ (let () (declare (not safe)) - (##car _$tgt1484214879_))) - (_$tl1484414885_ + (__AST-e _$tl1604316077_))) + (_$hd1604516084_ (let () (declare (not safe)) - (##cdr _$tgt1484214879_)))) - (let ((_clause14889_ _$hd1484314882_)) - (if (equal? (__AST-e _$tl1484414885_) '()) - (__compile-lambda% - (cons '%#lambda _clause14889_)) - (_$E1483414866_)))) - (_$E1483414866_))) - (_$E1483414866_)))))) - (define __compile-let-form - (lambda (_stx14595_ _compile-simple14596_ _compile-values14597_) - (letrec ((_simple-bind?14599_ - (lambda (_hd14784_) - (let* ((_hd1478514795_ _hd14784_) - (_else1478814803_ (lambda () '#f))) - (let ((_K1479114816_ (lambda (_id14814_) '#t)) - (_K1479014808_ (lambda () '#t))) - (let ((_try-match1478714811_ + (##car _$tgt1604416081_))) + (_$tl1604616087_ + (let () + (declare (not safe)) + (##cdr _$tgt1604416081_)))) + (let ((_clause16091_ _$hd1604516084_)) + (if (let ((__tmp17136 + (let () + (declare (not safe)) + (__AST-e _$tl1604616087_)))) + (declare (not safe)) + (equal? __tmp17136 '())) + (let ((__tmp17135 + (let () + (declare (not safe)) + (cons '%#lambda _clause16091_)))) + (declare (not safe)) + (__compile-lambda% __tmp17135)) + (let () (declare (not safe)) (_$E1603616068_))))) + (let () (declare (not safe)) (_$E1603616068_)))) + (let () (declare (not safe)) (_$E1603616068_))))))) + (define __compile-let-form + (lambda (_stx15797_ _compile-simple15798_ _compile-values15799_) + (letrec ((_simple-bind?15801_ + (lambda (_hd15986_) + (let* ((_hd1598715997_ _hd15986_) + (_else1599016005_ (lambda () '#f))) + (let ((_K1599316018_ (lambda (_id16016_) '#t)) + (_K1599216010_ (lambda () '#t))) + (let ((_try-match1598916013_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd1478514795_ '#f)) - (_K1479014808_) - (_else1478814803_))))) + (##eq? _hd1598715997_ '#f)) + (let () + (declare (not safe)) + (_K1599216010_)) + (let () + (declare (not safe)) + (_else1599016005_)))))) (if (let () (declare (not safe)) - (##pair? _hd1478514795_)) - (let ((_tl1479314821_ + (##pair? _hd1598715997_)) + (let ((_tl1599516023_ (let () (declare (not safe)) - (##cdr _hd1478514795_))) - (_hd1479214819_ + (##cdr _hd1598715997_))) + (_hd1599416021_ (let () (declare (not safe)) - (##car _hd1478514795_)))) + (##car _hd1598715997_)))) (if (let () (declare (not safe)) - (##null? _tl1479314821_)) - (let ((_id14824_ _hd1479214819_)) - (_K1479114816_ _id14824_)) - (_try-match1478714811_))) - (_try-match1478714811_))))))) - (_car-e14600_ - (lambda (_hd14782_) - (if (pair? _hd14782_) (car _hd14782_) _hd14782_)))) - (let* ((_$e14602_ _stx14595_) - (_$E1460414747_ + (##null? _tl1599516023_)) + (let ((_id16026_ _hd1599416021_)) + (declare (not safe)) + (_K1599316018_ _id16026_)) + (let () + (declare (not safe)) + (_try-match1598916013_)))) + (let () + (declare (not safe)) + (_try-match1598916013_)))))))) + (_car-e15802_ + (lambda (_hd15984_) + (if (let () (declare (not safe)) (pair? _hd15984_)) + (let () (declare (not safe)) (car _hd15984_)) + _hd15984_)))) + (let* ((_$e15804_ _stx15797_) + (_$E1580615949_ (lambda () - (let ((_$E1460514627_ + (let ((_$E1580715829_ (lambda () - (__raise-syntax-error - '#f - '"Bad syntax" - _$e14602_)))) - (if (__AST-pair? _$e14602_) - (let* ((_$tgt1460614630_ (__AST-e _$e14602_)) - (_$hd1460714633_ + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax" + _$e15804_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15804_)) + (let* ((_$tgt1580815832_ (let () (declare (not safe)) - (##car _$tgt1460614630_))) - (_$tl1460814636_ + (__AST-e _$e15804_))) + (_$hd1580915835_ (let () (declare (not safe)) - (##cdr _$tgt1460614630_)))) - (if (__AST-pair? _$tl1460814636_) - (let* ((_$tgt1460914640_ - (__AST-e _$tl1460814636_)) - (_$hd1461014643_ + (##car _$tgt1580815832_))) + (_$tl1581015838_ + (let () + (declare (not safe)) + (##cdr _$tgt1580815832_)))) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1581015838_)) + (let* ((_$tgt1581115842_ + (let () + (declare (not safe)) + (__AST-e _$tl1581015838_))) + (_$hd1581215845_ (let () (declare (not safe)) - (##car _$tgt1460914640_))) - (_$tl1461114646_ + (##car _$tgt1581115842_))) + (_$tl1581315848_ (let () (declare (not safe)) - (##cdr _$tgt1460914640_)))) - (let ((_hd14650_ _$hd1461014643_)) - (if (__AST-pair? _$tl1461114646_) - (let* ((_$tgt1461214652_ - (__AST-e _$tl1461114646_)) - (_$hd1461314655_ + (##cdr _$tgt1581115842_)))) + (let ((_hd15852_ _$hd1581215845_)) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1581315848_)) + (let* ((_$tgt1581415854_ + (let () + (declare (not safe)) + (__AST-e _$tl1581315848_))) + (_$hd1581515857_ (let () (declare (not safe)) - (##car _$tgt1461214652_))) - (_$tl1461414658_ + (##car _$tgt1581415854_))) + (_$tl1581615860_ (let () (declare (not safe)) - (##cdr _$tgt1461214652_)))) - (let ((_body14662_ _$hd1461314655_)) - (if (equal? (__AST-e _$tl1461414658_) - '()) - (let* ((_hd-ids14702_ - (map (lambda (_bind14664_) - (let* ((_$e14666_ + (##cdr _$tgt1581415854_)))) + (let ((_body15864_ _$hd1581515857_)) + (if (let ((__tmp17141 + (let () + (declare (not safe)) + (__AST-e _$tl1581615860_)))) + (declare (not safe)) + (equal? __tmp17141 '())) + (let* ((_hd-ids15904_ + (let ((__tmp17137 + (lambda (_bind15866_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind14664_) - (_$E1466814677_ - (lambda () - (__raise-syntax-error - '#f - '"Bad syntax" - _$e14666_)))) - (if (__AST-pair? _$e14666_) - (let* ((_$tgt1466914680_ (__AST-e _$e14666_)) - (_$hd1467014683_ - (let () - (declare (not safe)) - (##car _$tgt1466914680_))) - (_$tl1467114686_ - (let () + (let* ((_$e15868_ _bind15866_) + (_$E1587015879_ + (lambda () + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax" + _$e15868_))))) + (if (let () + (declare (not safe)) + (__AST-pair? _$e15868_)) + (let* ((_$tgt1587115882_ + (let () + (declare (not safe)) + (__AST-e _$e15868_))) + (_$hd1587215885_ + (let () + (declare (not safe)) + (##car _$tgt1587115882_))) + (_$tl1587315888_ + (let () + (declare (not safe)) + (##cdr _$tgt1587115882_)))) + (let ((_ids15892_ _$hd1587215885_)) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1587315888_)) + (let* ((_$tgt1587415894_ + (let () + (declare (not safe)) + (__AST-e _$tl1587315888_))) + (_$hd1587515897_ + (let () + (declare (not safe)) + (##car _$tgt1587415894_))) + (_$tl1587615900_ + (let () + (declare (not safe)) + (##cdr _$tgt1587415894_)))) + (if (let ((__tmp17138 + (let () + (declare (not safe)) + (__AST-e _$tl1587615900_)))) + (declare (not safe)) + (equal? __tmp17138 '())) + _ids15892_ + (let () + (declare (not safe)) + (_$E1587015879_)))) + (let () + (declare (not safe)) + (_$E1587015879_))))) + (let () + (declare (not safe)) + (_$E1587015879_))))))) + (declare (not safe)) + (map __tmp17137 _hd15852_))) + (_exprs15944_ + (let ((__tmp17139 + (lambda (_bind15906_) + (let* ((_$e15908_ _bind15906_) + (_$E1591015919_ + (lambda () + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax" + _$e15908_))))) + (if (let () + (declare (not safe)) + (__AST-pair? _$e15908_)) + (let* ((_$tgt1591115922_ + (let () + (declare (not safe)) + (__AST-e _$e15908_))) + (_$hd1591215925_ + (let () + (declare (not safe)) + (##car _$tgt1591115922_))) + (_$tl1591315928_ + (let () + (declare (not safe)) + (##cdr _$tgt1591115922_)))) + (if (let () (declare (not safe)) - (##cdr _$tgt1466914680_)))) - (let ((_ids14690_ _$hd1467014683_)) - (if (__AST-pair? _$tl1467114686_) - (let* ((_$tgt1467214692_ - (__AST-e _$tl1467114686_)) - (_$hd1467314695_ + (__AST-pair? _$tl1591315928_)) + (let* ((_$tgt1591415932_ (let () (declare (not safe)) - (##car _$tgt1467214692_))) - (_$tl1467414698_ + (__AST-e _$tl1591315928_))) + (_$hd1591515935_ (let () (declare (not safe)) - (##cdr _$tgt1467214692_)))) - (if (equal? (__AST-e _$tl1467414698_) - '()) - _ids14690_ - (_$E1466814677_))) - (_$E1466814677_)))) - (_$E1466814677_)))) - _hd14650_)) - (_exprs14742_ - (map (lambda (_bind14704_) - (let* ((_$e14706_ _bind14704_) - (_$E1470814717_ - (lambda () - (__raise-syntax-error - '#f - '"Bad syntax" - _$e14706_)))) - (if (__AST-pair? _$e14706_) - (let* ((_$tgt1470914720_ (__AST-e _$e14706_)) - (_$hd1471014723_ - (let () - (declare (not safe)) - (##car _$tgt1470914720_))) - (_$tl1471114726_ + (##car _$tgt1591415932_))) + (_$tl1591615938_ + (let () + (declare (not safe)) + (##cdr _$tgt1591415932_)))) + (let ((_expr15942_ _$hd1591515935_)) + (if (let ((__tmp17140 + (let () + (declare (not safe)) + (__AST-e _$tl1591615938_)))) + (declare (not safe)) + (equal? __tmp17140 '())) + (let () + (declare (not safe)) + (__compile _expr15942_)) + (let () + (declare (not safe)) + (_$E1591015919_))))) (let () (declare (not safe)) - (##cdr _$tgt1470914720_)))) - (if (__AST-pair? _$tl1471114726_) - (let* ((_$tgt1471214730_ - (__AST-e _$tl1471114726_)) - (_$hd1471314733_ - (let () - (declare (not safe)) - (##car _$tgt1471214730_))) - (_$tl1471414736_ - (let () - (declare (not safe)) - (##cdr _$tgt1471214730_)))) - (let ((_expr14740_ _$hd1471314733_)) - (if (equal? (__AST-e _$tl1471414736_) - '()) - (__compile _expr14740_) - (_$E1470814717_)))) - (_$E1470814717_))) - (_$E1470814717_)))) - _hd14650_)) - (_body14744_ (__compile _body14662_))) + (_$E1591015919_)))) + (let () + (declare (not safe)) + (_$E1591015919_))))))) + (declare (not safe)) + (map __tmp17139 _hd15852_))) + (_body15946_ + (let () (declare (not safe)) (__compile _body15864_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (andmap1 _simple-bind?15801_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _hd-ids15904_)) + (_compile-simple15798_ + (let () (declare (not safe)) (map _car-e15802_ _hd-ids15904_)) + _exprs15944_ + _body15946_) + (_compile-values15799_ _hd-ids15904_ _exprs15944_ _body15946_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (andmap1 _simple-bind?14599_ - _hd-ids14702_) - (_compile-simple14596_ - (map _car-e14600_ - _hd-ids14702_) - _exprs14742_ - _body14744_) - (_compile-values14597_ - _hd-ids14702_ - _exprs14742_ - _body14744_))) - (_$E1460514627_)))) - (_$E1460514627_)))) - (_$E1460514627_))) - (_$E1460514627_)))))) - (if (__AST-pair? _$e14602_) - (let* ((_$tgt1461514750_ (__AST-e _$e14602_)) - (_$hd1461614753_ - (let () (declare (not safe)) (##car _$tgt1461514750_))) - (_$tl1461714756_ + (let () + (declare (not safe)) + (_$E1580715829_))))) + (let () + (declare (not safe)) + (_$E1580715829_))))) + (let () + (declare (not safe)) + (_$E1580715829_)))) + (let () (declare (not safe)) (_$E1580715829_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15804_)) + (let* ((_$tgt1581715952_ + (let () (declare (not safe)) (__AST-e _$e15804_))) + (_$hd1581815955_ + (let () (declare (not safe)) (##car _$tgt1581715952_))) + (_$tl1581915958_ (let () (declare (not safe)) - (##cdr _$tgt1461514750_)))) - (if (__AST-pair? _$tl1461714756_) - (let* ((_$tgt1461814760_ (__AST-e _$tl1461714756_)) - (_$hd1461914763_ + (##cdr _$tgt1581715952_)))) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1581915958_)) + (let* ((_$tgt1582015962_ + (let () + (declare (not safe)) + (__AST-e _$tl1581915958_))) + (_$hd1582115965_ (let () (declare (not safe)) - (##car _$tgt1461814760_))) - (_$tl1462014766_ + (##car _$tgt1582015962_))) + (_$tl1582215968_ (let () (declare (not safe)) - (##cdr _$tgt1461814760_)))) - (if (equal? (__AST-e _$hd1461914763_) '()) - (if (__AST-pair? _$tl1462014766_) - (let* ((_$tgt1462114770_ - (__AST-e _$tl1462014766_)) - (_$hd1462214773_ + (##cdr _$tgt1582015962_)))) + (if (let ((__tmp17143 + (let () + (declare (not safe)) + (__AST-e _$hd1582115965_)))) + (declare (not safe)) + (equal? __tmp17143 '())) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1582215968_)) + (let* ((_$tgt1582315972_ + (let () + (declare (not safe)) + (__AST-e _$tl1582215968_))) + (_$hd1582415975_ (let () (declare (not safe)) - (##car _$tgt1462114770_))) - (_$tl1462314776_ + (##car _$tgt1582315972_))) + (_$tl1582515978_ (let () (declare (not safe)) - (##cdr _$tgt1462114770_)))) - (let ((_body14780_ _$hd1462214773_)) - (if (equal? (__AST-e _$tl1462314776_) '()) - (__compile _body14780_) - (_$E1460414747_)))) - (_$E1460414747_)) - (_$E1460414747_))) - (_$E1460414747_))) - (_$E1460414747_)))))) + (##cdr _$tgt1582315972_)))) + (let ((_body15982_ _$hd1582415975_)) + (if (let ((__tmp17142 + (let () + (declare (not safe)) + (__AST-e _$tl1582515978_)))) + (declare (not safe)) + (equal? __tmp17142 '())) + (let () + (declare (not safe)) + (__compile _body15982_)) + (let () + (declare (not safe)) + (_$E1580615949_))))) + (let () (declare (not safe)) (_$E1580615949_))) + (let () (declare (not safe)) (_$E1580615949_)))) + (let () (declare (not safe)) (_$E1580615949_)))) + (let () (declare (not safe)) (_$E1580615949_))))))) (define __compile-let-values% - (lambda (_stx14410_) - (letrec ((_compile-simple14412_ - (lambda (_hd-ids14591_ _exprs14592_ _body14593_) - (__SRC__% - (cons 'let - (cons (map list - (map __compile-head-id _hd-ids14591_) - _exprs14592_) - (cons _body14593_ '()))) - _stx14410_))) - (_compile-values14413_ - (lambda (_hd-ids14509_ _exprs14510_ _body14511_) - (let _lp14513_ ((_rest14515_ _hd-ids14509_) - (_exprs14516_ _exprs14510_) - (_bind14517_ '()) - (_post14518_ '())) - (let* ((_rest1451914533_ _rest14515_) - (_else1452214541_ + (lambda (_stx15612_) + (letrec ((_compile-simple15614_ + (lambda (_hd-ids15793_ _exprs15794_ _body15795_) + (let ((__tmp17144 + (let ((__tmp17145 + (let ((__tmp17147 + (let ((__tmp17148 + (let () + (declare (not safe)) + (map __compile-head-id + _hd-ids15793_)))) + (declare (not safe)) + (map list __tmp17148 _exprs15794_))) + (__tmp17146 + (let () + (declare (not safe)) + (cons _body15795_ '())))) + (declare (not safe)) + (cons __tmp17147 __tmp17146)))) + (declare (not safe)) + (cons 'let __tmp17145)))) + (declare (not safe)) + (__SRC__% __tmp17144 _stx15612_)))) + (_compile-values15615_ + (lambda (_hd-ids15711_ _exprs15712_ _body15713_) + (let _lp15715_ ((_rest15717_ _hd-ids15711_) + (_exprs15718_ _exprs15712_) + (_bind15719_ '()) + (_post15720_ '())) + (let* ((_rest1572115735_ _rest15717_) + (_else1572415743_ (lambda () - (__SRC__% - (cons 'let - (cons (reverse _bind14517_) - (cons (_compile-post14414_ - _post14518_ - _body14511_) - '()))) - _stx14410_)))) - (let ((_K1452714574_ - (lambda (_rest14571_ _id14572_) - (_lp14513_ - _rest14571_ - (cdr _exprs14516_) - (cons (cons (__compile-head-id _id14572_) - (cons (car _exprs14516_) '())) - _bind14517_) - _post14518_))) - (_K1452414556_ - (lambda (_rest14545_ _hd14546_) - (if (__AST-id? _hd14546_) - (_lp14513_ - _rest14545_ - (cdr _exprs14516_) - (cons (cons (__compile-head-id _hd14546_) - (cons (cons 'values->list - (cons (car _exprs14516_) + (let ((__tmp17149 + (let ((__tmp17150 + (let ((__tmp17153 + (let () + (declare (not safe)) + (reverse _bind15719_))) + (__tmp17151 + (let ((__tmp17152 + (let () + (declare + (not safe)) + (_compile-post15616_ + _post15720_ + _body15713_)))) + (declare (not safe)) + (cons __tmp17152 '())))) + (declare (not safe)) + (cons __tmp17153 __tmp17151)))) + (declare (not safe)) + (cons 'let __tmp17150)))) + (declare (not safe)) + (__SRC__% __tmp17149 _stx15612_))))) + (let ((_K1572915776_ + (lambda (_rest15773_ _id15774_) + (let ((__tmp17159 + (let () + (declare (not safe)) + (cdr _exprs15718_))) + (__tmp17154 + (let ((__tmp17155 + (let ((__tmp17158 + (let () + (declare (not safe)) + (__compile-head-id + _id15774_))) + (__tmp17156 + (let ((__tmp17157 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())) + (not safe)) + (car _exprs15718_)))) + (declare (not safe)) + (cons __tmp17157 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _bind14517_) - _post14518_) - (if (list? _hd14546_) - (let* ((_len14548_ (length _hd14546_)) - (_tmp14550_ - (__SRC__0 (gensym)))) - (_lp14513_ - _rest14545_ - (cdr _exprs14516_) - (cons (cons _tmp14550_ - (cons (car _exprs14516_) - '())) - _bind14517_) - (cons (cons _tmp14550_ - (cons _len14548_ - (filter-map2 - (lambda (_id14553_ + (declare (not safe)) + (cons __tmp17158 + __tmp17156)))) + (declare (not safe)) + (cons __tmp17155 _bind15719_)))) + (declare (not safe)) + (_lp15715_ + _rest15773_ + __tmp17159 + __tmp17154 + _post15720_)))) + (_K1572615758_ + (lambda (_rest15747_ _hd15748_) + (if (let () + (declare (not safe)) + (__AST-id? _hd15748_)) + (let ((__tmp17180 + (let () + (declare (not safe)) + (cdr _exprs15718_))) + (__tmp17173 + (let ((__tmp17174 + (let ((__tmp17179 + (let () + (declare + (not safe)) + (__compile-head-id + _hd15748_))) + (__tmp17175 + (let ((__tmp17176 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17177 + (let ((__tmp17178 + (let () + (declare (not safe)) + (car _exprs15718_)))) + (declare (not safe)) + (cons __tmp17178 '())))) + (declare (not safe)) + (cons 'values->list __tmp17177)))) + (declare (not safe)) + (cons __tmp17176 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17179 + __tmp17175)))) + (declare (not safe)) + (cons __tmp17174 _bind15719_)))) + (declare (not safe)) + (_lp15715_ + _rest15747_ + __tmp17180 + __tmp17173 + _post15720_)) + (if (let () + (declare (not safe)) + (list? _hd15748_)) + (let* ((_len15750_ (length _hd15748_)) + (_tmp15752_ + (let ((__tmp17160 + (let () + (declare (not safe)) + (gensym)))) + (declare (not safe)) + (__SRC__0 __tmp17160)))) + (let ((__tmp17172 + (let () + (declare (not safe)) + (cdr _exprs15718_))) + (__tmp17168 + (let ((__tmp17169 + (let ((__tmp17170 + (let ((__tmp17171 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (car _exprs15718_)))) + (declare (not safe)) + (cons __tmp17171 '())))) + (declare (not safe)) + (cons _tmp15752_ __tmp17170)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17169 + _bind15719_))) + (__tmp17161 + (let ((__tmp17162 + (let ((__tmp17163 + (let ((__tmp17164 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k14554_) - (if (__AST-e _id14553_) - (cons (__SRC__0 _id14553_) _k14554_) - '#f)) - _hd14546_ - (iota _len14548_)))) + (let ((__tmp17166 + (lambda (_id15755_ _k15756_) + (if (let () + (declare (not safe)) + (__AST-e _id15755_)) + (let ((__tmp17167 + (let () + (declare (not safe)) + (__SRC__0 _id15755_)))) + (declare (not safe)) + (cons __tmp17167 _k15756_)) + '#f))) + (__tmp17165 + (let () + (declare (not safe)) + (iota _len15750_)))) + (declare (not safe)) + (filter-map2 + __tmp17166 + _hd15748_ + __tmp17165)))) + (declare (not safe)) + (cons _len15750_ __tmp17164)))) + (declare (not safe)) + (cons _tmp15752_ __tmp17163)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _post14518_))) - (__compile-error__% - _stx14410_ - _hd14546_)))))) + (declare (not safe)) + (cons __tmp17162 + _post15720_)))) + (declare (not safe)) + (_lp15715_ + _rest15747_ + __tmp17172 + __tmp17168 + __tmp17161))) + (let () + (declare (not safe)) + (__compile-error__% + _stx15612_ + _hd15748_))))))) (if (let () (declare (not safe)) - (##pair? _rest1451914533_)) - (let ((_tl1452914579_ + (##pair? _rest1572115735_)) + (let ((_tl1573115781_ (let () (declare (not safe)) - (##cdr _rest1451914533_))) - (_hd1452814577_ + (##cdr _rest1572115735_))) + (_hd1573015779_ (let () (declare (not safe)) - (##car _rest1451914533_)))) + (##car _rest1572115735_)))) (if (let () (declare (not safe)) - (##pair? _hd1452814577_)) - (let ((_tl1453114584_ + (##pair? _hd1573015779_)) + (let ((_tl1573315786_ (let () (declare (not safe)) - (##cdr _hd1452814577_))) - (_hd1453014582_ + (##cdr _hd1573015779_))) + (_hd1573215784_ (let () (declare (not safe)) - (##car _hd1452814577_)))) + (##car _hd1573015779_)))) (if (let () (declare (not safe)) - (##null? _tl1453114584_)) - (let ((_id14587_ _hd1453014582_) - (_rest14589_ _tl1452914579_)) - (_K1452714574_ - _rest14589_ - _id14587_)) - (let ((_hd14564_ _hd1452814577_) - (_rest14566_ _tl1452914579_)) - (_K1452414556_ - _rest14566_ - _hd14564_)))) - (let ((_hd14564_ _hd1452814577_) - (_rest14566_ _tl1452914579_)) - (_K1452414556_ _rest14566_ _hd14564_)))) - (_else1452214541_))))))) - (_compile-post14414_ - (lambda (_post14416_ _body14417_) - (let _lp14419_ ((_rest14421_ _post14416_) - (_check14422_ '()) - (_bind14423_ '())) - (let* ((_rest1442414436_ _rest14421_) - (_else1442614444_ + (##null? _tl1573315786_)) + (let ((_id15789_ _hd1573215784_) + (_rest15791_ _tl1573115781_)) + (let () + (declare (not safe)) + (_K1572915776_ + _rest15791_ + _id15789_))) + (let ((_hd15766_ _hd1573015779_) + (_rest15768_ _tl1573115781_)) + (let () + (declare (not safe)) + (_K1572615758_ + _rest15768_ + _hd15766_))))) + (let ((_hd15766_ _hd1573015779_) + (_rest15768_ _tl1573115781_)) + (let () + (declare (not safe)) + (_K1572615758_ + _rest15768_ + _hd15766_))))) + (let () + (declare (not safe)) + (_else1572415743_)))))))) + (_compile-post15616_ + (lambda (_post15618_ _body15619_) + (let _lp15621_ ((_rest15623_ _post15618_) + (_check15624_ '()) + (_bind15625_ '())) + (let* ((_rest1562615638_ _rest15623_) + (_else1562815646_ (lambda () - (__SRC__% - (cons 'begin - (foldr1 cons - (cons (__SRC__% - (cons 'let - (cons _bind14423_ + (let ((__tmp17181 + (let ((__tmp17182 + (let ((__tmp17183 + (let ((__tmp17184 + (let ((__tmp17185 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _body14417_ '()))) - _stx14410_) + (let ((__tmp17186 + (let ((__tmp17187 + (let () + (declare (not safe)) + (cons _body15619_ '())))) + (declare (not safe)) + (cons _bind15625_ __tmp17187)))) + (declare (not safe)) + (cons 'let __tmp17186)))) + (declare (not safe)) + (__SRC__% __tmp17185 _stx15612_)))) + (declare (not safe)) + (cons __tmp17184 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - _check14422_)) - _stx14410_))) - (_K1442814483_ - (lambda (_rest14447_ - _init14448_ - _len14449_ - _tmp14450_) - (_lp14419_ - _rest14447_ - (cons (__SRC__% - (cons '__check-values - (cons _tmp14450_ - (cons _len14449_ '()))) - _stx14410_) - _check14422_) - (foldr1 (lambda (_hd14452_ _r14453_) - (let* ((_hd1445414461_ _hd14452_) - (_E1445614465_ - (lambda () - (error '"No clause matching" - _hd1445414461_))) - (_K1445714471_ - (lambda (_k14468_ _id14469_) - (cons (cons _id14469_ + (declare (not safe)) + (foldr1 cons + __tmp17183 + _check15624_)))) + (declare (not safe)) + (cons 'begin __tmp17182)))) + (declare (not safe)) + (__SRC__% __tmp17181 _stx15612_)))) + (_K1563015685_ + (lambda (_rest15649_ + _init15650_ + _len15651_ + _tmp15652_) + (let ((__tmp17195 + (let ((__tmp17196 + (let ((__tmp17197 + (let ((__tmp17198 + (let ((__tmp17199 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '##vector-ref - (cons _tmp14450_ (cons _k14468_ '()))) - '())) - _r14453_)))) + (let () + (declare (not safe)) + (cons _len15651_ '())))) + (declare (not safe)) + (cons _tmp15652_ __tmp17199)))) + (declare (not safe)) + (cons '__check-values __tmp17198)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _hd1445414461_)) - (let ((_hd1445814474_ - (let () - (declare (not safe)) - (##car _hd1445414461_))) - (_tl1445914476_ - (let () - (declare (not safe)) - (##cdr _hd1445414461_)))) - (let* ((_id14479_ - _hd1445814474_) - (_k14481_ - _tl1445914476_)) - (_K1445714471_ - _k14481_ - _id14479_))) - (_E1445614465_)))) - _bind14423_ - _init14448_))))) + (declare (not safe)) + (__SRC__% + __tmp17197 + _stx15612_)))) + (declare (not safe)) + (cons __tmp17196 _check15624_))) + (__tmp17188 + (let ((__tmp17189 + (lambda (_hd15654_ _r15655_) + (let* ((_hd1565615663_ + _hd15654_) + (_E1565815667_ + (lambda () + (let () + (declare + (not safe)) + (error '"No clause matching" +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _hd1565615663_)))) + (_K1565915673_ + (lambda (_k15670_ _id15671_) + (let ((__tmp17190 + (let ((__tmp17191 + (let ((__tmp17192 + (let ((__tmp17193 + (let ((__tmp17194 + (let () + (declare (not safe)) + (cons _k15670_ '())))) + (declare (not safe)) + (cons _tmp15652_ __tmp17194)))) + (declare (not safe)) + (cons '##vector-ref __tmp17193)))) + (declare (not safe)) + (cons __tmp17192 '())))) + (declare (not safe)) + (cons _id15671_ __tmp17191)))) + (declare (not safe)) + (cons __tmp17190 _r15655_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (##pair? _hd1565615663_)) + (let ((_hd1566015676_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _hd1565615663_))) + (_tl1566115678_ + (let () (declare (not safe)) (##cdr _hd1565615663_)))) + (let* ((_id15681_ _hd1566015676_) (_k15683_ _tl1566115678_)) + (declare (not safe)) + (_K1565915673_ _k15683_ _id15681_))) + (let () (declare (not safe)) (_E1565815667_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp17189 + _bind15625_ + _init15650_)))) + (declare (not safe)) + (_lp15621_ + _rest15649_ + __tmp17195 + __tmp17188))))) (if (let () (declare (not safe)) - (##pair? _rest1442414436_)) - (let ((_hd1442914486_ + (##pair? _rest1562615638_)) + (let ((_hd1563115688_ (let () (declare (not safe)) - (##car _rest1442414436_))) - (_tl1443014488_ + (##car _rest1562615638_))) + (_tl1563215690_ (let () (declare (not safe)) - (##cdr _rest1442414436_)))) + (##cdr _rest1562615638_)))) (if (let () (declare (not safe)) - (##pair? _hd1442914486_)) - (let ((_hd1443114491_ + (##pair? _hd1563115688_)) + (let ((_hd1563315693_ (let () (declare (not safe)) - (##car _hd1442914486_))) - (_tl1443214493_ + (##car _hd1563115688_))) + (_tl1563415695_ (let () (declare (not safe)) - (##cdr _hd1442914486_)))) - (let ((_tmp14496_ _hd1443114491_)) + (##cdr _hd1563115688_)))) + (let ((_tmp15698_ _hd1563315693_)) (if (let () (declare (not safe)) - (##pair? _tl1443214493_)) - (let ((_hd1443314498_ + (##pair? _tl1563415695_)) + (let ((_hd1563515700_ (let () (declare (not safe)) - (##car _tl1443214493_))) - (_tl1443414500_ + (##car _tl1563415695_))) + (_tl1563615702_ (let () (declare (not safe)) - (##cdr _tl1443214493_)))) - (let* ((_len14503_ _hd1443314498_) - (_init14505_ _tl1443414500_) - (_rest14507_ - _tl1443014488_)) - (_K1442814483_ - _rest14507_ - _init14505_ - _len14503_ - _tmp14496_))) - (_else1442614444_)))) - (_else1442614444_))) - (_else1442614444_))))))) - (__compile-let-form - _stx14410_ - _compile-simple14412_ - _compile-values14413_)))) + (##cdr _tl1563415695_)))) + (let* ((_len15705_ _hd1563515700_) + (_init15707_ _tl1563615702_) + (_rest15709_ + _tl1563215690_)) + (declare (not safe)) + (_K1563015685_ + _rest15709_ + _init15707_ + _len15705_ + _tmp15698_))) + (let () + (declare (not safe)) + (_else1562815646_))))) + (let () + (declare (not safe)) + (_else1562815646_)))) + (let () + (declare (not safe)) + (_else1562815646_)))))))) + (let () + (declare (not safe)) + (__compile-let-form + _stx15612_ + _compile-simple15614_ + _compile-values15615_))))) (define __compile-letrec-values% - (lambda (_stx14210_) - (letrec ((_compile-simple14212_ - (lambda (_hd-ids14406_ _exprs14407_ _body14408_) - (__SRC__% - (cons 'letrec - (cons (map list - (map __compile-head-id _hd-ids14406_) - _exprs14407_) - (cons _body14408_ '()))) - _stx14210_))) - (_compile-values14213_ - (lambda (_hd-ids14320_ _exprs14321_ _body14322_) - (let _lp14324_ ((_rest14326_ _hd-ids14320_) - (_exprs14327_ _exprs14321_) - (_pre14328_ '()) - (_bind14329_ '()) - (_post14330_ '())) - (let* ((_rest1433114345_ _rest14326_) - (_else1433414353_ + (lambda (_stx15412_) + (letrec ((_compile-simple15414_ + (lambda (_hd-ids15608_ _exprs15609_ _body15610_) + (let ((__tmp17200 + (let ((__tmp17201 + (let ((__tmp17203 + (let ((__tmp17204 + (let () + (declare (not safe)) + (map __compile-head-id + _hd-ids15608_)))) + (declare (not safe)) + (map list __tmp17204 _exprs15609_))) + (__tmp17202 + (let () + (declare (not safe)) + (cons _body15610_ '())))) + (declare (not safe)) + (cons __tmp17203 __tmp17202)))) + (declare (not safe)) + (cons 'letrec __tmp17201)))) + (declare (not safe)) + (__SRC__% __tmp17200 _stx15412_)))) + (_compile-values15415_ + (lambda (_hd-ids15522_ _exprs15523_ _body15524_) + (let _lp15526_ ((_rest15528_ _hd-ids15522_) + (_exprs15529_ _exprs15523_) + (_pre15530_ '()) + (_bind15531_ '()) + (_post15532_ '())) + (let* ((_rest1553315547_ _rest15528_) + (_else1553615555_ (lambda () - (_compile-inner14214_ - _pre14328_ - _bind14329_ - _post14330_ - _body14322_)))) - (let ((_K1433914389_ - (lambda (_rest14386_ _id14387_) - (_lp14324_ - _rest14386_ - (cdr _exprs14327_) - _pre14328_ - (cons (cons (__compile-head-id _id14387_) - (cons (car _exprs14327_) '())) - _bind14329_) - _post14330_))) - (_K1433614371_ - (lambda (_rest14357_ _hd14358_) - (if (__AST-id? _hd14358_) - (_lp14324_ - _rest14357_ - (cdr _exprs14327_) - _pre14328_ - (cons (cons (__compile-head-id _hd14358_) - (cons (cons 'values->list - (cons (car _exprs14327_) + (let () + (declare (not safe)) + (_compile-inner15416_ + _pre15530_ + _bind15531_ + _post15532_ + _body15524_))))) + (let ((_K1554115591_ + (lambda (_rest15588_ _id15589_) + (let ((__tmp17210 + (let () + (declare (not safe)) + (cdr _exprs15529_))) + (__tmp17205 + (let ((__tmp17206 + (let ((__tmp17209 + (let () + (declare (not safe)) + (__compile-head-id + _id15589_))) + (__tmp17207 + (let ((__tmp17208 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())) + (not safe)) + (car _exprs15529_)))) + (declare (not safe)) + (cons __tmp17208 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _bind14329_) - _post14330_) - (if (list? _hd14358_) - (let* ((_len14360_ (length _hd14358_)) - (_tmp14362_ - (__SRC__0 (gensym)))) - (_lp14324_ - _rest14357_ - (cdr _exprs14327_) - (foldl1 (lambda (_id14365_ - _r14366_) - (if (__AST-e _id14365_) - (cons (cons (__SRC__0 + (declare (not safe)) + (cons __tmp17209 + __tmp17207)))) + (declare (not safe)) + (cons __tmp17206 _bind15531_)))) + (declare (not safe)) + (_lp15526_ + _rest15588_ + __tmp17210 + _pre15530_ + __tmp17205 + _post15532_)))) + (_K1553815573_ + (lambda (_rest15559_ _hd15560_) + (if (let () + (declare (not safe)) + (__AST-id? _hd15560_)) + (let ((__tmp17238 + (let () + (declare (not safe)) + (cdr _exprs15529_))) + (__tmp17231 + (let ((__tmp17232 + (let ((__tmp17237 + (let () + (declare + (not safe)) + (__compile-head-id + _hd15560_))) + (__tmp17233 + (let ((__tmp17234 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17235 + (let ((__tmp17236 + (let () + (declare (not safe)) + (car _exprs15529_)))) + (declare (not safe)) + (cons __tmp17236 '())))) + (declare (not safe)) + (cons 'values->list __tmp17235)))) + (declare (not safe)) + (cons __tmp17234 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17237 + __tmp17233)))) + (declare (not safe)) + (cons __tmp17232 _bind15531_)))) + (declare (not safe)) + (_lp15526_ + _rest15559_ + __tmp17238 + _pre15530_ + __tmp17231 + _post15532_)) + (if (let () + (declare (not safe)) + (list? _hd15560_)) + (let* ((_len15562_ (length _hd15560_)) + (_tmp15564_ + (let ((__tmp17211 + (let () + (declare (not safe)) + (gensym)))) + (declare (not safe)) + (__SRC__0 __tmp17211)))) + (let ((__tmp17230 + (let () + (declare (not safe)) + (cdr _exprs15529_))) + (__tmp17223 + (let ((__tmp17224 + (lambda (_id15567_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id14365_) - (cons (cons 'quote (cons '#!void '())) '())) - _r14366_) - _r14366_)) + _r15568_) + (if (let () (declare (not safe)) (__AST-e _id15567_)) + (let ((__tmp17225 + (let ((__tmp17229 + (let () + (declare (not safe)) + (__SRC__0 _id15567_))) + (__tmp17226 + (let ((__tmp17227 + (let ((__tmp17228 + (let () + (declare (not safe)) + (cons '#!void '())))) + (declare (not safe)) + (cons 'quote __tmp17228)))) + (declare (not safe)) + (cons __tmp17227 '())))) + (declare (not safe)) + (cons __tmp17229 __tmp17226)))) + (declare (not safe)) + (cons __tmp17225 _r15568_)) + _r15568_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _pre14328_ - _hd14358_) - (cons (cons _tmp14362_ - (cons (car _exprs14327_) - '())) - _bind14329_) - (cons (cons _tmp14362_ - (cons _len14360_ - (filter-map2 - (lambda (_id14368_ + (declare (not safe)) + (foldl1 __tmp17224 + _pre15530_ + _hd15560_))) + (__tmp17219 + (let ((__tmp17220 + (let ((__tmp17221 + (let ((__tmp17222 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k14369_) - (if (__AST-e _id14368_) - (cons (__SRC__0 _id14368_) _k14369_) - '#f)) - _hd14358_ - (iota _len14360_)))) + (let () + (declare (not safe)) + (car _exprs15529_)))) + (declare (not safe)) + (cons __tmp17222 '())))) + (declare (not safe)) + (cons _tmp15564_ __tmp17221)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _post14330_))) - (__compile-error__% - _stx14210_ - _hd14358_)))))) + (declare (not safe)) + (cons __tmp17220 + _bind15531_))) + (__tmp17212 + (let ((__tmp17213 + (let ((__tmp17214 + (let ((__tmp17215 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17217 + (lambda (_id15570_ _k15571_) + (if (let () + (declare (not safe)) + (__AST-e _id15570_)) + (let ((__tmp17218 + (let () + (declare (not safe)) + (__SRC__0 _id15570_)))) + (declare (not safe)) + (cons __tmp17218 _k15571_)) + '#f))) + (__tmp17216 + (let () + (declare (not safe)) + (iota _len15562_)))) + (declare (not safe)) + (filter-map2 + __tmp17217 + _hd15560_ + __tmp17216)))) + (declare (not safe)) + (cons _len15562_ __tmp17215)))) + (declare (not safe)) + (cons _tmp15564_ __tmp17214)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17213 + _post15532_)))) + (declare (not safe)) + (_lp15526_ + _rest15559_ + __tmp17230 + __tmp17223 + __tmp17219 + __tmp17212))) + (let () + (declare (not safe)) + (__compile-error__% + _stx15412_ + _hd15560_))))))) (if (let () (declare (not safe)) - (##pair? _rest1433114345_)) - (let ((_tl1434114394_ + (##pair? _rest1553315547_)) + (let ((_tl1554315596_ (let () (declare (not safe)) - (##cdr _rest1433114345_))) - (_hd1434014392_ + (##cdr _rest1553315547_))) + (_hd1554215594_ (let () (declare (not safe)) - (##car _rest1433114345_)))) + (##car _rest1553315547_)))) (if (let () (declare (not safe)) - (##pair? _hd1434014392_)) - (let ((_tl1434314399_ + (##pair? _hd1554215594_)) + (let ((_tl1554515601_ (let () (declare (not safe)) - (##cdr _hd1434014392_))) - (_hd1434214397_ + (##cdr _hd1554215594_))) + (_hd1554415599_ (let () (declare (not safe)) - (##car _hd1434014392_)))) + (##car _hd1554215594_)))) (if (let () (declare (not safe)) - (##null? _tl1434314399_)) - (let ((_id14402_ _hd1434214397_) - (_rest14404_ _tl1434114394_)) - (_K1433914389_ - _rest14404_ - _id14402_)) - (let ((_hd14379_ _hd1434014392_) - (_rest14381_ _tl1434114394_)) - (_K1433614371_ - _rest14381_ - _hd14379_)))) - (let ((_hd14379_ _hd1434014392_) - (_rest14381_ _tl1434114394_)) - (_K1433614371_ _rest14381_ _hd14379_)))) - (_else1433414353_))))))) - (_compile-inner14214_ - (lambda (_pre14315_ _bind14316_ _post14317_ _body14318_) - (if (null? _pre14315_) - (_compile-bind14215_ - _bind14316_ - _post14317_ - _body14318_) - (__SRC__% - (cons 'let - (cons (reverse _pre14315_) - (cons (_compile-bind14215_ - _bind14316_ - _post14317_ - _body14318_) - '()))) - _stx14210_)))) - (_compile-bind14215_ - (lambda (_bind14311_ _post14312_ _body14313_) - (__SRC__% - (cons 'letrec - (cons (reverse _bind14311_) - (cons (_compile-post14216_ - _post14312_ - _body14313_) - '()))) - _stx14210_))) - (_compile-post14216_ - (lambda (_post14218_ _body14219_) - (let _lp14221_ ((_rest14223_ _post14218_) - (_check14224_ '()) - (_bind14225_ '())) - (let* ((_rest1422614238_ _rest14223_) - (_else1422814246_ + (##null? _tl1554515601_)) + (let ((_id15604_ _hd1554415599_) + (_rest15606_ _tl1554315596_)) + (let () + (declare (not safe)) + (_K1554115591_ + _rest15606_ + _id15604_))) + (let ((_hd15581_ _hd1554215594_) + (_rest15583_ _tl1554315596_)) + (let () + (declare (not safe)) + (_K1553815573_ + _rest15583_ + _hd15581_))))) + (let ((_hd15581_ _hd1554215594_) + (_rest15583_ _tl1554315596_)) + (let () + (declare (not safe)) + (_K1553815573_ + _rest15583_ + _hd15581_))))) + (let () + (declare (not safe)) + (_else1553615555_)))))))) + (_compile-inner15416_ + (lambda (_pre15517_ _bind15518_ _post15519_ _body15520_) + (if (let () (declare (not safe)) (null? _pre15517_)) + (let () + (declare (not safe)) + (_compile-bind15417_ + _bind15518_ + _post15519_ + _body15520_)) + (let ((__tmp17239 + (let ((__tmp17240 + (let ((__tmp17243 + (let () + (declare (not safe)) + (reverse _pre15517_))) + (__tmp17241 + (let ((__tmp17242 + (let () + (declare (not safe)) + (_compile-bind15417_ + _bind15518_ + _post15519_ + _body15520_)))) + (declare (not safe)) + (cons __tmp17242 '())))) + (declare (not safe)) + (cons __tmp17243 __tmp17241)))) + (declare (not safe)) + (cons 'let __tmp17240)))) + (declare (not safe)) + (__SRC__% __tmp17239 _stx15412_))))) + (_compile-bind15417_ + (lambda (_bind15513_ _post15514_ _body15515_) + (let ((__tmp17244 + (let ((__tmp17245 + (let ((__tmp17248 + (let () + (declare (not safe)) + (reverse _bind15513_))) + (__tmp17246 + (let ((__tmp17247 + (let () + (declare (not safe)) + (_compile-post15418_ + _post15514_ + _body15515_)))) + (declare (not safe)) + (cons __tmp17247 '())))) + (declare (not safe)) + (cons __tmp17248 __tmp17246)))) + (declare (not safe)) + (cons 'letrec __tmp17245)))) + (declare (not safe)) + (__SRC__% __tmp17244 _stx15412_)))) + (_compile-post15418_ + (lambda (_post15420_ _body15421_) + (let _lp15423_ ((_rest15425_ _post15420_) + (_check15426_ '()) + (_bind15427_ '())) + (let* ((_rest1542815440_ _rest15425_) + (_else1543015448_ (lambda () - (__SRC__% - (cons 'begin - (foldr1 cons - (foldr1 cons - (cons _body14219_ '()) - _bind14225_) - _check14224_)) - _stx14210_))) - (_K1423014285_ - (lambda (_rest14249_ - _init14250_ - _len14251_ - _tmp14252_) - (_lp14221_ - _rest14249_ - (cons (__SRC__% - (cons '__check-values - (cons _tmp14252_ - (cons _len14251_ '()))) - _stx14210_) - _check14224_) - (foldr1 (lambda (_hd14254_ _r14255_) - (let* ((_hd1425614263_ _hd14254_) - (_E1425814267_ - (lambda () - (error '"No clause matching" - _hd1425614263_))) - (_K1425914273_ - (lambda (_k14270_ _id14271_) - (cons (cons 'set! + (let ((__tmp17249 + (let ((__tmp17250 + (let ((__tmp17251 + (let ((__tmp17252 + (let () + (declare + (not safe)) + (cons _body15421_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _id14271_ - (cons (cons '##vector-ref - (cons _tmp14252_ - (cons _k14270_ '()))) - '()))) - _r14255_)))) + '())))) + (declare (not safe)) + (foldr1 cons __tmp17252 _bind15427_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _hd1425614263_)) - (let ((_hd1426014276_ - (let () - (declare (not safe)) - (##car _hd1425614263_))) - (_tl1426114278_ - (let () - (declare (not safe)) - (##cdr _hd1425614263_)))) - (let* ((_id14281_ - _hd1426014276_) - (_k14283_ - _tl1426114278_)) - (_K1425914273_ - _k14283_ - _id14281_))) - (_E1425814267_)))) - _bind14225_ - _init14250_))))) + (declare (not safe)) + (foldr1 cons + __tmp17251 + _check15426_)))) + (declare (not safe)) + (cons 'begin __tmp17250)))) + (declare (not safe)) + (__SRC__% __tmp17249 _stx15412_)))) + (_K1543215487_ + (lambda (_rest15451_ + _init15452_ + _len15453_ + _tmp15454_) + (let ((__tmp17261 + (let ((__tmp17262 + (let ((__tmp17263 + (let ((__tmp17264 + (let ((__tmp17265 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _len15453_ '())))) + (declare (not safe)) + (cons _tmp15454_ __tmp17265)))) + (declare (not safe)) + (cons '__check-values __tmp17264)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (__SRC__% + __tmp17263 + _stx15412_)))) + (declare (not safe)) + (cons __tmp17262 _check15426_))) + (__tmp17253 + (let ((__tmp17254 + (lambda (_hd15456_ _r15457_) + (let* ((_hd1545815465_ + _hd15456_) + (_E1546015469_ + (lambda () + (let () + (declare + (not safe)) + (error '"No clause matching" +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _hd1545815465_)))) + (_K1546115475_ + (lambda (_k15472_ _id15473_) + (let ((__tmp17255 + (let ((__tmp17256 + (let ((__tmp17257 + (let ((__tmp17258 + (let ((__tmp17259 + (let ((__tmp17260 + (let () + (declare + (not safe)) + (cons _k15472_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons _tmp15454_ __tmp17260)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '##vector-ref + __tmp17259)))) + (declare (not safe)) + (cons __tmp17258 '())))) + (declare (not safe)) + (cons _id15473_ __tmp17257)))) + (declare (not safe)) + (cons 'set! __tmp17256)))) + (declare (not safe)) + (cons __tmp17255 _r15457_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (##pair? _hd1545815465_)) + (let ((_hd1546215478_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _hd1545815465_))) + (_tl1546315480_ + (let () (declare (not safe)) (##cdr _hd1545815465_)))) + (let* ((_id15483_ _hd1546215478_) (_k15485_ _tl1546315480_)) + (declare (not safe)) + (_K1546115475_ _k15485_ _id15483_))) + (let () (declare (not safe)) (_E1546015469_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp17254 + _bind15427_ + _init15452_)))) + (declare (not safe)) + (_lp15423_ + _rest15451_ + __tmp17261 + __tmp17253))))) (if (let () (declare (not safe)) - (##pair? _rest1422614238_)) - (let ((_hd1423114288_ + (##pair? _rest1542815440_)) + (let ((_hd1543315490_ (let () (declare (not safe)) - (##car _rest1422614238_))) - (_tl1423214290_ + (##car _rest1542815440_))) + (_tl1543415492_ (let () (declare (not safe)) - (##cdr _rest1422614238_)))) + (##cdr _rest1542815440_)))) (if (let () (declare (not safe)) - (##pair? _hd1423114288_)) - (let ((_hd1423314293_ + (##pair? _hd1543315490_)) + (let ((_hd1543515495_ (let () (declare (not safe)) - (##car _hd1423114288_))) - (_tl1423414295_ + (##car _hd1543315490_))) + (_tl1543615497_ (let () (declare (not safe)) - (##cdr _hd1423114288_)))) - (let ((_tmp14298_ _hd1423314293_)) + (##cdr _hd1543315490_)))) + (let ((_tmp15500_ _hd1543515495_)) (if (let () (declare (not safe)) - (##pair? _tl1423414295_)) - (let ((_hd1423514300_ + (##pair? _tl1543615497_)) + (let ((_hd1543715502_ (let () (declare (not safe)) - (##car _tl1423414295_))) - (_tl1423614302_ + (##car _tl1543615497_))) + (_tl1543815504_ (let () (declare (not safe)) - (##cdr _tl1423414295_)))) - (let* ((_len14305_ _hd1423514300_) - (_init14307_ _tl1423614302_) - (_rest14309_ - _tl1423214290_)) - (_K1423014285_ - _rest14309_ - _init14307_ - _len14305_ - _tmp14298_))) - (_else1422814246_)))) - (_else1422814246_))) - (_else1422814246_))))))) - (__compile-let-form - _stx14210_ - _compile-simple14212_ - _compile-values14213_)))) + (##cdr _tl1543615497_)))) + (let* ((_len15507_ _hd1543715502_) + (_init15509_ _tl1543815504_) + (_rest15511_ + _tl1543415492_)) + (declare (not safe)) + (_K1543215487_ + _rest15511_ + _init15509_ + _len15507_ + _tmp15500_))) + (let () + (declare (not safe)) + (_else1543015448_))))) + (let () + (declare (not safe)) + (_else1543015448_)))) + (let () + (declare (not safe)) + (_else1543015448_)))))))) + (let () + (declare (not safe)) + (__compile-let-form + _stx15412_ + _compile-simple15414_ + _compile-values15415_))))) (define __compile-letrec*-values% - (lambda (_stx13965_) - (letrec ((_compile-simple13967_ - (lambda (_hd-ids14206_ _exprs14207_ _body14208_) - (__SRC__% - (cons 'letrec* - (cons (map list - (map __compile-head-id _hd-ids14206_) - _exprs14207_) - (cons _body14208_ '()))) - _stx13965_))) - (_compile-values13968_ - (lambda (_hd-ids14117_ _exprs14118_ _body14119_) - (let _lp14121_ ((_rest14123_ _hd-ids14117_) - (_exprs14124_ _exprs14118_) - (_bind14125_ '()) - (_post14126_ '())) - (let* ((_rest1412714141_ _rest14123_) - (_else1413014149_ + (lambda (_stx15167_) + (letrec ((_compile-simple15169_ + (lambda (_hd-ids15408_ _exprs15409_ _body15410_) + (let ((__tmp17266 + (let ((__tmp17267 + (let ((__tmp17269 + (let ((__tmp17270 + (let () + (declare (not safe)) + (map __compile-head-id + _hd-ids15408_)))) + (declare (not safe)) + (map list __tmp17270 _exprs15409_))) + (__tmp17268 + (let () + (declare (not safe)) + (cons _body15410_ '())))) + (declare (not safe)) + (cons __tmp17269 __tmp17268)))) + (declare (not safe)) + (cons 'letrec* __tmp17267)))) + (declare (not safe)) + (__SRC__% __tmp17266 _stx15167_)))) + (_compile-values15170_ + (lambda (_hd-ids15319_ _exprs15320_ _body15321_) + (let _lp15323_ ((_rest15325_ _hd-ids15319_) + (_exprs15326_ _exprs15320_) + (_bind15327_ '()) + (_post15328_ '())) + (let* ((_rest1532915343_ _rest15325_) + (_else1533215351_ (lambda () - (_compile-bind13969_ - _bind14125_ - _post14126_ - _body14119_)))) - (let ((_K1413514189_ - (lambda (_rest14184_ _hd14185_) - (if (__AST-id? _hd14185_) - (let ((_id14187_ (__SRC__0 _hd14185_))) - (_lp14121_ - _rest14184_ - (cdr _exprs14124_) - (cons (cons _id14187_ - (cons (cons 'quote - (cons '#!void + (let () + (declare (not safe)) + (_compile-bind15171_ + _bind15327_ + _post15328_ + _body15321_))))) + (let ((_K1533715391_ + (lambda (_rest15386_ _hd15387_) + (if (let () + (declare (not safe)) + (__AST-id? _hd15387_)) + (let ((_id15389_ + (let () + (declare (not safe)) + (__SRC__0 _hd15387_)))) + (let ((__tmp17285 + (let () + (declare (not safe)) + (cdr _exprs15326_))) + (__tmp17280 + (let ((__tmp17281 + (let ((__tmp17282 + (let ((__tmp17283 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())) + (let ((__tmp17284 + (let () + (declare (not safe)) + (cons '#!void '())))) + (declare (not safe)) + (cons 'quote __tmp17284)))) + (declare (not safe)) + (cons __tmp17283 '())))) + (declare (not safe)) + (cons _id15389_ __tmp17282)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _bind14125_) - (cons (cons _id14187_ - (cons (car _exprs14124_) - '())) - _post14126_))) - (_lp14121_ - _rest14184_ - (cdr _exprs14124_) - _bind14125_ - (cons (cons '#f - (cons (car _exprs14124_) - '())) - _post14126_))))) - (_K1413214169_ - (lambda (_rest14153_ _hd14154_) - (if (__AST-id? _hd14154_) - (let ((_id14156_ (__SRC__0 _hd14154_))) - (_lp14121_ - _rest14153_ - (cdr _exprs14124_) - (cons (cons _id14156_ - (cons (cons 'quote - (cons '#!void + (declare (not safe)) + (cons __tmp17281 _bind15327_))) + (__tmp17276 + (let ((__tmp17277 + (let ((__tmp17278 + (let ((__tmp17279 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())) + (let () (declare (not safe)) (car _exprs15326_)))) + (declare (not safe)) + (cons __tmp17279 '())))) + (declare (not safe)) + (cons _id15389_ __tmp17278)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _bind14125_) - (cons (cons _id14156_ - (cons (cons 'values->list - (cons (car _exprs14124_) + (declare (not safe)) + (cons __tmp17277 + _post15328_)))) + (declare (not safe)) + (_lp15323_ + _rest15386_ + __tmp17285 + __tmp17280 + __tmp17276))) + (let ((__tmp17275 + (let () + (declare (not safe)) + (cdr _exprs15326_))) + (__tmp17271 + (let ((__tmp17272 + (let ((__tmp17273 + (let ((__tmp17274 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())) + (let () (declare (not safe)) (car _exprs15326_)))) + (declare (not safe)) + (cons __tmp17274 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _post14126_))) - (if (not (__AST-e _hd14154_)) - (_lp14121_ - _rest14153_ - (cdr _exprs14124_) - _bind14125_ - (cons (cons '#f - (cons (car _exprs14124_) - '())) - _post14126_)) - (if (list? _hd14154_) - (let* ((_len14158_ - (length _hd14154_)) - (_tmp14160_ - (__SRC__0 (gensym)))) - (_lp14121_ - _rest14153_ - (cdr _exprs14124_) - (foldl1 (lambda (_id14163_ + (declare (not safe)) + (cons '#f __tmp17273)))) + (declare (not safe)) + (cons __tmp17272 _post15328_)))) + (declare (not safe)) + (_lp15323_ + _rest15386_ + __tmp17275 + _bind15327_ + __tmp17271))))) + (_K1533415371_ + (lambda (_rest15355_ _hd15356_) + (if (let () + (declare (not safe)) + (__AST-id? _hd15356_)) + (let ((_id15358_ + (let () + (declare (not safe)) + (__SRC__0 _hd15356_)))) + (let ((__tmp17321 + (let () + (declare (not safe)) + (cdr _exprs15326_))) + (__tmp17316 + (let ((__tmp17317 + (let ((__tmp17318 + (let ((__tmp17319 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r14164_) - (if (__AST-e _id14163_) - (cons (cons (__SRC__0 _id14163_) - (cons (cons 'quote (cons '#!void '())) '())) - _r14164_) - _r14164_)) - _bind14125_ - _hd14154_) + (let ((__tmp17320 + (let () + (declare (not safe)) + (cons '#!void '())))) + (declare (not safe)) + (cons 'quote __tmp17320)))) + (declare (not safe)) + (cons __tmp17319 '())))) + (declare (not safe)) + (cons _id15358_ __tmp17318)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _tmp14160_ - (cons (car _exprs14124_) + (declare (not safe)) + (cons __tmp17317 _bind15327_))) + (__tmp17310 + (let ((__tmp17311 + (let ((__tmp17312 + (let ((__tmp17313 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _len14158_ - (filter-map2 - (lambda (_id14166_ _k14167_) - (if (__AST-e _id14166_) - (cons (__SRC__0 _id14166_) _k14167_) - '#f)) - _hd14154_ - (iota _len14158_))))) - _post14126_))) + (let ((__tmp17314 + (let ((__tmp17315 + (let () + (declare (not safe)) + (car _exprs15326_)))) + (declare (not safe)) + (cons __tmp17315 '())))) + (declare (not safe)) + (cons 'values->list __tmp17314)))) + (declare (not safe)) + (cons __tmp17313 '())))) + (declare (not safe)) + (cons _id15358_ __tmp17312)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__compile-error__% - _stx13965_ - _hd14154_))))))) + (declare (not safe)) + (cons __tmp17311 + _post15328_)))) + (declare (not safe)) + (_lp15323_ + _rest15355_ + __tmp17321 + __tmp17316 + __tmp17310))) + (if (let ((__tmp17309 + (let () + (declare (not safe)) + (__AST-e _hd15356_)))) + (declare (not safe)) + (not __tmp17309)) + (let ((__tmp17308 + (let () + (declare (not safe)) + (cdr _exprs15326_))) + (__tmp17304 + (let ((__tmp17305 + (let ((__tmp17306 + (let ((__tmp17307 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (car _exprs15326_)))) + (declare (not safe)) + (cons __tmp17307 '())))) + (declare (not safe)) + (cons '#f __tmp17306)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17305 + _post15328_)))) + (declare (not safe)) + (_lp15323_ + _rest15355_ + __tmp17308 + _bind15327_ + __tmp17304)) + (if (let () + (declare (not safe)) + (list? _hd15356_)) + (let* ((_len15360_ + (length _hd15356_)) + (_tmp15362_ + (let ((__tmp17286 + (let () + (declare + (not safe)) + (gensym)))) + (declare (not safe)) + (__SRC__0 __tmp17286)))) + (let ((__tmp17303 + (let () + (declare (not safe)) + (cdr _exprs15326_))) + (__tmp17296 + (let ((__tmp17297 + (lambda (_id15365_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _r15366_) + (if (let () (declare (not safe)) (__AST-e _id15365_)) + (let ((__tmp17298 + (let ((__tmp17302 + (let () + (declare (not safe)) + (__SRC__0 _id15365_))) + (__tmp17299 + (let ((__tmp17300 + (let ((__tmp17301 + (let () + (declare (not safe)) + (cons '#!void '())))) + (declare (not safe)) + (cons 'quote __tmp17301)))) + (declare (not safe)) + (cons __tmp17300 '())))) + (declare (not safe)) + (cons __tmp17302 __tmp17299)))) + (declare (not safe)) + (cons __tmp17298 _r15366_)) + _r15366_)))) + (declare (not safe)) + (foldl1 __tmp17297 _bind15327_ _hd15356_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17287 + (let ((__tmp17288 + (let ((__tmp17289 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17295 + (let () + (declare (not safe)) + (car _exprs15326_))) + (__tmp17290 + (let ((__tmp17291 + (let ((__tmp17293 + (lambda (_id15368_ _k15369_) + (if (let () + (declare (not safe)) + (__AST-e _id15368_)) + (let ((__tmp17294 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (__SRC__0 _id15368_)))) + (declare (not safe)) + (cons __tmp17294 _k15369_)) + '#f))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17292 + (let () + (declare (not safe)) + (iota _len15360_)))) + (declare (not safe)) + (filter-map2 + __tmp17293 + _hd15356_ + __tmp17292)))) + (declare (not safe)) + (cons _len15360_ __tmp17291)))) + (declare (not safe)) + (cons __tmp17295 __tmp17290)))) + (declare (not safe)) + (cons _tmp15362_ __tmp17289)))) + (declare (not safe)) + (cons __tmp17288 _post15328_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp15323_ + _rest15355_ + __tmp17303 + __tmp17296 + __tmp17287))) + (let () + (declare (not safe)) + (__compile-error__% + _stx15167_ + _hd15356_)))))))) (if (let () (declare (not safe)) - (##pair? _rest1412714141_)) - (let ((_tl1413714194_ + (##pair? _rest1532915343_)) + (let ((_tl1533915396_ (let () (declare (not safe)) - (##cdr _rest1412714141_))) - (_hd1413614192_ + (##cdr _rest1532915343_))) + (_hd1533815394_ (let () (declare (not safe)) - (##car _rest1412714141_)))) + (##car _rest1532915343_)))) (if (let () (declare (not safe)) - (##pair? _hd1413614192_)) - (let ((_tl1413914199_ + (##pair? _hd1533815394_)) + (let ((_tl1534115401_ (let () (declare (not safe)) - (##cdr _hd1413614192_))) - (_hd1413814197_ + (##cdr _hd1533815394_))) + (_hd1534015399_ (let () (declare (not safe)) - (##car _hd1413614192_)))) + (##car _hd1533815394_)))) (if (let () (declare (not safe)) - (##null? _tl1413914199_)) - (let ((_hd14202_ _hd1413814197_) - (_rest14204_ _tl1413714194_)) - (_K1413514189_ - _rest14204_ - _hd14202_)) - (let ((_hd14177_ _hd1413614192_) - (_rest14179_ _tl1413714194_)) - (_K1413214169_ - _rest14179_ - _hd14177_)))) - (let ((_hd14177_ _hd1413614192_) - (_rest14179_ _tl1413714194_)) - (_K1413214169_ _rest14179_ _hd14177_)))) - (_else1413014149_))))))) - (_compile-bind13969_ - (lambda (_bind14113_ _post14114_ _body14115_) - (__SRC__% - (cons 'let - (cons (reverse _bind14113_) - (cons (_compile-post13970_ - _post14114_ - _body14115_) - '()))) - _stx13965_))) - (_compile-post13970_ - (lambda (_post13972_ _body13973_) - (__SRC__% - (cons 'begin - (foldr1 cons - '() - (foldl1 (lambda (_hd13975_ _r13976_) - (let* ((_hd1397714000_ _hd13975_) - (_E1398114004_ - (lambda () - (error '"No clause matching" - _hd1397714000_)))) - (let ((_K1399414098_ - (lambda (_expr14096_) - (cons _expr14096_ - _r13976_))) - (_K1398914076_ - (lambda (_expr14073_ - _id14074_) - (cons (__SRC__% - (cons 'set! + (##null? _tl1534115401_)) + (let ((_hd15404_ _hd1534015399_) + (_rest15406_ _tl1533915396_)) + (let () + (declare (not safe)) + (_K1533715391_ + _rest15406_ + _hd15404_))) + (let ((_hd15379_ _hd1533815394_) + (_rest15381_ _tl1533915396_)) + (let () + (declare (not safe)) + (_K1533415371_ + _rest15381_ + _hd15379_))))) + (let ((_hd15379_ _hd1533815394_) + (_rest15381_ _tl1533915396_)) + (let () + (declare (not safe)) + (_K1533415371_ + _rest15381_ + _hd15379_))))) + (let () + (declare (not safe)) + (_else1533215351_)))))))) + (_compile-bind15171_ + (lambda (_bind15315_ _post15316_ _body15317_) + (let ((__tmp17322 + (let ((__tmp17323 + (let ((__tmp17326 + (let () + (declare (not safe)) + (reverse _bind15315_))) + (__tmp17324 + (let ((__tmp17325 + (let () + (declare (not safe)) + (_compile-post15172_ + _post15316_ + _body15317_)))) + (declare (not safe)) + (cons __tmp17325 '())))) + (declare (not safe)) + (cons __tmp17326 __tmp17324)))) + (declare (not safe)) + (cons 'let __tmp17323)))) + (declare (not safe)) + (__SRC__% __tmp17322 _stx15167_)))) + (_compile-post15172_ + (lambda (_post15174_ _body15175_) + (let ((__tmp17327 + (let ((__tmp17328 + (let ((__tmp17329 + (let ((__tmp17331 + (lambda (_hd15177_ _r15178_) + (let* ((_hd1517915202_ + _hd15177_) + (_E1518315206_ + (lambda () + (let () + (declare + (not safe)) + (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _id14074_ (cons _expr14073_ '()))) - _stx13965_) - _r13976_))) + _hd1517915202_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K1398214043_ - (lambda (_init14008_ - _len14009_ - _expr14010_ - _tmp14011_) - (cons (__SRC__% - (cons 'let + (let ((_K1519615300_ + (lambda (_expr15298_) + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _tmp14011_ - (cons _expr14010_ '())) - '()) - (cons (__SRC__% - (cons '__check-values - (cons _tmp14011_ - (cons _len14009_ '()))) - _stx13965_) - (foldr1 cons - '() - (map (lambda (_hd14013_) - (let* ((_hd1401414021_ - _hd14013_) - (_E1401614025_ - (lambda () + (not safe)) + (cons _expr15298_ _r15178_)))) + (_K1519115278_ + (lambda (_expr15275_ _id15276_) + (let ((__tmp17332 + (let ((__tmp17333 + (let ((__tmp17334 + (let ((__tmp17335 + (let () + (declare (not safe)) + (cons _expr15275_ '())))) + (declare (not safe)) + (cons _id15276_ __tmp17335)))) + (declare (not safe)) + (cons 'set! __tmp17334)))) + (declare (not safe)) + (__SRC__% __tmp17333 _stx15167_)))) + (declare (not safe)) + (cons __tmp17332 _r15178_)))) + (_K1518415245_ + (lambda (_init15210_ _len15211_ _expr15212_ _tmp15213_) + (let ((__tmp17336 + (let ((__tmp17337 + (let ((__tmp17338 + (let ((__tmp17353 + (let ((__tmp17354 + (let ((__tmp17355 + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (error '"No clause matching" _hd1401414021_))) - (_K1401714031_ - (lambda (_k14028_ _id14029_) - (__SRC__% - (cons 'set! - (cons _id14029_ - (cons (cons '##vector-ref - (cons _tmp14011_ - (cons _k14028_ '()))) - '()))) - _stx13965_)))) - (if (let () (declare (not safe)) (##pair? _hd1401414021_)) - (let ((_hd1401814034_ - (let () - (declare (not safe)) - (##car _hd1401414021_))) - (_tl1401914036_ - (let () - (declare (not safe)) - (##cdr _hd1401414021_)))) - (let* ((_id14039_ _hd1401814034_) - (_k14041_ _tl1401914036_)) - (_K1401714031_ _k14041_ _id14039_))) - (_E1401614025_)))) - _init14008_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx13965_) - _r13976_)))) + (declare (not safe)) + (cons _expr15212_ '())))) + (declare (not safe)) + (cons _tmp15213_ __tmp17355)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _hd1397714000_)) - (let ((_tl1399614103_ - (let () - (declare - (not safe)) - (##cdr _hd1397714000_))) - (_hd1399514101_ - (let () - (declare - (not safe)) - (##car _hd1397714000_)))) - (if (let () - (declare - (not safe)) - (##eq? _hd1399514101_ + (declare (not safe)) + (cons __tmp17354 '()))) + (__tmp17339 + (let ((__tmp17349 + (let ((__tmp17350 + (let ((__tmp17351 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f)) - (if (let () (declare (not safe)) (##pair? _tl1399614103_)) - (let ((_tl1399814108_ - (let () - (declare (not safe)) - (##cdr _tl1399614103_))) - (_hd1399714106_ - (let () - (declare (not safe)) - (##car _tl1399614103_)))) - (if (let () - (declare (not safe)) - (##null? _tl1399814108_)) - (let ((_expr14111_ _hd1399714106_)) - (_K1399414098_ _expr14111_)) - (if (let () - (declare (not safe)) - (##pair? _tl1399814108_)) - (let ((_tl1398814062_ - (let () - (declare (not safe)) - (##cdr _tl1399814108_))) - (_hd1398714060_ - (let () - (declare (not safe)) - (##car _tl1399814108_)))) - (let ((_tmp14051_ _hd1399514101_) - (_expr14058_ _hd1399714106_) - (_len14065_ _hd1398714060_) - (_init14067_ _tl1398814062_)) - (_K1398214043_ - _init14067_ - _len14065_ - _expr14058_ - _tmp14051_))) - (_E1398114004_)))) - (_E1398114004_)) - (if (let () (declare (not safe)) (##pair? _tl1399614103_)) - (let ((_tl1399314088_ - (let () + (let ((__tmp17352 + (let () + (declare (not safe)) + (cons _len15211_ '())))) (declare (not safe)) - (##cdr _tl1399614103_))) - (_hd1399214086_ - (let () + (cons _tmp15213_ __tmp17352)))) + (declare (not safe)) + (cons '__check-values __tmp17351)))) + (declare (not safe)) + (__SRC__% __tmp17350 _stx15167_))) + (__tmp17340 + (let ((__tmp17341 + (let ((__tmp17342 + (lambda (_hd15215_) + (let* ((_hd1521615223_ _hd15215_) + (_E1521815227_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" + _hd1521615223_)))) + (_K1521915233_ + (lambda (_k15230_ _id15231_) + (let ((__tmp17343 + (let ((__tmp17344 + (let ((__tmp17345 + (let ((__tmp17346 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp17347 + (let ((__tmp17348 + (let () + (declare (not safe)) + (cons _k15230_ '())))) + (declare (not safe)) + (cons _tmp15213_ __tmp17348)))) (declare (not safe)) - (##car _tl1399614103_)))) - (if (let () - (declare (not safe)) - (##null? _tl1399314088_)) - (let ((_id14084_ _hd1399514101_) - (_expr14091_ _hd1399214086_)) - (_K1398914076_ _expr14091_ _id14084_)) - (if (let () - (declare (not safe)) - (##pair? _tl1399314088_)) - (let ((_tl1398814062_ - (let () - (declare (not safe)) - (##cdr _tl1399314088_))) - (_hd1398714060_ - (let () + (cons '##vector-ref __tmp17347)))) + (declare (not safe)) + (cons __tmp17346 '())))) + (declare (not safe)) + (cons _id15231_ __tmp17345)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'set! __tmp17344)))) + (declare (not safe)) + (__SRC__% + __tmp17343 + _stx15167_))))) + (if (let () + (declare (not safe)) + (##pair? _hd1521615223_)) + (let ((_hd1522015236_ + (let () + (declare (not safe)) + (##car _hd1521615223_))) + (_tl1522115238_ + (let () + (declare (not safe)) + (##cdr _hd1521615223_)))) + (let* ((_id15241_ _hd1522015236_) + (_k15243_ _tl1522115238_)) (declare (not safe)) - (##car _tl1399314088_)))) - (let ((_tmp14051_ _hd1399514101_) - (_expr14058_ _hd1399214086_) - (_len14065_ _hd1398714060_) - (_init14067_ _tl1398814062_)) - (_K1398214043_ - _init14067_ - _len14065_ - _expr14058_ - _tmp14051_))) - (_E1398114004_)))) - (_E1398114004_)))) + (_K1521915233_ _k15243_ _id15241_))) + (let () + (declare (not safe)) + (_E1521815227_))))))) + (declare (not safe)) + (map __tmp17342 _init15210_)))) + (declare (not safe)) + (foldr1 cons '() __tmp17341)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1398114004_))))) - (list _body13973_) - _post13972_))) - _stx13965_)))) - (__compile-let-form - _stx13965_ - _compile-simple13967_ - _compile-values13968_)))) + (declare (not safe)) + (cons __tmp17349 + __tmp17340)))) + (declare (not safe)) + (cons __tmp17353 __tmp17339)))) + (declare (not safe)) + (cons 'let __tmp17338)))) + (declare (not safe)) + (__SRC__% __tmp17337 _stx15167_)))) + (declare (not safe)) + (cons __tmp17336 _r15178_))))) + (if (let () (declare (not safe)) (##pair? _hd1517915202_)) + (let ((_tl1519815305_ + (let () (declare (not safe)) (##cdr _hd1517915202_))) + (_hd1519715303_ + (let () (declare (not safe)) (##car _hd1517915202_)))) + (if (let () + (declare (not safe)) + (##eq? _hd1519715303_ '#f)) + (if (let () + (declare (not safe)) + (##pair? _tl1519815305_)) + (let ((_tl1520015310_ + (let () + (declare (not safe)) + (##cdr _tl1519815305_))) + (_hd1519915308_ + (let () + (declare (not safe)) + (##car _tl1519815305_)))) + (if (let () + (declare (not safe)) + (##null? _tl1520015310_)) + (let ((_expr15313_ _hd1519915308_)) + (declare (not safe)) + (_K1519615300_ _expr15313_)) + (if (let () + (declare (not safe)) + (##pair? _tl1520015310_)) + (let ((_tl1519015264_ + (let () + (declare (not safe)) + (##cdr _tl1520015310_))) + (_hd1518915262_ + (let () + (declare (not safe)) + (##car _tl1520015310_)))) + (let ((_tmp15253_ _hd1519715303_) + (_expr15260_ _hd1519915308_) + (_len15267_ _hd1518915262_) + (_init15269_ _tl1519015264_)) + (let () + (declare (not safe)) + (_K1518415245_ + _init15269_ + _len15267_ + _expr15260_ + _tmp15253_)))) + (let () + (declare (not safe)) + (_E1518315206_))))) + (let () (declare (not safe)) (_E1518315206_))) + (if (let () + (declare (not safe)) + (##pair? _tl1519815305_)) + (let ((_tl1519515290_ + (let () + (declare (not safe)) + (##cdr _tl1519815305_))) + (_hd1519415288_ + (let () + (declare (not safe)) + (##car _tl1519815305_)))) + (if (let () + (declare (not safe)) + (##null? _tl1519515290_)) + (let ((_id15286_ _hd1519715303_) + (_expr15293_ _hd1519415288_)) + (let () + (declare (not safe)) + (_K1519115278_ _expr15293_ _id15286_))) + (if (let () + (declare (not safe)) + (##pair? _tl1519515290_)) + (let ((_tl1519015264_ + (let () + (declare (not safe)) + (##cdr _tl1519515290_))) + (_hd1518915262_ + (let () + (declare (not safe)) + (##car _tl1519515290_)))) + (let ((_tmp15253_ _hd1519715303_) + (_expr15260_ _hd1519415288_) + (_len15267_ _hd1518915262_) + (_init15269_ _tl1519015264_)) + (let () + (declare (not safe)) + (_K1518415245_ + _init15269_ + _len15267_ + _expr15260_ + _tmp15253_)))) + (let () + (declare (not safe)) + (_E1518315206_))))) + (let () (declare (not safe)) (_E1518315206_))))) + (let () (declare (not safe)) (_E1518315206_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp17330 (list _body15175_))) + (declare (not safe)) + (foldl1 __tmp17331 + __tmp17330 + _post15174_)))) + (declare (not safe)) + (foldr1 cons '() __tmp17329)))) + (declare (not safe)) + (cons 'begin __tmp17328)))) + (declare (not safe)) + (__SRC__% __tmp17327 _stx15167_))))) + (let () + (declare (not safe)) + (__compile-let-form + _stx15167_ + _compile-simple15169_ + _compile-values15170_))))) (define __compile-call% - (lambda (_stx13925_) - (let* ((_$e13927_ _stx13925_) - (_$E1392913938_ + (lambda (_stx15127_) + (let* ((_$e15129_ _stx15127_) + (_$E1513115140_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e13927_)))) - (if (__AST-pair? _$e13927_) - (let* ((_$tgt1393013941_ (__AST-e _$e13927_)) - (_$hd1393113944_ - (let () (declare (not safe)) (##car _$tgt1393013941_))) - (_$tl1393213947_ - (let () (declare (not safe)) (##cdr _$tgt1393013941_)))) - (if (__AST-pair? _$tl1393213947_) - (let* ((_$tgt1393313951_ (__AST-e _$tl1393213947_)) - (_$hd1393413954_ + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e15129_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15129_)) + (let* ((_$tgt1513215143_ + (let () (declare (not safe)) (__AST-e _$e15129_))) + (_$hd1513315146_ + (let () (declare (not safe)) (##car _$tgt1513215143_))) + (_$tl1513415149_ + (let () (declare (not safe)) (##cdr _$tgt1513215143_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1513415149_)) + (let* ((_$tgt1513515153_ (let () (declare (not safe)) - (##car _$tgt1393313951_))) - (_$tl1393513957_ + (__AST-e _$tl1513415149_))) + (_$hd1513615156_ (let () (declare (not safe)) - (##cdr _$tgt1393313951_)))) - (let* ((_rator13961_ _$hd1393413954_) - (_rands13963_ _$tl1393513957_)) - (__SRC__% - (cons (__compile _rator13961_) - (map __compile _rands13963_)) - _stx13925_))) - (_$E1392913938_))) - (_$E1392913938_))))) + (##car _$tgt1513515153_))) + (_$tl1513715159_ + (let () + (declare (not safe)) + (##cdr _$tgt1513515153_)))) + (let* ((_rator15163_ _$hd1513615156_) + (_rands15165_ _$tl1513715159_) + (__tmp17356 + (let ((__tmp17358 + (let () + (declare (not safe)) + (__compile _rator15163_))) + (__tmp17357 + (let () + (declare (not safe)) + (map __compile _rands15165_)))) + (declare (not safe)) + (cons __tmp17358 __tmp17357)))) + (declare (not safe)) + (__SRC__% __tmp17356 _stx15127_))) + (let () (declare (not safe)) (_$E1513115140_)))) + (let () (declare (not safe)) (_$E1513115140_)))))) (define __compile-ref% - (lambda (_stx13887_) - (let* ((_$e13889_ _stx13887_) - (_$E1389113900_ + (lambda (_stx15089_) + (let* ((_$e15091_ _stx15089_) + (_$E1509315102_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e13889_)))) - (if (__AST-pair? _$e13889_) - (let* ((_$tgt1389213903_ (__AST-e _$e13889_)) - (_$hd1389313906_ - (let () (declare (not safe)) (##car _$tgt1389213903_))) - (_$tl1389413909_ - (let () (declare (not safe)) (##cdr _$tgt1389213903_)))) - (if (__AST-pair? _$tl1389413909_) - (let* ((_$tgt1389513913_ (__AST-e _$tl1389413909_)) - (_$hd1389613916_ + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e15091_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15091_)) + (let* ((_$tgt1509415105_ + (let () (declare (not safe)) (__AST-e _$e15091_))) + (_$hd1509515108_ + (let () (declare (not safe)) (##car _$tgt1509415105_))) + (_$tl1509615111_ + (let () (declare (not safe)) (##cdr _$tgt1509415105_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1509615111_)) + (let* ((_$tgt1509715115_ (let () (declare (not safe)) - (##car _$tgt1389513913_))) - (_$tl1389713919_ + (__AST-e _$tl1509615111_))) + (_$hd1509815118_ (let () (declare (not safe)) - (##cdr _$tgt1389513913_)))) - (let ((_id13923_ _$hd1389613916_)) - (if (equal? (__AST-e _$tl1389713919_) '()) - (__SRC__% _id13923_ _stx13887_) - (_$E1389113900_)))) - (_$E1389113900_))) - (_$E1389113900_))))) + (##car _$tgt1509715115_))) + (_$tl1509915121_ + (let () + (declare (not safe)) + (##cdr _$tgt1509715115_)))) + (let ((_id15125_ _$hd1509815118_)) + (if (let ((__tmp17359 + (let () + (declare (not safe)) + (__AST-e _$tl1509915121_)))) + (declare (not safe)) + (equal? __tmp17359 '())) + (let () + (declare (not safe)) + (__SRC__% _id15125_ _stx15089_)) + (let () (declare (not safe)) (_$E1509315102_))))) + (let () (declare (not safe)) (_$E1509315102_)))) + (let () (declare (not safe)) (_$E1509315102_)))))) (define __compile-setq% - (lambda (_stx13834_) - (let* ((_$e13836_ _stx13834_) - (_$E1383813850_ + (lambda (_stx15036_) + (let* ((_$e15038_ _stx15036_) + (_$E1504015052_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e13836_)))) - (if (__AST-pair? _$e13836_) - (let* ((_$tgt1383913853_ (__AST-e _$e13836_)) - (_$hd1384013856_ - (let () (declare (not safe)) (##car _$tgt1383913853_))) - (_$tl1384113859_ - (let () (declare (not safe)) (##cdr _$tgt1383913853_)))) - (if (__AST-pair? _$tl1384113859_) - (let* ((_$tgt1384213863_ (__AST-e _$tl1384113859_)) - (_$hd1384313866_ + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e15038_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15038_)) + (let* ((_$tgt1504115055_ + (let () (declare (not safe)) (__AST-e _$e15038_))) + (_$hd1504215058_ + (let () (declare (not safe)) (##car _$tgt1504115055_))) + (_$tl1504315061_ + (let () (declare (not safe)) (##cdr _$tgt1504115055_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1504315061_)) + (let* ((_$tgt1504415065_ + (let () + (declare (not safe)) + (__AST-e _$tl1504315061_))) + (_$hd1504515068_ (let () (declare (not safe)) - (##car _$tgt1384213863_))) - (_$tl1384413869_ + (##car _$tgt1504415065_))) + (_$tl1504615071_ (let () (declare (not safe)) - (##cdr _$tgt1384213863_)))) - (let ((_id13873_ _$hd1384313866_)) - (if (__AST-pair? _$tl1384413869_) - (let* ((_$tgt1384513875_ (__AST-e _$tl1384413869_)) - (_$hd1384613878_ + (##cdr _$tgt1504415065_)))) + (let ((_id15075_ _$hd1504515068_)) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1504615071_)) + (let* ((_$tgt1504715077_ + (let () + (declare (not safe)) + (__AST-e _$tl1504615071_))) + (_$hd1504815080_ (let () (declare (not safe)) - (##car _$tgt1384513875_))) - (_$tl1384713881_ + (##car _$tgt1504715077_))) + (_$tl1504915083_ + (let () + (declare (not safe)) + (##cdr _$tgt1504715077_)))) + (let ((_expr15087_ _$hd1504815080_)) + (if (let ((__tmp17365 + (let () + (declare (not safe)) + (__AST-e _$tl1504915083_)))) + (declare (not safe)) + (equal? __tmp17365 '())) + (let ((__tmp17360 + (let ((__tmp17361 + (let ((__tmp17364 + (let () + (declare (not safe)) + (__SRC__% + _id15075_ + _stx15036_))) + (__tmp17362 + (let ((__tmp17363 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (__compile _expr15087_)))) + (declare (not safe)) + (cons __tmp17363 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17364 + __tmp17362)))) + (declare (not safe)) + (cons 'set! __tmp17361)))) + (declare (not safe)) + (__SRC__% __tmp17360 _stx15036_)) (let () (declare (not safe)) - (##cdr _$tgt1384513875_)))) - (let ((_expr13885_ _$hd1384613878_)) - (if (equal? (__AST-e _$tl1384713881_) '()) - (__SRC__% - (cons 'set! - (cons (__SRC__% - _id13873_ - _stx13834_) - (cons (__compile _expr13885_) - '()))) - _stx13834_) - (_$E1383813850_)))) - (_$E1383813850_)))) - (_$E1383813850_))) - (_$E1383813850_))))) + (_$E1504015052_))))) + (let () (declare (not safe)) (_$E1504015052_))))) + (let () (declare (not safe)) (_$E1504015052_)))) + (let () (declare (not safe)) (_$E1504015052_)))))) (define __compile-if% - (lambda (_stx13766_) - (let* ((_$e13768_ _stx13766_) - (_$E1377013785_ + (lambda (_stx14968_) + (let* ((_$e14970_ _stx14968_) + (_$E1497214987_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e13768_)))) - (if (__AST-pair? _$e13768_) - (let* ((_$tgt1377113788_ (__AST-e _$e13768_)) - (_$hd1377213791_ - (let () (declare (not safe)) (##car _$tgt1377113788_))) - (_$tl1377313794_ - (let () (declare (not safe)) (##cdr _$tgt1377113788_)))) - (if (__AST-pair? _$tl1377313794_) - (let* ((_$tgt1377413798_ (__AST-e _$tl1377313794_)) - (_$hd1377513801_ + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e14970_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e14970_)) + (let* ((_$tgt1497314990_ + (let () (declare (not safe)) (__AST-e _$e14970_))) + (_$hd1497414993_ + (let () (declare (not safe)) (##car _$tgt1497314990_))) + (_$tl1497514996_ + (let () (declare (not safe)) (##cdr _$tgt1497314990_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1497514996_)) + (let* ((_$tgt1497615000_ (let () (declare (not safe)) - (##car _$tgt1377413798_))) - (_$tl1377613804_ + (__AST-e _$tl1497514996_))) + (_$hd1497715003_ (let () (declare (not safe)) - (##cdr _$tgt1377413798_)))) - (let ((_p13808_ _$hd1377513801_)) - (if (__AST-pair? _$tl1377613804_) - (let* ((_$tgt1377713810_ (__AST-e _$tl1377613804_)) - (_$hd1377813813_ + (##car _$tgt1497615000_))) + (_$tl1497815006_ + (let () + (declare (not safe)) + (##cdr _$tgt1497615000_)))) + (let ((_p15010_ _$hd1497715003_)) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1497815006_)) + (let* ((_$tgt1497915012_ (let () (declare (not safe)) - (##car _$tgt1377713810_))) - (_$tl1377913816_ + (__AST-e _$tl1497815006_))) + (_$hd1498015015_ (let () (declare (not safe)) - (##cdr _$tgt1377713810_)))) - (let ((_t13820_ _$hd1377813813_)) - (if (__AST-pair? _$tl1377913816_) - (let* ((_$tgt1378013822_ - (__AST-e _$tl1377913816_)) - (_$hd1378113825_ + (##car _$tgt1497915012_))) + (_$tl1498115018_ + (let () + (declare (not safe)) + (##cdr _$tgt1497915012_)))) + (let ((_t15022_ _$hd1498015015_)) + (if (let () + (declare (not safe)) + (__AST-pair? _$tl1498115018_)) + (let* ((_$tgt1498215024_ (let () (declare (not safe)) - (##car _$tgt1378013822_))) - (_$tl1378213828_ + (__AST-e _$tl1498115018_))) + (_$hd1498315027_ (let () (declare (not safe)) - (##cdr _$tgt1378013822_)))) - (let ((_f13832_ _$hd1378113825_)) - (if (equal? (__AST-e _$tl1378213828_) - '()) - (__SRC__% - (cons 'if - (cons (__compile _p13808_) - (cons (__compile - _t13820_) - (cons (__compile + (##car _$tgt1498215024_))) + (_$tl1498415030_ + (let () + (declare (not safe)) + (##cdr _$tgt1498215024_)))) + (let ((_f15034_ _$hd1498315027_)) + (if (let ((__tmp17373 + (let () + (declare (not safe)) + (__AST-e _$tl1498415030_)))) + (declare (not safe)) + (equal? __tmp17373 '())) + (let ((__tmp17366 + (let ((__tmp17367 + (let ((__tmp17372 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _f13832_) - '())))) + (let () (declare (not safe)) (__compile _p15010_))) + (__tmp17368 + (let ((__tmp17371 + (let () + (declare (not safe)) + (__compile _t15022_))) + (__tmp17369 + (let ((__tmp17370 + (let () + (declare (not safe)) + (__compile _f15034_)))) + (declare (not safe)) + (cons __tmp17370 '())))) + (declare (not safe)) + (cons __tmp17371 __tmp17369)))) + (declare (not safe)) + (cons __tmp17372 __tmp17368)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx13766_) - (_$E1377013785_)))) - (_$E1377013785_)))) - (_$E1377013785_)))) - (_$E1377013785_))) - (_$E1377013785_))))) + (declare (not safe)) + (cons 'if __tmp17367)))) + (declare (not safe)) + (__SRC__% __tmp17366 _stx14968_)) + (let () + (declare (not safe)) + (_$E1497214987_))))) + (let () + (declare (not safe)) + (_$E1497214987_))))) + (let () (declare (not safe)) (_$E1497214987_))))) + (let () (declare (not safe)) (_$E1497214987_)))) + (let () (declare (not safe)) (_$E1497214987_)))))) (define __compile-quote% - (lambda (_stx13728_) - (let* ((_$e13730_ _stx13728_) - (_$E1373213741_ + (lambda (_stx14930_) + (let* ((_$e14932_ _stx14930_) + (_$E1493414943_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e13730_)))) - (if (__AST-pair? _$e13730_) - (let* ((_$tgt1373313744_ (__AST-e _$e13730_)) - (_$hd1373413747_ - (let () (declare (not safe)) (##car _$tgt1373313744_))) - (_$tl1373513750_ - (let () (declare (not safe)) (##cdr _$tgt1373313744_)))) - (if (__AST-pair? _$tl1373513750_) - (let* ((_$tgt1373613754_ (__AST-e _$tl1373513750_)) - (_$hd1373713757_ + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e14932_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e14932_)) + (let* ((_$tgt1493514946_ + (let () (declare (not safe)) (__AST-e _$e14932_))) + (_$hd1493614949_ + (let () (declare (not safe)) (##car _$tgt1493514946_))) + (_$tl1493714952_ + (let () (declare (not safe)) (##cdr _$tgt1493514946_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1493714952_)) + (let* ((_$tgt1493814956_ (let () (declare (not safe)) - (##car _$tgt1373613754_))) - (_$tl1373813760_ + (__AST-e _$tl1493714952_))) + (_$hd1493914959_ (let () (declare (not safe)) - (##cdr _$tgt1373613754_)))) - (let ((_e13764_ _$hd1373713757_)) - (if (equal? (__AST-e _$tl1373813760_) '()) - (__SRC__% - (cons 'quote (cons (__AST->datum _e13764_) '())) - _stx13728_) - (_$E1373213741_)))) - (_$E1373213741_))) - (_$E1373213741_))))) + (##car _$tgt1493814956_))) + (_$tl1494014962_ + (let () + (declare (not safe)) + (##cdr _$tgt1493814956_)))) + (let ((_e14966_ _$hd1493914959_)) + (if (let ((__tmp17377 + (let () + (declare (not safe)) + (__AST-e _$tl1494014962_)))) + (declare (not safe)) + (equal? __tmp17377 '())) + (let ((__tmp17374 + (let ((__tmp17375 + (let ((__tmp17376 + (let () + (declare (not safe)) + (__AST->datum _e14966_)))) + (declare (not safe)) + (cons __tmp17376 '())))) + (declare (not safe)) + (cons 'quote __tmp17375)))) + (declare (not safe)) + (__SRC__% __tmp17374 _stx14930_)) + (let () (declare (not safe)) (_$E1493414943_))))) + (let () (declare (not safe)) (_$E1493414943_)))) + (let () (declare (not safe)) (_$E1493414943_)))))) (define __compile-quote-syntax% - (lambda (_stx13690_) - (let* ((_$e13692_ _stx13690_) - (_$E1369413703_ + (lambda (_stx14892_) + (let* ((_$e14894_ _stx14892_) + (_$E1489614905_ (lambda () - (__raise-syntax-error '#f '"Bad syntax" _$e13692_)))) - (if (__AST-pair? _$e13692_) - (let* ((_$tgt1369513706_ (__AST-e _$e13692_)) - (_$hd1369613709_ - (let () (declare (not safe)) (##car _$tgt1369513706_))) - (_$tl1369713712_ - (let () (declare (not safe)) (##cdr _$tgt1369513706_)))) - (if (__AST-pair? _$tl1369713712_) - (let* ((_$tgt1369813716_ (__AST-e _$tl1369713712_)) - (_$hd1369913719_ + (let () + (declare (not safe)) + (__raise-syntax-error '#f '"Bad syntax" _$e14894_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e14894_)) + (let* ((_$tgt1489714908_ + (let () (declare (not safe)) (__AST-e _$e14894_))) + (_$hd1489814911_ + (let () (declare (not safe)) (##car _$tgt1489714908_))) + (_$tl1489914914_ + (let () (declare (not safe)) (##cdr _$tgt1489714908_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1489914914_)) + (let* ((_$tgt1490014918_ + (let () + (declare (not safe)) + (__AST-e _$tl1489914914_))) + (_$hd1490114921_ (let () (declare (not safe)) - (##car _$tgt1369813716_))) - (_$tl1370013722_ + (##car _$tgt1490014918_))) + (_$tl1490214924_ (let () (declare (not safe)) - (##cdr _$tgt1369813716_)))) - (let ((_e13726_ _$hd1369913719_)) - (if (equal? (__AST-e _$tl1370013722_) '()) - (__SRC__% - (cons 'quote (cons _e13726_ '())) - _stx13690_) - (_$E1369413703_)))) - (_$E1369413703_))) - (_$E1369413703_))))) - (__core-bind-syntax!__% '%#begin __compile-begin% make-__core-special-form) - (__core-bind-syntax!__% - '%#begin-syntax - __compile-ignore% - make-__core-special-form) - (__core-bind-syntax!__% - '%#begin-foreign - __compile-begin-foreign% - make-__core-special-form) - (__core-bind-syntax!__% - '%#module - __compile-ignore% - make-__core-special-form) - (__core-bind-syntax!__% - '%#import - __compile-import% - make-__core-special-form) - (__core-bind-syntax!__% - '%#export - __compile-ignore% - make-__core-special-form) - (__core-bind-syntax!__% - '%#provide - __compile-ignore% - make-__core-special-form) - (__core-bind-syntax!__% - '%#define-values - __compile-define-values% - make-__core-special-form) - (__core-bind-syntax!__% - '%#define-syntax - __compile-ignore% - make-__core-special-form) - (__core-bind-syntax!__% - '%#define-alias - __compile-ignore% - make-__core-special-form) - (__core-bind-syntax!__% - '%#define-runtime - __compile-ignore% - make-__core-special-form) - (__core-bind-syntax!__% - '%#extern - __compile-ignore% - make-__core-special-form) - (__core-bind-syntax!__% - '%#declare - __compile-ignore% - make-__core-special-form) - (__core-bind-syntax!__% - '%#begin-annotation - __compile-begin-annotation% - make-__core-expression) - (__core-bind-syntax!__% '%#quote __compile-quote% make-__core-expression) - (__core-bind-syntax!__% - '%#quote-syntax - __compile-quote-syntax% - make-__core-expression) - (__core-bind-syntax!__% '%#lambda __compile-lambda% make-__core-expression) - (__core-bind-syntax!__% - '%#case-lambda - __compile-case-lambda% - make-__core-expression) - (__core-bind-syntax!__% - '%#let-values - __compile-let-values% - make-__core-expression) - (__core-bind-syntax!__% - '%#letrec-values - __compile-letrec-values% - make-__core-expression) - (__core-bind-syntax!__% - '%#letrec*-values - __compile-letrec*-values% - make-__core-expression) - (__core-bind-syntax!__% '%#call __compile-call% make-__core-expression) - (__core-bind-syntax!__% '%#if __compile-if% make-__core-expression) - (__core-bind-syntax!__% '%#ref __compile-ref% make-__core-expression) - (__core-bind-syntax!__% '%#set! __compile-setq% make-__core-expression) - (__core-bind-syntax!__% '%#cond-expand __compile-error make-__core-form) - (__core-bind-syntax!__% '%#include __compile-error make-__core-form) - (__core-bind-syntax!__% '%#let-syntax __compile-error make-__core-form) - (__core-bind-syntax!__% - '%#letrec-syntax - __compile-error - make-__core-form))) + (##cdr _$tgt1490014918_)))) + (let ((_e14928_ _$hd1490114921_)) + (if (let ((__tmp17380 + (let () + (declare (not safe)) + (__AST-e _$tl1490214924_)))) + (declare (not safe)) + (equal? __tmp17380 '())) + (let ((__tmp17378 + (let ((__tmp17379 + (let () + (declare (not safe)) + (cons _e14928_ '())))) + (declare (not safe)) + (cons 'quote __tmp17379)))) + (declare (not safe)) + (__SRC__% __tmp17378 _stx14892_)) + (let () (declare (not safe)) (_$E1489614905_))))) + (let () (declare (not safe)) (_$E1489614905_)))) + (let () (declare (not safe)) (_$E1489614905_)))))) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#begin + __compile-begin% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#begin-syntax + __compile-ignore% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#begin-foreign + __compile-begin-foreign% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#module + __compile-ignore% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#import + __compile-import% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#export + __compile-ignore% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#provide + __compile-ignore% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#define-values + __compile-define-values% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#define-syntax + __compile-ignore% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#define-alias + __compile-ignore% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#define-runtime + __compile-ignore% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#extern + __compile-ignore% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#declare + __compile-ignore% + make-__core-special-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#begin-annotation + __compile-begin-annotation% + make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#quote + __compile-quote% + make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#quote-syntax + __compile-quote-syntax% + make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#lambda + __compile-lambda% + make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#case-lambda + __compile-case-lambda% + make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#let-values + __compile-let-values% + make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#letrec-values + __compile-letrec-values% + make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#letrec*-values + __compile-letrec*-values% + make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% '%#call __compile-call% make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% '%#if __compile-if% make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% '%#ref __compile-ref% make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% '%#set! __compile-setq% make-__core-expression)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% '%#cond-expand __compile-error make-__core-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% '%#include __compile-error make-__core-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% '%#let-syntax __compile-error make-__core-form)) + (let () + (declare (not safe)) + (__core-bind-syntax!__% + '%#letrec-syntax + __compile-error + make-__core-form)))) diff --git a/src/bootstrap/gerbil/runtime/eval__1.scm b/src/bootstrap/gerbil/runtime/eval__1.scm index f1a56b7f4..7eaa11fae 100644 --- a/src/bootstrap/gerbil/runtime/eval__1.scm +++ b/src/bootstrap/gerbil/runtime/eval__1.scm @@ -1,412 +1,412 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g15832_| + (define |[1]#_g17381_| (##structure gx#syntax-quote::t '__context::t #f (gx#current-expander-context) '())) - (define |[1]#_g15833_| + (define |[1]#_g17392_| (##structure gx#syntax-quote::t - 'make-__context + '__context-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15834_| + (define |[1]#_g17394_| (##structure gx#syntax-quote::t - '__context? + '__context-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15835_| + (define |[1]#_g17396_| (##structure gx#syntax-quote::t - '__context-t + '__context-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15836_| + (define |[1]#_g17398_| (##structure gx#syntax-quote::t - '__context-ns + '__context-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15837_| + (define |[1]#_g17404_| (##structure gx#syntax-quote::t - '__context-super + '__context-table #f (gx#current-expander-context) '())) - (define |[1]#_g15838_| + (define |[1]#_g17406_| (##structure gx#syntax-quote::t - '__context-table + '__context-super #f (gx#current-expander-context) '())) - (define |[1]#_g15839_| + (define |[1]#_g17408_| (##structure gx#syntax-quote::t - '__context-t-set! + '__context-ns #f (gx#current-expander-context) '())) - (define |[1]#_g15840_| + (define |[1]#_g17410_| (##structure gx#syntax-quote::t - '__context-ns-set! + '__context-t #f (gx#current-expander-context) '())) - (define |[1]#_g15841_| + (define |[1]#_g17412_| (##structure gx#syntax-quote::t - '__context-super-set! + '__context? #f (gx#current-expander-context) '())) - (define |[1]#_g15842_| + (define |[1]#_g17414_| (##structure gx#syntax-quote::t - '__context-table-set! + 'make-__context #f (gx#current-expander-context) '())) - (define |[1]#_g15843_| + (define |[1]#_g17416_| (##structure gx#syntax-quote::t '__runtime::t #f (gx#current-expander-context) '())) - (define |[1]#_g15844_| + (define |[1]#_g17424_| (##structure gx#syntax-quote::t - 'make-__runtime + '__runtime-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15845_| + (define |[1]#_g17427_| (##structure gx#syntax-quote::t - '__runtime? + '__runtime-id #f (gx#current-expander-context) '())) - (define |[1]#_g15846_| + (define |[1]#_g17429_| (##structure gx#syntax-quote::t - '__runtime-id + '__runtime? #f (gx#current-expander-context) '())) - (define |[1]#_g15847_| + (define |[1]#_g17431_| (##structure gx#syntax-quote::t - '__runtime-id-set! + 'make-__runtime #f (gx#current-expander-context) '())) - (define |[1]#_g15848_| + (define |[1]#_g17433_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g15849_| + (define |[1]#_g17442_| (##structure gx#syntax-quote::t - 'make-__syntax + '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15850_| + (define |[1]#_g17444_| (##structure gx#syntax-quote::t - '__syntax? + '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15851_| + (define |[1]#_g17448_| (##structure gx#syntax-quote::t - '__syntax-e + '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g15852_| + (define |[1]#_g17450_| (##structure gx#syntax-quote::t - '__syntax-id + '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g15853_| + (define |[1]#_g17452_| (##structure gx#syntax-quote::t - '__syntax-e-set! + '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g15854_| + (define |[1]#_g17454_| (##structure gx#syntax-quote::t - '__syntax-id-set! + 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g15855_| + (define |[1]#_g17456_| (##structure gx#syntax-quote::t '__macro::t #f (gx#current-expander-context) '())) - (define |[1]#_g15856_| + (define |[1]#_g17463_| (##structure gx#syntax-quote::t - 'make-__macro + '__macro? #f (gx#current-expander-context) '())) - (define |[1]#_g15857_| + (define |[1]#_g17465_| (##structure gx#syntax-quote::t - '__macro? + 'make-__macro #f (gx#current-expander-context) '())) - (define |[1]#_g15858_| + (define |[1]#_g17468_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g15859_| + (define |[1]#_g17469_| (##structure gx#syntax-quote::t '__special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g15860_| + (define |[1]#_g17476_| (##structure gx#syntax-quote::t - 'make-__special-form + '__special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g15861_| + (define |[1]#_g17478_| (##structure gx#syntax-quote::t - '__special-form? + 'make-__special-form #f (gx#current-expander-context) '())) - (define |[1]#_g15862_| + (define |[1]#_g17481_| (##structure gx#syntax-quote::t '__macro #f (gx#current-expander-context) '())) - (define |[1]#_g15863_| + (define |[1]#_g17482_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g15864_| + (define |[1]#_g17489_| (##structure gx#syntax-quote::t - 'make-__core-form + '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g15865_| + (define |[1]#_g17491_| (##structure gx#syntax-quote::t - '__core-form? + 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g15866_| + (define |[1]#_g17494_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g15867_| + (define |[1]#_g17501_| (##structure gx#syntax-quote::t - 'make-__core-expression + '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g15868_| + (define |[1]#_g17503_| (##structure gx#syntax-quote::t - '__core-expression? + 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g15869_| + (define |[1]#_g17506_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g15870_| + (define |[1]#_g17507_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g15871_| + (define |[1]#_g17514_| (##structure gx#syntax-quote::t - 'make-__core-special-form + '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g15872_| + (define |[1]#_g17516_| (##structure gx#syntax-quote::t - '__core-special-form? + 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g15873_| + (define |[1]#_g17519_| (##structure gx#syntax-quote::t '__struct-info::t #f (gx#current-expander-context) '())) - (define |[1]#_g15874_| + (define |[1]#_g17526_| (##structure gx#syntax-quote::t - 'make-__struct-info + '__struct-info? #f (gx#current-expander-context) '())) - (define |[1]#_g15875_| + (define |[1]#_g17528_| (##structure gx#syntax-quote::t - '__struct-info? + 'make-__struct-info #f (gx#current-expander-context) '())) - (define |[1]#_g15876_| + (define |[1]#_g17531_| (##structure gx#syntax-quote::t '__feature::t #f (gx#current-expander-context) '())) - (define |[1]#_g15877_| + (define |[1]#_g17538_| (##structure gx#syntax-quote::t - 'make-__feature + '__feature? #f (gx#current-expander-context) '())) - (define |[1]#_g15878_| + (define |[1]#_g17540_| (##structure gx#syntax-quote::t - '__feature? + 'make-__feature #f (gx#current-expander-context) '())) - (define |[1]#_g15879_| + (define |[1]#_g17543_| (##structure gx#syntax-quote::t '__module::t #f (gx#current-expander-context) '())) - (define |[1]#_g15880_| + (define |[1]#_g17554_| (##structure gx#syntax-quote::t - 'make-__module + '__module-export-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15881_| + (define |[1]#_g17556_| (##structure gx#syntax-quote::t - '__module? + '__module-import-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15882_| + (define |[1]#_g17558_| (##structure gx#syntax-quote::t - '__module-id + '__module-path-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15883_| + (define |[1]#_g17560_| (##structure gx#syntax-quote::t - '__module-path + '__module-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15884_| + (define |[1]#_g17566_| (##structure gx#syntax-quote::t - '__module-import + '__module-export #f (gx#current-expander-context) '())) - (define |[1]#_g15885_| + (define |[1]#_g17568_| (##structure gx#syntax-quote::t - '__module-export + '__module-import #f (gx#current-expander-context) '())) - (define |[1]#_g15886_| + (define |[1]#_g17570_| (##structure gx#syntax-quote::t - '__module-id-set! + '__module-path #f (gx#current-expander-context) '())) - (define |[1]#_g15887_| + (define |[1]#_g17572_| (##structure gx#syntax-quote::t - '__module-path-set! + '__module-id #f (gx#current-expander-context) '())) - (define |[1]#_g15888_| + (define |[1]#_g17574_| (##structure gx#syntax-quote::t - '__module-import-set! + '__module? #f (gx#current-expander-context) '())) - (define |[1]#_g15889_| + (define |[1]#_g17576_| (##structure gx#syntax-quote::t - '__module-export-set! + 'make-__module #f (gx#current-expander-context) '())) - (define |[1]#_g15890_| + (define |[1]#_g17579_| (##structure gx#syntax-quote::t '__context @@ -417,25 +417,72 @@ (define |[:0:]#__context| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15832_| + |[1]#_g17381_| 'expander-identifiers: - (cons '#f - (cons |[1]#_g15832_| - (cons |[1]#_g15833_| - (cons |[1]#_g15834_| - (cons (cons |[1]#_g15835_| - (cons |[1]#_g15836_| - (cons |[1]#_g15837_| - (cons |[1]#_g15838_| - '())))) - (cons (cons |[1]#_g15839_| - (cons |[1]#_g15840_| - (cons |[1]#_g15841_| - (cons |[1]#_g15842_| + (let ((__tmp17382 + (let ((__tmp17415 |[1]#_g17381_|) + (__tmp17383 + (let ((__tmp17413 |[1]#_g17414_|) + (__tmp17384 + (let ((__tmp17411 |[1]#_g17412_|) + (__tmp17385 + (let ((__tmp17399 + (let ((__tmp17409 |[1]#_g17410_|) + (__tmp17400 + (let ((__tmp17407 + |[1]#_g17408_|) + (__tmp17401 + (let ((__tmp17405 + |[1]#_g17406_|) + (__tmp17402 + (let ((__tmp17403 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + |[1]#_g17404_|)) + (declare (not safe)) + (cons __tmp17403 '())))) + (declare (not safe)) + (cons __tmp17405 __tmp17402)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp17407 + __tmp17401)))) + (declare (not safe)) + (cons __tmp17409 __tmp17400))) + (__tmp17386 + (let ((__tmp17387 + (let ((__tmp17397 + |[1]#_g17398_|) + (__tmp17388 + (let ((__tmp17395 + |[1]#_g17396_|) + (__tmp17389 + (let ((__tmp17393 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |[1]#_g17394_|) + (__tmp17390 + (let ((__tmp17391 |[1]#_g17392_|)) + (declare (not safe)) + (cons __tmp17391 '())))) + (declare (not safe)) + (cons __tmp17393 __tmp17390)))) + (declare (not safe)) + (cons __tmp17395 __tmp17389)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17397 + __tmp17388)))) + (declare (not safe)) + (cons __tmp17387 '())))) + (declare (not safe)) + (cons __tmp17399 __tmp17386)))) + (declare (not safe)) + (cons __tmp17411 __tmp17385)))) + (declare (not safe)) + (cons __tmp17413 __tmp17384)))) + (declare (not safe)) + (cons __tmp17415 __tmp17383)))) + (declare (not safe)) + (cons '#f __tmp17382)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f @@ -447,14 +494,37 @@ (define |[:0:]#__runtime| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15843_| + |[1]#_g17416_| 'expander-identifiers: - (cons '#f - (cons |[1]#_g15843_| - (cons |[1]#_g15844_| - (cons |[1]#_g15845_| - (cons (cons |[1]#_g15846_| '()) - (cons (cons |[1]#_g15847_| '()) '())))))) + (let ((__tmp17417 + (let ((__tmp17432 |[1]#_g17416_|) + (__tmp17418 + (let ((__tmp17430 |[1]#_g17431_|) + (__tmp17419 + (let ((__tmp17428 |[1]#_g17429_|) + (__tmp17420 + (let ((__tmp17425 + (let ((__tmp17426 |[1]#_g17427_|)) + (declare (not safe)) + (cons __tmp17426 '()))) + (__tmp17421 + (let ((__tmp17422 + (let ((__tmp17423 + |[1]#_g17424_|)) + (declare (not safe)) + (cons __tmp17423 '())))) + (declare (not safe)) + (cons __tmp17422 '())))) + (declare (not safe)) + (cons __tmp17425 __tmp17421)))) + (declare (not safe)) + (cons __tmp17428 __tmp17420)))) + (declare (not safe)) + (cons __tmp17430 __tmp17419)))) + (declare (not safe)) + (cons __tmp17432 __tmp17418)))) + (declare (not safe)) + (cons '#f __tmp17417)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f @@ -466,17 +536,49 @@ (define |[:0:]#__syntax| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15848_| + |[1]#_g17433_| 'expander-identifiers: - (cons '#f - (cons |[1]#_g15848_| - (cons |[1]#_g15849_| - (cons |[1]#_g15850_| - (cons (cons |[1]#_g15851_| - (cons |[1]#_g15852_| '())) - (cons (cons |[1]#_g15853_| - (cons |[1]#_g15854_| '())) - '())))))) + (let ((__tmp17434 + (let ((__tmp17455 |[1]#_g17433_|) + (__tmp17435 + (let ((__tmp17453 |[1]#_g17454_|) + (__tmp17436 + (let ((__tmp17451 |[1]#_g17452_|) + (__tmp17437 + (let ((__tmp17445 + (let ((__tmp17449 |[1]#_g17450_|) + (__tmp17446 + (let ((__tmp17447 + |[1]#_g17448_|)) + (declare (not safe)) + (cons __tmp17447 '())))) + (declare (not safe)) + (cons __tmp17449 __tmp17446))) + (__tmp17438 + (let ((__tmp17439 + (let ((__tmp17443 + |[1]#_g17444_|) + (__tmp17440 + (let ((__tmp17441 + |[1]#_g17442_|)) + (declare (not safe)) + (cons __tmp17441 + '())))) + (declare (not safe)) + (cons __tmp17443 + __tmp17440)))) + (declare (not safe)) + (cons __tmp17439 '())))) + (declare (not safe)) + (cons __tmp17445 __tmp17438)))) + (declare (not safe)) + (cons __tmp17451 __tmp17437)))) + (declare (not safe)) + (cons __tmp17453 __tmp17436)))) + (declare (not safe)) + (cons __tmp17455 __tmp17435)))) + (declare (not safe)) + (cons '#f __tmp17434)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f @@ -488,16 +590,34 @@ (define |[:0:]#__macro| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15855_| + |[1]#_g17456_| 'expander-identifiers: - (cons |[1]#_g15848_| - (cons |[1]#_g15855_| - (cons |[1]#_g15856_| - (cons |[1]#_g15857_| (cons '() (cons '() '())))))) + (let ((__tmp17467 |[1]#_g17433_|) + (__tmp17457 + (let ((__tmp17466 |[1]#_g17456_|) + (__tmp17458 + (let ((__tmp17464 |[1]#_g17465_|) + (__tmp17459 + (let ((__tmp17462 |[1]#_g17463_|) + (__tmp17460 + (let ((__tmp17461 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp17461)))) + (declare (not safe)) + (cons __tmp17462 __tmp17460)))) + (declare (not safe)) + (cons __tmp17464 __tmp17459)))) + (declare (not safe)) + (cons __tmp17466 __tmp17458)))) + (declare (not safe)) + (cons __tmp17467 __tmp17457)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g15858_| + |[1]#_g17468_| '__macro '#f '() @@ -505,16 +625,34 @@ (define |[:0:]#__special-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15859_| + |[1]#_g17469_| 'expander-identifiers: - (cons |[1]#_g15855_| - (cons |[1]#_g15859_| - (cons |[1]#_g15860_| - (cons |[1]#_g15861_| (cons '() (cons '() '())))))) + (let ((__tmp17480 |[1]#_g17456_|) + (__tmp17470 + (let ((__tmp17479 |[1]#_g17469_|) + (__tmp17471 + (let ((__tmp17477 |[1]#_g17478_|) + (__tmp17472 + (let ((__tmp17475 |[1]#_g17476_|) + (__tmp17473 + (let ((__tmp17474 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp17474)))) + (declare (not safe)) + (cons __tmp17475 __tmp17473)))) + (declare (not safe)) + (cons __tmp17477 __tmp17472)))) + (declare (not safe)) + (cons __tmp17479 __tmp17471)))) + (declare (not safe)) + (cons __tmp17480 __tmp17470)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g15862_| + |[1]#_g17481_| '__special-form '#f '() @@ -522,16 +660,34 @@ (define |[:0:]#__core-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15863_| + |[1]#_g17482_| 'expander-identifiers: - (cons |[1]#_g15848_| - (cons |[1]#_g15863_| - (cons |[1]#_g15864_| - (cons |[1]#_g15865_| (cons '() (cons '() '())))))) + (let ((__tmp17493 |[1]#_g17433_|) + (__tmp17483 + (let ((__tmp17492 |[1]#_g17482_|) + (__tmp17484 + (let ((__tmp17490 |[1]#_g17491_|) + (__tmp17485 + (let ((__tmp17488 |[1]#_g17489_|) + (__tmp17486 + (let ((__tmp17487 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp17487)))) + (declare (not safe)) + (cons __tmp17488 __tmp17486)))) + (declare (not safe)) + (cons __tmp17490 __tmp17485)))) + (declare (not safe)) + (cons __tmp17492 __tmp17484)))) + (declare (not safe)) + (cons __tmp17493 __tmp17483)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g15858_| + |[1]#_g17468_| '__core-form '#f '() @@ -539,16 +695,34 @@ (define |[:0:]#__core-expression| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15866_| + |[1]#_g17494_| 'expander-identifiers: - (cons |[1]#_g15863_| - (cons |[1]#_g15866_| - (cons |[1]#_g15867_| - (cons |[1]#_g15868_| (cons '() (cons '() '())))))) + (let ((__tmp17505 |[1]#_g17482_|) + (__tmp17495 + (let ((__tmp17504 |[1]#_g17494_|) + (__tmp17496 + (let ((__tmp17502 |[1]#_g17503_|) + (__tmp17497 + (let ((__tmp17500 |[1]#_g17501_|) + (__tmp17498 + (let ((__tmp17499 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp17499)))) + (declare (not safe)) + (cons __tmp17500 __tmp17498)))) + (declare (not safe)) + (cons __tmp17502 __tmp17497)))) + (declare (not safe)) + (cons __tmp17504 __tmp17496)))) + (declare (not safe)) + (cons __tmp17505 __tmp17495)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g15869_| + |[1]#_g17506_| '__core-expression '#f '() @@ -556,16 +730,34 @@ (define |[:0:]#__core-special-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15870_| + |[1]#_g17507_| 'expander-identifiers: - (cons |[1]#_g15863_| - (cons |[1]#_g15870_| - (cons |[1]#_g15871_| - (cons |[1]#_g15872_| (cons '() (cons '() '())))))) + (let ((__tmp17518 |[1]#_g17482_|) + (__tmp17508 + (let ((__tmp17517 |[1]#_g17507_|) + (__tmp17509 + (let ((__tmp17515 |[1]#_g17516_|) + (__tmp17510 + (let ((__tmp17513 |[1]#_g17514_|) + (__tmp17511 + (let ((__tmp17512 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp17512)))) + (declare (not safe)) + (cons __tmp17513 __tmp17511)))) + (declare (not safe)) + (cons __tmp17515 __tmp17510)))) + (declare (not safe)) + (cons __tmp17517 __tmp17509)))) + (declare (not safe)) + (cons __tmp17518 __tmp17508)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g15869_| + |[1]#_g17506_| '__core-special-form '#f '() @@ -573,16 +765,34 @@ (define |[:0:]#__struct-info| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15873_| + |[1]#_g17519_| 'expander-identifiers: - (cons |[1]#_g15848_| - (cons |[1]#_g15873_| - (cons |[1]#_g15874_| - (cons |[1]#_g15875_| (cons '() (cons '() '())))))) + (let ((__tmp17530 |[1]#_g17433_|) + (__tmp17520 + (let ((__tmp17529 |[1]#_g17519_|) + (__tmp17521 + (let ((__tmp17527 |[1]#_g17528_|) + (__tmp17522 + (let ((__tmp17525 |[1]#_g17526_|) + (__tmp17523 + (let ((__tmp17524 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp17524)))) + (declare (not safe)) + (cons __tmp17525 __tmp17523)))) + (declare (not safe)) + (cons __tmp17527 __tmp17522)))) + (declare (not safe)) + (cons __tmp17529 __tmp17521)))) + (declare (not safe)) + (cons __tmp17530 __tmp17520)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g15858_| + |[1]#_g17468_| '__struct-info '#f '() @@ -590,16 +800,34 @@ (define |[:0:]#__feature| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15876_| + |[1]#_g17531_| 'expander-identifiers: - (cons |[1]#_g15848_| - (cons |[1]#_g15876_| - (cons |[1]#_g15877_| - (cons |[1]#_g15878_| (cons '() (cons '() '())))))) + (let ((__tmp17542 |[1]#_g17433_|) + (__tmp17532 + (let ((__tmp17541 |[1]#_g17531_|) + (__tmp17533 + (let ((__tmp17539 |[1]#_g17540_|) + (__tmp17534 + (let ((__tmp17537 |[1]#_g17538_|) + (__tmp17535 + (let ((__tmp17536 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons '() __tmp17536)))) + (declare (not safe)) + (cons __tmp17537 __tmp17535)))) + (declare (not safe)) + (cons __tmp17539 __tmp17534)))) + (declare (not safe)) + (cons __tmp17541 __tmp17533)))) + (declare (not safe)) + (cons __tmp17542 __tmp17532)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g15858_| + |[1]#_g17468_| '__feature '#f '() @@ -607,321 +835,423 @@ (define |[:0:]#__module| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15879_| + |[1]#_g17543_| 'expander-identifiers: - (cons |[1]#_g15832_| - (cons |[1]#_g15879_| - (cons |[1]#_g15880_| - (cons |[1]#_g15881_| - (cons (cons |[1]#_g15882_| - (cons |[1]#_g15883_| - (cons |[1]#_g15884_| - (cons |[1]#_g15885_| - '())))) - (cons (cons |[1]#_g15886_| - (cons |[1]#_g15887_| - (cons |[1]#_g15888_| - (cons |[1]#_g15889_| + (let ((__tmp17578 |[1]#_g17381_|) + (__tmp17544 + (let ((__tmp17577 |[1]#_g17543_|) + (__tmp17545 + (let ((__tmp17575 |[1]#_g17576_|) + (__tmp17546 + (let ((__tmp17573 |[1]#_g17574_|) + (__tmp17547 + (let ((__tmp17561 + (let ((__tmp17571 |[1]#_g17572_|) + (__tmp17562 + (let ((__tmp17569 + |[1]#_g17570_|) + (__tmp17563 + (let ((__tmp17567 + |[1]#_g17568_|) + (__tmp17564 + (let ((__tmp17565 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |[1]#_g17566_|)) + (declare (not safe)) + (cons __tmp17565 '())))) + (declare (not safe)) + (cons __tmp17567 __tmp17564)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp17569 + __tmp17563)))) + (declare (not safe)) + (cons __tmp17571 __tmp17562))) + (__tmp17548 + (let ((__tmp17549 + (let ((__tmp17559 + |[1]#_g17560_|) + (__tmp17550 + (let ((__tmp17557 + |[1]#_g17558_|) + (__tmp17551 + (let ((__tmp17555 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + |[1]#_g17556_|) + (__tmp17552 + (let ((__tmp17553 |[1]#_g17554_|)) + (declare (not safe)) + (cons __tmp17553 '())))) + (declare (not safe)) + (cons __tmp17555 __tmp17552)))) + (declare (not safe)) + (cons __tmp17557 __tmp17551)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp17559 + __tmp17550)))) + (declare (not safe)) + (cons __tmp17549 '())))) + (declare (not safe)) + (cons __tmp17561 __tmp17548)))) + (declare (not safe)) + (cons __tmp17573 __tmp17547)))) + (declare (not safe)) + (cons __tmp17575 __tmp17546)))) + (declare (not safe)) + (cons __tmp17577 __tmp17545)))) + (declare (not safe)) + (cons __tmp17578 __tmp17544)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g15890_| + |[1]#_g17579_| '__module '#f '() '(id path import export)))) (define |[:0:]#defcore-forms| - (lambda (_stx13235_) - (letrec ((_generate13238_ - (lambda (_id13602_ _compile13604_ _make13605_) - (let* ((_g1360713626_ - (lambda (_g1360813622_) + (lambda (_stx14437_) + (letrec ((_generate14440_ + (lambda (_id14804_ _compile14806_ _make14807_) + (let* ((_g1480914828_ + (lambda (_g1481014824_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1360813622_))) - (_g1360613685_ - (lambda (_g1360813630_) - (if (gx#stx-pair? _g1360813630_) - (let ((_e1361213633_ - (gx#syntax-e _g1360813630_))) - (let ((_hd1361313637_ + _g1481014824_))) + (_g1480814887_ + (lambda (_g1481014832_) + (if (gx#stx-pair? _g1481014832_) + (let ((_e1481614835_ + (gx#syntax-e _g1481014832_))) + (let ((_hd1481514839_ (let () (declare (not safe)) - (##car _e1361213633_))) - (_tl1361413640_ + (##car _e1481614835_))) + (_tl1481414842_ (let () (declare (not safe)) - (##cdr _e1361213633_)))) - (if (gx#stx-pair? _tl1361413640_) - (let ((_e1361513643_ - (gx#syntax-e _tl1361413640_))) - (let ((_hd1361613647_ + (##cdr _e1481614835_)))) + (if (gx#stx-pair? _tl1481414842_) + (let ((_e1481914845_ + (gx#syntax-e _tl1481414842_))) + (let ((_hd1481814849_ (let () (declare (not safe)) - (##car _e1361513643_))) - (_tl1361713650_ + (##car _e1481914845_))) + (_tl1481714852_ (let () (declare (not safe)) - (##cdr _e1361513643_)))) - (if (gx#stx-pair? _tl1361713650_) - (let ((_e1361813653_ + (##cdr _e1481914845_)))) + (if (gx#stx-pair? _tl1481714852_) + (let ((_e1482214855_ (gx#syntax-e - _tl1361713650_))) - (let ((_hd1361913657_ + _tl1481714852_))) + (let ((_hd1482114859_ (let () (declare (not safe)) - (##car _e1361813653_))) - (_tl1362013660_ + (##car _e1482214855_))) + (_tl1482014862_ (let () (declare (not safe)) - (##cdr _e1361813653_)))) + (##cdr _e1482214855_)))) (if (gx#stx-null? - _tl1362013660_) - ((lambda (_L13663_ + _tl1482014862_) + ((lambda (_L14865_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L13665_ - _L13666_) + _L14867_ + _L14868_) (let () - (cons (gx#datum->syntax '#f '__core-bind-syntax!) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L13666_ '())) - (cons _L13665_ (cons _L13663_ '())))))) - _hd1361913657_ - _hd1361613647_ - _hd1361313637_) - (_g1360713626_ _g1360813630_)))) + (let ((__tmp17586 + (gx#datum->syntax '#f '__core-bind-syntax!)) + (__tmp17580 + (let ((__tmp17583 + (let ((__tmp17585 + (gx#datum->syntax '#f 'quote)) + (__tmp17584 + (let () + (declare (not safe)) + (cons _L14868_ '())))) + (declare (not safe)) + (cons __tmp17585 __tmp17584))) + (__tmp17581 + (let ((__tmp17582 + (let () + (declare (not safe)) + (cons _L14865_ '())))) + (declare (not safe)) + (cons _L14867_ __tmp17582)))) + (declare (not safe)) + (cons __tmp17583 __tmp17581)))) + (declare (not safe)) + (cons __tmp17586 __tmp17580)))) + _hd1482114859_ + _hd1481814849_ + _hd1481514839_) + (_g1480914828_ _g1481014832_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1360713626_ - _g1360813630_)))) - (_g1360713626_ _g1360813630_)))) - (_g1360713626_ _g1360813630_))))) - (_g1360613685_ - (list _id13602_ - (gx#stx-identifier _id13602_ '"__" _compile13604_) - _make13605_)))))) - (let* ((_g1324113261_ - (lambda (_g1324213257_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1324213257_))) - (_g1324013598_ - (lambda (_g1324213265_) - (if (gx#stx-pair? _g1324213265_) - (let ((_e1324413268_ (gx#syntax-e _g1324213265_))) - (let ((_hd1324513272_ + (_g1480914828_ + _g1481014832_)))) + (_g1480914828_ _g1481014832_)))) + (_g1480914828_ _g1481014832_))))) + (_g1480814887_ + (list _id14804_ + (gx#stx-identifier _id14804_ '"__" _compile14806_) + _make14807_)))))) + (let* ((_g1444314463_ + (lambda (_g1444414459_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1444414459_))) + (_g1444214800_ + (lambda (_g1444414467_) + (if (gx#stx-pair? _g1444414467_) + (let ((_e1444814470_ (gx#syntax-e _g1444414467_))) + (let ((_hd1444714474_ (let () (declare (not safe)) - (##car _e1324413268_))) - (_tl1324613275_ + (##car _e1444814470_))) + (_tl1444614477_ (let () (declare (not safe)) - (##cdr _e1324413268_)))) - (if (gx#stx-pair/null? _tl1324613275_) - (let ((_g15891_ + (##cdr _e1444814470_)))) + (if (gx#stx-pair/null? _tl1444614477_) + (let ((_g17587_ (gx#syntax-split-splice - _tl1324613275_ + _tl1444614477_ '0))) (begin - (let ((_g15892_ + (let ((_g17588_ (let () (declare (not safe)) - (if (##values? _g15891_) - (##vector-length _g15891_) + (if (##values? _g17587_) + (##vector-length _g17587_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g15892_ 2))) + (##fx= _g17588_ 2))) (error "Context expects 2 values" - _g15892_))) - (let ((_target1324713278_ + _g17588_))) + (let ((_target1444914480_ (let () (declare (not safe)) - (##vector-ref _g15891_ 0))) - (_tl1324913281_ + (##vector-ref _g17587_ 0))) + (_tl1445114483_ (let () (declare (not safe)) - (##vector-ref _g15891_ 1)))) - (if (gx#stx-null? _tl1324913281_) - (letrec ((_loop1325013284_ - (lambda (_hd1324813288_ - _form1325413291_) + (##vector-ref _g17587_ 1)))) + (if (gx#stx-null? _tl1445114483_) + (letrec ((_loop1445214486_ + (lambda (_hd1445014490_ + _form1445614493_) (if (gx#stx-pair? - _hd1324813288_) - (let ((_e1325113294_ + _hd1445014490_) + (let ((_e1445314496_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1324813288_))) - (let ((_lp-hd1325213298_ - (let () (declare (not safe)) (##car _e1325113294_))) - (_lp-tl1325313301_ + (gx#syntax-e _hd1445014490_))) + (let ((_lp-hd1445414500_ + (let () (declare (not safe)) (##car _e1445314496_))) + (_lp-tl1445514503_ (let () (declare (not safe)) - (##cdr _e1325113294_)))) - (_loop1325013284_ - _lp-tl1325313301_ - (cons _lp-hd1325213298_ _form1325413291_)))) - (let ((_form1325513304_ (reverse _form1325413291_))) - ((lambda (_L13308_) - (let _lp13326_ ((_rest13329_ - (foldr1 (lambda (_g1358913592_ - _g1359013595_) - (cons _g1358913592_ - _g1359013595_)) - '() - _L13308_)) - (_body13331_ '())) - (let* ((___stx1571115712_ _rest13329_) - (_g1333613383_ + (##cdr _e1445314496_)))) + (_loop1445214486_ + _lp-tl1445514503_ + (let () + (declare (not safe)) + (cons _lp-hd1445414500_ _form1445614493_))))) + (let ((_form1445714506_ + (let () + (declare (not safe)) + (reverse _form1445614493_)))) + ((lambda (_L14510_) + (let _lp14528_ ((_rest14531_ + (let ((__tmp17593 + (lambda (_g1479114794_ + _g1479214797_) + (let () + (declare (not safe)) + (cons _g1479114794_ + _g1479214797_))))) + (declare (not safe)) + (foldr1 __tmp17593 '() _L14510_))) + (_body14533_ '())) + (let* ((___stx1691316914_ _rest14531_) + (_g1453814585_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx1571115712_)))) - (let ((___kont1571415715_ - (lambda (_L13564_ _L13566_ _L13567_) - (_lp13326_ - _L13564_ - (cons (_generate13238_ - _L13567_ - _L13566_ - (gx#datum->syntax - '#f - 'make-__core-expression)) - _body13331_)))) - (___kont1571615717_ - (lambda (_L13491_ _L13493_ _L13494_) - (_lp13326_ - _L13491_ - (cons (_generate13238_ - _L13494_ - _L13493_ - (gx#datum->syntax - '#f - 'make-__core-special-form)) - _body13331_)))) - (___kont1571815719_ - (lambda (_L13421_ _L13423_) - (_lp13326_ - _L13421_ - (cons (_generate13238_ - _L13423_ - (gx#datum->syntax - '#f - 'compile-error) - (gx#datum->syntax - '#f - 'make-__core-form)) - _body13331_)))) - (___kont1572015721_ + ___stx1691316914_)))) + (let ((___kont1691616917_ + (lambda (_L14766_ _L14768_ _L14769_) + (_lp14528_ + _L14766_ + (let ((__tmp17589 + (_generate14440_ + _L14769_ + _L14768_ + (gx#datum->syntax + '#f + 'make-__core-expression)))) + (declare (not safe)) + (cons __tmp17589 _body14533_))))) + (___kont1691816919_ + (lambda (_L14693_ _L14695_ _L14696_) + (_lp14528_ + _L14693_ + (let ((__tmp17590 + (_generate14440_ + _L14696_ + _L14695_ + (gx#datum->syntax + '#f + 'make-__core-special-form)))) + (declare (not safe)) + (cons __tmp17590 _body14533_))))) + (___kont1692016921_ + (lambda (_L14623_ _L14625_) + (_lp14528_ + _L14623_ + (let ((__tmp17591 + (_generate14440_ + _L14625_ + (gx#datum->syntax + '#f + 'compile-error) + (gx#datum->syntax + '#f + 'make-__core-form)))) + (declare (not safe)) + (cons __tmp17591 _body14533_))))) + (___kont1692216923_ (lambda () - (cons 'begin (reverse _body13331_))))) - (let ((_g1333513394_ + (let ((__tmp17592 + (let () + (declare (not safe)) + (reverse _body14533_)))) + (declare (not safe)) + (cons 'begin __tmp17592))))) + (let ((_g1453714596_ (lambda () - (if (gx#stx-null? ___stx1571115712_) - (___kont1572015721_) - (_g1333613383_))))) - (if (gx#stx-pair? ___stx1571115712_) - (let ((_e1334113520_ - (gx#syntax-e ___stx1571115712_))) - (let ((_tl1334313527_ + (if (gx#stx-null? ___stx1691316914_) + (___kont1692216923_) + (let () + (declare (not safe)) + (_g1453814585_)))))) + (if (gx#stx-pair? ___stx1691316914_) + (let ((_e1454514722_ + (gx#syntax-e ___stx1691316914_))) + (let ((_tl1454314729_ (let () (declare (not safe)) - (##cdr _e1334113520_))) - (_hd1334213524_ + (##cdr _e1454514722_))) + (_hd1454414726_ (let () (declare (not safe)) - (##car _e1334113520_)))) - (if (gx#stx-pair? _hd1334213524_) - (let ((_e1334413530_ + (##car _e1454514722_)))) + (if (gx#stx-pair? _hd1454414726_) + (let ((_e1454814732_ (gx#syntax-e - _hd1334213524_))) - (let ((_tl1334613537_ + _hd1454414726_))) + (let ((_tl1454614739_ (let () (declare (not safe)) - (##cdr _e1334413530_))) - (_hd1334513534_ + (##cdr _e1454814732_))) + (_hd1454714736_ (let () (declare (not safe)) - (##car _e1334413530_)))) + (##car _e1454814732_)))) (if (gx#stx-pair? - _tl1334613537_) - (let ((_e1334713540_ + _tl1454614739_) + (let ((_e1455114742_ (gx#syntax-e - _tl1334613537_))) - (let ((_tl1334913547_ + _tl1454614739_))) + (let ((_tl1454914749_ (let () (declare (not safe)) - (##cdr _e1334713540_))) - (_hd1334813544_ + (##cdr _e1455114742_))) + (_hd1455014746_ (let () (declare (not safe)) - (##car _e1334713540_)))) + (##car _e1455114742_)))) (if (gx#stx-datum? - _hd1334813544_) - (let ((_e1335013550_ + _hd1455014746_) + (let ((_e1455214752_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1334813544_))) - (if (equal? _e1335013550_ 'expr:) - (if (gx#stx-pair? _tl1334913547_) - (let ((_e1335113554_ - (gx#syntax-e _tl1334913547_))) - (let ((_tl1335313561_ + (gx#stx-e _hd1455014746_))) + (if (let () + (declare (not safe)) + (equal? _e1455214752_ 'expr:)) + (if (gx#stx-pair? _tl1454914749_) + (let ((_e1455514756_ + (gx#syntax-e _tl1454914749_))) + (let ((_tl1455314763_ (let () (declare (not safe)) - (##cdr _e1335113554_))) - (_hd1335213558_ + (##cdr _e1455514756_))) + (_hd1455414760_ (let () (declare (not safe)) - (##car _e1335113554_)))) - (if (gx#stx-null? _tl1335313561_) - (___kont1571415715_ - _tl1334313527_ - _hd1335213558_ - _hd1334513534_) - (_g1333613383_)))) - (_g1333613383_)) - (if (equal? _e1335013550_ 'special:) - (if (gx#stx-pair? _tl1334913547_) - (let ((_e1336713481_ - (gx#syntax-e _tl1334913547_))) - (let ((_tl1336913488_ + (##car _e1455514756_)))) + (if (gx#stx-null? _tl1455314763_) + (___kont1691616917_ + _tl1454314729_ + _hd1455414760_ + _hd1454714736_) + (let () + (declare (not safe)) + (_g1453814585_))))) + (let () (declare (not safe)) (_g1453814585_))) + (if (let () + (declare (not safe)) + (equal? _e1455214752_ 'special:)) + (if (gx#stx-pair? _tl1454914749_) + (let ((_e1457114683_ + (gx#syntax-e _tl1454914749_))) + (let ((_tl1456914690_ (let () (declare (not safe)) - (##cdr _e1336713481_))) - (_hd1336813485_ + (##cdr _e1457114683_))) + (_hd1457014687_ (let () (declare (not safe)) - (##car _e1336713481_)))) - (if (gx#stx-null? _tl1336913488_) - (___kont1571615717_ - _tl1334313527_ - _hd1336813485_ - _hd1334513534_) - (_g1333613383_)))) - (_g1333613383_)) - (_g1333613383_)))) - (_g1333613383_)))) + (##car _e1457114683_)))) + (if (gx#stx-null? _tl1456914690_) + (___kont1691816919_ + _tl1454314729_ + _hd1457014687_ + _hd1454714736_) + (let () + (declare (not safe)) + (_g1453814585_))))) + (let () (declare (not safe)) (_g1453814585_))) + (let () (declare (not safe)) (_g1453814585_))))) + (let () (declare (not safe)) (_g1453814585_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl1334613537_) - (___kont1571815719_ - _tl1334313527_ - _hd1334513534_) - (_g1333613383_))))) - (_g1333613383_)))) - (_g1333513394_))))))) - _form1325513304_)))))) + _tl1454614739_) + (___kont1692016921_ + _tl1454314729_ + _hd1454714736_) + (let () + (declare (not safe)) + (_g1453814585_)))))) + (let () + (declare (not safe)) + (_g1453814585_))))) + (let () + (declare (not safe)) + (_g1453714596_)))))))) + _form1445714506_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1325013284_ - _target1324713278_ + (_loop1445214486_ + _target1444914480_ '())) - (_g1324113261_ _g1324213265_))))) - (_g1324113261_ _g1324213265_)))) - (_g1324113261_ _g1324213265_))))) - (_g1324013598_ _stx13235_))))))) + (_g1444314463_ _g1444414467_))))) + (_g1444314463_ _g1444414467_)))) + (_g1444314463_ _g1444414467_))))) + (_g1444214800_ _stx14437_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index 784caaa69..3894db437 100644 --- a/src/bootstrap/gerbil/runtime/gambit__0.scm +++ b/src/bootstrap/gerbil/runtime/gambit__0.scm @@ -1,2 +1,2 @@ (declare (block) (standard-bindings) (extended-bindings)) -(begin (define gerbil/runtime/gambit::timestamp 1695206877) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1695292370) '#!void) diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index ddde3ee71..653ba34c9 100644 --- a/src/bootstrap/gerbil/runtime/init__0.scm +++ b/src/bootstrap/gerbil/runtime/init__0.scm @@ -1,15 +1,17 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/init::timestamp 1695206877) + (define gerbil/runtime/init::timestamp 1695292370) (begin - (define __loading-scheme-source (make-parameter '#f)) + (define __loading-scheme-source + (let () (declare (not safe)) (make-parameter '#f))) (define __init-gx! (lambda () (gx#current-expander-marks '()) (gx#current-expander-phi '0) (gx#current-expander-context (gx#make-top-context)) (gx#current-expander-module-library-path (current-module-library-path)) - (gx#current-expander-module-registry (make-table)) + (gx#current-expander-module-registry + (let () (declare (not safe)) (make-table))) (gx#current-expander-module-import gx#core-import-module) (gx#current-expander-module-eval gx#core-eval-module) (gx#current-expander-compile __compile-top) @@ -21,336 +23,517 @@ (set! __eval-module gx#core-eval-module))) (define __load-gxi (lambda () - (letrec* ((_+readtable+16103_ __*readtable*)) - (__init-gx!) - (let* ((_core16105_ (gx#import-module ':gerbil/core)) - (_pre16107_ (gx#make-prelude-context _core16105_))) - (gx#current-expander-module-prelude _pre16107_) - (gx#core-bind-root-syntax! ': _pre16107_ '#t) + (letrec* ((_+readtable+17805_ __*readtable*)) + (let () (declare (not safe)) (__init-gx!)) + (let* ((_core17807_ (gx#import-module ':gerbil/core)) + (_pre17809_ (gx#make-prelude-context _core17807_))) + (gx#current-expander-module-prelude _pre17809_) + (gx#core-bind-root-syntax! ': _pre17809_ '#t) (gx#eval-syntax '(import :gerbil/core))) (gx#current-expander-compile __compile-top-source) (let () (declare (not safe)) (##expand-source-set! __expand-source)) (let () (declare (not safe)) (##macro-descr-set! __macro-descr)) (let () (declare (not safe)) (##main-readtable-set! __*readtable*)) - (for-each - (lambda (_port16110_) - (input-port-readtable-set! _port16110_ _+readtable+16103_)) - (list ##stdin-port ##console-port)) - (for-each - (lambda (_port16112_) - (output-port-readtable-set! - _port16112_ - (readtable-sharing-allowed?-set - (output-port-readtable _port16112_) - '#t))) - (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline16100_) '#!void)) + (let ((__tmp17817 + (lambda (_port17812_) + (let () + (declare (not safe)) + (input-port-readtable-set! + _port17812_ + _+readtable+17805_)))) + (__tmp17816 (list ##stdin-port ##console-port))) + (declare (not safe)) + (for-each __tmp17817 __tmp17816)) + (let ((__tmp17819 + (lambda (_port17814_) + (let ((__tmp17820 + (let ((__tmp17821 + (let () + (declare (not safe)) + (output-port-readtable _port17814_)))) + (declare (not safe)) + (readtable-sharing-allowed?-set __tmp17821 '#t)))) + (declare (not safe)) + (output-port-readtable-set! _port17814_ __tmp17820)))) + (__tmp17818 (list ##stdout-port ##console-port))) + (declare (not safe)) + (for-each __tmp17819 __tmp17818))))) + (define __gxi-init-interactive! (lambda (_cmdline17802_) '#!void)) (define load-scheme - (lambda (_path16095_) - (call-with-parameters - (lambda () - (let ((__tmp16114 (lambda _args16098_ '#f))) - (declare (not safe)) - (##load _path16095_ __tmp16114 '#t '#t '#f))) - __loading-scheme-source - _path16095_))) + (lambda (_path17797_) + (let ((__tmp17822 + (lambda () + (let ((__tmp17823 (lambda _args17800_ '#f))) + (declare (not safe)) + (##load _path17797_ __tmp17823 '#t '#t '#f))))) + (declare (not safe)) + (call-with-parameters + __tmp17822 + __loading-scheme-source + _path17797_)))) (define load-path (lambda () - (values (current-module-library-path) - (gx#current-expander-module-library-path)))) + (values (let () (declare (not safe)) (current-module-library-path)) + (let () + (declare (not safe)) + (gx#current-expander-module-library-path))))) (define library-load-path (lambda () (current-module-library-path))) (define expander-load-path (lambda () (gx#current-expander-module-library-path))) (define add-load-path - (lambda _paths16090_ - (apply add-library-load-path _paths16090_) - (apply add-expander-load-path _paths16090_))) + (lambda _paths17792_ + (apply add-library-load-path _paths17792_) + (apply add-expander-load-path _paths17792_))) (define add-library-load-path - (lambda _paths16079_ - (let* ((_current16081_ (current-module-library-path)) - (_paths16083_ (map path-expand _paths16079_)) - (_paths16087_ - (filter (lambda (_x16085_) - (not (member _x16085_ _current16081_))) - _paths16083_))) - (current-module-library-path (append _current16081_ _paths16087_))))) + (lambda _paths17781_ + (let* ((_current17783_ (current-module-library-path)) + (_paths17785_ + (let () (declare (not safe)) (map path-expand _paths17781_))) + (_paths17789_ + (let ((__tmp17824 + (lambda (_x17787_) + (let ((__tmp17825 + (let () + (declare (not safe)) + (member _x17787_ _current17783_)))) + (declare (not safe)) + (not __tmp17825))))) + (declare (not safe)) + (filter __tmp17824 _paths17785_)))) + (current-module-library-path (append _current17783_ _paths17789_))))) (define add-expander-load-path - (lambda _paths16068_ - (let* ((_current16070_ (gx#current-expander-module-library-path)) - (_paths16072_ (map path-expand _paths16068_)) - (_paths16076_ - (filter (lambda (_x16074_) - (not (member _x16074_ _current16070_))) - _paths16072_))) + (lambda _paths17770_ + (let* ((_current17772_ (gx#current-expander-module-library-path)) + (_paths17774_ + (let () (declare (not safe)) (map path-expand _paths17770_))) + (_paths17778_ + (let ((__tmp17826 + (lambda (_x17776_) + (let ((__tmp17827 + (let () + (declare (not safe)) + (member _x17776_ _current17772_)))) + (declare (not safe)) + (not __tmp17827))))) + (declare (not safe)) + (filter __tmp17826 _paths17774_)))) (gx#current-expander-module-library-path - (append _current16070_ _paths16076_))))) + (append _current17772_ _paths17778_))))) (define cons-load-path - (lambda _paths16066_ - (apply cons-library-load-path _paths16066_) - (apply cons-expander-load-path _paths16066_))) + (lambda _paths17768_ + (apply cons-library-load-path _paths17768_) + (apply cons-expander-load-path _paths17768_))) (define cons-library-load-path - (lambda _paths16061_ - (let ((_current16063_ (current-module-library-path)) - (_paths16064_ (map path-expand _paths16061_))) - (current-module-library-path (append _paths16064_ _current16063_))))) + (lambda _paths17763_ + (let ((_current17765_ (current-module-library-path)) + (_paths17766_ + (let () (declare (not safe)) (map path-expand _paths17763_)))) + (current-module-library-path (append _paths17766_ _current17765_))))) (define cons-expander-load-path - (lambda _paths16056_ - (let ((_current16058_ (gx#current-expander-module-library-path)) - (_paths16059_ (map path-expand _paths16056_))) + (lambda _paths17758_ + (let ((_current17760_ (gx#current-expander-module-library-path)) + (_paths17761_ + (let () (declare (not safe)) (map path-expand _paths17758_)))) (gx#current-expander-module-library-path - (append _paths16059_ _current16058_))))) + (append _paths17761_ _current17760_))))) (define with-cons-load-path - (lambda (_thunk16052_ . _paths16053_) + (lambda (_thunk17754_ . _paths17755_) (apply with-cons-library-load-path (lambda () (apply with-cons-expander-load-path - _thunk16052_ - _paths16053_)) - _paths16053_))) + _thunk17754_ + _paths17755_)) + _paths17755_))) (define with-cons-library-load-path - (lambda (_thunk16045_ . _paths16046_) - (let ((_current16048_ (current-module-library-path)) - (_paths16049_ (map path-expand _paths16046_))) - (call-with-parameters - (lambda () (_thunk16045_)) - current-module-library-path - (append _paths16049_ _current16048_))))) + (lambda (_thunk17747_ . _paths17748_) + (let ((_current17750_ (current-module-library-path)) + (_paths17751_ + (let () (declare (not safe)) (map path-expand _paths17748_)))) + (let ((__tmp17829 (lambda () (_thunk17747_))) + (__tmp17828 (append _paths17751_ _current17750_))) + (declare (not safe)) + (call-with-parameters + __tmp17829 + current-module-library-path + __tmp17828))))) (define with-cons-expander-load-path - (lambda (_thunk16038_ . _paths16039_) - (let ((_current16041_ (gx#current-expander-module-library-path)) - (_paths16042_ (map path-expand _paths16039_))) - (call-with-parameters - (lambda () (_thunk16038_)) - gx#current-expander-module-library-path - (append _paths16042_ _current16041_))))) + (lambda (_thunk17740_ . _paths17741_) + (let ((_current17743_ (gx#current-expander-module-library-path)) + (_paths17744_ + (let () (declare (not safe)) (map path-expand _paths17741_)))) + (let ((__tmp17831 (lambda () (_thunk17740_))) + (__tmp17830 (append _paths17744_ _current17743_))) + (declare (not safe)) + (call-with-parameters + __tmp17831 + gx#current-expander-module-library-path + __tmp17830))))) (define __expand-source - (lambda (_src16024_) - (letrec ((_expand16026_ - (lambda (_src16036_) - (__compile-top - (gx#core-expand (__source->syntax _src16036_))))) - (_no-expand16027_ - (lambda (_src16032_) + (lambda (_src17726_) + (letrec ((_expand17728_ + (lambda (_src17738_) + (let ((__tmp17832 + (gx#core-expand + (let () + (declare (not safe)) + (__source->syntax _src17738_))))) + (declare (not safe)) + (__compile-top __tmp17832)))) + (_no-expand17729_ + (lambda (_src17734_) (if (__loading-scheme-source) - _src16032_ + _src17734_ (if (let () (declare (not safe)) - (##source? _src16032_)) - (let ((_code16034_ + (##source? _src17734_)) + (let ((_code17736_ (let () (declare (not safe)) - (##source-code _src16032_)))) - (if (pair? _code16034_) - (if (eq? '__noexpand: - (let () - (declare (not safe)) - (##car _code16034_))) + (##source-code _src17734_)))) + (if (let () + (declare (not safe)) + (pair? _code17736_)) + (if (let ((__tmp17833 + (let () + (declare (not safe)) + (##car _code17736_)))) + (declare (not safe)) + (eq? '__noexpand: __tmp17833)) (let () (declare (not safe)) - (##cdr _code16034_)) + (##cdr _code17736_)) '#f) '#f)) '#f))))) - (let ((_$e16029_ (_no-expand16027_ _src16024_))) - (if _$e16029_ _$e16029_ (_expand16026_ _src16024_)))))) + (let ((_$e17731_ + (let () (declare (not safe)) (_no-expand17729_ _src17726_)))) + (if _$e17731_ + _$e17731_ + (let () (declare (not safe)) (_expand17728_ _src17726_))))))) (define __macro-descr - (lambda (_src16010_ _def-syntax?16011_) - (letrec ((_fail!16013_ + (lambda (_src17712_ _def-syntax?17713_) + (letrec ((_fail!17715_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src16010_)))) - (_make-descr16014_ - (lambda (_size16018_) - (let ((_expander16021_ - (call-with-parameters - (lambda () - (let () - (declare (not safe)) - (##eval-top _src16010_ ##interaction-cte))) - __loading-scheme-source - 'macro))) - (if (procedure? _expander16021_) + _src17712_)))) + (_make-descr17716_ + (lambda (_size17720_) + (let ((_expander17723_ + (let ((__tmp17834 + (lambda () + (let () + (declare (not safe)) + (##eval-top + _src17712_ + ##interaction-cte))))) + (declare (not safe)) + (call-with-parameters + __tmp17834 + __loading-scheme-source + 'macro)))) + (if (let () + (declare (not safe)) + (procedure? _expander17723_)) (let () (declare (not safe)) (##make-macro-descr - _def-syntax?16011_ - _size16018_ - _expander16021_ - _src16010_)) - (_fail!16013_)))))) - (if _def-syntax?16011_ - (_make-descr16014_ '-1) - (let ((_code16016_ - (let () (declare (not safe)) (##source-code _src16010_)))) - (if (and (let () (declare (not safe)) (##pair? _code16016_)) - (let ((__tmp16115 - (let ((__tmp16116 - (let ((__tmp16117 + _def-syntax?17713_ + _size17720_ + _expander17723_ + _src17712_)) + (let () (declare (not safe)) (_fail!17715_))))))) + (if _def-syntax?17713_ + (let () (declare (not safe)) (_make-descr17716_ '-1)) + (let ((_code17718_ + (let () (declare (not safe)) (##source-code _src17712_)))) + (if (and (let () (declare (not safe)) (##pair? _code17718_)) + (let ((__tmp17838 + (let ((__tmp17839 + (let ((__tmp17840 (let () (declare (not safe)) - (##car _code16016_)))) + (##car _code17718_)))) (declare (not safe)) - (##sourcify __tmp16117 _src16010_)))) + (##sourcify __tmp17840 _src17712_)))) (declare (not safe)) - (##source-code __tmp16116)))) + (##source-code __tmp17839)))) (declare (not safe)) - (##memq __tmp16115 '(##lambda lambda)))) + (##memq __tmp17838 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src16010_ _src16010_ '-3)) - (_make-descr16014_ - (let ((__tmp16118 - (let ((__tmp16119 - (let () - (declare (not safe)) - (##cadr _code16016_)))) - (declare (not safe)) - (##sourcify __tmp16119 _src16010_)))) - (declare (not safe)) - (##form-size __tmp16118)))) - (_fail!16013_))))))) + (##shape _src17712_ _src17712_ '-3)) + (let ((__tmp17835 + (let ((__tmp17836 + (let ((__tmp17837 + (let () + (declare (not safe)) + (##cadr _code17718_)))) + (declare (not safe)) + (##sourcify __tmp17837 _src17712_)))) + (declare (not safe)) + (##form-size __tmp17836)))) + (declare (not safe)) + (_make-descr17716_ __tmp17835))) + (let () (declare (not safe)) (_fail!17715_)))))))) (define __source->syntax - (lambda (_src16004_) - (let _recur16006_ ((_e16008_ _src16004_)) - (if (let () (declare (not safe)) (##source? _e16008_)) - (let ((__tmp16121 - (_recur16006_ - (let () (declare (not safe)) (##source-code _e16008_)))) - (__tmp16120 - (let () (declare (not safe)) (##source-locat _e16008_)))) + (lambda (_src17706_) + (let _recur17708_ ((_e17710_ _src17706_)) + (if (let () (declare (not safe)) (##source? _e17710_)) + (let ((__tmp17848 + (let ((__tmp17849 + (let () + (declare (not safe)) + (##source-code _e17710_)))) + (declare (not safe)) + (_recur17708_ __tmp17849))) + (__tmp17847 + (let () (declare (not safe)) (##source-locat _e17710_)))) (declare (not safe)) - (##structure AST::t __tmp16121 __tmp16120)) - (if (pair? _e16008_) - (cons (_recur16006_ - (let () (declare (not safe)) (##car _e16008_))) - (_recur16006_ - (let () (declare (not safe)) (##cdr _e16008_)))) - (if (vector? _e16008_) - (vector-map _recur16006_ _e16008_) - (if (box? _e16008_) - (box (_recur16006_ (unbox _e16008_))) - _e16008_))))))) + (##structure AST::t __tmp17848 __tmp17847)) + (if (let () (declare (not safe)) (pair? _e17710_)) + (let ((__tmp17845 + (let ((__tmp17846 + (let () + (declare (not safe)) + (##car _e17710_)))) + (declare (not safe)) + (_recur17708_ __tmp17846))) + (__tmp17843 + (let ((__tmp17844 + (let () + (declare (not safe)) + (##cdr _e17710_)))) + (declare (not safe)) + (_recur17708_ __tmp17844)))) + (declare (not safe)) + (cons __tmp17845 __tmp17843)) + (if (let () (declare (not safe)) (vector? _e17710_)) + (let () + (declare (not safe)) + (vector-map _recur17708_ _e17710_)) + (if (let () (declare (not safe)) (box? _e17710_)) + (let ((__tmp17841 + (let ((__tmp17842 + (let () + (declare (not safe)) + (unbox _e17710_)))) + (declare (not safe)) + (_recur17708_ __tmp17842)))) + (declare (not safe)) + (box __tmp17841)) + _e17710_))))))) (define __compile-top-source - (lambda (_stx16002_) (cons '__noexpand: (__compile-top _stx16002_)))) + (lambda (_stx17704_) + (let ((__tmp17850 + (let () (declare (not safe)) (__compile-top _stx17704_)))) + (declare (not safe)) + (cons '__noexpand: __tmp17850)))) (define __compile-top - (lambda (_stx16000_) - (__compile (gx#core-compile-top-syntax _stx16000_)))) + (lambda (_stx17702_) + (let ((__tmp17851 (gx#core-compile-top-syntax _stx17702_))) + (declare (not safe)) + (__compile __tmp17851)))) (define __eval-import - (lambda (_in15981_) - (letrec* ((_mods15983_ (make-table 'test: eq?)) - (_import115984_ - (lambda (_in15991_ _phi15992_) - (if (gx#module-import? _in15991_) - (let ((_iphi15994_ - (fx+ _phi15992_ - (gx#module-import-phi _in15991_)))) - (if (fxzero? _iphi15994_) - (_eval115985_ - (gx#module-export-context - (gx#module-import-source _in15991_))) + (lambda (_in17683_) + (letrec* ((_mods17685_ + (let () (declare (not safe)) (make-table 'test: eq?))) + (_import117686_ + (lambda (_in17693_ _phi17694_) + (if (gx#module-import? _in17693_) + (let ((_iphi17696_ + (fx+ _phi17694_ + (gx#module-import-phi _in17693_)))) + (if (let () + (declare (not safe)) + (fxzero? _iphi17696_)) + (let ((__tmp17855 + (gx#module-export-context + (gx#module-import-source _in17693_)))) + (declare (not safe)) + (_eval117687_ __tmp17855)) '#!void)) - (if (gx#module-context? _in15991_) - (if (fxzero? _phi15992_) - (_eval115985_ _in15991_) + (if (gx#module-context? _in17693_) + (if (let () + (declare (not safe)) + (fxzero? _phi17694_)) + (let () + (declare (not safe)) + (_eval117687_ _in17693_)) '#!void) - (if (gx#import-set? _in15991_) - (let ((_iphi15996_ - (fx+ _phi15992_ - (gx#import-set-phi _in15991_)))) - (if (fxzero? _iphi15996_) - (_eval115985_ - (gx#import-set-source _in15991_)) - (if (fxpositive? _iphi15996_) - (for-each - (lambda (_in15998_) - (_import115984_ - _in15998_ - _iphi15996_)) - (gx#module-context-import - (gx#import-set-source _in15991_))) + (if (gx#import-set? _in17693_) + (let ((_iphi17698_ + (fx+ _phi17694_ + (gx#import-set-phi _in17693_)))) + (if (let () + (declare (not safe)) + (fxzero? _iphi17698_)) + (let ((__tmp17854 + (gx#import-set-source + _in17693_))) + (declare (not safe)) + (_eval117687_ __tmp17854)) + (if (let () + (declare (not safe)) + (fxpositive? _iphi17698_)) + (let ((__tmp17853 + (lambda (_in17700_) + (let () + (declare (not safe)) + (_import117686_ + _in17700_ + _iphi17698_)))) + (__tmp17852 + (gx#module-context-import + (gx#import-set-source + _in17693_)))) + (declare (not safe)) + (for-each __tmp17853 __tmp17852)) '#!void))) - (error '"Unexpected import" _in15991_)))))) - (_eval115985_ - (lambda (_ctx15989_) - (if (table-ref _mods15983_ _ctx15989_ '#f) + (let () + (declare (not safe)) + (error '"Unexpected import" _in17693_))))))) + (_eval117687_ + (lambda (_ctx17691_) + (if (let () + (declare (not safe)) + (table-ref _mods17685_ _ctx17691_ '#f)) '#!void (begin - (table-set! _mods15983_ _ctx15989_ '#t) - (__eval-module _ctx15989_)))))) - (if (pair? _in15981_) - (for-each - (lambda (_in15987_) (_import115984_ _in15987_ '0)) - _in15981_) - (_import115984_ _in15981_ '0))))) + (let () + (declare (not safe)) + (table-set! _mods17685_ _ctx17691_ '#t)) + (__eval-module _ctx17691_)))))) + (if (let () (declare (not safe)) (pair? _in17683_)) + (let ((__tmp17856 + (lambda (_in17689_) + (let () + (declare (not safe)) + (_import117686_ _in17689_ '0))))) + (declare (not safe)) + (for-each __tmp17856 _in17683_)) + (let () (declare (not safe)) (_import117686_ _in17683_ '0)))))) (define __eval-module - (lambda (_obj15974_) - (let* ((_key15976_ - (if (gx#module-context? _obj15974_) - (gx#module-context-path _obj15974_) - _obj15974_)) - (_$e15978_ (table-ref __*modules* _key15976_ '#f))) - (if _$e15978_ (values _$e15978_) (gx#core-eval-module _obj15974_))))) + (lambda (_obj17676_) + (let* ((_key17678_ + (if (gx#module-context? _obj17676_) + (gx#module-context-path _obj17676_) + _obj17676_)) + (_$e17680_ + (let () + (declare (not safe)) + (table-ref __*modules* _key17678_ '#f)))) + (if _$e17680_ (values _$e17680_) (gx#core-eval-module _obj17676_))))) (define gerbil-runtime-init! - (lambda (_builtin-modules15909_) - (let* ((_home15911_ (gerbil-home)) - (_libdir15913_ (path-expand '"lib" _home15911_)) - (_loadpath15922_ - (let ((_$e15915_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e15915_ - ((lambda (_envvar15918_) - (filter (lambda (_x15920_) - (not (string-empty? _x15920_))) - (string-split _envvar15918_ '#\:))) - _$e15915_) + (lambda (_builtin-modules17611_) + (let* ((_home17613_ (let () (declare (not safe)) (gerbil-home))) + (_libdir17615_ + (let () (declare (not safe)) (path-expand '"lib" _home17613_))) + (_loadpath17624_ + (let ((_$e17617_ + (let () + (declare (not safe)) + (getenv '"GERBIL_LOADPATH" '#f)))) + (if _$e17617_ + ((lambda (_envvar17620_) + (let ((__tmp17858 + (lambda (_x17622_) + (let ((__tmp17859 + (let () + (declare (not safe)) + (string-empty? _x17622_)))) + (declare (not safe)) + (not __tmp17859)))) + (__tmp17857 + (let () + (declare (not safe)) + (string-split _envvar17620_ '#\:)))) + (declare (not safe)) + (filter __tmp17858 __tmp17857))) + _$e17617_) '()))) - (_userpath15924_ - (path-expand '"lib" (getenv '"GERBIL_PATH" '"~/.gerbil"))) - (_loadpath15926_ - (if (getenv '"GERBIL_BUILD_PREFIX" '#f) - _loadpath15922_ - (cons _userpath15924_ _loadpath15922_)))) - (current-module-library-path (cons _libdir15913_ _loadpath15926_))) - (let* ((_registry-entry15931_ - (lambda (_m15929_) (cons _m15929_ 'builtin))) - (_module-registry15971_ - (let _lp15933_ ((_rest15935_ _builtin-modules15909_) - (_registry15936_ '())) - (let* ((_rest1593715945_ _rest15935_) - (_else1593915953_ - (lambda () (list->table _registry15936_))) - (_K1594115959_ - (lambda (_rest15956_ _mod15957_) - (_lp15933_ - _rest15956_ - (cons (_registry-entry15931_ - (string-append _mod15957_ '"__0")) - (cons (_registry-entry15931_ - (string-append _mod15957_ '"__rt")) - _registry15936_)))))) + (_userpath17626_ + (let ((__tmp17860 + (let () + (declare (not safe)) + (getenv '"GERBIL_PATH" '"~/.gerbil")))) + (declare (not safe)) + (path-expand '"lib" __tmp17860))) + (_loadpath17628_ + (if (let () + (declare (not safe)) + (getenv '"GERBIL_BUILD_PREFIX" '#f)) + _loadpath17624_ + (let () + (declare (not safe)) + (cons _userpath17626_ _loadpath17624_))))) + (current-module-library-path + (let () (declare (not safe)) (cons _libdir17615_ _loadpath17628_)))) + (let* ((_registry-entry17633_ + (lambda (_m17631_) + (let () (declare (not safe)) (cons _m17631_ 'builtin)))) + (_module-registry17673_ + (let _lp17635_ ((_rest17637_ _builtin-modules17611_) + (_registry17638_ '())) + (let* ((_rest1763917647_ _rest17637_) + (_else1764117655_ + (lambda () + (let () + (declare (not safe)) + (list->table _registry17638_)))) + (_K1764317661_ + (lambda (_rest17658_ _mod17659_) + (let ((__tmp17861 + (let ((__tmp17865 + (let ((__tmp17866 + (string-append + _mod17659_ + '"__0"))) + (declare (not safe)) + (_registry-entry17633_ + __tmp17866))) + (__tmp17862 + (let ((__tmp17863 + (let ((__tmp17864 + (string-append + _mod17659_ + '"__rt"))) + (declare (not safe)) + (_registry-entry17633_ + __tmp17864)))) + (declare (not safe)) + (cons __tmp17863 + _registry17638_)))) + (declare (not safe)) + (cons __tmp17865 __tmp17862)))) + (declare (not safe)) + (_lp17635_ _rest17658_ __tmp17861))))) (if (let () (declare (not safe)) - (##pair? _rest1593715945_)) - (let ((_hd1594215962_ + (##pair? _rest1763917647_)) + (let ((_hd1764417664_ (let () (declare (not safe)) - (##car _rest1593715945_))) - (_tl1594315964_ + (##car _rest1763917647_))) + (_tl1764517666_ (let () (declare (not safe)) - (##cdr _rest1593715945_)))) - (let* ((_mod15967_ _hd1594215962_) - (_rest15969_ _tl1594315964_)) - (_K1594115959_ _rest15969_ _mod15967_))) - (_else1593915953_)))))) - (current-module-registry _module-registry15971_)) - (current-readtable __*readtable*))) + (##cdr _rest1763917647_)))) + (let* ((_mod17669_ _hd1764417664_) + (_rest17671_ _tl1764517666_)) + (declare (not safe)) + (_K1764317661_ _rest17671_ _mod17669_))) + (let () (declare (not safe)) (_else1764117655_))))))) + (current-module-registry _module-registry17673_)) + (let () (declare (not safe)) (current-readtable __*readtable*)))) (define __expander-loaded '#f) (define gerbil-load-expander! (lambda () (if __expander-loaded '#!void - (begin (__load-gxi) (set! __expander-loaded '#t))))))) + (begin + (let () (declare (not safe)) (__load-gxi)) + (set! __expander-loaded '#t))))))) diff --git a/src/bootstrap/gerbil/runtime/loader__0.scm b/src/bootstrap/gerbil/runtime/loader__0.scm index d98db3e8e..cbe08ba4c 100644 --- a/src/bootstrap/gerbil/runtime/loader__0.scm +++ b/src/bootstrap/gerbil/runtime/loader__0.scm @@ -1,96 +1,131 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/loader::timestamp 1695206877) + (define gerbil/runtime/loader::timestamp 1695292370) (begin - (define current-module-library-path (make-parameter '#f)) - (define current-module-registry (make-parameter '#f)) - (define __reload-module (make-parameter '#f)) + (define current-module-library-path + (let () (declare (not safe)) (make-parameter '#f))) + (define current-module-registry + (let () (declare (not safe)) (make-parameter '#f))) + (define __reload-module (let () (declare (not safe)) (make-parameter '#f))) (define load-module__% - (lambda (_modpath8035_ _reload?8036_) - (let ((_$e8038_ - (if (not _reload?8036_) - (table-ref (current-module-registry) _modpath8035_ '#f) + (lambda (_modpath8303_ _reload?8304_) + (let ((_$e8306_ + (if (let () (declare (not safe)) (not _reload?8304_)) + (let ((__tmp8325 (current-module-registry))) + (declare (not safe)) + (table-ref __tmp8325 _modpath8303_ '#f)) '#f))) - (if _$e8038_ - _$e8038_ - (let ((_$e8041_ (find-library-module _modpath8035_))) - (if _$e8041_ - ((lambda (_path8044_) - (let ((_lpath8046_ (load _path8044_))) - (table-set! - (current-module-registry) - _modpath8035_ - _lpath8046_) - _lpath8046_)) - _$e8041_) - (error '"module not found" _modpath8035_))))))) + (if _$e8306_ + _$e8306_ + (let ((_$e8309_ + (let () + (declare (not safe)) + (find-library-module _modpath8303_)))) + (if _$e8309_ + ((lambda (_path8312_) + (let ((_lpath8314_ + (let () (declare (not safe)) (load _path8312_)))) + (let ((__tmp8326 (current-module-registry))) + (declare (not safe)) + (table-set! __tmp8326 _modpath8303_ _lpath8314_)) + _lpath8314_)) + _$e8309_) + (error '"module not found" _modpath8303_))))))) (define load-module__0 - (lambda (_modpath8051_) - (let ((_reload?8053_ (__reload-module))) - (load-module__% _modpath8051_ _reload?8053_)))) + (lambda (_modpath8319_) + (let ((_reload?8321_ (__reload-module))) + (declare (not safe)) + (load-module__% _modpath8319_ _reload?8321_)))) (define load-module - (lambda _g8058_ - (let ((_g8057_ (let () (declare (not safe)) (##length _g8058_)))) - (cond ((let () (declare (not safe)) (##fx= _g8057_ 1)) - (apply load-module__0 _g8058_)) - ((let () (declare (not safe)) (##fx= _g8057_ 2)) - (apply load-module__% _g8058_)) + (lambda _g8328_ + (let ((_g8327_ (let () (declare (not safe)) (##length _g8328_)))) + (cond ((let () (declare (not safe)) (##fx= _g8327_ 1)) + (apply (lambda (_modpath8319_) + (let () + (declare (not safe)) + (load-module__0 _modpath8319_))) + _g8328_)) + ((let () (declare (not safe)) (##fx= _g8327_ 2)) + (apply (lambda (_modpath8323_ _reload?8324_) + (let () + (declare (not safe)) + (load-module__% _modpath8323_ _reload?8324_))) + _g8328_)) (else (##raise-wrong-number-of-arguments-exception load-module - _g8058_)))))) + _g8328_)))))) (define find-library-module - (lambda (_modpath7969_) - (letrec ((_find-compiled-file7971_ - (lambda (_npath8023_) - (let ((_basepath8025_ + (lambda (_modpath8237_) + (letrec ((_find-compiled-file8239_ + (lambda (_npath8291_) + (let ((_basepath8293_ (let () (declare (not safe)) - (##string-append _npath8023_ '".o")))) - (let _lp8027_ ((_current8029_ '#f) (_n8030_ '1)) - (let ((_next8032_ - (let ((__tmp8059 (number->string _n8030_))) + (##string-append _npath8291_ '".o")))) + (let _lp8295_ ((_current8297_ '#f) (_n8298_ '1)) + (let ((_next8300_ + (let ((__tmp8329 + (let () + (declare (not safe)) + (number->string _n8298_)))) (declare (not safe)) - (##string-append _basepath8025_ __tmp8059)))) + (##string-append _basepath8293_ __tmp8329)))) (if (let () (declare (not safe)) - (##file-exists? _next8032_)) - (_lp8027_ - _next8032_ - (let () - (declare (not safe)) - (##fx+ _n8030_ '1))) - _current8029_)))))) - (_find-source-file7972_ - (lambda (_npath8019_) - (let ((_spath8021_ (string-append _npath8019_ '".scm"))) + (##file-exists? _next8300_)) + (let ((__tmp8330 + (let () + (declare (not safe)) + (##fx+ _n8298_ '1)))) + (declare (not safe)) + (_lp8295_ _next8300_ __tmp8330)) + _current8297_)))))) + (_find-source-file8240_ + (lambda (_npath8287_) + (let ((_spath8289_ (string-append _npath8287_ '".scm"))) (if (let () (declare (not safe)) - (##file-exists? _spath8021_)) - _spath8021_ + (##file-exists? _spath8289_)) + _spath8289_ '#f))))) - (let _lp7974_ ((_rest7976_ (current-module-library-path))) - (let* ((_rest79777985_ _rest7976_) - (_else79797993_ (lambda () '#f)) - (_K79818007_ - (lambda (_rest7996_ _dir7997_) - (let* ((_npath7999_ - (path-expand - _modpath7969_ - (path-expand _dir7997_))) - (_$e8001_ (_find-compiled-file7971_ _npath7999_))) - (if _$e8001_ - (path-normalize _$e8001_) - (let ((_$e8004_ - (_find-source-file7972_ _npath7999_))) - (if _$e8004_ - (path-normalize _$e8004_) - (_lp7974_ _rest7996_)))))))) - (if (let () (declare (not safe)) (##pair? _rest79777985_)) - (let ((_hd79828010_ - (let () (declare (not safe)) (##car _rest79777985_))) - (_tl79838012_ - (let () (declare (not safe)) (##cdr _rest79777985_)))) - (let* ((_dir8015_ _hd79828010_) (_rest8017_ _tl79838012_)) - (_K79818007_ _rest8017_ _dir8015_))) - (_else79797993_))))))))) + (let _lp8242_ ((_rest8244_ (current-module-library-path))) + (let* ((_rest82458253_ _rest8244_) + (_else82478261_ (lambda () '#f)) + (_K82498275_ + (lambda (_rest8264_ _dir8265_) + (let* ((_npath8267_ + (let ((__tmp8331 + (let () + (declare (not safe)) + (path-expand _dir8265_)))) + (declare (not safe)) + (path-expand _modpath8237_ __tmp8331))) + (_$e8269_ + (let () + (declare (not safe)) + (_find-compiled-file8239_ _npath8267_)))) + (if _$e8269_ + (let () + (declare (not safe)) + (path-normalize _$e8269_)) + (let ((_$e8272_ + (let () + (declare (not safe)) + (_find-source-file8240_ _npath8267_)))) + (if _$e8272_ + (let () + (declare (not safe)) + (path-normalize _$e8272_)) + (let () + (declare (not safe)) + (_lp8242_ _rest8264_))))))))) + (if (let () (declare (not safe)) (##pair? _rest82458253_)) + (let ((_hd82508278_ + (let () (declare (not safe)) (##car _rest82458253_))) + (_tl82518280_ + (let () (declare (not safe)) (##cdr _rest82458253_)))) + (let* ((_dir8283_ _hd82508278_) (_rest8285_ _tl82518280_)) + (declare (not safe)) + (_K82498275_ _rest8285_ _dir8283_))) + (let () (declare (not safe)) (_else82478261_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop__0.scm b/src/bootstrap/gerbil/runtime/mop__0.scm index c79c27a6e..2023df82f 100644 --- a/src/bootstrap/gerbil/runtime/mop__0.scm +++ b/src/bootstrap/gerbil/runtime/mop__0.scm @@ -1,1716 +1,2520 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1695206877) + (define gerbil/runtime/mop::timestamp 1695292370) (begin (define type-descriptor? - (lambda (_klass9790_) - (if (let () (declare (not safe)) (##type? _klass9790_)) - (eq? (let () (declare (not safe)) (##structure-length _klass9790_)) - '12) + (lambda (_klass10067_) + (if (let () (declare (not safe)) (##type? _klass10067_)) + (let ((__tmp10077 + (let () + (declare (not safe)) + (##structure-length _klass10067_)))) + (declare (not safe)) + (eq? __tmp10077 '12)) '#f))) (define struct-type? - (lambda (_klass9788_) - (if (type-descriptor? _klass9788_) - (not (type-descriptor-mixin _klass9788_)) + (lambda (_klass10065_) + (if (let () (declare (not safe)) (type-descriptor? _klass10065_)) + (let ((__tmp10078 + (let () + (declare (not safe)) + (type-descriptor-mixin _klass10065_)))) + (declare (not safe)) + (not __tmp10078)) '#f))) (define class-type? - (lambda (_klass9786_) - (if (type-descriptor? _klass9786_) - (if (type-descriptor-mixin _klass9786_) '#t '#f) + (lambda (_klass10063_) + (if (let () (declare (not safe)) (type-descriptor? _klass10063_)) + (if (let () + (declare (not safe)) + (type-descriptor-mixin _klass10063_)) + '#t + '#f) '#f))) (define make-type-descriptor - (lambda (_type-id9682_ - _type-name9683_ - _type-super9684_ - _rtd-mixin9685_ - _rtd-fields9686_ - _rtd-plist9687_ - _rtd-ctor9688_ - _rtd-slots9689_ - _rtd-methods9690_) - (letrec ((_put-props!9692_ - (lambda (_ht9766_ _key9767_) - (letrec ((_put-plist!9769_ - (lambda (_ht9775_ _key9776_ _plist9777_) - (let ((_$e9779_ - (assgetq _key9776_ _plist9777_))) - (if _$e9779_ - ((lambda (_lst9782_) - (for-each - (lambda (_id9784_) - (table-set! _ht9775_ _id9784_ '#t)) - _lst9782_)) - _$e9779_) + (lambda (_type-id9959_ + _type-name9960_ + _type-super9961_ + _rtd-mixin9962_ + _rtd-fields9963_ + _rtd-plist9964_ + _rtd-ctor9965_ + _rtd-slots9966_ + _rtd-methods9967_) + (letrec ((_put-props!9969_ + (lambda (_ht10043_ _key10044_) + (letrec ((_put-plist!10046_ + (lambda (_ht10052_ _key10053_ _plist10054_) + (let ((_$e10056_ + (let () + (declare (not safe)) + (assgetq _key10053_ _plist10054_)))) + (if _$e10056_ + ((lambda (_lst10059_) + (let ((__tmp10079 + (lambda (_id10061_) + (let () + (declare (not safe)) + (table-set! + _ht10052_ + _id10061_ + '#t))))) + (declare (not safe)) + (for-each __tmp10079 _lst10059_))) + _$e10056_) '#!void))))) - (_put-plist!9769_ _ht9766_ _key9767_ _rtd-plist9687_) - (if _rtd-mixin9685_ - (for-each - (lambda (_klass9771_) - (if (type-descriptor-mixin _klass9771_) - (let ((_plist9773_ - (type-descriptor-plist _klass9771_))) - (if (assgetq 'transparent: _plist9773_) - (_put-plist!9769_ - _ht9766_ - 'slots: - _plist9773_) - (_put-plist!9769_ - _ht9766_ - _key9767_ - _plist9773_))) - '#!void)) - _rtd-mixin9685_) + (let () + (declare (not safe)) + (_put-plist!10046_ + _ht10043_ + _key10044_ + _rtd-plist9964_)) + (if _rtd-mixin9962_ + (let ((__tmp10080 + (lambda (_klass10048_) + (if (let () + (declare (not safe)) + (type-descriptor-mixin _klass10048_)) + (let ((_plist10050_ + (let () + (declare (not safe)) + (type-descriptor-plist + _klass10048_)))) + (if (let () + (declare (not safe)) + (assgetq 'transparent: + _plist10050_)) + (let () + (declare (not safe)) + (_put-plist!10046_ + _ht10043_ + 'slots: + _plist10050_)) + (let () + (declare (not safe)) + (_put-plist!10046_ + _ht10043_ + _key10044_ + _plist10050_)))) + '#!void)))) + (declare (not safe)) + (for-each __tmp10080 _rtd-mixin9962_)) '#!void))))) - (let* ((_transparent?9694_ (assgetq 'transparent: _rtd-plist9687_)) - (_field-names9699_ - (let ((_$e9696_ (assq 'fields: _rtd-plist9687_))) - (if _$e9696_ (cdr _$e9696_) '()))) - (_field-names9706_ - (let ((_$e9701_ (assq 'slots: _rtd-plist9687_))) - (if _$e9701_ - ((lambda (_slots9704_) - (append _field-names9699_ (cdr _slots9704_))) - _$e9701_) - _field-names9699_))) - (_g9800_ (if (fx= _rtd-fields9686_ (length _field-names9706_)) - '#!void - (error '"Bad field descriptor; length mismatch" - _type-id9682_ - _rtd-fields9686_ - _field-names9706_))) - (_canonical-fields9709_ - (if _type-super9684_ - (list-tail - _field-names9706_ - (type-descriptor-fields _type-super9684_)) - _field-names9706_)) - (_printable9713_ - (if _transparent?9694_ + (let* ((_transparent?9971_ + (let () + (declare (not safe)) + (assgetq 'transparent: _rtd-plist9964_))) + (_field-names9976_ + (let ((_$e9973_ + (let () + (declare (not safe)) + (assq 'fields: _rtd-plist9964_)))) + (if _$e9973_ + (let () (declare (not safe)) (cdr _$e9973_)) + '()))) + (_field-names9983_ + (let ((_$e9978_ + (let () + (declare (not safe)) + (assq 'slots: _rtd-plist9964_)))) + (if _$e9978_ + ((lambda (_slots9981_) + (append _field-names9976_ + (let () + (declare (not safe)) + (cdr _slots9981_)))) + _$e9978_) + _field-names9976_))) + (_g10081_ + (if (fx= _rtd-fields9963_ (length _field-names9983_)) + '#!void + (error '"Bad field descriptor; length mismatch" + _type-id9959_ + _rtd-fields9963_ + _field-names9983_))) + (_canonical-fields9986_ + (if _type-super9961_ + (let ((__tmp10082 + (let () + (declare (not safe)) + (type-descriptor-fields _type-super9961_)))) + (declare (not safe)) + (list-tail _field-names9983_ __tmp10082)) + _field-names9983_)) + (_printable9990_ + (if _transparent?9971_ '#f - (let ((_ht9711_ (make-table 'test: eq?))) - (_put-props!9692_ _ht9711_ 'print:) - _ht9711_))) - (_equality9717_ - (if _transparent?9694_ + (let ((_ht9988_ + (let () + (declare (not safe)) + (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (_put-props!9969_ _ht9988_ 'print:)) + _ht9988_))) + (_equality9994_ + (if _transparent?9971_ '#f - (let ((_ht9715_ (make-table 'test: eq?))) - (_put-props!9692_ _ht9715_ 'equal:) - _ht9715_))) - (_field-info9758_ - (let _recur9719_ ((_rest9721_ _canonical-fields9709_)) - (let* ((_rest97229730_ _rest9721_) - (_else97249738_ (lambda () '())) - (_K97269746_ - (lambda (_rest9741_ _id9742_) - (let ((_flags9744_ - (if _transparent?9694_ - '0 - (let ((__tmp9802 - (if (table-ref - _printable9713_ - _id9742_ - '#f) - '0 - '1)) - (__tmp9801 - (if (table-ref - _equality9717_ - _id9742_ - '#f) - '0 - '4))) - (declare (not safe)) - (##fxior __tmp9802 __tmp9801))))) - (cons _id9742_ - (cons _flags9744_ - (cons '#f - (_recur9719_ - _rest9741_)))))))) + (let ((_ht9992_ + (let () + (declare (not safe)) + (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (_put-props!9969_ _ht9992_ 'equal:)) + _ht9992_))) + (_field-info10035_ + (let _recur9996_ ((_rest9998_ _canonical-fields9986_)) + (let* ((_rest999910007_ _rest9998_) + (_else1000110015_ (lambda () '())) + (_K1000310023_ + (lambda (_rest10018_ _id10019_) + (let* ((_flags10021_ + (if _transparent?9971_ + '0 + (let ((__tmp10084 + (if (let () + (declare (not safe)) + (table-ref + _printable9990_ + _id10019_ + '#f)) + '0 + '1)) + (__tmp10083 + (if (let () + (declare (not safe)) + (table-ref + _equality9994_ + _id10019_ + '#f)) + '0 + '4))) + (declare (not safe)) + (##fxior __tmp10084 __tmp10083)))) + (__tmp10085 + (let ((__tmp10086 + (let ((__tmp10087 + (let () + (declare (not safe)) + (_recur9996_ + _rest10018_)))) + (declare (not safe)) + (cons '#f __tmp10087)))) + (declare (not safe)) + (cons _flags10021_ __tmp10086)))) + (declare (not safe)) + (cons _id10019_ __tmp10085))))) (if (let () (declare (not safe)) - (##pair? _rest97229730_)) - (let ((_hd97279749_ + (##pair? _rest999910007_)) + (let ((_hd1000410026_ (let () (declare (not safe)) - (##car _rest97229730_))) - (_tl97289751_ + (##car _rest999910007_))) + (_tl1000510028_ (let () (declare (not safe)) - (##cdr _rest97229730_)))) - (let* ((_id9754_ _hd97279749_) - (_rest9756_ _tl97289751_)) - (_K97269746_ _rest9756_ _id9754_))) - (_else97249738_))))) - (_opaque?9763_ - (if (or _transparent?9694_ (assq 'equal: _rtd-plist9687_)) - (if _type-super9684_ - (let ((__tmp9803 - (let ((__tmp9804 + (##cdr _rest999910007_)))) + (let* ((_id10031_ _hd1000410026_) + (_rest10033_ _tl1000510028_)) + (declare (not safe)) + (_K1000310023_ _rest10033_ _id10031_))) + (let () (declare (not safe)) (_else1000110015_)))))) + (_opaque?10040_ + (if (or _transparent?9971_ + (let () + (declare (not safe)) + (assq 'equal: _rtd-plist9964_))) + (if _type-super9961_ + (let ((__tmp10088 + (let ((__tmp10089 (let () (declare (not safe)) - (##type-flags _type-super9684_)))) + (##type-flags _type-super9961_)))) (declare (not safe)) - (##fxand __tmp9804 '1)))) + (##fxand __tmp10089 '1)))) (declare (not safe)) - (##fx= __tmp9803 '1)) + (##fx= __tmp10088 '1)) '#f) '#t))) - (let ((__tmp9806 (+ '24 (if _opaque?9763_ '1 '0))) - (__tmp9805 (list->vector _field-info9758_))) + (let ((__tmp10091 (+ '24 (if _opaque?10040_ '1 '0))) + (__tmp10090 + (let () + (declare (not safe)) + (list->vector _field-info10035_)))) (declare (not safe)) (##structure ##type-type - _type-id9682_ - _type-name9683_ - __tmp9806 - _type-super9684_ - __tmp9805 - _rtd-mixin9685_ - _rtd-fields9686_ - _rtd-plist9687_ - _rtd-ctor9688_ - _rtd-slots9689_ - _rtd-methods9690_)))))) + _type-id9959_ + _type-name9960_ + __tmp10091 + _type-super9961_ + __tmp10090 + _rtd-mixin9962_ + _rtd-fields9963_ + _rtd-plist9964_ + _rtd-ctor9965_ + _rtd-slots9966_ + _rtd-methods9967_)))))) (define make-struct-type-descriptor - (lambda (_id9675_ - _name9676_ - _super9677_ - _fields9678_ - _plist9679_ - _ctor9680_) - (make-type-descriptor - _id9675_ - _name9676_ - _super9677_ - '#f - _fields9678_ - _plist9679_ - _ctor9680_ - '#f - '#f))) + (lambda (_id9952_ + _name9953_ + _super9954_ + _fields9955_ + _plist9956_ + _ctor9957_) + (let () + (declare (not safe)) + (make-type-descriptor + _id9952_ + _name9953_ + _super9954_ + '#f + _fields9955_ + _plist9956_ + _ctor9957_ + '#f + '#f)))) (define make-class-type-descriptor - (lambda (_id9666_ - _name9667_ - _super9668_ - _mixin9669_ - _fields9670_ - _plist9671_ - _ctor9672_ - _slots9673_) - (make-type-descriptor - _id9666_ - _name9667_ - _super9668_ - _mixin9669_ - _fields9670_ - _plist9671_ - _ctor9672_ - _slots9673_ - '#f))) + (lambda (_id9943_ + _name9944_ + _super9945_ + _mixin9946_ + _fields9947_ + _plist9948_ + _ctor9949_ + _slots9950_) + (let () + (declare (not safe)) + (make-type-descriptor + _id9943_ + _name9944_ + _super9945_ + _mixin9946_ + _fields9947_ + _plist9948_ + _ctor9949_ + _slots9950_ + '#f)))) (define type-descriptor-mixin - (lambda (_klass9664_) - (let () (declare (not safe)) (##vector-ref _klass9664_ '6)))) + (lambda (_klass9941_) + (let () (declare (not safe)) (##vector-ref _klass9941_ '6)))) (define type-descriptor-fields - (lambda (_klass9662_) - (let () (declare (not safe)) (##vector-ref _klass9662_ '7)))) + (lambda (_klass9939_) + (let () (declare (not safe)) (##vector-ref _klass9939_ '7)))) (define type-descriptor-plist - (lambda (_klass9660_) - (let () (declare (not safe)) (##vector-ref _klass9660_ '8)))) + (lambda (_klass9937_) + (let () (declare (not safe)) (##vector-ref _klass9937_ '8)))) (define type-descriptor-ctor - (lambda (_klass9658_) - (let () (declare (not safe)) (##vector-ref _klass9658_ '9)))) + (lambda (_klass9935_) + (let () (declare (not safe)) (##vector-ref _klass9935_ '9)))) (define type-descriptor-slots - (lambda (_klass9656_) - (let () (declare (not safe)) (##vector-ref _klass9656_ '10)))) + (lambda (_klass9933_) + (let () (declare (not safe)) (##vector-ref _klass9933_ '10)))) (define type-descriptor-methods - (lambda (_klass9654_) - (let () (declare (not safe)) (##vector-ref _klass9654_ '11)))) + (lambda (_klass9931_) + (let () (declare (not safe)) (##vector-ref _klass9931_ '11)))) (define type-descriptor-methods-set! - (lambda (_klass9651_ _ht9652_) + (lambda (_klass9928_ _ht9929_) (let () (declare (not safe)) - (##vector-set! _klass9651_ '11 _ht9652_)))) + (##vector-set! _klass9928_ '11 _ht9929_)))) (define type-descriptor-sealed? - (lambda (_klass9649_) - (let ((__tmp9807 - (let () (declare (not safe)) (##type-flags _klass9649_)))) + (lambda (_klass9926_) + (let ((__tmp10092 + (let () (declare (not safe)) (##type-flags _klass9926_)))) (declare (not safe)) - (##fxbit-set? '20 __tmp9807)))) + (##fxbit-set? '20 __tmp10092)))) (define type-descriptor-seal! - (lambda (_klass9647_) - (let ((__tmp9808 - (let ((__tmp9810 + (lambda (_klass9924_) + (let ((__tmp10093 + (let ((__tmp10095 (let () (declare (not safe)) (##fxarithmetic-shift '1 '20))) - (__tmp9809 + (__tmp10094 (let () (declare (not safe)) - (##type-flags _klass9647_)))) + (##type-flags _klass9924_)))) (declare (not safe)) - (##fxior __tmp9810 __tmp9809)))) + (##fxior __tmp10095 __tmp10094)))) (declare (not safe)) - (##vector-set! _klass9647_ '3 __tmp9808)))) + (##vector-set! _klass9924_ '3 __tmp10093)))) (define make-struct-type__% - (lambda (_id9596_ - _super9597_ - _fields9598_ - _name9599_ - _plist9600_ - _ctor9601_ - _field-names9602_) - (if (and _super9597_ (not (struct-type? _super9597_))) - (error '"Illegal super type; not a struct-type" _super9597_) + (lambda (_id9873_ + _super9874_ + _fields9875_ + _name9876_ + _plist9877_ + _ctor9878_ + _field-names9879_) + (if (and _super9874_ + (let ((__tmp10096 + (let () + (declare (not safe)) + (struct-type? _super9874_)))) + (declare (not safe)) + (not __tmp10096))) + (error '"Illegal super type; not a struct-type" _super9874_) '#!void) - (if (and _super9597_ - (assgetq 'final: (type-descriptor-plist _super9597_))) - (error '"Cannot extend final struct" _super9597_) + (if (and _super9874_ + (let ((__tmp10097 + (let () + (declare (not safe)) + (type-descriptor-plist _super9874_)))) + (declare (not safe)) + (assgetq 'final: __tmp10097))) + (error '"Cannot extend final struct" _super9874_) '#!void) - (let* ((_super-fields9604_ - (if _super9597_ (type-descriptor-fields _super9597_) '0)) - (_std-fields9606_ (fx+ _fields9598_ _super-fields9604_)) - (_std-field-names9616_ - (let* ((_super-fields9608_ - (if _super9597_ - (assgetq 'fields: - (type-descriptor-plist _super9597_)) - '())) - (_field-names9613_ - (let ((_$e9610_ _field-names9602_)) - (if _$e9610_ _$e9610_ (make-list _fields9598_ ':))))) - (append _super-fields9608_ _field-names9613_))) - (_g9811_ (if (let ((__tmp9812 (length _std-field-names9616_))) + (let* ((_super-fields9881_ + (if _super9874_ + (let () + (declare (not safe)) + (type-descriptor-fields _super9874_)) + '0)) + (_std-fields9883_ (fx+ _fields9875_ _super-fields9881_)) + (_std-field-names9893_ + (let* ((_super-fields9885_ + (if _super9874_ + (let ((__tmp10098 + (let () + (declare (not safe)) + (type-descriptor-plist _super9874_)))) (declare (not safe)) - (##fx= _std-fields9606_ __tmp9812)) - '#!void - (error '"Bad field specification; length mismatch" - _id9596_ - _std-fields9606_ - _std-field-names9616_))) - (_std-plist9619_ - (cons (cons 'fields: _std-field-names9616_) _plist9600_)) - (_ctor9624_ - (let ((_$e9621_ _ctor9601_)) - (if _$e9621_ - _$e9621_ - (if _super9597_ - (type-descriptor-ctor _super9597_) + (assgetq 'fields: __tmp10098)) + '())) + (_field-names9890_ + (let ((_$e9887_ _field-names9879_)) + (if _$e9887_ + _$e9887_ + (let () + (declare (not safe)) + (make-list _fields9875_ ':)))))) + (append _super-fields9885_ _field-names9890_))) + (_g10100_ + (if (let ((__tmp10099 (length _std-field-names9893_))) + (declare (not safe)) + (##fx= _std-fields9883_ __tmp10099)) + '#!void + (error '"Bad field specification; length mismatch" + _id9873_ + _std-fields9883_ + _std-field-names9893_))) + (_std-plist9896_ + (let ((__tmp10101 + (let () + (declare (not safe)) + (cons 'fields: _std-field-names9893_)))) + (declare (not safe)) + (cons __tmp10101 _plist9877_))) + (_ctor9901_ + (let ((_$e9898_ _ctor9878_)) + (if _$e9898_ + _$e9898_ + (if _super9874_ + (let () + (declare (not safe)) + (type-descriptor-ctor _super9874_)) '#f))))) - (make-struct-type-descriptor - _id9596_ - _name9599_ - _super9597_ - _std-fields9606_ - _std-plist9619_ - _ctor9624_)))) + (let () + (declare (not safe)) + (make-struct-type-descriptor + _id9873_ + _name9876_ + _super9874_ + _std-fields9883_ + _std-plist9896_ + _ctor9901_))))) (define make-struct-type__0 - (lambda (_id9630_ - _super9631_ - _fields9632_ - _name9633_ - _plist9634_ - _ctor9635_) - (let ((_field-names9637_ '#f)) + (lambda (_id9907_ + _super9908_ + _fields9909_ + _name9910_ + _plist9911_ + _ctor9912_) + (let ((_field-names9914_ '#f)) + (declare (not safe)) (make-struct-type__% - _id9630_ - _super9631_ - _fields9632_ - _name9633_ - _plist9634_ - _ctor9635_ - _field-names9637_)))) + _id9907_ + _super9908_ + _fields9909_ + _name9910_ + _plist9911_ + _ctor9912_ + _field-names9914_)))) (define make-struct-type - (lambda _g9814_ - (let ((_g9813_ (let () (declare (not safe)) (##length _g9814_)))) - (cond ((let () (declare (not safe)) (##fx= _g9813_ 6)) - (apply make-struct-type__0 _g9814_)) - ((let () (declare (not safe)) (##fx= _g9813_ 7)) - (apply make-struct-type__% _g9814_)) + (lambda _g10103_ + (let ((_g10102_ (let () (declare (not safe)) (##length _g10103_)))) + (cond ((let () (declare (not safe)) (##fx= _g10102_ 6)) + (apply (lambda (_id9907_ + _super9908_ + _fields9909_ + _name9910_ + _plist9911_ + _ctor9912_) + (let () + (declare (not safe)) + (make-struct-type__0 + _id9907_ + _super9908_ + _fields9909_ + _name9910_ + _plist9911_ + _ctor9912_))) + _g10103_)) + ((let () (declare (not safe)) (##fx= _g10102_ 7)) + (apply (lambda (_id9916_ + _super9917_ + _fields9918_ + _name9919_ + _plist9920_ + _ctor9921_ + _field-names9922_) + (let () + (declare (not safe)) + (make-struct-type__% + _id9916_ + _super9917_ + _fields9918_ + _name9919_ + _plist9920_ + _ctor9921_ + _field-names9922_))) + _g10103_)) (else (##raise-wrong-number-of-arguments-exception make-struct-type - _g9814_)))))) + _g10103_)))))) (define make-struct-predicate - (lambda (_klass9587_) - (let ((_tid9589_ - (let () (declare (not safe)) (##type-id _klass9587_)))) - (if (assgetq 'final: (type-descriptor-plist _klass9587_)) - (lambda (_obj9591_) + (lambda (_klass9864_) + (let ((_tid9866_ + (let () (declare (not safe)) (##type-id _klass9864_)))) + (if (let ((__tmp10104 + (let () + (declare (not safe)) + (type-descriptor-plist _klass9864_)))) + (declare (not safe)) + (assgetq 'final: __tmp10104)) + (lambda (_obj9868_) (let () (declare (not safe)) - (##structure-direct-instance-of? _obj9591_ _tid9589_))) - (lambda (_obj9593_) + (##structure-direct-instance-of? _obj9868_ _tid9866_))) + (lambda (_obj9870_) (let () (declare (not safe)) - (##structure-instance-of? _obj9593_ _tid9589_))))))) + (##structure-instance-of? _obj9870_ _tid9866_))))))) (define make-struct-field-accessor - (lambda (_klass9580_ _field9581_) - (let ((_off9583_ - (let ((__tmp9815 (struct-field-offset _klass9580_ _field9581_))) + (lambda (_klass9857_ _field9858_) + (let ((_off9860_ + (let ((__tmp10105 + (let () + (declare (not safe)) + (struct-field-offset _klass9857_ _field9858_)))) (declare (not safe)) - (##fx+ __tmp9815 '1)))) - (lambda (_obj9585_) + (##fx+ __tmp10105 '1)))) + (lambda (_obj9862_) (let () (declare (not safe)) - (##structure-ref _obj9585_ _off9583_ _klass9580_ '#f)))))) + (##structure-ref _obj9862_ _off9860_ _klass9857_ '#f)))))) (define make-struct-field-mutator - (lambda (_klass9572_ _field9573_) - (let ((_off9575_ - (let ((__tmp9816 (struct-field-offset _klass9572_ _field9573_))) + (lambda (_klass9849_ _field9850_) + (let ((_off9852_ + (let ((__tmp10106 + (let () + (declare (not safe)) + (struct-field-offset _klass9849_ _field9850_)))) (declare (not safe)) - (##fx+ __tmp9816 '1)))) - (lambda (_obj9577_ _val9578_) + (##fx+ __tmp10106 '1)))) + (lambda (_obj9854_ _val9855_) (let () (declare (not safe)) (##structure-set! - _obj9577_ - _val9578_ - _off9575_ - _klass9572_ + _obj9854_ + _val9855_ + _off9852_ + _klass9849_ '#f)))))) (define make-struct-field-unchecked-accessor - (lambda (_klass9565_ _field9566_) - (let ((_off9568_ - (let ((__tmp9817 (struct-field-offset _klass9565_ _field9566_))) + (lambda (_klass9842_ _field9843_) + (let ((_off9845_ + (let ((__tmp10107 + (let () + (declare (not safe)) + (struct-field-offset _klass9842_ _field9843_)))) (declare (not safe)) - (##fx+ __tmp9817 '1)))) - (lambda (_obj9570_) + (##fx+ __tmp10107 '1)))) + (lambda (_obj9847_) (let () (declare (not safe)) (##unchecked-structure-ref - _obj9570_ - _off9568_ - _klass9565_ + _obj9847_ + _off9845_ + _klass9842_ '#f)))))) (define make-struct-field-unchecked-mutator - (lambda (_klass9557_ _field9558_) - (let ((_off9560_ - (let ((__tmp9818 (struct-field-offset _klass9557_ _field9558_))) + (lambda (_klass9834_ _field9835_) + (let ((_off9837_ + (let ((__tmp10108 + (let () + (declare (not safe)) + (struct-field-offset _klass9834_ _field9835_)))) (declare (not safe)) - (##fx+ __tmp9818 '1)))) - (lambda (_obj9562_ _val9563_) + (##fx+ __tmp10108 '1)))) + (lambda (_obj9839_ _val9840_) (let () (declare (not safe)) (##unchecked-structure-set! - _obj9562_ - _val9563_ - _off9560_ - _klass9557_ + _obj9839_ + _val9840_ + _off9837_ + _klass9834_ '#f)))))) (define struct-field-offset - (lambda (_klass9551_ _field9552_) - (let ((__tmp9819 - (let ((_$e9554_ + (lambda (_klass9828_ _field9829_) + (let ((__tmp10109 + (let ((_$e9831_ (let () (declare (not safe)) - (##type-super _klass9551_)))) - (if _$e9554_ (type-descriptor-fields _$e9554_) '0)))) + (##type-super _klass9828_)))) + (if _$e9831_ + (let () + (declare (not safe)) + (type-descriptor-fields _$e9831_)) + '0)))) (declare (not safe)) - (##fx+ _field9552_ __tmp9819)))) + (##fx+ _field9829_ __tmp10109)))) (define struct-field-ref - (lambda (_klass9547_ _obj9548_ _off9549_) - (let ((__tmp9820 (let () (declare (not safe)) (##fx+ _off9549_ '1)))) + (lambda (_klass9824_ _obj9825_ _off9826_) + (let ((__tmp10110 (let () (declare (not safe)) (##fx+ _off9826_ '1)))) (declare (not safe)) - (##structure-ref _obj9548_ __tmp9820 _klass9547_ '#f)))) + (##structure-ref _obj9825_ __tmp10110 _klass9824_ '#f)))) (define struct-field-set! - (lambda (_klass9542_ _obj9543_ _off9544_ _val9545_) - (let ((__tmp9821 (let () (declare (not safe)) (##fx+ _off9544_ '1)))) + (lambda (_klass9819_ _obj9820_ _off9821_ _val9822_) + (let ((__tmp10111 (let () (declare (not safe)) (##fx+ _off9821_ '1)))) (declare (not safe)) - (##structure-set! _obj9543_ _val9545_ __tmp9821 _klass9542_ '#f)))) + (##structure-set! _obj9820_ _val9822_ __tmp10111 _klass9819_ '#f)))) (define struct-subtype? - (lambda (_klass9533_ _xklass9534_) - (let ((_klass-t9536_ - (let () (declare (not safe)) (##type-id _klass9533_)))) - (let _lp9538_ ((_next9540_ _xklass9534_)) - (if (not _next9540_) + (lambda (_klass9810_ _xklass9811_) + (let ((_klass-t9813_ + (let () (declare (not safe)) (##type-id _klass9810_)))) + (let _lp9815_ ((_next9817_ _xklass9811_)) + (if (let () (declare (not safe)) (not _next9817_)) '#f - (if (eq? _klass-t9536_ - (let () (declare (not safe)) (##type-id _next9540_))) + (if (let ((__tmp10113 + (let () + (declare (not safe)) + (##type-id _next9817_)))) + (declare (not safe)) + (eq? _klass-t9813_ __tmp10113)) '#t - (_lp9538_ - (let () - (declare (not safe)) - (##type-super _next9540_))))))))) + (let ((__tmp10112 + (let () + (declare (not safe)) + (##type-super _next9817_)))) + (declare (not safe)) + (_lp9815_ __tmp10112)))))))) (define make-class-type - (lambda (_id9240_ - _super9241_ - _slots9242_ - _name9243_ - _plist9244_ - _ctor9245_) - (letrec ((_class-slots9247_ - (lambda (_klass9531_) - (assgetq 'slots: (type-descriptor-plist _klass9531_)))) - (_make-slots9248_ - (lambda (_off9482_) - (let ((_slot-table9484_ (make-table 'test: eq?))) - (let _lp9486_ ((_rest9488_ _super9241_) - (_off9489_ _off9482_) - (_slot-list9490_ '())) - (let* ((_rest94919499_ _rest9488_) - (_else94939510_ + (lambda (_id9517_ + _super9518_ + _slots9519_ + _name9520_ + _plist9521_ + _ctor9522_) + (letrec ((_class-slots9524_ + (lambda (_klass9808_) + (let ((__tmp10114 + (let () + (declare (not safe)) + (type-descriptor-plist _klass9808_)))) + (declare (not safe)) + (assgetq 'slots: __tmp10114)))) + (_make-slots9525_ + (lambda (_off9759_) + (let ((_slot-table9761_ + (let () + (declare (not safe)) + (make-table 'test: eq?)))) + (let _lp9763_ ((_rest9765_ _super9518_) + (_off9766_ _off9759_) + (_slot-list9767_ '())) + (let* ((_rest97689776_ _rest9765_) + (_else97709787_ (lambda () - (_merge-slots9249_ - _slot-table9484_ - _slots9242_ - _off9489_ - _slot-list9490_ - (lambda (_off9507_ _slot-list9508_) - (values _off9507_ - _slot-table9484_ - (reverse _slot-list9508_)))))) - (_K94959519_ - (lambda (_rest9513_ _hd9514_) - (_merge-slots9249_ - _slot-table9484_ - (_class-slots9247_ _hd9514_) - _off9489_ - _slot-list9490_ - (lambda (_off9516_ _slot-list9517_) - (_lp9486_ - _rest9513_ - _off9516_ - _slot-list9517_)))))) + (let ((__tmp10115 + (lambda (_off9784_ _slot-list9785_) + (values _off9784_ + _slot-table9761_ + (let () + (declare (not safe)) + (reverse _slot-list9785_)))))) + (declare (not safe)) + (_merge-slots9526_ + _slot-table9761_ + _slots9519_ + _off9766_ + _slot-list9767_ + __tmp10115)))) + (_K97729796_ + (lambda (_rest9790_ _hd9791_) + (let ((__tmp10117 + (let () + (declare (not safe)) + (_class-slots9524_ _hd9791_))) + (__tmp10116 + (lambda (_off9793_ _slot-list9794_) + (let () + (declare (not safe)) + (_lp9763_ + _rest9790_ + _off9793_ + _slot-list9794_))))) + (declare (not safe)) + (_merge-slots9526_ + _slot-table9761_ + __tmp10117 + _off9766_ + _slot-list9767_ + __tmp10116))))) (if (let () (declare (not safe)) - (##pair? _rest94919499_)) - (let ((_hd94969522_ + (##pair? _rest97689776_)) + (let ((_hd97739799_ (let () (declare (not safe)) - (##car _rest94919499_))) - (_tl94979524_ + (##car _rest97689776_))) + (_tl97749801_ (let () (declare (not safe)) - (##cdr _rest94919499_)))) - (let* ((_hd9527_ _hd94969522_) - (_rest9529_ _tl94979524_)) - (_K94959519_ _rest9529_ _hd9527_))) - (_else94939510_))))))) - (_merge-slots9249_ - (lambda (_ht9437_ _lst9438_ _off9439_ _r9440_ _K9441_) - (let _lp9443_ ((_rest9445_ _lst9438_) - (_off9446_ _off9439_) - (_r9447_ _r9440_)) - (let* ((_rest94489456_ _rest9445_) - (_else94509464_ - (lambda () (_K9441_ _off9446_ _r9447_))) - (_K94529470_ - (lambda (_rest9467_ _slot9468_) - (if (table-ref _ht9437_ _slot9468_ '#f) - (_lp9443_ _rest9467_ _off9446_ _r9447_) + (##cdr _rest97689776_)))) + (let* ((_hd9804_ _hd97739799_) + (_rest9806_ _tl97749801_)) + (declare (not safe)) + (_K97729796_ _rest9806_ _hd9804_))) + (let () + (declare (not safe)) + (_else97709787_)))))))) + (_merge-slots9526_ + (lambda (_ht9714_ _lst9715_ _off9716_ _r9717_ _K9718_) + (let _lp9720_ ((_rest9722_ _lst9715_) + (_off9723_ _off9716_) + (_r9724_ _r9717_)) + (let* ((_rest97259733_ _rest9722_) + (_else97279741_ + (lambda () (_K9718_ _off9723_ _r9724_))) + (_K97299747_ + (lambda (_rest9744_ _slot9745_) + (if (let () + (declare (not safe)) + (table-ref _ht9714_ _slot9745_ '#f)) + (let () + (declare (not safe)) + (_lp9720_ _rest9744_ _off9723_ _r9724_)) (begin - (table-set! - _ht9437_ - _slot9468_ - _off9446_) - (table-set! - _ht9437_ - (symbol->keyword _slot9468_) - _off9446_) - (_lp9443_ - _rest9467_ - (let () - (declare (not safe)) - (##fx+ _off9446_ '1)) - (cons _slot9468_ _r9447_))))))) + (let () + (declare (not safe)) + (table-set! + _ht9714_ + _slot9745_ + _off9723_)) + (let ((__tmp10118 + (let () + (declare (not safe)) + (symbol->keyword _slot9745_)))) + (declare (not safe)) + (table-set! + _ht9714_ + __tmp10118 + _off9723_)) + (let ((__tmp10120 + (let () + (declare (not safe)) + (##fx+ _off9723_ '1))) + (__tmp10119 + (let () + (declare (not safe)) + (cons _slot9745_ _r9724_)))) + (declare (not safe)) + (_lp9720_ + _rest9744_ + __tmp10120 + __tmp10119))))))) (if (let () (declare (not safe)) - (##pair? _rest94489456_)) - (let ((_hd94539473_ + (##pair? _rest97259733_)) + (let ((_hd97309750_ (let () (declare (not safe)) - (##car _rest94489456_))) - (_tl94549475_ + (##car _rest97259733_))) + (_tl97319752_ (let () (declare (not safe)) - (##cdr _rest94489456_)))) - (let* ((_slot9478_ _hd94539473_) - (_rest9480_ _tl94549475_)) - (_K94529470_ _rest9480_ _slot9478_))) - (_else94509464_)))))) - (_find-super-ctor9250_ - (lambda (_super9389_) - (let _lp9391_ ((_rest9393_ _super9389_) (_ctor9394_ '#f)) - (let* ((_rest93959403_ _rest9393_) - (_else93979411_ (lambda () _ctor9394_)) - (_K93999425_ - (lambda (_rest9414_ _hd9415_) - (let ((_$e9417_ - (type-descriptor-ctor _hd9415_))) - (if _$e9417_ - ((lambda (_xctor9420_) - (if (or (not _ctor9394_) - (eq? _ctor9394_ _xctor9420_)) - (_lp9391_ _rest9414_ _xctor9420_) + (##cdr _rest97259733_)))) + (let* ((_slot9755_ _hd97309750_) + (_rest9757_ _tl97319752_)) + (declare (not safe)) + (_K97299747_ _rest9757_ _slot9755_))) + (let () (declare (not safe)) (_else97279741_))))))) + (_find-super-ctor9527_ + (lambda (_super9666_) + (let _lp9668_ ((_rest9670_ _super9666_) (_ctor9671_ '#f)) + (let* ((_rest96729680_ _rest9670_) + (_else96749688_ (lambda () _ctor9671_)) + (_K96769702_ + (lambda (_rest9691_ _hd9692_) + (let ((_$e9694_ + (let () + (declare (not safe)) + (type-descriptor-ctor _hd9692_)))) + (if _$e9694_ + ((lambda (_xctor9697_) + (if (or (let () + (declare (not safe)) + (not _ctor9671_)) + (let () + (declare (not safe)) + (eq? _ctor9671_ + _xctor9697_))) + (let () + (declare (not safe)) + (_lp9668_ + _rest9691_ + _xctor9697_)) (error '"Conflicting implicit constructors" - _ctor9394_ - _xctor9420_))) - _$e9417_) - (_lp9391_ _rest9414_ _ctor9394_)))))) + _ctor9671_ + _xctor9697_))) + _$e9694_) + (let () + (declare (not safe)) + (_lp9668_ _rest9691_ _ctor9671_))))))) (if (let () (declare (not safe)) - (##pair? _rest93959403_)) - (let ((_hd94009428_ + (##pair? _rest96729680_)) + (let ((_hd96779705_ (let () (declare (not safe)) - (##car _rest93959403_))) - (_tl94019430_ + (##car _rest96729680_))) + (_tl96789707_ (let () (declare (not safe)) - (##cdr _rest93959403_)))) - (let* ((_hd9433_ _hd94009428_) - (_rest9435_ _tl94019430_)) - (_K93999425_ _rest9435_ _hd9433_))) - (_else93979411_)))))) - (_find-super-struct9251_ - (lambda (_super9336_) - (letrec ((_base-struct9338_ - (lambda (_super-struct9378_ _klass9379_) - (if _super-struct9378_ - (if (struct-subtype? - _super-struct9378_ - _klass9379_) - (let _lp9381_ ((_klass9383_ - _klass9379_)) - (if (struct-type? _klass9383_) - _klass9383_ - (_lp9381_ - (let () - (declare (not safe)) - (##type-super _klass9383_))))) - (if (struct-subtype? - _klass9379_ - _super-struct9378_) - _super-struct9378_ + (##cdr _rest96729680_)))) + (let* ((_hd9710_ _hd96779705_) + (_rest9712_ _tl96789707_)) + (declare (not safe)) + (_K96769702_ _rest9712_ _hd9710_))) + (let () (declare (not safe)) (_else96749688_))))))) + (_find-super-struct9528_ + (lambda (_super9613_) + (letrec ((_base-struct9615_ + (lambda (_super-struct9655_ _klass9656_) + (if _super-struct9655_ + (if (let () + (declare (not safe)) + (struct-subtype? + _super-struct9655_ + _klass9656_)) + (let _lp9658_ ((_klass9660_ + _klass9656_)) + (if (let () + (declare (not safe)) + (struct-type? _klass9660_)) + _klass9660_ + (let ((__tmp10121 + (let () + (declare (not safe)) + (##type-super + _klass9660_)))) + (declare (not safe)) + (_lp9658_ __tmp10121)))) + (if (let () + (declare (not safe)) + (struct-subtype? + _klass9656_ + _super-struct9655_)) + _super-struct9655_ (error '"Bad mixin: incompatible struct bases" - _klass9379_ - _super-struct9378_))) - (if (struct-type? _klass9379_) - _klass9379_ - (if (class-type? _klass9379_) - (let _lp9385_ ((_next9387_ + _klass9656_ + _super-struct9655_))) + (if (let () + (declare (not safe)) + (struct-type? _klass9656_)) + _klass9656_ + (if (let () + (declare (not safe)) + (class-type? _klass9656_)) + (let _lp9662_ ((_next9664_ (let () (declare (not safe)) (##type-super - _klass9379_)))) - (if (not _next9387_) + _klass9656_)))) + (if (let () + (declare (not safe)) + (not _next9664_)) '#f - (if (struct-type? _next9387_) - _next9387_ - (if (class-type? - _next9387_) - (_lp9385_ _next9387_) + (if (let () + (declare (not safe)) + (struct-type? + _next9664_)) + _next9664_ + (if (let () + (declare + (not safe)) + (class-type? + _next9664_)) + (let () + (declare + (not safe)) + (_lp9662_ + _next9664_)) '#f)))) '#f)))))) - (let _lp9340_ ((_rest9342_ _super9336_) - (_super-struct9343_ '#f)) - (let* ((_rest93449352_ _rest9342_) - (_else93469360_ (lambda () _super-struct9343_)) - (_K93489366_ - (lambda (_rest9363_ _hd9364_) - (_lp9340_ - _rest9363_ - (_base-struct9338_ - _super-struct9343_ - _hd9364_))))) + (let _lp9617_ ((_rest9619_ _super9613_) + (_super-struct9620_ '#f)) + (let* ((_rest96219629_ _rest9619_) + (_else96239637_ (lambda () _super-struct9620_)) + (_K96259643_ + (lambda (_rest9640_ _hd9641_) + (let ((__tmp10122 + (let () + (declare (not safe)) + (_base-struct9615_ + _super-struct9620_ + _hd9641_)))) + (declare (not safe)) + (_lp9617_ _rest9640_ __tmp10122))))) (if (let () (declare (not safe)) - (##pair? _rest93449352_)) - (let ((_hd93499369_ + (##pair? _rest96219629_)) + (let ((_hd96269646_ (let () (declare (not safe)) - (##car _rest93449352_))) - (_tl93509371_ + (##car _rest96219629_))) + (_tl96279648_ (let () (declare (not safe)) - (##cdr _rest93449352_)))) - (let* ((_hd9374_ _hd93499369_) - (_rest9376_ _tl93509371_)) - (_K93489366_ _rest9376_ _hd9374_))) - (_else93469360_))))))) - (_expand-struct-mixin9252_ - (lambda (_super9291_) - (let _lp9293_ ((_rest9295_ _super9291_) (_mixin9296_ '())) - (let* ((_rest92979305_ _rest9295_) - (_else92999313_ (lambda () (reverse _mixin9296_))) - (_K93019324_ - (lambda (_rest9316_ _hd9317_) - (if (struct-type? _hd9317_) - (let _lp29319_ ((_next9321_ _hd9317_) - (_mixin9322_ _mixin9296_)) - (if (not _next9321_) - (_lp9293_ _rest9316_ _mixin9322_) - (if (struct-type? _next9321_) - (_lp29319_ - (let () - (declare (not safe)) - (##type-super _next9321_)) - (cons _next9321_ _mixin9322_)) - (_lp9293_ - _rest9316_ - _mixin9322_)))) - (_lp9293_ - _rest9316_ - (cons _hd9317_ _mixin9296_)))))) + (##cdr _rest96219629_)))) + (let* ((_hd9651_ _hd96269646_) + (_rest9653_ _tl96279648_)) + (declare (not safe)) + (_K96259643_ _rest9653_ _hd9651_))) + (let () + (declare (not safe)) + (_else96239637_)))))))) + (_expand-struct-mixin9529_ + (lambda (_super9568_) + (let _lp9570_ ((_rest9572_ _super9568_) (_mixin9573_ '())) + (let* ((_rest95749582_ _rest9572_) + (_else95769590_ + (lambda () + (let () + (declare (not safe)) + (reverse _mixin9573_)))) + (_K95789601_ + (lambda (_rest9593_ _hd9594_) + (if (let () + (declare (not safe)) + (struct-type? _hd9594_)) + (let _lp29596_ ((_next9598_ _hd9594_) + (_mixin9599_ _mixin9573_)) + (if (let () + (declare (not safe)) + (not _next9598_)) + (let () + (declare (not safe)) + (_lp9570_ _rest9593_ _mixin9599_)) + (if (let () + (declare (not safe)) + (struct-type? _next9598_)) + (let ((__tmp10125 + (let () + (declare (not safe)) + (##type-super + _next9598_))) + (__tmp10124 + (let () + (declare (not safe)) + (cons _next9598_ + _mixin9599_)))) + (declare (not safe)) + (_lp29596_ + __tmp10125 + __tmp10124)) + (let () + (declare (not safe)) + (_lp9570_ + _rest9593_ + _mixin9599_))))) + (let ((__tmp10123 + (let () + (declare (not safe)) + (cons _hd9594_ _mixin9573_)))) + (declare (not safe)) + (_lp9570_ _rest9593_ __tmp10123)))))) (if (let () (declare (not safe)) - (##pair? _rest92979305_)) - (let ((_hd93029327_ + (##pair? _rest95749582_)) + (let ((_hd95799604_ (let () (declare (not safe)) - (##car _rest92979305_))) - (_tl93039329_ + (##car _rest95749582_))) + (_tl95809606_ (let () (declare (not safe)) - (##cdr _rest92979305_)))) - (let* ((_hd9332_ _hd93029327_) - (_rest9334_ _tl93039329_)) - (_K93019324_ _rest9334_ _hd9332_))) - (_else92999313_))))))) - (let ((_$e9256_ - (find (lambda (_klass9254_) - (not (type-descriptor? _klass9254_))) - _super9241_))) - (if _$e9256_ - ((lambda (_klass9259_) + (##cdr _rest95749582_)))) + (let* ((_hd9609_ _hd95799604_) + (_rest9611_ _tl95809606_)) + (declare (not safe)) + (_K95789601_ _rest9611_ _hd9609_))) + (let () + (declare (not safe)) + (_else95769590_)))))))) + (let ((_$e9533_ + (let ((__tmp10126 + (lambda (_klass9531_) + (let ((__tmp10127 + (let () + (declare (not safe)) + (type-descriptor? _klass9531_)))) + (declare (not safe)) + (not __tmp10127))))) + (declare (not safe)) + (find __tmp10126 _super9518_)))) + (if _$e9533_ + ((lambda (_klass9536_) (error '"Illegal super class; not a type descriptor" - _klass9259_)) - _$e9256_) - (let ((_$e9263_ - (find (lambda (_klass9261_) - (assgetq 'final: - (type-descriptor-plist _klass9261_))) - _super9241_))) - (if _$e9263_ - ((lambda (_klass9266_) - (error '"Cannot extend final class" _klass9266_)) - _$e9263_) + _klass9536_)) + _$e9533_) + (let ((_$e9540_ + (let ((__tmp10128 + (lambda (_klass9538_) + (let ((__tmp10129 + (let () + (declare (not safe)) + (type-descriptor-plist _klass9538_)))) + (declare (not safe)) + (assgetq 'final: __tmp10129))))) + (declare (not safe)) + (find __tmp10128 _super9518_)))) + (if _$e9540_ + ((lambda (_klass9543_) + (error '"Cannot extend final class" _klass9543_)) + _$e9540_) '#!void)))) - (let* ((_std-super9268_ (_find-super-struct9251_ _super9241_)) - (_mixin9270_ - (if _std-super9268_ - (_expand-struct-mixin9252_ _super9241_) - _super9241_))) - (let ((_g9822_ (_make-slots9248_ - (if _std-super9268_ - (type-descriptor-fields _std-super9268_) - '0)))) + (let* ((_std-super9545_ + (let () + (declare (not safe)) + (_find-super-struct9528_ _super9518_))) + (_mixin9547_ + (if _std-super9545_ + (let () + (declare (not safe)) + (_expand-struct-mixin9529_ _super9518_)) + _super9518_))) + (let ((_g10130_ + (let ((__tmp10132 + (if _std-super9545_ + (let () + (declare (not safe)) + (type-descriptor-fields _std-super9545_)) + '0))) + (declare (not safe)) + (_make-slots9525_ __tmp10132)))) (begin - (let ((_g9823_ (let () - (declare (not safe)) - (if (##values? _g9822_) - (##vector-length _g9822_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g9823_ 3))) - (error "Context expects 3 values" _g9823_))) - (let ((_std-fields9273_ - (let () (declare (not safe)) (##vector-ref _g9822_ 0))) - (_std-slots9274_ - (let () (declare (not safe)) (##vector-ref _g9822_ 1))) - (_std-slot-list9275_ - (let () (declare (not safe)) (##vector-ref _g9822_ 2)))) - (let* ((_std-mixin9277_ (class-linearize-mixins _mixin9270_)) - (_std-plist9281_ - (if _std-super9268_ - (let ((_fields9279_ - (assgetq 'fields: - (type-descriptor-plist - _std-super9268_)))) - (cons (cons 'fields: _fields9279_) - _plist9244_)) - _plist9244_)) - (_std-plist9283_ - (cons (cons 'slots: _std-slot-list9275_) - _std-plist9281_)) - (_std-ctor9288_ - (let ((_$e9285_ _ctor9245_)) - (if _$e9285_ - _$e9285_ - (_find-super-ctor9250_ _super9241_))))) - (make-class-type-descriptor - _id9240_ - _name9243_ - _std-super9268_ - _std-mixin9277_ - _std-fields9273_ - _std-plist9283_ - _std-ctor9288_ - _std-slots9274_))))))))) + (let ((_g10131_ + (let () + (declare (not safe)) + (if (##values? _g10130_) + (##vector-length _g10130_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g10131_ 3))) + (error "Context expects 3 values" _g10131_))) + (let ((_std-fields9550_ + (let () (declare (not safe)) (##vector-ref _g10130_ 0))) + (_std-slots9551_ + (let () (declare (not safe)) (##vector-ref _g10130_ 1))) + (_std-slot-list9552_ + (let () + (declare (not safe)) + (##vector-ref _g10130_ 2)))) + (let* ((_std-mixin9554_ + (let () + (declare (not safe)) + (class-linearize-mixins _mixin9547_))) + (_std-plist9558_ + (if _std-super9545_ + (let* ((_fields9556_ + (let ((__tmp10133 + (let () + (declare (not safe)) + (type-descriptor-plist + _std-super9545_)))) + (declare (not safe)) + (assgetq 'fields: __tmp10133))) + (__tmp10134 + (let () + (declare (not safe)) + (cons 'fields: _fields9556_)))) + (declare (not safe)) + (cons __tmp10134 _plist9521_)) + _plist9521_)) + (_std-plist9560_ + (let ((__tmp10135 + (let () + (declare (not safe)) + (cons 'slots: _std-slot-list9552_)))) + (declare (not safe)) + (cons __tmp10135 _std-plist9558_))) + (_std-ctor9565_ + (let ((_$e9562_ _ctor9522_)) + (if _$e9562_ + _$e9562_ + (let () + (declare (not safe)) + (_find-super-ctor9527_ _super9518_)))))) + (let () + (declare (not safe)) + (make-class-type-descriptor + _id9517_ + _name9520_ + _std-super9545_ + _std-mixin9554_ + _std-fields9550_ + _std-plist9560_ + _std-ctor9565_ + _std-slots9551_)))))))))) (define class-linearize-mixins - (lambda (_klass-lst9191_) - (letrec ((_class->list9193_ - (lambda (_klass9235_) - (cons _klass9235_ - (let ((_$e9237_ (type-descriptor-mixin _klass9235_))) - (if _$e9237_ _$e9237_ '())))))) - (let* ((_klass-lst91949204_ _klass-lst9191_) - (_else91979212_ + (lambda (_klass-lst9468_) + (letrec ((_class->list9470_ + (lambda (_klass9512_) + (let ((__tmp10136 + (let ((_$e9514_ + (let () + (declare (not safe)) + (type-descriptor-mixin _klass9512_)))) + (if _$e9514_ _$e9514_ '())))) + (declare (not safe)) + (cons _klass9512_ __tmp10136))))) + (let* ((_klass-lst94719481_ _klass-lst9468_) + (_else94749489_ (lambda () - (__linearize-mixins - (map _class->list9193_ _klass-lst9191_))))) - (let ((_K92029232_ (lambda () '())) - (_K91999218_ - (lambda (_klass9216_) (_class->list9193_ _klass9216_)))) - (let ((_try-match91969228_ + (let ((__tmp10137 + (let () + (declare (not safe)) + (map _class->list9470_ _klass-lst9468_)))) + (declare (not safe)) + (__linearize-mixins __tmp10137))))) + (let ((_K94799509_ (lambda () '())) + (_K94769495_ + (lambda (_klass9493_) + (let () + (declare (not safe)) + (_class->list9470_ _klass9493_))))) + (let ((_try-match94739505_ (lambda () (if (let () (declare (not safe)) - (##pair? _klass-lst91949204_)) - (let ((_tl92019223_ + (##pair? _klass-lst94719481_)) + (let ((_tl94789500_ (let () (declare (not safe)) - (##cdr _klass-lst91949204_))) - (_hd92009221_ + (##cdr _klass-lst94719481_))) + (_hd94779498_ (let () (declare (not safe)) - (##car _klass-lst91949204_)))) + (##car _klass-lst94719481_)))) (if (let () (declare (not safe)) - (##null? _tl92019223_)) - (let ((_klass9226_ _hd92009221_)) - (_class->list9193_ _klass9226_)) - (_else91979212_))) - (_else91979212_))))) - (if (let () (declare (not safe)) (##null? _klass-lst91949204_)) - (_K92029232_) - (_try-match91969228_)))))))) + (##null? _tl94789500_)) + (let ((_klass9503_ _hd94779498_)) + (declare (not safe)) + (_class->list9470_ _klass9503_)) + (let () + (declare (not safe)) + (_else94749489_)))) + (let () (declare (not safe)) (_else94749489_)))))) + (if (let () (declare (not safe)) (##null? _klass-lst94719481_)) + (let () (declare (not safe)) (_K94799509_)) + (let () (declare (not safe)) (_try-match94739505_))))))))) (define __linearize-mixins - (lambda (_lst9032_) - (letrec ((_K9034_ (lambda (_rest9155_ _r9156_) - (let* ((_rest91579165_ _rest9155_) - (_else91599173_ - (lambda () (reverse _r9156_))) - (_K91619179_ - (lambda (_rest9176_ _hd9177_) - (_linearize19035_ - _hd9177_ - _rest9176_ - _r9156_)))) + (lambda (_lst9309_) + (letrec ((_K9311_ (lambda (_rest9432_ _r9433_) + (let* ((_rest94349442_ _rest9432_) + (_else94369450_ + (lambda () + (let () + (declare (not safe)) + (reverse _r9433_)))) + (_K94389456_ + (lambda (_rest9453_ _hd9454_) + (let () + (declare (not safe)) + (_linearize19312_ + _hd9454_ + _rest9453_ + _r9433_))))) (if (let () (declare (not safe)) - (##pair? _rest91579165_)) - (let ((_hd91629182_ + (##pair? _rest94349442_)) + (let ((_hd94399459_ (let () (declare (not safe)) - (##car _rest91579165_))) - (_tl91639184_ + (##car _rest94349442_))) + (_tl94409461_ (let () (declare (not safe)) - (##cdr _rest91579165_)))) - (let* ((_hd9187_ _hd91629182_) - (_rest9189_ _tl91639184_)) - (_K91619179_ _rest9189_ _hd9187_))) - (_else91599173_))))) - (_linearize19035_ - (lambda (_hd9118_ _rest9119_ _r9120_) - (let* ((_hd91219129_ _hd9118_) - (_else91239137_ - (lambda () (_K9034_ _rest9119_ _r9120_))) - (_K91259143_ - (lambda (_hd-rest9140_ _hd-first9141_) - (if (_findq9038_ _hd-first9141_ _rest9119_) - (_linearize29036_ - _rest9119_ - (list _hd9118_) - _r9120_) - (_K9034_ (cons _hd-rest9140_ _rest9119_) - (_putq9037_ - _hd-first9141_ - _r9120_)))))) - (if (let () (declare (not safe)) (##pair? _hd91219129_)) - (let ((_hd91269146_ + (##cdr _rest94349442_)))) + (let* ((_hd9464_ _hd94399459_) + (_rest9466_ _tl94409461_)) + (declare (not safe)) + (_K94389456_ _rest9466_ _hd9464_))) + (let () + (declare (not safe)) + (_else94369450_)))))) + (_linearize19312_ + (lambda (_hd9395_ _rest9396_ _r9397_) + (let* ((_hd93989406_ _hd9395_) + (_else94009414_ + (lambda () + (let () + (declare (not safe)) + (_K9311_ _rest9396_ _r9397_)))) + (_K94029420_ + (lambda (_hd-rest9417_ _hd-first9418_) + (if (let () + (declare (not safe)) + (_findq9315_ _hd-first9418_ _rest9396_)) + (let ((__tmp10140 (list _hd9395_))) + (declare (not safe)) + (_linearize29313_ + _rest9396_ + __tmp10140 + _r9397_)) + (let ((__tmp10139 + (let () + (declare (not safe)) + (cons _hd-rest9417_ _rest9396_))) + (__tmp10138 + (let () + (declare (not safe)) + (_putq9314_ + _hd-first9418_ + _r9397_)))) + (declare (not safe)) + (_K9311_ __tmp10139 __tmp10138)))))) + (if (let () (declare (not safe)) (##pair? _hd93989406_)) + (let ((_hd94039423_ (let () (declare (not safe)) - (##car _hd91219129_))) - (_tl91279148_ + (##car _hd93989406_))) + (_tl94049425_ (let () (declare (not safe)) - (##cdr _hd91219129_)))) - (let* ((_hd-first9151_ _hd91269146_) - (_hd-rest9153_ _tl91279148_)) - (_K91259143_ _hd-rest9153_ _hd-first9151_))) - (_else91239137_))))) - (_linearize29036_ - (lambda (_rest9048_ _pre9049_ _r9050_) - (let _lp9052_ ((_rest9054_ _rest9048_) - (_pre9055_ _pre9049_)) - (let* ((_rest90569063_ _rest9054_) - (_E90589067_ + (##cdr _hd93989406_)))) + (let* ((_hd-first9428_ _hd94039423_) + (_hd-rest9430_ _tl94049425_)) + (declare (not safe)) + (_K94029420_ _hd-rest9430_ _hd-first9428_))) + (let () (declare (not safe)) (_else94009414_)))))) + (_linearize29313_ + (lambda (_rest9325_ _pre9326_ _r9327_) + (let _lp9329_ ((_rest9331_ _rest9325_) + (_pre9332_ _pre9326_)) + (let* ((_rest93339340_ _rest9331_) + (_E93359344_ (lambda () - (error '"No clause matching" _rest90569063_))) - (_K90599106_ - (lambda (_rest9070_ _hd9071_) - (let* ((_hd90729080_ _hd9071_) - (_else90749088_ + (error '"No clause matching" _rest93339340_))) + (_K93369383_ + (lambda (_rest9347_ _hd9348_) + (let* ((_hd93499357_ _hd9348_) + (_else93519365_ (lambda () - (_lp9052_ _rest9070_ _pre9055_))) - (_K90769094_ - (lambda (_hd-rest9091_ _hd-first9092_) - (if (_findq9038_ - _hd-first9092_ - _rest9070_) - (_lp9052_ - _rest9070_ - (cons _hd9071_ _pre9055_)) - (_K9034_ (foldl1 cons - (cons _hd-rest9091_ + (let () + (declare (not safe)) + (_lp9329_ _rest9347_ _pre9332_)))) + (_K93539371_ + (lambda (_hd-rest9368_ _hd-first9369_) + (if (let () + (declare (not safe)) + (_findq9315_ + _hd-first9369_ + _rest9347_)) + (let ((__tmp10144 + (let () + (declare (not safe)) + (cons _hd9348_ + _pre9332_)))) + (declare (not safe)) + (_lp9329_ + _rest9347_ + __tmp10144)) + (let ((__tmp10142 + (let ((__tmp10143 + (let () + (declare + (not safe)) + (cons _hd-rest9368_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest9070_) - _pre9055_) - (_putq9037_ _hd-first9092_ _r9050_)))))) + _rest9347_)))) + (declare (not safe)) + (foldl1 cons __tmp10143 _pre9332_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp10141 + (let () + (declare (not safe)) + (_putq9314_ + _hd-first9369_ + _r9327_)))) + (declare (not safe)) + (_K9311_ __tmp10142 + __tmp10141)))))) (if (let () (declare (not safe)) - (##pair? _hd90729080_)) - (let ((_hd90779097_ + (##pair? _hd93499357_)) + (let ((_hd93549374_ (let () (declare (not safe)) - (##car _hd90729080_))) - (_tl90789099_ + (##car _hd93499357_))) + (_tl93559376_ (let () (declare (not safe)) - (##cdr _hd90729080_)))) - (let* ((_hd-first9102_ _hd90779097_) - (_hd-rest9104_ _tl90789099_)) - (_K90769094_ - _hd-rest9104_ - _hd-first9102_))) - (_else90749088_)))))) + (##cdr _hd93499357_)))) + (let* ((_hd-first9379_ _hd93549374_) + (_hd-rest9381_ _tl93559376_)) + (declare (not safe)) + (_K93539371_ + _hd-rest9381_ + _hd-first9379_))) + (let () + (declare (not safe)) + (_else93519365_))))))) (if (let () (declare (not safe)) - (##pair? _rest90569063_)) - (let ((_hd90609109_ + (##pair? _rest93339340_)) + (let ((_hd93379386_ (let () (declare (not safe)) - (##car _rest90569063_))) - (_tl90619111_ + (##car _rest93339340_))) + (_tl93389388_ (let () (declare (not safe)) - (##cdr _rest90569063_)))) - (let* ((_hd9114_ _hd90609109_) - (_rest9116_ _tl90619111_)) - (_K90599106_ _rest9116_ _hd9114_))) - (_E90589067_)))))) - (_putq9037_ - (lambda (_hd9045_ _lst9046_) - (if (memq _hd9045_ _lst9046_) - _lst9046_ - (cons _hd9045_ _lst9046_)))) - (_findq9038_ - (lambda (_hd9040_ _rest9041_) - (find (lambda (_lst9043_) (memq _hd9040_ _lst9043_)) - _rest9041_)))) - (_K9034_ _lst9032_ '())))) + (##cdr _rest93339340_)))) + (let* ((_hd9391_ _hd93379386_) + (_rest9393_ _tl93389388_)) + (declare (not safe)) + (_K93369383_ _rest9393_ _hd9391_))) + (let () (declare (not safe)) (_E93359344_))))))) + (_putq9314_ + (lambda (_hd9322_ _lst9323_) + (if (let () (declare (not safe)) (memq _hd9322_ _lst9323_)) + _lst9323_ + (let () + (declare (not safe)) + (cons _hd9322_ _lst9323_))))) + (_findq9315_ + (lambda (_hd9317_ _rest9318_) + (let ((__tmp10145 + (lambda (_lst9320_) + (let () + (declare (not safe)) + (memq _hd9317_ _lst9320_))))) + (declare (not safe)) + (find __tmp10145 _rest9318_))))) + (let () (declare (not safe)) (_K9311_ _lst9309_ '()))))) (define make-class-predicate - (lambda (_klass9026_) - (if (assgetq 'final: (type-descriptor-plist _klass9026_)) - (lambda (_obj9028_) - (let ((__tmp9824 - (let () (declare (not safe)) (##type-id _klass9026_)))) + (lambda (_klass9303_) + (if (let ((__tmp10147 + (let () + (declare (not safe)) + (type-descriptor-plist _klass9303_)))) + (declare (not safe)) + (assgetq 'final: __tmp10147)) + (lambda (_obj9305_) + (let ((__tmp10146 + (let () (declare (not safe)) (##type-id _klass9303_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj9028_ __tmp9824))) - (lambda (_obj9030_) (class-instance? _klass9026_ _obj9030_))))) + (##structure-direct-instance-of? _obj9305_ __tmp10146))) + (lambda (_obj9307_) + (let () + (declare (not safe)) + (class-instance? _klass9303_ _obj9307_)))))) (define make-class-slot-accessor - (lambda (_klass9021_ _slot9022_) - (lambda (_obj9024_) (slot-ref _obj9024_ _slot9022_)))) + (lambda (_klass9298_ _slot9299_) + (lambda (_obj9301_) + (let () (declare (not safe)) (slot-ref _obj9301_ _slot9299_))))) (define make-class-slot-mutator - (lambda (_klass9015_ _slot9016_) - (lambda (_obj9018_ _val9019_) - (slot-set! _obj9018_ _slot9016_ _val9019_)))) + (lambda (_klass9292_ _slot9293_) + (lambda (_obj9295_ _val9296_) + (let () + (declare (not safe)) + (slot-set! _obj9295_ _slot9293_ _val9296_))))) (define make-class-slot-unchecked-accessor - (lambda (_klass9010_ _slot9011_) - (lambda (_obj9013_) (unchecked-slot-ref _obj9013_ _slot9011_)))) + (lambda (_klass9287_ _slot9288_) + (lambda (_obj9290_) + (let () + (declare (not safe)) + (unchecked-slot-ref _obj9290_ _slot9288_))))) (define make-class-slot-unchecked-mutator - (lambda (_klass9004_ _slot9005_) - (lambda (_obj9007_ _val9008_) - (unchecked-slot-set! _obj9007_ _slot9005_ _val9008_)))) + (lambda (_klass9281_ _slot9282_) + (lambda (_obj9284_ _val9285_) + (let () + (declare (not safe)) + (unchecked-slot-set! _obj9284_ _slot9282_ _val9285_))))) (define class-slot-offset - (lambda (_klass8996_ _slot8997_) - (let ((_$e8999_ (type-descriptor-slots _klass8996_))) - (if _$e8999_ - ((lambda (_slots9002_) (table-ref _slots9002_ _slot8997_ '#f)) - _$e8999_) + (lambda (_klass9273_ _slot9274_) + (let ((_$e9276_ + (let () + (declare (not safe)) + (type-descriptor-slots _klass9273_)))) + (if _$e9276_ + ((lambda (_slots9279_) + (let () + (declare (not safe)) + (table-ref _slots9279_ _slot9274_ '#f))) + _$e9276_) '#f)))) (define class-slot-ref - (lambda (_klass8990_ _obj8991_ _slot8992_) - (if (class-instance? _klass8990_ _obj8991_) - (let* ((_off8994_ - (class-slot-offset (object-type _obj8991_) _slot8992_)) - (__tmp9825 - (let () (declare (not safe)) (##fx+ _off8994_ '1)))) + (lambda (_klass9267_ _obj9268_ _slot9269_) + (if (let () (declare (not safe)) - (##unchecked-structure-ref _obj8991_ __tmp9825 _klass8990_ '#f)) - (error '"not an instance" _klass8990_ _obj8991_)))) + (class-instance? _klass9267_ _obj9268_)) + (let* ((_off9271_ + (let ((__tmp10148 + (let () + (declare (not safe)) + (object-type _obj9268_)))) + (declare (not safe)) + (class-slot-offset __tmp10148 _slot9269_))) + (__tmp10149 + (let () (declare (not safe)) (##fx+ _off9271_ '1)))) + (declare (not safe)) + (##unchecked-structure-ref _obj9268_ __tmp10149 _klass9267_ '#f)) + (error '"not an instance" _klass9267_ _obj9268_)))) (define class-slot-set! - (lambda (_klass8983_ _obj8984_ _slot8985_ _val8986_) - (if (class-instance? _klass8983_ _obj8984_) - (let* ((_off8988_ - (class-slot-offset (object-type _obj8984_) _slot8985_)) - (__tmp9826 - (let () (declare (not safe)) (##fx+ _off8988_ '1)))) + (lambda (_klass9260_ _obj9261_ _slot9262_ _val9263_) + (if (let () + (declare (not safe)) + (class-instance? _klass9260_ _obj9261_)) + (let* ((_off9265_ + (let ((__tmp10150 + (let () + (declare (not safe)) + (object-type _obj9261_)))) + (declare (not safe)) + (class-slot-offset __tmp10150 _slot9262_))) + (__tmp10151 + (let () (declare (not safe)) (##fx+ _off9265_ '1)))) (declare (not safe)) (##unchecked-structure-set! - _obj8984_ - _val8986_ - __tmp9826 - _klass8983_ + _obj9261_ + _val9263_ + __tmp10151 + _klass9260_ '#f)) - (error '"not an instance" _klass8983_ _obj8984_)))) + (error '"not an instance" _klass9260_ _obj9261_)))) (define class-subtype? - (lambda (_klass8968_ _xklass8969_) - (let* ((_klass-t8971_ - (let () (declare (not safe)) (##type-id _klass8968_))) - (_$e8973_ - (eq? _klass-t8971_ - (let () (declare (not safe)) (##type-id _xklass8969_))))) - (if _$e8973_ - _$e8973_ - (let ((_$e8976_ (type-descriptor-mixin _xklass8969_))) - (if _$e8976_ - ((lambda (_mixin8979_) - (if (find (lambda (_xklass8981_) - (eq? _klass-t8971_ - (let () - (declare (not safe)) - (##type-id _xklass8981_)))) - _mixin8979_) + (lambda (_klass9245_ _xklass9246_) + (let* ((_klass-t9248_ + (let () (declare (not safe)) (##type-id _klass9245_))) + (_$e9250_ + (let ((__tmp10152 + (let () (declare (not safe)) (##type-id _xklass9246_)))) + (declare (not safe)) + (eq? _klass-t9248_ __tmp10152)))) + (if _$e9250_ + _$e9250_ + (let ((_$e9253_ + (let () + (declare (not safe)) + (type-descriptor-mixin _xklass9246_)))) + (if _$e9253_ + ((lambda (_mixin9256_) + (if (let ((__tmp10153 + (lambda (_xklass9258_) + (let ((__tmp10154 + (let () + (declare (not safe)) + (##type-id _xklass9258_)))) + (declare (not safe)) + (eq? _klass-t9248_ __tmp10154))))) + (declare (not safe)) + (find __tmp10153 _mixin9256_)) '#t '#f)) - _$e8976_) + _$e9253_) '#f)))))) (define object? ##structure?) (define object-type ##structure-type) (define direct-instance? - (lambda (_klass8965_ _obj8966_) - (let ((__tmp9827 - (let () (declare (not safe)) (##type-id _klass8965_)))) + (lambda (_klass9242_ _obj9243_) + (let ((__tmp10155 + (let () (declare (not safe)) (##type-id _klass9242_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj8966_ __tmp9827)))) + (##structure-direct-instance-of? _obj9243_ __tmp10155)))) (define struct-instance? - (lambda (_klass8962_ _obj8963_) - (let ((__tmp9828 - (let () (declare (not safe)) (##type-id _klass8962_)))) + (lambda (_klass9239_ _obj9240_) + (let ((__tmp10156 + (let () (declare (not safe)) (##type-id _klass9239_)))) (declare (not safe)) - (##structure-instance-of? _obj8963_ __tmp9828)))) + (##structure-instance-of? _obj9240_ __tmp10156)))) (define direct-struct-instance? direct-instance?) (define class-instance? - (lambda (_klass8946_ _obj8947_) - (if (object? _obj8947_) - (let ((_klass-id8949_ - (let () (declare (not safe)) (##type-id _klass8946_))) - (_type8950_ (object-type _obj8947_))) - (if (type-descriptor? _type8950_) - (let ((_$e8952_ - (eq? (let () - (declare (not safe)) - (##type-id _type8950_)) - _klass-id8949_))) - (if _$e8952_ - _$e8952_ - (let ((_$e8955_ (type-descriptor-mixin _type8950_))) - (if _$e8955_ - ((lambda (_mixin8958_) - (ormap1 (lambda (_type8960_) - (eq? (let () - (declare (not safe)) - (##type-id _type8960_)) - _klass-id8949_)) - _mixin8958_)) - _$e8955_) + (lambda (_klass9223_ _obj9224_) + (if (let () (declare (not safe)) (object? _obj9224_)) + (let ((_klass-id9226_ + (let () (declare (not safe)) (##type-id _klass9223_))) + (_type9227_ + (let () (declare (not safe)) (object-type _obj9224_)))) + (if (let () (declare (not safe)) (type-descriptor? _type9227_)) + (let ((_$e9229_ + (let ((__tmp10157 + (let () + (declare (not safe)) + (##type-id _type9227_)))) + (declare (not safe)) + (eq? __tmp10157 _klass-id9226_)))) + (if _$e9229_ + _$e9229_ + (let ((_$e9232_ + (let () + (declare (not safe)) + (type-descriptor-mixin _type9227_)))) + (if _$e9232_ + ((lambda (_mixin9235_) + (let ((__tmp10158 + (lambda (_type9237_) + (let ((__tmp10159 + (let () + (declare (not safe)) + (##type-id _type9237_)))) + (declare (not safe)) + (eq? __tmp10159 _klass-id9226_))))) + (declare (not safe)) + (ormap1 __tmp10158 _mixin9235_))) + _$e9232_) '#f)))) '#f)) '#f))) (define direct-class-instance? direct-instance?) (define make-object - (lambda (_klass8941_ _k8942_) - (let ((_obj8944_ - (let ((__tmp9829 - (let () (declare (not safe)) (##fx+ _k8942_ '1)))) + (lambda (_klass9218_ _k9219_) + (let ((_obj9221_ + (let ((__tmp10160 + (let () (declare (not safe)) (##fx+ _k9219_ '1)))) (declare (not safe)) - (##make-vector __tmp9829 '#f)))) + (##make-vector __tmp10160 '#f)))) (let () (declare (not safe)) - (##vector-set! _obj8944_ '0 _klass8941_)) - (let ((__tmp9830 (macro-subtype-structure))) + (##vector-set! _obj9221_ '0 _klass9218_)) + (let ((__tmp10161 (macro-subtype-structure))) (declare (not safe)) - (##subtype-set! _obj8944_ __tmp9830)) - _obj8944_))) + (##subtype-set! _obj9221_ __tmp10161)) + _obj9221_))) (define make-struct-instance - (lambda (_klass8931_ . _args8932_) - (let* ((_fields8934_ (type-descriptor-fields _klass8931_)) - (_$e8936_ (type-descriptor-ctor _klass8931_))) - (if _$e8936_ - ((lambda (_kons-id8939_) - (__constructor-init! - _klass8931_ - _kons-id8939_ - (make-object _klass8931_ _fields8934_) - _args8932_)) - _$e8936_) - (if (let ((__tmp9831 (length _args8932_))) + (lambda (_klass9208_ . _args9209_) + (let* ((_fields9211_ + (let () + (declare (not safe)) + (type-descriptor-fields _klass9208_))) + (_$e9213_ + (let () + (declare (not safe)) + (type-descriptor-ctor _klass9208_)))) + (if _$e9213_ + ((lambda (_kons-id9216_) + (let ((__tmp10163 + (let () + (declare (not safe)) + (make-object _klass9208_ _fields9211_)))) + (declare (not safe)) + (__constructor-init! + _klass9208_ + _kons-id9216_ + __tmp10163 + _args9209_))) + _$e9213_) + (if (let ((__tmp10162 (length _args9209_))) (declare (not safe)) - (##fx= _fields8934_ __tmp9831)) - (apply ##structure _klass8931_ _args8932_) + (##fx= _fields9211_ __tmp10162)) + (apply ##structure _klass9208_ _args9209_) (error '"Arguments don't match object size" - _klass8931_ - _fields8934_ - _args8932_)))))) + _klass9208_ + _fields9211_ + _args9209_)))))) (define make-class-instance - (lambda (_klass8921_ . _args8922_) - (let* ((_obj8924_ - (make-object _klass8921_ (type-descriptor-fields _klass8921_))) - (_$e8926_ (type-descriptor-ctor _klass8921_))) - (if _$e8926_ - ((lambda (_kons-id8929_) - (__constructor-init! - _klass8921_ - _kons-id8929_ - _obj8924_ - _args8922_)) - _$e8926_) - (__class-instance-init! _klass8921_ _obj8924_ _args8922_))))) + (lambda (_klass9198_ . _args9199_) + (let* ((_obj9201_ + (let ((__tmp10164 + (let () + (declare (not safe)) + (type-descriptor-fields _klass9198_)))) + (declare (not safe)) + (make-object _klass9198_ __tmp10164))) + (_$e9203_ + (let () + (declare (not safe)) + (type-descriptor-ctor _klass9198_)))) + (if _$e9203_ + ((lambda (_kons-id9206_) + (let () + (declare (not safe)) + (__constructor-init! + _klass9198_ + _kons-id9206_ + _obj9201_ + _args9199_))) + _$e9203_) + (let () + (declare (not safe)) + (__class-instance-init! _klass9198_ _obj9201_ _args9199_)))))) (define struct-instance-init! - (lambda (_obj8918_ . _args8919_) - (if (let ((__tmp9833 (length _args8919_)) - (__tmp9832 + (lambda (_obj9195_ . _args9196_) + (if (let ((__tmp10166 (length _args9196_)) + (__tmp10165 (let () (declare (not safe)) - (##structure-length _obj8918_)))) + (##structure-length _obj9195_)))) (declare (not safe)) - (##fx< __tmp9833 __tmp9832)) - (__struct-instance-init! _obj8918_ _args8919_) - (error '"Too many arguments for struct" _obj8918_ _args8919_)))) + (##fx< __tmp10166 __tmp10165)) + (let () + (declare (not safe)) + (__struct-instance-init! _obj9195_ _args9196_)) + (error '"Too many arguments for struct" _obj9195_ _args9196_)))) (define __struct-instance-init! - (lambda (_obj8877_ _args8878_) - (let _lp8880_ ((_k8882_ '1) (_rest8883_ _args8878_)) - (let* ((_rest88848892_ _rest8883_) - (_else88868900_ (lambda () _obj8877_)) - (_K88888906_ - (lambda (_rest8903_ _hd8904_) + (lambda (_obj9154_ _args9155_) + (let _lp9157_ ((_k9159_ '1) (_rest9160_ _args9155_)) + (let* ((_rest91619169_ _rest9160_) + (_else91639177_ (lambda () _obj9154_)) + (_K91659183_ + (lambda (_rest9180_ _hd9181_) (let () (declare (not safe)) - (##vector-set! _obj8877_ _k8882_ _hd8904_)) - (_lp8880_ - (let () (declare (not safe)) (##fx+ _k8882_ '1)) - _rest8903_)))) - (if (let () (declare (not safe)) (##pair? _rest88848892_)) - (let ((_hd88898909_ - (let () (declare (not safe)) (##car _rest88848892_))) - (_tl88908911_ - (let () (declare (not safe)) (##cdr _rest88848892_)))) - (let* ((_hd8914_ _hd88898909_) (_rest8916_ _tl88908911_)) - (_K88888906_ _rest8916_ _hd8914_))) - (_else88868900_)))))) + (##vector-set! _obj9154_ _k9159_ _hd9181_)) + (let ((__tmp10167 + (let () (declare (not safe)) (##fx+ _k9159_ '1)))) + (declare (not safe)) + (_lp9157_ __tmp10167 _rest9180_))))) + (if (let () (declare (not safe)) (##pair? _rest91619169_)) + (let ((_hd91669186_ + (let () (declare (not safe)) (##car _rest91619169_))) + (_tl91679188_ + (let () (declare (not safe)) (##cdr _rest91619169_)))) + (let* ((_hd9191_ _hd91669186_) (_rest9193_ _tl91679188_)) + (declare (not safe)) + (_K91659183_ _rest9193_ _hd9191_))) + (let () (declare (not safe)) (_else91639177_))))))) (define class-instance-init! - (lambda (_obj8874_ . _args8875_) - (__class-instance-init! (object-type _obj8874_) _obj8874_ _args8875_))) + (lambda (_obj9151_ . _args9152_) + (let ((__tmp10168 + (let () (declare (not safe)) (object-type _obj9151_)))) + (declare (not safe)) + (__class-instance-init! __tmp10168 _obj9151_ _args9152_)))) (define __class-instance-init! - (lambda (_klass8818_ _obj8819_ _args8820_) - (let _lp8822_ ((_rest8824_ _args8820_)) - (let* ((_rest88258835_ _rest8824_) - (_else88278843_ + (lambda (_klass9095_ _obj9096_ _args9097_) + (let _lp9099_ ((_rest9101_ _args9097_)) + (let* ((_rest91029112_ _rest9101_) + (_else91049120_ (lambda () - (if (null? _rest8824_) - _obj8819_ + (if (let () (declare (not safe)) (null? _rest9101_)) + _obj9096_ (error '"Unexpected class initializer arguments" - _rest8824_)))) - (_K88298855_ - (lambda (_rest8846_ _val8847_ _key8848_) - (let ((_$e8850_ (class-slot-offset _klass8818_ _key8848_))) - (if _$e8850_ - ((lambda (_off8853_) - (let ((__tmp9834 + _rest9101_)))) + (_K91069132_ + (lambda (_rest9123_ _val9124_ _key9125_) + (let ((_$e9127_ + (let () + (declare (not safe)) + (class-slot-offset _klass9095_ _key9125_)))) + (if _$e9127_ + ((lambda (_off9130_) + (let ((__tmp10169 (let () (declare (not safe)) - (##fx+ _off8853_ '1)))) + (##fx+ _off9130_ '1)))) (declare (not safe)) - (##vector-set! _obj8819_ __tmp9834 _val8847_)) - (_lp8822_ _rest8846_)) - _$e8850_) + (##vector-set! _obj9096_ __tmp10169 _val9124_)) + (let () + (declare (not safe)) + (_lp9099_ _rest9123_))) + _$e9127_) (error '"No slot for keyword initializer" - _klass8818_ - _key8848_)))))) - (if (let () (declare (not safe)) (##pair? _rest88258835_)) - (let ((_hd88308858_ - (let () (declare (not safe)) (##car _rest88258835_))) - (_tl88318860_ - (let () (declare (not safe)) (##cdr _rest88258835_)))) - (let ((_key8863_ _hd88308858_)) - (if (let () (declare (not safe)) (##pair? _tl88318860_)) - (let ((_hd88328865_ + _klass9095_ + _key9125_)))))) + (if (let () (declare (not safe)) (##pair? _rest91029112_)) + (let ((_hd91079135_ + (let () (declare (not safe)) (##car _rest91029112_))) + (_tl91089137_ + (let () (declare (not safe)) (##cdr _rest91029112_)))) + (let ((_key9140_ _hd91079135_)) + (if (let () (declare (not safe)) (##pair? _tl91089137_)) + (let ((_hd91099142_ (let () (declare (not safe)) - (##car _tl88318860_))) - (_tl88338867_ + (##car _tl91089137_))) + (_tl91109144_ (let () (declare (not safe)) - (##cdr _tl88318860_)))) - (let* ((_val8870_ _hd88328865_) - (_rest8872_ _tl88338867_)) - (_K88298855_ _rest8872_ _val8870_ _key8863_))) - (_else88278843_)))) - (_else88278843_)))))) + (##cdr _tl91089137_)))) + (let* ((_val9147_ _hd91099142_) + (_rest9149_ _tl91109144_)) + (declare (not safe)) + (_K91069132_ _rest9149_ _val9147_ _key9140_))) + (let () (declare (not safe)) (_else91049120_))))) + (let () (declare (not safe)) (_else91049120_))))))) (define constructor-init! - (lambda (_klass8813_ _kons-id8814_ _obj8815_ . _args8816_) - (__constructor-init! _klass8813_ _kons-id8814_ _obj8815_ _args8816_))) + (lambda (_klass9090_ _kons-id9091_ _obj9092_ . _args9093_) + (let () + (declare (not safe)) + (__constructor-init! + _klass9090_ + _kons-id9091_ + _obj9092_ + _args9093_)))) (define __constructor-init! - (lambda (_klass8803_ _kons-id8804_ _obj8805_ _args8806_) - (let ((_$e8808_ (__find-method _klass8803_ _kons-id8804_))) - (if _$e8808_ - ((lambda (_kons8811_) - (apply _kons8811_ _obj8805_ _args8806_) - _obj8805_) - _$e8808_) - (error '"Missing constructor" _klass8803_ _kons-id8804_))))) + (lambda (_klass9080_ _kons-id9081_ _obj9082_ _args9083_) + (let ((_$e9085_ + (let () + (declare (not safe)) + (__find-method _klass9080_ _kons-id9081_)))) + (if _$e9085_ + ((lambda (_kons9088_) + (apply _kons9088_ _obj9082_ _args9083_) + _obj9082_) + _$e9085_) + (error '"Missing constructor" _klass9080_ _kons-id9081_))))) (define struct-copy - (lambda (_struct8801_) - (if (let () (declare (not safe)) (##structure? _struct8801_)) + (lambda (_struct9078_) + (if (let () (declare (not safe)) (##structure? _struct9078_)) '#!void - (error '"Not a structure" 'struct-copy _struct8801_)) - (let () (declare (not safe)) (##structure-copy _struct8801_)))) + (error '"Not a structure" 'struct-copy _struct9078_)) + (let () (declare (not safe)) (##structure-copy _struct9078_)))) (define struct->list - (lambda (_obj8799_) - (if (object? _obj8799_) - (let () (declare (not safe)) (##vector->list _obj8799_)) - (error '"Not an object" _obj8799_)))) + (lambda (_obj9076_) + (if (let () (declare (not safe)) (object? _obj9076_)) + (let () (declare (not safe)) (##vector->list _obj9076_)) + (error '"Not an object" _obj9076_)))) (define class->list - (lambda (_obj8786_) - (if (object? _obj8786_) - (let ((_klass8788_ (object-type _obj8786_))) - (if (type-descriptor? _klass8788_) - (let ((_$e8790_ (type-descriptor-slots _klass8788_))) - (if _$e8790_ - ((lambda (_slots8793_) - (cons _klass8788_ - (hash-fold - (lambda (_slot8795_ _off8796_ _r8797_) - (if (keyword? _slot8795_) - (cons _slot8795_ - (cons (unchecked-field-ref - _obj8786_ - _off8796_) - _r8797_)) - _r8797_)) - '() - _slots8793_))) - _$e8790_) - (list _klass8788_))) - (error '"Not a class type" _obj8786_ _klass8788_))) - (error '"Not an object" _obj8786_)))) + (lambda (_obj9063_) + (if (let () (declare (not safe)) (object? _obj9063_)) + (let ((_klass9065_ + (let () (declare (not safe)) (object-type _obj9063_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass9065_)) + (let ((_$e9067_ + (let () + (declare (not safe)) + (type-descriptor-slots _klass9065_)))) + (if _$e9067_ + ((lambda (_slots9070_) + (let ((__tmp10170 + (let ((__tmp10171 + (lambda (_slot9072_ _off9073_ _r9074_) + (if (let () + (declare (not safe)) + (keyword? _slot9072_)) + (let ((__tmp10172 + (let ((__tmp10173 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (unchecked-field-ref _obj9063_ _off9073_)))) + (declare (not safe)) + (cons __tmp10173 _r9074_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _slot9072_ __tmp10172)) + _r9074_)))) + (declare (not safe)) + (hash-fold __tmp10171 '() _slots9070_)))) + (declare (not safe)) + (cons _klass9065_ __tmp10170))) + _$e9067_) + (list _klass9065_))) + (error '"Not a class type" _obj9063_ _klass9065_))) + (error '"Not an object" _obj9063_)))) (define unchecked-field-ref - (lambda (_obj8783_ _off8784_) - (let ((__tmp9835 (let () (declare (not safe)) (##fx+ _off8784_ '1)))) + (lambda (_obj9060_ _off9061_) + (let ((__tmp10174 (let () (declare (not safe)) (##fx+ _off9061_ '1)))) (declare (not safe)) - (##vector-ref _obj8783_ __tmp9835)))) + (##vector-ref _obj9060_ __tmp10174)))) (define unchecked-field-set! - (lambda (_obj8779_ _off8780_ _val8781_) - (let ((__tmp9836 (let () (declare (not safe)) (##fx+ _off8780_ '1)))) + (lambda (_obj9056_ _off9057_ _val9058_) + (let ((__tmp10175 (let () (declare (not safe)) (##fx+ _off9057_ '1)))) (declare (not safe)) - (##vector-set! _obj8779_ __tmp9836 _val8781_)))) + (##vector-set! _obj9056_ __tmp10175 _val9058_)))) (define unchecked-slot-ref - (lambda (_obj8776_ _slot8777_) - (unchecked-field-ref - _obj8776_ - (class-slot-offset (object-type _obj8776_) _slot8777_)))) + (lambda (_obj9053_ _slot9054_) + (let ((__tmp10176 + (let ((__tmp10177 + (let () (declare (not safe)) (object-type _obj9053_)))) + (declare (not safe)) + (class-slot-offset __tmp10177 _slot9054_)))) + (declare (not safe)) + (unchecked-field-ref _obj9053_ __tmp10176)))) (define unchecked-slot-set! - (lambda (_obj8772_ _slot8773_ _val8774_) - (unchecked-field-set! - _obj8772_ - (class-slot-offset (object-type _obj8772_) _slot8773_) - _val8774_))) + (lambda (_obj9049_ _slot9050_ _val9051_) + (let ((__tmp10178 + (let ((__tmp10179 + (let () (declare (not safe)) (object-type _obj9049_)))) + (declare (not safe)) + (class-slot-offset __tmp10179 _slot9050_)))) + (declare (not safe)) + (unchecked-field-set! _obj9049_ __tmp10178 _val9051_)))) (define slot-ref__% - (lambda (_obj8748_ _slot8749_ _E8750_) - (if (object? _obj8748_) - (let* ((_klass8752_ (object-type _obj8748_)) - (_$e8755_ - (if (type-descriptor? _klass8752_) - (class-slot-offset _klass8752_ _slot8749_) + (lambda (_obj9025_ _slot9026_ _E9027_) + (if (let () (declare (not safe)) (object? _obj9025_)) + (let* ((_klass9029_ + (let () (declare (not safe)) (object-type _obj9025_))) + (_$e9032_ + (if (let () + (declare (not safe)) + (type-descriptor? _klass9029_)) + (let () + (declare (not safe)) + (class-slot-offset _klass9029_ _slot9026_)) '#f))) - (if _$e8755_ - ((lambda (_off8758_) - (let ((__tmp9837 + (if _$e9032_ + ((lambda (_off9035_) + (let ((__tmp10180 (let () (declare (not safe)) - (##fx+ _off8758_ '1)))) + (##fx+ _off9035_ '1)))) (declare (not safe)) - (##vector-ref _obj8748_ __tmp9837))) - _$e8755_) - (_E8750_ _obj8748_ _slot8749_))) - (_E8750_ _obj8748_ _slot8749_)))) + (##vector-ref _obj9025_ __tmp10180))) + _$e9032_) + (_E9027_ _obj9025_ _slot9026_))) + (_E9027_ _obj9025_ _slot9026_)))) (define slot-ref__0 - (lambda (_obj8763_ _slot8764_) - (let ((_E8766_ __slot-error)) - (slot-ref__% _obj8763_ _slot8764_ _E8766_)))) + (lambda (_obj9040_ _slot9041_) + (let ((_E9043_ __slot-error)) + (declare (not safe)) + (slot-ref__% _obj9040_ _slot9041_ _E9043_)))) (define slot-ref - (lambda _g9839_ - (let ((_g9838_ (let () (declare (not safe)) (##length _g9839_)))) - (cond ((let () (declare (not safe)) (##fx= _g9838_ 2)) - (apply slot-ref__0 _g9839_)) - ((let () (declare (not safe)) (##fx= _g9838_ 3)) - (apply slot-ref__% _g9839_)) + (lambda _g10182_ + (let ((_g10181_ (let () (declare (not safe)) (##length _g10182_)))) + (cond ((let () (declare (not safe)) (##fx= _g10181_ 2)) + (apply (lambda (_obj9040_ _slot9041_) + (let () + (declare (not safe)) + (slot-ref__0 _obj9040_ _slot9041_))) + _g10182_)) + ((let () (declare (not safe)) (##fx= _g10181_ 3)) + (apply (lambda (_obj9045_ _slot9046_ _E9047_) + (let () + (declare (not safe)) + (slot-ref__% _obj9045_ _slot9046_ _E9047_))) + _g10182_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g9839_)))))) + _g10182_)))))) (define slot-set!__% - (lambda (_obj8720_ _slot8721_ _val8722_ _E8723_) - (if (object? _obj8720_) - (let* ((_klass8725_ (object-type _obj8720_)) - (_$e8728_ - (if (type-descriptor? _klass8725_) - (class-slot-offset _klass8725_ _slot8721_) + (lambda (_obj8997_ _slot8998_ _val8999_ _E9000_) + (if (let () (declare (not safe)) (object? _obj8997_)) + (let* ((_klass9002_ + (let () (declare (not safe)) (object-type _obj8997_))) + (_$e9005_ + (if (let () + (declare (not safe)) + (type-descriptor? _klass9002_)) + (let () + (declare (not safe)) + (class-slot-offset _klass9002_ _slot8998_)) '#f))) - (if _$e8728_ - ((lambda (_off8731_) - (let ((__tmp9840 + (if _$e9005_ + ((lambda (_off9008_) + (let ((__tmp10183 (let () (declare (not safe)) - (##fx+ _off8731_ '1)))) + (##fx+ _off9008_ '1)))) (declare (not safe)) - (##vector-set! _obj8720_ __tmp9840 _val8722_))) - _$e8728_) - (_E8723_ _obj8720_ _slot8721_))) - (_E8723_ _obj8720_ _slot8721_)))) + (##vector-set! _obj8997_ __tmp10183 _val8999_))) + _$e9005_) + (_E9000_ _obj8997_ _slot8998_))) + (_E9000_ _obj8997_ _slot8998_)))) (define slot-set!__0 - (lambda (_obj8736_ _slot8737_ _val8738_) - (let ((_E8740_ __slot-error)) - (slot-set!__% _obj8736_ _slot8737_ _val8738_ _E8740_)))) + (lambda (_obj9013_ _slot9014_ _val9015_) + (let ((_E9017_ __slot-error)) + (declare (not safe)) + (slot-set!__% _obj9013_ _slot9014_ _val9015_ _E9017_)))) (define slot-set! - (lambda _g9842_ - (let ((_g9841_ (let () (declare (not safe)) (##length _g9842_)))) - (cond ((let () (declare (not safe)) (##fx= _g9841_ 3)) - (apply slot-set!__0 _g9842_)) - ((let () (declare (not safe)) (##fx= _g9841_ 4)) - (apply slot-set!__% _g9842_)) + (lambda _g10185_ + (let ((_g10184_ (let () (declare (not safe)) (##length _g10185_)))) + (cond ((let () (declare (not safe)) (##fx= _g10184_ 3)) + (apply (lambda (_obj9013_ _slot9014_ _val9015_) + (let () + (declare (not safe)) + (slot-set!__0 _obj9013_ _slot9014_ _val9015_))) + _g10185_)) + ((let () (declare (not safe)) (##fx= _g10184_ 4)) + (apply (lambda (_obj9019_ _slot9020_ _val9021_ _E9022_) + (let () + (declare (not safe)) + (slot-set!__% + _obj9019_ + _slot9020_ + _val9021_ + _E9022_))) + _g10185_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g9842_)))))) + _g10185_)))))) (define __slot-error - (lambda (_obj8716_ _slot8717_) - (error '"Cannot find slot" _obj8716_ _slot8717_))) + (lambda (_obj8993_ _slot8994_) + (error '"Cannot find slot" _obj8993_ _slot8994_))) (define call-method - (lambda (_obj8707_ _id8708_ . _args8709_) - (let ((_$e8711_ (method-ref _obj8707_ _id8708_))) - (if _$e8711_ - ((lambda (_method8714_) - (apply _method8714_ _obj8707_ _args8709_)) - _$e8711_) - (error '"Cannot find method" _obj8707_ _id8708_))))) + (lambda (_obj8984_ _id8985_ . _args8986_) + (let ((_$e8988_ + (let () (declare (not safe)) (method-ref _obj8984_ _id8985_)))) + (if _$e8988_ + ((lambda (_method8991_) + (apply _method8991_ _obj8984_ _args8986_)) + _$e8988_) + (error '"Cannot find method" _obj8984_ _id8985_))))) (define __builtin-type-methods (make-table 'test: eq?)) (define method-ref - (lambda (_obj8704_ _id8705_) - (if (object? _obj8704_) - (find-method (object-type _obj8704_) _id8705_) + (lambda (_obj8981_ _id8982_) + (if (let () (declare (not safe)) (object? _obj8981_)) + (let ((__tmp10186 + (let () (declare (not safe)) (object-type _obj8981_)))) + (declare (not safe)) + (find-method __tmp10186 _id8982_)) '#f))) (define checked-method-ref - (lambda (_obj8698_ _id8699_) - (let ((_$e8701_ (method-ref _obj8698_ _id8699_))) - (if _$e8701_ - _$e8701_ - (error '"Missing method" _obj8698_ _id8699_))))) + (lambda (_obj8975_ _id8976_) + (let ((_$e8978_ + (let () (declare (not safe)) (method-ref _obj8975_ _id8976_)))) + (if _$e8978_ + _$e8978_ + (error '"Missing method" _obj8975_ _id8976_))))) (define bound-method-ref - (lambda (_obj8688_ _id8689_) - (let ((_$e8691_ (method-ref _obj8688_ _id8689_))) - (if _$e8691_ - ((lambda (_method8694_) - (lambda _args8696_ (apply _method8694_ _obj8688_ _args8696_))) - _$e8691_) + (lambda (_obj8965_ _id8966_) + (let ((_$e8968_ + (let () (declare (not safe)) (method-ref _obj8965_ _id8966_)))) + (if _$e8968_ + ((lambda (_method8971_) + (lambda _args8973_ (apply _method8971_ _obj8965_ _args8973_))) + _$e8968_) '#f)))) (define checked-bound-method-ref - (lambda (_obj8681_ _id8682_) - (let ((_method8684_ (checked-method-ref _obj8681_ _id8682_))) - (lambda _args8686_ (apply _method8684_ _obj8681_ _args8686_))))) + (lambda (_obj8958_ _id8959_) + (let ((_method8961_ + (let () + (declare (not safe)) + (checked-method-ref _obj8958_ _id8959_)))) + (lambda _args8963_ (apply _method8961_ _obj8958_ _args8963_))))) (define find-method - (lambda (_klass8675_ _id8676_) - (if (type-descriptor? _klass8675_) - (__find-method _klass8675_ _id8676_) - (if (let () (declare (not safe)) (##type? _klass8675_)) - (let ((_$e8678_ (builtin-method-ref _klass8675_ _id8676_))) - (if _$e8678_ - _$e8678_ - (builtin-find-method - (let () (declare (not safe)) (##type-super _klass8675_)) - _id8676_))) + (lambda (_klass8952_ _id8953_) + (if (let () (declare (not safe)) (type-descriptor? _klass8952_)) + (let () (declare (not safe)) (__find-method _klass8952_ _id8953_)) + (if (let () (declare (not safe)) (##type? _klass8952_)) + (let ((_$e8955_ + (let () + (declare (not safe)) + (builtin-method-ref _klass8952_ _id8953_)))) + (if _$e8955_ + _$e8955_ + (let ((__tmp10187 + (let () + (declare (not safe)) + (##type-super _klass8952_)))) + (declare (not safe)) + (builtin-find-method __tmp10187 _id8953_)))) '#f)))) (define __find-method - (lambda (_klass8664_ _id8665_) - (let ((_$e8667_ (direct-method-ref _klass8664_ _id8665_))) - (if _$e8667_ - _$e8667_ - (if (type-descriptor-sealed? _klass8664_) + (lambda (_klass8941_ _id8942_) + (let ((_$e8944_ + (let () + (declare (not safe)) + (direct-method-ref _klass8941_ _id8942_)))) + (if _$e8944_ + _$e8944_ + (if (let () + (declare (not safe)) + (type-descriptor-sealed? _klass8941_)) '#f - (let ((_$e8670_ (type-descriptor-mixin _klass8664_))) - (if _$e8670_ - ((lambda (_mixin8673_) - (mixin-find-method _mixin8673_ _id8665_)) - _$e8670_) - (struct-find-method + (let ((_$e8947_ (let () (declare (not safe)) - (##type-super _klass8664_)) - _id8665_)))))))) + (type-descriptor-mixin _klass8941_)))) + (if _$e8947_ + ((lambda (_mixin8950_) + (let () + (declare (not safe)) + (mixin-find-method _mixin8950_ _id8942_))) + _$e8947_) + (let ((__tmp10188 + (let () + (declare (not safe)) + (##type-super _klass8941_)))) + (declare (not safe)) + (struct-find-method __tmp10188 _id8942_))))))))) (define struct-find-method - (lambda (_klass8655_ _id8656_) - (if (type-descriptor? _klass8655_) - (let ((_$e8658_ (direct-method-ref _klass8655_ _id8656_))) - (if _$e8658_ - _$e8658_ - (struct-find-method - (let () (declare (not safe)) (##type-super _klass8655_)) - _id8656_))) - (if (let () (declare (not safe)) (##type? _klass8655_)) - (let ((_$e8661_ (builtin-method-ref _klass8655_ _id8656_))) - (if _$e8661_ - _$e8661_ - (builtin-find-method - (let () (declare (not safe)) (##type-super _klass8655_)) - _id8656_))) + (lambda (_klass8932_ _id8933_) + (if (let () (declare (not safe)) (type-descriptor? _klass8932_)) + (let ((_$e8935_ + (let () + (declare (not safe)) + (direct-method-ref _klass8932_ _id8933_)))) + (if _$e8935_ + _$e8935_ + (let ((__tmp10190 + (let () + (declare (not safe)) + (##type-super _klass8932_)))) + (declare (not safe)) + (struct-find-method __tmp10190 _id8933_)))) + (if (let () (declare (not safe)) (##type? _klass8932_)) + (let ((_$e8938_ + (let () + (declare (not safe)) + (builtin-method-ref _klass8932_ _id8933_)))) + (if _$e8938_ + _$e8938_ + (let ((__tmp10189 + (let () + (declare (not safe)) + (##type-super _klass8932_)))) + (declare (not safe)) + (builtin-find-method __tmp10189 _id8933_)))) '#f)))) (define class-find-method - (lambda (_klass8649_ _id8650_) - (if (type-descriptor? _klass8649_) - (let ((_$e8652_ (direct-method-ref _klass8649_ _id8650_))) - (if _$e8652_ _$e8652_ (mixin-method-ref _klass8649_ _id8650_))) + (lambda (_klass8926_ _id8927_) + (if (let () (declare (not safe)) (type-descriptor? _klass8926_)) + (let ((_$e8929_ + (let () + (declare (not safe)) + (direct-method-ref _klass8926_ _id8927_)))) + (if _$e8929_ + _$e8929_ + (let () + (declare (not safe)) + (mixin-method-ref _klass8926_ _id8927_)))) '#f))) (define mixin-find-method - (lambda (_mixin8606_ _id8607_) - (let _lp8609_ ((_rest8611_ _mixin8606_)) - (let* ((_rest86128620_ _rest8611_) - (_else86148628_ (lambda () '#f)) - (_K86168637_ - (lambda (_rest8631_ _klass8632_) - (let ((_$e8634_ (direct-method-ref _klass8632_ _id8607_))) - (if _$e8634_ _$e8634_ (_lp8609_ _rest8631_)))))) - (if (let () (declare (not safe)) (##pair? _rest86128620_)) - (let ((_hd86178640_ - (let () (declare (not safe)) (##car _rest86128620_))) - (_tl86188642_ - (let () (declare (not safe)) (##cdr _rest86128620_)))) - (let* ((_klass8645_ _hd86178640_) (_rest8647_ _tl86188642_)) - (_K86168637_ _rest8647_ _klass8645_))) - (_else86148628_)))))) + (lambda (_mixin8883_ _id8884_) + (let _lp8886_ ((_rest8888_ _mixin8883_)) + (let* ((_rest88898897_ _rest8888_) + (_else88918905_ (lambda () '#f)) + (_K88938914_ + (lambda (_rest8908_ _klass8909_) + (let ((_$e8911_ + (let () + (declare (not safe)) + (direct-method-ref _klass8909_ _id8884_)))) + (if _$e8911_ + _$e8911_ + (let () + (declare (not safe)) + (_lp8886_ _rest8908_))))))) + (if (let () (declare (not safe)) (##pair? _rest88898897_)) + (let ((_hd88948917_ + (let () (declare (not safe)) (##car _rest88898897_))) + (_tl88958919_ + (let () (declare (not safe)) (##cdr _rest88898897_)))) + (let* ((_klass8922_ _hd88948917_) (_rest8924_ _tl88958919_)) + (declare (not safe)) + (_K88938914_ _rest8924_ _klass8922_))) + (let () (declare (not safe)) (_else88918905_))))))) (define builtin-find-method - (lambda (_klass8600_ _id8601_) - (if (let () (declare (not safe)) (##type? _klass8600_)) - (let ((_$e8603_ (builtin-method-ref _klass8600_ _id8601_))) - (if _$e8603_ - _$e8603_ - (builtin-find-method - (let () (declare (not safe)) (##type-super _klass8600_)) - _id8601_))) + (lambda (_klass8877_ _id8878_) + (if (let () (declare (not safe)) (##type? _klass8877_)) + (let ((_$e8880_ + (let () + (declare (not safe)) + (builtin-method-ref _klass8877_ _id8878_)))) + (if _$e8880_ + _$e8880_ + (let ((__tmp10191 + (let () + (declare (not safe)) + (##type-super _klass8877_)))) + (declare (not safe)) + (builtin-find-method __tmp10191 _id8878_)))) '#f))) (define direct-method-ref - (lambda (_klass8592_ _id8593_) - (let ((_$e8595_ (type-descriptor-methods _klass8592_))) - (if _$e8595_ - ((lambda (_ht8598_) (table-ref _ht8598_ _id8593_ '#f)) _$e8595_) + (lambda (_klass8869_ _id8870_) + (let ((_$e8872_ + (let () + (declare (not safe)) + (type-descriptor-methods _klass8869_)))) + (if _$e8872_ + ((lambda (_ht8875_) + (let () + (declare (not safe)) + (table-ref _ht8875_ _id8870_ '#f))) + _$e8872_) '#f)))) (define mixin-method-ref - (lambda (_klass8584_ _id8585_) - (let ((_$e8587_ (type-descriptor-mixin _klass8584_))) - (if _$e8587_ - ((lambda (_mixin8590_) (mixin-find-method _mixin8590_ _id8585_)) - _$e8587_) + (lambda (_klass8861_ _id8862_) + (let ((_$e8864_ + (let () + (declare (not safe)) + (type-descriptor-mixin _klass8861_)))) + (if _$e8864_ + ((lambda (_mixin8867_) + (let () + (declare (not safe)) + (mixin-find-method _mixin8867_ _id8862_))) + _$e8864_) '#f)))) (define builtin-method-ref - (lambda (_klass8576_ _id8577_) - (let ((_$e8579_ - (table-ref - __builtin-type-methods - (let () (declare (not safe)) (##type-id _klass8576_)) - '#f))) - (if _$e8579_ - ((lambda (_mtab8582_) (table-ref _mtab8582_ _id8577_ '#f)) - _$e8579_) + (lambda (_klass8853_ _id8854_) + (let ((_$e8856_ + (let ((__tmp10192 + (let () (declare (not safe)) (##type-id _klass8853_)))) + (declare (not safe)) + (table-ref __builtin-type-methods __tmp10192 '#f)))) + (if _$e8856_ + ((lambda (_mtab8859_) + (let () + (declare (not safe)) + (table-ref _mtab8859_ _id8854_ '#f))) + _$e8856_) '#f)))) (define bind-method!__% - (lambda (_klass8542_ _id8543_ _proc8544_ _rebind?8545_) - (letrec ((_bind!8547_ - (lambda (_ht8560_) - (if (and (not _rebind?8545_) - (table-ref _ht8560_ _id8543_ '#f)) - (error '"Method already bound" _klass8542_ _id8543_) - (table-set! _ht8560_ _id8543_ _proc8544_))))) - (if (procedure? _proc8544_) + (lambda (_klass8819_ _id8820_ _proc8821_ _rebind?8822_) + (letrec ((_bind!8824_ + (lambda (_ht8837_) + (if (and (let () (declare (not safe)) (not _rebind?8822_)) + (let () + (declare (not safe)) + (table-ref _ht8837_ _id8820_ '#f))) + (error '"Method already bound" _klass8819_ _id8820_) + (let () + (declare (not safe)) + (table-set! _ht8837_ _id8820_ _proc8821_)))))) + (if (let () (declare (not safe)) (procedure? _proc8821_)) '#!void - (error '"Bad method; expected procedure" _proc8544_)) - (if (type-descriptor? _klass8542_) - (let ((_ht8549_ (type-descriptor-methods _klass8542_))) - (if _ht8549_ - (_bind!8547_ _ht8549_) - (let ((_ht8551_ (make-table 'test: eq?))) - (type-descriptor-methods-set! _klass8542_ _ht8551_) - (_bind!8547_ _ht8551_)))) - (if (let () (declare (not safe)) (##type? _klass8542_)) - (let ((_ht8558_ - (let ((_$e8553_ - (table-ref - __builtin-type-methods - (let () + (error '"Bad method; expected procedure" _proc8821_)) + (if (let () (declare (not safe)) (type-descriptor? _klass8819_)) + (let ((_ht8826_ + (let () + (declare (not safe)) + (type-descriptor-methods _klass8819_)))) + (if _ht8826_ + (let () (declare (not safe)) (_bind!8824_ _ht8826_)) + (let ((_ht8828_ + (let () + (declare (not safe)) + (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (type-descriptor-methods-set! _klass8819_ _ht8828_)) + (let () (declare (not safe)) (_bind!8824_ _ht8828_))))) + (if (let () (declare (not safe)) (##type? _klass8819_)) + (let ((_ht8835_ + (let ((_$e8830_ + (let ((__tmp10193 + (let () + (declare (not safe)) + (##type-id _klass8819_)))) + (declare (not safe)) + (table-ref + __builtin-type-methods + __tmp10193 + '#f)))) + (if _$e8830_ + _$e8830_ + (let ((_ht8833_ + (let () + (declare (not safe)) + (make-table 'test: eq?)))) + (let ((__tmp10194 + (let () + (declare (not safe)) + (##type-id _klass8819_)))) (declare (not safe)) - (##type-id _klass8542_)) - '#f))) - (if _$e8553_ - _$e8553_ - (let ((_ht8556_ (make-table 'test: eq?))) - (table-set! - __builtin-type-methods - (let () - (declare (not safe)) - (##type-id _klass8542_)) - _ht8556_) - _ht8556_))))) - (_bind!8547_ _ht8558_)) + (table-set! + __builtin-type-methods + __tmp10194 + _ht8833_)) + _ht8833_))))) + (declare (not safe)) + (_bind!8824_ _ht8835_)) (error '"Bad class; expected type-descriptor" - _klass8542_)))))) + _klass8819_)))))) (define bind-method!__0 - (lambda (_klass8565_ _id8566_ _proc8567_) - (let ((_rebind?8569_ '#t)) - (bind-method!__% _klass8565_ _id8566_ _proc8567_ _rebind?8569_)))) + (lambda (_klass8842_ _id8843_ _proc8844_) + (let ((_rebind?8846_ '#t)) + (declare (not safe)) + (bind-method!__% _klass8842_ _id8843_ _proc8844_ _rebind?8846_)))) (define bind-method! - (lambda _g9844_ - (let ((_g9843_ (let () (declare (not safe)) (##length _g9844_)))) - (cond ((let () (declare (not safe)) (##fx= _g9843_ 3)) - (apply bind-method!__0 _g9844_)) - ((let () (declare (not safe)) (##fx= _g9843_ 4)) - (apply bind-method!__% _g9844_)) + (lambda _g10196_ + (let ((_g10195_ (let () (declare (not safe)) (##length _g10196_)))) + (cond ((let () (declare (not safe)) (##fx= _g10195_ 3)) + (apply (lambda (_klass8842_ _id8843_ _proc8844_) + (let () + (declare (not safe)) + (bind-method!__0 _klass8842_ _id8843_ _proc8844_))) + _g10196_)) + ((let () (declare (not safe)) (##fx= _g10195_ 4)) + (apply (lambda (_klass8848_ _id8849_ _proc8850_ _rebind?8851_) + (let () + (declare (not safe)) + (bind-method!__% + _klass8848_ + _id8849_ + _proc8850_ + _rebind?8851_))) + _g10196_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g9844_)))))) + _g10196_)))))) (define __method-specializers (make-table 'test: eq?)) (define bind-specializer! - (lambda (_proc8538_ _specializer8539_) - (table-set! __method-specializers _proc8538_ _specializer8539_))) + (lambda (_proc8815_ _specializer8816_) + (let () + (declare (not safe)) + (table-set! __method-specializers _proc8815_ _specializer8816_)))) (define seal-class! - (lambda (_klass8453_) - (letrec ((_collect-methods!8455_ - (lambda (_mtab8471_) - (letrec ((_merge!8473_ - (lambda (_tab8533_) - (table-for-each - (lambda (_id8535_ _proc8536_) - (table-set! _mtab8471_ _id8535_ _proc8536_)) - _tab8533_))) - (_collect-direct-methods!8474_ - (lambda (_klass8528_) - (let ((_$e8530_ - (type-descriptor-methods _klass8528_))) - (if _$e8530_ - (_merge!8473_ _$e8530_) + (lambda (_klass8730_) + (letrec ((_collect-methods!8732_ + (lambda (_mtab8748_) + (letrec ((_merge!8750_ + (lambda (_tab8810_) + (let ((__tmp10197 + (lambda (_id8812_ _proc8813_) + (let () + (declare (not safe)) + (table-set! + _mtab8748_ + _id8812_ + _proc8813_))))) + (declare (not safe)) + (table-for-each __tmp10197 _tab8810_)))) + (_collect-direct-methods!8751_ + (lambda (_klass8805_) + (let ((_$e8807_ + (let () + (declare (not safe)) + (type-descriptor-methods + _klass8805_)))) + (if _$e8807_ + (let () + (declare (not safe)) + (_merge!8750_ _$e8807_)) '#!void))))) - (let ((_$e8476_ (type-descriptor-mixin _klass8453_))) - (if _$e8476_ - ((lambda (_mixin8479_) - (let _recur8481_ ((_rest8483_ _mixin8479_)) - (let* ((_rest84848492_ _rest8483_) - (_else84868500_ (lambda () '#!void)) - (_K84888509_ - (lambda (_rest8503_ _klass8504_) - (_recur8481_ _rest8503_) - (if (type-descriptor? _klass8504_) - (_collect-direct-methods!8474_ - _klass8504_) - (let ((_$e8506_ + (let ((_$e8753_ + (let () + (declare (not safe)) + (type-descriptor-mixin _klass8730_)))) + (if _$e8753_ + ((lambda (_mixin8756_) + (let _recur8758_ ((_rest8760_ _mixin8756_)) + (let* ((_rest87618769_ _rest8760_) + (_else87638777_ (lambda () '#!void)) + (_K87658786_ + (lambda (_rest8780_ _klass8781_) + (let () + (declare (not safe)) + (_recur8758_ _rest8780_)) + (if (let () + (declare (not safe)) + (type-descriptor? + _klass8781_)) + (let () + (declare (not safe)) + (_collect-direct-methods!8751_ + _klass8781_)) + (let ((_$e8783_ (if (let () (declare (not safe)) - (##type? _klass8504_)) - (table-ref - __builtin-type-methods - (let () - (declare - (not safe)) - (##type-id - _klass8504_)) - '#f) - '#f))) - (if _$e8506_ - (_merge!8473_ _$e8506_) + (##type? _klass8781_)) + (let ((__tmp10201 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (##type-id _klass8781_)))) + (declare (not safe)) + (table-ref __builtin-type-methods __tmp10201 '#f)) + '#f))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if _$e8783_ + (let () + (declare (not safe)) + (_merge!8750_ _$e8783_)) '#!void)))))) (if (let () (declare (not safe)) - (##pair? _rest84848492_)) - (let ((_hd84898512_ + (##pair? _rest87618769_)) + (let ((_hd87668789_ (let () (declare (not safe)) - (##car _rest84848492_))) - (_tl84908514_ + (##car _rest87618769_))) + (_tl87678791_ (let () (declare (not safe)) - (##cdr _rest84848492_)))) - (let* ((_klass8517_ _hd84898512_) - (_rest8519_ _tl84908514_)) - (_K84888509_ - _rest8519_ - _klass8517_))) + (##cdr _rest87618769_)))) + (let* ((_klass8794_ _hd87668789_) + (_rest8796_ _tl87678791_)) + (declare (not safe)) + (_K87658786_ + _rest8796_ + _klass8794_))) '#!void)))) - _$e8476_) - (let _recur8521_ ((_klass8523_ + _$e8753_) + (let _recur8798_ ((_klass8800_ (let () (declare (not safe)) - (##type-super _klass8453_)))) - (if (type-descriptor? _klass8523_) + (##type-super _klass8730_)))) + (if (let () + (declare (not safe)) + (type-descriptor? _klass8800_)) (begin - (_recur8521_ - (let () - (declare (not safe)) - (##type-super _klass8523_))) - (_collect-direct-methods!8474_ - _klass8523_)) + (let ((__tmp10200 + (let () + (declare (not safe)) + (##type-super _klass8800_)))) + (declare (not safe)) + (_recur8798_ __tmp10200)) + (let () + (declare (not safe)) + (_collect-direct-methods!8751_ + _klass8800_))) (if (let () (declare (not safe)) - (##type? _klass8523_)) + (##type? _klass8800_)) (begin - (_recur8521_ - (let () - (declare (not safe)) - (##type-super _klass8523_))) - (let ((_$e8525_ - (table-ref - __builtin-type-methods - (let () - (declare (not safe)) - (##type-id _klass8523_)) - '#f))) - (if _$e8525_ - (_merge!8473_ _$e8525_) + (let ((__tmp10198 + (let () + (declare (not safe)) + (##type-super _klass8800_)))) + (declare (not safe)) + (_recur8798_ __tmp10198)) + (let ((_$e8802_ + (let ((__tmp10199 + (let () + (declare (not safe)) + (##type-id + _klass8800_)))) + (declare (not safe)) + (table-ref + __builtin-type-methods + __tmp10199 + '#f)))) + (if _$e8802_ + (let () + (declare (not safe)) + (_merge!8750_ _$e8802_)) '#!void))) '#!void))))) - (_collect-direct-methods!8474_ _klass8453_))))) - (if (type-descriptor? _klass8453_) - (if (type-descriptor-sealed? _klass8453_) + (let () + (declare (not safe)) + (_collect-direct-methods!8751_ _klass8730_)))))) + (if (let () (declare (not safe)) (type-descriptor? _klass8730_)) + (if (let () + (declare (not safe)) + (type-descriptor-sealed? _klass8730_)) '#!void (begin - (if (assgetq 'final: (type-descriptor-plist _klass8453_)) + (if (let ((__tmp10202 + (let () + (declare (not safe)) + (type-descriptor-plist _klass8730_)))) + (declare (not safe)) + (assgetq 'final: __tmp10202)) '#!void - (error '"Cannot seal non-final class" _klass8453_)) - (let ((_vtab8457_ (make-table 'test: eq?)) - (_mtab8458_ (make-table 'test: eq?))) - (_collect-methods!8455_ _mtab8458_) - (table-for-each - (lambda (_id8460_ _proc8461_) - (let ((_$e8463_ - (table-ref - __method-specializers - _proc8461_ - '#f))) - (if _$e8463_ - ((lambda (_specializer8466_) - (let ((_proc8468_ - (_specializer8466_ _klass8453_)) - (_gid8469_ - (make-symbol - (let () - (declare (not safe)) - (##type-id _klass8453_)) - '"::[" - _id8460_ - '"]"))) - (eval (cons 'def - (cons _gid8469_ - (cons (cons 'quote + (error '"Cannot seal non-final class" _klass8730_)) + (let ((_vtab8734_ + (let () + (declare (not safe)) + (make-table 'test: eq?))) + (_mtab8735_ + (let () + (declare (not safe)) + (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (_collect-methods!8732_ _mtab8735_)) + (let ((__tmp10203 + (lambda (_id8737_ _proc8738_) + (let ((_$e8740_ + (let () + (declare (not safe)) + (table-ref + __method-specializers + _proc8738_ + '#f)))) + (if _$e8740_ + ((lambda (_specializer8743_) + (let ((_proc8745_ + (_specializer8743_ _klass8730_)) + (_gid8746_ + (let ((__tmp10204 + (let () + (declare (not safe)) + (##type-id + _klass8730_)))) + (declare (not safe)) + (make-symbol + __tmp10204 + '"::[" + _id8737_ + '"]")))) + (let ((__tmp10205 + (let ((__tmp10206 + (let ((__tmp10207 + (let ((__tmp10208 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _proc8468_ '())) - '())))) + (let ((__tmp10209 + (let () + (declare (not safe)) + (cons _proc8745_ '())))) + (declare (not safe)) + (cons 'quote __tmp10209)))) + (declare (not safe)) + (cons __tmp10208 '())))) + (declare (not safe)) + (cons _gid8746_ __tmp10207)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (table-set! - _vtab8457_ - _id8460_ - _proc8468_))) - _$e8463_) - (table-set! _vtab8457_ _id8460_ _proc8461_)))) - _mtab8458_) - (type-descriptor-methods-set! _klass8453_ _vtab8457_) - (type-descriptor-seal! _klass8453_)))) + (declare (not safe)) + (cons 'def __tmp10206)))) + (declare (not safe)) + (eval __tmp10205)) + (let () + (declare (not safe)) + (table-set! + _vtab8734_ + _id8737_ + _proc8745_)))) + _$e8740_) + (let () + (declare (not safe)) + (table-set! + _vtab8734_ + _id8737_ + _proc8738_))))))) + (declare (not safe)) + (table-for-each __tmp10203 _mtab8735_)) + (let () + (declare (not safe)) + (type-descriptor-methods-set! _klass8730_ _vtab8734_)) + (let () + (declare (not safe)) + (type-descriptor-seal! _klass8730_))))) '#!void)))) (define next-method - (lambda (_subklass8390_ _obj8391_ _id8392_) - (let ((_klass8394_ (object-type _obj8391_)) - (_type-id8395_ - (let () (declare (not safe)) (##type-id _subklass8390_)))) - (if (type-descriptor? _klass8394_) - (let ((_$e8397_ (type-descriptor-mixin _klass8394_))) - (if _$e8397_ - ((lambda (_mixin8400_) - (let _lp8402_ ((_rest8404_ - (cons _klass8394_ _mixin8400_))) - (let* ((_rest84058413_ _rest8404_) - (_else84078421_ (lambda () '#f)) - (_K84098427_ - (lambda (_rest8424_ _klass8425_) - (if (eq? _type-id8395_ - (let () - (declare (not safe)) - (##type-id _klass8425_))) - (mixin-find-method _rest8424_ _id8392_) - (_lp8402_ _rest8424_))))) + (lambda (_subklass8667_ _obj8668_ _id8669_) + (let ((_klass8671_ + (let () (declare (not safe)) (object-type _obj8668_))) + (_type-id8672_ + (let () (declare (not safe)) (##type-id _subklass8667_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass8671_)) + (let ((_$e8674_ + (let () + (declare (not safe)) + (type-descriptor-mixin _klass8671_)))) + (if _$e8674_ + ((lambda (_mixin8677_) + (let _lp8679_ ((_rest8681_ + (let () + (declare (not safe)) + (cons _klass8671_ _mixin8677_)))) + (let* ((_rest86828690_ _rest8681_) + (_else86848698_ (lambda () '#f)) + (_K86868704_ + (lambda (_rest8701_ _klass8702_) + (if (let ((__tmp10214 + (let () + (declare (not safe)) + (##type-id _klass8702_)))) + (declare (not safe)) + (eq? _type-id8672_ __tmp10214)) + (let () + (declare (not safe)) + (mixin-find-method + _rest8701_ + _id8669_)) + (let () + (declare (not safe)) + (_lp8679_ _rest8701_)))))) (if (let () (declare (not safe)) - (##pair? _rest84058413_)) - (let ((_hd84108430_ + (##pair? _rest86828690_)) + (let ((_hd86878707_ (let () (declare (not safe)) - (##car _rest84058413_))) - (_tl84118432_ + (##car _rest86828690_))) + (_tl86888709_ (let () (declare (not safe)) - (##cdr _rest84058413_)))) - (let* ((_klass8435_ _hd84108430_) - (_rest8437_ _tl84118432_)) - (_K84098427_ _rest8437_ _klass8435_))) - (_else84078421_))))) - _$e8397_) - (let _lp8439_ ((_klass8441_ _klass8394_)) - (if (eq? _type-id8395_ + (##cdr _rest86828690_)))) + (let* ((_klass8712_ _hd86878707_) + (_rest8714_ _tl86888709_)) + (declare (not safe)) + (_K86868704_ _rest8714_ _klass8712_))) (let () (declare (not safe)) - (##type-id _klass8441_))) - (struct-find-method - (let () - (declare (not safe)) - (##type-super _klass8441_)) - _id8392_) - (let ((_$e8443_ + (_else86848698_)))))) + _$e8674_) + (let _lp8716_ ((_klass8718_ _klass8671_)) + (if (let ((__tmp10213 (let () (declare (not safe)) - (##type-super _klass8441_)))) - (if _$e8443_ (_lp8439_ _$e8443_) '#f)))))) - (if (let () (declare (not safe)) (##type? _klass8394_)) - (let _lp8446_ ((_klass8448_ _klass8394_)) - (if (eq? _type-id8395_ - (let () - (declare (not safe)) - (##type-id _klass8448_))) - (builtin-find-method - (let () - (declare (not safe)) - (##type-super _klass8448_)) - _id8392_) - (let ((_$e8450_ + (##type-id _klass8718_)))) + (declare (not safe)) + (eq? _type-id8672_ __tmp10213)) + (let ((__tmp10212 + (let () + (declare (not safe)) + (##type-super _klass8718_)))) + (declare (not safe)) + (struct-find-method __tmp10212 _id8669_)) + (let ((_$e8720_ + (let () + (declare (not safe)) + (##type-super _klass8718_)))) + (if _$e8720_ + (let () + (declare (not safe)) + (_lp8716_ _$e8720_)) + '#f)))))) + (if (let () (declare (not safe)) (##type? _klass8671_)) + (let _lp8723_ ((_klass8725_ _klass8671_)) + (if (let ((__tmp10211 (let () (declare (not safe)) - (##type-super _klass8448_)))) - (if _$e8450_ (_lp8446_ _$e8450_) '#f)))) + (##type-id _klass8725_)))) + (declare (not safe)) + (eq? _type-id8672_ __tmp10211)) + (let ((__tmp10210 + (let () + (declare (not safe)) + (##type-super _klass8725_)))) + (declare (not safe)) + (builtin-find-method __tmp10210 _id8669_)) + (let ((_$e8727_ + (let () + (declare (not safe)) + (##type-super _klass8725_)))) + (if _$e8727_ + (let () (declare (not safe)) (_lp8723_ _$e8727_)) + '#f)))) '#f))))) (define call-next-method - (lambda (_subklass8380_ _obj8381_ _id8382_ . _args8383_) - (let ((_$e8385_ (next-method _subklass8380_ _obj8381_ _id8382_))) - (if _$e8385_ - ((lambda (_methodf8388_) - (apply _methodf8388_ _obj8381_ _args8383_)) - _$e8385_) - (error '"Cannot find next method" _obj8381_ _id8382_))))) - (define write-style (lambda (_we8378_) (macro-writeenv-style _we8378_))) + (lambda (_subklass8657_ _obj8658_ _id8659_ . _args8660_) + (let ((_$e8662_ + (let () + (declare (not safe)) + (next-method _subklass8657_ _obj8658_ _id8659_)))) + (if _$e8662_ + ((lambda (_methodf8665_) + (apply _methodf8665_ _obj8658_ _args8660_)) + _$e8662_) + (error '"Cannot find next method" _obj8658_ _id8659_))))) + (define write-style (lambda (_we8655_) (macro-writeenv-style _we8655_))) (define write-object - (lambda (_we8370_ _obj8371_) - (let ((_$e8373_ (method-ref _obj8371_ ':wr))) - (if _$e8373_ - ((lambda (_method8376_) (_method8376_ _obj8371_ _we8370_)) - _$e8373_) + (lambda (_we8647_ _obj8648_) + (let ((_$e8650_ + (let () (declare (not safe)) (method-ref _obj8648_ ':wr)))) + (if _$e8650_ + ((lambda (_method8653_) (_method8653_ _obj8648_ _we8647_)) + _$e8650_) (let () (declare (not safe)) - (##default-wr _we8370_ _obj8371_)))))) + (##default-wr _we8647_ _obj8648_)))))) (let () (declare (not safe)) (##wr-set! write-object)))) diff --git a/src/bootstrap/gerbil/runtime/mop__1.scm b/src/bootstrap/gerbil/runtime/mop__1.scm index ca59b35a2..e933d4a01 100644 --- a/src/bootstrap/gerbil/runtime/mop__1.scm +++ b/src/bootstrap/gerbil/runtime/mop__1.scm @@ -1,131 +1,226 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |[:0:]#__slot-e| - (lambda (_$stx8252_) - (let* ((_g82568282_ - (lambda (_g82578278_) - (gx#raise-syntax-error '#f '"Bad syntax" _g82578278_))) - (_g82558366_ - (lambda (_g82578286_) - (if (gx#stx-pair? _g82578286_) - (let ((_e82628289_ (gx#syntax-e _g82578286_))) - (let ((_hd82638293_ - (let () (declare (not safe)) (##car _e82628289_))) - (_tl82648296_ - (let () (declare (not safe)) (##cdr _e82628289_)))) - (if (gx#stx-pair? _tl82648296_) - (let ((_e82658299_ (gx#syntax-e _tl82648296_))) - (let ((_hd82668303_ + (lambda (_$stx8529_) + (let* ((_g85338559_ + (lambda (_g85348555_) + (gx#raise-syntax-error '#f '"Bad syntax" _g85348555_))) + (_g85328643_ + (lambda (_g85348563_) + (if (gx#stx-pair? _g85348563_) + (let ((_e85418566_ (gx#syntax-e _g85348563_))) + (let ((_hd85408570_ + (let () (declare (not safe)) (##car _e85418566_))) + (_tl85398573_ + (let () (declare (not safe)) (##cdr _e85418566_)))) + (if (gx#stx-pair? _tl85398573_) + (let ((_e85448576_ (gx#syntax-e _tl85398573_))) + (let ((_hd85438580_ (let () (declare (not safe)) - (##car _e82658299_))) - (_tl82678306_ + (##car _e85448576_))) + (_tl85428583_ (let () (declare (not safe)) - (##cdr _e82658299_)))) - (if (gx#stx-pair? _tl82678306_) - (let ((_e82688309_ - (gx#syntax-e _tl82678306_))) - (let ((_hd82698313_ + (##cdr _e85448576_)))) + (if (gx#stx-pair? _tl85428583_) + (let ((_e85478586_ + (gx#syntax-e _tl85428583_))) + (let ((_hd85468590_ (let () (declare (not safe)) - (##car _e82688309_))) - (_tl82708316_ + (##car _e85478586_))) + (_tl85458593_ (let () (declare (not safe)) - (##cdr _e82688309_)))) - (if (gx#stx-pair? _tl82708316_) - (let ((_e82718319_ - (gx#syntax-e _tl82708316_))) - (let ((_hd82728323_ + (##cdr _e85478586_)))) + (if (gx#stx-pair? _tl85458593_) + (let ((_e85508596_ + (gx#syntax-e _tl85458593_))) + (let ((_hd85498600_ (let () (declare (not safe)) - (##car _e82718319_))) - (_tl82738326_ + (##car _e85508596_))) + (_tl85488603_ (let () (declare (not safe)) - (##cdr _e82718319_)))) - (if (gx#stx-pair? _tl82738326_) - (let ((_e82748329_ + (##cdr _e85508596_)))) + (if (gx#stx-pair? _tl85488603_) + (let ((_e85538606_ (gx#syntax-e - _tl82738326_))) - (let ((_hd82758333_ + _tl85488603_))) + (let ((_hd85528610_ (let () (declare (not safe)) - (##car _e82748329_))) - (_tl82768336_ + (##car _e85538606_))) + (_tl85518613_ (let () (declare (not safe)) - (##cdr _e82748329_)))) + (##cdr _e85538606_)))) (if (gx#stx-null? - _tl82768336_) - ((lambda (_L8339_ + _tl85518613_) + ((lambda (_L8616_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L8341_ - _L8342_ - _L8343_) - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax '#f 'object?) - (cons _L8343_ '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax - '#f - 'klass) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'object-type) - (cons _L8343_ '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax + _L8618_ + _L8619_ + _L8620_) + (let ((__tmp10261 (gx#datum->syntax '#f 'if)) + (__tmp10215 + (let ((__tmp10258 + (let ((__tmp10260 + (gx#datum->syntax '#f 'object?)) + (__tmp10259 + (let () + (declare (not safe)) + (cons _L8620_ '())))) + (declare (not safe)) + (cons __tmp10260 __tmp10259))) + (__tmp10216 + (let ((__tmp10221 + (let ((__tmp10257 + (gx#datum->syntax '#f 'let)) + (__tmp10222 + (let ((__tmp10251 + (let ((__tmp10256 + (gx#datum->syntax '#f - 'cond) - (cons (cons (cons (gx#datum->syntax + 'klass)) + (__tmp10252 + (let ((__tmp10253 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'and) - (cons (cons (gx#datum->syntax - '#f - 'type-descriptor?) - (cons (gx#datum->syntax - '#f - 'klass) - '())) - (cons (cons (gx#datum->syntax - '#f - 'class-slot-offset) - (cons (gx#datum->syntax + (let ((__tmp10255 + (gx#datum->syntax '#f 'object-type)) + (__tmp10254 + (let () + (declare (not safe)) + (cons _L8620_ '())))) + (declare (not safe)) + (cons __tmp10255 __tmp10254)))) + (declare (not safe)) + (cons __tmp10253 '())))) + (declare (not safe)) + (cons __tmp10256 __tmp10252))) + (__tmp10223 + (let ((__tmp10224 + (let ((__tmp10250 (gx#datum->syntax '#f 'cond)) + (__tmp10225 + (let ((__tmp10233 + (let ((__tmp10237 + (let ((__tmp10249 + (gx#datum->syntax '#f 'and)) + (__tmp10238 + (let ((__tmp10245 + (let ((__tmp10248 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'type-descriptor?)) + (__tmp10246 + (let ((__tmp10247 (gx#datum->syntax '#f 'klass))) + (declare (not safe)) + (cons __tmp10247 '())))) + (declare (not safe)) + (cons __tmp10248 __tmp10246))) + (__tmp10239 + (let ((__tmp10240 + (let ((__tmp10244 + (gx#datum->syntax '#f 'class-slot-offset)) + (__tmp10241 + (let ((__tmp10243 + (gx#datum->syntax '#f 'klass)) + (__tmp10242 + (let () + (declare (not safe)) + (cons _L8619_ '())))) + (declare (not safe)) + (cons __tmp10243 __tmp10242)))) + (declare (not safe)) + (cons __tmp10244 __tmp10241)))) + (declare (not safe)) + (cons __tmp10240 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp10245 + __tmp10239)))) + (declare (not safe)) + (cons __tmp10249 __tmp10238))) + (__tmp10234 + (let ((__tmp10236 + (gx#datum->syntax '#f '=>)) + (__tmp10235 + (let () + (declare (not safe)) + (cons _L8618_ '())))) + (declare (not safe)) + (cons __tmp10236 __tmp10235)))) + (declare (not safe)) + (cons __tmp10237 __tmp10234))) + (__tmp10226 + (let ((__tmp10227 + (let ((__tmp10232 + (gx#datum->syntax + '#f + 'else)) + (__tmp10228 + (let ((__tmp10229 + (let ((__tmp10230 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'klass) - (cons _L8342_ '()))) + (let ((__tmp10231 + (let () + (declare (not safe)) + (cons _L8619_ '())))) + (declare (not safe)) + (cons _L8620_ __tmp10231)))) + (declare (not safe)) + (cons _L8616_ __tmp10230)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp10229 '())))) + (declare (not safe)) + (cons __tmp10232 __tmp10228)))) + (declare (not safe)) + (cons __tmp10227 '())))) + (declare (not safe)) + (cons __tmp10233 __tmp10226)))) + (declare (not safe)) + (cons __tmp10250 __tmp10225)))) + (declare (not safe)) + (cons __tmp10224 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (gx#datum->syntax '#f '=>) - (cons _L8341_ '()))) - (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _L8339_ - (cons _L8343_ - (cons _L8342_ '()))) - '())) - '()))) - '()))) + (declare (not safe)) + (cons __tmp10251 + __tmp10223)))) + (declare (not safe)) + (cons __tmp10257 __tmp10222))) + (__tmp10217 + (let ((__tmp10218 + (let ((__tmp10219 + (let ((__tmp10220 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _L8619_ '())))) + (declare (not safe)) + (cons _L8620_ __tmp10220)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L8339_ - (cons _L8343_ - (cons _L8342_ '()))) - '()))))) - _hd82758333_ - _hd82728323_ - _hd82698313_ - _hd82668303_) - (_g82568282_ _g82578286_)))) + (declare (not safe)) + (cons _L8616_ __tmp10219)))) + (declare (not safe)) + (cons __tmp10218 '())))) + (declare (not safe)) + (cons __tmp10221 __tmp10217)))) + (declare (not safe)) + (cons __tmp10258 __tmp10216)))) + (declare (not safe)) + (cons __tmp10261 __tmp10215))) + _hd85528610_ + _hd85498600_ + _hd85468590_ + _hd85438580_) + (_g85338559_ _g85348563_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g82568282_ _g82578286_)))) - (_g82568282_ _g82578286_)))) - (_g82568282_ _g82578286_)))) - (_g82568282_ _g82578286_)))) - (_g82568282_ _g82578286_))))) - (_g82558366_ _$stx8252_)))) + (_g85338559_ _g85348563_)))) + (_g85338559_ _g85348563_)))) + (_g85338559_ _g85348563_)))) + (_g85338559_ _g85348563_)))) + (_g85338559_ _g85348563_))))) + (_g85328643_ _$stx8529_)))) diff --git a/src/bootstrap/gerbil/runtime/repl__0.scm b/src/bootstrap/gerbil/runtime/repl__0.scm index 690fa7bfe..c4b62ab1f 100644 --- a/src/bootstrap/gerbil/runtime/repl__0.scm +++ b/src/bootstrap/gerbil/runtime/repl__0.scm @@ -1,25 +1,32 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1695206877) + (define gerbil/runtime/repl::timestamp 1695292370) (define replx (lambda () - (letrec ((_write-reason15895_ - (lambda (_exn15901_) - (lambda (_cont15903_ _port15904_) + (letrec ((_write-reason17596_ + (lambda (_exn17602_) + (lambda (_cont17604_ _port17605_) (let () (declare (not safe)) (##display-exception-in-context - _exn15901_ - _cont15903_ - _port15904_)) + _exn17602_ + _cont17604_ + _port17605_)) '#f)))) - (with-exception-handler - (lambda (_exn15897_) - (let ((__tmp15905 - (lambda (_cont15899_) - (let ((__tmp15906 (_write-reason15895_ _exn15897_))) - (declare (not safe)) - (##repl-within _cont15899_ __tmp15906 _exn15897_))))) - (declare (not safe)) - (##continuation-capture __tmp15905))) - ##repl))))) + (let ((__tmp17606 + (lambda (_exn17598_) + (let ((__tmp17607 + (lambda (_cont17600_) + (let ((__tmp17608 + (let () + (declare (not safe)) + (_write-reason17596_ _exn17598_)))) + (declare (not safe)) + (##repl-within + _cont17600_ + __tmp17608 + _exn17598_))))) + (declare (not safe)) + (##continuation-capture __tmp17607))))) + (declare (not safe)) + (with-exception-handler __tmp17606 ##repl)))))) diff --git a/src/bootstrap/gerbil/runtime/syntax.ssxi.ss b/src/bootstrap/gerbil/runtime/syntax.ssxi.ss index 5853a2125..1e7bba181 100644 --- a/src/bootstrap/gerbil/runtime/syntax.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/syntax.ssxi.ss @@ -55,11 +55,6 @@ package: gerbil/runtime (declare-type &SyntaxError-phi-set! (@class-setf SyntaxError::t phi #t)) (declare-type &SyntaxError-marks-set! (@class-setf SyntaxError::t marks #t)) (declare-type SyntaxError::display-exception (@lambda 2 #f)) - (declare-method - SyntaxError::t - display-exception - SyntaxError::display-exception - #f) (declare-type make-syntax-error (@lambda 6 #f)) (declare-type syntax-error? (@class-pred SyntaxError::t)) (declare-type __raise-syntax-error (@lambda (3) #f)) diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index a696a8975..cad28ef60 100644 --- a/src/bootstrap/gerbil/runtime/syntax__0.scm +++ b/src/bootstrap/gerbil/runtime/syntax__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/syntax::timestamp 1695206877) + (define gerbil/runtime/syntax::timestamp 1695292370) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args13104_ - (apply make-class-instance SyntaxError::t _$args13104_))) + (lambda _$args14151_ + (apply make-class-instance SyntaxError::t _$args14151_))) (define SyntaxError-message (make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -60,79 +60,79 @@ (define &SyntaxError-marks-set! (make-class-slot-unchecked-mutator SyntaxError::t 'marks)) (define SyntaxError::display-exception - (lambda (_self13007_ _port13008_) - (letrec ((_location13010_ + (lambda (_self14054_ _port14055_) + (letrec ((_location14057_ (lambda () - (let _lp13064_ ((_rest13066_ - (slot-ref _self13007_ 'irritants))) - (let* ((_rest1306713075_ _rest13066_) - (_else1306913083_ (lambda () '#f)) - (_K1307113092_ - (lambda (_rest13086_ _hd13087_) - (let ((_$e13089_ (__AST-source _hd13087_))) - (if _$e13089_ - _$e13089_ - (_lp13064_ _rest13086_)))))) - (if (##pair? _rest1306713075_) - (let ((_hd1307213095_ (##car _rest1306713075_)) - (_tl1307313097_ (##cdr _rest1306713075_))) - (let* ((_hd13100_ _hd1307213095_) - (_rest13102_ _tl1307313097_)) - (_K1307113092_ _rest13102_ _hd13100_))) - (_else1306913083_))))))) + (let _lp14111_ ((_rest14113_ + (slot-ref _self14054_ 'irritants))) + (let* ((_rest1411414122_ _rest14113_) + (_else1411614130_ (lambda () '#f)) + (_K1411814139_ + (lambda (_rest14133_ _hd14134_) + (let ((_$e14136_ (__AST-source _hd14134_))) + (if _$e14136_ + _$e14136_ + (_lp14111_ _rest14133_)))))) + (if (##pair? _rest1411414122_) + (let ((_hd1411914142_ (##car _rest1411414122_)) + (_tl1412014144_ (##cdr _rest1411414122_))) + (let* ((_hd14147_ _hd1411914142_) + (_rest14149_ _tl1412014144_)) + (_K1411814139_ _rest14149_ _hd14147_))) + (_else1411614130_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e13013_ (_location13010_))) - (if _$e13013_ - ((lambda (_where13016_) - (##display-locat _where13016_ '#t (current-output-port))) - _$e13013_) + (let ((_$e14060_ (_location14057_))) + (if _$e14060_ + ((lambda (_where14063_) + (##display-locat _where14063_ '#t (current-output-port))) + _$e14060_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e13018_ (slot-ref _self13007_ 'where))) - (if _$e13018_ - ((lambda (_where13021_) + (let ((_$e14065_ (slot-ref _self14054_ 'where))) + (if _$e14065_ + ((lambda (_where14068_) (displayln '" at " - _where13021_ + _where14068_ '": " - (slot-ref _self13007_ 'message))) - _$e13018_) - (displayln '": " (slot-ref _self13007_ 'message)))) - (let* ((_g1302213030_ (slot-ref _self13007_ 'irritants)) - (_else1302413038_ (lambda () '#!void)) - (_K1302613051_ - (lambda (_rest13041_ _stx13042_) + (slot-ref _self14054_ 'message))) + _$e14065_) + (displayln '": " (slot-ref _self14054_ 'message)))) + (let* ((_g1406914077_ (slot-ref _self14054_ 'irritants)) + (_else1407114085_ (lambda () '#!void)) + (_K1407314098_ + (lambda (_rest14088_ _stx14089_) (display '"... form: ") - (__pp-syntax _stx13042_) + (__pp-syntax _stx14089_) (for-each - (lambda (_detail13044_) + (lambda (_detail14091_) (display '"... detail: ") - (write (__AST->datum _detail13044_)) - (let ((_$e13046_ (__AST-source _detail13044_))) - (if _$e13046_ - ((lambda (_loc13049_) + (write (__AST->datum _detail14091_)) + (let ((_$e14093_ (__AST-source _detail14091_))) + (if _$e14093_ + ((lambda (_loc14096_) (display '" at ") (##display-locat - _loc13049_ + _loc14096_ '#t (current-output-port))) - _$e13046_) + _$e14093_) '#!void)) (newline)) - _rest13041_)))) - (if (##pair? _g1302213030_) - (let ((_hd1302713054_ (##car _g1302213030_)) - (_tl1302813056_ (##cdr _g1302213030_))) - (let* ((_stx13059_ _hd1302713054_) - (_rest13061_ _tl1302813056_)) - (_K1302613051_ _rest13061_ _stx13059_))) + _rest14088_)))) + (if (##pair? _g1406914077_) + (let ((_hd1407414101_ (##car _g1406914077_)) + (_tl1407514103_ (##cdr _g1406914077_))) + (let* ((_stx14106_ _hd1407414101_) + (_rest14108_ _tl1407514103_)) + (_K1407314098_ _rest14108_ _stx14106_))) '#!void))) current-output-port - _port13008_)))) + _port14055_)))) (bind-method! SyntaxError::t 'display-exception @@ -140,33 +140,33 @@ '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message12878_ - _irritants12879_ - _where12880_ - _context12881_ - _marks12882_ - _phi12883_) + (lambda (_message13925_ + _irritants13926_ + _where13927_ + _context13928_ + _marks13929_ + _phi13930_) (make-class-instance SyntaxError::t 'message: - _message12878_ + _message13925_ 'irritants: - _irritants12879_ + _irritants13926_ 'where: - _where12880_ + _where13927_ 'context: - _context12881_ + _context13928_ 'marks: - _marks12882_ + _marks13929_ 'phi: - _phi12883_))) + _phi13930_))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where12873_ _message12874_ _stx12875_ . _details12876_) + (lambda (_where13920_ _message13921_ _stx13922_ . _details13923_) (raise (make-syntax-error - _message12874_ - (cons _stx12875_ _details12876_) - _where12873_ + _message13921_ + (cons _stx13922_ _details13923_) + _where13920_ (__current-context) '#f '#f)))) @@ -175,7 +175,7 @@ (make-struct-type 'gerbil#AST::t '#f '2 'syntax '() '#f '(e source))) (define AST? (make-struct-predicate AST::t)) (define make-AST - (lambda _$args12870_ (apply make-struct-instance AST::t _$args12870_))) + (lambda _$args13917_ (apply make-struct-instance AST::t _$args13917_))) (define AST-e (make-struct-field-accessor AST::t '0)) (define AST-source (make-struct-field-accessor AST::t '1)) (define AST-e-set! (make-struct-field-mutator AST::t '0)) @@ -185,159 +185,169 @@ (define &AST-e-set! (make-struct-field-unchecked-mutator AST::t '0)) (define &AST-source-set! (make-struct-field-unchecked-mutator AST::t '1)) (define __AST-e - (lambda (_stx12868_) - (if (##structure-instance-of? _stx12868_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx12868_ '1 AST::t '#f) - _stx12868_))) + (lambda (_stx13915_) + (if (##structure-instance-of? _stx13915_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx13915_ '1 AST::t '#f) + _stx13915_))) (define __AST-source - (lambda (_stx12862_) - (let _lp12864_ ((_src12866_ _stx12862_)) - (if (##structure-instance-of? _src12866_ 'gerbil#AST::t) - (_lp12864_ (##unchecked-structure-ref _src12866_ '2 AST::t '#f)) - (if (##locat? _src12866_) _src12866_ '#f))))) + (lambda (_stx13909_) + (let _lp13911_ ((_src13913_ _stx13909_)) + (if (##structure-instance-of? _src13913_ 'gerbil#AST::t) + (_lp13911_ (##unchecked-structure-ref _src13913_ '2 AST::t '#f)) + (if (##locat? _src13913_) _src13913_ '#f))))) (define __AST - (lambda (_e12854_ _src-stx12855_) - (let ((_src12857_ (__AST-source _src-stx12855_))) - (if (or (##structure-instance-of? _e12854_ 'gerbil#AST::t) - (not _src12857_)) - _e12854_ - (##structure AST::t _e12854_ _src12857_))))) + (lambda (_e13901_ _src-stx13902_) + (let ((_src13904_ (__AST-source _src-stx13902_))) + (if (or (##structure-instance-of? _e13901_ 'gerbil#AST::t) + (not _src13904_)) + _e13901_ + (##structure AST::t _e13901_ _src13904_))))) (define __AST-eq? - (lambda (_stx12851_ _obj12852_) (eq? (__AST-e _stx12851_) _obj12852_))) - (define __AST-pair? (lambda (_stx12849_) (pair? (__AST-e _stx12849_)))) - (define __AST-null? (lambda (_stx12847_) (null? (__AST-e _stx12847_)))) + (lambda (_stx13898_ _obj13899_) (eq? (__AST-e _stx13898_) _obj13899_))) + (define __AST-pair? (lambda (_stx13896_) (pair? (__AST-e _stx13896_)))) + (define __AST-null? (lambda (_stx13894_) (null? (__AST-e _stx13894_)))) (define __AST-datum? - (lambda (_stx12828_) - (let* ((_e12830_ (__AST-e _stx12828_)) (_$e12832_ (number? _e12830_))) - (if _$e12832_ - _$e12832_ - (let ((_$e12835_ (string? _e12830_))) - (if _$e12835_ - _$e12835_ - (let ((_$e12838_ (char? _e12830_))) - (if _$e12838_ - _$e12838_ - (let ((_$e12841_ (keyword? _e12830_))) - (if _$e12841_ - _$e12841_ - (let ((_$e12844_ (boolean? _e12830_))) - (if _$e12844_ - _$e12844_ - (eq? _e12830_ '#!void))))))))))))) - (define __AST-id? (lambda (_stx12826_) (symbol? (__AST-e _stx12826_)))) + (lambda (_stx13875_) + (let* ((_e13877_ (__AST-e _stx13875_)) (_$e13879_ (number? _e13877_))) + (if _$e13879_ + _$e13879_ + (let ((_$e13882_ (string? _e13877_))) + (if _$e13882_ + _$e13882_ + (let ((_$e13885_ (char? _e13877_))) + (if _$e13885_ + _$e13885_ + (let ((_$e13888_ (keyword? _e13877_))) + (if _$e13888_ + _$e13888_ + (let ((_$e13891_ (boolean? _e13877_))) + (if _$e13891_ + _$e13891_ + (eq? _e13877_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx13873_) (symbol? (__AST-e _stx13873_)))) (define __AST-id-list?__% - (lambda (_stx12777_ _tail?12778_) - (let _lp12780_ ((_rest12782_ _stx12777_)) - (let* ((_$e12784_ _rest12782_) - (_$E1278612799_ + (lambda (_stx13824_ _tail?13825_) + (let _lp13827_ ((_rest13829_ _stx13824_)) + (let* ((_$e13831_ _rest13829_) + (_$E1383313846_ (lambda () - (let* ((_$E1278712794_ + (let* ((_$E1383413841_ (lambda () (__raise-syntax-error '#f '"Bad syntax" - _$e12784_))) - (_rest12797_ _$e12784_)) - (_tail?12778_ _rest12797_))))) - (if (__AST-pair? _$e12784_) - (let* ((_$tgt1278812802_ (__AST-e _$e12784_)) - (_$hd1278912805_ (##car _$tgt1278812802_)) - (_$tl1279012808_ (##cdr _$tgt1278812802_))) - (let* ((_hd12812_ _$hd1278912805_) - (_rest12814_ _$tl1279012808_)) - (if (__AST-id? _hd12812_) (_lp12780_ _rest12814_) '#f))) - (_$E1278612799_)))))) + _$e13831_))) + (_rest13844_ _$e13831_)) + (_tail?13825_ _rest13844_))))) + (if (__AST-pair? _$e13831_) + (let* ((_$tgt1383513849_ (__AST-e _$e13831_)) + (_$hd1383613852_ (##car _$tgt1383513849_)) + (_$tl1383713855_ (##cdr _$tgt1383513849_))) + (let* ((_hd13859_ _$hd1383613852_) + (_rest13861_ _$tl1383713855_)) + (if (__AST-id? _hd13859_) (_lp13827_ _rest13861_) '#f))) + (_$E1383313846_)))))) (define __AST-id-list?__0 - (lambda (_stx12819_) - (let ((_tail?12821_ __AST-null?)) - (__AST-id-list?__% _stx12819_ _tail?12821_)))) + (lambda (_stx13866_) + (let ((_tail?13868_ __AST-null?)) + (__AST-id-list?__% _stx13866_ _tail?13868_)))) (define __AST-id-list? - (lambda _g13199_ - (let ((_g13198_ (##length _g13199_))) - (cond ((##fx= _g13198_ 1) (apply __AST-id-list?__0 _g13199_)) - ((##fx= _g13198_ 2) (apply __AST-id-list?__% _g13199_)) + (lambda _g14246_ + (let ((_g14245_ (##length _g14246_))) + (cond ((##fx= _g14245_ 1) + (apply (lambda (_stx13866_) (__AST-id-list?__0 _stx13866_)) + _g14246_)) + ((##fx= _g14245_ 2) + (apply (lambda (_stx13870_ _tail?13871_) + (__AST-id-list?__% _stx13870_ _tail?13871_)) + _g14246_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g13199_)))))) + _g14246_)))))) (define __AST-bind-list? - (lambda (_stx12769_) + (lambda (_stx13816_) (__AST-id-list?__% - _stx12769_ - (lambda (_e12771_) - (let ((_$e12773_ (__AST-null? _e12771_))) - (if _$e12773_ _$e12773_ (__AST-id? _e12771_))))))) + _stx13816_ + (lambda (_e13818_) + (let ((_$e13820_ (__AST-null? _e13818_))) + (if _$e13820_ _$e13820_ (__AST-id? _e13818_))))))) (define __AST-list?__% - (lambda (_stx12722_ _tail?12723_) - (let _lp12725_ ((_rest12727_ _stx12722_)) - (let* ((_$e12729_ _rest12727_) - (_$E1273112744_ + (lambda (_stx13769_ _tail?13770_) + (let _lp13772_ ((_rest13774_ _stx13769_)) + (let* ((_$e13776_ _rest13774_) + (_$E1377813791_ (lambda () - (let* ((_$E1273212739_ + (let* ((_$E1377913786_ (lambda () (__raise-syntax-error '#f '"Bad syntax" - _$e12729_))) - (_rest12742_ _$e12729_)) - (_tail?12723_ _rest12742_))))) - (if (__AST-pair? _$e12729_) - (let* ((_$tgt1273312747_ (__AST-e _$e12729_)) - (_$hd1273412750_ (##car _$tgt1273312747_)) - (_$tl1273512753_ (##cdr _$tgt1273312747_))) - (let ((_rest12757_ _$tl1273512753_)) - (_lp12725_ _rest12757_))) - (_$E1273112744_)))))) + _$e13776_))) + (_rest13789_ _$e13776_)) + (_tail?13770_ _rest13789_))))) + (if (__AST-pair? _$e13776_) + (let* ((_$tgt1378013794_ (__AST-e _$e13776_)) + (_$hd1378113797_ (##car _$tgt1378013794_)) + (_$tl1378213800_ (##cdr _$tgt1378013794_))) + (let ((_rest13804_ _$tl1378213800_)) + (_lp13772_ _rest13804_))) + (_$E1377813791_)))))) (define __AST-list?__0 - (lambda (_stx12762_) - (let ((_tail?12764_ __AST-null?)) - (__AST-list?__% _stx12762_ _tail?12764_)))) + (lambda (_stx13809_) + (let ((_tail?13811_ __AST-null?)) + (__AST-list?__% _stx13809_ _tail?13811_)))) (define __AST-list? - (lambda _g13201_ - (let ((_g13200_ (##length _g13201_))) - (cond ((##fx= _g13200_ 1) (apply __AST-list?__0 _g13201_)) - ((##fx= _g13200_ 2) (apply __AST-list?__% _g13201_)) + (lambda _g14248_ + (let ((_g14247_ (##length _g14248_))) + (cond ((##fx= _g14247_ 1) + (apply (lambda (_stx13809_) (__AST-list?__0 _stx13809_)) + _g14248_)) + ((##fx= _g14247_ 2) + (apply (lambda (_stx13813_ _tail?13814_) + (__AST-list?__% _stx13813_ _tail?13814_)) + _g14248_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g13201_)))))) + _g14248_)))))) (define __AST->list - (lambda (_stx12687_) - (let* ((_$e12689_ _stx12687_) - (_$E1269112704_ + (lambda (_stx13734_) + (let* ((_$e13736_ _stx13734_) + (_$E1373813751_ (lambda () - (let* ((_$E1269212699_ + (let* ((_$E1373913746_ (lambda () (__raise-syntax-error '#f '"Bad syntax" - _$e12689_))) - (_rest12702_ _$e12689_)) - (__AST-e _rest12702_))))) - (if (__AST-pair? _$e12689_) - (let* ((_$tgt1269312707_ (__AST-e _$e12689_)) - (_$hd1269412710_ (##car _$tgt1269312707_)) - (_$tl1269512713_ (##cdr _$tgt1269312707_))) - (let* ((_hd12717_ _$hd1269412710_) - (_rest12719_ _$tl1269512713_)) - (cons _hd12717_ (__AST->list _rest12719_)))) - (_$E1269112704_))))) + _$e13736_))) + (_rest13749_ _$e13736_)) + (__AST-e _rest13749_))))) + (if (__AST-pair? _$e13736_) + (let* ((_$tgt1374013754_ (__AST-e _$e13736_)) + (_$hd1374113757_ (##car _$tgt1374013754_)) + (_$tl1374213760_ (##cdr _$tgt1374013754_))) + (let* ((_hd13764_ _$hd1374113757_) + (_rest13766_ _$tl1374213760_)) + (cons _hd13764_ (__AST->list _rest13766_)))) + (_$E1373813751_))))) (define __AST->datum - (lambda (_stx12685_) - (if (##structure-instance-of? _stx12685_ 'gerbil#AST::t) - (__AST->datum (__AST-e _stx12685_)) - (if (pair? _stx12685_) - (cons (__AST->datum (car _stx12685_)) - (__AST->datum (cdr _stx12685_))) - (if (vector? _stx12685_) - (vector-map __AST->datum _stx12685_) - (if (box? _stx12685_) - (box (__AST->datum (unbox _stx12685_))) - _stx12685_)))))) + (lambda (_stx13732_) + (if (##structure-instance-of? _stx13732_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx13732_)) + (if (pair? _stx13732_) + (cons (__AST->datum (car _stx13732_)) + (__AST->datum (cdr _stx13732_))) + (if (vector? _stx13732_) + (vector-map __AST->datum _stx13732_) + (if (box? _stx13732_) + (box (__AST->datum (unbox _stx13732_))) + _stx13732_)))))) (define get-readenv - (lambda (_port12683_) + (lambda (_port13730_) (##make-readenv - _port12683_ + _port13730_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -345,80 +355,83 @@ '() '#f))) (define read-syntax__% - (lambda (_in12671_) - (let ((_e12673_ (##read-datum-or-eof (get-readenv _in12671_)))) - (if (eof-object? (__AST-e _e12673_)) (__AST-e _e12673_) _e12673_)))) + (lambda (_in13718_) + (let ((_e13720_ (##read-datum-or-eof (get-readenv _in13718_)))) + (if (eof-object? (__AST-e _e13720_)) (__AST-e _e13720_) _e13720_)))) (define read-syntax__0 (lambda () - (let ((_in12679_ (current-input-port))) (read-syntax__% _in12679_)))) + (let ((_in13726_ (current-input-port))) (read-syntax__% _in13726_)))) (define read-syntax - (lambda _g13203_ - (let ((_g13202_ (##length _g13203_))) - (cond ((##fx= _g13202_ 0) (apply read-syntax__0 _g13203_)) - ((##fx= _g13202_ 1) (apply read-syntax__% _g13203_)) + (lambda _g14250_ + (let ((_g14249_ (##length _g14250_))) + (cond ((##fx= _g14249_ 0) + (apply (lambda () (read-syntax__0)) _g14250_)) + ((##fx= _g14249_ 1) + (apply (lambda (_in13728_) (read-syntax__% _in13728_)) + _g14250_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g13203_)))))) + _g14250_)))))) (define read-syntax-from-file - (lambda (_path12666_) - (let ((_r12668_ + (lambda (_path13713_) + (let ((_r13715_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path12666_) + (path-normalize _path13713_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r12668_) - (cdr (__AST-e (vector-ref _r12668_ '1))) - (error (err-code->string _r12668_) _path12666_))))) + (if (vector? _r13715_) + (cdr (__AST-e (vector-ref _r13715_ '1))) + (error (err-code->string _r13715_) _path13713_))))) (define __wrap-syntax - (lambda (_re12663_ _e12664_) - (if (eof-object? _e12664_) - _e12664_ - (##structure AST::t _e12664_ (##readenv->locat _re12663_))))) - (define __unwrap-syntax (lambda (_re12660_ _e12661_) (__AST-e _e12661_))) - (define __pp-syntax (lambda (_stx12658_) (pp (__AST->datum _stx12658_)))) + (lambda (_re13710_ _e13711_) + (if (eof-object? _e13711_) + _e13711_ + (##structure AST::t _e13711_ (##readenv->locat _re13710_))))) + (define __unwrap-syntax (lambda (_re13707_ _e13708_) (__AST-e _e13708_))) + (define __pp-syntax (lambda (_stx13705_) (pp (__AST->datum _stx13705_)))) (define __make-readtable (lambda () - (let ((_rt12656_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _rt12656_ '#t) - (macro-readtable-bracket-handler-set! _rt12656_ '@list) - (macro-readtable-brace-handler-set! _rt12656_ '@method) + (let ((_rt13703_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt13703_ '#t) + (macro-readtable-bracket-handler-set! _rt13703_ '@list) + (macro-readtable-brace-handler-set! _rt13703_ '@method) (##readtable-char-sharp-handler-set! - _rt12656_ + _rt13703_ '#\! __read-sharp-bang) - _rt12656_))) + _rt13703_))) (define __readtable-bracket-keyword-set! - (lambda (_rt12652_ _kw12653_) - (macro-readtable-bracket-handler-set! _rt12652_ _kw12653_))) + (lambda (_rt13699_ _kw13700_) + (macro-readtable-bracket-handler-set! _rt13699_ _kw13700_))) (define __readtable-brace-keyword-set! - (lambda (_rt12649_ _kw12650_) - (macro-readtable-brace-handler-set! _rt12649_ _kw12650_))) + (lambda (_rt13696_ _kw13697_) + (macro-readtable-brace-handler-set! _rt13696_ _kw13697_))) (define __read-sharp-bang - (lambda (_re12640_ _next12641_ _start-pos12642_) - (if (eq? _start-pos12642_ '0) - (let* ((_line12644_ + (lambda (_re13687_ _next13688_ _start-pos13689_) + (if (eq? _start-pos13689_ '0) + (let* ((_line13691_ (##read-line - (macro-readenv-port _re12640_) + (macro-readenv-port _re13687_) '#\newline '#f ##max-fixnum)) - (_script-line12646_ - (substring _line12644_ '1 (string-length _line12644_)))) - (macro-readenv-script-line-set! _re12640_ _script-line12646_) + (_script-line13693_ + (substring _line13691_ '1 (string-length _line13691_)))) + (macro-readenv-script-line-set! _re13687_ _script-line13693_) (##script-marker)) - (##read-sharp-bang _re12640_ _next12641_ _start-pos12642_)))) + (##read-sharp-bang _re13687_ _next13688_ _start-pos13689_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj12638_) - (if (source-location? _obj12638_) - (string? (##locat-container _obj12638_)) + (lambda (_obj13685_) + (if (source-location? _obj13685_) + (string? (##locat-container _obj13685_)) '#f))) (define source-location-path - (lambda (_obj12636_) - (if (##locat? _obj12636_) - (##container->path (##locat-container _obj12636_)) + (lambda (_obj13683_) + (if (##locat? _obj13683_) + (##container->path (##locat-container _obj13683_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__1.scm b/src/bootstrap/gerbil/runtime/syntax__1.scm index dda97084a..c29f1cba1 100644 --- a/src/bootstrap/gerbil/runtime/syntax__1.scm +++ b/src/bootstrap/gerbil/runtime/syntax__1.scm @@ -1,1113 +1,1432 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g13208_| + (define |[1]#_g14355_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g13209_| + (define |[1]#_g14361_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g13210_| + (define |[1]#_g14374_| (##structure gx#syntax-quote::t - 'Exception::t + 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g13211_| + (define |[1]#_g14376_| (##structure gx#syntax-quote::t - 'make-SyntaxError + 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g13212_| + (define |[1]#_g14378_| (##structure gx#syntax-quote::t - 'SyntaxError? + 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g13213_| + (define |[1]#_g14380_| (##structure gx#syntax-quote::t - 'SyntaxError-message + 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g13214_| + (define |[1]#_g14382_| (##structure gx#syntax-quote::t - 'SyntaxError-irritants + 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g13215_| + (define |[1]#_g14384_| (##structure gx#syntax-quote::t - 'SyntaxError-where + 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g13216_| + (define |[1]#_g14392_| (##structure gx#syntax-quote::t - 'SyntaxError-context + 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g13217_| + (define |[1]#_g14394_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g13218_| + (define |[1]#_g14396_| (##structure gx#syntax-quote::t - 'SyntaxError-marks + 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g13219_| + (define |[1]#_g14398_| (##structure gx#syntax-quote::t - 'SyntaxError-message-set! + 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g13220_| + (define |[1]#_g14400_| (##structure gx#syntax-quote::t - 'SyntaxError-irritants-set! + 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g13221_| + (define |[1]#_g14402_| (##structure gx#syntax-quote::t - 'SyntaxError-where-set! + 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g13222_| + (define |[1]#_g14404_| (##structure gx#syntax-quote::t - 'SyntaxError-context-set! + 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g13223_| + (define |[1]#_g14406_| (##structure gx#syntax-quote::t - 'SyntaxError-phi-set! + 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g13224_| + (define |[1]#_g14410_| (##structure gx#syntax-quote::t - 'SyntaxError-marks-set! + 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g13225_| + (define |[1]#_g14411_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g13226_| + (define |[1]#_g14412_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g13227_| + (define |[1]#_g14421_| (##structure gx#syntax-quote::t - 'make-AST + 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g13228_| + (define |[1]#_g14423_| (##structure gx#syntax-quote::t - 'AST? + 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g13229_| + (define |[1]#_g14427_| (##structure gx#syntax-quote::t - 'AST-e + 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g13230_| + (define |[1]#_g14429_| (##structure gx#syntax-quote::t - 'AST-source + 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g13231_| + (define |[1]#_g14431_| (##structure gx#syntax-quote::t - 'AST-e-set! + 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g13232_| + (define |[1]#_g14433_| (##structure gx#syntax-quote::t - 'AST-source-set! + 'make-AST #f (gx#current-expander-context) '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx11525_) - (let* ((_g1152911553_ - (lambda (_g1153011549_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1153011549_))) - (_g1152811639_ - (lambda (_g1153011557_) - (if (gx#stx-pair? _g1153011557_) - (let ((_e1153311560_ (gx#syntax-e _g1153011557_))) - (let ((_hd1153411564_ + (lambda (_$stx12572_) + (let* ((_g1257612600_ + (lambda (_g1257712596_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1257712596_))) + (_g1257512686_ + (lambda (_g1257712604_) + (if (gx#stx-pair? _g1257712604_) + (let ((_e1258212607_ (gx#syntax-e _g1257712604_))) + (let ((_hd1258112611_ (let () (declare (not safe)) - (##car _e1153311560_))) - (_tl1153511567_ + (##car _e1258212607_))) + (_tl1258012614_ (let () (declare (not safe)) - (##cdr _e1153311560_)))) - (if (gx#stx-pair? _tl1153511567_) - (let ((_e1153611570_ - (gx#syntax-e _tl1153511567_))) - (let ((_hd1153711574_ + (##cdr _e1258212607_)))) + (if (gx#stx-pair? _tl1258012614_) + (let ((_e1258512617_ + (gx#syntax-e _tl1258012614_))) + (let ((_hd1258412621_ (let () (declare (not safe)) - (##car _e1153611570_))) - (_tl1153811577_ + (##car _e1258512617_))) + (_tl1258312624_ (let () (declare (not safe)) - (##cdr _e1153611570_)))) - (if (gx#stx-pair/null? _tl1153811577_) - (let ((_g13204_ + (##cdr _e1258512617_)))) + (if (gx#stx-pair/null? _tl1258312624_) + (let ((_g14251_ (gx#syntax-split-splice - _tl1153811577_ + _tl1258312624_ '0))) (begin - (let ((_g13205_ + (let ((_g14252_ (let () (declare (not safe)) - (if (##values? _g13204_) + (if (##values? _g14251_) (##vector-length - _g13204_) + _g14251_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g13205_ 2))) + (##fx= _g14252_ 2))) (error "Context expects 2 values" - _g13205_))) - (let ((_target1153911580_ + _g14252_))) + (let ((_target1258612627_ (let () (declare (not safe)) - (##vector-ref _g13204_ 0))) - (_tl1154111583_ + (##vector-ref _g14251_ 0))) + (_tl1258812630_ (let () (declare (not safe)) - (##vector-ref _g13204_ 1)))) - (if (gx#stx-null? _tl1154111583_) - (letrec ((_loop1154211586_ - (lambda (_hd1154011590_ + (##vector-ref _g14251_ 1)))) + (if (gx#stx-null? _tl1258812630_) + (letrec ((_loop1258912633_ + (lambda (_hd1258712637_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body1154611593_) - (if (gx#stx-pair? _hd1154011590_) - (let ((_e1154311596_ (gx#syntax-e _hd1154011590_))) - (let ((_lp-hd1154411600_ + _body1259312640_) + (if (gx#stx-pair? _hd1258712637_) + (let ((_e1259012643_ (gx#syntax-e _hd1258712637_))) + (let ((_lp-hd1259112647_ (let () (declare (not safe)) - (##car _e1154311596_))) - (_lp-tl1154511603_ + (##car _e1259012643_))) + (_lp-tl1259212650_ (let () (declare (not safe)) - (##cdr _e1154311596_)))) - (_loop1154211586_ - _lp-tl1154511603_ - (cons _lp-hd1154411600_ _body1154611593_)))) - (let ((_body1154711606_ (reverse _body1154611593_))) - ((lambda (_L11610_ _L11612_) - (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax '#f '$e) - (cons _L11612_ '())) - (cons (cons (gx#datum->syntax - '#f - 'core-ast-case%) - (cons (gx#datum->syntax - '#f - '$e) - (foldr1 (lambda (_g1163011633_ + (##cdr _e1259012643_)))) + (_loop1258912633_ + _lp-tl1259212650_ + (let () + (declare (not safe)) + (cons _lp-hd1259112647_ _body1259312640_))))) + (let ((_body1259412653_ + (let () + (declare (not safe)) + (reverse _body1259312640_)))) + ((lambda (_L12657_ _L12659_) + (let ((__tmp14264 (gx#datum->syntax '#f 'let)) + (__tmp14253 + (let ((__tmp14261 + (let ((__tmp14263 + (gx#datum->syntax '#f '$e)) + (__tmp14262 + (let () + (declare (not safe)) + (cons _L12659_ '())))) + (declare (not safe)) + (cons __tmp14263 __tmp14262))) + (__tmp14254 + (let ((__tmp14255 + (let ((__tmp14260 + (gx#datum->syntax + '#f + 'core-ast-case%)) + (__tmp14256 + (let ((__tmp14259 + (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1163111636_) - (cons _g1163011633_ _g1163111636_)) - '() - _L11610_))) + '#f + '$e)) + (__tmp14257 + (let ((__tmp14258 + (lambda (_g1267712680_ _g1267812683_) + (let () + (declare (not safe)) + (cons _g1267712680_ _g1267812683_))))) + (declare (not safe)) + (foldr1 __tmp14258 '() _L12657_)))) + (declare (not safe)) + (cons __tmp14259 __tmp14257)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - _body1154711606_ - _hd1153711574_)))))) + (declare (not safe)) + (cons __tmp14260 + __tmp14256)))) + (declare (not safe)) + (cons __tmp14255 '())))) + (declare (not safe)) + (cons __tmp14261 __tmp14254)))) + (declare (not safe)) + (cons __tmp14264 __tmp14253))) + _body1259412653_ + _hd1258412621_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1154211586_ - _target1153911580_ + (_loop1258912633_ + _target1258612627_ '())) - (_g1152911553_ - _g1153011557_))))) - (_g1152911553_ _g1153011557_)))) - (_g1152911553_ _g1153011557_)))) - (_g1152911553_ _g1153011557_))))) - (_g1152811639_ _$stx11525_)))) + (_g1257612600_ + _g1257712604_))))) + (_g1257612600_ _g1257712604_)))) + (_g1257612600_ _g1257712604_)))) + (_g1257612600_ _g1257712604_))))) + (_g1257512686_ _$stx12572_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx11644_) - (letrec ((_generate111647_ - (lambda (_hd12188_ _tgt12190_ _K12191_ _E12192_ _kws12193_) - (let* ((_g1219512203_ - (lambda (_g1219612199_) + (lambda (_stx12691_) + (letrec ((_generate112694_ + (lambda (_hd13235_ _tgt13237_ _K13238_ _E13239_ _kws13240_) + (let* ((_g1324213250_ + (lambda (_g1324313246_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1219612199_))) - (_g1219412630_ - (lambda (_g1219612207_) - ((lambda (_L12210_) + _g1324313246_))) + (_g1324113677_ + (lambda (_g1324313254_) + ((lambda (_L13257_) (let () - (let* ((___stx1310713108_ _hd12188_) - (_g1222412238_ + (let* ((___stx1415414155_ _hd13235_) + (_g1327113285_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx1310713108_)))) - (let ((___kont1311013111_ - (lambda (_L12452_ _L12454_) - (let* ((_g1246512473_ - (lambda (_g1246612469_) + ___stx1415414155_)))) + (let ((___kont1415714158_ + (lambda (_L13499_ _L13501_) + (let* ((_g1351213520_ + (lambda (_g1351313516_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1246612469_))) - (_g1246412622_ - (lambda (_g1246612477_) - ((lambda (_L12480_) + _g1351313516_))) + (_g1351113669_ + (lambda (_g1351313524_) + ((lambda (_L13527_) (let () - (let* ((_g1249212500_ + (let* ((_g1353913547_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1249312496_) + (lambda (_g1354013543_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1249312496_))) - (_g1249112618_ - (lambda (_g1249312504_) - ((lambda (_L12507_) + _g1354013543_))) + (_g1353813665_ + (lambda (_g1354013551_) + ((lambda (_L13554_) (let () - (let* ((_g1252012528_ - (lambda (_g1252112524_) + (let* ((_g1356713575_ + (lambda (_g1356813571_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1252112524_))) - (_g1251912614_ - (lambda (_g1252112532_) - ((lambda (_L12535_) + _g1356813571_))) + (_g1356613661_ + (lambda (_g1356813579_) + ((lambda (_L13582_) (let () - (let* ((_g1254812556_ - (lambda (_g1254912552_) + (let* ((_g1359513603_ + (lambda (_g1359613599_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1254912552_))) - (_g1254712610_ - (lambda (_g1254912560_) - ((lambda (_L12563_) + _g1359613599_))) + (_g1359413657_ + (lambda (_g1359613607_) + ((lambda (_L13610_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g1257612584_ - (lambda (_g1257712580_) + (let* ((_g1362313631_ + (lambda (_g1362413627_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1257712580_))) - (_g1257512606_ - (lambda (_g1257712588_) - ((lambda (_L12591_) + _g1362413627_))) + (_g1362213653_ + (lambda (_g1362413635_) + ((lambda (_L13638_) (let () (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - '__AST-pair?) - (cons _L12210_ + (let ((__tmp14293 + (gx#datum->syntax '#f 'if)) + (__tmp14265 + (let ((__tmp14290 + (let ((__tmp14292 + (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons (gx#datum->syntax '#f 'let*) - (cons (cons (cons _L12480_ - (cons (cons (gx#datum->syntax - '#f - '__AST-e) - (cons _L12210_ '())) - '())) - (cons (cons _L12507_ - (cons (cons (gx#datum->syntax - '#f - '##car) - (cons _L12480_ + '#f + '__AST-pair?)) + (__tmp14291 + (let () (declare (not safe)) (cons _L13257_ '())))) + (declare (not safe)) + (cons __tmp14292 __tmp14291))) + (__tmp14266 + (let ((__tmp14268 + (let ((__tmp14289 (gx#datum->syntax '#f 'let*)) + (__tmp14269 + (let ((__tmp14271 + (let ((__tmp14284 + (let ((__tmp14285 + (let ((__tmp14286 + (let ((__tmp14288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())) + (gx#datum->syntax '#f '__AST-e)) + (__tmp14287 + (let () (declare (not safe)) (cons _L13257_ '())))) + (declare (not safe)) + (cons __tmp14288 __tmp14287)))) + (declare (not safe)) + (cons __tmp14286 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L12535_ - (cons (cons (gx#datum->syntax + (declare (not safe)) + (cons _L13527_ __tmp14285))) + (__tmp14272 + (let ((__tmp14279 + (let ((__tmp14280 + (let ((__tmp14281 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##cdr) - (cons _L12480_ '())) - '())) + (let ((__tmp14283 (gx#datum->syntax '#f '##car)) + (__tmp14282 + (let () + (declare (not safe)) + (cons _L13527_ '())))) + (declare (not safe)) + (cons __tmp14283 __tmp14282)))) + (declare (not safe)) + (cons __tmp14281 '())))) + (declare (not safe)) + (cons _L13554_ __tmp14280))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp14273 + (let ((__tmp14274 + (let ((__tmp14275 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp14276 + (let ((__tmp14278 + (gx#datum->syntax '#f '##cdr)) + (__tmp14277 + (let () + (declare (not safe)) + (cons _L13527_ '())))) + (declare (not safe)) + (cons __tmp14278 __tmp14277)))) + (declare (not safe)) + (cons __tmp14276 '())))) + (declare (not safe)) + (cons _L13582_ __tmp14275)))) + (declare (not safe)) + (cons __tmp14274 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons _L12563_ '()))) - (cons _L12591_ '()))))))) + (declare (not safe)) + (cons __tmp14279 __tmp14273)))) + (declare (not safe)) + (cons __tmp14284 __tmp14272))) + (__tmp14270 + (let () + (declare (not safe)) + (cons _L13610_ '())))) + (declare (not safe)) + (cons __tmp14271 __tmp14270)))) + (declare (not safe)) + (cons __tmp14289 __tmp14269))) + (__tmp14267 + (let () (declare (not safe)) (cons _L13638_ '())))) + (declare (not safe)) + (cons __tmp14268 __tmp14267)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1257712588_)))) - (_g1257512606_ _E12192_)))) - _g1254912560_)))) + (declare (not safe)) + (cons __tmp14290 + __tmp14266)))) + (declare (not safe)) + (cons __tmp14293 __tmp14265))))) + _g1362413635_)))) + (_g1362213653_ _E13239_)))) + _g1359613607_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1254712610_ - (_generate111647_ - _L12454_ - _L12507_ - (_generate111647_ - _L12452_ - _L12535_ - _K12191_ - _E12192_ - _kws12193_) - _E12192_ - _kws12193_))))) - _g1252112532_)))) - (_g1251912614_ (gx#genident '$tl))))) - _g1249312504_)))) - (_g1249112618_ (gx#genident '$hd))))) - _g1246612477_)))) + (_g1359413657_ + (_generate112694_ + _L13501_ + _L13554_ + (_generate112694_ + _L13499_ + _L13582_ + _K13238_ + _E13239_ + _kws13240_) + _E13239_ + _kws13240_))))) + _g1356813579_)))) + (_g1356613661_ (gx#genident '$tl))))) + _g1354013551_)))) + (_g1353813665_ (gx#genident '$hd))))) + _g1351313524_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1246412622_ + (_g1351113669_ (gx#genident '$tgt))))) - (___kont1311213113_ - (lambda (_L12327_) - (if (gx#underscore? _L12327_) - _K12191_ - (if (find (lambda (_g1233512337_) - (gx#bound-identifier=? - _g1233512337_ - _L12327_)) - (gx#syntax->list - _kws12193_)) - (let* ((_g1234112356_ - (lambda (_g1234212352_) + (___kont1415914160_ + (lambda (_L13374_) + (if (gx#underscore? _L13374_) + _K13238_ + (if (let ((__tmp14322 + (lambda (_g1338213384_) + (gx#bound-identifier=? + _g1338213384_ + _L13374_))) + (__tmp14321 + (gx#syntax->list + _kws13240_))) + (declare (not safe)) + (find __tmp14322 + __tmp14321)) + (let* ((_g1338813403_ + (lambda (_g1338913399_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax" - _g1234212352_))) - (_g1234012401_ - (lambda (_g1234212360_) - (if (gx#stx-pair? _g1234212360_) - (let ((_e1234512363_ (gx#syntax-e _g1234212360_))) - (let ((_hd1234612367_ + _g1338913399_))) + (_g1338713448_ + (lambda (_g1338913407_) + (if (gx#stx-pair? _g1338913407_) + (let ((_e1339413410_ (gx#syntax-e _g1338913407_))) + (let ((_hd1339313414_ (let () (declare (not safe)) - (##car _e1234512363_))) - (_tl1234712370_ + (##car _e1339413410_))) + (_tl1339213417_ (let () (declare (not safe)) - (##cdr _e1234512363_)))) - (if (gx#stx-pair? _tl1234712370_) - (let ((_e1234812373_ - (gx#syntax-e _tl1234712370_))) - (let ((_hd1234912377_ + (##cdr _e1339413410_)))) + (if (gx#stx-pair? _tl1339213417_) + (let ((_e1339713420_ + (gx#syntax-e _tl1339213417_))) + (let ((_hd1339613424_ (let () (declare (not safe)) - (##car _e1234812373_))) - (_tl1235012380_ + (##car _e1339713420_))) + (_tl1339513427_ (let () (declare (not safe)) - (##cdr _e1234812373_)))) - (if (gx#stx-null? _tl1235012380_) - ((lambda (_L12383_ _L12385_) + (##cdr _e1339713420_)))) + (if (gx#stx-null? _tl1339513427_) + ((lambda (_L13430_ _L13432_) (let () - (cons (gx#datum->syntax - '#f - 'if) - (cons (cons (gx#datum->syntax + (let ((__tmp14320 + (gx#datum->syntax + '#f + 'if)) + (__tmp14300 + (let ((__tmp14303 + (let ((__tmp14319 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'and) - (cons (cons (gx#datum->syntax '#f '__AST-id?) - (cons _L12210_ '())) - (cons (cons (gx#datum->syntax '#f 'eq?) - (cons (cons (gx#datum->syntax - '#f - '__AST-e) - (cons _L12210_ '())) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _L12327_ + (gx#datum->syntax '#f 'and)) + (__tmp14304 + (let ((__tmp14316 + (let ((__tmp14318 + (gx#datum->syntax '#f '__AST-id?)) + (__tmp14317 + (let () + (declare (not safe)) + (cons _L13257_ '())))) + (declare (not safe)) + (cons __tmp14318 __tmp14317))) + (__tmp14305 + (let ((__tmp14306 + (let ((__tmp14315 + (gx#datum->syntax '#f 'eq?)) + (__tmp14307 + (let ((__tmp14312 + (let ((__tmp14314 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))) + (gx#datum->syntax '#f '__AST-e)) + (__tmp14313 + (let () (declare (not safe)) (cons _L13257_ '())))) + (declare (not safe)) + (cons __tmp14314 __tmp14313))) + (__tmp14308 + (let ((__tmp14309 + (let ((__tmp14311 (gx#datum->syntax '#f 'quote)) + (__tmp14310 + (let () + (declare (not safe)) + (cons _L13374_ '())))) + (declare (not safe)) + (cons __tmp14311 __tmp14310)))) + (declare (not safe)) + (cons __tmp14309 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons _L12385_ (cons _L12383_ '())))))) + (declare (not safe)) + (cons __tmp14312 + __tmp14308)))) + (declare (not safe)) + (cons __tmp14315 __tmp14307)))) + (declare (not safe)) + (cons __tmp14306 '())))) + (declare (not safe)) + (cons __tmp14316 __tmp14305)))) + (declare (not safe)) + (cons __tmp14319 __tmp14304))) + (__tmp14301 + (let ((__tmp14302 + (let () + (declare (not safe)) + (cons _L13430_ '())))) + (declare (not safe)) + (cons _L13432_ __tmp14302)))) + (declare (not safe)) + (cons __tmp14303 __tmp14301)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1234912377_ - _hd1234612367_) - (_g1234112356_ _g1234212360_)))) - (_g1234112356_ _g1234212360_)))) - (_g1234112356_ _g1234212360_))))) - (_g1234012401_ (list _K12191_ _E12192_))) - (let* ((_g1240512413_ - (lambda (_g1240612409_) + (declare (not safe)) + (cons __tmp14320 + __tmp14300)))) + _hd1339613424_ + _hd1339313414_) + (_g1338813403_ _g1338913407_)))) + (_g1338813403_ _g1338913407_)))) + (_g1338813403_ _g1338913407_))))) + (_g1338713448_ (list _K13238_ _E13239_))) + (let* ((_g1345213460_ + (lambda (_g1345313456_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1240612409_))) - (_g1240412431_ - (lambda (_g1240612417_) - ((lambda (_L12420_) + _g1345313456_))) + (_g1345113478_ + (lambda (_g1345313464_) + ((lambda (_L13467_) (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L12327_ - (cons _L12210_ '())) - '()) - (cons _L12420_ '()))))) - _g1240612417_)))) - (_g1240412431_ _K12191_)))))) + (let ((__tmp14299 (gx#datum->syntax '#f 'let)) + (__tmp14294 + (let ((__tmp14296 + (let ((__tmp14297 + (let ((__tmp14298 + (let () + (declare (not safe)) + (cons _L13257_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L13374_ + __tmp14298)))) + (declare (not safe)) + (cons __tmp14297 '()))) + (__tmp14295 + (let () + (declare (not safe)) + (cons _L13467_ '())))) + (declare (not safe)) + (cons __tmp14296 __tmp14295)))) + (declare (not safe)) + (cons __tmp14299 __tmp14294)))) + _g1345313464_)))) + (_g1345113478_ _K13238_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1311413115_ - (lambda (_L12245_) - (let* ((_g1225612271_ - (lambda (_g1225712267_) + (___kont1416114162_ + (lambda (_L13292_) + (let* ((_g1330313318_ + (lambda (_g1330413314_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1225712267_))) - (_g1225512316_ - (lambda (_g1225712275_) + _g1330413314_))) + (_g1330213363_ + (lambda (_g1330413322_) (if (gx#stx-pair? - _g1225712275_) - (let ((_e1226012278_ + _g1330413322_) + (let ((_e1330913325_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1225712275_))) - (let ((_hd1226112282_ + (gx#syntax-e _g1330413322_))) + (let ((_hd1330813329_ (let () (declare (not safe)) - (##car _e1226012278_))) - (_tl1226212285_ + (##car _e1330913325_))) + (_tl1330713332_ (let () (declare (not safe)) - (##cdr _e1226012278_)))) - (if (gx#stx-pair? _tl1226212285_) - (let ((_e1226312288_ (gx#syntax-e _tl1226212285_))) - (let ((_hd1226412292_ + (##cdr _e1330913325_)))) + (if (gx#stx-pair? _tl1330713332_) + (let ((_e1331213335_ (gx#syntax-e _tl1330713332_))) + (let ((_hd1331113339_ (let () (declare (not safe)) - (##car _e1226312288_))) - (_tl1226512295_ + (##car _e1331213335_))) + (_tl1331013342_ (let () (declare (not safe)) - (##cdr _e1226312288_)))) - (if (gx#stx-null? _tl1226512295_) - ((lambda (_L12298_ _L12300_) + (##cdr _e1331213335_)))) + (if (gx#stx-null? _tl1331013342_) + ((lambda (_L13345_ _L13347_) (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'equal?) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '__AST-e) - (cons _L12210_ '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L12245_ '())) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L12300_ - (cons _L12298_ + (let ((__tmp14336 + (gx#datum->syntax '#f 'if)) + (__tmp14323 + (let ((__tmp14326 + (let ((__tmp14335 + (gx#datum->syntax + '#f + 'equal?)) + (__tmp14327 + (let ((__tmp14332 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))) + (let ((__tmp14334 (gx#datum->syntax '#f '__AST-e)) + (__tmp14333 + (let () + (declare (not safe)) + (cons _L13257_ '())))) + (declare (not safe)) + (cons __tmp14334 __tmp14333))) + (__tmp14328 + (let ((__tmp14329 + (let ((__tmp14331 + (gx#datum->syntax '#f 'quote)) + (__tmp14330 + (let () + (declare (not safe)) + (cons _L13292_ '())))) + (declare (not safe)) + (cons __tmp14331 __tmp14330)))) + (declare (not safe)) + (cons __tmp14329 '())))) + (declare (not safe)) + (cons __tmp14332 __tmp14328)))) + (declare (not safe)) + (cons __tmp14335 __tmp14327))) + (__tmp14324 + (let ((__tmp14325 + (let () (declare (not safe)) (cons _L13345_ '())))) + (declare (not safe)) + (cons _L13347_ __tmp14325)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1226412292_ - _hd1226112282_) - (_g1225612271_ _g1225712275_)))) - (_g1225612271_ _g1225712275_)))) - (_g1225612271_ _g1225712275_))))) + (declare (not safe)) + (cons __tmp14326 + __tmp14324)))) + (declare (not safe)) + (cons __tmp14336 __tmp14323)))) + _hd1331113339_ + _hd1330813329_) + (_g1330313318_ _g1330413322_)))) + (_g1330313318_ _g1330413322_)))) + (_g1330313318_ _g1330413322_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1225512316_ - (list _K12191_ _E12192_)))))) - (let ((_g1222212435_ + (_g1330213363_ + (list _K13238_ _E13239_)))))) + (let ((_g1326913482_ (lambda () - (let ((_L12327_ - ___stx1310713108_)) - (if (gx#identifier? _L12327_) - (___kont1311213113_ - _L12327_) - (___kont1311413115_ - ___stx1310713108_)))))) - (if (gx#stx-pair? ___stx1310713108_) - (let ((_e1222812442_ + (let ((_L13374_ + ___stx1415414155_)) + (if (gx#identifier? _L13374_) + (___kont1415914160_ + _L13374_) + (___kont1416114162_ + ___stx1415414155_)))))) + (if (gx#stx-pair? ___stx1415414155_) + (let ((_e1327713489_ (gx#syntax-e - ___stx1310713108_))) - (let ((_tl1223012449_ + ___stx1415414155_))) + (let ((_tl1327513496_ (let () (declare (not safe)) - (##cdr _e1222812442_))) - (_hd1222912446_ + (##cdr _e1327713489_))) + (_hd1327613493_ (let () (declare (not safe)) - (##car _e1222812442_)))) - (___kont1311013111_ - _tl1223012449_ - _hd1222912446_))) - (_g1222212435_))))))) - _g1219612207_)))) - (_g1219412630_ _tgt12190_))))) - (let* ((_g1165011678_ - (lambda (_g1165111674_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1165111674_))) - (_g1164912184_ - (lambda (_g1165111682_) - (if (gx#stx-pair? _g1165111682_) - (let ((_e1165511685_ (gx#syntax-e _g1165111682_))) - (let ((_hd1165611689_ + (##car _e1327713489_)))) + (___kont1415714158_ + _tl1327513496_ + _hd1327613493_))) + (let () + (declare (not safe)) + (_g1326913482_)))))))) + _g1324313254_)))) + (_g1324113677_ _tgt13237_))))) + (let* ((_g1269712725_ + (lambda (_g1269812721_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1269812721_))) + (_g1269613231_ + (lambda (_g1269812729_) + (if (gx#stx-pair? _g1269812729_) + (let ((_e1270412732_ (gx#syntax-e _g1269812729_))) + (let ((_hd1270312736_ (let () (declare (not safe)) - (##car _e1165511685_))) - (_tl1165711692_ + (##car _e1270412732_))) + (_tl1270212739_ (let () (declare (not safe)) - (##cdr _e1165511685_)))) - (if (gx#stx-pair? _tl1165711692_) - (let ((_e1165811695_ - (gx#syntax-e _tl1165711692_))) - (let ((_hd1165911699_ + (##cdr _e1270412732_)))) + (if (gx#stx-pair? _tl1270212739_) + (let ((_e1270712742_ + (gx#syntax-e _tl1270212739_))) + (let ((_hd1270612746_ (let () (declare (not safe)) - (##car _e1165811695_))) - (_tl1166011702_ + (##car _e1270712742_))) + (_tl1270512749_ (let () (declare (not safe)) - (##cdr _e1165811695_)))) - (if (gx#stx-pair? _tl1166011702_) - (let ((_e1166111705_ - (gx#syntax-e _tl1166011702_))) - (let ((_hd1166211709_ + (##cdr _e1270712742_)))) + (if (gx#stx-pair? _tl1270512749_) + (let ((_e1271012752_ + (gx#syntax-e _tl1270512749_))) + (let ((_hd1270912756_ (let () (declare (not safe)) - (##car _e1166111705_))) - (_tl1166311712_ + (##car _e1271012752_))) + (_tl1270812759_ (let () (declare (not safe)) - (##cdr _e1166111705_)))) + (##cdr _e1271012752_)))) (if (gx#stx-pair/null? - _tl1166311712_) - (let ((_g13206_ + _tl1270812759_) + (let ((_g14337_ (gx#syntax-split-splice - _tl1166311712_ + _tl1270812759_ '0))) (begin - (let ((_g13207_ + (let ((_g14338_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g13206_) - (##vector-length _g13206_) + _g14337_) + (##vector-length _g14337_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g13207_ 2))) - (error "Context expects 2 values" _g13207_))) + (if (not (let () (declare (not safe)) (##fx= _g14338_ 2))) + (error "Context expects 2 values" _g14338_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1166411715_ + (let ((_target1271112762_ (let () (declare (not safe)) (##vector-ref - _g13206_ + _g14337_ 0))) - (_tl1166611718_ + (_tl1271312765_ (let () (declare (not safe)) (##vector-ref - _g13206_ + _g14337_ 1)))) (if (gx#stx-null? - _tl1166611718_) - (letrec ((_loop1166711721_ + _tl1271312765_) + (letrec ((_loop1271412768_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1166511725_ _clause1167111728_) - (if (gx#stx-pair? _hd1166511725_) - (let ((_e1166811731_ - (gx#syntax-e _hd1166511725_))) - (let ((_lp-hd1166911735_ + (lambda (_hd1271212772_ _clause1271812775_) + (if (gx#stx-pair? _hd1271212772_) + (let ((_e1271512778_ + (gx#syntax-e _hd1271212772_))) + (let ((_lp-hd1271612782_ (let () (declare (not safe)) - (##car _e1166811731_))) - (_lp-tl1167011738_ + (##car _e1271512778_))) + (_lp-tl1271712785_ (let () (declare (not safe)) - (##cdr _e1166811731_)))) - (_loop1166711721_ - _lp-tl1167011738_ - (cons _lp-hd1166911735_ - _clause1167111728_)))) - (let ((_clause1167211741_ - (reverse _clause1167111728_))) - ((lambda (_L11745_ _L11747_ _L11748_) - (let _recur11770_ ((_rest11773_ - (foldr1 (lambda (_g1217512178_ + (##cdr _e1271512778_)))) + (_loop1271412768_ + _lp-tl1271712785_ + (let () + (declare (not safe)) + (cons _lp-hd1271612782_ + _clause1271812775_))))) + (let ((_clause1271912788_ + (let () + (declare (not safe)) + (reverse _clause1271812775_)))) + ((lambda (_L12792_ _L12794_ _L12795_) + (let _recur12817_ ((_rest12820_ + (let ((__tmp14360 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1217612181_) - (cons _g1217512178_ _g1217612181_)) - '() - _L11745_))) + (lambda (_g1322213225_ _g1322313228_) + (let () + (declare (not safe)) + (cons _g1322213225_ _g1322313228_))))) + (declare (not safe)) + (foldr1 __tmp14360 '() _L12792_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest1177511784_ _rest11773_) - (_E1177811790_ + (let* ((_rest1282212831_ _rest12820_) + (_E1282512837_ (lambda () - (error '"No clause matching" - _rest1177511784_)))) - (let ((_K1178012160_ - (lambda (_rest11806_ - _hd11808_) - (let* ((_g1181011818_ - (lambda (_g1181111814_) + (let () + (declare (not safe)) + (error '"No clause matching" + _rest1282212831_))))) + (let ((_K1282713207_ + (lambda (_rest12853_ + _hd12855_) + (let* ((_g1285712865_ + (lambda (_g1285812861_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1181111814_))) - (_g1180912156_ - (lambda (_g1181111822_) - ((lambda (_L11825_) + _g1285812861_))) + (_g1285613203_ + (lambda (_g1285812869_) + ((lambda (_L12872_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g1184311851_ - (lambda (_g1184411847_) + (let* ((_g1289012898_ + (lambda (_g1289112894_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1184411847_))) - (_g1184212152_ - (lambda (_g1184411855_) - ((lambda (_L11858_) + _g1289112894_))) + (_g1288913199_ + (lambda (_g1289112902_) + ((lambda (_L12905_) (let () - (let* ((_g1187111879_ - (lambda (_g1187211875_) + (let* ((_g1291812926_ + (lambda (_g1291912922_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1187211875_))) - (_g1187012148_ - (lambda (_g1187211883_) - ((lambda (_L11886_) + _g1291912922_))) + (_g1291713195_ + (lambda (_g1291912930_) + ((lambda (_L12933_) (let () - (let* ((_g1189911907_ + (let* ((_g1294612954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1190011903_) + (lambda (_g1294712950_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1190011903_))) - (_g1189811929_ - (lambda (_g1190011911_) - ((lambda (_L11914_) + _g1294712950_))) + (_g1294512976_ + (lambda (_g1294712958_) + ((lambda (_L12961_) (let () (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons _L11825_ - (cons (cons (gx#datum->syntax + (let ((__tmp14347 + (gx#datum->syntax '#f 'let)) + (__tmp14339 + (let ((__tmp14341 + (let ((__tmp14342 + (let ((__tmp14343 + (let ((__tmp14346 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lambda) - (cons '() (cons _L11886_ '()))) - '())) + (gx#datum->syntax '#f 'lambda)) + (__tmp14344 + (let ((__tmp14345 + (let () + (declare (not safe)) + (cons _L12933_ '())))) + (declare (not safe)) + (cons '() __tmp14345)))) + (declare (not safe)) + (cons __tmp14346 __tmp14344)))) + (declare (not safe)) + (cons __tmp14343 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L11914_ '())))))) - _g1190011911_)))) - (_g1189811929_ - (let* ((___stx1312513126_ _hd11808_) - (_g1193511975_ + (declare (not safe)) + (cons _L12872_ __tmp14342))) + (__tmp14340 + (let () + (declare (not safe)) + (cons _L12961_ '())))) + (declare (not safe)) + (cons __tmp14341 __tmp14340)))) + (declare (not safe)) + (cons __tmp14347 __tmp14339))))) + _g1294712958_)))) + (_g1294512976_ + (let* ((___stx1417214173_ _hd12855_) + (_g1298213022_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx1312513126_)))) - (let ((___kont1312813129_ - (lambda (_L12121_) - (cons (gx#datum->syntax '#f 'begin) - (foldr1 (lambda (_g1213512138_ - _g1213612141_) - (cons _g1213512138_ - _g1213612141_)) - '() - _L12121_)))) - (___kont1313213133_ - (lambda (_L12059_ _L12061_) - (_generate111647_ - _L12061_ - _L11748_ - _L12059_ - _L11858_ - _L11747_))) - (___kont1313413135_ - (lambda (_L12012_ _L12014_ _L12015_) - (_generate111647_ - _L12015_ - _L11748_ - (cons (gx#datum->syntax '#f 'if) - (cons _L12014_ - (cons _L12012_ - (cons _L11858_ '())))) - _L11858_ - _L11747_)))) - (let ((___match1315413155_ - (lambda (_e1193812081_ - _hd1193912085_ - _tl1194012088_ - ___splice1313013131_ - _target1194112091_ - _tl1194312094_) - (letrec ((_loop1194412097_ - (lambda (_hd1194212101_ - _expr1194812104_) - (if (gx#stx-pair? _hd1194212101_) - (let ((_e1194512107_ + ___stx1417214173_)))) + (let ((___kont1417514176_ + (lambda (_L13168_) + (let ((__tmp14350 (gx#datum->syntax '#f 'begin)) + (__tmp14348 + (let ((__tmp14349 + (lambda (_g1318213185_ + _g1318313188_) + (let () + (declare (not safe)) + (cons _g1318213185_ + _g1318313188_))))) + (declare (not safe)) + (foldr1 __tmp14349 '() _L13168_)))) + (declare (not safe)) + (cons __tmp14350 __tmp14348)))) + (___kont1417914180_ + (lambda (_L13106_ _L13108_) + (_generate112694_ + _L13108_ + _L12795_ + _L13106_ + _L12905_ + _L12794_))) + (___kont1418114182_ + (lambda (_L13059_ _L13061_ _L13062_) + (_generate112694_ + _L13062_ + _L12795_ + (let ((__tmp14354 (gx#datum->syntax '#f 'if)) + (__tmp14351 + (let ((__tmp14352 + (let ((__tmp14353 + (let () + (declare (not safe)) + (cons _L12905_ '())))) + (declare (not safe)) + (cons _L13059_ __tmp14353)))) + (declare (not safe)) + (cons _L13061_ __tmp14352)))) + (declare (not safe)) + (cons __tmp14354 __tmp14351)) + _L12905_ + _L12794_)))) + (let ((___match1420114202_ + (lambda (_e1298713128_ + _hd1298613132_ + _tl1298513135_ + ___splice1417714178_ + _target1298813138_ + _tl1299013141_) + (letrec ((_loop1299113144_ + (lambda (_hd1298913148_ + _expr1299513151_) + (if (gx#stx-pair? _hd1298913148_) + (let ((_e1299213154_ (gx#syntax-e - _hd1194212101_))) - (let ((_lp-tl1194712114_ + _hd1298913148_))) + (let ((_lp-tl1299413161_ (let () (declare (not safe)) - (##cdr _e1194512107_))) - (_lp-hd1194612111_ + (##cdr _e1299213154_))) + (_lp-hd1299313158_ (let () (declare (not safe)) - (##car _e1194512107_)))) - (_loop1194412097_ - _lp-tl1194712114_ - (cons _lp-hd1194612111_ - _expr1194812104_)))) - (let ((_expr1194912117_ - (reverse _expr1194812104_))) - (___kont1312813129_ - _expr1194912117_)))))) - (_loop1194412097_ - _target1194112091_ + (##car _e1299213154_)))) + (_loop1299113144_ + _lp-tl1299413161_ + (let () + (declare (not safe)) + (cons _lp-hd1299313158_ + _expr1299513151_))))) + (let ((_expr1299613164_ + (let () + (declare (not safe)) + (reverse _expr1299513151_)))) + (___kont1417514176_ + _expr1299613164_)))))) + (_loop1299113144_ + _target1298813138_ '()))))) - (if (gx#stx-pair? ___stx1312513126_) - (let ((_e1193812081_ - (gx#syntax-e ___stx1312513126_))) - (let ((_tl1194012088_ + (if (gx#stx-pair? ___stx1417214173_) + (let ((_e1298713128_ + (gx#syntax-e ___stx1417214173_))) + (let ((_tl1298513135_ (let () (declare (not safe)) - (##cdr _e1193812081_))) - (_hd1193912085_ + (##cdr _e1298713128_))) + (_hd1298613132_ (let () (declare (not safe)) - (##car _e1193812081_)))) - (if (gx#identifier? _hd1193912085_) + (##car _e1298713128_)))) + (if (gx#identifier? _hd1298613132_) (if (gx#free-identifier=? - |[1]#_g13208_| - _hd1193912085_) + |[1]#_g14355_| + _hd1298613132_) (if (gx#stx-pair/null? - _tl1194012088_) - (let ((___splice1313013131_ + _tl1298513135_) + (let ((___splice1417714178_ (gx#syntax-split-splice - _tl1194012088_ + _tl1298513135_ '0))) - (let ((_tl1194312094_ + (let ((_tl1299013141_ (let () (declare (not safe)) (##vector-ref - ___splice1313013131_ + ___splice1417714178_ '1))) - (_target1194112091_ + (_target1298813138_ (let () (declare (not safe)) (##vector-ref - ___splice1313013131_ + ___splice1417714178_ '0)))) (if (gx#stx-null? - _tl1194312094_) - (___match1315413155_ - _e1193812081_ - _hd1193912085_ - _tl1194012088_ - ___splice1313013131_ - _target1194112091_ - _tl1194312094_) + _tl1299013141_) + (___match1420114202_ + _e1298713128_ + _hd1298613132_ + _tl1298513135_ + ___splice1417714178_ + _target1298813138_ + _tl1299013141_) (if (gx#stx-pair? - _tl1194012088_) - (let ((_e1195512049_ + _tl1298513135_) + (let ((_e1300413096_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1194012088_))) - (let ((_tl1195712056_ - (let () (declare (not safe)) (##cdr _e1195512049_))) - (_hd1195612053_ + (gx#syntax-e _tl1298513135_))) + (let ((_tl1300213103_ + (let () (declare (not safe)) (##cdr _e1300413096_))) + (_hd1300313100_ (let () (declare (not safe)) - (##car _e1195512049_)))) - (if (gx#stx-null? _tl1195712056_) - (___kont1313213133_ _hd1195612053_ _hd1193912085_) - (if (gx#stx-pair? _tl1195712056_) - (let ((_e1196712002_ - (gx#syntax-e _tl1195712056_))) - (let ((_tl1196912009_ + (##car _e1300413096_)))) + (if (gx#stx-null? _tl1300213103_) + (___kont1417914180_ _hd1300313100_ _hd1298613132_) + (if (gx#stx-pair? _tl1300213103_) + (let ((_e1301613049_ + (gx#syntax-e _tl1300213103_))) + (let ((_tl1301413056_ (let () (declare (not safe)) - (##cdr _e1196712002_))) - (_hd1196812006_ + (##cdr _e1301613049_))) + (_hd1301513053_ (let () (declare (not safe)) - (##car _e1196712002_)))) - (if (gx#stx-null? _tl1196912009_) - (___kont1313413135_ - _hd1196812006_ - _hd1195612053_ - _hd1193912085_) - (_g1193511975_)))) - (_g1193511975_))))) - (_g1193511975_))))) + (##car _e1301613049_)))) + (if (gx#stx-null? _tl1301413056_) + (___kont1418114182_ + _hd1301513053_ + _hd1300313100_ + _hd1298613132_) + (let () + (declare (not safe)) + (_g1298213022_))))) + (let () (declare (not safe)) (_g1298213022_)))))) + (let () (declare (not safe)) (_g1298213022_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl1194012088_) - (let ((_e1195512049_ + (if (gx#stx-pair? _tl1298513135_) + (let ((_e1300413096_ (gx#syntax-e - _tl1194012088_))) - (let ((_tl1195712056_ + _tl1298513135_))) + (let ((_tl1300213103_ (let () (declare (not safe)) - (##cdr _e1195512049_))) - (_hd1195612053_ + (##cdr _e1300413096_))) + (_hd1300313100_ (let () (declare (not safe)) - (##car _e1195512049_)))) + (##car _e1300413096_)))) (if (gx#stx-null? - _tl1195712056_) - (___kont1313213133_ - _hd1195612053_ - _hd1193912085_) + _tl1300213103_) + (___kont1417914180_ + _hd1300313100_ + _hd1298613132_) (if (gx#stx-pair? - _tl1195712056_) - (let ((_e1196712002_ + _tl1300213103_) + (let ((_e1301613049_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1195712056_))) - (let ((_tl1196912009_ + (gx#syntax-e _tl1300213103_))) + (let ((_tl1301413056_ (let () (declare (not safe)) - (##cdr _e1196712002_))) - (_hd1196812006_ + (##cdr _e1301613049_))) + (_hd1301513053_ (let () (declare (not safe)) - (##car _e1196712002_)))) - (if (gx#stx-null? _tl1196912009_) - (___kont1313413135_ - _hd1196812006_ - _hd1195612053_ - _hd1193912085_) - (_g1193511975_)))) - (_g1193511975_))))) + (##car _e1301613049_)))) + (if (gx#stx-null? _tl1301413056_) + (___kont1418114182_ + _hd1301513053_ + _hd1300313100_ + _hd1298613132_) + (let () (declare (not safe)) (_g1298213022_))))) + (let () (declare (not safe)) (_g1298213022_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1193511975_))) - (if (gx#stx-pair? _tl1194012088_) - (let ((_e1195512049_ + (let () + (declare (not safe)) + (_g1298213022_)))) + (if (gx#stx-pair? _tl1298513135_) + (let ((_e1300413096_ (gx#syntax-e - _tl1194012088_))) - (let ((_tl1195712056_ + _tl1298513135_))) + (let ((_tl1300213103_ (let () (declare (not safe)) - (##cdr _e1195512049_))) - (_hd1195612053_ + (##cdr _e1300413096_))) + (_hd1300313100_ (let () (declare (not safe)) - (##car _e1195512049_)))) + (##car _e1300413096_)))) (if (gx#stx-null? - _tl1195712056_) - (___kont1313213133_ - _hd1195612053_ - _hd1193912085_) + _tl1300213103_) + (___kont1417914180_ + _hd1300313100_ + _hd1298613132_) (if (gx#stx-pair? - _tl1195712056_) - (let ((_e1196712002_ + _tl1300213103_) + (let ((_e1301613049_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1195712056_))) - (let ((_tl1196912009_ - (let () (declare (not safe)) (##cdr _e1196712002_))) - (_hd1196812006_ + (gx#syntax-e _tl1300213103_))) + (let ((_tl1301413056_ + (let () (declare (not safe)) (##cdr _e1301613049_))) + (_hd1301513053_ (let () (declare (not safe)) - (##car _e1196712002_)))) - (if (gx#stx-null? _tl1196912009_) - (___kont1313413135_ - _hd1196812006_ - _hd1195612053_ - _hd1193912085_) - (_g1193511975_)))) - (_g1193511975_))))) + (##car _e1301613049_)))) + (if (gx#stx-null? _tl1301413056_) + (___kont1418114182_ + _hd1301513053_ + _hd1300313100_ + _hd1298613132_) + (let () (declare (not safe)) (_g1298213022_))))) + (let () (declare (not safe)) (_g1298213022_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1193511975_))) - (if (gx#stx-pair? _tl1194012088_) - (let ((_e1195512049_ - (gx#syntax-e _tl1194012088_))) - (let ((_tl1195712056_ + (let () + (declare (not safe)) + (_g1298213022_)))) + (if (gx#stx-pair? _tl1298513135_) + (let ((_e1300413096_ + (gx#syntax-e _tl1298513135_))) + (let ((_tl1300213103_ (let () (declare (not safe)) - (##cdr _e1195512049_))) - (_hd1195612053_ + (##cdr _e1300413096_))) + (_hd1300313100_ (let () (declare (not safe)) - (##car _e1195512049_)))) - (if (gx#stx-null? _tl1195712056_) - (___kont1313213133_ - _hd1195612053_ - _hd1193912085_) + (##car _e1300413096_)))) + (if (gx#stx-null? _tl1300213103_) + (___kont1417914180_ + _hd1300313100_ + _hd1298613132_) (if (gx#stx-pair? - _tl1195712056_) - (let ((_e1196712002_ + _tl1300213103_) + (let ((_e1301613049_ (gx#syntax-e - _tl1195712056_))) - (let ((_tl1196912009_ + _tl1300213103_))) + (let ((_tl1301413056_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e1196712002_))) - (_hd1196812006_ - (let () (declare (not safe)) (##car _e1196712002_)))) - (if (gx#stx-null? _tl1196912009_) - (___kont1313413135_ - _hd1196812006_ - _hd1195612053_ - _hd1193912085_) - (_g1193511975_)))) - (_g1193511975_))))) + (##cdr _e1301613049_))) + (_hd1301513053_ + (let () (declare (not safe)) (##car _e1301613049_)))) + (if (gx#stx-null? _tl1301413056_) + (___kont1418114182_ + _hd1301513053_ + _hd1300313100_ + _hd1298613132_) + (let () (declare (not safe)) (_g1298213022_))))) + (let () (declare (not safe)) (_g1298213022_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1193511975_))))) - (_g1193511975_))))))))) + (let () + (declare (not safe)) + (_g1298213022_)))))) + (let () + (declare (not safe)) + (_g1298213022_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1187211883_)))) - (_g1187012148_ - (_recur11770_ _rest11806_))))) - _g1184411855_)))) - (_g1184212152_ (cons _L11825_ '()))))) - _g1181111822_)))) - (_g1180912156_ (gx#genident '$E))))) + _g1291912930_)))) + (_g1291713195_ + (_recur12817_ _rest12853_))))) + _g1289112902_)))) + (_g1288913199_ + (let () + (declare (not safe)) + (cons _L12872_ '())))))) + _g1285812869_)))) + (_g1285613203_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K1177911798_ + (_K1282612845_ (lambda () - (cons (gx#datum->syntax - '#f - '__raise-syntax-error) - (cons '#f - (cons '"Bad syntax" + (let ((__tmp14359 + (gx#datum->syntax + '#f + '__raise-syntax-error)) + (__tmp14356 + (let ((__tmp14357 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L11748_ '()))))))) + (let ((__tmp14358 + (let () + (declare (not safe)) + (cons _L12795_ '())))) + (declare (not safe)) + (cons '"Bad syntax" __tmp14358)))) + (declare (not safe)) + (cons '#f __tmp14357)))) + (declare (not safe)) + (cons __tmp14359 __tmp14356))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match1177711802_ + (let ((_try-match1282412849_ (lambda () (if (let () (declare (not safe)) - (##null? _rest1177511784_)) - (_K1177911798_) - (_E1177811790_))))) + (##null? _rest1282212831_)) + (_K1282612845_) + (_E1282512837_))))) (if (let () (declare (not safe)) - (##pair? _rest1177511784_)) - (let ((_tl1178212167_ + (##pair? _rest1282212831_)) + (let ((_tl1282913214_ (let () (declare (not safe)) - (##cdr _rest1177511784_))) - (_hd1178112164_ + (##cdr _rest1282212831_))) + (_hd1282813211_ (let () (declare (not safe)) - (##car _rest1177511784_)))) - (let ((_hd12170_ - _hd1178112164_) - (_rest12173_ - _tl1178212167_)) - (_K1178012160_ - _rest12173_ - _hd12170_))) - (_try-match1177711802_))))))) - _clause1167211741_ - _hd1166211709_ - _hd1165911699_)))))) - (_loop1166711721_ _target1166411715_ '())) - (_g1165011678_ _g1165111682_))))) + (##car _rest1282212831_)))) + (let ((_hd13217_ + _hd1282813211_) + (_rest13220_ + _tl1282913214_)) + (_K1282713207_ + _rest13220_ + _hd13217_))) + (_try-match1282412849_))))))) + _clause1271912788_ + _hd1270912756_ + _hd1270612746_)))))) + (_loop1271412768_ _target1271112762_ '())) + (_g1269712725_ _g1269812729_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1165011678_ - _g1165111682_)))) - (_g1165011678_ _g1165111682_)))) - (_g1165011678_ _g1165111682_)))) - (_g1165011678_ _g1165111682_))))) - (_g1164912184_ _stx11644_))))) + (_g1269712725_ + _g1269812729_)))) + (_g1269712725_ _g1269812729_)))) + (_g1269712725_ _g1269812729_)))) + (_g1269712725_ _g1269812729_))))) + (_g1269613231_ _stx12691_))))) (define |[:0:]#SyntaxError| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g13209_| + |[1]#_g14361_| 'expander-identifiers: - (cons (cons |[1]#_g13210_| '()) - (cons |[1]#_g13209_| - (cons |[1]#_g13211_| - (cons |[1]#_g13212_| - (cons (cons |[1]#_g13213_| - (cons |[1]#_g13214_| - (cons |[1]#_g13215_| - (cons |[1]#_g13216_| - (cons |[1]#_g13217_| + (let ((__tmp14408 + (let ((__tmp14409 |[1]#_g14410_|)) + (declare (not safe)) + (cons __tmp14409 '()))) + (__tmp14362 + (let ((__tmp14407 |[1]#_g14361_|) + (__tmp14363 + (let ((__tmp14405 |[1]#_g14406_|) + (__tmp14364 + (let ((__tmp14403 |[1]#_g14404_|) + (__tmp14365 + (let ((__tmp14385 + (let ((__tmp14401 |[1]#_g14402_|) + (__tmp14386 + (let ((__tmp14399 + |[1]#_g14400_|) + (__tmp14387 + (let ((__tmp14397 + |[1]#_g14398_|) + (__tmp14388 + (let ((__tmp14395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |[1]#_g13218_| '())))))) + |[1]#_g14396_|) + (__tmp14389 + (let ((__tmp14393 |[1]#_g14394_|) + (__tmp14390 + (let ((__tmp14391 |[1]#_g14392_|)) + (declare (not safe)) + (cons __tmp14391 '())))) + (declare (not safe)) + (cons __tmp14393 __tmp14390)))) + (declare (not safe)) + (cons __tmp14395 __tmp14389)))) + (declare (not safe)) + (cons __tmp14397 __tmp14388)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons |[1]#_g13219_| - (cons |[1]#_g13220_| - (cons |[1]#_g13221_| - (cons |[1]#_g13222_| + (declare (not safe)) + (cons __tmp14399 + __tmp14387)))) + (declare (not safe)) + (cons __tmp14401 __tmp14386))) + (__tmp14366 + (let ((__tmp14367 + (let ((__tmp14383 + |[1]#_g14384_|) + (__tmp14368 + (let ((__tmp14381 + |[1]#_g14382_|) + (__tmp14369 + (let ((__tmp14379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |[1]#_g13223_| (cons |[1]#_g13224_| '())))))) + |[1]#_g14380_|) + (__tmp14370 + (let ((__tmp14377 |[1]#_g14378_|) + (__tmp14371 + (let ((__tmp14375 |[1]#_g14376_|) + (__tmp14372 + (let ((__tmp14373 |[1]#_g14374_|)) + (declare (not safe)) + (cons __tmp14373 '())))) + (declare (not safe)) + (cons __tmp14375 __tmp14372)))) + (declare (not safe)) + (cons __tmp14377 __tmp14371)))) + (declare (not safe)) + (cons __tmp14379 __tmp14370)))) + (declare (not safe)) + (cons __tmp14381 __tmp14369)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + (declare (not safe)) + (cons __tmp14383 + __tmp14368)))) + (declare (not safe)) + (cons __tmp14367 '())))) + (declare (not safe)) + (cons __tmp14385 __tmp14366)))) + (declare (not safe)) + (cons __tmp14403 __tmp14365)))) + (declare (not safe)) + (cons __tmp14405 __tmp14364)))) + (declare (not safe)) + (cons __tmp14407 __tmp14363)))) + (declare (not safe)) + (cons __tmp14408 __tmp14362)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g13225_|) + (list |[1]#_g14411_|) 'SyntaxError '#f '((final: . #t)) @@ -1115,17 +1434,49 @@ (define |[:0:]#AST| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g13226_| + |[1]#_g14412_| 'expander-identifiers: - (cons '#f - (cons |[1]#_g13226_| - (cons |[1]#_g13227_| - (cons |[1]#_g13228_| - (cons (cons |[1]#_g13229_| - (cons |[1]#_g13230_| '())) - (cons (cons |[1]#_g13231_| - (cons |[1]#_g13232_| '())) - '())))))) + (let ((__tmp14413 + (let ((__tmp14434 |[1]#_g14412_|) + (__tmp14414 + (let ((__tmp14432 |[1]#_g14433_|) + (__tmp14415 + (let ((__tmp14430 |[1]#_g14431_|) + (__tmp14416 + (let ((__tmp14424 + (let ((__tmp14428 |[1]#_g14429_|) + (__tmp14425 + (let ((__tmp14426 + |[1]#_g14427_|)) + (declare (not safe)) + (cons __tmp14426 '())))) + (declare (not safe)) + (cons __tmp14428 __tmp14425))) + (__tmp14417 + (let ((__tmp14418 + (let ((__tmp14422 + |[1]#_g14423_|) + (__tmp14419 + (let ((__tmp14420 + |[1]#_g14421_|)) + (declare (not safe)) + (cons __tmp14420 + '())))) + (declare (not safe)) + (cons __tmp14422 + __tmp14419)))) + (declare (not safe)) + (cons __tmp14418 '())))) + (declare (not safe)) + (cons __tmp14424 __tmp14417)))) + (declare (not safe)) + (cons __tmp14430 __tmp14416)))) + (declare (not safe)) + (cons __tmp14432 __tmp14415)))) + (declare (not safe)) + (cons __tmp14434 __tmp14414)))) + (declare (not safe)) + (cons '#f __tmp14413)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gerbil#AST::t diff --git a/src/bootstrap/gerbil/runtime/system__0.scm b/src/bootstrap/gerbil/runtime/system__0.scm index 4134d3653..c0d037322 100644 --- a/src/bootstrap/gerbil/runtime/system__0.scm +++ b/src/bootstrap/gerbil/runtime/system__0.scm @@ -1,21 +1,32 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1695206877) + (define gerbil/runtime/system::timestamp 1695292370) (begin - (define gerbil-version-string (lambda () '"0.17.0-264-g8e4f54c8")) + (define gerbil-version-string (lambda () '"0.17.0-275-g687a8b69")) (define gerbil-system-version-string (lambda () (string-append '"Gerbil " - (gerbil-version-string) + (let () (declare (not safe)) (gerbil-version-string)) '" on Gambit " - (system-version-string)))) + (let () (declare (not safe)) (system-version-string))))) (define gerbil-system (lambda () 'gerbil-gambit)) - (define gerbil-greeting (gerbil-system-version-string)) + (define gerbil-greeting + (let () (declare (not safe)) (gerbil-system-version-string))) (set! gerbil-greeting gerbil-greeting) (define gerbil-home - (lambda () (getenv '"GERBIL_HOME" (path-expand '"~~")))) + (lambda () + (let ((__tmp7899 (let () (declare (not safe)) (path-expand '"~~")))) + (declare (not safe)) + (getenv '"GERBIL_HOME" __tmp7899)))) (define gerbil-runtime-smp? (lambda () - (member '"--enable-smp" - (string-split (configure-command-string) '#\')))))) + (let ((__tmp7900 + (let ((__tmp7901 + (let () + (declare (not safe)) + (configure-command-string)))) + (declare (not safe)) + (string-split __tmp7901 '#\')))) + (declare (not safe)) + (member '"--enable-smp" __tmp7900)))))) diff --git a/src/bootstrap/gerbil/runtime/util__0.scm b/src/bootstrap/gerbil/runtime/util__0.scm index e02cbf12e..e41106018 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,107 +1,170 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1695206877) + (define gerbil/runtime/util::timestamp 1695292370) (begin (define displayln (lambda _args5767_ (let _lp5769_ ((_rest5771_ _args5767_)) (let* ((_rest57725780_ _rest5771_) - (_else57745788_ (lambda () (newline))) + (_else57745788_ + (lambda () (let () (declare (not safe)) (newline)))) (_K57765794_ (lambda (_rest5791_ _hd5792_) - (display _hd5792_) - (_lp5769_ _rest5791_)))) + (let () (declare (not safe)) (display _hd5792_)) + (let () (declare (not safe)) (_lp5769_ _rest5791_))))) (if (let () (declare (not safe)) (##pair? _rest57725780_)) (let ((_hd57775797_ (let () (declare (not safe)) (##car _rest57725780_))) (_tl57785799_ (let () (declare (not safe)) (##cdr _rest57725780_)))) (let* ((_hd5802_ _hd57775797_) (_rest5804_ _tl57785799_)) + (declare (not safe)) (_K57765794_ _rest5804_ _hd5802_))) - (newline)))))) - (define display* (lambda _args5765_ (for-each display _args5765_))) + (let () (declare (not safe)) (newline))))))) + (define display* + (lambda _args5765_ + (let () (declare (not safe)) (for-each display _args5765_)))) (define file-newer? (lambda (_file15758_ _file25759_) (letrec ((_modification-time5761_ (lambda (_file5763_) - (let ((__tmp7910 - (file-info-last-modification-time - (file-info _file5763_ '#t)))) + (let ((__tmp7913 + (let ((__tmp7914 + (let () + (declare (not safe)) + (file-info _file5763_ '#t)))) + (declare (not safe)) + (file-info-last-modification-time __tmp7914)))) (declare (not safe)) - (##time->seconds __tmp7910))))) - (let ((__tmp7912 (_modification-time5761_ _file15758_)) - (__tmp7911 (_modification-time5761_ _file25759_))) + (##time->seconds __tmp7913))))) + (let ((__tmp7916 + (let () + (declare (not safe)) + (_modification-time5761_ _file15758_))) + (__tmp7915 + (let () + (declare (not safe)) + (_modification-time5761_ _file25759_)))) (declare (not safe)) - (##fl> __tmp7912 __tmp7911))))) + (##fl> __tmp7916 __tmp7915))))) (define create-directory*__% (lambda (_dir5732_ _perms5733_) (letrec ((_create15735_ (lambda (_path5746_) - (if (file-exists? _path5746_) - (if (eq? (file-type _path5746_) 'directory) + (if (let () (declare (not safe)) (file-exists? _path5746_)) + (if (let ((__tmp7918 + (let () + (declare (not safe)) + (file-type _path5746_)))) + (declare (not safe)) + (eq? __tmp7918 'directory)) '#!void (error '"Path component is not a directory" _path5746_)) (if _perms5733_ - (create-directory - (list 'path: - _path5746_ - 'permissions: - _perms5733_)) - (create-directory _path5746_)))))) - (if (file-exists? _dir5732_) + (let ((__tmp7917 + (list 'path: + _path5746_ + 'permissions: + _perms5733_))) + (declare (not safe)) + (create-directory __tmp7917)) + (let () + (declare (not safe)) + (create-directory _path5746_))))))) + (if (let () (declare (not safe)) (file-exists? _dir5732_)) '#!void (let _lp5737_ ((_start5739_ '0)) - (let ((_$e5741_ (string-index _dir5732_ '#\/ _start5739_))) + (let ((_$e5741_ + (let () + (declare (not safe)) + (string-index _dir5732_ '#\/ _start5739_)))) (if _$e5741_ ((lambda (_x5744_) (if (let () (declare (not safe)) (##fx> _x5744_ '0)) - (_create15735_ (substring _dir5732_ '0 _x5744_)) + (let ((__tmp7919 + (let () + (declare (not safe)) + (substring _dir5732_ '0 _x5744_)))) + (declare (not safe)) + (_create15735_ __tmp7919)) '#!void) - (_lp5737_ - (let () (declare (not safe)) (##fx+ _x5744_ '1)))) + (let ((__tmp7920 + (let () + (declare (not safe)) + (##fx+ _x5744_ '1)))) + (declare (not safe)) + (_lp5737_ __tmp7920))) _$e5741_) - (_create15735_ _dir5732_)))))))) + (let () + (declare (not safe)) + (_create15735_ _dir5732_))))))))) (define create-directory*__0 (lambda (_dir5751_) (let ((_perms5753_ '493)) + (declare (not safe)) (create-directory*__% _dir5751_ _perms5753_)))) (define create-directory* - (lambda _g7914_ - (let ((_g7913_ (let () (declare (not safe)) (##length _g7914_)))) - (cond ((let () (declare (not safe)) (##fx= _g7913_ 1)) - (apply create-directory*__0 _g7914_)) - ((let () (declare (not safe)) (##fx= _g7913_ 2)) - (apply create-directory*__% _g7914_)) + (lambda _g7922_ + (let ((_g7921_ (let () (declare (not safe)) (##length _g7922_)))) + (cond ((let () (declare (not safe)) (##fx= _g7921_ 1)) + (apply (lambda (_dir5751_) + (let () + (declare (not safe)) + (create-directory*__0 _dir5751_))) + _g7922_)) + ((let () (declare (not safe)) (##fx= _g7921_ 2)) + (apply (lambda (_dir5755_ _perms5756_) + (let () + (declare (not safe)) + (create-directory*__% _dir5755_ _perms5756_))) + _g7922_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g7914_)))))) + _g7922_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _g7915_ '#t)) - (define true? (lambda (_obj5728_) (eq? _obj5728_ '#t))) - (define false (lambda _g7916_ '#f)) - (define void (lambda _g7917_ '#!void)) - (define void? (lambda (_obj5724_) (eq? _obj5724_ '#!void))) - (define eof-object (lambda _g7918_ '#!eof)) + (define true (lambda _g7923_ '#t)) + (define true? + (lambda (_obj5728_) (let () (declare (not safe)) (eq? _obj5728_ '#t)))) + (define false (lambda _g7924_ '#f)) + (define void (lambda _g7925_ '#!void)) + (define void? + (lambda (_obj5724_) + (let () (declare (not safe)) (eq? _obj5724_ '#!void)))) + (define eof-object (lambda _g7926_ '#!eof)) (define identity (lambda (_obj5721_) _obj5721_)) (define dssl-object? (lambda (_obj5719_) - (if (memq _obj5719_ '(#!key #!rest #!optional)) '#t '#f))) - (define dssl-key-object? (lambda (_obj5717_) (eq? _obj5717_ '#!key))) - (define dssl-rest-object? (lambda (_obj5715_) (eq? _obj5715_ '#!rest))) + (if (let () + (declare (not safe)) + (memq _obj5719_ '(#!key #!rest #!optional))) + '#t + '#f))) + (define dssl-key-object? + (lambda (_obj5717_) + (let () (declare (not safe)) (eq? _obj5717_ '#!key)))) + (define dssl-rest-object? + (lambda (_obj5715_) + (let () (declare (not safe)) (eq? _obj5715_ '#!rest)))) (define dssl-optional-object? - (lambda (_obj5713_) (eq? _obj5713_ '#!optional))) + (lambda (_obj5713_) + (let () (declare (not safe)) (eq? _obj5713_ '#!optional)))) (define immediate? (lambda (_obj5709_) (let* ((_t5711_ (let () (declare (not safe)) (##type _obj5709_))) - (__tmp7919 (let () (declare (not safe)) (##fxand _t5711_ '1)))) + (__tmp7927 (let () (declare (not safe)) (##fxand _t5711_ '1)))) (declare (not safe)) - (##fxzero? __tmp7919)))) + (##fxzero? __tmp7927)))) (define nonnegative-fixnum? (lambda (_obj5707_) - (if (fixnum? _obj5707_) (not (fxnegative? _obj5707_)) '#f))) + (if (let () (declare (not safe)) (fixnum? _obj5707_)) + (let ((__tmp7928 + (let () (declare (not safe)) (fxnegative? _obj5707_)))) + (declare (not safe)) + (not __tmp7928)) + '#f))) (define values-count (lambda (_obj5705_) (if (let () (declare (not safe)) (##values? _obj5705_)) @@ -121,21 +184,32 @@ (lambda (_obj5685_ _start5686_) (let ((_lst5688_ (let () (declare (not safe)) (##vector->list _obj5685_)))) + (declare (not safe)) (list-tail _lst5688_ _start5686_)))) (define subvector->list__0 (lambda (_obj5693_) - (let ((_start5695_ '0)) (subvector->list__% _obj5693_ _start5695_)))) + (let ((_start5695_ '0)) + (declare (not safe)) + (subvector->list__% _obj5693_ _start5695_)))) (define subvector->list - (lambda _g7921_ - (let ((_g7920_ (let () (declare (not safe)) (##length _g7921_)))) - (cond ((let () (declare (not safe)) (##fx= _g7920_ 1)) - (apply subvector->list__0 _g7921_)) - ((let () (declare (not safe)) (##fx= _g7920_ 2)) - (apply subvector->list__% _g7921_)) + (lambda _g7930_ + (let ((_g7929_ (let () (declare (not safe)) (##length _g7930_)))) + (cond ((let () (declare (not safe)) (##fx= _g7929_ 1)) + (apply (lambda (_obj5693_) + (let () + (declare (not safe)) + (subvector->list__0 _obj5693_))) + _g7930_)) + ((let () (declare (not safe)) (##fx= _g7929_ 2)) + (apply (lambda (_obj5697_ _start5698_) + (let () + (declare (not safe)) + (subvector->list__% _obj5697_ _start5698_))) + _g7930_)) (else (##raise-wrong-number-of-arguments-exception subvector->list - _g7921_)))))) + _g7930_)))))) (define make-hash-table make-table) (define make-hash-table-eq (lambda _args5682_ (apply make-table 'test: eq? _args5682_))) @@ -153,33 +227,55 @@ (define hash-length table-length) (define hash-ref table-ref) (define hash-get - (lambda (_ht5671_ _k5672_) (table-ref _ht5671_ _k5672_ '#f))) + (lambda (_ht5671_ _k5672_) + (let () (declare (not safe)) (table-ref _ht5671_ _k5672_ '#f)))) (define hash-put! (lambda (_ht5667_ _k5668_ _v5669_) - (table-set! _ht5667_ _k5668_ _v5669_))) + (let () (declare (not safe)) (table-set! _ht5667_ _k5668_ _v5669_)))) (define hash-update!__% (lambda (_ht5646_ _k5647_ _update5648_ _default5649_) - (let ((_value5651_ (table-ref _ht5646_ _k5647_ _default5649_))) - (table-set! _ht5646_ _k5647_ (_update5648_ _value5651_))))) + (let* ((_value5651_ + (let () + (declare (not safe)) + (table-ref _ht5646_ _k5647_ _default5649_))) + (__tmp7931 (_update5648_ _value5651_))) + (declare (not safe)) + (table-set! _ht5646_ _k5647_ __tmp7931)))) (define hash-update!__0 (lambda (_ht5656_ _k5657_ _update5658_) (let ((_default5660_ '#!void)) + (declare (not safe)) (hash-update!__% _ht5656_ _k5657_ _update5658_ _default5660_)))) (define hash-update! - (lambda _g7923_ - (let ((_g7922_ (let () (declare (not safe)) (##length _g7923_)))) - (cond ((let () (declare (not safe)) (##fx= _g7922_ 3)) - (apply hash-update!__0 _g7923_)) - ((let () (declare (not safe)) (##fx= _g7922_ 4)) - (apply hash-update!__% _g7923_)) + (lambda _g7933_ + (let ((_g7932_ (let () (declare (not safe)) (##length _g7933_)))) + (cond ((let () (declare (not safe)) (##fx= _g7932_ 3)) + (apply (lambda (_ht5656_ _k5657_ _update5658_) + (let () + (declare (not safe)) + (hash-update!__0 _ht5656_ _k5657_ _update5658_))) + _g7933_)) + ((let () (declare (not safe)) (##fx= _g7932_ 4)) + (apply (lambda (_ht5662_ _k5663_ _update5664_ _default5665_) + (let () + (declare (not safe)) + (hash-update!__% + _ht5662_ + _k5663_ + _update5664_ + _default5665_))) + _g7933_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g7923_)))))) + _g7933_)))))) (define hash-remove! - (lambda (_ht5642_ _k5643_) (table-set! _ht5642_ _k5643_))) + (lambda (_ht5642_ _k5643_) + (let () (declare (not safe)) (table-set! _ht5642_ _k5643_)))) (define hash->list table->list) - (define hash->plist (lambda (_ht5640_) (hash-fold cons* '() _ht5640_))) + (define hash->plist + (lambda (_ht5640_) + (let () (declare (not safe)) (hash-fold cons* '() _ht5640_)))) (define plist->hash-table__% (lambda (_plst5575_ _ht5576_) (let _lp5578_ ((_rest5580_ _plst5575_)) @@ -188,16 +284,18 @@ (lambda () (error '"No clause matching" _rest55815592_)))) (let ((_K55865611_ (lambda (_rest5607_ _v5608_ _k5609_) - (table-set! _ht5576_ _k5609_ _v5608_) - (_lp5578_ _rest5607_))) + (let () + (declare (not safe)) + (table-set! _ht5576_ _k5609_ _v5608_)) + (let () (declare (not safe)) (_lp5578_ _rest5607_)))) (_K55855601_ (lambda () _ht5576_))) (let ((_try-match55835604_ (lambda () (if (let () (declare (not safe)) (##eq? _rest55815592_ '())) - (_K55855601_) - (_E55845596_))))) + (let () (declare (not safe)) (_K55855601_)) + (let () (declare (not safe)) (_E55845596_)))))) (if (let () (declare (not safe)) (##pair? _rest55815592_)) (let ((_tl55885616_ (let () @@ -219,139 +317,219 @@ (let ((_k5619_ _hd55875614_) (_v5626_ _hd55895621_) (_rest5628_ _tl55905623_)) - (_K55865611_ _rest5628_ _v5626_ _k5619_))) - (_try-match55835604_))) - (_try-match55835604_)))))))) + (let () + (declare (not safe)) + (_K55865611_ _rest5628_ _v5626_ _k5619_)))) + (let () (declare (not safe)) (_try-match55835604_)))) + (let () (declare (not safe)) (_try-match55835604_))))))))) (define plist->hash-table__0 (lambda (_plst5633_) - (let ((_ht5635_ (make-table))) + (let ((_ht5635_ (let () (declare (not safe)) (make-table)))) + (declare (not safe)) (plist->hash-table__% _plst5633_ _ht5635_)))) (define plist->hash-table - (lambda _g7925_ - (let ((_g7924_ (let () (declare (not safe)) (##length _g7925_)))) - (cond ((let () (declare (not safe)) (##fx= _g7924_ 1)) - (apply plist->hash-table__0 _g7925_)) - ((let () (declare (not safe)) (##fx= _g7924_ 2)) - (apply plist->hash-table__% _g7925_)) + (lambda _g7935_ + (let ((_g7934_ (let () (declare (not safe)) (##length _g7935_)))) + (cond ((let () (declare (not safe)) (##fx= _g7934_ 1)) + (apply (lambda (_plst5633_) + (let () + (declare (not safe)) + (plist->hash-table__0 _plst5633_))) + _g7935_)) + ((let () (declare (not safe)) (##fx= _g7934_ 2)) + (apply (lambda (_plst5637_ _ht5638_) + (let () + (declare (not safe)) + (plist->hash-table__% _plst5637_ _ht5638_))) + _g7935_)) (else (##raise-wrong-number-of-arguments-exception plist->hash-table - _g7925_)))))) + _g7935_)))))) (define plist->hash-table-eq (lambda (_plst5572_) - (plist->hash-table _plst5572_ (make-table 'test: eq?)))) + (let ((__tmp7936 + (let () (declare (not safe)) (make-table 'test: eq?)))) + (declare (not safe)) + (plist->hash-table _plst5572_ __tmp7936)))) (define plist->hash-table-eqv (lambda (_plst5570_) - (plist->hash-table _plst5570_ (make-table 'test: eqv?)))) + (let ((__tmp7937 + (let () (declare (not safe)) (make-table 'test: eqv?)))) + (declare (not safe)) + (plist->hash-table _plst5570_ __tmp7937)))) (define hash-key? (lambda (_ht5567_ _k5568_) - (not (eq? (table-ref _ht5567_ _k5568_ absent-value) absent-value)))) + (let ((__tmp7938 + (let ((__tmp7939 + (let () + (declare (not safe)) + (table-ref _ht5567_ _k5568_ absent-value)))) + (declare (not safe)) + (eq? __tmp7939 absent-value)))) + (declare (not safe)) + (not __tmp7938)))) (define hash-for-each table-for-each) (define hash-map (lambda (_fun5560_ _ht5561_) - (hash-fold - (lambda (_k5563_ _v5564_ _r5565_) - (cons (_fun5560_ _k5563_ _v5564_) _r5565_)) - '() - _ht5561_))) + (let ((__tmp7940 + (lambda (_k5563_ _v5564_ _r5565_) + (let ((__tmp7941 (_fun5560_ _k5563_ _v5564_))) + (declare (not safe)) + (cons __tmp7941 _r5565_))))) + (declare (not safe)) + (hash-fold __tmp7940 '() _ht5561_)))) (define hash-fold (lambda (_fun5551_ _iv5552_ _ht5553_) (let ((_ret5555_ _iv5552_)) - (table-for-each - (lambda (_k5557_ _v5558_) - (set! _ret5555_ (_fun5551_ _k5557_ _v5558_ _ret5555_))) - _ht5553_) + (let ((__tmp7942 + (lambda (_k5557_ _v5558_) + (set! _ret5555_ (_fun5551_ _k5557_ _v5558_ _ret5555_))))) + (declare (not safe)) + (table-for-each __tmp7942 _ht5553_)) _ret5555_))) (define hash-find table-search) (define hash-keys (lambda (_ht5546_) - (hash-map (lambda (_k5548_ _v5549_) _k5548_) _ht5546_))) + (let ((__tmp7943 (lambda (_k5548_ _v5549_) _k5548_))) + (declare (not safe)) + (hash-map __tmp7943 _ht5546_)))) (define hash-values (lambda (_ht5541_) - (hash-map (lambda (_k5543_ _v5544_) _v5544_) _ht5541_))) + (let ((__tmp7944 (lambda (_k5543_ _v5544_) _v5544_))) + (declare (not safe)) + (hash-map __tmp7944 _ht5541_)))) (define hash-copy (lambda (_hd5536_ . _rest5537_) - (let ((_hd5539_ (table-copy _hd5536_))) - (if (null? _rest5537_) + (let ((_hd5539_ (let () (declare (not safe)) (table-copy _hd5536_)))) + (if (let () (declare (not safe)) (null? _rest5537_)) _hd5539_ (apply hash-copy! _hd5539_ _rest5537_))))) (define hash-copy! (lambda (_hd5531_ . _rest5532_) - (for-each - (lambda (_r5534_) (table-merge! _hd5531_ _r5534_)) - _rest5532_) + (let ((__tmp7945 + (lambda (_r5534_) + (let () + (declare (not safe)) + (table-merge! _hd5531_ _r5534_))))) + (declare (not safe)) + (for-each __tmp7945 _rest5532_)) _hd5531_)) (define hash-merge (lambda (_hd5525_ . _rest5526_) - (foldl1 (lambda (_tab5528_ _r5529_) (table-merge _r5529_ _tab5528_)) - _hd5525_ - _rest5526_))) + (let ((__tmp7946 + (lambda (_tab5528_ _r5529_) + (let () + (declare (not safe)) + (table-merge _r5529_ _tab5528_))))) + (declare (not safe)) + (foldl1 __tmp7946 _hd5525_ _rest5526_)))) (define hash-merge! (lambda (_hd5519_ . _rest5520_) - (foldl1 (lambda (_tab5522_ _r5523_) (table-merge! _r5523_ _tab5522_)) - _hd5519_ - _rest5520_))) + (let ((__tmp7947 + (lambda (_tab5522_ _r5523_) + (let () + (declare (not safe)) + (table-merge! _r5523_ _tab5522_))))) + (declare (not safe)) + (foldl1 __tmp7947 _hd5519_ _rest5520_)))) (define hash-clear!__% (lambda (_ht5504_ _size5505_) (let ((_gcht5507_ (let () (declare (not safe)) (##vector-ref _ht5504_ '5)))) - (if (not (fixnum? _gcht5507_)) + (if (let ((__tmp7948 + (let () (declare (not safe)) (fixnum? _gcht5507_)))) + (declare (not safe)) + (not __tmp7948)) (let () (declare (not safe)) (##vector-set! _ht5504_ '5 _size5505_)) '#!void)))) (define hash-clear!__0 (lambda (_ht5512_) - (let ((_size5514_ '0)) (hash-clear!__% _ht5512_ _size5514_)))) + (let ((_size5514_ '0)) + (declare (not safe)) + (hash-clear!__% _ht5512_ _size5514_)))) (define hash-clear! - (lambda _g7927_ - (let ((_g7926_ (let () (declare (not safe)) (##length _g7927_)))) - (cond ((let () (declare (not safe)) (##fx= _g7926_ 1)) - (apply hash-clear!__0 _g7927_)) - ((let () (declare (not safe)) (##fx= _g7926_ 2)) - (apply hash-clear!__% _g7927_)) + (lambda _g7950_ + (let ((_g7949_ (let () (declare (not safe)) (##length _g7950_)))) + (cond ((let () (declare (not safe)) (##fx= _g7949_ 1)) + (apply (lambda (_ht5512_) + (let () + (declare (not safe)) + (hash-clear!__0 _ht5512_))) + _g7950_)) + ((let () (declare (not safe)) (##fx= _g7949_ 2)) + (apply (lambda (_ht5516_ _size5517_) + (let () + (declare (not safe)) + (hash-clear!__% _ht5516_ _size5517_))) + _g7950_)) (else (##raise-wrong-number-of-arguments-exception hash-clear! - _g7927_)))))) + _g7950_)))))) (define make-list__% (lambda (_k5485_ _val5486_) - (if (fixnum? _k5485_) + (if (let () (declare (not safe)) (fixnum? _k5485_)) '#!void (error '"expected argument 1 to be fixnum" _k5485_)) (let _lp5488_ ((_n5490_ '0) (_r5491_ '())) (if (let () (declare (not safe)) (##fx< _n5490_ _k5485_)) - (_lp5488_ - (let () (declare (not safe)) (##fx+ _n5490_ '1)) - (cons _val5486_ _r5491_)) + (let ((__tmp7952 + (let () (declare (not safe)) (##fx+ _n5490_ '1))) + (__tmp7951 + (let () (declare (not safe)) (cons _val5486_ _r5491_)))) + (declare (not safe)) + (_lp5488_ __tmp7952 __tmp7951)) _r5491_)))) (define make-list__0 (lambda (_k5496_) - (let ((_val5498_ '#f)) (make-list__% _k5496_ _val5498_)))) + (let ((_val5498_ '#f)) + (declare (not safe)) + (make-list__% _k5496_ _val5498_)))) (define make-list - (lambda _g7929_ - (let ((_g7928_ (let () (declare (not safe)) (##length _g7929_)))) - (cond ((let () (declare (not safe)) (##fx= _g7928_ 1)) - (apply make-list__0 _g7929_)) - ((let () (declare (not safe)) (##fx= _g7928_ 2)) - (apply make-list__% _g7929_)) + (lambda _g7954_ + (let ((_g7953_ (let () (declare (not safe)) (##length _g7954_)))) + (cond ((let () (declare (not safe)) (##fx= _g7953_ 1)) + (apply (lambda (_k5496_) + (let () (declare (not safe)) (make-list__0 _k5496_))) + _g7954_)) + ((let () (declare (not safe)) (##fx= _g7953_ 2)) + (apply (lambda (_k5500_ _val5501_) + (let () + (declare (not safe)) + (make-list__% _k5500_ _val5501_))) + _g7954_)) (else (##raise-wrong-number-of-arguments-exception make-list - _g7929_)))))) + _g7954_)))))) (define cons* (lambda (_x5475_ _y5476_ . _rest5477_) (letrec ((_recur5479_ (lambda (_x5481_ _rest5482_) - (if (pair? _rest5482_) - (cons _x5481_ - (_recur5479_ - (let () (declare (not safe)) (##car _rest5482_)) - (let () + (if (let () (declare (not safe)) (pair? _rest5482_)) + (let ((__tmp7955 + (let ((__tmp7957 + (let () + (declare (not safe)) + (##car _rest5482_))) + (__tmp7956 + (let () + (declare (not safe)) + (##cdr _rest5482_)))) (declare (not safe)) - (##cdr _rest5482_)))) + (_recur5479_ __tmp7957 __tmp7956)))) + (declare (not safe)) + (cons _x5481_ __tmp7955)) _x5481_)))) - (cons _x5475_ (_recur5479_ _y5476_ _rest5477_))))) + (let ((__tmp7958 + (let () + (declare (not safe)) + (_recur5479_ _y5476_ _rest5477_)))) + (declare (not safe)) + (cons _x5475_ __tmp7958))))) (define foldl1 (lambda (_f5433_ _iv5434_ _lst5435_) (let _lp5437_ ((_rest5439_ _lst5435_) (_r5440_ _iv5434_)) @@ -359,15 +537,18 @@ (_else54435457_ (lambda () _r5440_)) (_K54455463_ (lambda (_rest5460_ _x5461_) - (_lp5437_ _rest5460_ (_f5433_ _x5461_ _r5440_))))) + (let ((__tmp7959 (_f5433_ _x5461_ _r5440_))) + (declare (not safe)) + (_lp5437_ _rest5460_ __tmp7959))))) (if (let () (declare (not safe)) (##pair? _rest54415449_)) (let ((_hd54465466_ (let () (declare (not safe)) (##car _rest54415449_))) (_tl54475468_ (let () (declare (not safe)) (##cdr _rest54415449_)))) (let* ((_x5471_ _hd54465466_) (_rest5473_ _tl54475468_)) + (declare (not safe)) (_K54455463_ _rest5473_ _x5471_))) - (_else54435457_)))))) + (let () (declare (not safe)) (_else54435457_))))))) (define foldl2 (lambda (_f5356_ _iv5357_ _lst15358_ _lst25359_) (let _lp5361_ ((_rest15363_ _lst15358_) @@ -381,10 +562,13 @@ (_else53895403_ (lambda () _r5365_)) (_K53915409_ (lambda (_rest25406_ _x25407_) - (_lp5361_ - _rest15385_ - _rest25406_ - (_f5356_ _x15386_ _x25407_ _r5365_))))) + (let ((__tmp7960 + (_f5356_ _x15386_ _x25407_ _r5365_))) + (declare (not safe)) + (_lp5361_ + _rest15385_ + _rest25406_ + __tmp7960))))) (if (let () (declare (not safe)) (##pair? _rest253875395_)) @@ -398,40 +582,60 @@ (##cdr _rest253875395_)))) (let* ((_x25417_ _hd53925412_) (_rest25419_ _tl53935414_)) + (declare (not safe)) (_K53915409_ _rest25419_ _x25417_))) - (_else53895403_)))))) + (let () (declare (not safe)) (_else53895403_))))))) (if (let () (declare (not safe)) (##pair? _rest153665374_)) (let ((_hd53715424_ (let () (declare (not safe)) (##car _rest153665374_))) (_tl53725426_ (let () (declare (not safe)) (##cdr _rest153665374_)))) (let* ((_x15429_ _hd53715424_) (_rest15431_ _tl53725426_)) + (declare (not safe)) (_K53705421_ _rest15431_ _x15429_))) - (_else53685382_)))))) + (let () (declare (not safe)) (_else53685382_))))))) (define foldl - (lambda _g7931_ - (let ((_g7930_ (let () (declare (not safe)) (##length _g7931_)))) - (cond ((let () (declare (not safe)) (##fx= _g7930_ 3)) - (apply foldl1 _g7931_)) - ((let () (declare (not safe)) (##fx= _g7930_ 4)) - (apply foldl2 _g7931_)) - ((let () (declare (not safe)) (##fx>= _g7930_ 4)) - (apply foldl* _g7931_)) + (lambda _g7962_ + (let ((_g7961_ (let () (declare (not safe)) (##length _g7962_)))) + (cond ((let () (declare (not safe)) (##fx= _g7961_ 3)) + (apply (lambda (_f5341_ _iv5342_ _lst5343_) + (let () + (declare (not safe)) + (foldl1 _f5341_ _iv5342_ _lst5343_))) + _g7962_)) + ((let () (declare (not safe)) (##fx= _g7961_ 4)) + (apply (lambda (_f5345_ _iv5346_ _lst15347_ _lst25348_) + (let () + (declare (not safe)) + (foldl2 _f5345_ _iv5346_ _lst15347_ _lst25348_))) + _g7962_)) + ((let () (declare (not safe)) (##fx>= _g7961_ 4)) + (apply foldl* _g7962_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g7931_)))))) + _g7962_)))))) (define foldl* (lambda (_f5329_ _iv5330_ . _rest5331_) (let _recur5333_ ((_iv5335_ _iv5330_) (_rest5336_ _rest5331_)) - (if (andmap1 pair? _rest5336_) - (_recur5333_ - (apply _f5329_ - (foldr1 (lambda (_xs5338_ _r5339_) - (cons (car _xs5338_) _r5339_)) - (list _iv5335_) - _rest5336_)) - (map cdr _rest5336_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest5336_)) + (let ((__tmp7964 + (apply _f5329_ + (let ((__tmp7966 + (lambda (_xs5338_ _r5339_) + (let ((__tmp7967 + (let () + (declare (not safe)) + (car _xs5338_)))) + (declare (not safe)) + (cons __tmp7967 _r5339_)))) + (__tmp7965 (list _iv5335_))) + (declare (not safe)) + (foldr1 __tmp7966 __tmp7965 _rest5336_)))) + (__tmp7963 + (let () (declare (not safe)) (map cdr _rest5336_)))) + (declare (not safe)) + (_recur5333_ __tmp7964 __tmp7963)) _iv5335_)))) (define foldr1 (lambda (_f5288_ _iv5289_ _lst5290_) @@ -440,15 +644,19 @@ (_else52975311_ (lambda () _iv5289_)) (_K52995317_ (lambda (_rest5314_ _x5315_) - (_f5288_ _x5315_ (_recur5292_ _rest5314_))))) + (_f5288_ _x5315_ + (let () + (declare (not safe)) + (_recur5292_ _rest5314_)))))) (if (let () (declare (not safe)) (##pair? _rest52955303_)) (let ((_hd53005320_ (let () (declare (not safe)) (##car _rest52955303_))) (_tl53015322_ (let () (declare (not safe)) (##cdr _rest52955303_)))) (let* ((_x5325_ _hd53005320_) (_rest5327_ _tl53015322_)) + (declare (not safe)) (_K52995317_ _rest5327_ _x5325_))) - (_else52975311_)))))) + (let () (declare (not safe)) (_else52975311_))))))) (define foldr2 (lambda (_f5212_ _iv5213_ _lst15214_ _lst25215_) (let _recur5217_ ((_rest15219_ _lst15214_) (_rest25220_ _lst25215_)) @@ -462,9 +670,11 @@ (lambda (_rest25261_ _x25262_) (_f5212_ _x15241_ _x25262_ - (_recur5217_ - _rest15240_ - _rest25261_))))) + (let () + (declare (not safe)) + (_recur5217_ + _rest15240_ + _rest25261_)))))) (if (let () (declare (not safe)) (##pair? _rest252425250_)) @@ -478,38 +688,61 @@ (##cdr _rest252425250_)))) (let* ((_x25272_ _hd52475267_) (_rest25274_ _tl52485269_)) + (declare (not safe)) (_K52465264_ _rest25274_ _x25272_))) - (_else52445258_)))))) + (let () (declare (not safe)) (_else52445258_))))))) (if (let () (declare (not safe)) (##pair? _rest152215229_)) (let ((_hd52265279_ (let () (declare (not safe)) (##car _rest152215229_))) (_tl52275281_ (let () (declare (not safe)) (##cdr _rest152215229_)))) (let* ((_x15284_ _hd52265279_) (_rest15286_ _tl52275281_)) + (declare (not safe)) (_K52255276_ _rest15286_ _x15284_))) - (_else52235237_)))))) + (let () (declare (not safe)) (_else52235237_))))))) (define foldr - (lambda _g7933_ - (let ((_g7932_ (let () (declare (not safe)) (##length _g7933_)))) - (cond ((let () (declare (not safe)) (##fx= _g7932_ 3)) - (apply foldr1 _g7933_)) - ((let () (declare (not safe)) (##fx= _g7932_ 4)) - (apply foldr2 _g7933_)) - ((let () (declare (not safe)) (##fx>= _g7932_ 4)) - (apply foldr* _g7933_)) + (lambda _g7969_ + (let ((_g7968_ (let () (declare (not safe)) (##length _g7969_)))) + (cond ((let () (declare (not safe)) (##fx= _g7968_ 3)) + (apply (lambda (_f5197_ _iv5198_ _lst5199_) + (let () + (declare (not safe)) + (foldr1 _f5197_ _iv5198_ _lst5199_))) + _g7969_)) + ((let () (declare (not safe)) (##fx= _g7968_ 4)) + (apply (lambda (_f5201_ _iv5202_ _lst15203_ _lst25204_) + (let () + (declare (not safe)) + (foldr2 _f5201_ _iv5202_ _lst15203_ _lst25204_))) + _g7969_)) + ((let () (declare (not safe)) (##fx>= _g7968_ 4)) + (apply foldr* _g7969_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g7933_)))))) + _g7969_)))))) (define foldr* (lambda (_f5186_ _iv5187_ . _rest5188_) (let _recur5190_ ((_rest5192_ _rest5188_)) - (if (andmap1 pair? _rest5192_) + (if (let () (declare (not safe)) (andmap1 pair? _rest5192_)) (apply _f5186_ - (foldr1 (lambda (_xs5194_ _r5195_) - (cons (car _xs5194_) _r5195_)) - (list (_recur5190_ (map cdr _rest5192_))) - _rest5192_)) + (let ((__tmp7972 + (lambda (_xs5194_ _r5195_) + (let ((__tmp7973 + (let () + (declare (not safe)) + (car _xs5194_)))) + (declare (not safe)) + (cons __tmp7973 _r5195_)))) + (__tmp7970 + (list (let ((__tmp7971 + (let () + (declare (not safe)) + (map cdr _rest5192_)))) + (declare (not safe)) + (_recur5190_ __tmp7971))))) + (declare (not safe)) + (foldr1 __tmp7972 __tmp7970 _rest5192_))) _iv5187_)))) (define andmap1 (lambda (_f5146_ _lst5147_) @@ -518,15 +751,18 @@ (_else51545168_ (lambda () '#t)) (_K51565174_ (lambda (_rest5171_ _x5172_) - (if (_f5146_ _x5172_) (_lp5149_ _rest5171_) '#f)))) + (if (_f5146_ _x5172_) + (let () (declare (not safe)) (_lp5149_ _rest5171_)) + '#f)))) (if (let () (declare (not safe)) (##pair? _rest51525160_)) (let ((_hd51575177_ (let () (declare (not safe)) (##car _rest51525160_))) (_tl51585179_ (let () (declare (not safe)) (##cdr _rest51525160_)))) (let* ((_x5182_ _hd51575177_) (_rest5184_ _tl51585179_)) + (declare (not safe)) (_K51565174_ _rest5184_ _x5182_))) - (_else51545168_)))))) + (let () (declare (not safe)) (_else51545168_))))))) (define andmap2 (lambda (_f5071_ _lst15072_ _lst25073_) (let _lp5075_ ((_rest15077_ _lst15072_) (_rest25078_ _lst25073_)) @@ -539,7 +775,9 @@ (_K51045122_ (lambda (_rest25119_ _x25120_) (if (_f5071_ _x15099_ _x25120_) - (_lp5075_ _rest15098_ _rest25119_) + (let () + (declare (not safe)) + (_lp5075_ _rest15098_ _rest25119_)) '#f)))) (if (let () (declare (not safe)) @@ -554,35 +792,49 @@ (##cdr _rest251005108_)))) (let* ((_x25130_ _hd51055125_) (_rest25132_ _tl51065127_)) + (declare (not safe)) (_K51045122_ _rest25132_ _x25130_))) - (_else51025116_)))))) + (let () (declare (not safe)) (_else51025116_))))))) (if (let () (declare (not safe)) (##pair? _rest150795087_)) (let ((_hd50845137_ (let () (declare (not safe)) (##car _rest150795087_))) (_tl50855139_ (let () (declare (not safe)) (##cdr _rest150795087_)))) (let* ((_x15142_ _hd50845137_) (_rest15144_ _tl50855139_)) + (declare (not safe)) (_K50835134_ _rest15144_ _x15142_))) - (_else50815095_)))))) + (let () (declare (not safe)) (_else50815095_))))))) (define andmap - (lambda _g7935_ - (let ((_g7934_ (let () (declare (not safe)) (##length _g7935_)))) - (cond ((let () (declare (not safe)) (##fx= _g7934_ 2)) - (apply andmap1 _g7935_)) - ((let () (declare (not safe)) (##fx= _g7934_ 3)) - (apply andmap2 _g7935_)) - ((let () (declare (not safe)) (##fx>= _g7934_ 3)) - (apply andmap* _g7935_)) + (lambda _g7975_ + (let ((_g7974_ (let () (declare (not safe)) (##length _g7975_)))) + (cond ((let () (declare (not safe)) (##fx= _g7974_ 2)) + (apply (lambda (_f5059_ _lst5060_) + (let () + (declare (not safe)) + (andmap1 _f5059_ _lst5060_))) + _g7975_)) + ((let () (declare (not safe)) (##fx= _g7974_ 3)) + (apply (lambda (_f5062_ _lst15063_ _lst25064_) + (let () + (declare (not safe)) + (andmap2 _f5062_ _lst15063_ _lst25064_))) + _g7975_)) + ((let () (declare (not safe)) (##fx>= _g7974_ 3)) + (apply andmap* _g7975_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g7935_)))))) + _g7975_)))))) (define andmap* (lambda (_f5052_ . _rest5053_) (let _recur5055_ ((_rest5057_ _rest5053_)) - (if (andmap1 pair? _rest5057_) - (if (apply _f5052_ (map car _rest5057_)) - (_recur5055_ (map cdr _rest5057_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest5057_)) + (if (apply _f5052_ + (let () (declare (not safe)) (map car _rest5057_))) + (let ((__tmp7976 + (let () (declare (not safe)) (map cdr _rest5057_)))) + (declare (not safe)) + (_recur5055_ __tmp7976)) '#f) '#t)))) (define ormap1 @@ -593,15 +845,20 @@ (_K50195040_ (lambda (_rest5034_ _x5035_) (let ((_$e5037_ (_f5009_ _x5035_))) - (if _$e5037_ _$e5037_ (_lp5012_ _rest5034_)))))) + (if _$e5037_ + _$e5037_ + (let () + (declare (not safe)) + (_lp5012_ _rest5034_))))))) (if (let () (declare (not safe)) (##pair? _rest50155023_)) (let ((_hd50205043_ (let () (declare (not safe)) (##car _rest50155023_))) (_tl50215045_ (let () (declare (not safe)) (##cdr _rest50155023_)))) (let* ((_x5048_ _hd50205043_) (_rest5050_ _tl50215045_)) + (declare (not safe)) (_K50195040_ _rest5050_ _x5048_))) - (_else50175031_)))))) + (let () (declare (not safe)) (_else50175031_))))))) (define ormap2 (lambda (_f4931_ _lst14932_ _lst24933_) (let _lp4935_ ((_rest14937_ _lst14932_) (_rest24938_ _lst24933_)) @@ -616,7 +873,9 @@ (let ((_$e4982_ (_f4931_ _x14959_ _x24980_))) (if _$e4982_ _$e4982_ - (_lp4935_ _rest14958_ _rest24979_)))))) + (let () + (declare (not safe)) + (_lp4935_ _rest14958_ _rest24979_))))))) (if (let () (declare (not safe)) (##pair? _rest249604968_)) @@ -630,35 +889,54 @@ (##cdr _rest249604968_)))) (let* ((_x24993_ _hd49654988_) (_rest24995_ _tl49664990_)) + (declare (not safe)) (_K49644985_ _rest24995_ _x24993_))) - (_else49624976_)))))) + (let () (declare (not safe)) (_else49624976_))))))) (if (let () (declare (not safe)) (##pair? _rest149394947_)) (let ((_hd49445000_ (let () (declare (not safe)) (##car _rest149394947_))) (_tl49455002_ (let () (declare (not safe)) (##cdr _rest149394947_)))) (let* ((_x15005_ _hd49445000_) (_rest15007_ _tl49455002_)) + (declare (not safe)) (_K49434997_ _rest15007_ _x15005_))) - (_else49414955_)))))) + (let () (declare (not safe)) (_else49414955_))))))) (define ormap - (lambda _g7937_ - (let ((_g7936_ (let () (declare (not safe)) (##length _g7937_)))) - (cond ((let () (declare (not safe)) (##fx= _g7936_ 2)) - (apply ormap1 _g7937_)) - ((let () (declare (not safe)) (##fx= _g7936_ 3)) - (apply ormap2 _g7937_)) - ((let () (declare (not safe)) (##fx>= _g7936_ 3)) - (apply ormap* _g7937_)) + (lambda _g7978_ + (let ((_g7977_ (let () (declare (not safe)) (##length _g7978_)))) + (cond ((let () (declare (not safe)) (##fx= _g7977_ 2)) + (apply (lambda (_f4919_ _lst4920_) + (let () + (declare (not safe)) + (ormap1 _f4919_ _lst4920_))) + _g7978_)) + ((let () (declare (not safe)) (##fx= _g7977_ 3)) + (apply (lambda (_f4922_ _lst14923_ _lst24924_) + (let () + (declare (not safe)) + (ormap2 _f4922_ _lst14923_ _lst24924_))) + _g7978_)) + ((let () (declare (not safe)) (##fx>= _g7977_ 3)) + (apply ormap* _g7978_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g7937_)))))) + _g7978_)))))) (define ormap* (lambda (_f4909_ . _rest4910_) (let _recur4912_ ((_rest4914_ _rest4910_)) - (if (andmap1 pair? _rest4914_) - (let ((_$e4916_ (apply _f4909_ (map car _rest4914_)))) - (if _$e4916_ _$e4916_ (_recur4912_ (map cdr _rest4914_)))) + (if (let () (declare (not safe)) (andmap1 pair? _rest4914_)) + (let ((_$e4916_ + (apply _f4909_ + (let () + (declare (not safe)) + (map car _rest4914_))))) + (if _$e4916_ + _$e4916_ + (let ((__tmp7979 + (let () (declare (not safe)) (map cdr _rest4914_)))) + (declare (not safe)) + (_recur4912_ __tmp7979)))) '#f)))) (define filter (lambda (_f4867_ _lst4868_) @@ -668,19 +946,29 @@ (_K48774897_ (lambda (_rest4892_ _hd4893_) (if (_f4867_ _hd4893_) - (let ((_tail4895_ (_recur4870_ _rest4892_))) - (if (eq? _tail4895_ _rest4892_) + (let ((_tail4895_ + (let () + (declare (not safe)) + (_recur4870_ _rest4892_)))) + (if (let () + (declare (not safe)) + (eq? _tail4895_ _rest4892_)) _lst4872_ - (cons _hd4893_ _tail4895_))) - (_recur4870_ _rest4892_))))) + (let () + (declare (not safe)) + (cons _hd4893_ _tail4895_)))) + (let () + (declare (not safe)) + (_recur4870_ _rest4892_)))))) (if (let () (declare (not safe)) (##pair? _lst48734881_)) (let ((_hd48784900_ (let () (declare (not safe)) (##car _lst48734881_))) (_tl48794902_ (let () (declare (not safe)) (##cdr _lst48734881_)))) (let* ((_hd4905_ _hd48784900_) (_rest4907_ _tl48794902_)) + (declare (not safe)) (_K48774897_ _rest4907_ _hd4905_))) - (_else48754889_)))))) + (let () (declare (not safe)) (_else48754889_))))))) (define filter-map1 (lambda (_f4822_ _lst4823_) (let _recur4825_ ((_rest4827_ _lst4823_)) @@ -691,17 +979,25 @@ (let ((_$e4850_ (_f4822_ _x4848_))) (if _$e4850_ ((lambda (_r4853_) - (cons _r4853_ (_recur4825_ _rest4847_))) + (let ((__tmp7980 + (let () + (declare (not safe)) + (_recur4825_ _rest4847_)))) + (declare (not safe)) + (cons _r4853_ __tmp7980))) _$e4850_) - (_recur4825_ _rest4847_)))))) + (let () + (declare (not safe)) + (_recur4825_ _rest4847_))))))) (if (let () (declare (not safe)) (##pair? _rest48284836_)) (let ((_hd48334858_ (let () (declare (not safe)) (##car _rest48284836_))) (_tl48344860_ (let () (declare (not safe)) (##cdr _rest48284836_)))) (let* ((_x4863_ _hd48334858_) (_rest4865_ _tl48344860_)) + (declare (not safe)) (_K48324855_ _rest4865_ _x4863_))) - (_else48304844_)))))) + (let () (declare (not safe)) (_else48304844_))))))) (define filter-map2 (lambda (_f4742_ _lst14743_ _lst24744_) (let _recur4746_ ((_rest14748_ _lst14743_) (_rest24749_ _lst24744_)) @@ -716,12 +1012,20 @@ (let ((_$e4793_ (_f4742_ _x14770_ _x24791_))) (if _$e4793_ ((lambda (_r4796_) - (cons _r4796_ - (_recur4746_ - _rest14769_ - _rest24790_))) + (let ((__tmp7981 + (let () + (declare (not safe)) + (_recur4746_ + _rest14769_ + _rest24790_)))) + (declare (not safe)) + (cons _r4796_ __tmp7981))) _$e4793_) - (_recur4746_ _rest14769_ _rest24790_)))))) + (let () + (declare (not safe)) + (_recur4746_ + _rest14769_ + _rest24790_))))))) (if (let () (declare (not safe)) (##pair? _rest247714779_)) @@ -735,81 +1039,123 @@ (##cdr _rest247714779_)))) (let* ((_x24806_ _hd47764801_) (_rest24808_ _tl47774803_)) + (declare (not safe)) (_K47754798_ _rest24808_ _x24806_))) - (_else47734787_)))))) + (let () (declare (not safe)) (_else47734787_))))))) (if (let () (declare (not safe)) (##pair? _rest147504758_)) (let ((_hd47554813_ (let () (declare (not safe)) (##car _rest147504758_))) (_tl47564815_ (let () (declare (not safe)) (##cdr _rest147504758_)))) (let* ((_x14818_ _hd47554813_) (_rest14820_ _tl47564815_)) + (declare (not safe)) (_K47544810_ _rest14820_ _x14818_))) - (_else47524766_)))))) + (let () (declare (not safe)) (_else47524766_))))))) (define filter-map - (lambda _g7939_ - (let ((_g7938_ (let () (declare (not safe)) (##length _g7939_)))) - (cond ((let () (declare (not safe)) (##fx= _g7938_ 2)) - (apply filter-map1 _g7939_)) - ((let () (declare (not safe)) (##fx= _g7938_ 3)) - (apply filter-map2 _g7939_)) - ((let () (declare (not safe)) (##fx>= _g7938_ 3)) - (apply filter-map* _g7939_)) + (lambda _g7983_ + (let ((_g7982_ (let () (declare (not safe)) (##length _g7983_)))) + (cond ((let () (declare (not safe)) (##fx= _g7982_ 2)) + (apply (lambda (_f4730_ _lst4731_) + (let () + (declare (not safe)) + (filter-map1 _f4730_ _lst4731_))) + _g7983_)) + ((let () (declare (not safe)) (##fx= _g7982_ 3)) + (apply (lambda (_f4733_ _lst14734_ _lst24735_) + (let () + (declare (not safe)) + (filter-map2 _f4733_ _lst14734_ _lst24735_))) + _g7983_)) + ((let () (declare (not safe)) (##fx>= _g7982_ 3)) + (apply filter-map* _g7983_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g7939_)))))) + _g7983_)))))) (define filter-map* (lambda (_f4718_ . _rest4719_) (let _recur4721_ ((_rest4723_ _rest4719_)) - (if (andmap1 pair? _rest4723_) - (let ((_$e4725_ (apply _f4718_ (map car _rest4723_)))) + (if (let () (declare (not safe)) (andmap1 pair? _rest4723_)) + (let ((_$e4725_ + (apply _f4718_ + (let () + (declare (not safe)) + (map car _rest4723_))))) (if _$e4725_ ((lambda (_r4728_) - (cons _r4728_ (_recur4721_ (map cdr _rest4723_)))) + (let ((__tmp7985 + (let ((__tmp7986 + (let () + (declare (not safe)) + (map cdr _rest4723_)))) + (declare (not safe)) + (_recur4721_ __tmp7986)))) + (declare (not safe)) + (cons _r4728_ __tmp7985))) _$e4725_) - (_recur4721_ (map cdr _rest4723_)))) + (let ((__tmp7984 + (let () (declare (not safe)) (map cdr _rest4723_)))) + (declare (not safe)) + (_recur4721_ __tmp7984)))) '())))) (define iota__% (lambda (_count4686_ _start4687_ _step4688_) - (if (fixnum? _count4686_) + (if (let () (declare (not safe)) (fixnum? _count4686_)) '#!void (error '"expected fixnum" _count4686_)) - (if (number? _start4687_) + (if (let () (declare (not safe)) (number? _start4687_)) '#!void (error '"expected number" _start4687_)) - (if (number? _step4688_) '#!void (error '"expected number" _step4688_)) - (let ((_root4690_ (cons '#f '()))) + (if (let () (declare (not safe)) (number? _step4688_)) + '#!void + (error '"expected number" _step4688_)) + (let ((_root4690_ (let () (declare (not safe)) (cons '#f '())))) (let _lp4692_ ((_i4694_ '0) (_x4695_ _start4687_) (_tl4696_ _root4690_)) (if (let () (declare (not safe)) (##fx< _i4694_ _count4686_)) - (let ((_tl*4698_ (cons _x4695_ '()))) + (let ((_tl*4698_ + (let () (declare (not safe)) (cons _x4695_ '())))) (let () (declare (not safe)) (##set-cdr! _tl4696_ _tl*4698_)) - (_lp4692_ - (let () (declare (not safe)) (##fx+ _i4694_ '1)) - (+ _x4695_ _step4688_) - _tl*4698_)) + (let ((__tmp7988 + (let () (declare (not safe)) (##fx+ _i4694_ '1))) + (__tmp7987 (+ _x4695_ _step4688_))) + (declare (not safe)) + (_lp4692_ __tmp7988 __tmp7987 _tl*4698_))) (let () (declare (not safe)) (##cdr _root4690_))))))) (define iota__0 (lambda (_count4703_) (let* ((_start4705_ '0) (_step4707_ '1)) + (declare (not safe)) (iota__% _count4703_ _start4705_ _step4707_)))) (define iota__1 (lambda (_count4709_ _start4710_) - (let ((_step4712_ '1)) (iota__% _count4709_ _start4710_ _step4712_)))) + (let ((_step4712_ '1)) + (declare (not safe)) + (iota__% _count4709_ _start4710_ _step4712_)))) (define iota - (lambda _g7941_ - (let ((_g7940_ (let () (declare (not safe)) (##length _g7941_)))) - (cond ((let () (declare (not safe)) (##fx= _g7940_ 1)) - (apply iota__0 _g7941_)) - ((let () (declare (not safe)) (##fx= _g7940_ 2)) - (apply iota__1 _g7941_)) - ((let () (declare (not safe)) (##fx= _g7940_ 3)) - (apply iota__% _g7941_)) + (lambda _g7990_ + (let ((_g7989_ (let () (declare (not safe)) (##length _g7990_)))) + (cond ((let () (declare (not safe)) (##fx= _g7989_ 1)) + (apply (lambda (_count4703_) + (let () (declare (not safe)) (iota__0 _count4703_))) + _g7990_)) + ((let () (declare (not safe)) (##fx= _g7989_ 2)) + (apply (lambda (_count4709_ _start4710_) + (let () + (declare (not safe)) + (iota__1 _count4709_ _start4710_))) + _g7990_)) + ((let () (declare (not safe)) (##fx= _g7989_ 3)) + (apply (lambda (_count4714_ _start4715_ _step4716_) + (let () + (declare (not safe)) + (iota__% _count4714_ _start4715_ _step4716_))) + _g7990_)) (else (##raise-wrong-number-of-arguments-exception iota - _g7941_)))))) + _g7990_)))))) (define last-pair (lambda (_lst4660_) (let* ((_lst46614668_ _lst4660_) @@ -817,98 +1163,142 @@ (lambda () (error '"No clause matching" _lst46614668_))) (_K46644677_ (lambda (_rest4675_) - (if (pair? _rest4675_) (last-pair _rest4675_) _lst4660_)))) + (if (let () (declare (not safe)) (pair? _rest4675_)) + (let () (declare (not safe)) (last-pair _rest4675_)) + _lst4660_)))) (if (let () (declare (not safe)) (##pair? _lst46614668_)) (let* ((_tl46664680_ (let () (declare (not safe)) (##cdr _lst46614668_))) (_rest4683_ _tl46664680_)) + (declare (not safe)) (_K46644677_ _rest4683_)) - (_E46634672_))))) - (define last (lambda (_lst4658_) (car (last-pair _lst4658_)))) + (let () (declare (not safe)) (_E46634672_)))))) + (define last + (lambda (_lst4658_) + (let ((__tmp7991 (let () (declare (not safe)) (last-pair _lst4658_)))) + (declare (not safe)) + (car __tmp7991)))) (define assgetq__% (lambda (_key4636_ _lst4638_ _default4640_) - (let ((_$e4643_ (if (pair? _lst4638_) (assq _key4636_ _lst4638_) '#f))) + (let ((_$e4643_ + (if (let () (declare (not safe)) (pair? _lst4638_)) + (let () (declare (not safe)) (assq _key4636_ _lst4638_)) + '#f))) (if _$e4643_ - (cdr _$e4643_) - (if (procedure? _default4640_) + (let () (declare (not safe)) (cdr _$e4643_)) + (if (let () (declare (not safe)) (procedure? _default4640_)) (_default4640_ _key4636_) _default4640_))))) (define assgetq__0 (lambda (_key4649_ _lst4650_) (let ((_default4652_ '#f)) + (declare (not safe)) (assgetq__% _key4649_ _lst4650_ _default4652_)))) (define assgetq - (lambda _g7943_ - (let ((_g7942_ (let () (declare (not safe)) (##length _g7943_)))) - (cond ((let () (declare (not safe)) (##fx= _g7942_ 2)) - (apply assgetq__0 _g7943_)) - ((let () (declare (not safe)) (##fx= _g7942_ 3)) - (apply assgetq__% _g7943_)) + (lambda _g7993_ + (let ((_g7992_ (let () (declare (not safe)) (##length _g7993_)))) + (cond ((let () (declare (not safe)) (##fx= _g7992_ 2)) + (apply (lambda (_key4649_ _lst4650_) + (let () + (declare (not safe)) + (assgetq__0 _key4649_ _lst4650_))) + _g7993_)) + ((let () (declare (not safe)) (##fx= _g7992_ 3)) + (apply (lambda (_key4654_ _lst4655_ _default4656_) + (let () + (declare (not safe)) + (assgetq__% _key4654_ _lst4655_ _default4656_))) + _g7993_)) (else (##raise-wrong-number-of-arguments-exception assgetq - _g7943_)))))) + _g7993_)))))) (define assgetv__% (lambda (_key4613_ _lst4615_ _default4617_) - (let ((_$e4620_ (if (pair? _lst4615_) (assv _key4613_ _lst4615_) '#f))) + (let ((_$e4620_ + (if (let () (declare (not safe)) (pair? _lst4615_)) + (let () (declare (not safe)) (assv _key4613_ _lst4615_)) + '#f))) (if _$e4620_ - (cdr _$e4620_) - (if (procedure? _default4617_) + (let () (declare (not safe)) (cdr _$e4620_)) + (if (let () (declare (not safe)) (procedure? _default4617_)) (_default4617_ _key4613_) _default4617_))))) (define assgetv__0 (lambda (_key4626_ _lst4627_) (let ((_default4629_ '#f)) + (declare (not safe)) (assgetv__% _key4626_ _lst4627_ _default4629_)))) (define assgetv - (lambda _g7945_ - (let ((_g7944_ (let () (declare (not safe)) (##length _g7945_)))) - (cond ((let () (declare (not safe)) (##fx= _g7944_ 2)) - (apply assgetv__0 _g7945_)) - ((let () (declare (not safe)) (##fx= _g7944_ 3)) - (apply assgetv__% _g7945_)) + (lambda _g7995_ + (let ((_g7994_ (let () (declare (not safe)) (##length _g7995_)))) + (cond ((let () (declare (not safe)) (##fx= _g7994_ 2)) + (apply (lambda (_key4626_ _lst4627_) + (let () + (declare (not safe)) + (assgetv__0 _key4626_ _lst4627_))) + _g7995_)) + ((let () (declare (not safe)) (##fx= _g7994_ 3)) + (apply (lambda (_key4631_ _lst4632_ _default4633_) + (let () + (declare (not safe)) + (assgetv__% _key4631_ _lst4632_ _default4633_))) + _g7995_)) (else (##raise-wrong-number-of-arguments-exception assgetv - _g7945_)))))) + _g7995_)))))) (define assget__% (lambda (_key4590_ _lst4592_ _default4594_) (let ((_$e4597_ - (if (pair? _lst4592_) (assoc _key4590_ _lst4592_) '#f))) + (if (let () (declare (not safe)) (pair? _lst4592_)) + (let () (declare (not safe)) (assoc _key4590_ _lst4592_)) + '#f))) (if _$e4597_ - (cdr _$e4597_) - (if (procedure? _default4594_) + (let () (declare (not safe)) (cdr _$e4597_)) + (if (let () (declare (not safe)) (procedure? _default4594_)) (_default4594_ _key4590_) _default4594_))))) (define assget__0 (lambda (_key4603_ _lst4604_) (let ((_default4606_ '#f)) + (declare (not safe)) (assget__% _key4603_ _lst4604_ _default4606_)))) (define assget - (lambda _g7947_ - (let ((_g7946_ (let () (declare (not safe)) (##length _g7947_)))) - (cond ((let () (declare (not safe)) (##fx= _g7946_ 2)) - (apply assget__0 _g7947_)) - ((let () (declare (not safe)) (##fx= _g7946_ 3)) - (apply assget__% _g7947_)) + (lambda _g7997_ + (let ((_g7996_ (let () (declare (not safe)) (##length _g7997_)))) + (cond ((let () (declare (not safe)) (##fx= _g7996_ 2)) + (apply (lambda (_key4603_ _lst4604_) + (let () + (declare (not safe)) + (assget__0 _key4603_ _lst4604_))) + _g7997_)) + ((let () (declare (not safe)) (##fx= _g7996_ 3)) + (apply (lambda (_key4608_ _lst4609_ _default4610_) + (let () + (declare (not safe)) + (assget__% _key4608_ _lst4609_ _default4610_))) + _g7997_)) (else (##raise-wrong-number-of-arguments-exception assget - _g7947_)))))) + _g7997_)))))) (define pgetq__% (lambda (_key4519_ _lst4521_ _default4523_) (let _lp4526_ ((_rest4529_ _lst4521_)) (let* ((_rest45314541_ _rest4529_) (_else45334549_ (lambda () - (if (procedure? _default4523_) + (if (let () + (declare (not safe)) + (procedure? _default4523_)) (_default4523_ _key4519_) _default4523_))) (_K45354558_ (lambda (_rest4552_ _v4553_ _k4555_) - (if (eq? _k4555_ _key4519_) + (if (let () (declare (not safe)) (eq? _k4555_ _key4519_)) _v4553_ - (_lp4526_ _rest4552_))))) + (let () (declare (not safe)) (_lp4526_ _rest4552_)))))) (if (let () (declare (not safe)) (##pair? _rest45314541_)) (let ((_hd45364561_ (let () (declare (not safe)) (##car _rest45314541_))) @@ -926,38 +1316,50 @@ (##cdr _tl45374563_)))) (let* ((_v4573_ _hd45384568_) (_rest4575_ _tl45394570_)) + (declare (not safe)) (_K45354558_ _rest4575_ _v4573_ _k4566_))) - (_else45334549_)))) - (_else45334549_)))))) + (let () (declare (not safe)) (_else45334549_))))) + (let () (declare (not safe)) (_else45334549_))))))) (define pgetq__0 (lambda (_key4580_ _lst4581_) (let ((_default4583_ '#f)) + (declare (not safe)) (pgetq__% _key4580_ _lst4581_ _default4583_)))) (define pgetq - (lambda _g7949_ - (let ((_g7948_ (let () (declare (not safe)) (##length _g7949_)))) - (cond ((let () (declare (not safe)) (##fx= _g7948_ 2)) - (apply pgetq__0 _g7949_)) - ((let () (declare (not safe)) (##fx= _g7948_ 3)) - (apply pgetq__% _g7949_)) + (lambda _g7999_ + (let ((_g7998_ (let () (declare (not safe)) (##length _g7999_)))) + (cond ((let () (declare (not safe)) (##fx= _g7998_ 2)) + (apply (lambda (_key4580_ _lst4581_) + (let () + (declare (not safe)) + (pgetq__0 _key4580_ _lst4581_))) + _g7999_)) + ((let () (declare (not safe)) (##fx= _g7998_ 3)) + (apply (lambda (_key4585_ _lst4586_ _default4587_) + (let () + (declare (not safe)) + (pgetq__% _key4585_ _lst4586_ _default4587_))) + _g7999_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g7949_)))))) + _g7999_)))))) (define pgetv__% (lambda (_key4448_ _lst4450_ _default4452_) (let _lp4455_ ((_rest4458_ _lst4450_)) (let* ((_rest44604470_ _rest4458_) (_else44624478_ (lambda () - (if (procedure? _default4452_) + (if (let () + (declare (not safe)) + (procedure? _default4452_)) (_default4452_ _key4448_) _default4452_))) (_K44644487_ (lambda (_rest4481_ _v4482_ _k4484_) - (if (eqv? _k4484_ _key4448_) + (if (let () (declare (not safe)) (eqv? _k4484_ _key4448_)) _v4482_ - (_lp4455_ _rest4481_))))) + (let () (declare (not safe)) (_lp4455_ _rest4481_)))))) (if (let () (declare (not safe)) (##pair? _rest44604470_)) (let ((_hd44654490_ (let () (declare (not safe)) (##car _rest44604470_))) @@ -975,38 +1377,52 @@ (##cdr _tl44664492_)))) (let* ((_v4502_ _hd44674497_) (_rest4504_ _tl44684499_)) + (declare (not safe)) (_K44644487_ _rest4504_ _v4502_ _k4495_))) - (_else44624478_)))) - (_else44624478_)))))) + (let () (declare (not safe)) (_else44624478_))))) + (let () (declare (not safe)) (_else44624478_))))))) (define pgetv__0 (lambda (_key4509_ _lst4510_) (let ((_default4512_ '#f)) + (declare (not safe)) (pgetv__% _key4509_ _lst4510_ _default4512_)))) (define pgetv - (lambda _g7951_ - (let ((_g7950_ (let () (declare (not safe)) (##length _g7951_)))) - (cond ((let () (declare (not safe)) (##fx= _g7950_ 2)) - (apply pgetv__0 _g7951_)) - ((let () (declare (not safe)) (##fx= _g7950_ 3)) - (apply pgetv__% _g7951_)) + (lambda _g8001_ + (let ((_g8000_ (let () (declare (not safe)) (##length _g8001_)))) + (cond ((let () (declare (not safe)) (##fx= _g8000_ 2)) + (apply (lambda (_key4509_ _lst4510_) + (let () + (declare (not safe)) + (pgetv__0 _key4509_ _lst4510_))) + _g8001_)) + ((let () (declare (not safe)) (##fx= _g8000_ 3)) + (apply (lambda (_key4514_ _lst4515_ _default4516_) + (let () + (declare (not safe)) + (pgetv__% _key4514_ _lst4515_ _default4516_))) + _g8001_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g7951_)))))) + _g8001_)))))) (define pget__% (lambda (_key4377_ _lst4379_ _default4381_) (let _lp4384_ ((_rest4387_ _lst4379_)) (let* ((_rest43894399_ _rest4387_) (_else43914407_ (lambda () - (if (procedure? _default4381_) + (if (let () + (declare (not safe)) + (procedure? _default4381_)) (_default4381_ _key4377_) _default4381_))) (_K43934416_ (lambda (_rest4410_ _v4411_ _k4413_) - (if (equal? _k4413_ _key4377_) + (if (let () + (declare (not safe)) + (equal? _k4413_ _key4377_)) _v4411_ - (_lp4384_ _rest4410_))))) + (let () (declare (not safe)) (_lp4384_ _rest4410_)))))) (if (let () (declare (not safe)) (##pair? _rest43894399_)) (let ((_hd43944419_ (let () (declare (not safe)) (##car _rest43894399_))) @@ -1024,28 +1440,39 @@ (##cdr _tl43954421_)))) (let* ((_v4431_ _hd43964426_) (_rest4433_ _tl43974428_)) + (declare (not safe)) (_K43934416_ _rest4433_ _v4431_ _k4424_))) - (_else43914407_)))) - (_else43914407_)))))) + (let () (declare (not safe)) (_else43914407_))))) + (let () (declare (not safe)) (_else43914407_))))))) (define pget__0 (lambda (_key4438_ _lst4439_) (let ((_default4441_ '#f)) + (declare (not safe)) (pget__% _key4438_ _lst4439_ _default4441_)))) (define pget - (lambda _g7953_ - (let ((_g7952_ (let () (declare (not safe)) (##length _g7953_)))) - (cond ((let () (declare (not safe)) (##fx= _g7952_ 2)) - (apply pget__0 _g7953_)) - ((let () (declare (not safe)) (##fx= _g7952_ 3)) - (apply pget__% _g7953_)) + (lambda _g8003_ + (let ((_g8002_ (let () (declare (not safe)) (##length _g8003_)))) + (cond ((let () (declare (not safe)) (##fx= _g8002_ 2)) + (apply (lambda (_key4438_ _lst4439_) + (let () + (declare (not safe)) + (pget__0 _key4438_ _lst4439_))) + _g8003_)) + ((let () (declare (not safe)) (##fx= _g8002_ 3)) + (apply (lambda (_key4443_ _lst4444_ _default4445_) + (let () + (declare (not safe)) + (pget__% _key4443_ _lst4444_ _default4445_))) + _g8003_)) (else (##raise-wrong-number-of-arguments-exception pget - _g7953_)))))) + _g8003_)))))) (define find (lambda (_pred4370_ _lst4371_) - (let ((_$e4373_ (memf _pred4370_ _lst4371_))) - (if _$e4373_ (car _$e4373_) '#f)))) + (let ((_$e4373_ + (let () (declare (not safe)) (memf _pred4370_ _lst4371_)))) + (if _$e4373_ (let () (declare (not safe)) (car _$e4373_)) '#f)))) (define memf (lambda (_proc4330_ _lst4331_) (let _lp4333_ ((_rest4335_ _lst4331_)) @@ -1055,15 +1482,16 @@ (lambda (_tl4355_ _hd4356_) (if (_proc4330_ _hd4356_) _rest4335_ - (_lp4333_ _tl4355_))))) + (let () (declare (not safe)) (_lp4333_ _tl4355_)))))) (if (let () (declare (not safe)) (##pair? _rest43364344_)) (let ((_hd43414361_ (let () (declare (not safe)) (##car _rest43364344_))) (_tl43424363_ (let () (declare (not safe)) (##cdr _rest43364344_)))) (let* ((_hd4366_ _hd43414361_) (_tl4368_ _tl43424363_)) + (declare (not safe)) (_K43404358_ _tl4368_ _hd4366_))) - (_else43384352_)))))) + (let () (declare (not safe)) (_else43384352_))))))) (define remove1 (lambda (_el4283_ _lst4285_) (let _lp4288_ ((_rest4291_ _lst4285_) (_r4293_ '())) @@ -1071,17 +1499,27 @@ (_else42974311_ (lambda () _lst4285_)) (_K42994318_ (lambda (_rest4314_ _hd4315_) - (if (equal? _el4283_ _hd4315_) - (foldl1 cons _rest4314_ _r4293_) - (_lp4288_ _rest4314_ (cons _hd4315_ _r4293_)))))) + (if (let () + (declare (not safe)) + (equal? _el4283_ _hd4315_)) + (let () + (declare (not safe)) + (foldl1 cons _rest4314_ _r4293_)) + (let ((__tmp8004 + (let () + (declare (not safe)) + (cons _hd4315_ _r4293_)))) + (declare (not safe)) + (_lp4288_ _rest4314_ __tmp8004)))))) (if (let () (declare (not safe)) (##pair? _rest42954303_)) (let ((_hd43004321_ (let () (declare (not safe)) (##car _rest42954303_))) (_tl43014323_ (let () (declare (not safe)) (##cdr _rest42954303_)))) (let* ((_hd4326_ _hd43004321_) (_rest4328_ _tl43014323_)) + (declare (not safe)) (_K42994318_ _rest4328_ _hd4326_))) - (_else42974311_)))))) + (let () (declare (not safe)) (_else42974311_))))))) (define remv (lambda (_el4236_ _lst4238_) (let _lp4241_ ((_rest4244_ _lst4238_) (_r4246_ '())) @@ -1089,17 +1527,25 @@ (_else42504264_ (lambda () _lst4238_)) (_K42524271_ (lambda (_rest4267_ _hd4268_) - (if (eqv? _el4236_ _hd4268_) - (foldl1 cons _rest4267_ _r4246_) - (_lp4241_ _rest4267_ (cons _hd4268_ _r4246_)))))) + (if (let () (declare (not safe)) (eqv? _el4236_ _hd4268_)) + (let () + (declare (not safe)) + (foldl1 cons _rest4267_ _r4246_)) + (let ((__tmp8005 + (let () + (declare (not safe)) + (cons _hd4268_ _r4246_)))) + (declare (not safe)) + (_lp4241_ _rest4267_ __tmp8005)))))) (if (let () (declare (not safe)) (##pair? _rest42484256_)) (let ((_hd42534274_ (let () (declare (not safe)) (##car _rest42484256_))) (_tl42544276_ (let () (declare (not safe)) (##cdr _rest42484256_)))) (let* ((_hd4279_ _hd42534274_) (_rest4281_ _tl42544276_)) + (declare (not safe)) (_K42524271_ _rest4281_ _hd4279_))) - (_else42504264_)))))) + (let () (declare (not safe)) (_else42504264_))))))) (define remq (lambda (_el4189_ _lst4191_) (let _lp4194_ ((_rest4197_ _lst4191_) (_r4199_ '())) @@ -1107,17 +1553,25 @@ (_else42034217_ (lambda () _lst4191_)) (_K42054224_ (lambda (_rest4220_ _hd4221_) - (if (eq? _el4189_ _hd4221_) - (foldl1 cons _rest4220_ _r4199_) - (_lp4194_ _rest4220_ (cons _hd4221_ _r4199_)))))) + (if (let () (declare (not safe)) (eq? _el4189_ _hd4221_)) + (let () + (declare (not safe)) + (foldl1 cons _rest4220_ _r4199_)) + (let ((__tmp8006 + (let () + (declare (not safe)) + (cons _hd4221_ _r4199_)))) + (declare (not safe)) + (_lp4194_ _rest4220_ __tmp8006)))))) (if (let () (declare (not safe)) (##pair? _rest42014209_)) (let ((_hd42064227_ (let () (declare (not safe)) (##car _rest42014209_))) (_tl42074229_ (let () (declare (not safe)) (##cdr _rest42014209_)))) (let* ((_hd4232_ _hd42064227_) (_rest4234_ _tl42074229_)) + (declare (not safe)) (_K42054224_ _rest4234_ _hd4232_))) - (_else42034217_)))))) + (let () (declare (not safe)) (_else42034217_))))))) (define remf (lambda (_proc4148_ _lst4149_) (let _lp4151_ ((_rest4153_ _lst4149_) (_r4154_ '())) @@ -1126,16 +1580,24 @@ (_K41594177_ (lambda (_rest4174_ _hd4175_) (if (_proc4148_ _hd4175_) - (foldl1 cons _rest4174_ _r4154_) - (_lp4151_ _rest4174_ (cons _hd4175_ _r4154_)))))) + (let () + (declare (not safe)) + (foldl1 cons _rest4174_ _r4154_)) + (let ((__tmp8007 + (let () + (declare (not safe)) + (cons _hd4175_ _r4154_)))) + (declare (not safe)) + (_lp4151_ _rest4174_ __tmp8007)))))) (if (let () (declare (not safe)) (##pair? _rest41554163_)) (let ((_hd41604180_ (let () (declare (not safe)) (##car _rest41554163_))) (_tl41614182_ (let () (declare (not safe)) (##cdr _rest41554163_)))) (let* ((_hd4185_ _hd41604180_) (_rest4187_ _tl41614182_)) + (declare (not safe)) (_K41594177_ _rest4187_ _hd4185_))) - (_else41574171_)))))) + (let () (declare (not safe)) (_else41574171_))))))) (define 1+ (lambda (_x4146_) (+ _x4146_ '1))) (define 1- (lambda (_x4144_) (- _x4144_ '1))) (define fx1+ (lambda (_x4142_) (fx+ _x4142_ '1))) @@ -1144,122 +1606,218 @@ (define fx/ fxquotient) (define interned-symbol? (lambda (_x4138_) - (if (symbol? _x4138_) (not (uninterned-symbol? _x4138_)) '#f))) + (if (let () (declare (not safe)) (symbol? _x4138_)) + (let ((__tmp8008 + (let () (declare (not safe)) (uninterned-symbol? _x4138_)))) + (declare (not safe)) + (not __tmp8008)) + '#f))) (define make-symbol (lambda _args4134_ - (string->symbol - (apply string-append - (map (lambda (_x4136_) - (if (string? _x4136_) - _x4136_ - (if (symbol? _x4136_) - (symbol->string _x4136_) - (if (keyword? _x4136_) - (keyword->string _x4136_) - (if (number? _x4136_) - (number->string _x4136_) - (error '"cannot convert to symbol" - _x4136_)))))) - _args4134_))))) + (let ((__tmp8009 + (apply string-append + (let ((__tmp8010 + (lambda (_x4136_) + (if (let () + (declare (not safe)) + (string? _x4136_)) + _x4136_ + (if (let () + (declare (not safe)) + (symbol? _x4136_)) + (let () + (declare (not safe)) + (symbol->string _x4136_)) + (if (let () + (declare (not safe)) + (keyword? _x4136_)) + (let () + (declare (not safe)) + (keyword->string _x4136_)) + (if (let () + (declare (not safe)) + (number? _x4136_)) + (let () + (declare (not safe)) + (number->string _x4136_)) + (error '"cannot convert to symbol" + _x4136_)))))))) + (declare (not safe)) + (map __tmp8010 _args4134_))))) + (declare (not safe)) + (string->symbol __tmp8009)))) (define interned-keyword? (lambda (_x4132_) - (if (keyword? _x4132_) (not (uninterned-keyword? _x4132_)) '#f))) + (if (let () (declare (not safe)) (keyword? _x4132_)) + (let ((__tmp8011 + (let () + (declare (not safe)) + (uninterned-keyword? _x4132_)))) + (declare (not safe)) + (not __tmp8011)) + '#f))) (define symbol->keyword (lambda (_sym4130_) - ((if (uninterned-symbol? _sym4130_) + ((if (let () (declare (not safe)) (uninterned-symbol? _sym4130_)) string->uninterned-keyword string->keyword) - (symbol->string _sym4130_)))) + (let () (declare (not safe)) (symbol->string _sym4130_))))) (define keyword->symbol (lambda (_kw4128_) - ((if (uninterned-keyword? _kw4128_) + ((if (let () (declare (not safe)) (uninterned-keyword? _kw4128_)) string->uninterned-symbol string->symbol) - (keyword->string _kw4128_)))) + (let () (declare (not safe)) (keyword->string _kw4128_))))) (define bytes->string__% (lambda (_bstr4106_ _enc4107_) - (if (eq? _enc4107_ 'UTF-8) + (if (let () (declare (not safe)) (eq? _enc4107_ 'UTF-8)) (utf8->string _bstr4106_) (let* ((_in4109_ - (open-input-u8vector - (cons 'char-encoding: - (cons _enc4107_ - (cons 'init: (cons _bstr4106_ '())))))) - (_len4111_ (u8vector-length _bstr4106_)) - (_out4113_ (make-string _len4111_)) - (_n4115_ (read-substring _out4113_ '0 _len4111_ _in4109_))) - (string-shrink! _out4113_ _n4115_) + (let ((__tmp8012 + (let ((__tmp8013 + (let ((__tmp8014 + (let ((__tmp8015 + (let () + (declare (not safe)) + (cons _bstr4106_ '())))) + (declare (not safe)) + (cons 'init: __tmp8015)))) + (declare (not safe)) + (cons _enc4107_ __tmp8014)))) + (declare (not safe)) + (cons 'char-encoding: __tmp8013)))) + (declare (not safe)) + (open-input-u8vector __tmp8012))) + (_len4111_ + (let () (declare (not safe)) (u8vector-length _bstr4106_))) + (_out4113_ + (let () (declare (not safe)) (make-string _len4111_))) + (_n4115_ (let () + (declare (not safe)) + (read-substring + _out4113_ + '0 + _len4111_ + _in4109_)))) + (let () (declare (not safe)) (string-shrink! _out4113_ _n4115_)) _out4113_)))) (define bytes->string__0 (lambda (_bstr4121_) - (let ((_enc4123_ 'UTF-8)) (bytes->string__% _bstr4121_ _enc4123_)))) + (let ((_enc4123_ 'UTF-8)) + (declare (not safe)) + (bytes->string__% _bstr4121_ _enc4123_)))) (define bytes->string - (lambda _g7955_ - (let ((_g7954_ (let () (declare (not safe)) (##length _g7955_)))) - (cond ((let () (declare (not safe)) (##fx= _g7954_ 1)) - (apply bytes->string__0 _g7955_)) - ((let () (declare (not safe)) (##fx= _g7954_ 2)) - (apply bytes->string__% _g7955_)) + (lambda _g8017_ + (let ((_g8016_ (let () (declare (not safe)) (##length _g8017_)))) + (cond ((let () (declare (not safe)) (##fx= _g8016_ 1)) + (apply (lambda (_bstr4121_) + (let () + (declare (not safe)) + (bytes->string__0 _bstr4121_))) + _g8017_)) + ((let () (declare (not safe)) (##fx= _g8016_ 2)) + (apply (lambda (_bstr4125_ _enc4126_) + (let () + (declare (not safe)) + (bytes->string__% _bstr4125_ _enc4126_))) + _g8017_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g7955_)))))) + _g8017_)))))) (define string->bytes__% (lambda (_str4092_ _enc4093_) - (if (eq? _enc4093_ 'UTF-8) + (if (let () (declare (not safe)) (eq? _enc4093_ 'UTF-8)) (string->utf8 _str4092_) - (substring->bytes - _str4092_ - '0 - (string-length _str4092_) - _enc4093_)))) + (let ((__tmp8018 + (let () (declare (not safe)) (string-length _str4092_)))) + (declare (not safe)) + (substring->bytes _str4092_ '0 __tmp8018 _enc4093_))))) (define string->bytes__0 (lambda (_str4098_) - (let ((_enc4100_ 'UTF-8)) (string->bytes__% _str4098_ _enc4100_)))) + (let ((_enc4100_ 'UTF-8)) + (declare (not safe)) + (string->bytes__% _str4098_ _enc4100_)))) (define string->bytes - (lambda _g7957_ - (let ((_g7956_ (let () (declare (not safe)) (##length _g7957_)))) - (cond ((let () (declare (not safe)) (##fx= _g7956_ 1)) - (apply string->bytes__0 _g7957_)) - ((let () (declare (not safe)) (##fx= _g7956_ 2)) - (apply string->bytes__% _g7957_)) + (lambda _g8020_ + (let ((_g8019_ (let () (declare (not safe)) (##length _g8020_)))) + (cond ((let () (declare (not safe)) (##fx= _g8019_ 1)) + (apply (lambda (_str4098_) + (let () + (declare (not safe)) + (string->bytes__0 _str4098_))) + _g8020_)) + ((let () (declare (not safe)) (##fx= _g8019_ 2)) + (apply (lambda (_str4102_ _enc4103_) + (let () + (declare (not safe)) + (string->bytes__% _str4102_ _enc4103_))) + _g8020_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g7957_)))))) + _g8020_)))))) (define substring->bytes__% (lambda (_str4070_ _start4071_ _end4072_ _enc4073_) - (if (eq? _enc4073_ 'UTF-8) + (if (let () (declare (not safe)) (eq? _enc4073_ 'UTF-8)) (string->utf8 _str4070_ _start4071_ _end4072_) (let ((_out4075_ - (open-output-u8vector - (cons 'char-encoding: (cons _enc4073_ '()))))) - (write-substring _str4070_ _start4071_ _end4072_ _out4075_) - (get-output-u8vector _out4075_))))) + (let ((__tmp8021 + (let ((__tmp8022 + (let () + (declare (not safe)) + (cons _enc4073_ '())))) + (declare (not safe)) + (cons 'char-encoding: __tmp8022)))) + (declare (not safe)) + (open-output-u8vector __tmp8021)))) + (let () + (declare (not safe)) + (write-substring _str4070_ _start4071_ _end4072_ _out4075_)) + (let () (declare (not safe)) (get-output-u8vector _out4075_)))))) (define substring->bytes__0 (lambda (_str4080_ _start4081_ _end4082_) (let ((_enc4084_ 'UTF-8)) + (declare (not safe)) (substring->bytes__% _str4080_ _start4081_ _end4082_ _enc4084_)))) (define substring->bytes - (lambda _g7959_ - (let ((_g7958_ (let () (declare (not safe)) (##length _g7959_)))) - (cond ((let () (declare (not safe)) (##fx= _g7958_ 3)) - (apply substring->bytes__0 _g7959_)) - ((let () (declare (not safe)) (##fx= _g7958_ 4)) - (apply substring->bytes__% _g7959_)) + (lambda _g8024_ + (let ((_g8023_ (let () (declare (not safe)) (##length _g8024_)))) + (cond ((let () (declare (not safe)) (##fx= _g8023_ 3)) + (apply (lambda (_str4080_ _start4081_ _end4082_) + (let () + (declare (not safe)) + (substring->bytes__0 + _str4080_ + _start4081_ + _end4082_))) + _g8024_)) + ((let () (declare (not safe)) (##fx= _g8023_ 4)) + (apply (lambda (_str4086_ _start4087_ _end4088_ _enc4089_) + (let () + (declare (not safe)) + (substring->bytes__% + _str4086_ + _start4087_ + _end4088_ + _enc4089_))) + _g8024_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g7959_)))))) + _g8024_)))))) (define string-empty? (lambda (_str4067_) - (let ((__tmp7960 (string-length _str4067_))) + (let ((__tmp8025 + (let () (declare (not safe)) (string-length _str4067_)))) (declare (not safe)) - (##fxzero? __tmp7960)))) + (##fxzero? __tmp8025)))) (define string-prefix? (lambda (_prefix4057_ _str4058_) - (let ((_str-len4060_ (string-length _str4058_)) - (_prefix-len4061_ (string-length _prefix4057_))) + (let ((_str-len4060_ + (let () (declare (not safe)) (string-length _str4058_))) + (_prefix-len4061_ + (let () (declare (not safe)) (string-length _prefix4057_)))) (if (let () (declare (not safe)) (##fx<= _prefix-len4061_ _str-len4060_)) @@ -1267,48 +1825,74 @@ (if (let () (declare (not safe)) (##fx< _i4065_ _prefix-len4061_)) - (if (eq? (let () - (declare (not safe)) - (##string-ref _str4058_ _i4065_)) - (let () - (declare (not safe)) - (##string-ref _prefix4057_ _i4065_))) - (_lp4063_ - (let () (declare (not safe)) (##fx+ _i4065_ '1))) + (if (let ((__tmp8028 + (let () + (declare (not safe)) + (##string-ref _str4058_ _i4065_))) + (__tmp8027 + (let () + (declare (not safe)) + (##string-ref _prefix4057_ _i4065_)))) + (declare (not safe)) + (eq? __tmp8028 __tmp8027)) + (let ((__tmp8026 + (let () + (declare (not safe)) + (##fx+ _i4065_ '1)))) + (declare (not safe)) + (_lp4063_ __tmp8026)) '#f) '#t)) '#f)))) (define string-index__% (lambda (_str4035_ _char4036_ _start4037_) - (let ((_len4039_ (string-length _str4035_))) + (let ((_len4039_ + (let () (declare (not safe)) (string-length _str4035_)))) (let _lp4041_ ((_k4043_ _start4037_)) (if (let () (declare (not safe)) (##fx< _k4043_ _len4039_)) - (if (eq? _char4036_ - (let () - (declare (not safe)) - (##string-ref _str4035_ _k4043_))) + (if (let ((__tmp8030 + (let () + (declare (not safe)) + (##string-ref _str4035_ _k4043_)))) + (declare (not safe)) + (eq? _char4036_ __tmp8030)) _k4043_ - (_lp4041_ - (let () (declare (not safe)) (##fx+ _k4043_ '1)))) + (let ((__tmp8029 + (let () (declare (not safe)) (##fx+ _k4043_ '1)))) + (declare (not safe)) + (_lp4041_ __tmp8029))) '#f))))) (define string-index__0 (lambda (_str4048_ _char4049_) (let ((_start4051_ '0)) + (declare (not safe)) (string-index__% _str4048_ _char4049_ _start4051_)))) (define string-index - (lambda _g7962_ - (let ((_g7961_ (let () (declare (not safe)) (##length _g7962_)))) - (cond ((let () (declare (not safe)) (##fx= _g7961_ 2)) - (apply string-index__0 _g7962_)) - ((let () (declare (not safe)) (##fx= _g7961_ 3)) - (apply string-index__% _g7962_)) + (lambda _g8032_ + (let ((_g8031_ (let () (declare (not safe)) (##length _g8032_)))) + (cond ((let () (declare (not safe)) (##fx= _g8031_ 2)) + (apply (lambda (_str4048_ _char4049_) + (let () + (declare (not safe)) + (string-index__0 _str4048_ _char4049_))) + _g8032_)) + ((let () (declare (not safe)) (##fx= _g8031_ 3)) + (apply (lambda (_str4053_ _char4054_ _start4055_) + (let () + (declare (not safe)) + (string-index__% + _str4053_ + _char4054_ + _start4055_))) + _g8032_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g7962_)))))) + _g8032_)))))) (define string-rindex__% (lambda (_str4006_ _char4007_ _start4008_) - (let* ((_len4010_ (string-length _str4006_)) + (let* ((_len4010_ + (let () (declare (not safe)) (string-length _str4006_))) (_start4015_ (let ((_$e4012_ _start4008_)) (if _$e4012_ @@ -1316,55 +1900,84 @@ (let () (declare (not safe)) (##fx- _len4010_ '1)))))) (let _lp4018_ ((_k4020_ _start4015_)) (if (let () (declare (not safe)) (##fx>= _k4020_ '0)) - (if (eq? _char4007_ - (let () - (declare (not safe)) - (##string-ref _str4006_ _k4020_))) + (if (let ((__tmp8034 + (let () + (declare (not safe)) + (##string-ref _str4006_ _k4020_)))) + (declare (not safe)) + (eq? _char4007_ __tmp8034)) _k4020_ - (_lp4018_ - (let () (declare (not safe)) (##fx- _k4020_ '1)))) + (let ((__tmp8033 + (let () (declare (not safe)) (##fx- _k4020_ '1)))) + (declare (not safe)) + (_lp4018_ __tmp8033))) '#f))))) (define string-rindex__0 (lambda (_str4025_ _char4026_) (let ((_start4028_ '#f)) + (declare (not safe)) (string-rindex__% _str4025_ _char4026_ _start4028_)))) (define string-rindex - (lambda _g7964_ - (let ((_g7963_ (let () (declare (not safe)) (##length _g7964_)))) - (cond ((let () (declare (not safe)) (##fx= _g7963_ 2)) - (apply string-rindex__0 _g7964_)) - ((let () (declare (not safe)) (##fx= _g7963_ 3)) - (apply string-rindex__% _g7964_)) + (lambda _g8036_ + (let ((_g8035_ (let () (declare (not safe)) (##length _g8036_)))) + (cond ((let () (declare (not safe)) (##fx= _g8035_ 2)) + (apply (lambda (_str4025_ _char4026_) + (let () + (declare (not safe)) + (string-rindex__0 _str4025_ _char4026_))) + _g8036_)) + ((let () (declare (not safe)) (##fx= _g8035_ 3)) + (apply (lambda (_str4030_ _char4031_ _start4032_) + (let () + (declare (not safe)) + (string-rindex__% + _str4030_ + _char4031_ + _start4032_))) + _g8036_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g7964_)))))) + _g8036_)))))) (define string-split (lambda (_str3990_ _char3991_) - (let ((_len3993_ (string-length _str3990_))) + (let ((_len3993_ + (let () (declare (not safe)) (string-length _str3990_)))) (let _lp3995_ ((_start3997_ '0) (_r3998_ '())) - (let ((_$e4000_ (string-index _str3990_ _char3991_ _start3997_))) + (let ((_$e4000_ + (let () + (declare (not safe)) + (string-index _str3990_ _char3991_ _start3997_)))) (if _$e4000_ ((lambda (_end4003_) - (_lp3995_ - (let () (declare (not safe)) (##fx+ _end4003_ '1)) - (cons (let () + (let ((__tmp8040 + (let () (declare (not safe)) (##fx+ _end4003_ '1))) + (__tmp8038 + (let ((__tmp8039 + (let () + (declare (not safe)) + (##substring + _str3990_ + _start3997_ + _end4003_)))) (declare (not safe)) - (##substring _str3990_ _start3997_ _end4003_)) - _r3998_))) + (cons __tmp8039 _r3998_)))) + (declare (not safe)) + (_lp3995_ __tmp8040 __tmp8038))) _$e4000_) (if (let () (declare (not safe)) (##fx< _start3997_ _len3993_)) - (foldl1 cons - (list (let () - (declare (not safe)) - (##substring - _str3990_ - _start3997_ - _len3993_))) - _r3998_) - (reverse _r3998_)))))))) + (let ((__tmp8037 + (list (let () + (declare (not safe)) + (##substring + _str3990_ + _start3997_ + _len3993_))))) + (declare (not safe)) + (foldl1 cons __tmp8037 _r3998_)) + (let () (declare (not safe)) (reverse _r3998_))))))))) (define string-join (lambda (_strs3895_ _join3896_) (letrec ((_join-length3898_ @@ -1374,24 +1987,30 @@ (_else39583972_ (lambda () '0)) (_K39603978_ (lambda (_rest3975_ _hd3976_) - (if (string? _hd3976_) - (if (pair? _rest3975_) - (_lp3952_ - _rest3975_ - (let ((__tmp7965 - (let () - (declare (not safe)) - (##string-length _hd3976_)))) - (declare (not safe)) - (##fx+ __tmp7965 - _jlen3950_ - _len3955_))) - (let ((__tmp7966 + (if (let () + (declare (not safe)) + (string? _hd3976_)) + (if (let () + (declare (not safe)) + (pair? _rest3975_)) + (let ((__tmp8042 + (let ((__tmp8043 + (let () + (declare (not safe)) + (##string-length + _hd3976_)))) + (declare (not safe)) + (##fx+ __tmp8043 + _jlen3950_ + _len3955_)))) + (declare (not safe)) + (_lp3952_ _rest3975_ __tmp8042)) + (let ((__tmp8041 (let () (declare (not safe)) (##string-length _hd3976_)))) (declare (not safe)) - (##fx+ __tmp7966 _len3955_))) + (##fx+ __tmp8041 _len3955_))) (error '"expected string" _hd3976_))))) (if (let () (declare (not safe)) @@ -1406,18 +2025,25 @@ (##cdr _rest39563964_)))) (let* ((_hd3986_ _hd39613981_) (_rest3988_ _tl39623983_)) + (declare (not safe)) (_K39603978_ _rest3988_ _hd3986_))) - (_else39583972_))))))) + (let () + (declare (not safe)) + (_else39583972_)))))))) (let* ((_join3900_ - (if (char? _join3896_) + (if (let () (declare (not safe)) (char? _join3896_)) (string _join3896_) - (if (string? _join3896_) + (if (let () (declare (not safe)) (string? _join3896_)) _join3896_ (error '"expected string or char" _join3896_)))) (_jlen3902_ (let () (declare (not safe)) (##string-length _join3900_))) - (_olen3904_ (_join-length3898_ _strs3895_ _jlen3902_)) - (_ostr3906_ (make-string _olen3904_))) + (_olen3904_ + (let () + (declare (not safe)) + (_join-length3898_ _strs3895_ _jlen3902_))) + (_ostr3906_ + (let () (declare (not safe)) (make-string _olen3904_)))) (let _lp3909_ ((_rest3911_ _strs3895_) (_k3912_ '0)) (let* ((_rest39133921_ _rest3911_) (_else39153929_ (lambda () '"")) @@ -1427,7 +2053,7 @@ (let () (declare (not safe)) (##string-length _hd3933_)))) - (if (pair? _rest3932_) + (if (let () (declare (not safe)) (pair? _rest3932_)) (begin (let () (declare (not safe)) @@ -1437,7 +2063,7 @@ _hdlen3935_ _ostr3906_ _k3912_)) - (let ((__tmp7967 + (let ((__tmp8044 (let () (declare (not safe)) (##fx+ _k3912_ _hdlen3935_)))) @@ -1447,12 +2073,15 @@ '0 _jlen3902_ _ostr3906_ - __tmp7967)) - (_lp3909_ - _rest3932_ - (let () - (declare (not safe)) - (##fx+ _k3912_ _hdlen3935_ _jlen3902_)))) + __tmp8044)) + (let ((__tmp8045 + (let () + (declare (not safe)) + (##fx+ _k3912_ + _hdlen3935_ + _jlen3902_)))) + (declare (not safe)) + (_lp3909_ _rest3932_ __tmp8045))) (begin (let () (declare (not safe)) @@ -1473,5 +2102,6 @@ (declare (not safe)) (##cdr _rest39133921_)))) (let* ((_hd3945_ _hd39183940_) (_rest3947_ _tl39193942_)) + (declare (not safe)) (_K39173937_ _rest3947_ _hd3945_))) - (_else39153929_)))))))))) + (let () (declare (not safe)) (_else39153929_))))))))))) diff --git a/src/bootstrap/gerbil/runtime/util__1.scm b/src/bootstrap/gerbil/runtime/util__1.scm index 6e926aef9..487ff02e0 100644 --- a/src/bootstrap/gerbil/runtime/util__1.scm +++ b/src/bootstrap/gerbil/runtime/util__1.scm @@ -8,95 +8,190 @@ (_g36543729_ (lambda (_g36563677_) (if (gx#stx-pair? _g36563677_) - (let ((_e36593680_ (gx#syntax-e _g36563677_))) + (let ((_e36613680_ (gx#syntax-e _g36563677_))) (let ((_hd36603684_ - (let () (declare (not safe)) (##car _e36593680_))) - (_tl36613687_ + (let () (declare (not safe)) (##car _e36613680_))) + (_tl36593687_ (let () (declare (not safe)) - (##cdr _e36593680_)))) - (if (gx#stx-pair? _tl36613687_) - (let ((_e36623690_ (gx#syntax-e _tl36613687_))) + (##cdr _e36613680_)))) + (if (gx#stx-pair? _tl36593687_) + (let ((_e36643690_ (gx#syntax-e _tl36593687_))) (let ((_hd36633694_ (let () (declare (not safe)) - (##car _e36623690_))) - (_tl36643697_ + (##car _e36643690_))) + (_tl36623697_ (let () (declare (not safe)) - (##cdr _e36623690_)))) - (if (gx#stx-pair? _tl36643697_) - (let ((_e36653700_ - (gx#syntax-e _tl36643697_))) + (##cdr _e36643690_)))) + (if (gx#stx-pair? _tl36623697_) + (let ((_e36673700_ + (gx#syntax-e _tl36623697_))) (let ((_hd36663704_ (let () (declare (not safe)) - (##car _e36653700_))) - (_tl36673707_ + (##car _e36673700_))) + (_tl36653707_ (let () (declare (not safe)) - (##cdr _e36653700_)))) - (if (gx#stx-null? _tl36673707_) + (##cdr _e36673700_)))) + (if (gx#stx-null? _tl36653707_) ((lambda (_L3710_ _L3712_) - (cons (gx#datum->syntax - '#f - 'def) - (cons (cons _L3712_ + (let ((__tmp8094 + (gx#datum->syntax + '#f + 'def)) + (__tmp8046 + (let ((__tmp8085 + (let ((__tmp8086 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp8093 (gx#datum->syntax '#f 'key)) + (__tmp8087 + (let ((__tmp8092 + (gx#datum->syntax '#f 'lst)) + (__tmp8088 + (let ((__tmp8089 + (let ((__tmp8091 + (gx#datum->syntax + '#f + 'default)) + (__tmp8090 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp8091 + __tmp8090)))) + (declare (not safe)) + (cons __tmp8089 '())))) + (declare (not safe)) + (cons __tmp8092 __tmp8088)))) + (declare (not safe)) + (cons __tmp8093 __tmp8087)))) + (declare (not safe)) + (cons _L3712_ __tmp8086))) + (__tmp8047 + (let ((__tmp8048 + (let ((__tmp8084 (gx#datum->syntax '#f 'cond)) + (__tmp8049 + (let ((__tmp8066 + (let ((__tmp8071 + (let ((__tmp8083 + (gx#datum->syntax + '#f + 'and)) + (__tmp8072 + (let ((__tmp8079 + (let ((__tmp8082 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'key) - (cons (gx#datum->syntax '#f 'lst) - (cons (cons (gx#datum->syntax - '#f - 'default) - (cons '#f '())) - '())))) - (cons (cons (gx#datum->syntax '#f 'cond) - (cons (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons (gx#datum->syntax - '#f - 'pair?) - (cons (gx#datum->syntax + (gx#datum->syntax '#f 'pair?)) + (__tmp8080 + (let ((__tmp8081 (gx#datum->syntax '#f 'lst))) + (declare (not safe)) + (cons __tmp8081 '())))) + (declare (not safe)) + (cons __tmp8082 __tmp8080))) + (__tmp8073 + (let ((__tmp8074 + (let ((__tmp8075 + (let ((__tmp8078 + (gx#datum->syntax '#f 'key)) + (__tmp8076 + (let ((__tmp8077 + (gx#datum->syntax + '#f + 'lst))) + (declare (not safe)) + (cons __tmp8077 '())))) + (declare (not safe)) + (cons __tmp8078 __tmp8076)))) + (declare (not safe)) + (cons _L3710_ __tmp8075)))) + (declare (not safe)) + (cons __tmp8074 '())))) + (declare (not safe)) + (cons __tmp8079 __tmp8073)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8083 __tmp8072))) + (__tmp8067 + (let ((__tmp8070 + (gx#datum->syntax + '#f + '=>)) + (__tmp8068 + (let ((__tmp8069 + (gx#datum->syntax + '#f + 'cdr))) + (declare (not safe)) + (cons __tmp8069 + '())))) + (declare (not safe)) + (cons __tmp8070 + __tmp8068)))) + (declare (not safe)) + (cons __tmp8071 __tmp8067))) + (__tmp8050 + (let ((__tmp8056 + (let ((__tmp8062 + (let ((__tmp8065 + (gx#datum->syntax + '#f + 'procedure?)) + (__tmp8063 + (let ((__tmp8064 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lst) - '())) - (cons (cons _L3710_ - (cons (gx#datum->syntax '#f 'key) - (cons (gx#datum->syntax '#f 'lst) '()))) - '()))) + (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp8064 '())))) + (declare (not safe)) + (cons __tmp8065 __tmp8063))) + (__tmp8057 + (let ((__tmp8058 + (let ((__tmp8061 (gx#datum->syntax '#f 'default)) + (__tmp8059 + (let ((__tmp8060 (gx#datum->syntax '#f 'key))) + (declare (not safe)) + (cons __tmp8060 '())))) + (declare (not safe)) + (cons __tmp8061 __tmp8059)))) + (declare (not safe)) + (cons __tmp8058 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (gx#datum->syntax '#f '=>) - (cons (gx#datum->syntax - '#f - 'cdr) - '()))) - (cons (cons (cons (gx#datum->syntax - '#f - 'procedure?) - (cons (gx#datum->syntax - '#f - 'default) - '())) - (cons (cons (gx#datum->syntax - '#f - 'default) - (cons (gx#datum->syntax + (declare (not safe)) + (cons __tmp8062 __tmp8057))) + (__tmp8051 + (let ((__tmp8052 + (let ((__tmp8055 + (gx#datum->syntax + '#f + 'else)) + (__tmp8053 + (let ((__tmp8054 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'key) - '())) - '())) + (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp8054 '())))) + (declare (not safe)) + (cons __tmp8055 __tmp8053)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'else) - (cons (gx#datum->syntax - '#f - 'default) - '())) - '())))) - '())))) + (declare (not safe)) + (cons __tmp8052 '())))) + (declare (not safe)) + (cons __tmp8056 __tmp8051)))) + (declare (not safe)) + (cons __tmp8066 __tmp8050)))) + (declare (not safe)) + (cons __tmp8084 __tmp8049)))) + (declare (not safe)) + (cons __tmp8048 '())))) + (declare (not safe)) + (cons __tmp8085 __tmp8047)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8094 __tmp8046))) _hd36663704_ _hd36633694_) (_g36553673_ _g36563677_)))) @@ -112,115 +207,251 @@ (_g37363810_ (lambda (_g37383759_) (if (gx#stx-pair? _g37383759_) - (let ((_e37413762_ (gx#syntax-e _g37383759_))) + (let ((_e37433762_ (gx#syntax-e _g37383759_))) (let ((_hd37423766_ - (let () (declare (not safe)) (##car _e37413762_))) - (_tl37433769_ + (let () (declare (not safe)) (##car _e37433762_))) + (_tl37413769_ (let () (declare (not safe)) - (##cdr _e37413762_)))) - (if (gx#stx-pair? _tl37433769_) - (let ((_e37443772_ (gx#syntax-e _tl37433769_))) + (##cdr _e37433762_)))) + (if (gx#stx-pair? _tl37413769_) + (let ((_e37463772_ (gx#syntax-e _tl37413769_))) (let ((_hd37453776_ (let () (declare (not safe)) - (##car _e37443772_))) - (_tl37463779_ + (##car _e37463772_))) + (_tl37443779_ (let () (declare (not safe)) - (##cdr _e37443772_)))) - (if (gx#stx-pair? _tl37463779_) - (let ((_e37473782_ - (gx#syntax-e _tl37463779_))) + (##cdr _e37463772_)))) + (if (gx#stx-pair? _tl37443779_) + (let ((_e37493782_ + (gx#syntax-e _tl37443779_))) (let ((_hd37483786_ (let () (declare (not safe)) - (##car _e37473782_))) - (_tl37493789_ + (##car _e37493782_))) + (_tl37473789_ (let () (declare (not safe)) - (##cdr _e37473782_)))) - (if (gx#stx-null? _tl37493789_) + (##cdr _e37493782_)))) + (if (gx#stx-null? _tl37473789_) ((lambda (_L3792_ _L3794_) - (cons (gx#datum->syntax - '#f - 'def) - (cons (cons _L3794_ + (let ((__tmp8164 + (gx#datum->syntax + '#f + 'def)) + (__tmp8095 + (let ((__tmp8155 + (let ((__tmp8156 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'key) - (cons (gx#datum->syntax '#f 'lst) - (cons (cons (gx#datum->syntax - '#f - 'default) - (cons '#f '())) - '())))) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (gx#datum->syntax '#f 'lp) - (cons (cons (cons (gx#datum->syntax - '#f - 'rest) - (cons (gx#datum->syntax - '#f - 'lst) - '())) - '()) - (cons (cons (gx#datum->syntax - '#f - 'match) - (cons (gx#datum->syntax - '#f - 'rest) - (cons (cons (cons (gx#datum->syntax + (let ((__tmp8163 (gx#datum->syntax '#f 'key)) + (__tmp8157 + (let ((__tmp8162 + (gx#datum->syntax '#f 'lst)) + (__tmp8158 + (let ((__tmp8159 + (let ((__tmp8161 + (gx#datum->syntax + '#f + 'default)) + (__tmp8160 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp8161 + __tmp8160)))) + (declare (not safe)) + (cons __tmp8159 '())))) + (declare (not safe)) + (cons __tmp8162 __tmp8158)))) + (declare (not safe)) + (cons __tmp8163 __tmp8157)))) + (declare (not safe)) + (cons _L3794_ __tmp8156))) + (__tmp8096 + (let ((__tmp8097 + (let ((__tmp8154 (gx#datum->syntax '#f 'let)) + (__tmp8098 + (let ((__tmp8153 (gx#datum->syntax '#f 'lp)) + (__tmp8099 + (let ((__tmp8148 + (let ((__tmp8149 + (let ((__tmp8152 + (gx#datum->syntax + '#f + 'rest)) + (__tmp8150 + (let ((__tmp8151 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - (cons (gx#datum->syntax '#f 'k) - (cons (gx#datum->syntax '#f 'v) + (gx#datum->syntax '#f 'lst))) + (declare (not safe)) + (cons __tmp8151 '())))) + (declare (not safe)) + (cons __tmp8152 __tmp8150)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8149 '()))) + (__tmp8100 + (let ((__tmp8101 + (let ((__tmp8147 + (gx#datum->syntax + '#f + 'match)) + (__tmp8102 + (let ((__tmp8146 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'rest)) + (__tmp8103 + (let ((__tmp8122 + (let ((__tmp8139 + (let ((__tmp8145 (gx#datum->syntax '#f - 'rest)))) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _L3792_ - (cons (gx#datum->syntax - '#f - 'k) - (cons (gx#datum->syntax + '@list)) + (__tmp8140 + (let ((__tmp8144 + (gx#datum->syntax + '#f + 'k)) + (__tmp8141 + (let ((__tmp8143 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'key) - '()))) + (gx#datum->syntax '#f 'v)) + (__tmp8142 (gx#datum->syntax '#f 'rest))) + (declare (not safe)) + (cons __tmp8143 __tmp8142)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (gx#datum->syntax - '#f - 'v) - (cons (cons (gx#datum->syntax + (declare (not safe)) + (cons __tmp8144 + __tmp8141)))) + (declare (not safe)) + (cons __tmp8145 __tmp8140))) + (__tmp8123 + (let ((__tmp8124 + (let ((__tmp8138 + (gx#datum->syntax + '#f + 'if)) + (__tmp8125 + (let ((__tmp8133 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lp) - (cons (gx#datum->syntax '#f 'rest) '())) - '())))) + (let ((__tmp8134 + (let ((__tmp8137 (gx#datum->syntax '#f 'k)) + (__tmp8135 + (let ((__tmp8136 + (gx#datum->syntax '#f 'key))) + (declare (not safe)) + (cons __tmp8136 '())))) + (declare (not safe)) + (cons __tmp8137 __tmp8135)))) + (declare (not safe)) + (cons _L3792_ __tmp8134))) + (__tmp8126 + (let ((__tmp8132 (gx#datum->syntax '#f 'v)) + (__tmp8127 + (let ((__tmp8128 + (let ((__tmp8131 + (gx#datum->syntax '#f 'lp)) + (__tmp8129 + (let ((__tmp8130 + (gx#datum->syntax + '#f + 'rest))) + (declare (not safe)) + (cons __tmp8130 '())))) + (declare (not safe)) + (cons __tmp8131 __tmp8129)))) + (declare (not safe)) + (cons __tmp8128 '())))) + (declare (not safe)) + (cons __tmp8132 __tmp8127)))) + (declare (not safe)) + (cons __tmp8133 __tmp8126)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'procedure?) - (cons (gx#datum->syntax + (declare (not safe)) + (cons __tmp8138 + __tmp8125)))) + (declare (not safe)) + (cons __tmp8124 '())))) + (declare (not safe)) + (cons __tmp8139 __tmp8123))) + (__tmp8104 + (let ((__tmp8105 + (let ((__tmp8121 + (gx#datum->syntax + '#f + 'else)) + (__tmp8106 + (let ((__tmp8107 + (let ((__tmp8120 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'default) - '())) - (cons (cons (gx#datum->syntax '#f 'default) - (cons (gx#datum->syntax '#f 'key) '())) - (cons (gx#datum->syntax '#f 'default) '())))) + (gx#datum->syntax '#f 'if)) + (__tmp8108 + (let ((__tmp8116 + (let ((__tmp8119 + (gx#datum->syntax '#f 'procedure?)) + (__tmp8117 + (let ((__tmp8118 + (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp8118 '())))) + (declare (not safe)) + (cons __tmp8119 __tmp8117))) + (__tmp8109 + (let ((__tmp8112 + (let ((__tmp8115 + (gx#datum->syntax '#f 'default)) + (__tmp8113 + (let ((__tmp8114 + (gx#datum->syntax + '#f + 'key))) + (declare (not safe)) + (cons __tmp8114 '())))) + (declare (not safe)) + (cons __tmp8115 __tmp8113))) + (__tmp8110 + (let ((__tmp8111 + (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp8111 '())))) + (declare (not safe)) + (cons __tmp8112 __tmp8110)))) + (declare (not safe)) + (cons __tmp8116 __tmp8109)))) + (declare (not safe)) + (cons __tmp8120 __tmp8108)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '())))) + (declare (not safe)) + (cons __tmp8107 '())))) + (declare (not safe)) + (cons __tmp8121 __tmp8106)))) + (declare (not safe)) + (cons __tmp8105 '())))) + (declare (not safe)) + (cons __tmp8122 __tmp8104)))) + (declare (not safe)) + (cons __tmp8146 __tmp8103)))) + (declare (not safe)) + (cons __tmp8147 __tmp8102)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '())))) + (declare (not safe)) + (cons __tmp8101 '())))) + (declare (not safe)) + (cons __tmp8148 __tmp8100)))) + (declare (not safe)) + (cons __tmp8153 __tmp8099)))) + (declare (not safe)) + (cons __tmp8154 __tmp8098)))) + (declare (not safe)) + (cons __tmp8097 '())))) + (declare (not safe)) + (cons __tmp8155 __tmp8096)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8164 __tmp8095))) _hd37483786_ _hd37453776_) (_g37373755_ _g37383759_)))) @@ -236,114 +467,252 @@ (_g38173891_ (lambda (_g38193840_) (if (gx#stx-pair? _g38193840_) - (let ((_e38223843_ (gx#syntax-e _g38193840_))) + (let ((_e38243843_ (gx#syntax-e _g38193840_))) (let ((_hd38233847_ - (let () (declare (not safe)) (##car _e38223843_))) - (_tl38243850_ + (let () (declare (not safe)) (##car _e38243843_))) + (_tl38223850_ (let () (declare (not safe)) - (##cdr _e38223843_)))) - (if (gx#stx-pair? _tl38243850_) - (let ((_e38253853_ (gx#syntax-e _tl38243850_))) + (##cdr _e38243843_)))) + (if (gx#stx-pair? _tl38223850_) + (let ((_e38273853_ (gx#syntax-e _tl38223850_))) (let ((_hd38263857_ (let () (declare (not safe)) - (##car _e38253853_))) - (_tl38273860_ + (##car _e38273853_))) + (_tl38253860_ (let () (declare (not safe)) - (##cdr _e38253853_)))) - (if (gx#stx-pair? _tl38273860_) - (let ((_e38283863_ - (gx#syntax-e _tl38273860_))) + (##cdr _e38273853_)))) + (if (gx#stx-pair? _tl38253860_) + (let ((_e38303863_ + (gx#syntax-e _tl38253860_))) (let ((_hd38293867_ (let () (declare (not safe)) - (##car _e38283863_))) - (_tl38303870_ + (##car _e38303863_))) + (_tl38283870_ (let () (declare (not safe)) - (##cdr _e38283863_)))) - (if (gx#stx-null? _tl38303870_) + (##cdr _e38303863_)))) + (if (gx#stx-null? _tl38283870_) ((lambda (_L3873_ _L3875_) - (cons (gx#datum->syntax - '#f - 'def) - (cons (cons _L3875_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'el) - (cons (gx#datum->syntax '#f 'lst) '()))) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (gx#datum->syntax '#f 'lp) - (cons (cons (cons (gx#datum->syntax - '#f - 'rest) - (cons (gx#datum->syntax - '#f - 'lst) - '())) - (cons (cons (gx#datum->syntax - '#f - 'r) - (cons (cons (gx#datum->syntax + (let ((__tmp8235 + (gx#datum->syntax + '#f + 'def)) + (__tmp8165 + (let ((__tmp8230 + (let ((__tmp8231 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - '()) - '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'match) - (cons (gx#datum->syntax - '#f - 'rest) - (cons (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - (cons (gx#datum->syntax '#f 'hd) - (gx#datum->syntax '#f 'rest))) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _L3873_ - (cons (gx#datum->syntax + (let ((__tmp8234 (gx#datum->syntax '#f 'el)) + (__tmp8232 + (let ((__tmp8233 + (gx#datum->syntax '#f 'lst))) + (declare (not safe)) + (cons __tmp8233 '())))) + (declare (not safe)) + (cons __tmp8234 __tmp8232)))) + (declare (not safe)) + (cons _L3875_ __tmp8231))) + (__tmp8166 + (let ((__tmp8167 + (let ((__tmp8229 (gx#datum->syntax '#f 'let)) + (__tmp8168 + (let ((__tmp8228 (gx#datum->syntax '#f 'lp)) + (__tmp8169 + (let ((__tmp8217 + (let ((__tmp8224 + (let ((__tmp8227 + (gx#datum->syntax '#f - 'el) - (cons (gx#datum->syntax + 'rest)) + (__tmp8225 + (let ((__tmp8226 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'hd) - '()))) + (gx#datum->syntax '#f 'lst))) + (declare (not safe)) + (cons __tmp8226 '())))) + (declare (not safe)) + (cons __tmp8227 __tmp8225))) + (__tmp8218 + (let ((__tmp8219 + (let ((__tmp8223 (gx#datum->syntax '#f 'r)) + (__tmp8220 + (let ((__tmp8221 + (let ((__tmp8222 + (gx#datum->syntax '#f '@list))) + (declare (not safe)) + (cons __tmp8222 '())))) + (declare (not safe)) + (cons __tmp8221 '())))) + (declare (not safe)) + (cons __tmp8223 __tmp8220)))) + (declare (not safe)) + (cons __tmp8219 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax + (declare (not safe)) + (cons __tmp8224 __tmp8218))) + (__tmp8170 + (let ((__tmp8171 + (let ((__tmp8216 + (gx#datum->syntax '#f - 'foldl1) - (cons (gx#datum->syntax + 'match)) + (__tmp8172 + (let ((__tmp8215 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'cons) - (cons (gx#datum->syntax '#f 'rest) - (cons (gx#datum->syntax '#f 'r) '())))) - (cons (cons (gx#datum->syntax '#f 'lp) - (cons (gx#datum->syntax '#f 'rest) - (cons (cons (gx#datum->syntax '#f 'cons) - (cons (gx#datum->syntax '#f 'hd) - (cons (gx#datum->syntax - '#f - 'r) - '()))) - '()))) - '())))) + (gx#datum->syntax '#f 'rest)) + (__tmp8173 + (let ((__tmp8179 + (let ((__tmp8210 + (let ((__tmp8214 + (gx#datum->syntax + '#f + '@list)) + (__tmp8211 + (let ((__tmp8213 + (gx#datum->syntax + '#f + 'hd)) + (__tmp8212 + (gx#datum->syntax + '#f + 'rest))) + (declare (not safe)) + (cons __tmp8213 + __tmp8212)))) + (declare (not safe)) + (cons __tmp8214 __tmp8211))) + (__tmp8180 + (let ((__tmp8181 + (let ((__tmp8209 + (gx#datum->syntax + '#f + 'if)) + (__tmp8182 + (let ((__tmp8204 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp8205 + (let ((__tmp8208 (gx#datum->syntax '#f 'el)) + (__tmp8206 + (let ((__tmp8207 + (gx#datum->syntax '#f 'hd))) + (declare (not safe)) + (cons __tmp8207 '())))) + (declare (not safe)) + (cons __tmp8208 __tmp8206)))) + (declare (not safe)) + (cons _L3873_ __tmp8205))) + (__tmp8183 + (let ((__tmp8196 + (let ((__tmp8203 + (gx#datum->syntax '#f 'foldl1)) + (__tmp8197 + (let ((__tmp8202 + (gx#datum->syntax '#f 'cons)) + (__tmp8198 + (let ((__tmp8201 + (gx#datum->syntax + '#f + 'rest)) + (__tmp8199 + (let ((__tmp8200 + (gx#datum->syntax + '#f + 'r))) + (declare (not safe)) + (cons __tmp8200 '())))) + (declare (not safe)) + (cons __tmp8201 __tmp8199)))) + (declare (not safe)) + (cons __tmp8202 __tmp8198)))) + (declare (not safe)) + (cons __tmp8203 __tmp8197))) + (__tmp8184 + (let ((__tmp8185 + (let ((__tmp8195 + (gx#datum->syntax '#f 'lp)) + (__tmp8186 + (let ((__tmp8194 + (gx#datum->syntax + '#f + 'rest)) + (__tmp8187 + (let ((__tmp8188 + (let ((__tmp8193 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'cons)) + (__tmp8189 + (let ((__tmp8192 (gx#datum->syntax '#f 'hd)) + (__tmp8190 + (let ((__tmp8191 (gx#datum->syntax '#f 'r))) + (declare (not safe)) + (cons __tmp8191 '())))) + (declare (not safe)) + (cons __tmp8192 __tmp8190)))) + (declare (not safe)) + (cons __tmp8193 __tmp8189)))) + (declare (not safe)) + (cons __tmp8188 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8194 __tmp8187)))) + (declare (not safe)) + (cons __tmp8195 __tmp8186)))) + (declare (not safe)) + (cons __tmp8185 '())))) + (declare (not safe)) + (cons __tmp8196 __tmp8184)))) + (declare (not safe)) + (cons __tmp8204 __tmp8183)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons (gx#datum->syntax '#f 'else) - (cons (gx#datum->syntax '#f 'lst) '())) - '())))) + (declare (not safe)) + (cons __tmp8209 + __tmp8182)))) + (declare (not safe)) + (cons __tmp8181 '())))) + (declare (not safe)) + (cons __tmp8210 __tmp8180))) + (__tmp8174 + (let ((__tmp8175 + (let ((__tmp8178 + (gx#datum->syntax + '#f + 'else)) + (__tmp8176 + (let ((__tmp8177 + (gx#datum->syntax + '#f + 'lst))) + (declare (not safe)) + (cons __tmp8177 '())))) + (declare (not safe)) + (cons __tmp8178 __tmp8176)))) + (declare (not safe)) + (cons __tmp8175 '())))) + (declare (not safe)) + (cons __tmp8179 __tmp8174)))) + (declare (not safe)) + (cons __tmp8215 __tmp8173)))) + (declare (not safe)) + (cons __tmp8216 __tmp8172)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '())))) + (declare (not safe)) + (cons __tmp8171 '())))) + (declare (not safe)) + (cons __tmp8217 __tmp8170)))) + (declare (not safe)) + (cons __tmp8228 __tmp8169)))) + (declare (not safe)) + (cons __tmp8229 __tmp8168)))) + (declare (not safe)) + (cons __tmp8167 '())))) + (declare (not safe)) + (cons __tmp8230 __tmp8166)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8235 __tmp8165))) _hd38293867_ _hd38263857_) (_g38183836_ _g38193840_)))) diff --git a/src/bootstrap/gerbil/runtime__0.scm b/src/bootstrap/gerbil/runtime__0.scm index 58ff9ff17..037afcb3b 100644 --- a/src/bootstrap/gerbil/runtime__0.scm +++ b/src/bootstrap/gerbil/runtime__0.scm @@ -1,2 +1,2 @@ (declare (block) (standard-bindings) (extended-bindings)) -(begin (define gerbil/runtime::timestamp 1695206878) '#!void) +(begin (define gerbil/runtime::timestamp 1695292371) '#!void) diff --git a/src/build.sh b/src/build.sh index 436295afa..69dd112b5 100755 --- a/src/build.sh +++ b/src/build.sh @@ -6,6 +6,20 @@ cd $(dirname "$0") # Change to this directory # Assuming this script is run with: `cd $GERBIL_BASE/src && ./build.sh` #=============================================================================== +# utility to get number of cores from make -j +build_flags_cores() { + for x in $1; do + case $x in + -j*) + echo ${x##-j} + break + ;; + *) + ;; + esac + done +} + # Check for GERBIL_PREFIX being set # This is necessary for the bach build script to set the correct RUNPATH in the # gerbil binary. @@ -42,6 +56,18 @@ else fi export LD_LIBRARY_PATH +if [ "x${GERBIL_BUILD_FLAGS:-}" != "x" ]; then + num_cores=$(build_flags_cores "${GERBIL_BUILD_FLAGS}") + if [ "x${num_cores:-}" != "x" ]; then + GERBIL_BUILD_CORES=${num_cores} + export GERBIL_BUILD_CORES + fi +fi + +if [ "x${GERBIL_BUILD_CORES:-}" != "x" ]; then + echo "--- using ${GERBIL_BUILD_CORES} cores for the build" +fi + #=============================================================================== ## feedback feedback_err() { diff --git a/src/gerbil/compiler/compile.ss b/src/gerbil/compiler/compile.ss index 8eaf19059..d243fb300 100644 --- a/src/gerbil/compiler/compile.ss +++ b/src/gerbil/compiler/compile.ss @@ -70,6 +70,7 @@ namespace: gxc (%#quote void) (%#quote-syntax void) (%#call void) + (%#call-unchecked void) (%#if void) (%#ref void) (%#set! void) @@ -108,6 +109,7 @@ namespace: gxc (%#quote false) (%#quote-syntax false) (%#call false) + (%#call-unchecked false) (%#if false) (%#ref false) (%#set! false) @@ -170,6 +172,7 @@ namespace: gxc (%#letrec*-values true) (%#quote true) (%#call true) + (%#call-unchecked true) (%#if true) (%#ref true) (%#set! true) @@ -201,6 +204,7 @@ namespace: gxc (%#letrec*-values count-values-let-values%) (%#quote count-values-single%) (%#call count-values-call%) + (%#call-unchecked count-values-call%) (%#if count-values-if%)) (defcompile-method #f &generate-runtime-empty @@ -224,6 +228,7 @@ namespace: gxc (%#letrec*-values generate-runtime-empty) (%#quote generate-runtime-empty) (%#call generate-runtime-empty) + (%#call-unchecked generate-runtime-empty) (%#if generate-runtime-empty) (%#ref generate-runtime-empty) (%#set! generate-runtime-empty) @@ -254,6 +259,7 @@ namespace: gxc (%#quote generate-runtime-quote%) (%#quote-syntax generate-runtime-quote-syntax%) (%#call generate-runtime-call%) + (%#call-unchecked generate-runtime-call-unchecked%) (%#if generate-runtime-if%) (%#ref generate-runtime-ref%) (%#set! generate-runtime-setq%) @@ -281,6 +287,7 @@ namespace: gxc (%#quote void) (%#quote-syntax void) (%#call collect-operands) + (%#call-unchecked collect-operands) (%#if collect-operands) (%#ref collect-refs-ref%) (%#set! collect-refs-setq%) @@ -322,6 +329,7 @@ namespace: gxc (%#quote generate-meta-phi-expr) (%#quote-syntax generate-meta-phi-expr) (%#call generate-meta-phi-expr) + (%#call-unchecked generate-meta-phi-expr) (%#if generate-meta-phi-expr) (%#ref generate-meta-phi-expr) (%#set! generate-meta-phi-expr) @@ -1077,6 +1085,18 @@ namespace: gxc (compile-call #'rator #'rands)))) (_ (compile-call #'rator #'rands))))))) +(def (generate-runtime-call-unchecked% stx) + (ast-case stx (%#ref) + ((_ (%#ref rator) . rands) + (if (current-compile-decls-unsafe?) + (generate-runtime-call% stx) + (let (f (compile-e #'(%#ref rator))) + (with-primitive-bind+args (bind args (reverse #'rands)) + ['let [bind ...] + '(declare (not safe)) + (cons f args)])))) + (_ (generate-runtime-call% stx)))) + (def (generate-runtime-if% stx) (def (simplify code) (match code diff --git a/src/gerbil/compiler/optimize-base.ss b/src/gerbil/compiler/optimize-base.ss index d57f43069..99081de58 100644 --- a/src/gerbil/compiler/optimize-base.ss +++ b/src/gerbil/compiler/optimize-base.ss @@ -46,6 +46,13 @@ namespace: gxc (defstruct (!kw-lambda !procedure) (table dispatch)) (defstruct (!kw-lambda-primary !procedure) (keys main)) +;; primitive markers (necessary to avoid unsound call optimizations) +(defclass !primitive ()) +(defclass (!primitive-lambda !primitive !lambda) () + constructor: :init!) +(defclass (!primitive-case-lambda !primitive !case-lambda) () + constructor: :init!) + (defmethod {:init! !struct-type} (lambda (self id super fields xfields ctor plist) (struct-instance-init! self id super fields xfields ctor plist #f))) @@ -58,6 +65,13 @@ namespace: gxc (lambda (self id arity dispatch (inline #f) (typedecl #f)) (struct-instance-init! self id arity dispatch inline typedecl))) +(defmethod {:init! !primitive-lambda} + !lambda:::init!) + +(defmethod {:init! !primitive-case-lambda} + (lambda (self . args) + (apply struct-instance-init! self args))) + (def (!struct-type-vtab type) (cond ((!struct-type-methods type) => values) diff --git a/src/gerbil/compiler/optimize-call.ss b/src/gerbil/compiler/optimize-call.ss index 3d737a6b4..ceaf838dd 100644 --- a/src/gerbil/compiler/optimize-call.ss +++ b/src/gerbil/compiler/optimize-call.ss @@ -23,7 +23,15 @@ namespace: gxc (cond ((!procedure? rator-type) (verbose "optimize-call " rator-id " => " rator-type " " (!type-id rator-type)) - {optimize-call rator-type stx #'rands}) + (let (optimized {optimize-call rator-type stx #'rands}) + (if (!primitive? rator-type) + optimized ; %#call-unchecked unsafe for primitives + (ast-case optimized (%#call) + ((%#call . body) + (xform-wrap-source + (cons '%#call-unchecked #'body) + stx)) + (_ optimized))))) ((not rator-type) (xform-call% stx)) (else diff --git a/src/gerbil/compiler/optimize-xform.ss b/src/gerbil/compiler/optimize-xform.ss index f86268a87..f55e32848 100644 --- a/src/gerbil/compiler/optimize-xform.ss +++ b/src/gerbil/compiler/optimize-xform.ss @@ -20,6 +20,7 @@ namespace: gxc (%#quote xform-identity) (%#quote-syntax xform-identity) (%#call xform-identity) + (%#call-unchecked xform-identity) (%#if xform-identity) (%#ref xform-identity) (%#set! xform-identity) @@ -58,6 +59,7 @@ namespace: gxc (%#quote xform-identity) (%#quote-syntax xform-identity) (%#call xform-operands) + (%#call-unchecked xform-operands) (%#if xform-operands) (%#ref xform-identity) (%#set! xform-setq%) @@ -90,6 +92,7 @@ namespace: gxc (%#letrec-values collect-body-let-values%) (%#letrec*-values collect-body-let-values%) (%#call collect-operands) + (%#call-unchecked collect-operands) (%#if collect-operands) (%#set! collect-mutators-setq%) (%#struct-instance? collect-operands) @@ -102,10 +105,11 @@ namespace: gxc (%#struct-unchecked-set! collect-operands)) (defcompile-method apply-collect-methods (&collect-methods &void) - (%#begin collect-begin%) - (%#begin-syntax collect-begin-syntax%) - (%#module collect-module%) - (%#call collect-methods-call%)) + (%#begin collect-begin%) + (%#begin-syntax collect-begin-syntax%) + (%#module collect-module%) + (%#call collect-methods-call%) + (%#call-unchecked collect-methods-call%)) (defcompile-method apply-expression-subst (&expression-subst &basic-xform-expression) (%#begin xform-begin%) @@ -125,6 +129,7 @@ namespace: gxc (%#letrec-values find-let-values%) (%#letrec*-values find-let-values%) (%#call find-body%) + (%#call-unchecked find-body%) (%#if find-body%) (%#set! find-setq%) (%#struct-instance? find-body%) diff --git a/src/gerbil/compiler/ssxi.ss b/src/gerbil/compiler/ssxi.ss index 43204b4cf..5c0665627 100644 --- a/src/gerbil/compiler/ssxi.ss +++ b/src/gerbil/compiler/ssxi.ss @@ -115,12 +115,18 @@ namespace: gxc (defrules @lambda () ((_ arity inline: inline-rules) (make-!lambda 'lambda 'arity #f inline-rules 'inline-rules)) + ((recur primitive: arity) + (recur primitive: arity #f)) + ((_ primitive: arity dispatch) + (make-!primitive-lambda 'lambda 'arity 'dispatch)) ((_ arity dispatch) (make-!lambda 'lambda 'arity 'dispatch)) ((recur arity) (recur arity #f))) (defrules @case-lambda () + ((_ primitive: (arity dispatch) ...) + (make-!primitive-case-lambda 'case-lambda [(@lambda primitive: arity dispatch) ...])) ((_ (arity dispatch) ...) (make-!case-lambda 'case-lambda [(@lambda arity dispatch) ...]))) @@ -133,6 +139,16 @@ namespace: gxc (make-!kw-lambda-primary 'kw-lambda-dispatch 'keys 'main))) (defrules declare-primitive () + ((_ prim unchecked: arity) + (declare-type prim (@lambda arity))) + ((_ prim unchecked: arity ...) + (declare-type prim (@case-lambda (arity #f) ...))) + ((_ prim arity) + (declare-type prim (@lambda primitive: arity))) + ((_ prim arity ...) + (declare-type prim (@case-lambda primitive: (arity #f) ...)))) + +(defrules declare-primitive/unchecked () ((_ prim arity) (declare-type prim (@lambda arity))) ((_ prim arity ...) @@ -142,3 +158,8 @@ namespace: gxc ((_ (prim arity ...) ...) (begin (declare-primitive prim arity ...) ...))) + +(defrules declare-primitive/unchecked* () + ((_ (prim arity ...) ...) + (begin + (declare-primitive/unchecked prim arity ...) ...))) diff --git a/src/gerbil/prelude/core.ssxi.ss b/src/gerbil/prelude/core.ssxi.ss index a63f7cd32..421b69cbb 100644 --- a/src/gerbil/prelude/core.ssxi.ss +++ b/src/gerbil/prelude/core.ssxi.ss @@ -211,38 +211,71 @@ package: gerbil ((_ prim ...) (declare-primitive* (prim 0) ...))) +(defrules declare-primitive/0/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 0) ...))) + (defrules declare-primitive/1 () ((_ prim ...) (declare-primitive* (prim 1) ...))) +(defrules declare-primitive/1/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 1) ...))) + (defrules declare-primitive/2 () ((_ prim ...) (declare-primitive* (prim 2) ...))) +(defrules declare-primitive/2/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 2) ...))) + (defrules declare-primitive/3 () ((_ prim ...) (declare-primitive* (prim 3) ...))) +(defrules declare-primitive/3/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 3) ...))) + (defrules declare-primitive/4 () ((_ prim ...) (declare-primitive* (prim 4) ...))) +(defrules declare-primitive/4/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 4) ...))) + (defrules declare-primitive/5 () ((_ prim ...) (declare-primitive* (prim 5) ...))) +(defrules declare-primitive/5/unchecked() + ((_ prim ...) + (declare-primitive/unchecked* (prim 5) ...))) + ;; r5rs primitives -- -(declare-primitive/0 +(declare-primitive/0/unchecked interaction-environment) -(declare-primitive/1 +(declare-primitive/1/unchecked not boolean? number? complex? real? rational? integer? exact? inexact? zero? positive? negative? odd? even? + pair? null? list? + symbol? + char? + string? + vector? + procedure? + input-port? output-port? + eof-object?) + +(declare-primitive/1 exact->inexact inexact->exact abs - pair? null? list? car cdr caar cadr cdar cddr caaar cadar caadr caddr @@ -252,33 +285,30 @@ package: gerbil cdaaar cdadar cdaadr cdaddr cddaar cdddar cddadr cddddr reverse - symbol? symbol->string string->symbol - char? + symbol->string string->symbol char-alphabetic? char-numeric? char-whitespace? char-upper-case? char-lower-case? char->integer integer->char char-upcase char-downcase - string? string-length list->string - vector? vector-length list->vector - procedure? force call-with-current-continuation - input-port? output-port? open-input-file open-output-file close-input-port close-output-port - eof-object? scheme-report-environment load) -(declare-primitive/2 +(declare-primitive/2/unchecked eq? eqv? equal? - cons set-car! set-cdr! + cons) + +(declare-primitive/2 + set-car! set-cdr! list-tail list-ref memq memv assq assv @@ -324,33 +354,23 @@ package: gerbil (write-char 1 2)) ;; core runtime primitives -- -(declare-primitive/0 +(declare-primitive/0/unchecked gerbil-system system-type) -(declare-primitive/1 +(declare-primitive/1/unchecked immediate? - finite? infinite? nan? fixnum? nonnegative-fixnum? - fxzero? fxpositive? fxnegative? fxodd? fxeven? - fixnum->flonum + fxzero? flonum? - flzero? flpositive? flnegative? - flnan? flinfinite? flfinite? flinteger? - box? box unbox + box? box last last-pair - vector-concatenate dssl-object? dssl-key-object? dssl-rest-object? dssl-optional-object? plist->hash-table-eq plist->hash-table-eqv hash-keys hash-values eq?-hash eqv?-hash equal?-hash - uninterned-symbol? interned-symbol? string->uninterned-symbol - symbol-hash - keyword? uninterned-keyword? interned-keyword? keyword-hash - string->keyword keyword->string make-uninterned-keyword - symbol->keyword keyword->symbol + keyword? uninterned-keyword? interned-keyword? string-empty? - string-concatenate type-descriptor? struct-type? class-type? @@ -358,36 +378,44 @@ package: gerbil make-class-predicate object? object-type struct->list class->list - raise - exception? error-object? type-error? + exception? error-object? error? error-message error-irritants error-trace + read-syntax-from-file + u8vector? + promise?) + +(declare-primitive/1 + fixnum? nonnegative-fixnum? + fxpositive? fxnegative? fxodd? fxeven? + fixnum->flonum + flzero? flpositive? flnegative? + flnan? flinfinite? flfinite? flinteger? + unbox + uninterned-symbol? interned-symbol? string->uninterned-symbol + symbol-hash + keyword? uninterned-keyword? interned-keyword? keyword-hash + string->keyword keyword->string make-uninterned-keyword + symbol->keyword keyword->symbol + string-concatenate + raise create-directory delete-file delete-directory file-type path-extension path-strip-extension path-directory path-strip-directory path-strip-trailing-directory-separator - read-syntax-from-file - u8vector? u8vector-length u8vector->list list->u8vector u8vector-concatenate object->u8vector u8vector->object get-output-u8vector - promise? make-promise) -(declare-primitive/2 - fxmodulo - fxbit-set? - fxarithmetic-shift - set-box! +(declare-primitive/2/unchecked memf find remove1 remq remv remf hash-key? hash-map - string-shrink! - vector-shrink! string-split string-join string-prefix? make-struct-field-accessor @@ -407,10 +435,19 @@ package: gerbil find-method struct-subtype? class-subtype? with-unwind-protect + with-catch + file-newer?) + +(declare-primitive/2 + fxmodulo + fxbit-set? + fxarithmetic-shift + set-box! + remove1 remq remv remf + string-shrink! + vector-shrink! with-exception-handler - with-exception-catcher copy-file rename-file - file-newer? call-with-input-string with-input-from-string call-with-output-string with-output-to-string u8vector-ref @@ -418,21 +455,25 @@ package: gerbil call-with-input-u8vector with-input-from-u8vector call-with-output-u8vector with-output-to-u8vector) -(declare-primitive/3 - subvector +(declare-primitive/3/unchecked hash-fold struct-field-ref class-slot-ref unchecked-field-set! unchecked-slot-set! - next-method + next-method) + +(declare-primitive/3 + subvector u8vector-set! subu8vector) +(declare-primitive/4/unchecked + struct-field-set! + class-slot-set!) + (declare-primitive/4 subvector-fill! - struct-field-set! - class-slot-set! subu8vector-fill!) (declare-primitive/5 @@ -440,8 +481,7 @@ package: gerbil substring-move! subu8vector-move!) -(declare-primitive* - (make-list 1 2) +(declare-primitive/unchecked* (iota 1 2 3) (assgetq 2 3) (assgetv 2 3) @@ -449,6 +489,34 @@ package: gerbil (pgetq 2 3) (pgetv 2 3) (pget 2 3) + (plist->hash-table 1 2) + (hash-update! 3 4) + (hash-copy (1)) + (hash-copy! (1)) + (hash-merge (1)) + (hash-merge! (1)) + (hash-clear! 1 2) + (string->bytes 1 2) + (substring->bytes 3 4) + (bytes->string 1 2) + (string-index 2 3) + (string-rindex 2 3) + (make-struct-type 6 7) + (make-class-type 6) + (make-struct-instance (1)) + (make-class-instance (1)) + (class-instance-init! (1)) + (slot-ref 2 3) + (slot-set! 3 4) + (bind-method! 3 4) + (call-next-method (3)) + (call-with-parameters (1)) + (read-syntax 0 1) + (load-module 1 2) + (create-directory* 1 2)) + +(declare-primitive* + (make-list 1 2) (subvector->list 1 2) (vector->list 1 2 3) (vector->string 1 2 3) @@ -465,33 +533,14 @@ package: gerbil (u8vector-fill! 2 3 4) (u8vector-copy 1 2 3) (u8vector-copy! 3 4 5) - (plist->hash-table 1 2) - (hash-update! 3 4) - (hash-copy (1)) - (hash-copy! (1)) - (hash-merge (1)) - (hash-merge! (1)) - (hash-clear! 1 2) (gensym 0 1) (string->bytes 1 2) (substring->bytes 3 4) (bytes->string 1 2) (substring-fill! 4) (substring-move! 5) - (string-index 2 3) - (string-rindex 2 3) - (make-struct-type 6 7) - (make-class-type 6) - (make-struct-instance (1)) - (make-class-instance (1)) - (class-instance-init! (1)) - (slot-ref 2 3) - (slot-set! 3 4) - (bind-method! 3 4) - (call-next-method (3)) (current-error-port 0 1) (make-parameter 1 2) - (call-with-parameters (1)) (current-exception-handler 0 1) (exit 0 1) (getenv 1 2) @@ -512,9 +561,7 @@ package: gerbil (read-subu8vector 3 4 5) (write-subu8vector 3 4) (open-input-u8vector 0 1) - (open-output-u8vector 0 1) - (load-module 1 2) - (create-directory* 1 2)) + (open-output-u8vector 0 1)) ;; extended runtime procedures -- :gerbil/gambit (declare-primitive/0 @@ -844,6 +891,7 @@ package: gerbil replace-bit-field copy-bit-field) (declare-primitive* + (error (1)) (continuation-graft (2)) (continuation-return (1)) (display-exception 1 2) @@ -1043,7 +1091,6 @@ package: gerbil invalid-hash-number-exception-procedure invalid-hash-number-exception-arguments) - ;; hvectors (declare-primitive* (s8vector? 1)